Script generations was changed to build docset for Dash if sqlite3 is found.

Author: svetlyak40wt

.gitignore

@@ -1 +1,3 @@
 _site
+/arc.docset/Contents/Resources/docSet.dsidx
+/arc.docset/Contents/Resources/Documents/html

_ref/docs/hdr2.html

@@ -17,6 +17,6 @@
         <li><a href="http://arclanguage.org/forum">Forum</a></li>
       </ul>
     </div>
-  </div>
+  </div> <!-- end of navbar -->
 %%LINKS%%
 <h1 class="links">%%TITLE%%</h1>

_ref/docs/index.html

@@ -17,7 +17,7 @@
         <li><a href="http://arclanguage.org/forum">Forum</a></li>
       </ul>
     </div>
-  </div>
+  </div> <!-- end of navbar -->
 
 <div class="links"></div>
 <h1 class="links">Table of Contents</h1>

_ref/generate.sh

@@ -14,11 +14,27 @@ exec racket -f $0
   (aload "libs.arc"))
 
 (system "rm -rf html")
+
+(system "rm -rf inserts.sql")
+
 (arc-eval '(do
+  (w/outfile sql "inserts.sql"
+    (w/stdout sql
+      (prn "CREATE TABLE searchIndex(id INTEGER PRIMARY KEY, name TEXT, type TEXT, path TEXT);")
+      (prn "CREATE UNIQUE INDEX anchor ON searchIndex (name, type, path);")))
   (ensure-dir "html")
   (declare 'atstrings nil)
   (load "template.arc")
   (runall)
   (run "foundation-doc.tem")))
 (system "cp docs/* html/* ../ref")
 (system "rm -rf html")
+
+(system "rm -fr ../arc.docset/Contents/Resources/Documents/html")
+(system "cp -r ../ref ../arc.docset/Contents/Resources/Documents/html")
+;; cut navigation toolbar because it is unnecessary in Dash
+(system "sed -i '' '/navbar-inverse/,/end of navbar/d' ../arc.docset/Contents/Resources/Documents/html/*.html")
+
+(system "rm -f ../arc.docset/Contents/Resources/docSet.dsidx")
+(system "which sqlite3 > /dev/null && cat inserts.sql | sqlite3 ../arc.docset/Contents/Resources/docSet.dsidx")
+(system "rm -f inserts.sql")

_ref/template.arc

@@ -94,6 +94,7 @@
   (with (tag nil tags nil operation nil arglist nil desc nil testlist nil)
     (push (pop args) tags)
     (= tag (pop args))
+
     (while (in tag 'destructive 'predicate)
       (push tag tags)
       (= tag (pop args)))
@@ -105,13 +106,34 @@
     (prn "  <tr>")
     (pr "    <td class='arc'>")
     (add-anchor2 (coerce operation 'string))
-    (if (intags 'mac tags) (prn "<img src='macro.gif' title='Macro'/>"))
+
+    (= op-type "Function")
+
+    (when (intags 'mac tags)
+          (prn "<img src='macro.gif' title='Macro'/>")
+          (= op-type "Macro"))
     (if (intags 'op tags) (prn "<img src='foundation.gif' title='Foundation'/>"))
     (if (intags 'def tags) (prn "<img src='proc.gif' title='Procedure'/>"))
-    (if (intags 'var tags) (prn "<img src='var.gif' title='Variable'/>"))
+    (when (intags 'var tags)
+          (prn "<img src='var.gif' title='Variable'/>")
+          (= op-type "Variable"))
     (if (intags 'destructive tags) (prn "<img src='destructive.gif' title='Destructive'/>"))
     (if (intags 'predicate tags) (prn "<img src='predicate.gif' title='Predicate'/>"))
 
+
+    (w/appendfile sql "inserts.sql"
+      (w/stdout sql (prn
+                "INSERT OR IGNORE INTO searchIndex(name, type, path) VALUES ('"
+                operation
+                "','"
+                op-type
+                "','"
+                out-file-name*
+                "#"
+                (urlencode:string operation)
+                "');")))
+
+
     (pr "<span class='op'>" operation "</span> ")
     (prn "<span class='args'>" arglist "</span>")
     (prn "    <div class='desc'>" desc "</div>")

arc.docset/Contents/Info.plist

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>CFBundleIdentifier</key>
+	<string>arc</string>
+	<key>CFBundleName</key>
+	<string>Arc Lisp</string>
+	<key>DocSetPlatformFamily</key>
+	<string>arc</string>
+	<key>isDashDocset</key>
+	<true/>
+        <key>dashIndexFilePath</key>
+        <string>html/index.html</string>
+</dict>
+</plist>