Changeset 38512 in project for release/5


Ignore:
Timestamp:
04/02/20 22:03:31 (16 months ago)
Author:
Kon Lovett
Message:

type definition include

Location:
release/5/message-digest-type/trunk
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/message-digest-type/trunk/message-digest-type.egg

    r38496 r38512  
    11;;;; message-digest.egg  -*- Scheme -*-
     2;;;; Kon Lovett, Apr '20
    23;;;; Kon Lovett, Jul '18
    34
    45((synopsis "Message Digest Type")
    5  (version "4.1.2")
     6 (version "4.2.0")
    67 (category crypt)
    78 (author "[[kon lovett]]")
     
    1415 (test-dependencies test)
    1516 (components
     17  (scheme-include types.incl
     18   (files "message-digest-type.types.scm"))
    1619  (extension message-digest-type
    1720    (types-file)
  • release/5/message-digest-type/trunk/message-digest-type.scm

    r38496 r38512  
    11;;;; message-digest-type.scm  -*- Scheme -*-
     2;;;; Kon Lovett, Apr '20
    23;;;; Kon Lovett, Jul '18
    34;;;; Kon Lovett, Aug '17
     
    2728(import scheme)
    2829(import (chicken base))
     30(import (chicken type))
    2931(import (chicken blob))
    3032(import (only (chicken memory representation) number-of-bytes))
    31 (import (chicken type))
    3233(import (only (srfi 4) blob->u8vector/shared u8vector-length u8vector?))
    3334(import (only blob-hexadecimal blob->hex))
     
    4142;;
    4243
    43 (define-type message-digest-result-form symbol)
    44 
    45 (define-type message-digest-result-type (or string blob u8vector))
    46 
    47 #; ;desired, bufpointer is (pointer + length)
    48 (define-type message-digest-buffer (or string blob srfi4vector procedure input-port bufpointer))
    49 (define-type message-digest-buffer (or string blob u8vector))
    50 
    51 (define-type message-digest-primitive (struct message-digest-primitive))
    52 
    53 (define-type message-digest-primitive-context *)
    54 
    55 (define-type message-digest (struct message-digest))
     44(include "message-digest-primitive.types")
     45(include "message-digest-type.types")
    5646
    5747;;
Note: See TracChangeset for help on using the changeset viewer.