Changeset 14704 in project for chicken


Ignore:
Timestamp:
05/19/09 13:47:07 (11 years ago)
Author:
felix winkelmann
Message:

more types - mind numbing

Location:
chicken/branches/scrutiny
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/scrutiny/srfi-4.import.scm

    r12937 r14704  
    4343   blob->u8vector
    4444   blob->u8vector/shared
    45    byte-vector->f32vector
    46    byte-vector->f64vector
    47    byte-vector->s16vector
    48    byte-vector->s32vector
    49    byte-vector->s8vector
    50    byte-vector->u16vector
    51    byte-vector->u32vector
    52    byte-vector->u8vector
    5345   f32vector
    5446   f32vector->blob
  • chicken/branches/scrutiny/types.db

    r14696 r14704  
    11881188;; srfi-4
    11891189
    1190 #!eof
    1191 
    1192 (blob->f32vector (procedure blob->f32vector () *))
    1193 (blob->f32vector/shared (procedure blob->f32vector/shared () *))
    1194 (blob->f64vector (procedure blob->f64vector () *))
    1195 (blob->f64vector/shared (procedure blob->f64vector/shared () *))
    1196 (blob->s16vector (procedure blob->s16vector () *))
    1197 (blob->s16vector/shared (procedure blob->s16vector/shared () *))
    1198 (blob->s32vector (procedure blob->s32vector () *))
    1199 (blob->s32vector/shared (procedure blob->s32vector/shared () *))
    1200 (blob->s8vector (procedure blob->s8vector () *))
    1201 (blob->s8vector/shared (procedure blob->s8vector/shared () *))
    1202 (blob->u16vector (procedure blob->u16vector () *))
    1203 (blob->u16vector/shared (procedure blob->u16vector/shared () *))
    1204 (blob->u32vector (procedure blob->u32vector () *))
    1205 (blob->u32vector/shared (procedure blob->u32vector/shared () *))
    1206 (blob->u8vector (procedure blob->u8vector () *))
    1207 (blob->u8vector/shared (procedure blob->u8vector/shared () *))
    1208 (byte-vector->f32vector (procedure byte-vector->f32vector () *))
    1209 (byte-vector->f64vector (procedure byte-vector->f64vector () *))
    1210 (byte-vector->s16vector (procedure byte-vector->s16vector () *))
    1211 (byte-vector->s32vector (procedure byte-vector->s32vector () *))
    1212 (byte-vector->s8vector (procedure byte-vector->s8vector () *))
    1213 (byte-vector->u16vector (procedure byte-vector->u16vector () *))
    1214 (byte-vector->u32vector (procedure byte-vector->u32vector () *))
    1215 (byte-vector->u8vector (procedure byte-vector->u8vector () *))
    1216 (f32vector (procedure f32vector () *))
    1217 (f32vector->blob (procedure f32vector->blob () *))
    1218 (f32vector->blob/shared (procedure f32vector->blob/shared () *))
    1219 (f32vector->byte-vector (procedure f32vector->byte-vector () *))
    1220 (f32vector->list (procedure f32vector->list () *))
    1221 (f32vector-length (procedure f32vector-length () *))
    1222 (f32vector-ref (procedure f32vector-ref () *))
    1223 (f32vector-set! (procedure f32vector-set! () *))
    1224 (f32vector? (procedure f32vector? () *))
    1225 (f64vector (procedure f64vector () *))
    1226 (f64vector->blob (procedure f64vector->blob () *))
    1227 (f64vector->blob/shared (procedure f64vector->blob/shared () *))
    1228 (f64vector->byte-vector (procedure f64vector->byte-vector () *))
    1229 (f64vector->list (procedure f64vector->list () *))
    1230 (f64vector-length (procedure f64vector-length () *))
    1231 (f64vector-ref (procedure f64vector-ref () *))
    1232 (f64vector-set! (procedure f64vector-set! () *))
    1233 (f64vector? (procedure f64vector? () *))
    1234 (list->f32vector (procedure list->f32vector () *))
    1235 (list->f64vector (procedure list->f64vector () *))
    1236 (list->s16vector (procedure list->s16vector () *))
    1237 (list->s32vector (procedure list->s32vector () *))
    1238 (list->s8vector (procedure list->s8vector () *))
    1239 (list->u16vector (procedure list->u16vector () *))
    1240 (list->u32vector (procedure list->u32vector () *))
    1241 (list->u8vector (procedure list->u8vector () *))
    1242 (make-f32vector (procedure make-f32vector () *))
    1243 (make-f64vector (procedure make-f64vector () *))
    1244 (make-s16vector (procedure make-s16vector () *))
    1245 (make-s32vector (procedure make-s32vector () *))
    1246 (make-s8vector (procedure make-s8vector () *))
    1247 (make-u16vector (procedure make-u16vector () *))
    1248 (make-u32vector (procedure make-u32vector () *))
    1249 (make-u8vector (procedure make-u8vector () *))
    1250 (read-u8vector (procedure read-u8vector () *))
    1251 (read-u8vector! (procedure read-u8vector! () *))
    1252 (release-number-vector (procedure release-number-vector () *))
    1253 (s16vector (procedure s16vector () *))
    1254 (s16vector->blob (procedure s16vector->blob () *))
    1255 (s16vector->blob/shared (procedure s16vector->blob/shared () *))
    1256 (s16vector->byte-vector (procedure s16vector->byte-vector () *))
    1257 (s16vector->list (procedure s16vector->list () *))
    1258 (s16vector-length (procedure s16vector-length () *))
    1259 (s16vector-ref (procedure s16vector-ref () *))
    1260 (s16vector-set! (procedure s16vector-set! () *))
    1261 (s16vector? (procedure s16vector? () *))
    1262 (s32vector (procedure s32vector () *))
    1263 (s32vector->blob (procedure s32vector->blob () *))
    1264 (s32vector->blob/shared (procedure s32vector->blob/shared () *))
    1265 (s32vector->byte-vector (procedure s32vector->byte-vector () *))
    1266 (s32vector->list (procedure s32vector->list () *))
    1267 (s32vector-length (procedure s32vector-length () *))
    1268 (s32vector-ref (procedure s32vector-ref () *))
    1269 (s32vector-set! (procedure s32vector-set! () *))
    1270 (s32vector? (procedure s32vector? () *))
    1271 (s8vector (procedure s8vector () *))
    1272 (s8vector->blob (procedure s8vector->blob () *))
    1273 (s8vector->blob/shared (procedure s8vector->blob/shared () *))
    1274 (s8vector->byte-vector (procedure s8vector->byte-vector () *))
    1275 (s8vector->list (procedure s8vector->list () *))
    1276 (s8vector-length (procedure s8vector-length () *))
    1277 (s8vector-ref (procedure s8vector-ref () *))
    1278 (s8vector-set! (procedure s8vector-set! () *))
    1279 (s8vector? (procedure s8vector? () *))
    1280 (subf32vector (procedure subf32vector () *))
    1281 (subf64vector (procedure subf64vector () *))
    1282 (subs16vector (procedure subs16vector () *))
    1283 (subs32vector (procedure subs32vector () *))
    1284 (subs8vector (procedure subs8vector () *))
    1285 (subu16vector (procedure subu16vector () *))
    1286 (subu32vector (procedure subu32vector () *))
    1287 (subu8vector (procedure subu8vector () *))
    1288 (u16vector (procedure u16vector () *))
    1289 (u16vector->blob (procedure u16vector->blob () *))
    1290 (u16vector->blob/shared (procedure u16vector->blob/shared () *))
    1291 (u16vector->byte-vector (procedure u16vector->byte-vector () *))
    1292 (u16vector->list (procedure u16vector->list () *))
    1293 (u16vector-length (procedure u16vector-length () *))
    1294 (u16vector-ref (procedure u16vector-ref () *))
    1295 (u16vector-set! (procedure u16vector-set! () *))
    1296 (u16vector? (procedure u16vector? () *))
    1297 (u32vector (procedure u32vector () *))
    1298 (u32vector->blob (procedure u32vector->blob () *))
    1299 (u32vector->blob/shared (procedure u32vector->blob/shared () *))
    1300 (u32vector->byte-vector (procedure u32vector->byte-vector () *))
    1301 (u32vector->list (procedure u32vector->list () *))
    1302 (u32vector-length (procedure u32vector-length () *))
    1303 (u32vector-ref (procedure u32vector-ref () *))
    1304 (u32vector-set! (procedure u32vector-set! () *))
    1305 (u32vector? (procedure u32vector? () *))
    1306 (u8vector (procedure u8vector () *))
    1307 (u8vector->blob (procedure u8vector->blob () *))
    1308 (u8vector->blob/shared (procedure u8vector->blob/shared () *))
    1309 (u8vector->byte-vector (procedure u8vector->byte-vector () *))
    1310 (u8vector->list (procedure u8vector->list () *))
    1311 (u8vector-length (procedure u8vector-length () *))
    1312 (u8vector-ref (procedure u8vector-ref () *))
    1313 (u8vector-set! (procedure u8vector-set! () *))
    1314 (u8vector? (procedure u8vector? () *))
    1315 (write-u8vector (procedure write-u8vector () *))
     1190(blob->f32vector (procedure blob->f32vector (blob) (struct f32vector)))
     1191(blob->f32vector/shared (procedure blob->f32vector/shared (blob) (struct f32vector)))
     1192(blob->f64vector (procedure blob->f64vector (blob) (struct f64vector)))
     1193(blob->f64vector/shared (procedure blob->f64vector/shared (blob) (struct f64vector)))
     1194(blob->s16vector (procedure blob->s16vector (blob) (struct s16vector)))
     1195(blob->s16vector/shared (procedure blob->s16vector/shared (blob) (struct s16vector)))
     1196(blob->s32vector (procedure blob->s32vector (blob) (strucrt s32vector)))
     1197(blob->s32vector/shared (procedure blob->s32vector/shared (blob) (struct s32vector)))
     1198(blob->s8vector (procedure blob->s8vector (blob) (struct u8vector)))
     1199(blob->s8vector/shared (procedure blob->s8vector/shared (blob) (struct u8vector)))
     1200(blob->u16vector (procedure blob->u16vector (blob) (struct u16vector)))
     1201(blob->u16vector/shared (procedure blob->u16vector/shared (blob) (struct u16vector)))
     1202(blob->u32vector (procedure blob->u32vector (blob) (struct u32vector)))
     1203(blob->u32vector/shared (procedure blob->u32vector/shared (blob) (struct u32vector)))
     1204(blob->u8vector (procedure blob->u8vector (blob) (struct u8vector)))
     1205(blob->u8vector/shared (procedure blob->u8vector/shared (blob) (struct u8vector)))
     1206(f32vector (procedure f32vector (#!rest number) (struct f32vector)))
     1207(f32vector->blob (procedure f32vector->blob ((struct f32vector)) blob))
     1208(f32vector->blob/shared (procedure f32vector->blob/shared ((struct f232vector)) blob))
     1209(f32vector->list (procedure f32vector->list ((struct f32vector)) list))
     1210(f32vector-length (procedure f32vector-length ((struct f32vector)) fixnum))
     1211(f32vector-ref (procedure f32vector-ref ((struct f32vector) fixnum) float))
     1212(f32vector-set! (procedure f32vector-set! ((struct f32vector) fixnum number) undefined))
     1213(f32vector? (procedure f32vector? (*) boolean))
     1214(f64vector (procedure f64vector (#!rest number) (struct f64vector)))
     1215(f64vector->blob (procedure f64vector->blob ((struct f32vector)) blob))
     1216(f64vector->blob/shared (procedure f64vector->blob/shared ((struct f64vector)) blob))
     1217(f64vector->list (procedure f64vector->list ((struct f64vector)) blob))
     1218(f64vector-length (procedure f64vector-length ((struct f64vector)) fixnum))
     1219(f64vector-ref (procedure f64vector-ref ((struct f64vector) fixnum) float))
     1220(f64vector-set! (procedure f64vector-set! ((struct f64vector) fixnum number) undefined))
     1221(f64vector? (procedure f64vector? (*) boolean))
     1222(list->f32vector (procedure list->f32vector (list) (struct f32vector)))
     1223(list->f64vector (procedure list->f64vector (list) (struct f64vector)))
     1224(list->s16vector (procedure list->s16vector (list) (struct s16vector)))
     1225(list->s32vector (procedure list->s32vector (list) (struct s32vector)))
     1226(list->s8vector (procedure list->s8vector (list) (struct s8vector)))
     1227(list->u16vector (procedure list->u16vector (list) (struct u16vector)))
     1228(list->u32vector (procedure list->u32vector (list) (struct u32vector)))
     1229(list->u8vector (procedure list->u8vector (list) (struct u8vector)))
     1230(make-f32vector (procedure make-f32vector (fixnum #!optional * * *) (struct f32vector)))
     1231(make-f64vector (procedure make-f64vector (fixnum #!optional * * *) (struct f64vector)))
     1232(make-s16vector (procedure make-s16vector (fixnum #!optional * * *) (struct s16vector)))
     1233(make-s32vector (procedure make-s32vector (fixnum #!optional * * *) (struct s32vector)))
     1234(make-s8vector (procedure make-s8vector (fixnum #!optional * * *) (struct s8vector)))
     1235(make-u16vector (procedure make-u16vector (fixnum #!optional * * *) (struct u16vector)))
     1236(make-u32vector (procedure make-u32vector (fixnum #!optional * * *) (struct u32vector)))
     1237(make-u8vector (procedure make-u8vector (fixnum #!optional * * *) (struct u8vector)))
     1238(read-u8vector (procedure read-u8vector (#!optional fixnum port) (struct u8vector)))
     1239(read-u8vector! (procedure read-u8vector! (fixnum (struct u8vector) #!optional port fixnum) (struct u8vector)))
     1240(release-number-vector (procedure release-number-vector (*) undefined))
     1241(s16vector (procedure s16vector (#!rest fixnum) (struct s16vector)))
     1242(s16vector->blob (procedure s16vector->blob ((struct s16vector)) blob))
     1243(s16vector->blob/shared (procedure s16vector->blob/shared ((struct s16vector)) blob))
     1244(s16vector->list (procedure s16vector->list ((struct s16vector)) list))
     1245(s16vector-length (procedure s16vector-length ((struct s16vector)) fixnum))
     1246(s16vector-ref (procedure s16vector-ref ((struct s16vector) fixnum) fixnum))
     1247(s16vector-set! (procedure s16vector-set! ((struct s16vewctor) fixnum fixnum) undefined))
     1248(s16vector? (procedure s16vector? (*) boolean))
     1249(s32vector (procedure s32vector (#!rest number) (struct s32vector)))
     1250(s32vector->blob (procedure s32vector->blob ((structs 32vector)) blob))
     1251(s32vector->blob/shared (procedure s32vector->blob/shared ((struct s32vector)) blob))
     1252(s32vector->list (procedure s32vector->list ((struct s32vector)) list))
     1253(s32vector-length (procedure s32vector-length ((struct s32vector)) fixnum))
     1254(s32vector-ref (procedure s32vector-ref ((struct s32vector) fixnum) number))
     1255(s32vector-set! (procedure s32vector-set! ((struct s32vector) fixnum number) undefined))
     1256(s32vector? (procedure s32vector? (*) boolean))
     1257(s8vector (procedure s8vector (#!rest fixnum) (struct s8vector)))
     1258(s8vector->blob (procedure s8vector->blob ((struct s8vector)) blob))
     1259(s8vector->blob/shared (procedure s8vector->blob/shared ((struct s8vector)) blob))
     1260(s8vector->list (procedure s8vector->list ((struct s8vector)) list))
     1261(s8vector-length (procedure s8vector-length ((struct s8vector)) fixnum))
     1262(s8vector-ref (procedure s8vector-ref ((struct s18vector) fixnum) fixnum))
     1263(s8vector-set! (procedure s8vector-set! ((struct s8vector) fixnum fixnum) undefined))
     1264(s8vector? (procedure s8vector? (*) boolean))
     1265(subf32vector (procedure subf32vector ((struct f32vector) fixnum fixnum) (struct f32vector)))
     1266(subf64vector (procedure subf64vector ((struct f64vector) fixnum fixnum) (struct f64vector)))
     1267(subs16vector (procedure subs16vector ((struct s16vector) fixnum fixnum) (struct s16vector)))
     1268(subs32vector (procedure subs32vector ((struct s32vector) fixnum fixnum) (struct s32vector)))
     1269(subs8vector (procedure subs8vector  ((struct s8vector) fixnum fixnum) (struct s8vector)))
     1270(subu16vector (procedure subu16vector ((struct u16vector) fixnum fixnum) (struct u16vector)))
     1271(subu32vector (procedure subu32vector ((struct u32vector) fixnum fixnum) (struct u32vector)))
     1272(subu8vector (procedure subu8vector ((struct u8vector) fixnum fixnum) (struct u8vector)))
     1273(u16vector (procedure u16vector (#!rest fixnum) (struct u16vector)))
     1274(u16vector->blob (procedure u16vector->blob ((struct u16vector)) blob))
     1275(u16vector->blob/shared (procedure u16vector->blob/shared ((struct u16vector)) blob))
     1276(u16vector->list (procedure u16vector->list ((struct u16vector)) list))
     1277(u16vector-length (procedure u16vector-length ((struct u16vector)) fixnum))
     1278(u16vector-ref (procedure u16vector-ref ((struct u16vector) fixnum) fixnum))
     1279(u16vector-set! (procedure u16vector-set! ((struct u16vector) fixnum fixnum) undefined))
     1280(u16vector? (procedure u16vector? (*) boolean))
     1281(u32vector (procedure u32vector (#!rest number) (struct u32vector)))
     1282(u32vector->blob (procedure u32vector->blob ((struct u32vector)) blob))
     1283(u32vector->blob/shared (procedure u32vector->blob/shared ((struct u32vector)) blob))
     1284(u32vector->list (procedure u32vector->list ((struct u32vector)) list))
     1285(u32vector-length (procedure u32vector-length ((struct u32vector)) fixnum))
     1286(u32vector-ref (procedure u32vector-ref ((struct u32vector) fixnum) number))
     1287(u32vector-set! (procedure u32vector-set! ((struct u32vector) fixnum number) undefined))
     1288(u32vector? (procedure u32vector? (*) boolean))
     1289(u8vector (procedure u8vector (#!rest fixnum) (struct u8vector)))
     1290(u8vector->blob (procedure u8vector->blob ((struct u8vector)) blob))
     1291(u8vector->blob/shared (procedure u8vector->blob/shared ((struct u8vector)) blob))
     1292(u8vector->list (procedure u8vector->list ((struct u8vector)) list))
     1293(u8vector-length (procedure u8vector-length ((struct u8vector)) fixnum))
     1294(u8vector-ref (procedure u8vector-ref ((struct u8vector) fixnum) fixnum))
     1295(u8vector-set! (procedure u8vector-set! ((struct u8vector) fixnum fixnum) undefined))
     1296(u8vector? (procedure u8vector? (*) boolean))
     1297(write-u8vector (procedure write-u8vector ((struct u8vector) #!optional port fixnum fixnum) undefined))
     1298
     1299#!eof
    13161300
    13171301;; srfi-69
Note: See TracChangeset for help on using the changeset viewer.