From 0f9c19f41bbd93b2bc36e7331229b0fc2ee72983 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Wed, 4 Jul 2012 09:57:40 +0000
Subject: [PATCH] 2012-07-04 11:57 UTC+0200 Viktor Szakats (harbour syenar.net)
   * examples/hbdoc/hbdoc.prg     * use hash literal instead of hb_hash()

---
 harbour/ChangeLog                |  4 ++++
 harbour/examples/hbdoc/hbdoc.prg | 34 +++++++++++++++-----------------
 2 files changed, 20 insertions(+), 18 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 925bcc55e5..c8aecd85cb 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -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
diff --git a/harbour/examples/hbdoc/hbdoc.prg b/harbour/examples/hbdoc/hbdoc.prg
index 33e1b26552..07b5d02599 100644
--- a/harbour/examples/hbdoc/hbdoc.prg
+++ b/harbour/examples/hbdoc/hbdoc.prg
@@ -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