Mercurial > hg > aim92
annotate stitch/srcio.c @ 0:5242703e91d3 tip
Initial checkin for AIM92 aimR8.2 (last updated May 1997).
author | tomwalters |
---|---|
date | Fri, 20 May 2011 15:19:45 +0100 |
parents | |
children |
rev | line source |
---|---|
tomwalters@0 | 1 /* |
tomwalters@0 | 2 srcio.c |
tomwalters@0 | 3 ======= |
tomwalters@0 | 4 |
tomwalters@0 | 5 stdio compatability routines for sources |
tomwalters@0 | 6 |
tomwalters@0 | 7 */ |
tomwalters@0 | 8 |
tomwalters@0 | 9 #include "stitch.h" |
tomwalters@0 | 10 #include "source.h" |
tomwalters@0 | 11 #include "srcio.h" |
tomwalters@0 | 12 |
tomwalters@0 | 13 |
tomwalters@0 | 14 |
tomwalters@0 | 15 /* Can be used for compatability with stdio FILE operations */ |
tomwalters@0 | 16 |
tomwalters@0 | 17 int sread( pointer, size, number, source ) |
tomwalters@0 | 18 char *pointer ; |
tomwalters@0 | 19 unsigned size, number ; |
tomwalters@0 | 20 Source source ; |
tomwalters@0 | 21 { |
tomwalters@0 | 22 ByteCount bytes = size * number ; |
tomwalters@0 | 23 |
tomwalters@0 | 24 (void) FillSome( source, &bytes, pointer ) ; |
tomwalters@0 | 25 |
tomwalters@0 | 26 return ( bytes / size ) ; |
tomwalters@0 | 27 } |
tomwalters@0 | 28 |
tomwalters@0 | 29 /* sseek() only works for positive, relative seeks i.e. data skiping seeks */ |
tomwalters@0 | 30 |
tomwalters@0 | 31 int sseek( source, offset, pointername ) |
tomwalters@0 | 32 Source source ; |
tomwalters@0 | 33 long offset ; |
tomwalters@0 | 34 int pointername ; |
tomwalters@0 | 35 { |
tomwalters@0 | 36 ByteCount bytes = -offset ; |
tomwalters@0 | 37 |
tomwalters@0 | 38 if( offset > 0 && pointername == 1 ) |
tomwalters@0 | 39 (void) PullSome( source, &bytes ) ; |
tomwalters@0 | 40 |
tomwalters@0 | 41 return ( 0 ) ; |
tomwalters@0 | 42 } |
tomwalters@0 | 43 |
tomwalters@0 | 44 int sclose( source ) |
tomwalters@0 | 45 Source source ; |
tomwalters@0 | 46 { |
tomwalters@0 | 47 ByteCount bytes = 0 ; |
tomwalters@0 | 48 |
tomwalters@0 | 49 (void) PullSome( source, &bytes ) ; |
tomwalters@0 | 50 |
tomwalters@0 | 51 return ( 0 ) ; |
tomwalters@0 | 52 } |