Overview
Comment: | Added string to pgint |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
be70f56b97e57ed0798932c1b6695418 |
User & Date: | matt on 2011-06-09 05:09:38 |
Other Links: | manifest | tags |
Context
2011-09-24
| ||
22:13 | Yikes. Changes sitting around on disk for long time.... s:any->pgint fix? check-in: 7807ffe39b user: matt tags: trunk | |
2011-06-09
| ||
05:09 | Added string to pgint check-in: be70f56b97 user: matt tags: trunk | |
2011-06-08
| ||
04:48 | Added minor detail to howto check-in: ea14aab600 user: matt tags: trunk | |
Changes
Modified misc-stml.scm from [f82d8a5d54] to [7db3e6d38a].
︙ | ︙ | |||
193 194 195 196 197 198 199 200 201 202 203 204 205 206 | (define (s:any->number val) (cond ((number? val) val) ((string? val) (string->number val)) ((symbol? val) (string->number (symbol->string val))) (else #f))) ;; string is a string and non-zero length (define (misc:non-zero-string str) (if (and (string? str) (> (string-length str) 0)) str #f)) | > > > > > > > > > > > > > > | 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 | (define (s:any->number val) (cond ((number? val) val) ((string? val) (string->number val)) ((symbol? val) (string->number (symbol->string val))) (else #f))) ;; NB// this is *illegal* pgint (define (s:illegal-pgint val) (cond ((> n 2147483647) 1) ((< n -2147483648) -1) (else #f))) (define (s:any->pgint val) (let ((n (s:any->number val))) (if n (if (s:illegal-pgint val) #f n)))) ;; string is a string and non-zero length (define (misc:non-zero-string str) (if (and (string? str) (> (string-length str) 0)) str #f)) |
︙ | ︙ |