diff --git a/changelog b/changelog index b44d9d4..98e26e4 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,4 @@ +20080325 tpd src/algebra/axserver.spad set up handling of operations pages 20080325 tpd src/interp/interp-proclaims.lisp case-change display 20080325 tpd src/interp/i-syscmd.boot treeshake display to bookvol5 20080325 tpd src/interp/bookvol5 document display function diff --git a/src/algebra/axserver.spad.pamphlet b/src/algebra/axserver.spad.pamphlet index 6862900..84f72f8 100644 --- a/src/algebra/axserver.spad.pamphlet +++ b/src/algebra/axserver.spad.pamphlet @@ -195,16 +195,17 @@ and do a lookup for the source file. \subsection{makeDBPage} <>= makeDBPage(pathvar:String):String == - params:=split(pathvar,char "?") - args:=split(params.2, char "&") - dom:=args.1 - domi:=INTERN(dom)$Lisp - -- category, domain, or package? - constructorkind:=getDatabase(dom,"CONSTRUCTORKIND") - abbreviation:=getDatabase(dom, "ABBREVIATION") - sourcefile:=getDatabase(dom, "SOURCEFILE") - constructorkind.1:=upperCase constructorkind.1 - description:=getDescription(dom) + params:List(String):=split(pathvar,char "?") + for i in 1..#params repeat WriteLine$Lisp concat ["params: ",params.i] + pathparts:List(String):=split(params.1,char "/") + for i in 1..#pathparts repeat + WriteLine$Lisp concat ["pathparts: ",pathparts.i] + pagename:=last pathparts + WriteLine$Lisp concat ["pagename: ",pagename] + cmd:=first split(pagename,char ".") + WriteLine$Lisp concat ["cmd: ",cmd] + args:List(String):=split(params.2, char "&") + for i in 1..#args repeat WriteLine$Lisp concat ["args: ",args.i] page:String:="" @@ -212,56 +213,119 @@ and do a lookup for the source file. page:=page "" page:=page "" - page:=page "" constructorkind " " dom "" + page:=page "" cmd " " args.1 "" page:=page "" page:=page "" - page:=page "
" - page:=page "

" - page:=page "
" constructorkind " " dom "

" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "
Description: " description "
Abbreviation: " abbreviation "
Source File: " sourcefile "

" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "" - page:=page "
" - page:=page "Ancestors" - page:=page "" - page:=page "Dependents" - page:=page "" - page:=page "Exports" - page:=page "" - page:=page "Parents" - page:=page "" - page:=page "Users" - page:=page "
" - page:=page "Attributes" - page:=page "" - page:=page "Examples" - page:=page "" - page:=page "Operations" - page:=page "" - page:=page "Search Path" - page:=page "" - page:=page "Uses" - page:=page "
" - page:=page "" + cmd = "db" => + dom:=args.1 + domi:=INTERN(dom)$Lisp + -- category, domain, or package? + constructorkind:=getDatabase(dom,"CONSTRUCTORKIND") + abbreviation:=getDatabase(dom, "ABBREVIATION") + sourcefile:=getDatabase(dom, "SOURCEFILE") + constructorkind.1:=upperCase constructorkind.1 + description:=getDescription(dom) + page:=page "
" + page:=page "

" + page:=page "
" constructorkind " " dom "

" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "
Description: " description "
Abbreviation: " abbreviation "
Source File: " sourcefile "

" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "
" + page:=page "Ancestors" + page:=page "" + page:=page "Dependents" + page:=page "" + page:=page "Exports" + page:=page "" + page:=page "Parents" + page:=page "" + page:=page "Users" + page:=page "
" + page:=page "Attributes" + page:=page "" + page:=page "Examples" + page:=page "" + page:=page "Operations" + page:=page "" + page:=page "Search Path" + page:=page "" + page:=page "Uses" + page:=page "
" + cmd = "op" => + dom:=args.1 + domi:=INTERN(dom)$Lisp + -- category, domain, or package? + constructorkind:=getDatabase(dom,"CONSTRUCTORKIND") + abbreviation:=getDatabase(dom, "ABBREVIATION") + sourcefile:=getDatabase(dom, "SOURCEFILE") + constructorkind.1:=upperCase constructorkind.1 + description:=getDescription(dom) + page:=page "
" + page:=page "

" + page:=page "
" constructorkind " " dom "

" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "
Description: " description "
Abbreviation: " abbreviation "
Source File: " sourcefile "

" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "" + page:=page "
" + page:=page "Ancestors" + page:=page "" + page:=page "Dependents" + page:=page "" + page:=page "Exports" + page:=page "" + page:=page "Parents" + page:=page "" + page:=page "Users" + page:=page "
" + page:=page "Attributes" + page:=page "" + page:=page "Examples" + page:=page "" + page:=page "Operations" + page:=page "" + page:=page "Search Path" + page:=page "" + page:=page "Uses" + page:=page "
" -- WriteLine(page)$Lisp + page:=page "" page @ \subsection{readTheFile}