![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to riclib.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / bcp|
Return to riclib.c CVS log | Up to [Research Unix] / researchv10no / cmd / bcp |
1.1 root 1: /* Copyright (c) 1989, 1990 AT&T --- All Rights Reserved. */
2: /* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T. */
3: /* The copyright notice does not imply actual or intended publication. */
4: /* AUTHORS: */
5: /* H. S. Baird - ATT-BL MH - first versions */
6: /* riclib.c - Ricoh scanner-file public functions:
7:
8: RIC_* functions use system I/O, for speed...
9: int RIC_get_hdr(fd,RIC_hdr *) - get scanner-file header
10: int RIC_line(char **) - read one line of scanner data
11: err_RIC_Line(char *,RIC_hdr) - print on stderr
12: int RIC_oline(char **) - write one line of scanner data
13: char *RIC_hdr_toa() - RIC_hdr to ascii printable string
14: */
15:
16: #include <stdio.h>
17: #include <math.h>
18: #include <string.h>
19: #include "CPU.h"
20: #include "stdocr.h"
21:
22: #define RIC_debug 0
23:
24: /* treated as local static: */
25: int RIC_fd; /* file descr. */
26: int RIC_bpl; /* bytes per line */
27: char *RIC_bf = NULL; /* (malloc space *) holds one line of scanner data */
28:
29: /* system I/O variation on fgets(3), except it replaces \n with \0,
30: and returns the number of chars read (including \0) */
31: int RIC_fgets(bf,max,fd)
32: char *bf;
33: int max;
34: int fd;
35: { char *cp;
36: int stat,mny;
37: cp=bf; mny=0;
38: while(((stat=read(fd,cp,1))==1)&&(++mny<max)&&((*cp)!='\n')) cp++;
39: if(stat!=1) return(stat);
40: else if(mny>=max) return(-1);
41: *cp='\0';
42: return(mny);
43: }
44:
45: /* read header from scanner file, return status: 1 OK, 0 EOF, -1 error */
46: int RIC_get_hdr( fd, hp )
47: int fd; /* should have been open'ed earlier */
48: RIC_hdr *hp;
49: #define HL_MAX 80
50: #define HTERM "=, \n" /* terminations for header words: "=,<sp><tab>" */
51: { char *cp,*parm,hline[HL_MAX];
52: int status,nrd;
53: RIC_fd = fd;
54: if((status=RIC_fgets(hline,HL_MAX,RIC_fd))<=0) return(status);
55: while(strlen(hline)>1) {
56: if(RIC_debug) err("hline \"%s\"",hline);
57: parm=strtok(hline,HTERM);
58: if(parm!=NULL&&strcmp(parm,"TYPE")==0) {
59: if((parm=strtok(0,HTERM))!=NULL
60: &&strcmp(parm,"binary")==0) ;
61: else return(-1);
62: }
63: else if(parm!=NULL&&strcmp(parm,"WINDOW")==0) {
64: if((parm=strtok(0,HTERM))!=NULL) hp->bx.a.x=atoi(parm);
65: else return(-1);
66: if((parm=strtok(0,HTERM))!=NULL) hp->bx.a.y=atoi(parm);
67: else return(-1);
68: if((parm=strtok(0,HTERM))!=NULL) hp->bx.b.x=atoi(parm)-1;
69: else return(-1);
70: hp->bpl=(hp->bx.b.x-hp->bx.a.x+1+7)/8;
71: if((parm=strtok(0,HTERM))!=NULL) hp->bx.b.y=atoi(parm)-1;
72: else return(-1);
73: }
74: else if(parm!=NULL&&strcmp(parm,"RES")==0) {
75: if((parm=strtok(0,HTERM))!=NULL) hp->res_x=atoi(parm);
76: else return(-1);
77: if((parm=strtok(0,HTERM))!=NULL) hp->res_y=atoi(parm);
78: else return(-1);
79: }
80: else return(-1);
81: if((status=RIC_fgets(hline,HL_MAX,RIC_fd))<=0) return(status);
82: };
83: RIC_bpl=hp->bpl;
84: /* allocate one extra byte in scanner buffer as a favor to RLE */
85: if((RIC_bf = (char *) malloc(RIC_bpl+1))==NULL) {
86: fprintf(stderr,
87: "riclib: can't alloc RIC_bf (%d bytes) - abort\n",
88: RIC_bpl+1);
89: return(-1);
90: };
91: return(1);
92: }
93:
94: /* write header to scanner file */
95: RIC_put_hdr( fd, hp )
96: int fd; /* should have been open'ed earlier */
97: RIC_hdr *hp;
98: { char *cp,*parm,hline[HL_MAX];
99: int status,nrd;
100: sprintf(hline,"TYPE=binary\n");
101: write(fd,hline,strlen(hline));
102: sprintf(hline,"WINDOW=%d %d %d %d\n",
103: hp->bx.a.x,hp->bx.a.y,hp->bpl,hp->bx.b.y+1);
104: write(fd,hline,strlen(hline));
105: sprintf(hline,"RES=%d %d\n\n",hp->res_x,hp->res_y);
106: write(fd,hline,strlen(hline));
107: }
108:
109: err_RIC_line(sl,shdr)
110: char *sl;
111: RIC_hdr shdr;
112: #define BPL 20 /* bytes to display per line */
113: { char *cp,*ep;
114: int bpl; /* bytes per display line */
115: bpl=0;
116: for(cp=sl,ep=sl+shdr.bpl; cp!=ep; cp++) {
117: fprintf(stderr,"%o ",0377&(*cp));
118: if((++bpl)%BPL==0) fprintf(stderr,"\n ");
119: };
120: if((bpl)%BPL!=0)fprintf(stderr,"\n");
121: }
122:
123: /* skip `y' lines, starting from current read pointer */
124: RIC_skip(y)
125: int y;
126: { lseek(RIC_fd,(long)(y*RIC_bpl),1);
127: }
128:
129: /* read next full line of scanner data, return status: 1 OK, 0 EOF, -1 ERR */
130: int RIC_line(lbpp)
131: char **lbpp;
132: { int stat;
133: if( (stat=read(RIC_fd,RIC_bf,RIC_bpl)) == RIC_bpl) {
134: *lbpp=RIC_bf;
135: if(RIC_debug) err("read %d bytes from RIC_fd - OK",stat);
136: return(1);
137: }
138: else { /* EOF or ERR */
139: *lbpp=NULL;
140: free(RIC_bf);
141: if(RIC_debug) err("read from RIC_fd stat%d",stat);
142: if((stat>=0)&&(stat<RIC_bpl)) return(0 /*EOF*/);
143: else return(-1);
144: };
145: }
146:
147: /* write a full line of scanner data, returning status: 1 OK, 0 EOF, -1 ERR */
148: int RIC_oline(fd,bf)
149: int fd;
150: char *bf;
151: { int stat;
152: if( (stat=write(fd,bf,RIC_bpl)) == RIC_bpl) {
153: if(RIC_debug) err("wrote %d bytes to fd%d - OK",stat,fd);
154: return(1);
155: }
156: else { /* ERR */
157: err("write to fd%d stat%d",fd,stat);
158: if((stat>=0)&&(stat<RIC_bpl)) return(0 /*EOF*/);
159: else return(-1);
160: };
161: }
162:
163: char *RIC_hdr_toa(hp)
164: RIC_hdr *hp;
165: { static char s[40];
166: sprintf(s,"{res%d,%d bpl%d bx%s}\n",
167: hp->res_x,hp->res_y,
168: hp->bpl,
169: bbx_toa(&(hp->bx)));
170: return(s);
171: }
172:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.