lib/_system#.scm

   1 ;;;============================================================================
   2
   3 ;;; File: "_system#.scm", Time-stamp: <2007-05-27 22:03:58 feeley>
   4
   5 ;;; Copyright (c) 1994-2007 by Marc Feeley, All Rights Reserved.
   6
   7 ;;;============================================================================
   8
   9 ;;; Representation of exceptions.
  10
  11 (define-library-type-of-exception invalid-hash-number-exception
  12   id: 3b7674e5-a6d8-11d9-930c-00039301ba52
  13   constructor: #f
  14   opaque:
  15
  16   (procedure unprintable: read-only:)
  17   (arguments unprintable: read-only:)
  18 )
  19
  20 (define-library-type-of-exception unbound-table-key-exception
  21   id: 1a1e928d-8df4-11d9-8894-00039301ba52
  22   constructor: #f
  23   opaque:
  24
  25   (procedure unprintable: read-only:)
  26   (arguments unprintable: read-only:)
  27 )
  28
  29 (define-library-type-of-exception unbound-serial-number-exception
  30   id: 3eb844fe-9381-11d9-b22f-00039301ba52
  31   constructor: #f
  32   opaque:
  33
  34   (procedure unprintable: read-only:)
  35   (arguments unprintable: read-only:)
  36 )
  37
  38 ;;;----------------------------------------------------------------------------
  39
  40 ;;; Define type checking macros.
  41
  42 (define-check-type hash-algorithm 'hash-algorithm
  43   ##hash-algorithm?)
  44
  45 ;;;----------------------------------------------------------------------------
  46
  47 ;;; Representation of tables.
  48
  49 (define-type table
  50   id: 5917e472-85e5-11d9-a2c0-00039301ba52
  51   type-exhibitor: macro-type-table
  52   constructor: macro-make-table
  53   implementer: implement-type-table
  54   opaque:
  55   macros:
  56   prefix: macro-
  57
  58   (flags unprintable:)
  59   (test  unprintable:)
  60   (hash  unprintable:)
  61   (loads unprintable:)
  62   (gcht  unprintable:)
  63   (init  unprintable:)
  64 )
  65
  66 ;;; Representation of digests.
  67
  68 (define-type digest
  69   id: 1ce13de0-ccaa-4627-94be-b13eaa2c32e6
  70   type-exhibitor: macro-type-digest
  71   constructor: macro-make-digest
  72   implementer: implement-type-digest
  73   opaque:
  74   macros:
  75   prefix: macro-
  76
  77   (close-digest unprintable:)
  78   (hash-update  unprintable:)
  79   (hash         unprintable:)
  80   (block        unprintable:)
  81   (block-pos    unprintable:)
  82   (bit-pos      unprintable:)
  83 )
  84
  85 ;;;============================================================================