home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / s / s48.zip / MISC / PACKAGE-.S < prev    next >
Text File  |  1992-06-18  |  2KB  |  80 lines
  1.  
  2. ;  :load-into packages misc/package-defs.scm
  3.  
  4.  
  5. (define-package queue
  6.   (open scheme record condition)
  7.   (export make-queue enqueue dequeue queue-empty?
  8.       queue? queue->list queue-length delete-from-queue!)
  9.   (files queue))
  10.  
  11. (define-package thread
  12.   (open scheme system primitives queue)
  13.   (export spawn
  14.       make-lock with-lock obtain-lock release-lock
  15.       make-condvar condvar-ref condvar-set!
  16.       relinquish-timeslice current-thread terminate-current-thread
  17.       start-multitasking simple-thread-condition-handler
  18.       kill-thread kill-condvar
  19.       sleep time)
  20.   (files compose-cont thread sleep))
  21.  
  22.  
  23. (define-package assembler  ;but load assem.scm into the system package
  24.   (open system)
  25.   (export %lap))
  26.  
  27.  
  28. (define-package pp
  29.   (open scheme)
  30.   (export p pretty-print)
  31.   (files pp))
  32.  
  33.  
  34. (define-package random
  35.   (open scheme primitives)
  36.   (export make-random)
  37.   (files random))
  38.  
  39.  
  40. (define-package tokenizer
  41.   (open scheme record condition defpackage)
  42.   (access primitives)
  43.   (export make-tokenizer-table
  44.       set-up-usual-tokenization!
  45.       set-char-tokenization!
  46.       tokenize)
  47.   (files tokenize))
  48.  
  49.  
  50. (define-package pratt
  51.   (open scheme record condition tokenizer table)
  52.   (export toplevel-parse
  53.       parse
  54.       make-operator
  55.       make-lexer-table
  56.       lexer-ttab define-keyword define-punctuation
  57.       prsmatch comma-operator delim-error erb-error if-operator
  58.       then-operator else-operator parse-prefix parse-nary parse-infix
  59.       parse-matchfix end-of-input-operator port->stream)
  60.   (files pratt))
  61.  
  62.  
  63. (define-package sgol
  64.   (open scheme condition pratt)
  65.   (export sgol-read)
  66.   (files sgol))
  67.  
  68.  
  69. (define-package sort
  70.   (open scheme)
  71.   (export sort-list sort-list!)
  72.   (files sort))
  73.  
  74.  
  75. (define-package traverse
  76.   (open scheme queue primitives table)
  77.   (export traverse-depth-first traverse-breadth-first trail
  78.       set-leaf-predicate! usual-leaf-predicate)
  79.   (files traverse))
  80.