summaryrefslogtreecommitdiff
path: root/skribe/doc/dir/dir.skb
diff options
context:
space:
mode:
authorLudovic Court`es2005-11-02 10:08:38 +0000
committerLudovic Court`es2005-11-02 10:08:38 +0000
commitb76d5e1b252967521f210eac10ddbf089dde8c6a (patch)
tree00fc81c51256991c04799d79a749bbdd5b9fad30 /skribe/doc/dir/dir.skb
parentba63b8d4780428d9f63f6ace7f49361b77401112 (diff)
parentf553cb65b157b6df9563cefa593902d59301461b (diff)
downloadskribilo-b76d5e1b252967521f210eac10ddbf089dde8c6a.tar.gz
skribilo-b76d5e1b252967521f210eac10ddbf089dde8c6a.tar.lz
skribilo-b76d5e1b252967521f210eac10ddbf089dde8c6a.zip
Cleaned up the source tree and the installation process.
Patches applied: * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-6 Cosmetic changes. * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-7 Removed useless files, integrated packages. * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-8 Removed useless files, integrated packages. * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-9 Moved the STkLos and Bigloo code to `legacy'. * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-10 Installed Autoconf/Automake machinery. Fixed a few things. * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-11 Changes related to source-highlighting and to the manual. git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-10
Diffstat (limited to 'skribe/doc/dir/dir.skb')
-rw-r--r--skribe/doc/dir/dir.skb113
1 files changed, 0 insertions, 113 deletions
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*)))