(load (string-append laml-dir "laml.scm")) (laml-style "manual/manual")![]()
![]()
; preamble-xml-in-laml (set-manual-title "Tutorial Manual of the Bikes mirror functions") (set-manual-author "Kurt Nørmark" "normark@cs.auc.dk" "Department of Computer Science" "Aalborg University" "Denmark") (set-manual-abstract "This is a manual of the Bikes DTD, which we have developed in another part of the LAML tutorial." ) (set-manual-name (source-filename-without-extension))![]()
![]()
; manual-part (manual-section (section-title "The bikes mirror functions") (section-body "In this section we explain the functions which mirror the elements of the bikes DTD.") ) (manual-page 'bikes (title "bikes") (xml-in-laml-example-form '(bikes (bike ...) ...) ) (description "A description of a number of bikes in terms of a number of bike clauses") (cross-references (internal-references "Constituent form" "bike") ) ) (manual-page 'bike (title "bike") (xml-in-laml-example-form '(bike (frame ...) (wheel ...) (wheel ...) (brake ...) (lock ...)) ) (description "A description of a single bike") (attribute-descriptions (attribute-description "kind" "Describes the kind or type of the bike")) (cross-references (internal-references "Context form" "bikes") (internal-references "Constituent forms" "frame" "wheel" "brake" "lock") ) ) (manual-page 'frame (title "frame") (xml-in-laml-example-form '(frame 'frame-number "N") ) (description "A description of the frame of a bike") (attribute-descriptions (attribute-description "frame-number" "Describes the unique frame number")) ) (manual-page 'wheel (title "wheel") (xml-in-laml-example-form '(wheel 'size "N" 'tube-kind "K") ) (description "A description of a bike's wheel") (attribute-descriptions (attribute-description "size" "The size of a wheel - a number of inches") (attribute-description "tube-kind" "The kind of the tube of this wheel") ) ) (manual-page 'brake (title "brake") (xml-in-laml-example-form '(brake 'kind "K" 'brand "B") ) (description "A description of a bike's brake") (attribute-descriptions (attribute-description "kind" "The kind of brake") (attribute-description "brand" "The vendor which makes the brake") ) ) (manual-page 'lock (title "lock") (xml-in-laml-example-form '(lock 'brand "B" 'insurance-approved "bool-value") ) (description "A description of a bike's lock") (attribute-descriptions (attribute-description "brand" "The vendor which makes the lock") (attribute-description "insurance-approved" "Is this lock approved by the insurance companies") ) )![]()
![]()
; manual-production-and-merge![]()
![]()
(define manual-contribution-from-dtd (manual-from-parsed-dtd (file-read (string-append (startup-directory) "../xml-in-laml/dtds/bikes/bikes.lsp")))) (make-manual (merge-manual-pages manual-page-list manual-contribution-from-dtd))