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 / sos / sos.pkg < prev    next >
Text File  |  2000-02-21  |  4KB  |  172 lines
  1. #| -*-Scheme-*-
  2.  
  3. $Id: sos.pkg,v 1.9 2000/02/21 23:13:11 cph Exp $
  4.  
  5. Copyright (c) 1995-2000 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. ;;;; Packaging for Scheme Object System
  23.  
  24. (global-definitions "../runtime/runtime")
  25.  
  26. (define-package (sos)
  27.   (files)
  28.   (parent ()))
  29.  
  30. (define-package (sos slot)
  31.   (files "slot")
  32.   (parent ())
  33.   (export ()
  34.       set-slot-value!
  35.       slot-accessor
  36.       slot-accessor-method
  37.       slot-class
  38.       slot-descriptor?
  39.       slot-index
  40.       slot-initial-value
  41.       slot-initial-value?
  42.       slot-initialized?
  43.       slot-initializer
  44.       slot-initpred
  45.       slot-initpred-method
  46.       slot-modifier
  47.       slot-modifier-method
  48.       slot-name
  49.       slot-properties
  50.       slot-property
  51.       slot-value)
  52.   (export (sos class)
  53.       canonicalize-slot-argument
  54.       compute-slot-descriptor
  55.       install-slot-accessor-methods)
  56.   (import (runtime record-slot-access)
  57.       error:no-such-slot))
  58.  
  59. (define-package (sos class)
  60.   (files "class")
  61.   (parent ())
  62.   (export ()
  63.       <%record>
  64.       <bignum>
  65.       <boolean>
  66.       <char>
  67.       <class>
  68.       <complex>
  69.       <dispatch-tag>
  70.       <entity>
  71.       <exact-complex>
  72.       <exact-integer>
  73.       <exact-rational>
  74.       <exact-real>
  75.       <exact>
  76.       <fixnum>
  77.       <flonum-vector>
  78.       <flonum>
  79.       <generic-procedure>
  80.       <inexact-complex>
  81.       <inexact-integer>
  82.       <inexact-rational>
  83.       <inexact-real>
  84.       <inexact>
  85.       <instance>
  86.       <integer>
  87.       <number>
  88.       <object>
  89.       <pair>
  90.       <procedure>
  91.       <rational>
  92.       <ratnum>
  93.       <real>
  94.       <recnum>
  95.       <record>
  96.       <string>
  97.       <symbol>
  98.       <vector>
  99.       class->dispatch-tag
  100.       class-direct-slot-names
  101.       class-direct-superclasses
  102.       class-name
  103.       class-precedence-list
  104.       class-slot
  105.       class-slots
  106.       class?
  107.       dispatch-tag->class
  108.       make-class
  109.       make-trivial-subclass
  110.       object-class
  111.       record-class
  112.       record-type-class
  113.       subclass?)
  114.   (import (runtime record-slot-access)
  115.       error:no-such-slot))
  116.  
  117. (define-package (sos instance)
  118.   (files "instance")
  119.   (parent ())
  120.   (export ()
  121.       initialize-instance
  122.       instance-class
  123.       instance-constructor
  124.       instance-of?
  125.       instance-predicate
  126.       instance?))
  127.  
  128. (define-package (sos method)
  129.   (files "method")
  130.   (parent ())
  131.   (export ()
  132.       <chained-method>
  133.       <computed-emp>
  134.       <computed-method>
  135.       <method>
  136.       add-method
  137.       add-methods
  138.       chained-method?
  139.       compute-effective-method-procedure
  140.       compute-method
  141.       computed-emp-key
  142.       computed-emp?
  143.       computed-method?
  144.       delete-method
  145.       generic-procedure-methods
  146.       make-chained-method
  147.       make-computed-emp
  148.       make-computed-method
  149.       make-method
  150.       method-applicable?
  151.       method-procedure
  152.       method-specializers
  153.       method?
  154.       sort-methods
  155.       specializer-classes
  156.       specializer=?
  157.       specializer?
  158.       specializers=?
  159.       specializers?
  160.       union-specializer
  161.       union-specializer?))
  162.  
  163. (define-package (sos printer)
  164.   (files "printer")
  165.   (parent ())
  166.   (export ()
  167.       write-instance
  168.       write-instance-helper))
  169.  
  170. (define-package (sos macros)
  171.   (files "macros")
  172.   (parent ()))