![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to io.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / io|
Return to io.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / io |
1.1 noro 1: /* $OpenXM: OpenXM/src/asir99/io/io.c,v 1.1.1.1 1999/11/10 08:12:30 noro Exp $ */
2: #include <stdio.h>
3: #include "ca.h"
4: #if defined(VISUAL) || MPI
5: #include "wsio.h"
6: #endif
7:
8: extern int little_endian;
9: extern int ox_do_copy, ox_do_count, ox_count_length, ox_file_io, ox_need_conv;
10: extern char *ox_copy_bptr;
11:
12: void reset_io()
13: {
14: ox_file_io = 0;
15: }
16:
17: void endian_init()
18: {
19: unsigned int et = 0xff;
20:
21: if ( *((char *)&et) )
22: little_endian = 1;
23: else
24: little_endian = 0;
25: ox_need_conv = 1;
26: }
27:
28: int countobj(p)
29: Obj p;
30: {
31: ox_count_length = 0;
32: ox_do_count = 1; saveobj(0,p); ox_do_count = 0;
33: return ox_count_length;
34: }
35:
36: int countvl(vl)
37: VL vl;
38: {
39: ox_count_length = 0;
40: ox_do_count = 1; savevl(0,vl); ox_do_count = 0;
41: return ox_count_length;
42: }
43:
44: void ox_copy_init(s)
45: char *s;
46: {
47: ox_copy_bptr = s;
48: }
49:
50: void ox_obj_to_buf(p)
51: Obj p;
52: {
53: ox_do_copy = 1; saveobj(0,p); ox_do_copy = 0;
54: }
55:
56: void ox_buf_to_obj(p)
57: Obj *p;
58: {
59: ox_do_copy = 1; loadobj(0,p); ox_do_copy = 0;
60: }
61:
62: void ox_vl_to_buf(vl)
63: VL vl;
64: {
65: ox_do_copy = 1; savevl(0,vl); ox_do_copy = 0;
66: }
67:
68: int gen_fread (ptr,size,nitems,stream)
69: char *ptr;
70: int size,nitems;
71: FILE *stream;
72: {
73: int n;
74:
75: if ( ox_do_copy ) {
76: n = size*nitems;
77: memcpy(ptr,ox_copy_bptr,n);
78: ox_copy_bptr += n;
79: } else {
80: #if defined(VISUAL)
81: if ( _fileno(stream) < 0 )
82: n = cread(ptr,size,nitems,(STREAM *)stream);
83: else
84: #elif MPI
85: if ( (char)fileno(stream) < 0 )
86: n = cread(ptr,size,nitems,(STREAM *)stream);
87: else
88: #endif
89: n = fread(ptr,size,nitems,stream);
90: if ( !n )
91: ExitAsir();
92: else
93: return n;
94: }
95: }
96:
97: int gen_fwrite (ptr,size,nitems,stream)
98: char *ptr;
99: int size,nitems;
100: FILE *stream;
101: {
102: int n;
103:
104: if ( ox_do_count )
105: ox_count_length += size*nitems;
106: else if ( ox_do_copy ) {
107: n = size*nitems;
108: memcpy(ox_copy_bptr,ptr,n);
109: ox_copy_bptr += n;
110: } else
111: #if defined(VISUAL)
112: if ( _fileno(stream) < 0 )
113: return cwrite(ptr,size,nitems,(STREAM *)stream);
114: else
115: #elif MPI
116: if ( (char)fileno(stream) < 0 )
117: return cwrite(ptr,size,nitems,(STREAM *)stream);
118: else
119: #endif
120: return fwrite(ptr,size,nitems,stream);
121: }
122:
123: void write_char(f,p)
124: FILE *f;
125: unsigned char *p;
126: {
127: gen_fwrite(p,sizeof(unsigned char),1,f);
128: }
129:
130: void write_short(f,p)
131: FILE *f;
132: unsigned short *p;
133: {
134: unsigned short t;
135:
136: if ( little_endian && (ox_file_io || ox_need_conv) ) {
137: t = htons(*p);
138: gen_fwrite(&t,sizeof(unsigned short),1,f);
139: } else
140: gen_fwrite(p,sizeof(unsigned short),1,f);
141: }
142:
143: void write_int(f,p)
144: FILE *f;
145: unsigned int *p;
146: {
147: unsigned int t;
148:
149: if ( little_endian && (ox_file_io || ox_need_conv) ) {
150: t = htonl(*p);
151: gen_fwrite(&t,sizeof(unsigned int),1,f);
152: } else
153: gen_fwrite(p,sizeof(unsigned int),1,f);
154: }
155:
156: int des_encryption;
157: static unsigned char asir_deskey[8] = {0xc7,0xe0,0xfc,0xb5,0xc3,0xad,0x8e,0x3a};
158: static unsigned char deskey_string[96];
159:
160: void init_deskey()
161: {
162: static int deskey_initialized = 0;
163:
164: if ( !deskey_initialized ) {
165: key_schedule(asir_deskey,deskey_string);
166: deskey_initialized = 1;
167: }
168: }
169:
170: void write_intarray(f,p,l)
171: FILE *f;
172: unsigned int *p;
173: int l;
174: {
175: int i;
176: unsigned int t;
177: #if defined(VISUAL)
178: int l2;
179: unsigned int plain[2],encrypted[2];
180:
181: if ( des_encryption ) {
182: l2 = l>>1;
183: for ( i = 0; i < l2; i++ ) {
184: plain[0] = *p++;
185: plain[1] = *p++;
186: des_enc(plain,deskey_string,encrypted);
187: encrypted[0] = htonl(encrypted[0]);
188: encrypted[1] = htonl(encrypted[1]);
189: gen_fwrite(encrypted,sizeof(unsigned int),2,f);
190: }
191: if ( (l2<<1) < l ) {
192: plain[0] = *p;
193: plain[1] = 0;
194: des_enc(plain,deskey_string,encrypted);
195: encrypted[0] = htonl(encrypted[0]);
196: encrypted[1] = htonl(encrypted[1]);
197: gen_fwrite(encrypted,sizeof(unsigned int),2,f);
198: }
199: } else
200: #endif
201: if ( little_endian && (ox_file_io || ox_need_conv) )
202: for ( i = 0; i < l; i++, p++) {
203: t = htonl(*p);
204: gen_fwrite(&t,sizeof(unsigned int),1,f);
205: }
206: else
207: gen_fwrite(p,sizeof(unsigned int),l,f);
208: }
209:
210: #if defined(LONG_IS_64BIT)
211: void write_longarray(f,p,l)
212: FILE *f;
213: unsigned long *p;
214: int l;
215: {
216: int i;
217: unsigned long w;
218: unsigned int hi,lo;
219:
220: if ( little_endian && (ox_file_io || ox_need_conv) )
221: for ( i = 0; i < l; i++, p++) {
222: w = *p; hi = w>>32; lo = w&0xffffffff;
223: hi = htonl(hi); lo = htonl(lo);
224: gen_fwrite(&hi,sizeof(unsigned int),1,f);
225: gen_fwrite(&lo,sizeof(unsigned int),1,f);
226: }
227: else
228: gen_fwrite(p,sizeof(unsigned long),l,f);
229: }
230: #endif
231:
232: void write_double(f,p)
233: FILE *f;
234: double *p;
235: {
236: unsigned int t;
237:
238: if ( little_endian && (ox_file_io || ox_need_conv) ) {
239: t = htonl(((unsigned int *)p)[1]);
240: gen_fwrite(&t,sizeof(unsigned int),1,f);
241: t = htonl(((unsigned int *)p)[0]);
242: gen_fwrite(&t,sizeof(unsigned int),1,f);
243: } else
244: gen_fwrite(p,sizeof(double),1,f);
245: }
246:
247: void write_string(f,p,l)
248: FILE *f;
249: unsigned char *p;
250: {
251: gen_fwrite(p,sizeof(unsigned char),l,f);
252: }
253:
254: void read_char(f,p)
255: FILE *f;
256: unsigned char *p;
257: {
258: gen_fread((char *)p,sizeof(unsigned char),1,f);
259: }
260:
261: void read_short(f,p)
262: FILE *f;
263: unsigned short *p;
264: {
265: gen_fread(p,sizeof(unsigned short),1,f);
266: if ( little_endian && (ox_file_io || ox_need_conv) )
267: *p = ntohs(*p);
268: }
269:
270: void read_int(f,p)
271: FILE *f;
272: unsigned int *p;
273: {
274: gen_fread(p,sizeof(unsigned int),1,f);
275: if ( little_endian && (ox_file_io || ox_need_conv) )
276: *p = ntohl(*p);
277: }
278:
279: void read_intarray(f,p,l)
280: FILE *f;
281: unsigned int *p;
282: int l;
283: {
284: int i;
285: unsigned int t;
286: #if defined(VISUAL)
287: int l2;
288: unsigned int plain[2],encrypted[2];
289:
290: if ( des_encryption ) {
291: l2 = l>>1;
292: for ( i = 0; i < l2; i++ ) {
293: gen_fread((char *)encrypted,sizeof(unsigned int),2,f);
294: encrypted[0] = ntohl(encrypted[0]);
295: encrypted[1] = ntohl(encrypted[1]);
296: des_dec(encrypted,deskey_string,plain);
297: *p++ = plain[0];
298: *p++ = plain[1];
299: }
300: if ( (l2<<1) < l ) {
301: gen_fread((char *)encrypted,sizeof(unsigned int),2,f);
302: encrypted[0] = ntohl(encrypted[0]);
303: encrypted[1] = ntohl(encrypted[1]);
304: des_dec(encrypted,deskey_string,plain);
305: *p = plain[0];
306: }
307: } else
308: #endif
309: {
310: gen_fread(p,sizeof(unsigned int),l,f);
311: if ( little_endian && (ox_file_io || ox_need_conv) )
312: for ( i = 0; i < l; i++, p++ )
313: *p = ntohl(*p);
314: }
315: }
316:
317: #if defined(LONG_IS_64BIT)
318: void read_longarray(f,p,l)
319: FILE *f;
320: unsigned long *p;
321: int l;
322: {
323: int i;
324: unsigned int hi,lo;
325:
326: if ( little_endian && (ox_file_io || ox_need_conv) ) {
327: for ( i = l; i > 1; i -= 2, p++ ) {
328: gen_fread(&hi,sizeof(unsigned int),1,f);
329: gen_fread(&lo,sizeof(unsigned int),1,f);
330: hi = ntohl(hi); lo = ntohl(lo);
331: *p = (((unsigned long)hi)<<32)|((unsigned long)lo);
332: }
333: if ( i == 1 ) {
334: gen_fread(&hi,sizeof(unsigned int),1,f);
335: hi = ntohl(hi); *p = (((unsigned long)hi)<<32);
336: }
337: } else
338: gen_fread(p,sizeof(unsigned int),l,f);
339: }
340: #endif
341:
342: void read_string(f,p,l)
343: FILE *f;
344: unsigned char *p;
345: {
346: gen_fread((char *)p,sizeof(unsigned char),l,f);
347: }
348:
349: void read_double(f,p)
350: FILE *f;
351: double *p;
352: {
353: unsigned int t;
354:
355: if ( little_endian && (ox_file_io || ox_need_conv) ) {
356: gen_fread((char *)&t,sizeof(unsigned int),1,f);
357: ((unsigned int *)p)[1] = ntohl(t);
358: gen_fread((char *)&t,sizeof(unsigned int),1,f);
359: ((unsigned int *)p)[0] = ntohl(t);
360: } else
361: gen_fread((char *)p,sizeof(double),1,f);
362: }