"Fossies" - the Fresh Open Source Software Archive

Member "slib-3b6/mklibcat.scm" (29 Mar 2015, 9412 Bytes) of package /linux/privat/slib-3b6.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Lisp source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. See also the latest Fossies "Diffs" side-by-side code changes report for "mklibcat.scm": 3b5_vs_3b6.

    1 ;"mklibcat.scm" Build catalog for SLIB
    2 ;Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003 Aubrey Jaffer
    3 ;
    4 ;Permission to copy this software, to modify it, to redistribute it,
    5 ;to distribute modified versions, and to use it for any purpose is
    6 ;granted, subject to the following restrictions and understandings.
    7 ;
    8 ;1.  Any copy made of this software must include this copyright notice
    9 ;in full.
   10 ;
   11 ;2.  I have made no warranty or representation that the operation of
   12 ;this software will be error-free, and I am under no obligation to
   13 ;provide any services, by way of maintenance, update, or otherwise.
   14 ;
   15 ;3.  In conjunction with products arising from the use of this
   16 ;material, there shall be no use of my name in any advertising,
   17 ;promotional, or sales literature without prior written consent in
   18 ;each case.
   19 
   20 (let ((catpath (in-vicinity (implementation-vicinity) "slibcat")))
   21   (and (file-exists? catpath) (delete-file catpath))
   22   (call-with-output-file catpath
   23     (lambda (op)
   24       (define (display* . args)
   25     (for-each (lambda (arg) (display arg op)) args)
   26     (newline op))
   27       (define (write* asp)
   28     (display " " op) (write asp op) (newline op))
   29       (display* ";\"slibcat\" SLIB catalog for "
   30         (scheme-implementation-type) (scheme-implementation-version)
   31         ".        -*-scheme-*-")
   32       (display* ";")
   33       (display* "; DO NOT EDIT THIS FILE -- it is automagically generated")
   34       (display*)
   35 
   36       (display* "(")
   37       (for-each
   38        write*
   39        (append
   40     (list (cons 'schelog
   41             (in-vicinity (sub-vicinity (library-vicinity) "schelog")
   42                  "schelog"))
   43           (cons 'portable-scheme-debugger
   44             (in-vicinity (sub-vicinity (library-vicinity) "psd")
   45                  "psd-slib"))
   46           (cons 'jfilter
   47             (in-vicinity (sub-vicinity (library-vicinity) "jfilter")
   48                  "jfilter")))
   49     (catalog:resolve
   50      (library-vicinity)
   51      (cons
   52       (if (provided? 'defmacro)
   53           '(fluid-let   defmacro    "fluidlet")
   54           '(fluid-let   macro       "fluidlet"))
   55       '(
   56         ;; null is the start of SLIB associations.
   57         (null       source      "null")
   58         (aggregate      source      "null")
   59         (r2rs   aggregate   rev3-procedures rev2-procedures)
   60         (r3rs   aggregate   rev3-procedures)
   61         (r4rs   aggregate   rev4-optional-procedures)
   62         (r5rs   aggregate   values  macro   eval)
   63         (rev4-optional-procedures   source  "sc4opt")
   64         (rev3-procedures    source      "null")
   65         (rev2-procedures    source      "sc2")
   66         (multiarg/and-  source      "mularg")
   67         (multiarg-apply source      "mulapply")
   68         (rationalize    source      "ratize")
   69         (transcript     source      "trnscrpt")
   70         (with-file      source      "withfile")
   71         (dynamic-wind   source      "dynwind")
   72         (dynamic        source      "dynamic")
   73         (alist      source      "alist")
   74         (hash       source      "hash")
   75         (sierpinski     source      "sierpinski")
   76         (hilbert-fill   source      "phil-spc")
   77         (peano-fill     source      "peanosfc")
   78         (space-filling  source      "rmdsff")
   79         (soundex        source      "soundex")
   80         (hash-table     source      "hashtab")
   81         (logical        source      "logical")
   82         (random     source      "random")
   83         (random-inexact source      "randinex")
   84         (modular        source      "modular")
   85         (factor     source      "factor")
   86         (primes             factor)
   87         (limit      source      "limit")
   88         (eps-graph      source      "grapheps")
   89         (charplot       source      "charplot")
   90         (sort       source      "sort")
   91         (srfi-95                sort)
   92         (tsort              topological-sort)
   93         (topological-sort   source      "tsort")
   94         (common-list-functions  source  "comlist")
   95         (tree       source      "tree")
   96         (coerce     source      "coerce")
   97         (format     source      "format")
   98         (generic-write  source      "genwrite")
   99         (pretty-print   source      "pp")
  100         (pprint-file    source      "ppfile")
  101         (object->string source      "obj2str")
  102         (string-case    source      "strcase")
  103         (line-i/o       source      "lineio")
  104         (string-port    source      "strport")
  105         (getopt     source      "getopt")
  106         (qp         source      "qp")
  107         (eval       source      "eval")
  108         (record     source      "record")
  109         (synchk     source      "synchk")
  110         (defmacroexpand source      "defmacex")
  111 
  112         (printf     source      "printf")
  113         (scanf      defmacro    "scanf")
  114         (stdio-ports    source      "stdio")
  115         (stdio      aggregate scanf printf stdio-ports)
  116 
  117         (break      defmacro    "break")
  118         (trace      defmacro    "trace")
  119         (debugf     source      "debug")
  120         (debug      aggregate trace break debugf)
  121 
  122         (delay              promise)
  123         (promise        macro       "promise")
  124 
  125         (macro-by-example   defmacro    "mbe")
  126 
  127         (syntax-case    source      "scainit")
  128         (syntactic-closures source      "scmacro")
  129         (macros-that-work   source      "macwork")
  130         (macro              macro-by-example)
  131         (object     source      "object")
  132         (yasos      macro       "yasyn")
  133         (oop                yasos)
  134         (collect        macro       "collectx")
  135         (structure      syntax-case "structure")
  136         (values     source      "values")
  137         (queue      source      "queue")
  138         (priority-queue source      "priorque")
  139         (array      source      "array")
  140         (subarray       source      "subarray")
  141         (array-for-each source      "arraymap")
  142         (array-interpolate  source      "linterp")
  143         (repl       source      "repl")
  144         (process        source      "process")
  145         (chapter-order  source      "chap")
  146         (posix-time     source      "psxtime")
  147         (common-lisp-time   source      "cltime")
  148         (iso-8601       source      "iso8601")
  149         (time-core      source      "timecore")
  150         (time-zone      defmacro    "timezone")
  151         (relational-database    source      "rdms")
  152         (databases      source      "dbutil")
  153         (database-utilities         databases)
  154         (database-commands  source      "dbcom")
  155         (database-browse    source      "dbrowse")
  156         (database-interpolate   source  "dbinterp")
  157         (within-database    macro       "dbsyn")
  158         (html-form      source      "htmlform")
  159         (alist-table    source      "alistab")
  160         (parameters     source      "paramlst")
  161         (getopt-parameters  source      "getparam")
  162         (read-command   source      "comparse")
  163         (batch      source      "batch")
  164         (glob       source      "glob")
  165         (filename               glob)
  166         (crc        source      "crc")
  167         (dft        source      "dft")
  168         (fft                dft)
  169         (Fourier-transform          dft)
  170         (wt-tree        source      "wttree")
  171         (string-search  source      "strsrch")
  172         (root       source      "root")
  173         (minimize       source      "minimize")
  174         (precedence-parse   source      "prec")
  175         (parse              precedence-parse)
  176         (commutative-ring   source      "cring")
  177         (self-set       source      "selfset")
  178         (determinant    source      "determ")
  179         (byte       source      "byte")
  180         (byte-number    source      "bytenumb")
  181         (tzfile     source      "tzfile")
  182         (schmooz        source      "schmooz")
  183         (transact       defmacro    "transact")
  184         (net-clients            transact)
  185         (db->html       source      "db2html")
  186         (http       defmacro    "http-cgi")
  187         (cgi                http)
  188         (uri        defmacro    "uri")
  189         (uniform-resource-identifier        uri)
  190         (pnm        source      "pnm")
  191         (metric-units   source      "simetrix")
  192         (diff       source      "differ")
  193         (solid      source      "solid")
  194         (vrml97             solid)
  195         (vrml               vrml97)
  196         (color      defmacro    "color")
  197         (color-space    source      "colorspc")
  198         (cie                color-space)
  199         (color-names    source      "colornam")
  200         (color-database defmacro    "mkclrnam")
  201         (resene     color-names "clrnamdb.scm")
  202         (saturate       color-names "clrnamdb.scm")
  203         (nbs-iscc       color-names "clrnamdb.scm")
  204         (daylight       source      "daylight")
  205         (matfile        source      "matfile")
  206         (mat-file               matfile)
  207         (spectral-tristimulus-values        color-space)
  208         (cie1964 spectral-tristimulus-values "cie1964.xyz")
  209         (cie1931 spectral-tristimulus-values "cie1931.xyz")
  210         (ciexyz             cie1931)
  211         (cvs        defmacro    "cvs")
  212         (html-for-each  defmacro    "html4each")
  213         (directory      source      "dirs")
  214         (ncbi-dna       defmacro    "ncbi-dna")
  215         (manifest       source      "manifest")
  216         (top-refs       source      "top-refs")
  217         (vet        source      "vet")
  218         (srfi               srfi-0)
  219         (srfi-0     defmacro    "srfi")
  220         (srfi-1     source      "srfi-1")
  221         (and-let*               srfi-2)
  222         (srfi-2     defmacro    "srfi-2")
  223         (receive                srfi-8)
  224         (srfi-8     macro       "srfi-8")
  225         (define-record-type         srfi-9)
  226         (srfi-9     macro       "srfi-9")
  227         (let-values             srfi-11)
  228         (srfi-11        macro       "srfi-11")
  229         (srfi-28                format)
  230         (srfi-39        macro       "srfi-39")
  231         (srfi-47                array)
  232         (srfi-63                array)
  233         (srfi-60                logical)
  234         (guarded-cond-clause        srfi-61)
  235         (srfi-61        macro       "srfi-61")
  236         (srfi-23        source      "srfi-23")
  237         (math-integer   source      "math-integer")
  238         (math-real      source      "math-real")
  239         (srfi-94        aggregate math-integer math-real)
  240         (ssax               xml-parse)
  241         (xml-parse      source      "xml-parse")
  242         (new-catalog    source      "mklibcat")
  243         )))))
  244       (let* ((req (in-vicinity (library-vicinity)
  245                    (string-append "require" (scheme-file-suffix)))))
  246     (write* (cons '*slib-version* (or (slib:version req) *slib-version*))))
  247       (display* ")")
  248 
  249       (let ((load-if-exists
  250          (lambda (path)
  251            (cond ((file-exists? (string-append path (scheme-file-suffix)))
  252               (slib:load-source path))))))
  253     ;;(load-if-exists (in-vicinity (implementation-vicinity) "mksitcat"))
  254     (load-if-exists (in-vicinity (implementation-vicinity) "mkimpcat")))
  255 
  256       (let ((catcat
  257          (lambda (vicinity name specificity)
  258            (let ((path (in-vicinity vicinity name)))
  259          (and (file-exists? path)
  260               (call-with-input-file path
  261             (lambda (ip)
  262               (display*)
  263               (display* "; " "\"" path "\"" " SLIB "
  264                     specificity "-specific catalog additions")
  265               (display*)
  266               (do ((c (read-char ip) (read-char ip)))
  267                   ((eof-object? c))
  268                 (write-char c op)))))))))
  269     (catcat (library-vicinity) "sitecat" "site")
  270     (catcat (implementation-vicinity) "implcat" "implementation")
  271     (catcat (implementation-vicinity) "sitecat" "site"))
  272       ))
  273   (set! *catalog* #f))