fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-07-04 11:57 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* examples/hbdoc/hbdoc.prg
    * use hash literal instead of hb_hash()
This commit is contained in:
Viktor Szakats
2012-07-04 09:57:40 +00:00
parent f3fb728a86
commit 0f9c19f41b
2 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-07-04 11:57 UTC+0200 Viktor Szakats (harbour syenar.net)
* examples/hbdoc/hbdoc.prg
* use hash literal instead of hb_hash()
2012-07-04 11:41 UTC+0200 Viktor Szakats (harbour syenar.net)
* examples/hbdoc/genhtml.prg
* examples/hbdoc/hbdoc.prg

34
harbour/examples/hbdoc/hbdoc.prg
View File

@@ -128,26 +128,24 @@ PROCEDURE Main( ... )
init_Templates()
PUBLIC p_hsSwitches := hb_Hash( ;
PUBLIC p_hsSwitches := {;
/* configuration settings, values, etc */ ;
"basedir", BASE_DIR, ;
"doc", .T., ;
"source", .F., ;
"contribs", .T., ;
"format", {}, ;
"output", "category", ;
"include-doc-source", .F., ;
"include-doc-version", .F., ;
"immediate-errors", .F., ;
;
"basedir" => BASE_DIR, ;
"doc" => .T., ;
"source" => .F., ;
"contribs" => .T., ;
"format" => {}, ;
"output" => "category", ;
"include-doc-source" => .F., ;
"include-doc-version" => .F., ;
"immediate-errors" => .F., ;
/* internal settings, values, etc */ ;
"DELIMITER", "$", ;
"format-list", { "text", "ascii", "html", "html2", "xml", "rtf", "hpc", "ngi", "os2", "chm", "ch2", "pdf", "trf", "doc", "dbf", "all" }, ;
"hbextern.ch", {}, ;
"in hbextern", {}, ;
"not in hbextern", {}, ;
"<eol>", nil ;
)
"DELIMITER" => "$", ;
"format-list" => { "text", "ascii", "html", "html2", "xml", "rtf", "hpc", "ngi", "os2", "chm", "ch2", "pdf", "trf", "doc", "dbf", "all" }, ;
"hbextern.ch" => {}, ;
"in hbextern" => {}, ;
"not in hbextern" => {}, ;
"<eol>" => NIL }
// remove formats that have not been implemented yet
FOR idx := Len( p_hsSwitches[ "format-list" ] ) TO 1 STEP -1