From ee5a3c54a2362426e92bd677c5485f0a396847d5 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 15 Jun 2006 14:38:45 +0000 Subject: [PATCH] added teachpack-htdc svn: r3368 --- collects/help/private/docpos.ss | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/collects/help/private/docpos.ss b/collects/help/private/docpos.ss index 08dd273ecf..e218c5a76e 100644 --- a/collects/help/private/docpos.ss +++ b/collects/help/private/docpos.ss @@ -5,7 +5,7 @@ (provide/contract [standard-html-doc-position (path? . -> . number?)] [known-docs (listof (cons/c path? string?))]) - + ;; Define an order on the standard docs. (define (standard-html-doc-position d) (let ([str (path->string d)]) @@ -16,7 +16,7 @@ (caddr line) 100))))) - + ;; (listof (list string string number)) ;; the first string is the collection name ;; the second string is the title of the the manual @@ -25,12 +25,12 @@ `(("r5rs" "Revised^5 Report on the Algorithmic Language Scheme" -50) ("mzscheme" "PLT MzScheme: Language Manual" -49) ("mred" "PLT MrEd: Graphical Toolbox Manual" -48) - + ("tour" "A Brief Tour of DrScheme" 0) ("drscheme" "PLT DrScheme: Programming Environment Manual" 1) - + ("srfi" "SRFI documents inside PLT" 3) - + ("mzlib" "PLT MzLib: Libraries Manual" 5) ("misclib" "PLT Miscellaneous Libraries: Reference Manual" 6) ("mrlib" "PLT MrLib: Graphical Libraries Manual" 7) @@ -38,7 +38,7 @@ ("mzc" "PLT mzc: MzScheme Compiler Manual" 10) ("foreign" "PLT Foreign Interface Manual" 10) - + ("tools" "PLT Tools: DrScheme Extension Manual" 30) ("insidemz" "Inside PLT MzScheme" 50) @@ -48,16 +48,17 @@ ("t-y-scheme" "Teach Yourself Scheme in Fixnum Days" 100) ("tex2page" "TeX2page" 101) - + ("beginning" "Beginning Student Language" 200) ("beginning-abbr" "Beginning Student with List Abbreviations Language" 201) ("intermediate" "Intermediate Student Language" 202) ("intermediate-lambda" "Intermediate Student with Lambda Language" 203) ("advanced" "Advanced Student Language" 204) ("teachpack" "Teachpacks for How to Design Programs" 205) - + ("teachpack-htdc" "Teachpacks for How to Design Classes" 206) + ("profj-beginner" "ProfessorJ Beginner Language" 210) ("profj-intermediate" "ProfessorJ Intermediate Language" 211) ("profj-advanced" "ProfessorJ Advanced Language" 212))) - + (define known-docs (map (lambda (x) (cons (string->path (car x)) (cadr x))) docs-and-positions)))