update for pkg server...

various minor changes to info.rkt etc.
also commented out test-broken.rkt, which I
couldn't fully understand (and didn't compile,
and probably hasn't for a while)

.gitignore

@@ -0,0 +1,2 @@
+*~
+compiled/

info.rkt

@@ -1,9 +1,16 @@
 #lang setup/infotab
 (define name "suffixtree")
-(define blurb (list "Linear-time construction of suffix trees using Ukkonen's Algorithm"))
-(define primary-file "suffixtree.rkt")
-(define scribblings '(("manual.scrbl" ())))
-(define url "http://hkn.eecs.berkeley.edu/~dyoo/plt/suffixtree")
-(define categories '(datastructures))
-(define repositories '("4.x"))
-(define release-notes '((p "Scribbled documentation.")))
+(define version "1.2")
+(define collection "suffixtree")
+(define deps
+  '("base"
+    "plot-gui-lib"
+    "plot-lib"
+    "profile-lib"
+    "rackunit-lib"
+    "srfi-lite-lib"))
+(define build-deps '("racket-doc"
+                     "sandbox-lib"
+                     "scribble-lib"))
+(define scribblings '(("suffixtree.scrbl" ())))
+

private/test-broken.rkt

@@ -6,13 +6,19 @@
 ;;  (define tree (new-suffix-tree))
 ;;  (suffix-tree-add! tree (make-label "00000100$"))
 
+
+;; JBC, 2019-12: not sure what's going on with this file; looks like these
+;; exports were commented out in 16552e39f5428d0d8cd3af583bdec996e3047369,
+;; but I'm not sure why. I'm going to just comment out this block to
+;; allow testing & compilation to proceed. Hm.
+#;(
 (enable-ukkonen-debug-messages)
 
 (let-values (((tree) (new-suffix-tree))
              ((label-1 label-2) (values (make-label "a$")
                                         (make-label "a!"))))
   (suffix-tree-add! tree label-1)
-  (suffix-tree-add! tree label-2))
+  (suffix-tree-add! tree label-2)))
 
 
 

manual.scrbl → suffixtree.scrbl

@@ -1,8 +1,7 @@
 #lang scribble/manual
-@(require planet/scribble
-          racket/sandbox
+@(require racket/sandbox
           scribble/eval
-          (for-label (this-package-in main)
+          (for-label "main.rkt"
                      racket/base))
 
 
@@ -29,7 +28,7 @@ on notes from Gusfield, "Algorithms on Strings, Trees, and Sequences".
 Let's rush into a minimal example:
 
 @interaction[#:eval my-evaluator 
-(require (planet dyoo/suffixtree))
+(require suffixtree)
 (define tree (make-tree))
 (tree-add! tree (string->label "00010010$"))
 (define root (tree-root tree))
@@ -86,15 +85,15 @@ below.
 
 
 @section{API}
-@defmodule/this-package[main]
+@defmodule[suffixtree]
 
 The API consists of the main suffix tree algorithm, and auxillary
 utilities and applications.
 
 The main structures are trees, nodes, and labels.
 
 @subsection{Trees}
-@declare-exporting/this-package[main]
+@declare-exporting[suffixtree]
 
 A suffix tree consists of a root.  This implementation allows multiple
 labels to be added to the tree.
@@ -365,7 +364,7 @@ For example:
 @codeblock|{
 #lang racket/base
 
-(require (planet dyoo/suffixtree))
+(require suffixtree)
 
 ;; String reference
 (struct sref (str))