home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / 6001 / 6001.pkg < prev    next >
Text File  |  1999-01-02  |  3KB  |  136 lines
  1. #| -*-Scheme-*-
  2.  
  3. $Id: 6001.pkg,v 1.11 1999/01/02 06:06:43 cph Exp $
  4.  
  5. Copyright (c) 1991-1999 Massachusetts Institute of Technology
  6.  
  7. This program is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 2 of the License, or (at
  10. your option) any later version.
  11.  
  12. This program is distributed in the hope that it will be useful, but
  13. WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15. General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with this program; if not, write to the Free Software
  19. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. |#
  21.  
  22. ;;;; 6.001 packaging
  23.  
  24. (global-definitions "../runtime/runtime")
  25.  
  26. (define-package (student)
  27.   (parent ()))
  28.  
  29. (define-package (student scode-rewriting)
  30.   (files "nodefs")
  31.   (parent ())
  32.   (import (runtime rep)
  33.       hook/repl-eval)
  34.   (initialization (initialize-package!)))
  35.  
  36. (define-package (student number)
  37.   (files "arith")
  38.   (parent ())
  39.   (import (runtime number)
  40.       flo:->rational
  41.       flo:rationalize
  42.       int:abs
  43.       int:even?
  44.       int:expt
  45.       int:gcd
  46.       int:lcm
  47.       int:modulo
  48.       rat:denominator
  49.       rat:numerator
  50.       reduce-comparator
  51.       reduce-max/min)
  52.   (export (student)
  53.       *
  54.       +
  55.       -
  56.       /
  57.       <
  58.       <=
  59.       =
  60.       >
  61.       >=
  62.       abs
  63.       acos
  64.       asin
  65.       atan
  66.       ceiling
  67.       complex?
  68.       cos
  69.       dec
  70.       denominator
  71.       even?
  72.       exact->inexact
  73.       exact?
  74.       exp
  75.       expt
  76.       floor
  77.       gcd
  78.       inc
  79.       inexact->exact
  80.       inexact?
  81.       integer?
  82.       lcm
  83.       log
  84.       max
  85.       min
  86.       modulo
  87.       negative?
  88.       number?
  89.       numerator
  90.       odd?
  91.       positive?
  92.       quotient
  93.       rational?
  94.       rationalize
  95.       real?
  96.       remainder
  97.       round
  98.       sin
  99.       sqrt
  100.       tan
  101.       truncate
  102.       zero?))
  103.  
  104. (define-package (student pictures)
  105.   (files "picture"
  106.      "pic-reco"
  107.      "pic-read"
  108.      "pic-imag"
  109.      "pic-ops")
  110.   (parent ())
  111.   (import (runtime x-graphics)
  112.       x-graphics-device/xw)
  113.   (export (student)
  114.       make-picture
  115.       make-window
  116.       pgm-file->picture
  117.       picture->pgm-file
  118.       picture-display
  119.       picture-height
  120.       picture-map
  121.       picture-max
  122.       picture-min
  123.       picture-ref
  124.       picture-width
  125.       picture?
  126.       procedure->picture
  127.       show-window-size
  128.       ;picture-cut
  129.       ;picture-h-reflect
  130.       ;picture-overlap
  131.       ;picture-paste!
  132.       ;picture-rotate
  133.       ;picture-scale
  134.       ;picture-set!
  135.       ;picture-v-reflect
  136.       ))