Lines Matching refs:datum

20 (define (write-head out struct datum)
29 } ~a[~a] = {~%" struct (length datum)))
44 (define (c-out datum)
45   (cond ((number? datum) (format "~aL" datum))
46 	((boolean? datum)
47 	 (if datum 'TRUE 'FALSE))
48 	((symbol? datum) datum)
50 	 (error 'convert "unknown datum" datum))))
57 	 (datum (read in)))
63 	  (converter file out datum))))))
67   (lambda (file out datum)
68     (write-head out (generate-struct-name file) datum)
73 	      datum)
76 (define (write-head-with-count out count struct datum)
85 } ~a[~a] = {~%" count struct (length datum)))
88   (lambda (file out datum)
91       (let loop ((datum datum))
92 	(unless (null? datum)
93 	  (set! longest (max (length (cdar datum)) longest))
94 	  (loop (cdr datum))))
98     (write-head-with-count out longest (generate-struct-name file) datum)
114 	      datum)
118 (define (write-head64 out struct datum)
127 } ~a[~a] = {~%" struct (length datum)))
131   (lambda (file out datum)
132     (define (c-out datum)
133       (cond ((number? datum) (format "~aLL" datum))
134 	    ((boolean? datum)
135 	     (if datum 'TRUE 'FALSE))
136 	    ((symbol? datum) datum)
138 	     (error 'convert "unknown datum" datum))))
139     (write-head64 out (generate-struct-name file) datum)
144 	      datum)
147 (define (write-head-for-numeric out struct datum)
157 } ~a[~a] = {~%" struct (length datum)))
159   (lambda (file out datum)
160     (define (c-out datum :optional (suffix "LL"))
161       (cond ((number? datum) (format "~a~a" datum suffix))
162 	    ((boolean? datum)
163 	     (if datum 'TRUE 'FALSE))
164 	    ((symbol? datum) datum)
166 	     (error 'convert "unknown datum" datum))))
167     (write-head-for-numeric out (generate-struct-name file) datum)
174 	      datum)