" (markup-ident n))
- (display "
\n"))
- :action (lambda (n e)
- (let ((nb (markup-option n :number))
- (t (markup-option n :title)))
- (skribe-eval
- (center
- (color :width (slide-body-width e)
- :bg (or (markup-option n :bg) "#ffffff")
- (table :width 100.
- (tr (th :align 'left
- (list
- (if nb
- (format "~a / ~a -- " nb
- (slide-number)))
- t)))
- (tr (td (hrule)))
- (tr (td :width 100. :align 'left
- (markup-body n))))
- (linebreak)))
- e)))
- :after "
")
- ;; slide-vspace
- (markup-writer 'slide-vspace he
- :action (lambda (n e) (display "
"))))
-
-;*---------------------------------------------------------------------*/
-;* latex */
-;*---------------------------------------------------------------------*/
-(define &latex-slide #f)
-(define &latex-pause #f)
-(define &latex-embed #f)
-(define &latex-record #f)
-(define &latex-play #f)
-(define &latex-play* #f)
-
-(let ((le (find-engine 'latex)))
- ;; slide-vspace
- (markup-writer 'slide-vspace le
- :options '(:unit)
- :action (lambda (n e)
- (display "\n\\vspace{")
- (output (markup-body n) e)
- (printf " ~a}\n\n" (markup-option n :unit))))
- ;; slide-slide
- (markup-writer 'slide le
- :options '(:title :number :transition :vfill :toc :vspace :image)
- :action (lambda (n e)
- (if (procedure? &latex-slide)
- (&latex-slide n e))))
- ;; slide-pause
- (markup-writer 'slide-pause le
- :options '()
- :action (lambda (n e)
- (if (procedure? &latex-pause)
- (&latex-pause n e))))
- ;; slide-embed
- (markup-writer 'slide-embed le
- :options '(:alt :command :geometry-opt :geometry
- :rgeometry :transient :transient-opt)
- :action (lambda (n e)
- (if (procedure? &latex-embed)
- (&latex-embed n e))))
- ;; slide-record
- (markup-writer 'slide-record le
- :options '(:tag :play)
- :action (lambda (n e)
- (if (procedure? &latex-record)
- (&latex-record n e))))
- ;; slide-play
- (markup-writer 'slide-play le
- :options '(:tag :color)
- :action (lambda (n e)
- (if (procedure? &latex-play)
- (&latex-play n e))))
- ;; slide-play*
- (markup-writer 'slide-play* le
- :options '(:tag :color :scolor)
- :action (lambda (n e)
- (if (procedure? &latex-play*)
- (&latex-play* n e)))))
-
-;*---------------------------------------------------------------------*/
-;* %slide-seminar-setup! ... */
-;*---------------------------------------------------------------------*/
-(define (%slide-seminar-setup!)
- (skribe-message "Seminar slides setup...\n")
- (let ((le (find-engine 'latex))
- (be (find-engine 'base)))
- ;; latex configuration
- (define (seminar-slide n e)
- (let ((nb (markup-option n :number))
- (t (markup-option n :title)))
- (display "\\begin{slide}\n")
- (if nb (printf "~a/~a -- " nb (slide-number)))
- (output t e)
- (display "\\hrule\n"))
- (output (markup-body n) e)
- (if (markup-option n :vill) (display "\\vfill\n"))
- (display "\\end{slide}\n"))
- (engine-custom-set! le 'documentclass
- "\\documentclass[landscape]{seminar}\n")
- (let ((o (engine-custom le 'predocument)))
- (engine-custom-set! le 'predocument
- (if (string? o)
- (string-append &slide-seminar-predocument o)
- &slide-seminar-predocument)))
- (engine-custom-set! le 'maketitle
- &slide-seminar-maketitle)
- (engine-custom-set! le 'hyperref-usepackage
- "\\usepackage[setpagesize=false]{hyperref}\n")
- ;; slide-slide
- (set! &latex-slide seminar-slide)))
-
-;*---------------------------------------------------------------------*/
-;* %slide-advi-setup! ... */
-;*---------------------------------------------------------------------*/
-(define (%slide-advi-setup!)
- (skribe-message "Generating `Advi Seminar' slides...\n")
- (let ((le (find-engine 'latex))
- (be (find-engine 'base)))
- (define (advi-geometry geo)
- (let ((r (pregexp-match "([0-9]+)x([0-9]+)" geo)))
- (if (pair? r)
- (let* ((w (cadr r))
- (w' (string->integer w))
- (w'' (number->string (/ w' *skribe-slide-advi-scale*)))
- (h (caddr r))
- (h' (string->integer h))
- (h'' (number->string (/ h' *skribe-slide-advi-scale*))))
- (values "" (string-append w "x" h "+!x+!y")))
- (let ((r (pregexp-match "([0-9]+)x([0-9]+)[+](-?[0-9]+)[+](-?[0-9]+)" geo)))
- (if (pair? r)
- (let ((w (number->string (/ (string->integer (cadr r))
- *skribe-slide-advi-scale*)))
- (h (number->string (/ (string->integer (caddr r))
- *skribe-slide-advi-scale*)))
- (x (cadddr r))
- (y (car (cddddr r))))
- (values (string-append "width=" w "cm,height=" h "cm")
- "!g"))
- (values "" geo))))))
- (define (advi-transition trans)
- (cond
- ((string? trans)
- (printf "\\advitransition{~s}" trans))
- ((and (symbol? trans)
- (memq trans '(wipe block slide)))
- (printf "\\advitransition{~s}" trans))
- (else
- #f)))
- ;; latex configuration
- (define (advi-slide n e)
- (let ((i (markup-option n :image))
- (n (markup-option n :number))
- (t (markup-option n :title))
- (lt (markup-option n :transition))
- (gt (engine-custom e 'transition)))
- (if (and i (engine-custom e 'advi))
- (printf "\\advibg[global]{image=~a}\n"
- (if (and (pair? i)
- (null? (cdr i))
- (string? (car i)))
- (car i)
- i)))
- (display "\\begin{slide}\n")
- (advi-transition (or lt gt))
- (if n (printf "~a/~a -- " n (slide-number)))
- (output t e)
- (display "\\hrule\n"))
- (output (markup-body n) e)
- (if (markup-option n :vill) (display "\\vfill\n"))
- (display "\\end{slide}\n\n\n"))
- ;; advi record
- (define (advi-record n e)
- (display "\\advirecord")
- (when (markup-option n :play) (display "[play]"))
- (printf "{~a}{" (markup-option n :tag))
- (output (markup-body n) e)
- (display "}"))
- ;; advi play
- (define (advi-play n e)
- (display "\\adviplay")
- (let ((c (markup-option n :color)))
- (when c
- (display "[")
- (display (skribe-get-latex-color c))
- (display "]")))
- (printf "{~a}" (markup-option n :tag)))
- ;; advi play*
- (define (advi-play* n e)
- (let ((c (skribe-get-latex-color (markup-option n :color)))
- (d (skribe-get-latex-color (markup-option n :scolor))))
- (let loop ((lbls (markup-body n))
- (last #f))
- (when last
- (display "\\adviplay[")
- (display d)
- (printf "]{~a}" last))
- (when (pair? lbls)
- (let ((lbl (car lbls)))
- (match-case lbl
- ((?id ?col)
- (display "\\adviplay[")
- (display (skribe-get-latex-color col))
- (printf "]{" ~a "}" id)
- (skribe-eval (slide-pause) e)
- (loop (cdr lbls) id))
- (else
- (display "\\adviplay[")
- (display c)
- (printf "]{~a}" lbl)
- (skribe-eval (slide-pause) e)
- (loop (cdr lbls) lbl))))))))
- (engine-custom-set! le 'documentclass
- "\\documentclass{seminar}\n")
- (let ((o (engine-custom le 'predocument)))
- (engine-custom-set! le 'predocument
- (if (string? o)
- (string-append &slide-seminar-predocument o)
- &slide-seminar-predocument)))
- (engine-custom-set! le 'maketitle
- &slide-seminar-maketitle)
- (engine-custom-set! le 'usepackage
- (string-append "\\usepackage{advi}\n"
- (engine-custom le 'usepackage)))
- ;; slide
- (set! &latex-slide advi-slide)
- (set! &latex-pause
- (lambda (n e) (display "\\adviwait\n")))
- (set! &latex-embed
- (lambda (n e)
- (let ((geometry-opt (markup-option n :geometry-opt))
- (geometry (markup-option n :geometry))
- (rgeometry (markup-option n :rgeometry))
- (transient (markup-option n :transient))
- (transient-opt (markup-option n :transient-opt))
- (cmd (markup-option n :command)))
- (let* ((a (string-append "ephemeral="
- (symbol->string (gensym))))
- (c (cond
- (geometry
- (string-append cmd " "
- geometry-opt " "
- geometry))
- (rgeometry
- (multiple-value-bind (aopt dopt)
- (advi-geometry rgeometry)
- (set! a (string-append a "," aopt))
- (string-append cmd " "
- geometry-opt " "
- dopt)))
- (else
- cmd)))
- (c (if (and transient transient-opt)
- (string-append c " " transient-opt " !p")
- c)))
- (printf "\\adviembed[~a]{~a}\n" a c)))))
- (set! &latex-record advi-record)
- (set! &latex-play advi-play)
- (set! &latex-play* advi-play*)))
-
-;*---------------------------------------------------------------------*/
-;* %slide-prosper-setup! ... */
-;*---------------------------------------------------------------------*/
-(define (%slide-prosper-setup!)
- (skribe-message "Generating `Prosper' slides...\n")
- (let ((le (find-engine 'latex))
- (be (find-engine 'base))
- (overlay-count 0))
- ;; transitions
- (define (prosper-transition trans)
- (cond
- ((string? trans)
- (printf "[~s]" trans))
- ((eq? trans 'slide)
- (printf "[Blinds]"))
- ((and (symbol? trans)
- (memq trans '(split blinds box wipe dissolve glitter)))
- (printf "[~s]"
- (string-upcase (symbol->string trans))))
- (else
- #f)))
- ;; latex configuration
- (define (prosper-slide n e)
- (let* ((i (markup-option n :image))
- (t (markup-option n :title))
- (lt (markup-option n :transition))
- (gt (engine-custom e 'transition))
- (pa (search-down (lambda (x) (is-markup? x 'slide-pause)) n))
- (lpa (length pa)))
- (set! overlay-count 1)
- (if (>= lpa 1) (printf "\\overlays{~a}{%\n" (+ 1 lpa)))
- (display "\\begin{slide}")
- (prosper-transition (or lt gt))
- (display "{")
- (output t e)
- (display "}\n")
- (output (markup-body n) e)
- (display "\\end{slide}\n")
- (if (>= lpa 1) (display "}\n"))
- (newline)
- (newline)))
- (engine-custom-set! le 'documentclass "\\documentclass[pdf,skribe,slideColor,nototal]{prosper}\n")
- (let* ((cap (engine-custom le 'slide-caption))
- (o (engine-custom le 'predocument))
- (n (if (string? cap)
- (format "~a\\slideCaption{~a}\n"
- &slide-prosper-predocument
- cap)
- &slide-prosper-predocument)))
- (engine-custom-set! le 'predocument
- (if (string? o) (string-append n o) n)))
- (engine-custom-set! le 'hyperref-usepackage "\\usepackage{hyperref}\n")
- ;; writers
- (set! &latex-slide prosper-slide)
- (set! &latex-pause
- (lambda (n e)
- (set! overlay-count (+ 1 overlay-count))
- (printf "\\FromSlide{~s}%\n" overlay-count)))))
-
-;*---------------------------------------------------------------------*/
-;* Setup ... */
-;*---------------------------------------------------------------------*/
-(let* ((opt &slide-load-options)
- (p (memq :prosper opt)))
- (if (and (pair? p) (pair? (cdr p)) (cadr p))
- ;; prosper
- (set! %slide-latex-mode 'prosper)
- (let ((a (memq :advi opt)))
- (if (and (pair? a) (pair? (cdr a)) (cadr a))
- ;; advi
- (set! %slide-latex-mode 'advi)))))
-
diff --git a/skr/web-article.skr b/skr/web-article.skr
deleted file mode 100644
index e33328b..0000000
--- a/skr/web-article.skr
+++ /dev/null
@@ -1,230 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/skr/web-article.skr */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Sat Jan 10 09:09:43 2004 */
-;* Last change : Wed Mar 24 16:45:08 2004 (serrano) */
-;* Copyright : 2004 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* A Skribe style for producing web articles */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* &web-article-load-options ... */
-;*---------------------------------------------------------------------*/
-(define &web-article-load-options (skribe-load-options))
-
-;*---------------------------------------------------------------------*/
-;* web-article-body-width ... */
-;*---------------------------------------------------------------------*/
-(define (web-article-body-width e)
- (let ((w (engine-custom e 'body-width)))
- (if (or (number? w) (string? w)) w 98.)))
-
-;*---------------------------------------------------------------------*/
-;* html-document-title-web ... */
-;*---------------------------------------------------------------------*/
-(define (html-document-title-web n e)
- (let* ((title (markup-body n))
- (authors (markup-option n 'author))
- (tbg (engine-custom e 'title-background))
- (tfg (engine-custom e 'title-foreground))
- (tfont (engine-custom e 'title-font)))
- (printf "\n"
- (html-width (web-article-body-width e)))
- (if (string? tbg)
- (printf "| " tbg)
- (display " | "))
- (if (string? tfg)
- (printf "" tfg))
- (if title
- (begin
- (display "")
- (if (string? tfont)
- (begin
- (printf "" tfont)
- (output title e)
- (display ""))
- (begin
- (printf "")
- (output title e)
- (display "")))
- (display "\n")))
- (if (not authors)
- (display "\n")
- (html-title-authors authors e))
- (if (string? tfg)
- (display ""))
- (display " |
\n")))
-
-;*---------------------------------------------------------------------*/
-;* web-article-css-document-title ... */
-;*---------------------------------------------------------------------*/
-(define (web-article-css-document-title n e)
- (let* ((title (markup-body n))
- (authors (markup-option n 'author))
- (id (markup-ident n)))
- ;; the title
- (printf "\n"
- (string-canonicalize id))
- (output title e)
- (display "
\n")
- ;; the authors
- (printf "\n"
- (string-canonicalize id))
- (for-each (lambda (a) (output a e))
- (cond
- ((is-markup? authors 'author)
- (list authors))
- ((list? authors)
- authors)
- (else
- '())))
- (display "
\n")))
-
-;*---------------------------------------------------------------------*/
-;* web-article-css-author ... */
-;*---------------------------------------------------------------------*/
-(define (web-article-css-author n e)
- (let ((name (markup-option n :name))
- (title (markup-option n :title))
- (affiliation (markup-option n :affiliation))
- (email (markup-option n :email))
- (url (markup-option n :url))
- (address (markup-option n :address))
- (phone (markup-option n :phone))
- (nfn (engine-custom e 'author-font))
- (align (markup-option n :align)))
- (when name
- (printf ""
- (string-canonicalize (markup-ident n)))
- (output name e)
- (display "\n"))
- (when title
- (printf ""
- (string-canonicalize (markup-ident n)))
- (output title e)
- (display "\n"))
- (when affiliation
- (printf ""
- (string-canonicalize (markup-ident n)))
- (output affiliation e)
- (display "\n"))
- (when (pair? address)
- (printf ""
- (string-canonicalize (markup-ident n)))
- (for-each (lambda (a)
- (output a e)
- (newline))
- address)
- (display "\n"))
- (when phone
- (printf ""
- (string-canonicalize (markup-ident n)))
- (output phone e)
- (display "\n"))
- (when email
- (printf ""
- (string-canonicalize (markup-ident n)))
- (output email e)
- (display "\n"))
- (when url
- (printf ""
- (string-canonicalize (markup-ident n)))
- (output url e)
- (display "\n"))))
-
-;*---------------------------------------------------------------------*/
-;* HTML settings */
-;*---------------------------------------------------------------------*/
-(define (web-article-modern-setup he)
- (let ((sec (markup-writer-get 'section he))
- (ft (markup-writer-get '&html-footnotes he)))
- ;; &html-document-title
- (markup-writer '&html-document-title he
- :action html-document-title-web)
- ;; section
- (markup-writer 'section he
- :options 'all
- :before "
"
- :action (lambda (n e)
- (let ((e1 (make-engine 'html-web :delegate e))
- (bg (engine-custom he 'section-background)))
- (markup-writer 'section e1
- :options 'all
- :action (lambda (n e2) (output n e sec)))
- (skribe-eval
- (center (color :width (web-article-body-width e)
- :margin 5 :bg bg n))
- e1))))
- ;; &html-footnotes
- (markup-writer '&html-footnotes he
- :options 'all
- :before "
"
- :action (lambda (n e)
- (let ((e1 (make-engine 'html-web :delegate e))
- (bg (engine-custom he 'section-background))
- (fg (engine-custom he 'subsection-title-foreground)))
- (markup-writer '&html-footnotes e1
- :options 'all
- :action (lambda (n e2)
- (invoke (writer-action ft) n e)))
- (skribe-eval
- (center (color :width (web-article-body-width e)
- :margin 5 :bg bg :fg fg n))
- e1))))))
-
-;*---------------------------------------------------------------------*/
-;* web-article-css-setup ... */
-;*---------------------------------------------------------------------*/
-(define (web-article-css-setup he)
- (let ((sec (markup-writer-get 'section he))
- (ft (markup-writer-get '&html-footnotes he)))
- ;; &html-document-title
- (markup-writer '&html-document-title he
- :before (lambda (n e)
- (printf "\n"
- (string-canonicalize (markup-ident n))))
- :action web-article-css-document-title
- :after "
\n")
- ;; author
- (markup-writer 'author he
- :options '(:name :title :affiliation :email :url :address :phone :photo :align)
- :before (lambda (n e)
- (printf "\n"
- (string-canonicalize (markup-ident n))))
- :action web-article-css-author
- :after ""
- (string-canonicalize (markup-ident n))))
- :action (lambda (n e) (output n e sec))
- :after "\n")
- ;; &html-footnotes
- (markup-writer '&html-footnotes he
- :options 'all
- :before (lambda (n e)
- (printf "\n")))
-
-;*---------------------------------------------------------------------*/
-;* Setup ... */
-;*---------------------------------------------------------------------*/
-(let* ((opt &web-article-load-options)
- (p (memq :style opt))
- (css (memq :css opt))
- (he (find-engine 'html)))
- (cond
- ((and (pair? p) (pair? (cdr p)) (eq? (cadr p) 'css))
- (web-article-css-setup he))
- ((and (pair? css) (pair? (cdr css)) (string? (cadr css)))
- (engine-custom-set! he 'css (cadr css))
- (web-article-css-setup he))
- (else
- (web-article-modern-setup he))))
diff --git a/skr/web-book.skr b/skr/web-book.skr
deleted file mode 100644
index f907c8b..0000000
--- a/skr/web-book.skr
+++ /dev/null
@@ -1,107 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/skr/web-book.skr */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Mon Sep 1 10:54:32 2003 */
-;* Last change : Mon Nov 8 10:43:46 2004 (eg) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The Skribe web book style. */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* html customization */
-;*---------------------------------------------------------------------*/
-(define he (find-engine 'html))
-(engine-custom-set! he 'main-browsing-extra #f)
-(engine-custom-set! he 'chapter-file #t)
-
-;*---------------------------------------------------------------------*/
-;* main-browsing ... */
-;*---------------------------------------------------------------------*/
-(define main-browsing
- (lambda (n e)
- ;; search the document
- (let ((p (ast-document n)))
- (cond
- ((document? p)
- ;; got it
- (let* ((mt (markup-option p :margin-title))
- (r (ref :handle (handle p)
- :text (or mt (markup-option p :title))))
- (fx (engine-custom e 'web-book-main-browsing-extra)))
- (center
- (table :width 97. :border 1 :frame 'box
- :cellpadding 0 :cellspacing 0
- (tr :bg (engine-custom e 'title-background)
- (th (color :fg (engine-custom e 'background)
- (bold "main page"))))
- (tr :bg (engine-custom e 'background)
- (td (apply table :width 100. :border 0
- (tr (td :align 'left
- :valign 'top
- (bold "top:"))
- (td :align 'right
- :valign 'top r))
- (if (procedure? fx)
- (list (tr (td :width 100.
- :colspan 2
- (fx n e))))
- '()))))))))
- ((not p)
- ;; no document!!!
- #f)))))
-
-;*---------------------------------------------------------------------*/
-;* chapter-browsing ... */
-;*---------------------------------------------------------------------*/
-(define chapter-browsing
- (lambda (n e)
- (center
- (table :width 97. :border 1 :frame 'box
- :cellpadding 0 :cellspacing 0
- (tr :bg (engine-custom e 'title-background)
- (th (color :fg (engine-custom e 'background)
- (bold (markup-option n :title)))))
- (tr :bg (engine-custom e 'background)
- (td (toc (handle n) :chapter #t :section #t :subsection #t)))))))
-
-;*---------------------------------------------------------------------*/
-;* document-browsing ... */
-;*---------------------------------------------------------------------*/
-(define document-browsing
- (lambda (n e)
- (let ((chap (find1-down (lambda (n)
- (is-markup? n 'chapter))
- n)))
- (center
- (table :width 97. :border 1 :frame 'box
- :cellpadding 0 :cellspacing 0
- (tr :bg (engine-custom e 'title-background)
- (th (color :fg (engine-custom e 'background)
- (bold (if chap "Chapters" "Sections")))))
- (tr :bg (engine-custom e 'background)
- (td (if chap
- (toc (handle n) :chapter #t :section #f)
- (toc (handle n) :section #t :subsection #t)))))))))
-
-;*---------------------------------------------------------------------*/
-;* left margin ... */
-;*---------------------------------------------------------------------*/
-(engine-custom-set! he 'left-margin-size 20.)
-
-(engine-custom-set! he 'left-margin
- (lambda (n e)
- (let ((d (ast-document n))
- (c (ast-chapter n)))
- (list (linebreak 1)
- (main-browsing n e)
- (if (is-markup? c 'chapter)
- (list (linebreak 2)
- (chapter-browsing c e))
- #f)
- (if (document? d)
- (list (linebreak 2)
- (document-browsing d e))
- #f)))))
-
diff --git a/skribe.prj b/skribe.prj
deleted file mode 100644
index 1539075..0000000
--- a/skribe.prj
+++ /dev/null
@@ -1,332 +0,0 @@
-;; -*- Prcs -*-
-(Created-By-Prcs-Version 1 3 3)
-(Project-Description "")
-(Project-Version skribe 1.2d 2)
-(Parent-Version skribe 1.2d 1)
-(Version-Log "")
-(New-Version-Log "")
-(Checkin-Time "Fri, 03 Jun 2005 16:52:04 +0200")
-(Checkin-Login serrano)
-(Populate-Ignore ("\\.o$" "\\~$" "\\.log$" "\\.ps$" "\\.aux$" "\\.date_of_backup$" "\\.so$" "\\.a$" "if_not_there$" "if_mach$" "threadlibs$"))
-(Project-Keywords)
-(Files
-;; This is a comment. Fill in files here.
-;; For example: (prcs/checkout.cc ())
-
-;; Files added by populate at Thu, 18 Dec 2003 10:00:47 +0100,
-;; to version 0.0(w), by serrano:
-
- (tools/Makefile (skribe/10_Makefile 1.3 640))
- (src/stklos/xml.stk (skribe/11_xml.stk 1.2 644))
- (src/stklos/writer.stk (skribe/12_writer.stk 1.3 644))
- (src/stklos/verify.stk (skribe/13_verify.stk 1.4 644))
- (src/stklos/vars.stk (skribe/14_vars.stk 1.3 644))
- (src/stklos/types.stk (skribe/16_types.stk 1.4 644))
- (src/stklos/source.stk (skribe/17_source.stk 1.3 644))
- (src/stklos/runtime.stk (skribe/18_runtime.st 1.4 644))
- (src/stklos/resolve.stk (skribe/19_resolve.st 1.2 644))
- (src/stklos/reader.stk (skribe/20_reader.stk 1.2 644))
- (src/stklos/prog.stk (skribe/21_prog.stk 1.1 644))
- (src/stklos/output.stk (skribe/22_output.stk 1.3 644))
- (src/stklos/main.stk (skribe/23_main.stk 1.3 644))
- (src/stklos/lisp.stk (skribe/24_lisp.stk 1.4 644))
- (src/stklos/lib.stk (skribe/25_lib.stk 1.4 644))
- (src/stklos/eval.stk (skribe/26_eval.stk 1.4 644))
- (src/stklos/engine.stk (skribe/27_engine.stk 1.4 644))
- (src/stklos/debug.stk (skribe/28_debug.stk 1.3 644))
- (src/stklos/color.stk (skribe/29_color.stk 1.2 644))
- (src/stklos/biblio.stk (skribe/30_biblio.stk 1.3 644))
- (src/stklos/Makefile.in (skribe/31_Makefile.i 1.3 644))
- (src/common/param.scm (skribe/32_param.scm 1.2 640))
- (src/common/lib.scm (skribe/33_lib.scm 1.4 640))
- (src/common/index.scm (skribe/34_index.scm 1.2 640))
- (src/common/configure.scm.in (skribe/35_configure. 1.3 640))
- (src/common/bib.scm (skribe/36_bib.scm 1.2 640))
- (src/common/api.scm (skribe/37_api.scm 1.9 640))
- (src/bigloo/xml.scm (skribe/38_xml.scm 1.3 640))
- (src/bigloo/writer.scm (skribe/39_writer.scm 1.3 640))
- (src/bigloo/verify.scm (skribe/40_verify.scm 1.6 640))
- (src/bigloo/types.scm (skribe/42_types.scm 1.6 640))
- (src/bigloo/source.scm (skribe/43_source.scm 1.5 640))
- (src/bigloo/resolve.scm (skribe/44_resolve.sc 1.4 640))
- (src/bigloo/read.scm (skribe/45_read.scm 1.2 640))
- (src/bigloo/prog.scm (skribe/46_prog.scm 1.3 640))
- (src/bigloo/param.bgl (skribe/48_param.bgl 1.4 640))
- (src/bigloo/output.scm (skribe/49_output.scm 1.3 640))
- (src/bigloo/new.sch (skribe/50_new.sch 1.1 640))
- (src/bigloo/main.scm (skribe/51_main.scm 1.4 640))
- (src/bigloo/lisp.scm (skribe/b/0_lisp.scm 1.5 640))
- (src/bigloo/lib.bgl (skribe/b/1_lib.bgl 1.5 640))
- (src/bigloo/index.bgl (skribe/b/2_index.bgl 1.2 640))
- (src/bigloo/evapi.scm (skribe/b/3_evapi.scm 1.6 640))
- (src/bigloo/eval.scm (skribe/b/4_eval.scm 1.7 640))
- (src/bigloo/engine.scm (skribe/b/5_engine.scm 1.4 640))
- (src/bigloo/debug.scm (skribe/b/6_debug.scm 1.2 640))
- (src/bigloo/debug.sch (skribe/b/7_debug.sch 1.2 640))
- (src/bigloo/configure.bgl (skribe/b/8_configure. 1.3 640))
- (src/bigloo/color.scm (skribe/b/9_color.scm 1.2 640))
- (src/bigloo/c.scm (skribe/b/10_c.scm 1.4 640))
- (src/bigloo/bib.bgl (skribe/b/11_bib.bgl 1.4 640))
- (src/bigloo/api.sch (skribe/b/12_api.sch 1.5 640))
- (src/bigloo/api.bgl (skribe/b/13_api.bgl 1.2 640))
- (src/bigloo/Makefile (skribe/b/14_Makefile 1.6 640))
- (src/Makefile (skribe/b/15_Makefile 1.2 640))
- (skr/xml.skr (skribe/b/16_xml.skr 1.2 640))
- (skr/web-book.skr (skribe/b/17_web-book.s 1.5 640))
- (skr/slide.skr (skribe/b/19_slide.skr 1.6 640))
- (skr/skribe.skr (skribe/b/20_skribe.skr 1.4 640))
- (skr/scribe.skr (skribe/b/21_scribe.skr 1.1 640))
- (skr/lncs.skr (skribe/b/22_lncs.skr 1.2 640))
- (skr/letter.skr (skribe/b/23_letter.skr 1.3 640))
- (skr/latex.skr (skribe/b/24_latex.skr 1.6 640))
- (skr/jfp.skr (skribe/b/25_jfp.skr 1.4 640))
- (skr/html.skr (skribe/b/26_html.skr 1.8 640))
- (skr/french.skr (skribe/b/27_french.skr 1.1 640))
- (skr/base.skr (skribe/b/28_base.skr 1.6 640))
- (skr/acmproc.skr (skribe/b/29_acmproc.sk 1.4 640))
- (skr/Makefile (skribe/b/30_Makefile 1.6 640))
- (examples/slide/skr/local.skr (skribe/b/34_local.skr 1.1 640))
- (examples/slide/skb/slides.skb (skribe/b/35_slides.skb 1.1 640))
- (examples/slide/ex/syntax.scr (skribe/b/36_syntax.scr 1.1 640))
- (examples/slide/ex/skribe.skb (skribe/b/37_skribe.skb 1.1 640))
- (examples/slide/advi.sty (skribe/b/38_advi.sty 1.1 640))
- (examples/slide/README (skribe/b/39_README 1.1 640))
- (examples/slide/PPRskribe.sty (skribe/b/40_PPRskribe. 1.1 640))
- (examples/slide/Makefile (skribe/b/41_Makefile 1.1 640))
- (examples/Makefile (skribe/b/42_Makefile 1.2 640))
- (etc/stklos/configure.in (skribe/b/43_configure. 1.2 640))
- (etc/stklos/configure (skribe/b/44_configure 1.2 751))
- (etc/stklos/Makefile.skb.in (skribe/b/45_Makefile.s 1.1 644))
- (etc/stklos/Makefile.in (skribe/b/46_Makefile.i 1.1 640))
- (etc/stklos/Makefile.config.in (skribe/b/47_Makefile.c 1.1 644))
- (etc/skribe-config.in (skribe/b/48_skribe-con 1.2 644))
- (etc/bigloo/configure (skribe/b/49_configure 1.6 740))
- (etc/bigloo/autoconf/gmaketest (skribe/b/50_gmaketest 1.1 750))
- (etc/bigloo/autoconf/getbversion (skribe/b/51_getbversio 1.1 750))
- (etc/bigloo/autoconf/bversion (skribe/c/0_bversion 1.1 750))
- (etc/bigloo/autoconf/blibdir (skribe/c/1_blibdir 1.1 750))
- (etc/bigloo/autoconf/bfildir (skribe/c/2_bfildir 1.1 750))
- (etc/bigloo/autoconf/Makefile (skribe/c/3_Makefile 1.1 640))
- (etc/bigloo/Makefile.tpl (skribe/c/4_Makefile.t 1.3 640))
- (etc/bigloo/Makefile (skribe/c/5_Makefile 1.4 640))
- (etc/Makefile (skribe/c/6_Makefile 1.3 640))
- (emacs/skribe.el.in (skribe/c/7_skribe.el. 1.6 640))
- (emacs/Makefile (skribe/c/8_Makefile 1.2 640))
- (doc/user/user.skb (skribe/c/9_user.skb 1.5 640))
- (doc/user/toc.skb (skribe/c/10_toc.skb 1.1 640))
- (doc/user/table.skb (skribe/c/11_table.skb 1.4 640))
- (doc/user/syntax.skb (skribe/c/12_syntax.skb 1.3 640))
- (doc/user/start.skb (skribe/c/13_start.skb 1.3 640))
- (doc/user/src/start5.skb (skribe/c/14_start5.skb 1.1 644))
- (doc/user/src/start4.skb (skribe/c/15_start4.skb 1.1 640))
- (doc/user/src/start3.skb (skribe/c/16_start3.skb 1.1 640))
- (doc/user/src/start2.skb (skribe/c/17_start2.skb 1.1 640))
- (doc/user/src/start1.skb (skribe/c/18_start1.skb 1.1 640))
- (doc/user/src/prgm3.skb (skribe/c/19_prgm3.skb 1.2 640))
- (doc/user/src/prgm2.skb (skribe/c/20_prgm2.skb 1.2 640))
- (doc/user/src/prgm1.skb (skribe/c/21_prgm1.skb 1.1 640))
- (doc/user/src/links2.skb (skribe/c/22_links2.skb 1.1 640))
- (doc/user/src/links1.skb (skribe/c/23_links1.skb 1.1 640))
- (doc/user/src/index3.skb (skribe/c/24_index3.skb 1.1 640))
- (doc/user/src/index2.skb (skribe/c/25_index2.skb 1.1 640))
- (doc/user/src/index1.skb (skribe/c/26_index1.skb 1.1 640))
- (doc/user/src/bib6.skb (skribe/c/27_bib6.skb 1.1 640))
- (doc/user/src/bib5.skb (skribe/c/28_bib5.skb 1.1 640))
- (doc/user/src/bib4.skb (skribe/c/29_bib4.skb 1.1 640))
- (doc/user/src/bib3.skb (skribe/c/30_bib3.skb 1.1 640))
- (doc/user/src/bib2.skb (skribe/c/31_bib2.skb 1.1 640))
- (doc/user/src/bib1.sbib (skribe/c/32_bib1.sbib 1.1 640))
- (doc/user/src/api9.skb (skribe/c/33_api9.skb 1.1 640))
- (doc/user/src/api8.skb (skribe/c/34_api8.skb 1.1 640))
- (doc/user/src/api7.skb (skribe/c/35_api7.skb 1.1 640))
- (doc/user/src/api6.skb (skribe/c/36_api6.skb 1.1 640))
- (doc/user/src/api5.skb (skribe/c/37_api5.skb 1.1 640))
- (doc/user/src/api4.skb (skribe/c/38_api4.skb 1.1 640))
- (doc/user/src/api3.skb (skribe/c/39_api3.skb 1.1 640))
- (doc/user/src/api20.skb (skribe/c/40_api20.skb 1.3 640))
- (doc/user/src/api2.skb (skribe/c/41_api2.skb 1.1 640))
- (doc/user/src/api19.skb (skribe/c/42_api19.skb 1.1 640))
- (doc/user/src/api18.skb (skribe/c/43_api18.skb 1.1 640))
- (doc/user/src/api17.skb (skribe/c/44_api17.skb 1.2 640))
- (doc/user/src/api16.skb (skribe/c/45_api16.skb 1.1 640))
- (doc/user/src/api15.skb (skribe/c/46_api15.skb 1.1 640))
- (doc/user/src/api14.skb (skribe/c/47_api14.skb 1.1 640))
- (doc/user/src/api13.skb (skribe/c/48_api13.skb 1.3 640))
- (doc/user/src/api12.skb (skribe/c/49_api12.skb 1.1 640))
- (doc/user/src/api11.skb (skribe/c/50_api11.skb 1.1 640))
- (doc/user/src/api10.skb (skribe/c/51_api10.skb 1.2 640))
- (doc/user/src/api1.skb (skribe/d/0_api1.skb 1.1 640))
- (doc/user/skribeinfo.skb (skribe/d/1_skribeinfo 1.1 640))
- (doc/user/skribec.skb (skribe/d/2_skribec.sk 1.3 640))
- (doc/user/sectioning.skb (skribe/d/3_sectioning 1.3 640))
- (doc/user/prgm.skb (skribe/d/4_prgm.skb 1.4 640))
- (doc/user/ornament.skb (skribe/d/5_ornament.s 1.1 640))
- (doc/user/markup.skb (skribe/d/6_markup.skb 1.2 640))
- (doc/user/links.skb (skribe/d/7_links.skb 1.5 640))
- (doc/user/line.skb (skribe/d/8_line.skb 1.1 640))
- (doc/user/lib.skb (skribe/d/9_lib.skb 1.3 644))
- (doc/user/latexe.skb (skribe/d/10_latexe.skb 1.4 640))
- (doc/user/justify.skb (skribe/d/11_justify.sk 1.1 640))
- (doc/user/index.skb (skribe/d/12_index.skb 1.4 640))
- (doc/user/image.skb (skribe/d/13_image.skb 1.3 640))
- (doc/user/htmle.skb (skribe/d/14_htmle.skb 1.6 640))
- (doc/user/footnote.skb (skribe/d/15_footnote.s 1.1 640))
- (doc/user/font.skb (skribe/d/16_font.skb 1.1 640))
- (doc/user/figure.skb (skribe/d/17_figure.skb 1.1 640))
- (doc/user/examples.skb (skribe/d/18_examples.s 1.2 640))
- (doc/user/enumeration.skb (skribe/d/19_enumeratio 1.1 640))
- (doc/user/engine.skb (skribe/d/20_engine.skb 1.4 640))
- (doc/user/emacs.skb (skribe/d/21_emacs.skb 1.3 640))
- (doc/user/document.skb (skribe/d/22_document.s 1.2 640))
- (doc/user/colframe.skb (skribe/d/23_colframe.s 1.3 640))
- (doc/user/char.skb (skribe/d/24_char.skb 1.2 640))
- (doc/user/bib.skb (skribe/d/25_bib.skb 1.5 640))
- (doc/img/linux.gif (skribe/d/29_linux.gif 1.2 640) :no-keywords)
- (doc/img/lambda.gif (skribe/d/30_lambda.gif 1.1 640) :no-keywords)
- (doc/img/bsd.gif (skribe/d/31_bsd.gif 1.1 640) :no-keywords)
- (doc/Makefile (skribe/d/32_Makefile 1.6 640))
- (configure (skribe/d/33_configure 1.5 750))
- (README.java (skribe/d/34_README.jav 1.2 640))
- (README (skribe/d/35_README 1.1 640))
- (LICENSE (skribe/d/36_LICENSE 1.2 640))
- (INSTALL (skribe/d/37_INSTALL 1.2 640))
- (Makefile (skribe/d/38_Makefile 1.5 640))
-
-;; Files added by populate at Sat, 17 Jan 2004 08:29:33 +0100,
-;; to version 1.0b.1(w), by serrano:
-
- (src/common/sui.scm (skribe/d/39_sui.scm 1.2 640))
- (src/bigloo/sui.bgl (skribe/d/40_sui.bgl 1.1 640))
- (etc/ChangeLog (skribe/d/41_ChangeLog 1.11 640))
- (doc/user/src/slides.skb (skribe/d/42_slides.skb 1.2 640))
- (doc/user/slide.skb (skribe/d/43_slide.skb 1.4 640))
- (doc/user/skribe-config.skb (skribe/d/44_skribe-con 1.2 640))
- (doc/skr/manual.skr (skribe/d/45_manual.skr 1.3 640))
- (doc/skr/extension.skr (skribe/d/46_extension. 1.1 640))
- (doc/skr/env.skr (skribe/d/47_env.skr 1.2 640))
- (doc/skr/api.skr (skribe/d/48_api.skr 1.5 640))
- (doc/dir/dir.skb (skribe/d/49_dir.skb 1.1 640))
- (doc/Makefile.dir (skribe/d/50_Makefile.d 1.2 640))
-
-;; Files added by populate at Sun, 18 Jan 2004 12:46:07 +0100,
-;; to version 1.0b.4(w), by serrano:
-
- (src/bigloo/asm.scm (skribe/d/51_asm.scm 1.2 640))
-
-;; Files added by populate at Wed, 18 Feb 2004 21:22:35 +0100,
-;; to version 1.0b.5(w), by serrano:
-
- (src/stklos/xml-lex.l (skribe/e/0_xml-lex.l 1.1 644))
- (src/stklos/configure.stk (skribe/e/1_configure. 1.1 644))
- (doc/user/xmle.skb (skribe/e/2_xmle.skb 1.2 640))
- (contribs/tools/skribeinfo/src/Makefile (skribe/e/3_Makefile 1.2 640))
- (contribs/tools/skribeinfo/skr/skribeinfo.skr (skribe/e/4_skribeinfo 1.1 640))
- (contribs/tools/skribeinfo/doc/pckg/skribeinfo.skb (skribe/e/5_skribeinfo 1.1 640))
- (contribs/tools/skribeinfo/configure (skribe/e/6_configure 1.2 750))
- (contribs/tools/skribeinfo/README (skribe/e/7_README 1.2 640))
- (contribs/tools/skribeinfo/Makefile.in (skribe/e/8_Makefile.i 1.3 640))
- (contribs/tools/Makefile (skribe/e/9_Makefile 1.3 640))
- (contribs/ext/bc-table/src/skribebctable.scm (skribe/e/10_skribebcta 1.2 640))
- (contribs/ext/bc-table/src/example.bc (skribe/e/11_example.bc 1.1 640))
- (contribs/ext/bc-table/src/Makefile (skribe/e/12_Makefile 1.2 640))
- (contribs/ext/bc-table/skr/bc-table.skr (skribe/e/13_bc-table.s 1.4 640))
- (contribs/ext/bc-table/example/example.skb (skribe/e/14_example.sk 1.2 640))
- (contribs/ext/bc-table/doc/pckg/bc-table.skb (skribe/e/15_bc-table.s 1.2 640))
- (contribs/ext/bc-table/configure (skribe/e/16_configure 1.2 750))
- (contribs/ext/bc-table/README (skribe/e/17_README 1.1 640))
- (contribs/ext/bc-table/Makefile.in (skribe/e/18_Makefile.i 1.2 640))
- (contribs/ext/Makefile (skribe/e/19_Makefile 1.3 640))
- (contribs/Makefile (skribe/e/20_Makefile 1.1 640))
-
-;; Files added by populate at Wed, 18 Feb 2004 21:24:57 +0100,
-;; to version 1.0b.6(w), by serrano:
-
- (contribs/ext/longtable/skr/longtable.skr (skribe/e/21_longtable. 1.1 640))
- (contribs/ext/longtable/example/example.skb (skribe/e/22_example.sk 1.1 640))
- (contribs/ext/longtable/doc/pckg/longtable.skb (skribe/e/23_longtable. 1.1 640))
- (contribs/ext/longtable/configure (skribe/e/24_configure 1.2 750))
- (contribs/ext/longtable/README (skribe/e/25_README 1.1 640))
- (contribs/ext/longtable/Makefile.in (skribe/e/26_Makefile.i 1.3 640))
-
-;; Files added by populate at Sat, 21 Feb 2004 10:39:55 +0100,
-;; to version 1.0b.8(w), by serrano:
-
- (doc/user/package.skb (skribe/e/27_package.sk 1.3 640))
- (contribs/tools/skribeinfo/example/example.skb (skribe/e/28_example.sk 1.2 640))
- (contribs/ext/html-navbar/skr/html-navbar.skr (skribe/e/29_html-navba 1.2 640))
- (contribs/ext/html-navbar/example/example.skb (skribe/e/30_example.sk 1.2 640))
- (contribs/ext/html-navbar/doc/pckg/html-navbar.skb (skribe/e/31_html-navba 1.2 640))
- (contribs/ext/html-navbar/configure (skribe/e/32_configure 1.1 750))
- (contribs/ext/html-navbar/README (skribe/e/33_README 1.1 640))
- (contribs/ext/html-navbar/Makefile.in (skribe/e/34_Makefile.i 1.2 640))
- (contribs/ext/html-gui/skr/html-gui.skr (skribe/e/35_html-gui.s 1.3 640))
- (contribs/ext/html-gui/example/example.skb (skribe/e/36_example.sk 1.2 640))
- (contribs/ext/html-gui/doc/pckg/html-gui.skb (skribe/e/37_html-gui.s 1.2 640))
- (contribs/ext/html-gui/configure (skribe/e/38_configure 1.2 755))
- (contribs/ext/html-gui/README (skribe/e/39_README 1.1 640))
- (contribs/ext/html-gui/Makefile.in (skribe/e/40_Makefile.i 1.2 640))
-
-;; Files added by populate at Wed, 19 May 2004 14:41:48 +0200,
-;; to version 1.0b.9(w), by serrano:
-
- (src/stklos/lisp-lex.l (skribe/e/41_lisp-lex.l 1.2 644))
- (src/stklos/c.stk (skribe/e/42_c.stk 1.1 644))
- (src/stklos/c-lex.l (skribe/e/43_c-lex.l 1.1 644))
- (skr/web-article.skr (skribe/e/44_web-articl 1.1 640))
- (skr/html4.skr (skribe/e/45_html4.skr 1.1 644))
- (contribs/tools/skribeinfo/CONTRIB.skb (skribe/e/46_CONTRIB.sk 1.1 640))
- (contribs/tools/skribecolsel/src/skribecolsel.scm (skribe/e/47_skribecols 1.1 640))
- (contribs/tools/skribecolsel/src/Makefile (skribe/e/48_Makefile 1.1 640))
- (contribs/tools/skribecolsel/emacs/skribecolsel.el (skribe/e/49_skribecols 1.1 640))
- (contribs/tools/skribecolsel/configure (skribe/e/50_configure 1.1 750))
- (contribs/tools/skribecolsel/README (skribe/e/51_README 1.1 640))
- (contribs/tools/skribecolsel/Makefile.in (skribe/f/0_Makefile.i 1.1 640))
- (contribs/tools/skribecolsel/CONTRIB.skb (skribe/f/1_CONTRIB.sk 1.1 640))
- (contribs/ext/longtable/CONTRIB.skb (skribe/f/2_CONTRIB.sk 1.1 640))
- (contribs/ext/js-tricks/skr/js-tricks.skr (skribe/f/3_js-tricks. 1.1 640))
- (contribs/ext/js-tricks/example/example.skb (skribe/f/4_example.sk 1.2 640))
- (contribs/ext/js-tricks/doc/pckg/js-tricks.skb (skribe/f/5_js-tricks. 1.1 640))
- (contribs/ext/js-tricks/configure (skribe/f/6_configure 1.1 750))
- (contribs/ext/js-tricks/README (skribe/f/7_README 1.1 640))
- (contribs/ext/js-tricks/Makefile.in (skribe/f/8_Makefile.i 1.1 640))
- (contribs/ext/html-navtabs/skr/html-navtabs.skr (skribe/f/9_html-navta 1.1 640))
- (contribs/ext/html-navtabs/example/example.skb (skribe/f/10_example.sk 1.1 640))
- (contribs/ext/html-navtabs/doc/pckg/html-navtabs.skb (skribe/f/11_html-navta 1.1 640))
- (contribs/ext/html-navtabs/configure (skribe/f/12_configure 1.1 750))
- (contribs/ext/html-navtabs/README (skribe/f/13_README 1.1 640))
- (contribs/ext/html-navtabs/Makefile.in (skribe/f/14_Makefile.i 1.1 640))
- (contribs/ext/html-navtabs/CONTRIB.skb (skribe/f/15_CONTRIB.sk 1.1 640))
- (contribs/ext/html-gui/CONTRIB.skb (skribe/f/16_CONTRIB.sk 1.1 640))
- (contribs/ext/fontsample/skr/fontsample.skr (skribe/f/17_fontsample 1.1 640))
- (contribs/ext/fontsample/example/example.skb (skribe/f/18_example.sk 1.1 640))
- (contribs/ext/fontsample/doc/pckg/fontsample.skb (skribe/f/19_fontsample 1.1 640))
- (contribs/ext/fontsample/configure (skribe/f/20_configure 1.1 750))
- (contribs/ext/fontsample/README (skribe/f/21_README 1.1 640))
- (contribs/ext/fontsample/Makefile.in (skribe/f/22_Makefile.i 1.1 640))
- (contribs/ext/fontsample/CONTRIB.skb (skribe/f/23_CONTRIB.sk 1.1 640))
-
-;; Files added by populate at Wed, 22 Sep 2004 02:17:27 +0200,
-;; to version 1.1b.2(w), by serrano:
-
- (src/bigloo/parseargs.scm (skribe/f/24_parseargs. 1.2 640))
-
-;; Files added by populate at Wed, 22 Sep 2004 14:53:18 +0200,
-;; to version 1.1b.5(w), by serrano:
-
- (skr/latex-simple.skr (skribe/f/25_latex-simp 1.2 640))
-
-;; Files added by populate at Fri, 03 Jun 2005 16:47:11 +0200,
-;; to version 1.1b.7(w), by serrano:
-
- (tools/skribebibtex/stklos/main.stk (skribe/f/26_main.stk 1.1 644))
- (tools/skribebibtex/stklos/bibtex-parser.y (skribe/f/27_bibtex-par 1.1 644))
- (tools/skribebibtex/stklos/bibtex-lex.l (skribe/f/28_bibtex-lex 1.1 644))
- (tools/skribebibtex/stklos/Makefile (skribe/f/29_Makefile 1.1 644))
- (tools/skribebibtex/bigloo/skribebibtex.scm (skribe/f/30_skribebibt 1.1 640))
- (tools/skribebibtex/bigloo/main.scm (skribe/f/31_main.scm 1.1 640))
- (tools/skribebibtex/bigloo/Makefile (skribe/f/32_Makefile 1.1 640))
- (skr/sigplan.skr (skribe/f/33_sigplan.sk 1.1 640))
- (skr/context.skr (skribe/f/34_context.sk 1.1 644))
-)
-(Merge-Parents)
-(New-Merge-Parents)
diff --git a/skribe/INSTALL b/skribe/INSTALL
deleted file mode 100644
index 30507e7..0000000
--- a/skribe/INSTALL
+++ /dev/null
@@ -1,110 +0,0 @@
-Here is the procedure for compiling and installing SKRIBE on a Unix system.
-
-
-Requirements
-************
-
- - GNU-MAKE is required.
- - BIGLOO 2.6b (or later) *or* SKTLOS 0.56 is required.
-
-Summary of a SKRIBE compilation, test and installation
-******************************************************
-
- $ ./configure --with-bigloo|--with-stklos
- $ make
- $ make install
-
- This procedure will self test SKRIBE because it will compile the various
- Skribe documents that implement the Skribe documentation.
-
-
-Configuring SKRIBE
-******************
-
- Configuring SKRIBE/BIGLOO
- *************************
-
- 1.a Edit the `./etc/bigloo/configure' file and set the variables defined in the Use
- section (e.g. `bindir', `libdir', `mandir' and `docdir'). Note that
- if you leave these variable definitions blank the installation procedure
- will install Skribe at the same location as Bigloo.
-
- 1.b Configure Skribe for your machine by invoking:
- `./configure --with-bigloo'
- or
- `./configure --with-bigloo --prefix '
- or
- `./configure --with-bigloo --bigloo='
- When the system is ready to be compiled, `configure' prints
- the message `configuration done.'.
-
- The following command:
- `./configure --with-bigloo --help'
- displays the available options.
-
- The default configuration uses the C back-end. To produce a JVM version of
- SKRIBE, uses:
-
- `./configure --with-bigloo --jvm'
-
- Configuring SKRIBE/STKLOS
- *************************
-
- 1. Configure Skribe for your machine by invoking:
- `./configure --with-stklos'
- or
- `./configure --with-stklos --prefix '
-
-Compiling SKRIBE
-****************
-
- 2. Type:
- `make'
-
- This will compile:
- - the Skribe compiler: skribe
- - the Texinfo to Skribe translator: skribeinfo (*)
- - the BibTex to Skribe translator: skribebibtex (*)
- - the Skribe documentation (in manuals/man, manuals/user and
- manuals/expert).
-
- (*) this tools is compiled only when SKRIBE is compiled with BIGLOO.
-
-
-Installing SKRIBE
-*****************
-
- 3. Type:
- `make install'
-
- This install, the Skribe compiler, the Skribeinfo compiler, the
- various Skribe back-ends, the variable Skribe style files and
- the Skribe documentation.
-
- This does not install the skribe.el emacs package.
-
-
-Cleaning SKRIBE
-***************
-
- 4. Once, installed, you can type:
- `make clean'
- to remove all the useless files.
-
-
-Uninstalling SKRIBE
-*******************
-
- 5. To uninstall Skribe:
- `make uninstall'
-
-
-Unconfiguring SKRIBE
-********************
-
- 6. If you plan to re-install Skribe on a new platform. Before performing
- the all installation process (step 1 to 5) you must first remove the
- current configuration. For this type:
- `make distclean'
-
-
diff --git a/skribe/LICENSE b/skribe/LICENSE
deleted file mode 100644
index dbf912f..0000000
--- a/skribe/LICENSE
+++ /dev/null
@@ -1,25 +0,0 @@
----------------------------------------------------------------------
- Skribe
-
- Copyright (c) 2003, 2004 -- Erick Gallesio, Manuel Serrano
-
- Bug descriptions, use reports, comments or suggestions are
- welcome. Send them to
- skribe@sophia.inria.fr
- http://www.inria.fr/mimosa/fp/Skribe
-
- This program is free software; you can redistribute it
- and/or modify it under the terms of the GNU General Public
- License as published by the Free Software Foundation; either
- version 2 of the License, or (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public
- License along with this program; if not, write to the Free
- Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- MA 02111-1307, USA.
----------------------------------------------------------------------
diff --git a/skribe/Makefile b/skribe/Makefile
deleted file mode 100644
index 918e91a..0000000
--- a/skribe/Makefile
+++ /dev/null
@@ -1,131 +0,0 @@
-#*=====================================================================*/
-#* serrano/prgm/project/skribe/Makefile */
-#* ------------------------------------------------------------- */
-#* Author : Manuel Serrano */
-#* Creation : Wed Jul 30 16:23:07 2003 */
-#* Last change : Fri May 21 16:37:53 2004 (serrano) */
-#* Copyright : 2003-04 Manuel Serrano */
-#* ------------------------------------------------------------- */
-#* The general Skribe makefile */
-#*=====================================================================*/
-include etc/Makefile.config
-
-#*---------------------------------------------------------------------*/
-#* DIRECTORIES */
-#*---------------------------------------------------------------------*/
-DIRECTORIES = skr \
- doc \
- examples \
- src \
- emacs \
- etc \
- tools
-
-POPULATIONDIRS = $(DIRECTORIES) \
- contribs
-
-#*---------------------------------------------------------------------*/
-#* all */
-#*---------------------------------------------------------------------*/
-.PHONY: all
-
-all:
- (cd src/$(SYSTEM) && $(MAKE))
- (cd tools && $(MAKE))
- (cd doc && $(MAKE))
-
-#*---------------------------------------------------------------------*/
-#* install */
-#*---------------------------------------------------------------------*/
-.PHONY: install uninstall
-
-install:
- for d in $(DIRECTORIES); do \
- (cd $$d && $(MAKE) install) || exit -1; \
- done
-
-uninstall:
- for d in $(DIRECTORIES); do \
- (cd $$d && $(MAKE) uninstall) || exit -1; \
- done
-
-#*---------------------------------------------------------------------*/
-#* revision */
-#*---------------------------------------------------------------------*/
-.PHONY: revision populate skribe.prj
-
-revision: populate checkin
-
-populate: skribe.prj
- prcs populate skribe `$(MAKE) pop`
-
-checkin:
- prcs checkin -r$(SKRIBERELEASE).@ skribe
-
-checkout:
- @ prcs checkout -r$(SKRIBERELEASE).@ skribe
-
-skribe.prj:
- @ cat skribe.prj | sed -e s,"(Populate-Ignore ())","(Populate-Ignore (\"\\\\\\\\\\.o\\$$\" \"\\\\\\\\\\~$$\" \"\\\\\\\\\\.log\\$$\" \"\\\\\\\\\\.ps\\$$\" \"\\\\\\\\\\.aux\\$$\" \"\\\\\\\\\\.date_of_backup\\$$\" \"\\\\\\\\\\.so\\$$\" \"\\\\\\\\\\.a\\$$\" \"if_not_there\\$$\" \"if_mach\\$$\" \"threadlibs\\$$\"))", > skribe.dprj; $(RM) -f skribe.prj; mv skribe.dprj skribe.prj
-
-#*---------------------------------------------------------------------*/
-#* population */
-#* ------------------------------------------------------------- */
-#* The list of all files that have to be placed inside the */
-#* repository for revision. */
-#*---------------------------------------------------------------------*/
-.PHONY: subpop popfilelist
-
-subpop:
- @ for d in $(POPULATIONDIRS); do \
- (cd $$d && $(MAKE) -s pop); \
- done
-
-pop:
- @ echo Makefile INSTALL LICENSE README README.java
- @ echo configure
- @ (for p in `$(MAKE) -s subpop`; do \
- echo $$p; \
- done) | sort
-
-#*---------------------------------------------------------------------*/
-#* distrib */
-#*---------------------------------------------------------------------*/
-.PHONY: distrib distrib-jvm distrib-src
-
-distrib:
- $(MAKE) distrib -f etc/$(SYSTEM)/Makefile -I etc/$(SYSTEM)
- (cd www && $(MAKE))
-
-distrib-jvm:
- $(MAKE) distrib-jvm -f etc/$(SYSTEM)/Makefile -I etc/$(SYSTEM)
-
-distrib-src:
- $(MAKE) distrib-src -f etc/$(SYSTEM)/Makefile -I etc/$(SYSTEM)
-
-#*---------------------------------------------------------------------*/
-#* clean/distclean */
-#*---------------------------------------------------------------------*/
-.PHONY: clean distclean
- $(RM) -f etc/Makefile.config
-
-clean:
- (cd src && $(MAKE) clean)
- (cd doc && $(MAKE) clean)
- (cd tools && $(MAKE) clean)
- (cd etc && $(MAKE) clean)
-
-distclean: clean
- (cd emacs && $(MAKE) distclean)
- (cd etc && $(MAKE) distclean)
-
-#*---------------------------------------------------------------------*/
-#* devclean/devdistclean */
-#*---------------------------------------------------------------------*/
-.PHONY: devclean devdistclean
-
-devclean: clean
- (cd www && $(MAKE) clean)
-
-devdistclean: devclean distclean
-
diff --git a/skribe/README b/skribe/README
deleted file mode 100644
index db68b22..0000000
--- a/skribe/README
+++ /dev/null
@@ -1,69 +0,0 @@
-What is Skribe
-**************
-
-Skribe is programming language design for the production of electronic
-documents. With Skribe one can:
-
- - Produce HTML web pages.
- - Produce PS files.
- - ...
-
-One may also:
-
- - Translate Texinfo files into HTML.
-
- - re-use BibTex bibliography databases.
-
-
-Obtaining Skribe
-****************
-
-New versions of Skribe may downloaded from:
-
- ftp://ftp-sop.inria.fr/mimosa/fp/Skribe
-
-
-Skribe distrubtion
-******************
-
-The Skribe distribution consists of several directories:
-
- INSTALL installation instructions.
-
- Makefile the Makefile to compile Skribe.
-
- README this document.
-
- README.java specific information regarding the JVM port of Skribe.
-
- etc private directory.
-
- bin the directory where binary files are compiled to.
-
- lib the directory where Skribe libraries are compiled to.
-
- configure configuration driver script.
-
- emacs Skribe emacs mode.
-
- examples Various example of Skribe texts.
-
- doc the Skribe sources for Skribe manuals.
-
- src the Scheme source code for Skribe.
-
- skr the Skribe source code for the Skribe engines and styles.
-
- tools the Bigloo source code for the Texi->Skribe and BibTex->Skribe
- compilers.
-
-
-Acknowledgements
-****************
-
-We thank all the people who helped me while writing Skribe. My first
-though goes to Frederic Boussinot who's the first pre-alpha-tester of
-Skribe always volunteering for new testing new features ;-) I then
-thanks all the people that send me fixes, suggestions and
-improvements, that is, all the people that appear in the ChangeLog
-file. Many thanks to all of you.
diff --git a/skribe/README.java b/skribe/README.java
deleted file mode 100644
index dcb0457..0000000
--- a/skribe/README.java
+++ /dev/null
@@ -1,36 +0,0 @@
-This README explains how to use the pre-compiled JVM
-version of Skribe. This requires JDK 1.3 or higher.
-
-Installing SKRIBE
-*****************
-
-The pre-compiled version of SKRIBE does not need installation procedure.
-It is pre-installed. The documentation is pre-compiled. It is located
-in the directory doc/html.
-
-
-Running SKRIBE
-**************
-
-Lets assume that SKRIBEDIR is the shell variable containing
-the name of the directory where Skribe has been unzipped:
-
-1. To compile a Skribe program "prog.skr" uses:
-
- java -classpath $SKRIBEDIR/bin/skribe.zip:$SKRIBEDIR/lib/bigloo_s.zip -Dbigloo.SKRIBEPATH=$SKRIBEDIR/skr bigloo.skribe.main prog.skr
-
-2. To convert a Texi file "prog.texi" into Skribe:
-
- java -classpath $SKRIBEDIR/bin/skribeinfo.zip:$SKRIBEDIR/lib/bigloo_s.zip bigloo.skribe.skribeinfo.main prog.texi
-
-3. To convert a BibTex database "db.bib" into Skribe:
-
- java -classpath $SKRIBEDIR/bin/skribebibtex.zip:$SKRIBEDIR/lib/bigloo_s.zip bigloo.skribe.skribebibtex.main db.bib
-
-
-Compiling the examples
-**********************
-
-On a Unix platform:
-
- cd examples; make
diff --git a/skribe/configure b/skribe/configure
deleted file mode 100755
index 798d9d2..0000000
--- a/skribe/configure
+++ /dev/null
@@ -1,124 +0,0 @@
-#!/bin/sh
-#
-# This file is a simple trampoline to the real configure script which
-# depends of the Scheme system used
-#
-# Known systems so far:
-# - Bigloo (use --with-bigloo)
-# - STklos (use --with-stklos)
-#
-# Author: Erick Gallesio [eg@essi.fr]
-# Creation date: 29-Jul-2003 13:59 (eg)
-# Last file update: 23-Sep-2004 17:14 (eg)
-
-
-use_bigloo=0
-use_stklos=0
-
-new_args=""
-export new_args
-prefix=/usr/local
-export prefix
-
-for i in "$@"; do
- case $i in
- --with-bigloo) scheme=bigloo; use_bigloo=1;;
- --with-stklos) scheme=stklos; use_stklos=1;;
- --prefix=*) prefix=`echo $i | sed 's/^[^=]*=//'`;
- new_args="$new_args $i";;
- *) new_args="$new_args \"$i\"";;
- esac
-done
-
-#* for i in $* ;do */
-#* case $i in */
-#* --with-bigloo) scheme=bigloo; use_bigloo=1;; */
-#* --with-stklos) scheme=stklos; use_stklos=1;; */
-#* --prefix=*) prefix=`echo $i | sed 's/^[^=]*=//'`; */
-#* new_args="$new_args $i";; */
-#* *) new_args="$new_args $i";; */
-#* esac */
-#* done */
-
-
-case `expr $use_bigloo + $use_stklos` in
- 0) echo "You must at least specify a Scheme system: ";
- echo " --with-bigloo to use Bigloo"
- echo " --with-stklos to use STklos"
- exit 1;;
- 1) ;;
- *) echo "You must specify ONLY ONE Scheme system"; exit 1;;
-esac
-
-if test $use_bigloo = 1 ;then
- scheme=bigloo
-fi
-
-if test $use_stklos = 1 ;then
- scheme=stklos
-fi
-
-
-
-# Common configuration
-release="1.2d"
-skribeurl="http://www.inria.fr/mimosa/fp/Skribe"
-skribeextdir="$prefix/share/skribe/extensions"
-skribedocdir=$prefix/doc/skribe-$release
-skribeskrdir="'(\".\" \"$skribeextdir\" \"$prefix/share/skribe/$release/skr\" )"
-
-# etc/config
-rm -f etc/config 2> /dev/null
-echo "# Automatically generated file (don't edit)" > etc/config
-echo "release=$release" >> etc/config
-echo "skribeurl=$skribeurl" >> etc/config
-echo "prefix=$prefix" >> etc/config
-
-# etc/skribe-config
-cat etc/skribe-config.in \
- | sed "s|@SKRIBE_RELEASE@|$release|" \
- | sed "s|@PREFIX@|$prefix|" \
- | sed "s|@SKRIBE_SKR_DIR@|$prefix/share/skribe/$release/skr|" \
- | sed "s|@SKRIBE_EXT_DIR@|$skribeextdir|" \
- | sed "s|@SKRIBE_DOC_DIR@|$skribedocdir|" \
- | sed "s|@SYSTEM@|$scheme|" \
- > etc/skribe-config
-chmod a+x etc/skribe-config
-
-# emacs/skribe.el
-cat emacs/skribe.el.in \
- | sed "s|@SKRIBE_RELEASE@|$release|" \
- | sed "s|@PREFIX@|$prefix|" \
- | sed "s|@SKRIBE_EXT_DIR@|$skribeextdir|" \
- | sed "s|@SYSTEM@|$scheme|" \
- | sed "s|@SKRIBE_DOCDIR@|$skribedocdir|" \
- > emacs/skribe.el
-
-# src/common/configure.scm
-rm -f src/common/configure.scm 2> /dev/null
-echo ";; Automatically generated file (don't edit)" > src/common/configure.scm
-cat src/common/configure.scm.in \
- | sed "s|@SKRIBE_RELEASE@|$release|" \
- | sed "s|@SKRIBE_URL@|$skribeurl|" \
- | sed "s|@SKRIBE_DOC_DIR@|$skribedocdir|" \
- | sed "s|@SKRIBE_EXT_DIR@|$skribeextdir|" \
- | sed "s|@SKRIBE_SKR_PATH@|$skribeskrdir|" \
- | sed "s|@SKRIBE_SCHEME@|$scheme|" \
- >> src/common/configure.scm
-echo "" >> src/common/configure.scm
-
-if test $use_bigloo = 1 ;then
- # pass all the arguments to the Bigloo autoconf without the --with-bigloo
- echo "Using Bigloo system"
- eval "cd etc/bigloo; SKRIBERELEASE=$release ./configure --docdir=$skribedocdir $new_args"
- exit 0
-fi
-
-# If we are here, it means that we use the STklos system
-if test $use_stklos = 1 ;then
- # pass all the arguments to the STklos autoconf without the --with-stklos
- echo "Using STklos system"
- eval "cd etc/stklos; ./configure $new_args"
- exit 0
-fi
-
diff --git a/skribe/doc/Makefile b/skribe/doc/Makefile
deleted file mode 100644
index 934389e..0000000
--- a/skribe/doc/Makefile
+++ /dev/null
@@ -1,233 +0,0 @@
-#*=====================================================================*/
-#* serrano/prgm/project/skribe/doc/Makefile */
-#* ------------------------------------------------------------- */
-#* Author : Manuel Serrano */
-#* Creation : Mon Sep 1 10:29:28 2003 */
-#* Last change : Wed Mar 10 11:16:48 2004 (serrano) */
-#* Copyright : 2003-04 Manuel Serrano */
-#* ------------------------------------------------------------- */
-#* The Makefile to build the Skribe documentation. */
-#*=====================================================================*/
-include ../etc/Makefile.config
-include ../etc/$(SYSTEM)/Makefile.skb
-
-#*---------------------------------------------------------------------*/
-#* Compiler and tools */
-#*---------------------------------------------------------------------*/
-BINDIR = ../bin
-LIBDIR = ../lib
-LATEX = latex
-DVIPS = dvips
-
-SKRIBEVERBOSE = -v1
-SKRIBEWARNING = -w1
-SFLAGS = $(SKRIBEVERBOSE) $(SKRIBEWARNING) \
- -I ../skr \
- -I skr \
- -P img \
- -S .. \
- --custom emit-sui=yes \
- --eval '(define *skribe-bin* "$(SKRIBE)")' \
- --eval '(define *skribebibtex-bin* "$(SKRIBEBIBTEX)")'
-
-#*---------------------------------------------------------------------*/
-#* Doc skr */
-#*---------------------------------------------------------------------*/
-_SKR = manual.skr env.skr api.skr extension.skr
-SKR = $(_SKR:%=skr/%)
-
-#*---------------------------------------------------------------------*/
-#* Images */
-#*---------------------------------------------------------------------*/
-_IMG = bsd.gif lambda.gif linux.gif
-IMG = $(_IMG:%=img/%)
-
-#*---------------------------------------------------------------------*/
-#* User document */
-#*---------------------------------------------------------------------*/
-_USERMAIN = user.skb
-_USEROTHERS = start.skb syntax.skb \
- markup.skb document.skb \
- sectioning.skb toc.skb ornament.skb line.skb font.skb \
- justify.skb enumeration.skb \
- examples.skb colframe.skb figure.skb image.skb table.skb \
- footnote.skb char.skb \
- links.skb index.skb bib.skb prgm.skb \
- engine.skb htmle.skb latexe.skb xmle.skb \
- emacs.skb skribec.skb skribe-config.skb \
- lib.skb slide.skb package.skb
-_USERSRC = start1.skb start2.skb start3.skb start4.skb start5.skb \
- api1.skb api2.skb api3.skb api4.skb api5.skb \
- api6.skb api7.skb api8.skb api9.skb api10.skb \
- api11.skb api12.skb api13.skb api14.skb api15.skb \
- api16.skb api17.skb api18.skb api19.skb api20.skb \
- links1.skb links2.skb \
- index1.skb index2.skb index3.skb \
- bib1.sbib bib2.skb bib3.skb bib4.skb bib5.skb bib6.skb \
- prgm1.skb prgm2.skb prgm3.skb slides.skb
-
-USERMAIN = $(_USERMAIN:%=user/%)
-USEROTHERS = $(_USEROTHERS:%=user/%)
-USERSRC = $(_USERSRC:%=user/src/%)
-USERSKB = $(USERMAIN) $(USEROTHERS) $(USERSRC)
-
-#*---------------------------------------------------------------------*/
-#* User document */
-#*---------------------------------------------------------------------*/
-_DIRMAIN = dir.skb
-_DIROTHERS =
-_DIRSRC =
-
-DIRMAIN = $(_DIRMAIN:%=dir/%)
-DIROTHERS = $(_DIROTHERS:%=dir/%)
-DIRSRC = $(_DIRSRC:%=dir/src/%)
-DIRSKB = $(DIRMAIN) $(DIROTHERS) $(DIRSRC)
-
-#*---------------------------------------------------------------------*/
-#* Suffixes */
-#*---------------------------------------------------------------------*/
-.SUFFIXES:
-.SUFFIXES: .skb .man .html .sui
-
-#*---------------------------------------------------------------------*/
-#* All */
-#*---------------------------------------------------------------------*/
-.PHONY: user dir
-
-all: user dir
-re: re.html re.dir
-
-#*---------------------------------------------------------------------*/
-#* pop */
-#*---------------------------------------------------------------------*/
-.PHONY: pop
-
-pop:
- @ echo doc/Makefile doc/Makefile.dir
- @ echo $(USERSKB:%=doc/%)
- @ echo $(DIRSKB:%=doc/%)
- @ echo $(SKR:%=doc/%)
- @ echo $(IMG:%=doc/%)
-
-#*---------------------------------------------------------------------*/
-#* user */
-#*---------------------------------------------------------------------*/
-.PHONY: user re.html user.html
-
-user: user.html user.sui
-user.html: html/user.html html/img/lambda.gif html/img/bsd.gif html/img/linux.gif
-user.sui: html/user.sui
-
-user.ps: tex/user.dvi
- (cd tex; $(DVIPS) user.dvi -o user.ps)
-
-user.dvi: tex/user.dvi
-tex/user.dvi: tex/user.tex
- (cd tex; $(LATEX) user.tex)
-
-html/user.html html/user.sui: html $(USERSKB) $(SKR)
- $(MAKE) re.html
-
-tex/user.tex: tex $(USERSKB) $(SKR) tex/img/lambda.eps tex/img/bsd.eps tex/img/linux.eps
- $(MAKE) re.tex
-
-# gif
-html/img/lambda.gif: html/img img/lambda.gif
- cp img/lambda.gif html/img/lambda.gif
-
-html/img/linux.gif: html/img img/linux.gif
- cp img/linux.gif html/img/linux.gif
-
-html/img/bsd.gif: html/img img/bsd.gif
- cp img/bsd.gif html/img/bsd.gif
-
-# eps image
-tex/img/lambda.eps: tex/img img/lambda.gif
- convert img/lambda.gif tex/img/lambda.eps
-
-tex/img/linux.eps: tex/img img/linux.gif
- convert img/linux.gif tex/img/linux.eps
-
-tex/img/bsd.eps: tex/img img/bsd.gif
- convert img/bsd.gif tex/img/bsd.eps
-
-re.html:
- $(SKRIBE) $(SFLAGS) $(USERMAIN) \
- --base html -I user -S user \
- -o html/user.html
-
-re.tex:
- $(SKRIBE) $(SFLAGS) $(USERMAIN) \
- --base tex -I user -S user \
- -o tex/user.tex
-
-#*---------------------------------------------------------------------*/
-#* dir */
-#*---------------------------------------------------------------------*/
-.PHONY: dir re.dir dir.html
-
-dir: dir.html
-dir.html: html/dir.html
-
-html/dir.html: html $(DIRSKB) $(SKR)
- $(MAKE) re.dir
-
-re.dir:
- $(MAKE) -f Makefile.dir SKRIBE="$(SKRIBE)" BASE=html
-
-#*---------------------------------------------------------------------*/
-#* Misc */
-#*---------------------------------------------------------------------*/
-html:
- mkdir -p html
-
-html/img:
- mkdir -p html/img
-
-tex:
- mkdir -p tex
-
-tex/img:
- mkdir -p tex/img
-
-gethtml:
- @ echo "html/user.html"
-
-#*---------------------------------------------------------------------*/
-#* install/uinstall */
-#*---------------------------------------------------------------------*/
-.PHONY: install uninstall
-
-install: $(DESTDIR)$(INSTALL_DOCDIR) $(DESTDIR)$(INSTALL_SKRDIR)/doc/skr
- cp -r html/* $(DESTDIR)$(INSTALL_DOCDIR) \
- && chmod $(BMASK) $(DESTDIR)$(INSTALL_DOCDIR)/* \
- && chmod a+rx $(DESTDIR)$(INSTALL_DOCDIR)/img
- cp -r skr/* $(DESTDIR)$(INSTALL_SKRDIR)/doc/skr \
- && chmod a+rx $(DESTDIR)$(INSTALL_SKRDIR)/doc \
- && chmod a+rx $(DESTDIR)$(INSTALL_SKRDIR)/doc/skr \
- && chmod $(BMASK) $(DESTDIR)$(INSTALL_SKRDIR)/doc/skr/*
- cp Makefile.dir $(DESTDIR)$(INSTALL_DOCDIR) \
- && chmod $(BMASK) $(DESTDIR)$(INSTALL_DOCDIR)/Makefile.dir
- cp dir/dir.skb $(DESTDIR)$(INSTALL_DOCDIR) \
- && chmod $(BMASK) $(DESTDIR)$(INSTALL_DOCDIR)/dir.skb
-
-uninstall:
- $(RM) -rf $(DESTDIR)$(INSTALL_DOCDIR)
-
-$(DESTDIR)$(INSTALL_DOCDIR):
- mkdir -p $(DESTDIR)$(INSTALL_DOCDIR) && chmod a+rx $(DESTDIR)$(INSTALL_DOCDIR)
-
-
-$(DESTDIR)$(INSTALL_SKRDIR)/doc/skr:
- mkdir -p $(DESTDIR)$(INSTALL_SKRDIR)/doc/skr \
- && chmod -R a+rx $(DESTDIR)$(INSTALL_SKRDIR)/doc
-
-#*---------------------------------------------------------------------*/
-#* Clean */
-#*---------------------------------------------------------------------*/
-.PHONY: clean
-
-clean:
- $(RM) -rf html
- $(RM) -rf tex
- $(RM) -f img/bsd.eps img/linux.eps
diff --git a/skribe/doc/Makefile.dir b/skribe/doc/Makefile.dir
deleted file mode 100644
index e35cf0b..0000000
--- a/skribe/doc/Makefile.dir
+++ /dev/null
@@ -1,22 +0,0 @@
-#*=====================================================================*/
-#* serrano/prgm/project/skribe/doc/Makefile.dir */
-#* ------------------------------------------------------------- */
-#* Author : Manuel Serrano */
-#* Creation : Thu Jan 1 15:30:39 2004 */
-#* Last change : Wed Feb 4 09:19:03 2004 (serrano) */
-#* Copyright : 2004 Manuel Serrano */
-#* ------------------------------------------------------------- */
-#* The Makefile to build the Skribe directory. */
-#*=====================================================================*/
-
-SKRIBE = skribe
-SFLAGS = -I ../skr -I skr -P img -S .. -w0
-BASE = .
-SPATH =
-
-.PHONY: re.dir
-
-re.dir:
- $(SKRIBE) $(SFLAGS) $(SPATH) dir.skb \
- --base $(BASE) -I dir -S dir \
- -o $(BASE)/dir.html
diff --git a/skribe/doc/dir/dir.skb b/skribe/doc/dir/dir.skb
deleted file mode 100644
index 8c6d377..0000000
--- a/skribe/doc/dir/dir.skb
+++ /dev/null
@@ -1,113 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/dir/dir.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Wed Nov 28 10:37:39 2001 */
-;* Last change : Thu Jan 1 17:12:43 2004 (serrano) */
-;* Copyright : 2001-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The Skribe directory */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* The Skribe documentation style */
-;*---------------------------------------------------------------------*/
-(skribe-load "web-book.skr")
-(skribe-load "skr/env.skr")
-(skribe-load "skr/manual.skr")
-(skribe-load "skr/api.skr")
-
-;*---------------------------------------------------------------------*/
-;* Html configuration */
-;*---------------------------------------------------------------------*/
-(let ((he (find-engine 'html)))
- (engine-custom-set! he 'web-book-main-browsing-extra
- (lambda (n e)
- (table :width 100. :border 0 :cellspacing 0 :cellpadding 0
- (tr (td :align 'left :valign 'top (bold "Skribe: "))
- (td :align 'right :valign 'top
- (ref :url *skribe-user-doc-url*
- :text "User Manual")))))))
-
-;*---------------------------------------------------------------------*/
-;* The global index */
-;*---------------------------------------------------------------------*/
-(define *sui-index* (make-index "sui"))
-
-;*---------------------------------------------------------------------*/
-;* index-sui ... */
-;*---------------------------------------------------------------------*/
-(define (index-sui sui dir)
- (sui-filter sui
- (lambda (s)
- (and (pair? s) (eq? (car s) 'marks)))
- (lambda (e)
- (let ((f (memq :file e))
- (k (memq :mark e))
- (c (memq :class e)))
- (when (and (pair? f)
- (pair? k)
- (pair? c)
- (string=? (cadr c) "public-definition"))
- (index :index *sui-index*
- :url (format "~a/~a#~a" dir (cadr f) (cadr k))
- (cadr k)))
- #f))))
-
-;*---------------------------------------------------------------------*/
-;* Intern all the sui files */
-;*---------------------------------------------------------------------*/
-(define extensions '())
-
-(let loop ((files (directory->list "html")))
- (when (pair? files)
- (if (string=? (suffix (car files)) "sui")
- (let* ((f (string-append "html/" (car files)))
- (sui (load-sui f)))
- (if (not (string=? (car files) "user.sui"))
- (set! extensions (cons sui extensions)))
- (index-sui sui (dirname (car files)))))
- (loop (cdr files))))
-(let loop ((files (directory->list ".")))
- (when (pair? files)
- (if (string=? (suffix (car files)) "sui")
- (let* ((f (car files))
- (sui (load-sui f)))
- (if (not (string=? (car files) "user.sui"))
- (set! extensions (cons sui extensions)))
- (index-sui sui (dirname f))))
- (loop (cdr files))))
-
-;*---------------------------------------------------------------------*/
-;* The document */
-;*---------------------------------------------------------------------*/
-(document :title "Skribe directory"
- :author (list (author :name "Erick Gallesio"
- :affiliation "Université de Nice - Sophia Antipolis"
- :address '("930 route des Colles, BP 145"
- "F-06903 Sophia Antipolis, Cedex"
- "France")
- :email (mailto "eg@essi.fr"))
- (author :name "Manuel Serrano"
- :affiliation "Inria Sophia-Antipolis"
- :address `("2004 route des Lucioles - BP 93"
- "F-06902 Sophia Antipolis, Cedex"
- "France")
- :url (ref :url *serrano-url*)
- :email (mailto *serrano-mail*)))
-
- (linebreak 1)
-
-;;; extensions
-(if (pair? extensions)
- (section :title "Installed extensions" :number #f
- (itemize (map (lambda (e)
- (item :key (ref :url (sui-file e) :text (sui-title e))
- (let ((d (sui-key e :description)))
- (if d (list ": " d) #f))))
- extensions))))
-
-;;; global Index
-(section :title "Global Markup Index" :number #f
- (mark "global index")
- (the-index :column 3 *sui-index*)))
diff --git a/skribe/doc/img/bsd.gif b/skribe/doc/img/bsd.gif
deleted file mode 100644
index e406ba6..0000000
Binary files a/skribe/doc/img/bsd.gif and /dev/null differ
diff --git a/skribe/doc/img/lambda.gif b/skribe/doc/img/lambda.gif
deleted file mode 100644
index 9c46b7d..0000000
Binary files a/skribe/doc/img/lambda.gif and /dev/null differ
diff --git a/skribe/doc/img/linux.gif b/skribe/doc/img/linux.gif
deleted file mode 100644
index fa764bd..0000000
Binary files a/skribe/doc/img/linux.gif and /dev/null differ
diff --git a/skribe/doc/skr/api.skr b/skribe/doc/skr/api.skr
deleted file mode 100644
index a27c3a4..0000000
--- a/skribe/doc/skr/api.skr
+++ /dev/null
@@ -1,575 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/skr/api.skr */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Wed Sep 3 07:45:33 2003 */
-;* Last change : Tue Apr 6 06:51:34 2004 (serrano) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The Skribe style for documenting Lisp APIs. */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Html configuration */
-;*---------------------------------------------------------------------*/
-(let* ((he (find-engine 'html))
- (tro (markup-writer-get 'tr he)))
- (markup-writer 'tr he
- :class 'api-table-header
- :options '(:width :bg)
- :action (lambda (n e)
- (let ((c (engine-custom e 'section-title-background)))
- (markup-option-add! n :bg c)
- (output n e tro))))
- (markup-writer 'tr he
- :class 'api-table-prototype
- :options '(:width :bg)
- :action (lambda (n e)
- (let ((c (engine-custom e 'title-background)))
- (markup-option-add! n :bg c)
- (output n e tro))))
- (markup-writer 'tr he
- :class 'api-symbol-prototype
- :options '(:width :bg)
- :action (lambda (n e)
- (let ((c (engine-custom e 'title-background)))
- (markup-option-add! n :bg c)
- (output n e tro)))))
-
-;*---------------------------------------------------------------------*/
-;* LaTeX configuration */
-;*---------------------------------------------------------------------*/
-(let* ((le (find-engine 'latex))
- (tro (markup-writer-get 'tr le)))
- (markup-writer 'tr le
- :class 'api-table-prototype
- :options '(:width :bg)
- :action #f)
- (markup-writer 'tr le
- :class 'api-table-header
- :options '(:width :bg)
- :action (lambda (n e)
- (let ((c (engine-custom e 'section-title-background)))
- (markup-option-add! n :bg c)
- (output n e tro)))))
-
-;*---------------------------------------------------------------------*/
-;* api-search-definition ... */
-;* ------------------------------------------------------------- */
-;* Find a definition inside a source file. */
-;*---------------------------------------------------------------------*/
-(define (api-search-definition id file pred)
- (let ((f (find-file/path file *skribe-source-path*)))
- (if (not (string? f))
- (skribe-error 'api-search-definition
- (format "Can't find source file `~a' in path" file)
- *skribe-source-path*)
- (with-input-from-file f
- (lambda ()
- (let loop ((exp (read)))
- (if (eof-object? exp)
- (skribe-error 'api-search-definition
- (format "Can't find `~a' definition" id)
- file)
- (or (pred id exp) (loop (read))))))))))
-
-;*---------------------------------------------------------------------*/
-;* api-compare-set ... */
-;* ------------------------------------------------------------- */
-;* This function compares two sets. It returns either #t */
-;* is they are equal, or two subsets which contain elements */
-;* not present in the arguments. For instance: */
-;* (api-compare-set '(foo bar) '(bar foo)) ==> #t */
-;* (api-compare-set '(foo gee) '(gee bar)) ==> '((foo) (bar)) */
-;*---------------------------------------------------------------------*/
-(define (api-compare-set s1 s2)
- (let ((d1 (filter (lambda (x) (not (memq x s2))) s1))
- (d2 (filter (lambda (x) (not (memq x s1))) s2)))
- (or (and (null? d1) (null? d2))
- (list d1 d2))))
-
-;*---------------------------------------------------------------------*/
-;* keyword->symbol ... */
-;*---------------------------------------------------------------------*/
-(define (keyword->symbol kwd)
- (let ((s (keyword->string kwd)))
- (if (char=? #\: (string-ref s 0))
- ;; Bigloo
- (string->symbol (substring s 1 (string-length s)))
- ;; STklos
- (string->symbol s))))
-
-;*---------------------------------------------------------------------*/
-;* define-markup? ... */
-;*---------------------------------------------------------------------*/
-(define (define-markup? id o)
- (match-case o
- (((or define-markup define define-inline)
- ((? (lambda (x) (eq? x id))) . (? (lambda (x) (or (pair? x) (null? x))))) . ?-)
- o)
- ((define-simple-markup (? (lambda (x) (eq? x id))))
- o)
- ((define-simple-container (? (lambda (x) (eq? x id))))
- o)
- (else
- #f)))
-
-;*---------------------------------------------------------------------*/
-;* make-engine? ... */
-;*---------------------------------------------------------------------*/
-(define (make-engine? id o)
- (match-case o
- (((or make-engine copy-engine) (quote (? (lambda (x) (eq? x id)))) . ?-)
- o)
- ((quasiquote . ?-)
- #f)
- ((quote . ?-)
- #f)
- ((?a . ?d)
- (or (make-engine? id a) (make-engine? id d)))
- (else
- #f)))
-
-;*---------------------------------------------------------------------*/
-;* make-engine-custom ... */
-;*---------------------------------------------------------------------*/
-(define (make-engine-custom def)
- (match-case (memq :custom def)
- ((:custom (quote ?custom) . ?-)
- custom)
- ((:custom ?custom . ?-)
- (eval custom))
- (else
- '())))
-
-;*---------------------------------------------------------------------*/
-;* define-markup-formals ... */
-;* ------------------------------------------------------------- */
-;* Returns the formal parameters of a define-markup (not the */
-;* options). */
-;*---------------------------------------------------------------------*/
-(define (define-markup-formals def)
- (match-case def
- ((?- (?- . ?args) . ?-)
- (if (symbol? args)
- (list args)
- (let loop ((args args)
- (res '()))
- (cond
- ((null? args)
- (reverse! res))
- ((symbol? args)
- (reverse! (cons args res)))
- ((not (symbol? (car args)))
- (reverse! res))
- (else
- (loop (cdr args) (cons (car args) res)))))))
- ((define-simple-markup ?-)
- '())
- ((define-simple-container ?-)
- '())
- (else
- (skribe-error 'define-markup-formals
- "Illegal `define-markup' form"
- def))))
-
-;*---------------------------------------------------------------------*/
-;* define-markup-options ... */
-;* ------------------------------------------------------------- */
-;* Returns the options parameters of a define-markup. */
-;*---------------------------------------------------------------------*/
-(define (define-markup-options def)
- (match-case def
- ((?- (?- . ?args) . ?-)
- (if (not (list? args))
- '()
- (let ((keys (memq #!key args)))
- (if (pair? keys)
- (cdr keys)
- '()))))
- ((define-simple-markup ?-)
- '((ident #f) (class #f)))
- ((define-simple-container ?-)
- '((ident #f) (class #f)))
- (else
- (skribe-error 'define-markup-formals
- "Illegal `define-markup' form"
- def))))
-
-;*---------------------------------------------------------------------*/
-;* define-markup-rest ... */
-;* ------------------------------------------------------------- */
-;* Returns the rest parameter of a define-markup. */
-;*---------------------------------------------------------------------*/
-(define (define-markup-rest def)
- (match-case def
- ((?- (?- . ?args) . ?-)
- (if (not (pair? args))
- args
- (let ((l (last-pair args)))
- (if (symbol? (cdr l))
- (cdr l)
- (let ((rest (memq #!rest args)))
- (if (pair? rest)
- (if (or (not (pair? (cdr rest)))
- (not (symbol? (cadr rest))))
- (skribe-error 'define-markup-rest
- "Illegal `define-markup' form"
- def)
- (cadr rest))
- #f))))))
- ((define-simple-markup ?-)
- 'node)
- ((define-simple-container ?-)
- 'node)
- (else
- (skribe-error 'define-markup-formals
- "Illegal `define-markup' form"
- def))))
-
-;*---------------------------------------------------------------------*/
-;* doc-check-arguments ... */
-;*---------------------------------------------------------------------*/
-(define (doc-check-arguments id args dargs)
- (if (not args)
- (skribe-error 'doc-check-arguments id args))
- (if (not dargs)
- (skribe-error 'doc-check-arguments id dargs))
- (let* ((s1 (map (lambda (x) (if (pair? x) (car x) x)) args))
- (s2 (map (lambda (x)
- (let ((i (car x)))
- (if (keyword? i)
- (keyword->symbol i)
- i)))
- dargs))
- (d (api-compare-set s1 s2)))
- (if (pair? d)
- (let ((d1 (car d))
- (d2 (cadr d)))
- (if (pair? d1)
- (skribe-error 'doc-markup
- (format "~a: missing descriptions" id)
- d1)
- (skribe-error 'doc-markup
- (format "~a: extra descriptions" id)
- d2))))))
-
-;*---------------------------------------------------------------------*/
-;* exp->skribe ... */
-;*---------------------------------------------------------------------*/
-(define (exp->skribe exp)
- (cond
- ((number? exp) exp)
- ((string? exp) (string-append "\"" exp "\""))
- ((eq? exp #f) "#f")
- ((eq? exp #t) "#t")
- ((symbol? exp) (symbol->string exp))
- ((equal? exp '(quote ())) "'()")
- ((ast? exp)
- (table :cellpadding 0 :cellspacing 0
- (tr (td :align 'left exp))))
- (else
- (match-case exp
- ((quote (and ?sym (? symbol?)))
- (string-append "'" (symbol->string sym)))
- (else
- (with-output-to-string (lambda () (write exp))))))))
-
-;*---------------------------------------------------------------------*/
-;* doc-markup-proto ... */
-;*---------------------------------------------------------------------*/
-(define (doc-markup-proto id options formals rest)
- (define (option opt)
- (if (pair? opt)
- (if (eq? (cadr opt) #f)
- (list " [" (keyword (car opt)) "]")
- (list " [" (keyword (car opt)) " "
- (code (exp->skribe (cadr opt))) "]"))
- (list " " (keyword opt))))
- (define (formal f)
- (list " " (param f)))
- (code (list (bold "(") (bold :class 'api-proto-ident (format "~a" id)))
- (map option (sort options
- (lambda (s1 s2)
- (cond
- ((and (pair? s1) (not (pair? s2)))
- #f)
- ((and (pair? s2) (not (pair? s1)))
- #t)
- (else
- #t)))))
- (if (pair? formals)
- (map formal formals))
- (if rest (list " " (param rest)))
- (bold ")")))
-
-;*---------------------------------------------------------------------*/
-;* doc-markup ... */
-;*---------------------------------------------------------------------*/
-(define-markup (doc-markup id args
- #!rest
- opts
- #!key
- (writer-id #f)
- (common-args '((:ident "The node identifier.")
- (:class "The node class.")))
- (ignore-args '(&skribe-eval-location))
- (force-args '())
- (idx *markup-index*)
- (idx-note "definition")
- (idx-suffix #f)
- (source "src/common/api.scm")
- (def #f)
- (see-also '())
- (others '())
- (force-engines '())
- (engines *api-engines*)
- (sui #f)
- &skribe-eval-location)
- (define (opt-engine-support opt)
- ;; find the engines providing a writer for id
- (map (lambda (e)
- (let* ((id (engine-ident e))
- (s (symbol->string id)))
- (if (engine-format? "latex")
- (list s " ")
- (list (if sui
- (ref :skribe sui
- :mark (string-append s "-engine")
- :text s)
- (ref :mark (string-append s "-engine")
- :text s))
- " "))))
- (if (pair? force-engines)
- force-engines
- (filter (lambda (e)
- (or (memq opt '(:ident :class))
- (memq opt force-args)
- (let ((w (markup-writer-get (or writer-id id)
- e)))
- (cond
- ((not (writer? w))
- #f)
- (else
- (let ((o (writer-options w)))
- (cond
- ((eq? o 'all)
- #t)
- ((not (pair? o))
- #f)
- (else
- (memq opt o)))))))))
- engines))))
- (cond
- ((and def source)
- (skribe-error 'doc-markup "source and def both specified" id))
- ((and (not def) (not source))
- (skribe-error 'doc-markup "source or def must be specified" id))
- (else
- (let* ((d (or def (api-search-definition id source define-markup?)))
- (od (map (lambda (o)
- (api-search-definition o source define-markup?))
- others))
- (args (append common-args args))
- (formals (define-markup-formals d))
- (fformals (filter (lambda (s)
- (let ((c (assq s args)))
- (not
- (and (pair? c)
- (eq? (cadr c) 'ignore)))))
- formals))
- (options (filter (lambda (s)
- (not (memq s ignore-args)))
- (define-markup-options d)))
- (dformals (filter (lambda (x)
- (symbol? (car x)))
- args))
- (doptions (filter (lambda (x)
- (and (keyword? (car x))
- ;; useful for STklos only
- (not (eq? (car x) #!rest))))
- args))
- (drest (filter (lambda (x)
- (eq? #!rest (car x)))
- args))
- (dargs (and (pair? drest) (cadr (car drest))))
- (p+ (cons (doc-markup-proto id options fformals dargs)
- (map (lambda (id def)
- (doc-markup-proto
- id
- (define-markup-options def)
- (define-markup-formals def)
- dargs))
- others od))))
- ;; doc table
- (define (doc-markup.html)
- (let ((df (map (lambda (f)
- (tr :bg *prgm-skribe-color*
- (td :colspan 2 :width 20. :align 'left
- (param (car f)) )
- (td :align 'left :width 80. (cadr f))))
- dformals))
- (dr (and (pair? drest)
- (tr :bg *prgm-skribe-color*
- (td :align 'left
- :valign 'top
- :colspan 2
- :width 20.
- (param (cadr (car drest))))
- (td :align 'left :width 80.
- (caddr (car drest))))))
- (do (map (lambda (f)
- (tr :bg *prgm-skribe-color*
- (td :align 'left
- :valign 'top
- :width 10.
- (param (car f)))
- (td :align 'left
- :valign 'top
- :width 20.
- (opt-engine-support (car f)))
- (td :align 'left :width 70. (cadr f))))
- doptions))
- (so (map (lambda (x)
- (let ((s (symbol->string x)))
- (list
- (ref :mark s :text (code s))
- " ")))
- see-also)))
- (table :border (if (engine-format? "latex") 1 0)
- :width (if (engine-format? "latex") #f *prgm-width*)
- `(,(tr :class 'api-table-prototype
- (th :colspan 3 :align 'left :width *prgm-width*
- "prototype"))
- ,@(map (lambda (p)
- (tr :bg *prgm-skribe-color*
- (td :colspan 3 :width *prgm-width*
- :align 'left p)))
- p+)
- ,@(if (pair? do)
- `(,(tr :class 'api-table-header
- (th :align 'left "option"
- :width 10.)
- (th :align 'center "engines"
- :width 20.)
- (th "description"))
- ,@do)
- '())
- ,@(if (or (pair? df) dr)
- `(,(tr :class 'api-table-header
- (th :colspan 2
- :align 'left
- :width 30.
- "argument")
- (th "description"))
- ,@(if (pair? df) df '())
- ,@(if dr (list dr) '()))
- '())
- ,@(if (pair? so)
- `(,(tr :class 'api-table-header
- (th :colspan 3 :align 'left
- (it "See also")))
- ,(tr :bg *prgm-skribe-color*
- (td :colspan 3 :align 'left so)))
- '())))))
- ;; doc enumerate
- (define (doc-markup.latex)
- (let ((df (map (lambda (f)
- (item :key (param (car f)) (cadr f)))
- dformals))
- (dr (if (pair? drest)
- (list (item :key (param (cadr (car drest)))
- (caddr (car drest))))
- '()))
- (do (map (lambda (f)
- (item :key (param (car f))
- (list (opt-engine-support (car f))
- (cadr f))))
- doptions))
- (so (map (lambda (x)
- (let ((s (symbol->string x)))
- (list
- (ref :mark s :page #t
- :text [,(code s), p.])
- " ")))
- see-also)))
- (list (center
- (frame :margin 5 :border 0 :width *prgm-width*
- (color :class 'api-table-prototype
- :margin 5 :width 100. :bg "#ccccff"
- p+)))
- (when (pair? do)
- (subsubsection :title "Options" :number #f :toc #f
- (description do)))
- (when (or (pair? df) (pair? dr))
- (subsubsection :title "Parameters" :number #f :toc #f
- (description (append df dr))))
- (when (pair? so)
- (subsubsection :title "See also" :number #f :toc #f
- (p so)
- (! "\\noindent"))))))
- ;; check all the descriptions
- (doc-check-arguments id formals dformals)
- (doc-check-arguments id options doptions)
- (if (and (pair? drest) (not (define-markup-rest d)))
- (skribe-error 'doc-markup "No rest argument for" id)
- options)
- (list (mark :class "public-definition" (symbol->string id))
- (map (lambda (i) (mark (symbol->string i))) others)
- (map (lambda (i)
- (let ((is (symbol->string i)))
- (index (if (string? idx-suffix)
- (string-append is idx-suffix)
- is)
- :index idx
- :note idx-note)))
- (cons id others))
- (cond
- ((engine-format? "latex")
- (doc-markup.latex))
- (else
- (center (doc-markup.html)))))))))
-
-;*---------------------------------------------------------------------*/
-;* doc-engine ... */
-;*---------------------------------------------------------------------*/
-(define-markup (doc-engine id args
- #!rest
- opts
- #!key
- (idx *custom-index*)
- source
- (def #f))
- (cond
- ((and def source)
- (skribe-error 'doc-engine "source and def both specified" id))
- ((and (not def) (not source))
- (skribe-error 'doc-engine "source or def must be specified" id))
- (else
- (let* ((d (or def (api-search-definition id source make-engine?)))
- (c (make-engine-custom d)))
- (doc-check-arguments id c args)
- (cond
- ((engine-format? "latex")
- #f)
- (else
- (center
- (apply table
- :width *prgm-width*
- (tr :class 'api-table-header
- (th :align 'left :width 20. "custom")
- (th :width 10. "default")
- (th "description"))
- (map (lambda (r)
- (tr :bg *prgm-skribe-color*
- (td :align 'left :valign 'top
- (list (index (symbol->string (car r))
- :index idx
- :note (format "~a custom" id))
- (symbol->string (car r))))
- (let ((def (assq (car r) c)))
- (td :valign 'top
- (code (exp->skribe (cadr def)))))
- (td :align 'left :valign 'top (cadr r))))
- (filter cadr args))))))))))
-
diff --git a/skribe/doc/skr/env.skr b/skribe/doc/skr/env.skr
deleted file mode 100644
index 09d5146..0000000
--- a/skribe/doc/skr/env.skr
+++ /dev/null
@@ -1,32 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/skr/env.skr */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Mon Sep 1 10:22:42 2003 */
-;* Last change : Thu Jan 29 06:48:54 2004 (serrano) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The environment variables for the documentation. */
-;*=====================================================================*/
-
-(define *serrano-url* "http://www.inria.fr/mimosa/Manuel.Serrano")
-(define *serrano-mail* "Manuel.Serrano@sophia.inria.fr")
-(define *html-url* "http://www.w3.org/TR/html4")
-(define *html-form* "interact/forms.html")
-(define *emacs-url* "http://www.gnu.org/software/emacs")
-(define *xemacs-url* "http://www.xemacs.org")
-(define *texinfo-url* "http://www.texinfo.org")
-(define *r5rs-url* "http://www.inria.fr/mimosa/fp/Bigloo/doc/r5rs.html")
-(define *bigloo-url* "http://www.inria.fr/mimosa/fp/Bigloo")
-(define *skribe-user-doc-url* (string-append (skribe-doc-dir) "/user.html"))
-(define *skribe-dir-doc-url* (string-append (skribe-doc-dir) "/dir.html"))
-
-(define *prgm-width* 97.)
-(define *prgm-skribe-color* "#ffffcc")
-(define *prgm-default-color* "#ffffcc")
-(define *prgm-xml-color* "#ffcccc")
-(define *prgm-example-color* "#ccccff")
-(define *disp-color* "#ccffcc")
-(define *header-color* "#cccccc")
-
-(define *api-engines* (map find-engine '(html latex xml)))
diff --git a/skribe/doc/skr/extension.skr b/skribe/doc/skr/extension.skr
deleted file mode 100644
index ce10ce7..0000000
--- a/skribe/doc/skr/extension.skr
+++ /dev/null
@@ -1,95 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/skr/extension.skr */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Tue Dec 23 07:18:36 2003 */
-;* Last change : Fri Jan 2 21:25:49 2004 (serrano) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The Skribe package for documenting extensions */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* extension */
-;*---------------------------------------------------------------------*/
-(define-markup (extension #!rest opt
- #!key (ident (symbol->string (gensym 'extension)))
- (class "extension")
- title html-title ending author description
- (env '()))
- (new document
- (markup 'extension)
- (ident ident)
- (class class)
- (options (the-options opt))
- (body (the-body opt))
- (env (append env
- (list (list 'example-counter 0) (list 'example-env '())
- (list 'chapter-counter 0) (list 'chapter-env '())
- (list 'section-counter 0) (list 'section-env '())
- (list 'footnote-counter 0) (list 'footnote-env '())
- (list 'figure-counter 0) (list 'figure-env '()))))))
-
-;*---------------------------------------------------------------------*/
-;* html engine */
-;*---------------------------------------------------------------------*/
-(let ((he (find-engine 'html)))
- (engine-custom-set! he 'web-book-main-browsing-extra
- (lambda (n e)
- (let ((i (let ((m (find-markup-ident "Index")))
- (and (pair? m) (car m)))))
- (if (not i)
- (table :width 100. :border 0 :cellspacing 0 :cellpadding 0
- (tr (td :align 'left :valign 'top (bold "Skribe: "))
- (td :align 'right :valign 'top
- (ref :url *skribe-dir-doc-url*
- :text "Directory")))
- (tr (td)
- (td :align 'right :valign 'top
- (ref :url *skribe-user-doc-url*
- :text "User Manual"))))
- (table :width 100. :border 0 :cellspacing 0 :cellpadding 0
- (tr (td :align 'left :valign 'top (bold "index:"))
- (td :align 'right (ref :handle (handle i))))
- (tr (td :align 'left :valign 'top (bold "Skribe: "))
- (td :align 'right :valign 'top
- (ref :url *skribe-dir-doc-url*
- :text "Directory")))
- (tr (td)
- (td :align 'right :valign 'top
- (ref :url *skribe-user-doc-url*
- :text "User Manual"))))))))
- (default-engine-set! he))
-
-;*---------------------------------------------------------------------*/
-;* extension-sui ... */
-;*---------------------------------------------------------------------*/
-(define (extension-sui n e)
- (define (sui)
- (display "(sui \"")
- (skribe-eval (markup-option n :title) html-title-engine)
- (display "\"\n")
- (printf " :file ~s\n" (sui-referenced-file n e))
- (printf " :description ~s\n" (markup-option n :description))
- (sui-marks n e)
- (display " )\n"))
- (if (string? *skribe-dest*)
- (let ((f (format "~a.sui" (prefix *skribe-dest*))))
- (with-output-to-file f sui))
- (sui)))
-
-;*---------------------------------------------------------------------*/
-;* project ... */
-;*---------------------------------------------------------------------*/
-(markup-writer 'extension
- :options '(:title :html-title :ending :author :description)
- :action (lambda (n e)
- (output n e (markup-writer-get 'document he)))
- :after (lambda (n e)
- (if (engine-custom e 'emit-sui)
- (extension-sui n e))))
-
-;*---------------------------------------------------------------------*/
-;* Restore the base engine */
-;*---------------------------------------------------------------------*/
-(default-engine-set! (find-engine 'base))
diff --git a/skribe/doc/skr/manual.skr b/skribe/doc/skr/manual.skr
deleted file mode 100644
index 1982237..0000000
--- a/skribe/doc/skr/manual.skr
+++ /dev/null
@@ -1,281 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/skr/manual.skr */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Mon Sep 1 11:24:19 2003 */
-;* Last change : Mon Sep 13 19:18:48 2004 (serrano) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Skribe manuals and documentation pages style */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Base configuration */
-;*---------------------------------------------------------------------*/
-(let ((be (find-engine 'base)))
- (markup-writer 'example be
- :options '(:legend :number)
- :action (lambda (n e)
- (let ((ident (markup-ident n))
- (number (markup-option n :number))
- (legend (markup-option n :legend)))
- (skribe-eval (mark ident) e)
- (skribe-eval (center
- (markup-body n)
- (if number (bold (format "Ex. ~a: " number)))
- legend)
- e)))))
-
-;*---------------------------------------------------------------------*/
-;* html-browsing-extra ... */
-;*---------------------------------------------------------------------*/
-(define (html-browsing-extra n e)
- (let ((i1 (let ((m (find-markup-ident "Index")))
- (and (pair? m) (car m))))
- (i2 (let ((m (find-markup-ident "markups-index")))
- (and (pair? m) (car m)))))
- (cond
- ((not i1)
- (skribe-error 'left-margin "Can't find section" "Index"))
- ((not i2)
- (skribe-error 'left-margin "Can't find chapter" "Standard Markups"))
- (else
- (table :width 100.
- :border 0
- :cellspacing 0 :cellpadding 0
- (tr (td :align 'left :valign 'top (bold "index:"))
- (td :align 'right (ref :handle (handle i1) :text "Global")))
- (tr (td :align 'left :valign 'top (bold "markups:"))
- (td :align 'right (ref :handle (handle i2) :text "Index")))
- (tr (td :align 'left :valign 'top (bold "extensions:"))
- (td :align 'right (ref :url *skribe-dir-doc-url*
- :text "Directory"))))))))
-
-;*---------------------------------------------------------------------*/
-;* Html configuration */
-;*---------------------------------------------------------------------*/
-(let* ((he (find-engine 'html))
- (bd (markup-writer-get 'bold he)))
- (markup-writer 'bold he
- :class 'api-proto-ident
- :before ""
- :action (lambda (n e) (output n e bd))
- :after "")
- (engine-custom-set! he 'web-book-main-browsing-extra html-browsing-extra)
- (engine-custom-set! he 'favicon "lambda.gif"))
-
-;*---------------------------------------------------------------------*/
-;* LaTeX */
-;*---------------------------------------------------------------------*/
-(let* ((le (find-engine 'latex))
- (opckg (engine-custom le 'usepackage))
- (lpckg "\\usepackage{fullpage}\n\\usepackage{eurosym}\n")
- (npckg (if (string? opckg)
- (string-append lpckg opckg)
- lpckg)))
- (engine-custom-set! le 'documentclass "\\documentclass{book}")
- (engine-custom-set! le 'usepackage npckg))
-
-;*---------------------------------------------------------------------*/
-;* prgm ... */
-;*---------------------------------------------------------------------*/
-(define-markup (prgm #!rest opts #!key (language skribe) (line #f) (file #f) (definition #f))
- (let* ((c (cond
- ((eq? language skribe) *prgm-skribe-color*)
- ((eq? language xml) *prgm-xml-color*)
- (else *prgm-default-color*)))
- (sc (cond
- ((and file definition)
- (source :language language :file file :definition definition))
- (file
- (source :language language :file file))
- (else
- (source :language language (the-body opts)))))
- (pr (cond
- (line
- (prog :line line sc))
- (else
- (pre sc)))))
- (center
- (frame :margin 5 :border 0 :width *prgm-width*
- (color :margin 5 :width 100. :bg c pr)))))
-
-;*---------------------------------------------------------------------*/
-;* disp ... */
-;*---------------------------------------------------------------------*/
-(define-markup (disp #!rest opts #!key (verb #f) (line #f) (bg *disp-color*))
- (if (engine-format? "latex")
- (if verb
- (pre (the-body opts))
- (the-body opts))
- (center
- (frame :margin 5 :border 0 :width *prgm-width*
- (color :margin 5 :width 100. :bg bg
- (if verb
- (pre (the-body opts))
- (the-body opts)))))))
-
-;*---------------------------------------------------------------------*/
-;* keyword ... */
-;*---------------------------------------------------------------------*/
-(define-markup (keyword arg)
- (new markup
- (markup '&source-key)
- (body (cond
- ((keyword? arg)
- (keyword->string arg))
- ((symbol? arg)
- (string-append ":" (symbol->string arg)))
- (else
- arg)))))
-
-;*---------------------------------------------------------------------*/
-;* param ... */
-;*---------------------------------------------------------------------*/
-(define-markup (param arg)
- (cond
- ((keyword? arg)
- (keyword arg))
- ((symbol? arg)
- (code (symbol->string arg)))
- (else
- arg)))
-
-;*---------------------------------------------------------------------*/
-;* example ... */
-;*---------------------------------------------------------------------*/
-(define-markup (example #!rest opts #!key legend class)
- (new container
- (markup 'example)
- (ident (symbol->string (gensym 'example)))
- (class class)
- (required-options '(:legend :number))
- (options `((:number
- ,(new unresolved
- (proc (lambda (n e env)
- (resolve-counter n env 'example #t)))))
- ,@(the-options opts :ident :class)))
- (body (the-body opts))))
-
-;*---------------------------------------------------------------------*/
-;* example-produce ... */
-;*---------------------------------------------------------------------*/
-(define-markup (example-produce example . produce)
- (list (it "Example:")
- example
- (if (pair? produce)
- (list (paragraph "Produces:") (car produce)))))
-
-;*---------------------------------------------------------------------*/
-;* markup-ref ... */
-;*---------------------------------------------------------------------*/
-(define-markup (markup-ref mk)
- (ref :mark mk :text (code mk)))
-
-;*---------------------------------------------------------------------*/
-;* &the-index ... */
-;*---------------------------------------------------------------------*/
-(markup-writer '&the-index
- :class 'markup-index
- :options '(:column)
- :before (lambda (n e)
- (output (markup-option n 'header) e))
- :action (lambda (n e)
- (define (make-mark-entry n fst)
- (let ((l (tr :class 'index-mark-entry
- (td :colspan 2 :align 'left
- (bold (it (sf n)))))))
- (if fst
- (list l)
- (list (tr (td :colspan 2)) l))))
- (define (make-primary-entry n p)
- (let* ((note (markup-option n :note))
- (b (markup-body n)))
- (when p
- (markup-option-add! b :text
- (list (markup-option b :text)
- ", p."))
- (markup-option-add! b :page #t))
- (tr :class 'index-primary-entry
- (td :colspan 2 :valign 'top :align 'left b))))
- (define (make-column ie p)
- (let loop ((ie ie)
- (f #t))
- (cond
- ((null? ie)
- '())
- ((not (pair? (car ie)))
- (append (make-mark-entry (car ie) f)
- (loop (cdr ie) #f)))
- (else
- (cons (make-primary-entry (caar ie) p)
- (loop (cdr ie) #f))))))
- (define (make-sub-tables ie nc p)
- (define (split-list l num)
- (let loop ((l l)
- (i 0)
- (acc '())
- (res '()))
- (cond
- ((null? l)
- (reverse! (cons (reverse! acc) res)))
- ((= i num)
- (loop l
- 0
- '()
- (cons (reverse! acc) res)))
- (else
- (loop (cdr l)
- (+ i 1)
- (cons (car l) acc)
- res)))))
- (let* ((l (length ie))
- (w (/ 100. nc))
- (iepc (let ((d (/ l nc)))
- (if (integer? d)
- (inexact->exact d)
- (+ 1 (inexact->exact (truncate d))))))
- (split (split-list ie iepc)))
- (tr (map (lambda (ies)
- (td :valign 'top :width w
- (if (pair? ies)
- (table :width 100. (make-column ies p))
- "")))
- split))))
- (let* ((ie (markup-body n))
- (nc (markup-option n :column))
- (pref (eq? (engine-custom e 'index-page-ref) #t))
- (loc (ast-loc n))
- (t (cond
- ((null? ie)
- "")
- ((or (not (integer? nc)) (= nc 1))
- (table :width 100. :&skribe-eval-location loc
- (make-column ie pref)))
- (else
- (table :width 100. :&skribe-eval-location loc
- (make-sub-tables ie nc pref))))))
- (output (skribe-eval t e) e))))
-
-;*---------------------------------------------------------------------*/
-;* compiler-command ... */
-;*---------------------------------------------------------------------*/
-(define-markup (compiler-command bin . opts)
- (disp :verb #t
- (color :fg "red" (bold bin))
- (map (lambda (o)
- (list " [" (it o) "]"))
- opts)
- "..."))
-
-;*---------------------------------------------------------------------*/
-;* compiler-options ... */
-;*---------------------------------------------------------------------*/
-(define-markup (compiler-options bin)
- (skribe-message " [executing: ~a --options]\n" bin)
- (let ((port (open-input-file (format "| ~a --options" bin))))
- (let ((opts (read port)))
- (close-input-port port)
- (apply description (map (lambda (opt) (item :key (bold (car opt))
- (cadr opt) "."))
- opts)))))
diff --git a/skribe/doc/user/bib.skb b/skribe/doc/user/bib.skb
deleted file mode 100644
index a006a9b..0000000
--- a/skribe/doc/user/bib.skb
+++ /dev/null
@@ -1,252 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/bib.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Sun Dec 2 10:02:56 2001 */
-;* Last change : Tue Oct 26 21:41:19 2004 (eg) */
-;* Copyright : 2001-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The Skribe index */
-;*=====================================================================*/
-
-(bibliography "user/src/bib1.sbib")
-
-;*---------------------------------------------------------------------*/
-;* Index */
-;*---------------------------------------------------------------------*/
-(chapter :title "Bibliographies"
-
- (p [
-Skribe supports bibliographies. In order to use bibliography
-,(markup-ref "ref") it is needed to:])
- (itemize
- (item [
-Use the default pre-existing ,(emph "bibliography table") or create a
-custom one.])
- (item [
-Provide a ,(emph "bibliography database").])
- (item [
-Load the database by the mean of the ,(markup-ref "bibliography")
-Skribe function call.])
- (item [
-Reference to a bibliography entry, with a ,(markup-ref "ref") Skribe
-function call.]))
-
-;*---------------------------------------------------------------------*/
-;* Bibliography tables */
-;*---------------------------------------------------------------------*/
-(section :title "Bibliography tables"
-
- (p [
-This section describes the function of using and creating bibliography
-tables.])
-
- (p [The predicate ,(code "bib-table?") returns ,(code "#t") if and only
-if its argument is a bibliography table as returned by
-,(markup-ref "make-bib-table") or ,(markup-ref "default-bib-table"). Otherwise
-,(code "bib-table?") returns ,(code "#f").])
-
- (doc-markup 'bib-table?
- '((obj [The value to be tested]))
- :see-also '(make-bib-table default-bib-table bibliography the-bibliography)
- :force-engines *api-engines*
- :common-args '()
- :source "../src/bigloo/bib.bgl")
-
- (p [The function ,(code "default-bib-table") returns a global, pre-existing
-bibliography-table:])
- (doc-markup 'default-bib-table
- '()
- :see-also '(bib-table? make-bib-table bibliography the-bibliography)
- :force-engines *api-engines*
- :common-args '()
- :source "../src/bigloo/bib.bgl")
-
- (p [The function ,(code "make-bib-table") constructs a new
-bibliography-table:])
- (doc-markup 'make-bib-table
- '((ident [The name of the bibliography table.]))
- :see-also '(bib-table? default-bib-table bibliography the-bibliography)
- :force-engines *api-engines*
- :common-args '()
- :source "../src/bigloo/bib.bgl"))
-
-;*---------------------------------------------------------------------*/
-;* bibliography ... @label bibliography@ */
-;*---------------------------------------------------------------------*/
-(section :title "Bibliography"
-
-(p [The function ,(code "bibliography") loads bibliography ,(param 'entries)
-into the Skribe memory. An ,(emph "entry") is either a list
-representing one entry (such as an article or book reference) or a
-string which denotes a file name that contains several
-entries. All the entries loaded in memory are available for the function
-,(ref :ident "ref" :node "references"). A bibliography database must be loaded
-,(emph "before") any reference is introduced. It is advised to place
-the ,(code "bibliography") Skribe function call before the call to the
-,(markup-ref "document") function call.])
-
-(doc-markup 'bibliography
- `((:command ,[An external command to be applied when loading
- the bibliography entries. The sequence ,(code "~a") is replaced
- with the name of the file when the command is invoked.])
- (:bib-table ,[The ,(ref :mark "make-bib-table" :text "table")
- where entry is searched.])
- (#!rest entry... ,[If ,(param 'entry) is a string, it denotes
- a file containing the entry (see ,(ref :mark "skribe-bib-path"
- :text "bibliograph path")). Otherwise, it is a list described
- by the ,(ref :subsection "Bibliography syntax" :text "syntax")
- below.]))
- :see-also '(bib-table? make-bib-table default-bib-table the-bibliography)
- :force-engines *api-engines*
- :common-args '())
-
-(p [The ,(param :command) option can be used to import foreign bibliography.
-The following example, shows how to directly use a Bibtex bibliography
-using the ,(ref :section "Skribebibtex") translator.])
-
-(example-produce
- (example :legend "Printing a bibliography" (prgm :file "src/bib6.skb")))
-
-
-;; bibliography syntax
-(subsection :title "Bibliography syntax"
-
-(p [The Skribe bibliography database uses a format very close to
-the Bibtex one. It is a parenthetic version of Bibtex. Here is the
-syntax of an entry:])
-
-(disp :verb #t :bg *prgm-skribe-color* [
- --> ,(bold "(") +,(bold ")")
- --> techreport | article | inproceedings | book
- --> |
- --> ,(bold "(") ,(bold ")")])
-
-(p [Bibtex files cannot be directly loaded in Skribe but the tool
-,(ref :section "Skribebibtex" :text (tt "skribebibtex")) can be use to
-automatically convert Bibtex format to Skribe bibliography format.
-Here is an example of a simple Skribe database.])
-
-(prgm :file "src/bib1.sbib")))
-
-;*---------------------------------------------------------------------*/
-;* the-bibliography ... @label the-bibliography@ */
-;*---------------------------------------------------------------------*/
-(section :title "Printing a bibliography"
-
-(p [The function ,(code "the-bibliography") displays the bibliography. ])
-
-(doc-markup 'the-bibliography
- `((:bib-table [The bibliography
- ,(ref :mark "make-bib-table" :text "table") to be displayed.])
- (:pred [A predicate filtering the bibliography entries. It takes
- two parameters: the bibliography entry and the
- ,(code "the-bibliography") node.])
- (:sort [A function sorting a list of entries.])
- (:count ,[The symbol ,(code "partial") or ,(code "full")
- specifies the numbering to be applied. The value
- ,(code "partial") tells Skribe to count only the entries
- filtered in by ,(param :pred). The value ,(code "full")
- tells Skribe to count all entries, event those filtered out
- by ,(param :pred).]))
- :see-also '(bib-table? make-bib-table default-bib-table bibliography)
- :force-engines *api-engines*
- :common-args '())
-
-(example-produce
- (example :legend "Printing a bibliography" (prgm :file "src/bib2.skb"))
- (disp (include "src/bib2.skb")))
-
-;; filtering bibliography
-(subsection :title "Filtering bibliography entries"
-(index "the-bibliography" :note "filtering")
-
-(p [The ,(param :pred) option is bound to a function of one argument
-that filters bibliography entries. It is used to control which entries
-must appears on a bibliography. The default behavior is to display
-only the entries referenced to in the text. For instance, in order to
-display ,(emph "all") the entries of a bibliography, is it needed to
-print the bibliography with a predicate returning always ,(code "#t").])
-
-(example-produce
- (example :legend "Unfiltering bibliography entries" (prgm :file "src/bib3.skb"))
- (disp (include "src/bib3.skb")))
-
-(p [The second example, filters out the entries that are not ,(emph "book")
-or that are not referenced to from the document.])
-
-(example-produce
- (example :legend "Unfiltering bibliography entries" (prgm :file "src/bib4.skb"))
- (disp (include "src/bib4.skb")))
-
-(p [The last example, illustrates how to change the rendering of a
-bibliography. It uses the ,(markup-ref "processor") construction
-and it defines two ,(ref :ident "writer" :text "writers") for
-displaying ,(code "&bib-entry-ident") and ,(code "&bib-entry-title")
-markups. These two markups are introduced by Skribe when it loads a
-bibliography. All fields of bibliography entries are represented by
-markups whose prefix are ,(code "&bib-entry-"). The parent of all these
-markups is the bibliography entry itself. The ,(code "&bib-entry-") markups
-are options of there parent.])
-
-(example-produce
- (example :legend "Unfiltering bibliography entries" (prgm :file "src/bib5.skb"))
- (disp (include "src/bib5.skb"))))
-
-;; sorting bibliography
-(subsection :title "Sorting bibliography entries"
-(index "the-bibliography" :note "sorting")
-
-(p [The ,(param :sort) option of the ,(markup-ref "the-bibliography")
-markup is used for sorting the bibliography entries. There are three
-pre-existing functions for sorting entries:])
-
-(doc-markup 'bib-sort/authors
- '((l [The list of entries.]))
- :force-engines *api-engines*
- :source "../src/common/bib.scm"
- :others '(bib-sort/idents bib-sort/dates)
- :common-args '())
-
-(p [The first function sorts the entries according to an alphabetic ordering
-on authors. The second sorts according to an alphabetic ordering on
-entries identifier. The last one sorts according to entries date.])
-
-(example-produce
- (example :legend "Sorting bibliography entries"
- (prgm :file "src/common/bib.scm" :definition 'bib-sort/idents)))))
-
-;*---------------------------------------------------------------------*/
-;* skribebibtex */
-;*---------------------------------------------------------------------*/
-(section :title "Skribebibtex"
-(index "skribebibtex" :note "manual page")
-(index "bibtex")
-(p [
-In this section we present the Skribebibtex translator that compiles Bibtex
-source files into a Skribe bibliography.])
-
-;; Synopsis
-(subsection :title "SYNOPSIS" :number #f
- (compiler-command *skribebibtex-bin* "options" "input"))
-
-;; Description
-(subsection :title "DESCRIPTION" :number #f [
-This manual page is not meant to be exhaustive. It
-documents the ,(tt "skribebibtex"), a tool that translates
-,(bold "Bibtex") files into ,(it "Skribe"), bibliography format. These
-files can be used by the ,(bold "skribe") compiler to produce
-bibliography entries.])
-
-;; Suffixes
-(subsection :title "SUFFIXES" :number #f [
-The ,(ref :chapter "Skribe compiler" :text "skribe") compiler uses file
-suffixes in order to select amongst its possible targets which to choose.
-These suffixes are:
-
-,(description (item :key (it ".bib") [a ,(bold "Bibtex") source file.]))])
-
-;; Options
-(subsection :title "OPTIONS" :number #f
-(compiler-options *skribebibtex-bin*))))
-
diff --git a/skribe/doc/user/char.skb b/skribe/doc/user/char.skb
deleted file mode 100644
index 85409f0..0000000
--- a/skribe/doc/user/char.skb
+++ /dev/null
@@ -1,86 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/char.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Sat Sep 6 16:07:08 2003 */
-;* Last change : Mon Feb 2 11:16:57 2004 (serrano) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Characters, strings and symbols */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Footnote ... */
-;*---------------------------------------------------------------------*/
-(section :title "Characters, Strings and Symbols" :file #t
-
-;*--- characters ------------------------------------------------------*/
-(subsection :title "Characters"
-
-(p [The function ,(code "char") introduces a ,(emph "character") in
-the produced document. The purpose of this function is to introduce
-escape characters or to introduce characters that cannot be typesetted
-in the document (for instance because the editors does not support
-them). The escapes characters are ,(code (char 91)), ,(code (char 93))
-and ,(code (char 59)).])
-
-(doc-markup 'char
- '((char [The character to be introduced. Specified value can be
-a character, a string or an integer]))
- :common-args '())
-
-(example-produce
- (example :legend "Some characters" (prgm :file "src/api19.skb"))
- (disp (include "src/api19.skb"))))
-
-
-;*--- Strings ---------------------------------------------------------*/
-(subsection :title "Strings"
-
-(p [the function ,(code "!") introduces raw strings in the target.
-That is, the strings introduced by ,(code "!") are written ,(emph "as is"),
-without any transformation from the engine.])
-
-(doc-markup '!
- '((format [The format of the command.])
- (#!rest node... "The arguments."))
- :common-args '())
-
-(p [The sequences ,(code "$1"), ,(code "$2"), ... in the ,(param 'format)
-are replaced with the actual values of the arguments ,(param 'node).])
-
-(example-produce
- (example :legend "Some characters" (prgm :file "src/api20.skb"))
- (disp (include "src/api20.skb"))))
-
-;*--- Symbols ---------------------------------------------------------*/
-(subsection :title "Symbols"
-
-(p [The function ,(code "symbol") introduces special symbols in the
-produced file. Note that the rendering of symbols is unportable. It depends
-of the capacity of the targeted format.])
-
-(doc-markup 'symbol
- '((symbol [The symbol to introduce.]))
- :common-args '())
-
-(p [Here is the list of recognized symbols:])
-
-(center
- (apply table
- :width *prgm-width*
- (tr :class 'api-symbol-prototype (th "Symbol name") (th "Rendering"))
- (map (lambda (s)
- (tr :bg *prgm-skribe-color*
- (td :align 'left s)
- (td :align 'left (symbol s))))
- (sort (let ((t (make-hashtable)))
- (for-each (lambda (e)
- (for-each (lambda (s)
- (hashtable-put! t (car s) (car s)))
- (engine-symbol-table e)))
- *api-engines*)
- (hashtable->list t))
- stringstring "A procedure of one argument for rendering chapter numbers.")
- (chapter-file ,[A boolean specifying if chapters are rendered in speparate html file (see ,(markup-ref "chapter") markup).])
- ;; section configuration
- (section-title-start "The HTML sequence for starting section title.")
- (section-title-stop "The HTML sequence for stopping section title.")
- (section-title-background "The background color of section title.")
- (section-title-foreground "The foreground color of section title.")
- (section-title-number-separator "The section title number separator.")
- (section-number->string "A procedure of one argument for rendering section numbers.")
- (section-file ,[A boolean specifying if sections are rendered in speparate html file (see ,(markup-ref "section") markup).])
- ;; subsection configuration
- (subsection-title-start "The HTML sequence for starting subsection title.")
- (subsection-title-stop "The HTML sequence for stopping subsection title.")
- (subsection-title-background "The background color of subsection title.")
- (subsection-title-foreground "The foreground color of subsection title.")
- (subsection-title-number-separator "The subsection title number separator.")
- (subsection-number->string "A procedure of one argument for rendering subsection numbers.")
- (subsection-file ,[A boolean specifying if subsections are rendered in speparate html file (see ,(markup-ref "subsection") markup).])
- ;; subsubsection configuration
- (subsubsection-title-start "The HTML sequence for starting subsubsection title.")
- (subsubsection-title-stop "The HTML sequence for stopping subsubsection title.")
- (subsubsection-title-background "The background color of subsubsection title.")
- (subsubsection-title-foreground "The foreground color of subsubsection title.")
- (subsubsection-title-number-separator "The subsubsection title number separator.")
- (subsubsection-number->string "A procedure of one argument for rendering subsubsection numbers.")
- (subsubsection-file ,[A boolean specifying if subsubsections are rendered in speparate html file (see ,(markup-ref "subsubsection") markup).])
- ;; source fontification
- (source-color ,[A boolean enabling/disabling color of source code (see ,(markup-ref "source") markup).])
- (source-comment-color "The source comment color.")
- (source-error-color "The source error color.")
- (source-define-color "The source define color.")
- (source-module-color "The source module color.")
- (source-markup-color "The source markup color.")
- (source-thread-color "The source thread color.")
- (source-string-color "The source string color.")
- (source-bracket-color "The source bracket color.")
- (source-type-color "The source type color.")
- (image-format "The image formats for this engine."))
- :source "skr/html.skr")))
-
-
diff --git a/skribe/doc/user/image.skb b/skribe/doc/user/image.skb
deleted file mode 100644
index d08ad18..0000000
--- a/skribe/doc/user/image.skb
+++ /dev/null
@@ -1,79 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/image.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Thu Sep 4 11:53:32 2003 */
-;* Last change : Sat Jan 17 18:08:15 2004 (serrano) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Skribe images */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Image ... @label image@ */
-;*---------------------------------------------------------------------*/
-(section :title "Image" :file #t
-
-(p [Images are defined by the means of the ,(code "image") function])
-
-(doc-markup 'image
- `((:file ,[The file where the image is stored on the disk
- (see ,(ref :mark "skribe-image-path"
- :text "image path")).
- The image is converted
- (see ,(markup-ref "convert-image")) into a format
- supported by the engine. This option is exclusive
- with the ,(param :url) option.])
- (:url [The URL of the file. This option is exclusive with the
- ,(param :file) option.])
- (:width [The width of the image. It may be an integer for a pixel
- size or a floating point number for a percentage.])
- (:height [The height of the image. It may be an integer for a
- pixel size or a floating point number for a
- percentage.])
- (:zoom [A zoom factor.])
- (#!rest comment [A text describing the image.]))
- :see-also '(skribe-image-path convert-image))
-
-(example-produce
- (example :legend "The image markup" (prgm :file "src/api16.skb"))
- (disp (include "src/api16.skb")))
-
-;*--- Image format ----------------------------------------------------*/
-(subsection :title "Image formats"
- (index "image" :note "conversion")
-
- (p [
-Images are unfortunately ,(emph "unportable"). The various Skribe output
-formats support different image formats. For instance, HTML supports
-,(code "gif") and ,(code "jpeg") while the LaTeX back-end only supports
-,(code "ps"). Skribe tries, only when needed, to automatically
-,(emph "convert") images to a format supported by the target
-to be produced. For this, it uses external tools. The default Skribe
-translation scheme is:])
-(itemize (item [Do not translate an image that needs no conversion.])
- (item [Uses the ,(code "fig2dev") external tool to translate
- ,(code "Xfig") images.])
- (item [Uses the ,(code "convert") external tools to translate all
- other formats.]))
-
- (p [,(ref :chapter "Engines" :text "Engines") support different image
-formats. Each engine may specify a converter to be applied to an image.
-The engine custom ,(code "image-format") specifies the list of supported
-image formats. This list is composed of a suffix such as ,(code "jpeg") or
-,(code "gif").])
-
- (p [The function ,(code "convert-image") tries to convert an
-image according to a list of formats. All the specified formats are
-successively tried. On the first success, the function ,(code "convert-image")
-returns the name of the new converted image. On failure, it returns
-,(code "#f").])
- (doc-markup 'convert-image
- `((file [The image file to be converted. The file is
-searched in the ,(ref :mark "skribe-image-path" :text "image path").])
- (formats [A list of formats into which images are converted to.]))
- :common-args '()
- :source "../src/bigloo/lib.bgl"
- :see-also '(skribe-image-path)
- :idx *function-index*)))
-
diff --git a/skribe/doc/user/index.skb b/skribe/doc/user/index.skb
deleted file mode 100644
index dd5e8fa..0000000
--- a/skribe/doc/user/index.skb
+++ /dev/null
@@ -1,118 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/index.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Sun Dec 2 10:02:56 2001 */
-;* Last change : Mon Feb 23 18:59:00 2004 (eg) */
-;* Copyright : 2001-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Skribe indexes */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Index */
-;*---------------------------------------------------------------------*/
-(chapter :title "Indexes" (p [
-Skribe support indexes. One may accumulate all entries inside one
-unique index or dispatch them amongst user declared indexes. Indexes
-may be ,(emph "monolithic") or ,(emph "split"). They only differ in
-the way they are rendered by the back-ends. For a split index a sectioning
-based on the specific (e.g., "the first one") character of
-index entries is deployed.])
-
-;*---------------------------------------------------------------------*/
-;* make-index ... @label make-index@ */
-;*---------------------------------------------------------------------*/
-(section :title "Making indexes"
-
-(p [The function ,(code "make-index") declares a new index.])
-
-(doc-markup 'make-index
- '((ident "A string, the name the index (currently unused)."))
- :common-args '()
- :see-also '(default-index index the-index ref mark))
-
-(p [For instance, the following Skribe expression declares an index named
-,(tt "*index1*"):])
-
-(example-produce
- (example :legend "Creation of a new index" (prgm :file "src/index1.skb")))
-
-(include "src/index1.skb")
-
-(p [This example produces no output but enables entries to be added to that
-index. In general it is convenient to declare indexes ,(emph "before")
-the call to the ,(markup-ref "document") function.])
-
-(p [The function ,(code "default-index") returns the default index
-that pre-exists to all execution.])
-
-(doc-markup 'default-index
- '()
- :common-args '()
- :source "src/common/index.scm"))
-
-;*---------------------------------------------------------------------*/
-;* Index ... @label index@ */
-;*---------------------------------------------------------------------*/
-(section :title "Adding entries to an index"
-
-(p [The function ,(code "index") adds a new entry into one existing
-index and sets a mark in the text where the index will point to. It is
-an error to add an entry into an index that is not already declared.])
-
-(doc-markup 'index
- '((:index [The name of the index whose index entry belongs to.
- A value of ,(tt "#f") means that the
- ,(markup-ref :mark "default-index") owns this entry.])
- (:note [An optional note added to the index entry. This note
- will be displayed in the index printing.])
- (:shape [An optional shape to be used for rendering the entry.])
- (:url [An optional URL that is referenced in the index table
- instead of the location of the ,(code "index").])
- (#!rest name [The name of the entry. This must be a string.]))
- :see-also '(make-index default-index the-index))
-
-(p [The following expressions add entries to the index ,(code "*index1*"):])
-
-(example-produce
- (example :legend "Adding entries to an index" (prgm :file "src/index2.skb")))
-
-(include "src/index2.skb")
-
-(p [There is no output associated with these expressions.]))
-
-;*---------------------------------------------------------------------*/
-;* Print-index ... @label the-index@ */
-;*---------------------------------------------------------------------*/
-(section :title "Printing indexes"
-
- (p [The function ,(code "the-index") displays indexes in the produced
-document.])
-
- (doc-markup 'the-index
- '((:split [If ,(tt "#t"), character based sectioning is deployed.
- Otherwise all the index entries are displayed one next to
- the other.])
- (:char-offset [The character number to use when split is
- required. This option may be useful when printing index whose
- items share a common prefix. The ,(param :char-offset)
- argument can be used to skip this prefix.])
- (:header-limit [The number of entries from which an index header
- is introduced.])
- (:column [The number of columns of the index.])
- (#!rest index... [The indexes to be displayed. If index
- is provided, the global index ,(markup-ref "default-index")
- is printed.])))
-
- (p [If the engine custom
-,(ref :chapter "Engines" :text (code "index-page-ref")) is true when a
-index is rendered then, page reference framework is used instead of
-a direct reference framework.])
-
-(example-produce
- (example :legend "Printing indexes" (prgm :file "src/index3.skb"))
- (disp (include "src/index3.skb")))
-
-(p [See the Skribe ,(ref :mark "global index" :text "global index") for
-a real life index example.])))
diff --git a/skribe/doc/user/justify.skb b/skribe/doc/user/justify.skb
deleted file mode 100644
index 94db7d5..0000000
--- a/skribe/doc/user/justify.skb
+++ /dev/null
@@ -1,30 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/justify.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Thu Sep 4 11:53:32 2003 */
-;* Last change : Fri Sep 12 15:31:31 2003 (serrano) */
-;* Copyright : 2003 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Skribe justification */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Justification */
-;*---------------------------------------------------------------------*/
-(section :title "Justification" :file #t
-
-(p [These functions control the text layout. The default layout is text
-justification.])
-
-(doc-markup 'flush
- '((:side [The possible values for the side justification
- are ,(tt "left"), ,(tt "center") or ,(tt "right").])
- (#!rest node... "The nodes of the font."))
- :others '(center pre)
- :see-also '(linebreak table prog))
-
-(example-produce
- (example :legend "The justification markups" (prgm :file "src/api10.skb"))
- (disp (include "src/api10.skb"))))
-
diff --git a/skribe/doc/user/latexe.skb b/skribe/doc/user/latexe.skb
deleted file mode 100644
index f53737b..0000000
--- a/skribe/doc/user/latexe.skb
+++ /dev/null
@@ -1,60 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/latexe.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Wed Sep 3 11:20:49 2003 */
-;* Last change : Tue Apr 6 06:28:59 2004 (serrano) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The documentation of the html engine */
-;*=====================================================================*/
-;; @indent: (put 'doc-engine 'skribe-indent 'skribe-indent-function)@
-
-;*---------------------------------------------------------------------*/
-;* Document */
-;*---------------------------------------------------------------------*/
-(section :title "LaTeX engine" :file #t
- (mark "latex-engine")
- (index "LaTeX" :note "Engine")
- (p [The LaTeX engine...])
-
-
- (subsection :title "The LaTeX customization"
-
- (doc-engine 'latex
- `((documentclass ,[A string declaring The LaTeX document class.])
- (usepackage ,[The boolean ,(code "#f") if no package is used or a string declaring The LaTeX packages.])
- (predocument ,[The boolean ,(code "#f") or a string to be written before the \\begin{document} statement.])
- (postdocument ,[The boolean ,(code "#f") or a string to be written after the \\begin{document} statement.])
- (maketitle ,[The boolean ,(code "#f") or a string to be written after the \\begin{document} statement for emitting the document title.])
- (color [Enable/disable colors.])
- (%font-size #f)
- ;; source fontification
- (source-color ,[A boolean enabling/disabling color of source code (see ,(markup-ref "source") markup).])
- (source-comment-color "The source comment color.")
- (source-error-color "The source error color.")
- (source-define-color "The source define color.")
- (source-module-color "The source module color.")
- (source-markup-color "The source markup color.")
- (source-thread-color "The source thread color.")
- (source-string-color "The source string color.")
- (source-bracket-color "The source bracket color.")
- (source-type-color "The source type color.")
- (color-usepackage "The LaTeX package for coloring.")
- (hyperref "Enables/disables hypererrf.")
- (hyperref-usepackage "The LaTeX package for hyperref.")
- (image-format "The image formats for this engine.")
- (index-page-ref "Indexes use page references."))
- :source "skr/latex.skr"))
-
- (subsection :title "LaTeX documentclass"
-
- (p [The default setting of the Skribe LaTeX engine is to produce
-a document using the ,(code "article") document class. In order to
-generate a document using ,(code "chapter") this must be changed because
-this LaTeX style does not define any ,(code "\\chapter") function. For
-instance, one may use the LaTeX ,(code "book") document class. Changing
-this setting can be done with expressions such as:
-,(prgm :language skribe [
-(let ((le (find-engine 'latex)))
- (engine-custom-set! le 'documentclass "\\\\documentclass{book}"))])])))
diff --git a/skribe/doc/user/lib.skb b/skribe/doc/user/lib.skb
deleted file mode 100644
index 499ca61..0000000
--- a/skribe/doc/user/lib.skb
+++ /dev/null
@@ -1,156 +0,0 @@
-;;;;
-;;;; Standard Library
-;;;;
-;;;;
-;;;; Author: Erick Gallesio [eg@essi.fr]
-;;;; Creation date: 21-Nov-2003 07:20 (eg)
-;;;; Last file update: 21-Nov-2003 10:17 (eg)
-
-
-(chapter :title "Standard Library"
-
- (p [This section describes the Skribe standard library])
-
-;;;
-(section :title "File functions"
-
- (p [The function ,(code "include") is particularily useful to spread a
-long document amongst several files.])
-
- (doc-markup 'include
- '((file [The file containing the nodes to be included.
-These nodes are included in the document in place of the ,(code "include")
-call.]))
- :common-args '()
- :see-also '(skribe-load skribe-path skribe-path-set!)
- :idx *function-index*)
-
- (p [The given file is searched in the current
-,(ref :mark "skribe-path" :text "Skribe path")])
-
- (p [The function ,(code "skribe-load") is generally used to load in the
-Skribe memory, a package or an extension. In general the prelude of a
-Skribe document (the expressions placed before the ,(markup-ref "document")
-call) contains several ,(code "skribe-load"). The file is search
-in the ,(ref :mark "skribe-path" :text "Skribe path").])
-
- (doc-markup 'skribe-load
- `((file [The file containing the expressions to be loaded.])
- (:engine [The engine used to evaluate the expressions.])
- (:path ,[The optional path where to find the file. The default
- path is ,(markup-ref "skribe-path").])
- (#!rest opt... [Additional user options.]))
- :source "../src/bigloo/eval.scm"
- :common-args '()
- :see-also '(skribe-load-options skribe-path skribe-path-set!)
- :idx *function-index*)
-
- (p [Returns the user of options of the last call to
-,(markup-ref "skribe-load")])
- (doc-markup 'skribe-load-options
- '()
- :source "../src/bigloo/eval.scm"
- :common-args '()
- :see-also '(skribe-load)
- :idx *function-index*)
-
- (p [Skribe provides functions for dealing with paths. These functions
-are related to the path that can be specified on the command line,
-when the Skribe compiler is invoked (see Chapter
-,(ref :chapter "Skribe compiler").)])
-
- (doc-markup 'skribe-path
- '()
- :source "../src/bigloo/eval.scm"
- :common-args '()
- :others '(skribe-image-path skribe-bib-path skribe-source-path)
- :see-also '(include skribe-load image source bibliography skribe-path-set! skribe-image-path-set! skribe-bib-path-set! skribe-source-path-set!)
- :idx *function-index*)
-
- (p [The function ,(code "skribe-path-set!") sets a new path.])
- (doc-markup 'skribe-path-set!
- '((path [A list of strings which is the new Skribe search path.]))
- :source "../src/bigloo/eval.scm"
- :common-args '()
- :others '(skribe-image-path-set! skribe-bib-path-set! skribe-source-path-set!)
- :see-also '(skribe-path skribe-image-path skribe-bib-path skribe-source-path)
- :idx *function-index*))
-
-;;; Misc
-(section :title "Misc. Functions"
-
- (p [The function ,(code "skribe-release") returns the Skribe version
-as a string])
- (doc-markup 'skribe-release
- '()
- :common-args '()
- :source #f
- :def '(define (skribe-release) ...)
- :idx *function-index*)
-
- (p [For instance, the following piece of code:])
- (prgm :language skribe
- "[This manual documents the ,(bold (skribe-release)) Skribe release]")
- (p [produces the following output])
- (disp [This manual documents the ,(bold (skribe-release)) Skribe release]))
-
- (p [The function ,(code "skribe-configure") accesses the whole
-Skribe configuration. It can be used to ,(emph "get") or ,(emph "check")
-the configuration.])
-
- (doc-markup 'skribe-configure
- '((opt... [Optional arguments.]))
- :common-args '()
- :source #f
- :def '(define (skribe-configure . opt...) ...)
- :idx *function-index*)
-
- (p [The function ,(code "skribe-configure") can be used in three distinct
-ways depending on the number of provided arguments:])
-
- (enumerate
- (item [If no argument is provided, ,(code "skribe-configure") returns
-a fresh list of Skribe configuration.])
- (item [If one keyword argument is provided, ,(code "skribe-configure")
-returns the value associated with this keyword in the configuration list.
-If this value does not exist, it returns the symbol ,(code "void").])
- (item [(code "skribe-configure") is invoked with a list composed
-of ,(emph "keyword") ,(emph "value"). The actual configuration is checked
-against the provided values. Values are compared with ,(code "equal") except
-if the value to check has to be compared with a procedure. In that particular
-case the value of the check is the value produces by ,(emph "applying") the
-function to the actual value. The result of ,(code "skribe-configure") is a
-boolean.]))
-
- (p [Here are some examples.])
- (prgm :language skribe [
-;; fetch the whole configuration list
-(skribe-configure)
-
-;; fetch the release number
-(skribe-configure :release)
-
-;; test if the release number is 1.0b
-(skribe-configure :release "1.0b")
-
-;; test if the release number is greater or equal than "1.0b"
-(skribe-configure :release (lambda (v) (string>=? v "1.0b")))
-
-;; test if the release number is greater or equal than "1.0b"
-;; and the implementation is bigloo
-(skribe-configure :release (lambda (v) (string>=? v "1.0b")) :scheme "bigloo")])
-
- (p [The function ,(code "skribe-enforce-configure") checks for the Skribe
-configuration. In case of mismatch, it raises an error. The syntax of the
-arguments if the same as that of ,(code "skribe-configure") when invoked
-with several arguments.])
-
- (doc-markup 'skribe-enforce-configure
- '((opt... [Optional arguments.]))
- :common-args '()
- :source #f
- :def '(define (skribe-enforce-configure . opt...) ...)
- :idx *function-index*))
-
-
-
diff --git a/skribe/doc/user/line.skb b/skribe/doc/user/line.skb
deleted file mode 100644
index 85f84dd..0000000
--- a/skribe/doc/user/line.skb
+++ /dev/null
@@ -1,39 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/line.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Thu Sep 4 10:08:08 2003 */
-;* Last change : Thu Sep 4 13:29:49 2003 (serrano) */
-;* Copyright : 2003 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Line breaks */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Line breaks */
-;*---------------------------------------------------------------------*/
-(section :title "Line breaks" :file #t
-
-(p [Line breaks and horizontal rules enable text cutting.])
-
-;*--- linebreak -------------------------------------------------------*/
-(subsection :title "Linebreak"
-
-(p [The Skribe function ,(code "linebreak") is unportable. Even if
-most engines handle it for their code production, using ,(code "linebreak")
-generally produces expected result. For instance, using ,(code "linebreak")
-with an engine producing LaTeX code is bound to fail. In consequence,
-as much as possible, one should prefer other ways for splitting a text])
-
-(doc-markup 'linebreak
- '((#!rest num "The number of line breaks."))
- :see-also '(paragraph table)))
-
-;*--- Horizontal rule -------------------------------------------------*/
-(subsection :title "Horizontal rule"
-
-(doc-markup 'hrule
- `((:width ,[The ,(ref :mark "width") of the horizontal rule.])
- (:height [The thickness of the rule. A positive integer
- value stands for a number of pixels.])))))
-
diff --git a/skribe/doc/user/links.skb b/skribe/doc/user/links.skb
deleted file mode 100644
index b454f28..0000000
--- a/skribe/doc/user/links.skb
+++ /dev/null
@@ -1,152 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/links.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Thu Sep 11 06:10:44 2003 */
-;* Last change : Thu Feb 26 20:56:48 2004 (eg) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Skribe links */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Links and references */
-;*---------------------------------------------------------------------*/
-(chapter :title "References and Hyperlinks" [
-Skribe supports traditional ,(emph "references") (that is, references to some
-part of documents) and ,(emph "hyperlinks") (that is visual marks enriching
-texts that enable interactive browsing). Hyperlinks may point to
-
-,(itemize (item [Inner parts of a document, such as a section or a figure.])
- (item [Other documents, such as Web documents.])
- (item [Other Skribe documents.])
- (item [Specific part of other Skribe documents, such as a chapter
- of another Skribe document.]))
-
-,(paragraph [In order to use hyperlinks, Skribe documents must:])
-
-,(itemize (item [,(emph "Refer to") marks. This is the role of the ,(tt "ref")
- Skribe function.])
- (item [,(emph "Set") marks. This is the role of the ,(tt "mark")
- function. However, most Skribe functions that introduce text
- structures (e.g., chapters, sections, figures, ...)
- automatically introduce marks as well. So, it is
- useless to ,(emph "explicitly") introduce a mark at the
- beginning of these constructions in order to refer to them
- with an hyperlink.]))]
-
-;*---------------------------------------------------------------------*/
-;* mark ... @label mark@ */
-;*---------------------------------------------------------------------*/
-(section :title "Mark"
-
-(p [The ,(code "mark") function sets a mark in the produced document
-that can be referenced to with the ,(markup-ref "ref")
-function. Unless a ,(param :text) option is specified, no visible text
-in associated with the mark in the generated document.])
-
-(doc-markup 'mark
- '((:text "A text associated with the markup.")
- (#!rest mark [A string that will be used in a
- ,(markup-ref "ref") function call to point to that mark.])))
-
-(p [The Skribe functions
- ,(map (lambda (x y)
- (list (markup-ref x) y))
- '("chapter" "section" "subsection" "subsubsection")
- '(", " ", " ", " " "))
-Skribe automatically set a mark whose value is the title of the section.
-The Skribe function ,(markup-ref "figure")
-automatically sets a mark whose value is the legend of the figure.]))
-
-;*---------------------------------------------------------------------*/
-;* ref ... @label ref@ */
-;*---------------------------------------------------------------------*/
-(section :title "Reference"
-
-(p [Skribe proposes only one single function for all the references.
-This same ,(code "ref") function is used for introducing references to
-section, to bibliographic entries, to source code line number, etc.])
-
-(doc-markup 'ref
- `((:text [The text that is the visual part the links for
- engines that support hyperlinks.])
- (:url [An URL, that is, a location of another file,
- such as an HTML file.])
- (:mark [A string that is the name of a mark. That mark has
- been introduced by a ,(markup-ref "mark") markup.])
- (:handle [A Skribe node ,(markup-ref "handle").])
- (:ident [A reference to a node who has been specified
- an ,(param :ident) value.])
- (:figure [The name of a ,(markup-ref "figure").])
- (:chapter [The name of a ,(markup-ref "chapter").])
- (:section [The name of a ,(markup-ref "section").])
- (:subsection [The name of a ,(markup-ref "subsection").])
- (:subsubsection [The name of a ,(markup-ref "subsubsection").])
- (:page [A boolean enabling/disabling page reference.])
- (:bib ,[A name or a list of names of
- ,(ref :chapter "Bibliographies" :text "bibliographic") entry.])
- (:bib-table ,[The
- ,(ref :chapter "Bibliographies" :text "bibliography") where
- searching the entry.])
- (:line [A reference to a ,(ref :mark "prog" :text "program")
- line number.])
- (:skribe [The name of a
- ,(ref :section "Skribe Url Index" :text "Skribe Url Index")
- ,(var "file") that contains the reference. The
- reference can be a ,(tt "chapter"), ,(tt "section"),
- ,(tt "subsection"), ,(tt "subsubsection") or even
- a ,(tt "mark") located in the Skribe document
- described by the ,(var "file") ,(sc "sui").]))
- :force-args '(:url :bib :line :skribe)
- :see-also '(index))
-
-
-(example-produce
- (example :legend "Some references" (prgm :file "src/links1.skb"))
- (disp (include "src/links1.skb"))))
-
-;*---------------------------------------------------------------------*/
-;* mailto ... @label mailto@ */
-;*---------------------------------------------------------------------*/
-(section :title "Electronic mails"
-
-(p [The ,(code "mailto") function is mainly useful for electronic
-output formats that are able to run a mailing agent. The function ,(tt "mailto")
-introduces mail annotation in a Skribe document.])
-
-(doc-markup 'mailto
- '((:text [The text that is the visual part the links.])
- (#!rest email [The electronic address.])))
-
-(example-produce
- (example :legend "Mail address reference" (prgm :file "src/links2.skb"))
- (disp (include "src/links2.skb"))))
-
-;*---------------------------------------------------------------------*/
-;* Skribe Url Index ... */
-;*---------------------------------------------------------------------*/
-(section :title "Skribe Url Index" [
-,(p [A ,(emph "Skribe Url Index") (henceforth ,(sc "Sui")) describes the
-marks that are available in a Skribe document. It is to be used to
-make Skribe marks available to other Skribe documents. The syntax
-of a ,(sc "Sui") file is:])
-
-,(disp :verb #t :bg *prgm-skribe-color* [
- --> (skribe-url-index
- :file <file-name>
- (marks <sui-ref>*)
- (chapters <sui-ref>*)
- (section <sui-ref>*)
- (subsection <sui-ref>*)
- (subsubsection <sui-ref>*))
-<sui-ref> --> (<string> :file <file-name> :mark <string>)])
-
-,(p [,(sc "Sui") files can be automatically produced by the Skribe compiler.
-For instance, in order to produce the ,(sc "Sui") file of this user
-manual, one should write:])
-
-,(disp :verb #t [
-$ skribe user.skb -o user.sui])]))
-
-;; LocalWords: Hyperlinks HTML URL url
diff --git a/skribe/doc/user/markup.skb b/skribe/doc/user/markup.skb
deleted file mode 100644
index 272bfbe..0000000
--- a/skribe/doc/user/markup.skb
+++ /dev/null
@@ -1,83 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/markup.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Tue Sep 2 06:09:18 2003 */
-;* Last change : Wed Feb 4 06:11:45 2004 (serrano) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The Skribe standard markups */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* API */
-;*---------------------------------------------------------------------*/
-(chapter :title "Standard Markups" [
-
-This chapter describes the forms composing Skribe texts. In XML/HTML
-these forms are called ,(emph "markups"). In LaTeX they are called
-,(emph "macros"). In Skribe these forms are called ,(emph
-"functions"). In this manual, we will say that we ,(emph "call a
-function") when a function is used in a form. The values used in a
-function call are named the ,(emph "actual parameters") of the
-function or ,(emph "parameters") in short. When calling a function
-with parameters we say that we are ,(emph "passing") arguments to the
-function.
-
-,(p [ In this documentation function names are typesetted in bold
-face. We call a ,(emph "keyword argument"), an argument whose
-identifier starts with the ,(tt ":") character. Arguments whose
-identifier does not start with this character are called ,(emph "plain
-arguments") or ,(emph "arguments") in short. An ,(emph "optional
-argument") is represented by a list, starting with the character ,(q
-(char 91)) and ending with the character ,(q (char 93)), whose first
-element is a keyword argument and the optional second (,(code "#f")
-when not specified) element is the default value used if the optional
-argument value is not provided on a function call. Arguments that are
-not optional are said ,(emph "mandatory"). If a plain argument is
-preceeded with a ,(tt ".") character, this argument may be used to
-accumulate several values. There are two ways to pass actual arguments
-to a function.])
-
-,(itemize (item [for keyword arguments: the value of the parameter
-must be preceeded by the name of the argument.])
- (item [for plain arguments: a value is provided.]))
-
-Example: Let us consider the function ,(tt "section") defined as follows:
-,(prgm "(section :title [:number #t] [:toc #t] . body)")
-
-,(p [
-The argument ,(param :title) is a mandatory keyword argument.
-The keyword arguments ,(param :number) and ,(param :toc) are
-optional. The plain argument ,(param 'body) is preceeded with a
-,(tt ".") character so it may receive several values. All the following
-calls are legal ,(tt "section") calls:])
-
-,(prgm (source :file "src/api1.skb"))]
-
-;*---------------------------------------------------------------------*/
-;* Markup index ... */
-;*---------------------------------------------------------------------*/
-(section :title "Markup index" :ident "markups-index" :file #f :number #f :toc #t
- (the-index :class 'markup-index
- :column (if (engine-format? "latex") 2 4)
- :split #f
- *markup-index*))
-
-;*---------------------------------------------------------------------*/
-;* Markups */
-;*---------------------------------------------------------------------*/
-(include "document.skb")
-(include "sectioning.skb")
-(include "toc.skb")
-(include "ornament.skb")
-(include "line.skb")
-(include "font.skb")
-(include "justify.skb")
-(include "enumeration.skb")
-(include "colframe.skb")
-(include "figure.skb")
-(include "image.skb")
-(include "table.skb")
-(include "footnote.skb")
-(include "char.skb"))
diff --git a/skribe/doc/user/ornament.skb b/skribe/doc/user/ornament.skb
deleted file mode 100644
index e65b9d1..0000000
--- a/skribe/doc/user/ornament.skb
+++ /dev/null
@@ -1,25 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/ornament.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Wed Sep 3 14:00:52 2003 */
-;* Last change : Fri Sep 12 15:31:19 2003 (serrano) */
-;* Copyright : 2003 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The skribe ornaments */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Ornaments */
-;*---------------------------------------------------------------------*/
-(section :title "Ornaments" :file #t
-
-(p [Skribe supports the standard text ornaments.])
-
-(doc-markup 'bold
- '((#!rest node... "The nodes of the ornament."))
- :others '(code emph it kbd roman sc sf sub sup tt underline var))
-
-(example-produce
- (example :legend "The ornament markups" (prgm :file "src/api8.skb"))
- (disp (include "src/api8.skb"))))
diff --git a/skribe/doc/user/package.skb b/skribe/doc/user/package.skb
deleted file mode 100644
index ad989d0..0000000
--- a/skribe/doc/user/package.skb
+++ /dev/null
@@ -1,139 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/package.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Sat Feb 21 08:26:44 2004 */
-;* Last change : Fri Jun 3 16:51:30 2005 (serrano) */
-;* Copyright : 2004-05 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Packages */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Standard packages */
-;*---------------------------------------------------------------------*/
-(chapter :title "Standard Packages"
-
- (p [
-This chapter describes the standard Skribe packages. Additional
-packages can be found from the
-,(ref :url (skribe-url) :text "Skribe web page").
-This chapter only describes the packages that are contained in the standard
-Skribe distribution.])
-
- (p [
-In order to use the facilities described in the following sections, the
-Skribe source file must contains expressions such as:])
-
-(prgm [(skribe-load ,(it "package.skr") ...)])
-
-[where ,(it (tt "package.skr")) is the described package.]
-
-;*---------------------------------------------------------------------*/
-;* jfp */
-;*---------------------------------------------------------------------*/
-(section :title "Articles"
-
- (subsection :title (tt "acmproc.skr") :ident "acmproc"
- (index :index *package-index* "acmproc.skr" :note "package")
- (p [
-This package enables producing LaTeX documents conforming to the
-,(emph "ACM proceeding") (ACMPROC) style. It introduces the
-markup ,(code "abstract"):])
- (doc-markup 'abstract
- `((:class "The node class.")
- (:postscript [The URL of the PostScript version of the paper.]))
- :common-args '()
- :idx-note "acmproc"
- :idx-suffix " (acmproc)"
- :force-engines *api-engines*
- :source "../skr/acmproc.skr"))
-
- (subsection :title (tt "jfp.skr") :ident "jfp"
- (index :index *package-index* "jfp.skr" :note "package")
- (p [
-This package enables producing LaTeX documents conforming to the
-,(emph "Journal of Functional Programming") (JFP) style. It introduces the
-markup ,(code "abstract"):])
- (doc-markup 'abstract
- `((:postscript [The URL of the PostScript version of the paper.]))
- :common-args '()
- :idx-note "jfp"
- :idx-suffix " (jfp)"
- :force-engines *api-engines*
- :source "../skr/jfp.skr"))
-
- (subsection :title (tt "lncs.skr") :ident "lncs"
- (index :index *package-index* "lncs.skr" :note "package")
- (p [
-This package enables producing LaTeX documents conforming to the
-,(emph "Lecture Notes on Computer Science") (LNCS) style. It introduces the
-markup ,(code "abstract"):])
- (doc-markup 'abstract
- `((:postscript [The URL of the PostScript version of the paper.]))
- :common-args '()
- :idx-note "lncs"
- :idx-suffix " (lncs)"
- :force-engines *api-engines*
- :source "../skr/lncs.skr")))
-
-;*---------------------------------------------------------------------*/
-;* french */
-;*---------------------------------------------------------------------*/
-(section :title "Languages"
- (subsection :title (tt "french.skr")
- (index :index *package-index* "french.skr" :note "package")
- (p [
-Enables French typesetting and typographical rules.])))
-
-;*---------------------------------------------------------------------*/
-;* letter */
-;*---------------------------------------------------------------------*/
-(section :title (tt "letter.skr")
- (index :index *package-index* "letter.skr" :note "package")
- (p [
-This package is to be used to authoring simple letters. It redefines the
-,(markup-ref "document") markup.])
-
- (doc-markup 'document
- `((:where [The location where the letter is posted.])
- (:date [The date of the letter.])
- (:author [The author of the letter.]))
- :idx-note "letter"
- :idx-suffix " (letter)"
- :force-engines *api-engines*
- :source "../skr/letter.skr"))
-
-;*---------------------------------------------------------------------*/
-;* Web */
-;*---------------------------------------------------------------------*/
-(section :title "Web"
-
- (subsection :title (tt "web-article.skr")
- (index :index *package-index* "web-article.skr" :note "package")
- (p [
-A convenient mode for rendering articles (i.e., documents made of
-sections) in HTML. The Slide package supports two ,(markup-ref "skribe-load")
-user options:
-,(param :style) and ,(param :css). The ,(param :style) option can either
-be ,(code "'traditional") which forces traditional HTML code
-emission or ,(code "'css") which forces HTML code emission using CSS
-annotations. The CSS style used is specified in the (code "css")
-HTML engine ,(ref :subsection "The HTML customization" :text "custom").
-The ,(param :css) is a shorthand for ,(param :style). For instance:])
-(prgm [(skribe-load "web-article.skr" :css "style.css")])
-[is equivalent to:]
-(prgm [(skribe-load "web-article.skr" :style 'css)
-(engine-custom-set! (find-engine 'html) :css "style.css")]))
-
- (subsection :title (tt "web-book.skr")
- (index :index *package-index* "web-book.skr" :note "package")
- (p [
-A convenient mode for rendering books (i.e., documents made of
-chapters and sections) in HTML.]))))
-
-;*---------------------------------------------------------------------*/
-;* Emacs indentation */
-;*---------------------------------------------------------------------*/
-;; @indent: (put 'doc-markup 'skribe-indent 'skribe-indent-function)@*
-
diff --git a/skribe/doc/user/prgm.skb b/skribe/doc/user/prgm.skb
deleted file mode 100644
index c894614..0000000
--- a/skribe/doc/user/prgm.skb
+++ /dev/null
@@ -1,121 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/prgm.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Fri Nov 30 09:21:11 2001 */
-;* Last change : Wed Sep 22 02:11:49 2004 (serrano) */
-;* Copyright : 2001-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Computer programs */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* fib ... */
-;*---------------------------------------------------------------------*/
-(define (fib x) ;!fib
- (if (< x 2)
- 1
- (+ (fib (- x 1)) (fib (- x 2)))))
-
-;*---------------------------------------------------------------------*/
-;* Computer programs */
-;*---------------------------------------------------------------------*/
-(chapter :title "Computer programs"
-
-(p [It is common that some parts of a Skribe text represent other
-texts. For instance, for a document describing a computer programming
-language, it is frequent to include excerpt of programs. These
-embedded texts are frequently displayed in a specific font and with no
-justification but with a precise ,(emph "indentation"). This indentation is
-important because it helps in understanding the text,(begin ";")
-it is thus desirable to preserve it in the Skribe text. The
-,(markup-ref "pre") text layout already enables such a
-text formating. This chapter presents two new Skribe functions:
-,(markup-ref "prog") and ,(markup-ref "source") that is specially
-designed to represent computer programs in Skribe text.])
-
-;*---------------------------------------------------------------------*/
-;* Programs ... @label prog@ */
-;*---------------------------------------------------------------------*/
-(section :title "Program"
-
-(p [A ,(code "prog") function call preserves the indentation of the
-program. It may automatically introduce line numbers.])
-
-(doc-markup 'prog
- `((:line ,[Enables/disables automatic line numbering. An integer
- value enables the line number and specifies the number of
- the first line of the program. A value of ,(code "#f") disables
- the line numbering.])
- (:linedigit ,[The number of digit for representing line
- numbers.])
- (:mark ,[A string or the boolean ,(code "#f"). If this option
- is a string, that string is the prefix
- of line marks. These marks can be used in the
- ,(markup-ref "ref") reference. A mark
- identifier is defined by the regular expression:
- ,(code [,(char "[")_a-zA-Z,(char "]"),(char "[")_a-zA-Z0-9,(char "]")*]). The prefix and the mark are removed from the output program.]))
- :force-engines *api-engines*
- :see-also '(source pre ref))
-
-(example-produce
- (example :legend "A program" (prgm :file "src/prgm1.skb"))
- (disp (include "src/prgm1.skb"))))
-
-;*---------------------------------------------------------------------*/
-;* Source code ... @label source@ */
-;*---------------------------------------------------------------------*/
-(section :title "Source code"
-
-(p [The ,(code "source") function extracts part of the source code and
-enables ,(emph "fontification"). That is, some words of the program
-can be rendered using different colors or faces.])
-
-;!source-start
-(doc-markup 'source
- `((:language ,[The ,(markup-ref "language") of the source code.])
- (:file ,[The file containing the actual source code. The file
- is searched in the ,(markup-ref "skribe-source-path") path.])
- (:start [A start line number or a start marker.])
- (:stop [A stop line number or a stop marker.])
- (:definition [The identifier of the definition to extract.])
- (:tab [The tabulation width.]))
- :common-args '()
- :force-engines *api-engines*
- :see-also '(prog language ref skribe-source-path))
-;!source-stop
-
-(example-produce
- (example :legend "The source markup" (prgm :file "src/prgm2.skb"))
- (disp (include "src/prgm2.skb"))))
-
-;*---------------------------------------------------------------------*/
-;* Language ... @label language@ */
-;*---------------------------------------------------------------------*/
-(section :title "Language"
-(index "source" :note "fontification")
-(index "fontification")
-
-(p [The ,(code "language") function builds a language that can be used
-in ,(markup-ref "source") function call.])
-
-(doc-markup 'language
- `((:name [A string which denotes the name of the language.])
- (:fontifier [A function of one argument (a string), that
- colorizes a line source code.])
- (:extractor [A function of three arguments: an input port,
- an identifier, a tabulation size. This function ,(emph "scans")
- in the input port the definition is looks for.]))
- :common-args '()
- :force-engines *api-engines*
- :see-also '(prog source ref))
-
-; **** FIXME:
-(cond-expand
- (bigloo
- (example-produce
- (example :legend "An ad-hoc fontification"
- (prgm :file "src/prgm3.skb"))
- (disp (include "src/prgm3.skb"))))
- (else
- '()))))
diff --git a/skribe/doc/user/sectioning.skb b/skribe/doc/user/sectioning.skb
deleted file mode 100644
index 48bbc45..0000000
--- a/skribe/doc/user/sectioning.skb
+++ /dev/null
@@ -1,117 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/sectioning.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Wed Sep 3 12:27:03 2003 */
-;* Last change : Tue Apr 6 06:45:28 2004 (serrano) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Sectioning markups */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* dummy-section-output ... */
-;*---------------------------------------------------------------------*/
-(define dummy-section-output
- (lambda (n e)
- (let* ((t (markup-option n :title))
- (b (markup-body n)))
- (skribe-eval (center (bold t)) e)
- (output b e))))
-
-;*---------------------------------------------------------------------*/
-;* Sectioning */
-;*---------------------------------------------------------------------*/
-(section :title "Sectioning" :file #t
-
-;*--- chapter ---------------------------------------------------------*/
-(subsection :title "Chapter"
-
-(p [The function ,(code "chapter") creates new chapters.])
-
-(doc-markup 'chapter
- `((:title [The title of the chapter.])
- (:html-title "The title of window of the HTML browser.")
- (:number [This argument controls the chapter number.
-A value of ,(tt "#t") means that the Skribe compiler computes the chapter
-number. A value of ,(tt "#f") means that the chapter has no number.])
- (:toc ,[This argument controls if the chapter must
-be referenced in the ,(ref :mark "toc" :text "table of contents").])
- (:file [The argument must be a boolean. A value of
-,(tt "#t") tells the Skribe compiler to compile that chapter in a separate
-file. A value of ,(tt "#f") tells the Skribe compiler to embed the chapter
-in the main target file.])
- (#!rest node... [The nodes of the chapter.]))
- :see-also '(document section toc))
-
-(example-produce
- (example :legend "The chapter markup" (prgm :file "src/api4.skb"))
- (disp
- (processor :combinator
- (lambda (e1 e2)
- (let ((e (copy-engine 'document-engine e2)))
- (markup-writer 'chapter e
- :options '(:title :file :number :toc)
- :action dummy-section-output)
- e))
- (include "src/api4.skb")))))
-
-;*--- section ---------------------------------------------------------*/
-(subsection :title "Sections"
-
-(p [These functions create new sections.])
-
-(doc-markup 'section
- `((:title [The title of the chapter.])
- (:number [This argument controls the chapter number.
-A value of ,(tt "#t") means that the Skribe compiler computes the chapter
-number. A value of ,(tt "#f") means that the chapter has no number.])
- (:toc ,[This argument controls if the chapter must
-be referenced in the ,(ref :mark "toc" :text "table of contents").])
- (:file [The argument must be a boolean. A value of
-,(tt "#t") tells the Skribe compiler to compile that section in a separate
-file. A value of ,(tt "#f") tells the Skribe compiler to embed the chapter
-in the main target file.])
- (#!rest node... [The nodes of the section.]))
- :others '(subsection subsubsection)
- :see-also '(document chapter paragraph toc))
-
-(example-produce
- (example :legend "The chapter markup" (prgm :file "src/api5.skb"))
- (disp
- (processor :combinator
- (lambda (e1 e2)
- (let ((e (copy-engine 'document-engine e2)))
- (markup-writer 'chapter e
- :options '(:title :file :number :toc)
- :action dummy-section-output)
- e))
- (include "src/api5.skb")))))
-
-;*--- paragraph -------------------------------------------------------*/
-(subsection :title "Paragraph"
-
-(p [The function ,(code "paragraph") (also aliased ,(code "p")) creates
-paragraphs.])
-
-(doc-markup 'paragraph
- '((#!rest node... "The nodes of the paragraph."))
- :see-also '(document chapter section p))
-
-(p [The function ,(code "p") is an alias for ,(code "paragraph").])
-(doc-markup 'p
- '((#!rest node... "The nodes of the paragraph."))
- :source "../skr/skribe.skr"
- :see-also '(document chapter section paragraph)))
-
-;*--- blockquote -----------------------------------------------------*/
-(subsection :title "Blockquote"
-
-(p [The function ,(code "blockquote") can be used for text
-quotations. A text quotation is generally renderd as an indented block
-of text.])
-(doc-markup 'blockquote
- '((#!rest node... "The nodes of the quoted text.")))))
-
-
-
diff --git a/skribe/doc/user/skribe-config.skb b/skribe/doc/user/skribe-config.skb
deleted file mode 100644
index 956af63..0000000
--- a/skribe/doc/user/skribe-config.skb
+++ /dev/null
@@ -1,44 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/skribe-config.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Fri Jan 2 21:12:24 2004 */
-;* Last change : Thu Sep 23 17:11:53 2004 (eg) */
-;* Copyright : 2004 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The skribe-config tool */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* The skribe-config tool */
-;*---------------------------------------------------------------------*/
-(chapter :title "Getting Skribe configuration information"
-(index "skribe-config")
-
-(p [
-In this chapter we present ,(code "skribe-config") that gives
-information about the current Skribe configuration.])
-
-;; Synopsis
-(section :title "SYNOPSIS" :number #f
-(compiler-command "skribe-config" "options"))
-
-;; Description
-(section :title "DESCRIPTION" :number #f [
-The ,(code "skribe-config") gives information about the Skribe configuration.
-This information can be the directories used to install Skribe, the Scheme
-implementation used for compiling Skribe, etc.])
-
-;; Options
-(section :title "OPTIONS" :number #f [
-,(pre (let* ((proc (run-process "../etc/skribe-config" "--help" error: pipe:))
- (port (process-error-port proc)))
- (let loop ((line (read-line port))
- (lines '()))
- (if (eof-object? line)
- (reverse! lines)
- (begin
- (loop (read-line port) (cons* line "\n" lines)))))))]))
-
-
-
diff --git a/skribe/doc/user/skribec.skb b/skribe/doc/user/skribec.skb
deleted file mode 100644
index 0f00632..0000000
--- a/skribe/doc/user/skribec.skb
+++ /dev/null
@@ -1,56 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/skribec.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Fri Nov 30 13:43:50 2001 */
-;* Last change : Thu Feb 26 20:58:26 2004 (eg) */
-;* Copyright : 2001-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The Skribe compiler */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* The Skribe compiler */
-;*---------------------------------------------------------------------*/
-(chapter :title "Skribe compiler"
-(index "skribe" :note "manual page")
-(p [
-In this chapter we present the Skribe compiler that compiles Skribe
-source text into various output formats.])
-
-;; Synopsis
-(section :title "SYNOPSIS" :number #f
-(linebreak 1)
-(compiler-command "skribe" "options" "input"))
-
-;; Description
-(section :title "DESCRIPTION" :number #f
-(p [
-This manual page is not meant to be exhaustive. The complete documentation
-for the programming language ,(bold "Skribe") can be found at the following
-,(ref :url (skribe-url) :text "URL"). This manual page only documents
-the ,(tt "skribe")
-compiler that compiles ,(bold "Skribe") programs into ,(it "HTML"),
-,(it "TeX"), ,(it "Info") or ,(it "Nroff") formats.]))
-
-;; Suffixes
-(section :title "SUFFIXES" :number #f [
-The ,(tt "skribe") compiler uses file suffixes in order to select amongst
-its possible targets which one to choose. These suffixes are:
-
-,(description (item :key (it ".skb") [a ,(bold "Skribe") source file.])
- (item :key (it ".html") [an ,(it "HTML") target file.])
- (item :key (it ".tex") [a ,(it "TeX") target file.])
- (item :key (it ".sui") [a ,(it "Skribe url index") file.]))])
-
-;; Options
-(section :title "OPTIONS" :number #f [
-,(mark "skribe compiler option")
-,(compiler-options *skribe-bin*)])
-
-;; Environment variables
-(section :title "ENVIRONMENT VARIABLES" :number #f [
-Some shell variables control the Skribe search path:
-,(description (item :key (it "SKRIBEPATH")
- "Search path for source and style files."))]))
-
diff --git a/skribe/doc/user/skribeinfo.skb b/skribe/doc/user/skribeinfo.skb
deleted file mode 100644
index 502cc73..0000000
--- a/skribe/doc/user/skribeinfo.skb
+++ /dev/null
@@ -1,50 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/skribeinfo.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Fri Nov 30 13:43:50 2001 */
-;* Last change : Mon Dec 15 13:22:08 2003 (serrano) */
-;* Copyright : 2001-03 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* The Skribeinfo compiler */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* The Skribeinfo compiler */
-;*---------------------------------------------------------------------*/
-(chapter :title "Compiling Texi documents"
-(index "skribeinfo" :note "compiler")
-(index "texinfo")
-
-(p [
-In this chapter we present the Skribeinfo compiler that compiles Texinfo
-(texi) source files into Skribe source file.])
-
-;; Synopsis
-(section :title "SYNOPSIS" :number #f
-(compiler-command "skribeinfo" "options" "input"))
-
-;; Description
-(section :title "DESCRIPTION" :number #f [
-This manual page is not meant to be exhaustive. The complete documentation
-for the programming language ,(bold "Skribe") can be found at the
-following ,(ref :url (skribe-url) :text "url"). This manual page only
-document the ,(tt "skribeinfo")
-compiler that compiles ,(bold "Texinfo") source files into ,(it "Skribe"),
-source files. These Skribe files can be compiled by the ,(bold "skribe")
-compiler in order to produce ,(it "HTML"), ,(it "TeX"), ,(it "Info")
-or ,(it "Nroff") target files.])
-
-;; Suffixes
-(section :title "SUFFIXES" :number #f [
-The ,(tt "skribe") compiler uses file suffixes in order to select amongst
-its possible targets which to choose. These suffixes are:
-
-,(description (item :key (it ".texi") [a ,(bold "Texinfo") source file.])
- (item :key (it ".skb") [a ,(bold "Skribe") source file.])
- (item :key (it ".sui") [a ,(it "Skribe url index") file.]))])
-
-;; Options
-(section :title "OPTIONS" :number #f [
-,(compiler-options *skribeinfo-bin*)]))
-
diff --git a/skribe/doc/user/slide.skb b/skribe/doc/user/slide.skb
deleted file mode 100644
index c1111ee..0000000
--- a/skribe/doc/user/slide.skb
+++ /dev/null
@@ -1,114 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/slide.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Fri Jan 9 06:37:47 2004 */
-;* Last change : Thu Feb 26 21:00:04 2004 (eg) */
-;* Copyright : 2004 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Slides */
-;*=====================================================================*/
-(skribe-load "slide.skr")
-
-;*---------------------------------------------------------------------*/
-;* Computer programs */
-;*---------------------------------------------------------------------*/
-(chapter :title "Slide Package"
-
- (p [
-This chapter describes the facilities Skribe offers authoring slides.
-In order to access the functionalities described in this chapter, it
-is require to introduce a ,(code [(skribe-load "slides.skr")]) expression
-at the beginning of the document. The Slide package supports two
-,(markup-ref "skribe-load") user options: ,(param :advi) and ,(param :prosper).
-The first one tells Skribe to generate slides for the Advi presenter. The
-second one tells Skribe to generate slides for the LaTeX prosper package.])
-
-;*---------------------------------------------------------------------*/
-;* slide ... @label slide@ */
-;*---------------------------------------------------------------------*/
-(section :title "Slide"
-
- (p [A ,(code "slide") function call creates a slide.])
-
- (doc-markup 'slide
- `((:title [The title of the slide.])
- (:number [The number of the slide (a boolean or an integer).])
- (:toc [This argument controls if the slide must
-be referenced in the ,(mark :mark "toc" "table of contents").])
- (:vspace [The boolean ,(code "#f") or an integer representing
-the vertical space size between the title and the body of the slide.])
- (:vfill [A boolean that is used to control whether a LaTeX
-,(code "\\vfill") is issued at the end of the slide.])
- (:transition [The boolean ,(code "#f") or a symbol in the
-list ,(code "(split blinds box wipe dissolve glitter)").])
- (:bg [The background color of the slide.])
- (:image [The background image of the slide.]))
- :source "../skr/slide.skr"))
-
-;*---------------------------------------------------------------------*/
-;* slide-pause */
-;*---------------------------------------------------------------------*/
-(section :title "Pause"
-
- (p [A ,(code "slide-pause") function call introduces a pause in the slide
-projection.])
-
- (doc-markup 'slide-pause
- '()
- :common-args '()
- :source "../skr/slide.skr"))
-
-;*---------------------------------------------------------------------*/
-;* slide-vspace ... */
-;*---------------------------------------------------------------------*/
-(section :title "Slide Vertical Space"
-
- (p [The ,(code "slide-vspace") introduces a vertical space in the slide.])
-
- (doc-markup 'slide-vspace
- '((:unit [The unit of the space.])
- (#!rest val [The size of the vertical space.]))
- :common-args '()
- :source "../skr/slide.skr"))
-
-;*---------------------------------------------------------------------*/
-;* slide-embed ... */
-;*---------------------------------------------------------------------*/
-(section :title "Slide Embed Applications"
-
- (p [Embed an application inside a slide.])
-
- (doc-markup 'slide-embed
- `((:command [The binary file for running the embedded
-application.])
- (:geometry-opt [The name of the geometry option to be sent
-to the embedded application.])
- (:geometry [The geometry value to be sent.])
- (:rgeometry [A relative geometry to be sent.])
- (:transient-opt [The name of the transient option to be sent
-to the embedded application.])
- (:transient [The transient value to be sent.])
- (:alt [An alternative Skribe expression to be used if the
-output format does not support embedded application.]))
- :common-args '()
- :source "../skr/slide.skr"))
-
-;*---------------------------------------------------------------------*/
-;* Example */
-;*---------------------------------------------------------------------*/
-(section :title "Example"
- (p [Here is a complete example of Skribe slides:])
-
- (if (and (engine-format? "html")
- (not (equal? (engine-custom html-engine 'html-variant) "html4")))
- ;; Show the example and its result
- (example-produce
- (example :legend "Example of Skribe slides"
- (prgm :file "src/slides.skb"))
- (disp (include "src/slides.skb")))
- ;; Show only the example (i.e. don't produce a document in a document)
- (example :legend "Example of Skribe slides"
- (prgm :file "src/slides.skb")))))
-
-
diff --git a/skribe/doc/user/src/api1.skb b/skribe/doc/user/src/api1.skb
deleted file mode 100644
index 80c4389..0000000
--- a/skribe/doc/user/src/api1.skb
+++ /dev/null
@@ -1,5 +0,0 @@
-(section :title "A title" "This is the body of the section")
-(section :title "A title" "This" " is" " the body of the section")
-(section :title "A title" :number 3 "This" " is" " the body of the section")
-(section :title "A title" :toc #f :number 3 "This" " is" " the body of the section")
-(section :title "A title" :number 3 :toc #f "This" " is" " the body of the section")
diff --git a/skribe/doc/user/src/api10.skb b/skribe/doc/user/src/api10.skb
deleted file mode 100644
index 207d8a7..0000000
--- a/skribe/doc/user/src/api10.skb
+++ /dev/null
@@ -1,12 +0,0 @@
-(center [A ,(linebreak) multilines ,(linebreak) text])
-(hrule)
-(flush :side 'left [A ,(linebreak) multilines ,(linebreak) text])
-(hrule)
-(flush :side 'right [A ,(linebreak) multilines ,(linebreak) text])
-(hrule)
-(pre [A text layout that
-
- preserves
- linebreaks and spaces ,(it "(into which it is still legal")
-,(it "to use Skribe markups)").
-])
diff --git a/skribe/doc/user/src/api11.skb b/skribe/doc/user/src/api11.skb
deleted file mode 100644
index 5014e30..0000000
--- a/skribe/doc/user/src/api11.skb
+++ /dev/null
@@ -1,22 +0,0 @@
-(itemize (item [A first item.])
- (item [A ,(bold "second") one:
- ,(itemize (item "One.")
- (item "Two.")
- (item "Three."))])
- (item [Lists can be nested. For instance that item contains a
- ,(tt "description"):
- ,(description (item :key (bold "foo")
- [is a usual Lisp dummy identifier.])
- (item :key (bold "bar")
- [is another one.])
- (item :key (list (bold "foo") (bold "bar"))
- [A description entry may contain more than
- one keyword.]))])
- (item [The last ,(tt "itemize") entry contains an ,(tt "enumerate"):
- ,(enumerate (item "One.") (item "Two.") (item "Three."))]))
-
-(itemize :symbol "-"
- (item "One.")
- (item "Two.")
- (item "Three.")
- (item "Four."))
diff --git a/skribe/doc/user/src/api12.skb b/skribe/doc/user/src/api12.skb
deleted file mode 100644
index b0c68da..0000000
--- a/skribe/doc/user/src/api12.skb
+++ /dev/null
@@ -1 +0,0 @@
-(center (frame :width 10. :margin 10 (p [This is a frame.])))
diff --git a/skribe/doc/user/src/api13.skb b/skribe/doc/user/src/api13.skb
deleted file mode 100644
index a9acb04..0000000
--- a/skribe/doc/user/src/api13.skb
+++ /dev/null
@@ -1,10 +0,0 @@
-(center
- (color :bg "#aaaaaa"
- :margin 10
- :width 30.
- (center
- (color :bg "#eeeeee" :fg "blue" :width 100. :margin 10 [This is an
-example of color box that uses a color for the
-background ,(emph "and") the ,(color :fg "red" "foreground"). It also specifies
-a width, that is, an horizontal space, the text should
-span to.]))))
diff --git a/skribe/doc/user/src/api14.skb b/skribe/doc/user/src/api14.skb
deleted file mode 100644
index a3ede40..0000000
--- a/skribe/doc/user/src/api14.skb
+++ /dev/null
@@ -1,9 +0,0 @@
-(center
- (figure :legend "This is a unnumbered figure"
- :ident "fig1"
- :number #f
- (frame [Skribe is a functional programming language.])))
-
-(center
- (figure :legend "The great Penguin"
- (image :file "linux.gif")))
diff --git a/skribe/doc/user/src/api15.skb b/skribe/doc/user/src/api15.skb
deleted file mode 100644
index f8f4958..0000000
--- a/skribe/doc/user/src/api15.skb
+++ /dev/null
@@ -1,25 +0,0 @@
-(resolve (lambda (n e env)
- (let* ((d (ast-document n))
- (ex (container-env-get d 'figure-env)))
- (table (map (lambda (e)
- (tr (td :align 'left
- (markup-option e ':number)
- " "
- (ref :handle (handle e)
- :text (markup-option e :legend))
- " (section "
- (let ((c (ast-section e)))
- (ref :handle (handle c)
- :text (markup-option c :title)))
- ")")))
- (sort ex
- (lambda (e1 e2)
- (let ((n1 (markup-option e1 :number))
- (n2 (markup-option e2 :number)))
- (cond
- ((not (number? n1))
- #t)
- ((not (number? n2))
- #f)
- (else
- (< n1 n2)))))))))))
diff --git a/skribe/doc/user/src/api16.skb b/skribe/doc/user/src/api16.skb
deleted file mode 100644
index a9d5705..0000000
--- a/skribe/doc/user/src/api16.skb
+++ /dev/null
@@ -1,5 +0,0 @@
-(image :file "linux.gif" "A first image")
-(image :height 50 :file "linux.gif" "A smaller one")
-(image :file "bsd.gif" "A second image")
-(image :width 50 :file "bsd.gif")
-(image :width 200 :height 40 :file "bsd.gif")
diff --git a/skribe/doc/user/src/api17.skb b/skribe/doc/user/src/api17.skb
deleted file mode 100644
index 42fa54f..0000000
--- a/skribe/doc/user/src/api17.skb
+++ /dev/null
@@ -1,9 +0,0 @@
-(center
- (table :border 1 :width 50. :frame 'hsides :cellstyle 'collapse
- (tr :bg "#cccccc" (th :align 'center :colspan 3 "A table"))
- (tr (th "Col 1") (th "Col 2") (th "Col 3"))
- (tr (td :align 'center "10") (td "-20") (td "30"))
- (tr (td :align 'right :rowspan 2 :valign 'center "12") (td "21"))
- (tr (td :align 'center :colspan 2 "1234"))
- (tr (td :align 'center :colspan 2 "1234") (td :align 'right "5"))
- (tr (td :align 'center :colspan 1 "1") (td :colspan 2 "2345"))))
diff --git a/skribe/doc/user/src/api18.skb b/skribe/doc/user/src/api18.skb
deleted file mode 100644
index 2112dc4..0000000
--- a/skribe/doc/user/src/api18.skb
+++ /dev/null
@@ -1,2 +0,0 @@
-[Scheme,(footnote [To be pronounced ,(char "[")Skim,(char "]")])
-is a programming language,(footnote [And a great one!]).]
diff --git a/skribe/doc/user/src/api19.skb b/skribe/doc/user/src/api19.skb
deleted file mode 100644
index cfc11f6..0000000
--- a/skribe/doc/user/src/api19.skb
+++ /dev/null
@@ -1,3 +0,0 @@
-(itemize (item [The character ,(code "#\\a"): ,(char #\a).])
- (item [The character ,(code "\"a\""): ,(char "a").])
- (item [The character ,(code "97"): ,(char 97).]))
diff --git a/skribe/doc/user/src/api2.skb b/skribe/doc/user/src/api2.skb
deleted file mode 100644
index 2c20965..0000000
--- a/skribe/doc/user/src/api2.skb
+++ /dev/null
@@ -1,5 +0,0 @@
-(document :title "This is a Scribe document"
- :author (list (author :name "Foo" :email (mailto "foo@nowhere.org"))
- (author :name "Bar" :email (mailto "bar@anywhere.org"))
- (author :name "Gee" :email (mailto "gee@nowhere.org")))
- "A body...")
diff --git a/skribe/doc/user/src/api20.skb b/skribe/doc/user/src/api20.skb
deleted file mode 100644
index 686efcb..0000000
--- a/skribe/doc/user/src/api20.skb
+++ /dev/null
@@ -1,2 +0,0 @@
-[A simple ,(! "string"). A more annoying one ,(! "<strong>string</strong>").
-A last one with arguments ,(! "<u>$1 $2</u>" (bold 1) (it 2)).]
diff --git a/skribe/doc/user/src/api3.skb b/skribe/doc/user/src/api3.skb
deleted file mode 100644
index ed46eea..0000000
--- a/skribe/doc/user/src/api3.skb
+++ /dev/null
@@ -1,8 +0,0 @@
-(author :name "Manuel Serrano"
- :affiliation "Inria Sophia-Antipolis"
- :url (ref :url "http://www.inria.fr/mimosa/Manuel.Serrano")
- :email (mailto "Manuel.Serrano@inria.fr")
- :address `("2004 route des Lucioles - BP 93"
- "F-06902 Sophia Antipolis, Cedex"
- "France")
- :phone "phone: (+33) 4 92 38 76 41")
diff --git a/skribe/doc/user/src/api4.skb b/skribe/doc/user/src/api4.skb
deleted file mode 100644
index cfe13f7..0000000
--- a/skribe/doc/user/src/api4.skb
+++ /dev/null
@@ -1,2 +0,0 @@
-(chapter :title "This is a simple chapter" :number #f :toc #f [
-Its body is just one sentence.])
diff --git a/skribe/doc/user/src/api5.skb b/skribe/doc/user/src/api5.skb
deleted file mode 100644
index 01188c1..0000000
--- a/skribe/doc/user/src/api5.skb
+++ /dev/null
@@ -1,2 +0,0 @@
-(section :title "This is a simple section" :number #f :toc #f [
-Its body is just one sentence.])
diff --git a/skribe/doc/user/src/api6.skb b/skribe/doc/user/src/api6.skb
deleted file mode 100644
index 22a1c77..0000000
--- a/skribe/doc/user/src/api6.skb
+++ /dev/null
@@ -1 +0,0 @@
-(toc :chapter #t :section #f :subsection #f)
diff --git a/skribe/doc/user/src/api7.skb b/skribe/doc/user/src/api7.skb
deleted file mode 100644
index c6aec8b..0000000
--- a/skribe/doc/user/src/api7.skb
+++ /dev/null
@@ -1,3 +0,0 @@
-(resolve (lambda (n e env)
- (toc :chapter #t :section #t :subsection #t
- (handle (ast-chapter n)))))
diff --git a/skribe/doc/user/src/api8.skb b/skribe/doc/user/src/api8.skb
deleted file mode 100644
index a4403ff..0000000
--- a/skribe/doc/user/src/api8.skb
+++ /dev/null
@@ -1,15 +0,0 @@
-(itemize (item (roman "a roman text."))
- (item (bold "a bold text."))
- (item (it "an italic text."))
- (item (emph "an emphasized text."))
- (item (underline "an underline text."))
- (item (kbd "a keyboard description."))
- (item (tt "a typewritter text."))
- (item (code "a text representing computer code."))
- (item (var "a computer program variable description."))
- (item (samp "a sample."))
- (item (sc "a smallcaps text."))
- (item (sf "a sans-serif text."))
- (item (sup "a superscripts text."))
- (item (sub "a subscripts text."))
- (item (underline (bold (it "an underline, bold, italic text.")))))
diff --git a/skribe/doc/user/src/api9.skb b/skribe/doc/user/src/api9.skb
deleted file mode 100644
index 1f6890e..0000000
--- a/skribe/doc/user/src/api9.skb
+++ /dev/null
@@ -1,5 +0,0 @@
-(itemize
- (item (font :size -2 [A smaller font.]))
- (item (font :size 6 [An absolute font size.]))
- (item (font :size 4. [A larger font.]))
- (item (font :face "Helvetica" [An helvetica example.])))
diff --git a/skribe/doc/user/src/bib1.sbib b/skribe/doc/user/src/bib1.sbib
deleted file mode 100644
index 3f1c04f..0000000
--- a/skribe/doc/user/src/bib1.sbib
+++ /dev/null
@@ -1,39 +0,0 @@
-(book queinnec:lisp
- (author "Queinnec, C.")
- (title "Lisp In Small Pieces")
- (publisher "Cambridge University Press")
- (year "1996"))
-
-(book scheme:ieee
- (title "IEEE Standard for the Scheme Programming Language")
- (author "IEEE Std 1178-1990")
- (publisher "Institute of Electrical and Electronic Engineers, Inc.")
- (address "New York, NY")
- (year "1991"))
-
-(misc bigloo
- (url "http://www.inria.fr/mimosa/fp/Bigloo"))
-
-(misc scheme:r4rs
- (title "The Revised4 Report on the Algorithmic Language Scheme")
- (author "Clinger, W. and Rees, J.")
- (month "Nov")
- (year "1991")
- (url "http://www.cs.indiana.edu/scheme-repository/R4RS/r4rs_toc.html"))
-
-(article scheme:r5rs
- (title "The Revised5 Report on the Algorithmic Language Scheme")
- (author "Kelsey, R. and Clinger, W. and Rees, J.")
- (journal "Higher-Order and Symbolic Computation")
- (volume "11")
- (number "1")
- (month "Sep")
- (year "1998")
- (url "http://kaolin.unice.fr/Bigloo/doc/r5rs.html"))
-
-(book as:sicp
- (author "Abelson, H. and Sussman, G.")
- (title "Structure and Interpretation of Computer Programs")
- (year "1985")
- (publisher "MIT Press")
- (address "Cambridge, Mass., USA"))
diff --git a/skribe/doc/user/src/bib2.skb b/skribe/doc/user/src/bib2.skb
deleted file mode 100644
index 25417b5..0000000
--- a/skribe/doc/user/src/bib2.skb
+++ /dev/null
@@ -1,7 +0,0 @@
-[Scheme ,(ref :bib 'scheme:r5rs) is functional programming language. It exists
-several books about this language ,(ref :bib '(as:sicp queinnec:lisp)).
-
-,(linebreak 2)
-,(center (bold [-- Bibliography --]))
-
-,(center (frame :border 1 :margin 2 :width 90. (the-bibliography)))]
diff --git a/skribe/doc/user/src/bib3.skb b/skribe/doc/user/src/bib3.skb
deleted file mode 100644
index 9cb838e..0000000
--- a/skribe/doc/user/src/bib3.skb
+++ /dev/null
@@ -1,3 +0,0 @@
-(center
- (frame :border 1 :margin 2 :width 90.
- (the-bibliography :pred (lambda (m n) #t))))
diff --git a/skribe/doc/user/src/bib4.skb b/skribe/doc/user/src/bib4.skb
deleted file mode 100644
index 81ba5df..0000000
--- a/skribe/doc/user/src/bib4.skb
+++ /dev/null
@@ -1,5 +0,0 @@
-(center
- (frame :border 1 :margin 2 :width 90.
- (the-bibliography :pred (lambda (m n)
- (and (eq? (markup-option m 'kind) 'book)
- (pair? (markup-option m 'used)))))))
diff --git a/skribe/doc/user/src/bib5.skb b/skribe/doc/user/src/bib5.skb
deleted file mode 100644
index a0ee361..0000000
--- a/skribe/doc/user/src/bib5.skb
+++ /dev/null
@@ -1,24 +0,0 @@
-(center
- (frame :border 1 :margin 2 :width 90.
- (processor :engine
- (make-engine '_ :filter string-upcase)
- :combinator
- (lambda (e1 e2)
- (let ((e (copy-engine '_ e2)))
- (markup-writer '&bib-entry-ident e
- :action
- (lambda (n e)
- (let* ((be (ast-parent n))
- (o (markup-option be 'author))
- (y (markup-option be 'year)))
- (output (markup-body o) e1)
- (display ":")
- (output (markup-body y) e))))
- (markup-writer '&bib-entry-title e
- :action
- (lambda (n e)
- (skribe-eval (it (markup-body n)) e)))
- e))
- (the-bibliography :pred
- (lambda (m n)
- (eq? (markup-option m 'kind) 'book))))))
diff --git a/skribe/doc/user/src/bib6.skb b/skribe/doc/user/src/bib6.skb
deleted file mode 100644
index 013ca97..0000000
--- a/skribe/doc/user/src/bib6.skb
+++ /dev/null
@@ -1 +0,0 @@
-(bibliography :command "gzip -d --to-stdout ~a | skribebibtex" "scheme.bib.gz")
diff --git a/skribe/doc/user/src/index1.skb b/skribe/doc/user/src/index1.skb
deleted file mode 100644
index 199428c..0000000
--- a/skribe/doc/user/src/index1.skb
+++ /dev/null
@@ -1 +0,0 @@
-(define *index1* (make-index "a new index"))
diff --git a/skribe/doc/user/src/index2.skb b/skribe/doc/user/src/index2.skb
deleted file mode 100644
index f49cf33..0000000
--- a/skribe/doc/user/src/index2.skb
+++ /dev/null
@@ -1,11 +0,0 @@
-[The identifier ,(code "Foo"),(index :index *index1* "Foo") is a usually
-used as an example. When two identifiers have to used, frequently the
-second choice is ,(code "Bar"),(index :index *index1* "Bar" :shape (it "Bar")).
-When three are needed, some use ,(code "Baz")
-,(index :index *index1* "Baz" :shape (it "Baz")).
-
-This illustrates how to use identifier
-,(index :index *index1* "Foo" :note "How to use Foo")
-,(index :index *index1* "Foo" :note "How not to use Foo")
-,(index :index *index1* "Fooz")
-...]
diff --git a/skribe/doc/user/src/index3.skb b/skribe/doc/user/src/index3.skb
deleted file mode 100644
index 3d76a90..0000000
--- a/skribe/doc/user/src/index3.skb
+++ /dev/null
@@ -1 +0,0 @@
-(the-index *index1*)
diff --git a/skribe/doc/user/src/links1.skb b/skribe/doc/user/src/links1.skb
deleted file mode 100644
index e0ce61c..0000000
--- a/skribe/doc/user/src/links1.skb
+++ /dev/null
@@ -1,23 +0,0 @@
-[This hyperlink points to the ,(ref :figure "The great Penguin" :text "figure")
-of the chapter ,(ref :chapter "Standard Markups") (or also, the
-,(ref :ident "Standard Markups" :text "chapter") about markups).
-In the second example of reference, no ,(code ":text") option is specified:
-,(ref :figure "The great Penguin"). One may use the ,(param ":ident")
-field when specified such as: ,(ref :ident "fig1") or ,(ref :figure "fig1").
-
-,(linebreak)
-That other one points to a well known
-,(ref :url "http://slashdot.org/" :text "url"). The same without
-,(code ":text"): ,(ref :url "http://slashdot.org/").
-
-,(linebreak)
-With more complex tricks that are explained in Section
-,(ref :section "Resolve"), it is also possible use, for the text of the
-reference, a container number such as chapter:
-,(resolve (lambda (n e env)
- (let ((s (find1-down (lambda (x)
- (and (is-markup? x 'chapter)
- (string=? (markup-option x :title)
- "Standard Markups")))
- (ast-document n))))
- (ref :handle (handle s) :text (markup-option s :number))))).]
diff --git a/skribe/doc/user/src/links2.skb b/skribe/doc/user/src/links2.skb
deleted file mode 100644
index 7cdee07..0000000
--- a/skribe/doc/user/src/links2.skb
+++ /dev/null
@@ -1,4 +0,0 @@
-[It is possible to send a mail by
-,(mailto "foo@nowhere.com" :text "clicking") that link. That same
-reference without ,(code ":text") options: ,(mailto "foo@nowhere.com").
-]
diff --git a/skribe/doc/user/src/prgm1.skb b/skribe/doc/user/src/prgm1.skb
deleted file mode 100644
index dcdeb88..0000000
--- a/skribe/doc/user/src/prgm1.skb
+++ /dev/null
@@ -1,15 +0,0 @@
-(frame :width 100.
- (prog :line 10 :mark "##" [
-SKRIBE=skribe
-
-all: demo.html demo.man ##main-goal
-
-demo.html: demo.skb
- $(SKRIBE) demo.skb -o demo.html
-
-demo.man: demo.skb
- $(SKRIBE) demo.skb -o demo.man
-]))
-
-(p [The main goal is specified line ,(ref :line "main-goal").])
-
diff --git a/skribe/doc/user/src/prgm2.skb b/skribe/doc/user/src/prgm2.skb
deleted file mode 100644
index 5b5644b..0000000
--- a/skribe/doc/user/src/prgm2.skb
+++ /dev/null
@@ -1,18 +0,0 @@
-(frame :width 100.
- (prog (source :language bigloo :file "prgm.skb" :definition 'fib)))
-
-(p [The Fibonacci function is defined line ,(ref :line "fib").])
-
-;!start
-(frame :width 100.
- (prog :line 11 :mark #f
- (source :language skribe :file "prgm.skb" :start 11 :stop 24)))
-;!stop
-
-(p [Here is the source of the frame above:])
-
-(frame :width 100.
- (prog :line 30 :mark #f
- (source :language skribe :file "src/prgm2.skb"
- :start ";!start"
- :stop ";!stop")))
diff --git a/skribe/doc/user/src/prgm3.skb b/skribe/doc/user/src/prgm3.skb
deleted file mode 100644
index 51cb564..0000000
--- a/skribe/doc/user/src/prgm3.skb
+++ /dev/null
@@ -1,55 +0,0 @@
-(define (makefile-fontifier string)
- (with-input-from-string string
- (lambda ()
- (read/rp (regular-grammar ()
- ((: #\# (+ all))
- ;; makefile comment
- (let ((cmt (the-string)))
- (cons (it cmt) (ignore))))
- ((bol (: (+ (out " \t\n:")) #\:))
- ;; target
- (let ((prompt (the-string)))
- (cons (bold prompt) (ignore))))
- ((bol (: (+ alpha) #\=))
- ;; variable definitions
- (let* ((len (- (the-length) 1))
- (var (the-substring 0 len)))
- (cons (list (color :fg "#bb0000" (bold var)) "=")
- (ignore))))
- ((+ (out " \t\n:=$"))
- ;; plain strings
- (let ((str (the-string)))
- (cons str (ignore))))
- ((: #\$ #\( (+ (out " )\n")) #\))
- ;; variable references
- (let ((str (the-string))
- (var (the-substring 2 (- (the-length) 1))))
- (cons (underline str) (ignore))))
- ((+ (in " \t\n:"))
- ;; separators
- (let ((nl (the-string)))
- (cons nl (ignore))))
- (else
- ;; default
- (let ((c (the-failure)))
- (if (eof-object? c)
- '()
- (skribe-error 'makefile "Unexpected char" c)))))
- (current-input-port)))))
-
-(define makefile
- (language :name "Makefile"
- :fontifier makefile-fontifier))
-
-(frame :width 100.
- (prog (source :language makefile [
-SKRIBE=skribe
-
-all: demo.html demo.man
-
-demo.html: demo.skb
- $(SKRIBE) demo.skb -o demo.html
-
-demo.man: demo.skb
- $(SKRIBE) demo.skb -o demo.man
-])))
diff --git a/skribe/doc/user/src/slides.skb b/skribe/doc/user/src/slides.skb
deleted file mode 100644
index ac584d1..0000000
--- a/skribe/doc/user/src/slides.skb
+++ /dev/null
@@ -1,27 +0,0 @@
-(skribe-load "slide.skr" :advi #t)
-
-(document :title (color :fg "red" (sf (font :size +2. "Skribe Slides")))
- :author (author :name (it "Manuel Serrano")
- :affiliation [Inria Sophia Antipolis]
- :address (ref :url "http://www.inria.fr/mimosa/Manuel.Serrano"))
-
- (if (engine-format? "html")
- (slide :title "Table of contents" :number #f :toc #f
- (toc :chapter #f :section #f :subsection #f :subsubsection #f
- :slide #t)))
-
- (slide :title "X11 client" :toc #t :vspace 0.3
-
- (itemize
- (item "xlock")
- (item "xeyes")
- (item "xterm")))
-
- (slide :title "Xclock" :toc #t :vspace 0.3
-
- (center (sf (underline "The Unix xclock client")))
- (slide-vspace 0.3)
-
- (slide-pause)
- (slide-embed :command "xlock"
- :alt (frame "Can't run embedded application"))))
diff --git a/skribe/doc/user/src/start1.skb b/skribe/doc/user/src/start1.skb
deleted file mode 100644
index 4e37dda..0000000
--- a/skribe/doc/user/src/start1.skb
+++ /dev/null
@@ -1,2 +0,0 @@
-(document :title [Hello World!] [
-This is a very simple text.])
diff --git a/skribe/doc/user/src/start2.skb b/skribe/doc/user/src/start2.skb
deleted file mode 100644
index 9fcfdbf..0000000
--- a/skribe/doc/user/src/start2.skb
+++ /dev/null
@@ -1,2 +0,0 @@
-(document :title [Hello World!] [
-This is a ,(bold [very]) ,(it [simple]) ,(color :fg [red] [text]).])
diff --git a/skribe/doc/user/src/start3.skb b/skribe/doc/user/src/start3.skb
deleted file mode 100644
index 0705966..0000000
--- a/skribe/doc/user/src/start3.skb
+++ /dev/null
@@ -1,10 +0,0 @@
-(document :title [Hello World!]
-
-(section :title [A first Section] [
- This is a ,(bold [very]) ,(it [simple]) ,(color :fg [red] [text]).])
-
-(section :title [A second Section] [
- That section contains an ,(bold itemize) construction:
- ,(itemize (item [first item])
- (item [second item])
- (item [third item]))]))
diff --git a/skribe/doc/user/src/start4.skb b/skribe/doc/user/src/start4.skb
deleted file mode 100644
index 3311925..0000000
--- a/skribe/doc/user/src/start4.skb
+++ /dev/null
@@ -1,13 +0,0 @@
-(document :title [Various links] [
-
-(section :title "A Section" [
-The first link points to an external web page. Here we point to a
-,(ref :url [http://slashdot.org/] [Slashdot])
-web page. The second one points to the second
-,(ref :section [A second Section] [Section])
-of that document.])
-
-(section :title [A second Section] [
-The last links points to the first
-,(ref :scribe [user.scr] :figure [A simple web page] [Figure])
-of the Scribe User Manual.])])
diff --git a/skribe/doc/user/src/start5.skb b/skribe/doc/user/src/start5.skb
deleted file mode 100644
index 9e6b877..0000000
--- a/skribe/doc/user/src/start5.skb
+++ /dev/null
@@ -1,9 +0,0 @@
-(resolve (lambda (n e env)
- (let* ((current-chapter (ast-chapter n))
- (body (markup-body current-chapter))
- (sects (filter (lambda (x) (is-markup? x 'section))
- body)))
- (itemize
- (map (lambda (x)
- (item (it (markup-option x :title))))
- sects)))))
\ No newline at end of file
diff --git a/skribe/doc/user/start.skb b/skribe/doc/user/start.skb
deleted file mode 100644
index f3c1e28..0000000
--- a/skribe/doc/user/start.skb
+++ /dev/null
@@ -1,197 +0,0 @@
-;*=====================================================================*/
-;* serrano/prgm/project/skribe/doc/user/start.skb */
-;* ------------------------------------------------------------- */
-;* Author : Manuel Serrano */
-;* Creation : Mon Sep 1 11:22:25 2003 */
-;* Last change : Sun Feb 29 16:14:21 2004 (eg) */
-;* Copyright : 2003-04 Manuel Serrano */
-;* ------------------------------------------------------------- */
-;* Getting started with Skribe */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;* Getting started */
-;*---------------------------------------------------------------------*/
-(chapter :title "Getting Started"
-
-(p [
-In this chapter, the syntax of a Skribe text is presented ,(emph "informally").
-In particular, the Skribe syntax is compared to the HTML syntax. Then,
-it is presented how one can use Skribe to make dynamic text
-(i.e texts which are generated by the system rather than entered-in by hand.
-Finally, It is also
-presented how Skribe source files can be processed.])
-
-;*--- Hello world -----------------------------------------------------*/
-(section :title "Hello World!" [
-In this section we show how to produce very simple electronic documents
-with Skribe. Suppose that we want to produce the following Web document:
-
-,(disp [,(font :size 2. (bold "Hello World!"))
-,(linebreak 2)
-This is a very simple text.])
-
-The HTML source file for such a page should look like:
-
-,(prgm :language xml [
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<HTML>
-<HEAD>
-<TITLE>Hello world Example
-
-
-Hello World!
-
-This is a very simple text.
-
-