![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wrtfmt.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 41BSD / lib / libI77|
Return to wrtfmt.c CVS log | Up to [CSRG BSD Unix] / 41BSD / lib / libI77 |
1.1 root 1: #include "fio.h"
2: #include "fmt.h"
3: extern int cursor;
4: extern char *icvt(), *ecvt();
5: mv_cur()
6: { /*buggy, could move off front of record*/
7: for(;cursor>0;cursor--) (*putn)(' ');
8: if(cursor<0)
9: {
10: if(cursor+recpos<0) err(elist->cierr,110,"left off");
11: if(curunit->useek) (void) fseek(cf,(long)cursor,1);
12: else err(elist->cierr,106,"fmt");
13: cursor=0;
14: }
15: return(0);
16: }
17: w_ed(p,ptr,len) char *ptr; struct syl *p; ftnlen len;
18: {
19: if(mv_cur()) return(mv_cur());
20: switch(p->op)
21: {
22: default:
23: fprintf(stderr,"w_ed, unexpected code: %d\n%s\n",
24: p->op,fmtbuf);
25: abort();
26: case I: return(wrt_I((uint *)ptr,p->p1,len, 10));
27: case IM:
28: return(wrt_IM((uint *)ptr,p->p1,p->p2,len));
29: case O: return(wrt_I((uint *)ptr, p->p1, len, 8));
30: case L: return(wrt_L((uint *)ptr,p->p1, len));
31: case A: return(wrt_A(ptr,len));
32: case AW:
33: return(wrt_AW(ptr,p->p1,len));
34: case D:
35: case E:
36: case EE:
37: return(wrt_E((ufloat *)ptr,p->p1,p->p2,p->p3,len));
38: case G:
39: case GE:
40: return(wrt_G((ufloat *)ptr,p->p1,p->p2,p->p3,len));
41: case F: return(wrt_F((ufloat *)ptr,p->p1,p->p2,len));
42: }
43: }
44: w_ned(p) struct syl *p;
45: {
46: switch(p->op)
47: {
48: default: fprintf(stderr,"w_ned, unexpected code: %d\n%s\n",
49: p->op,fmtbuf);
50: abort();
51: case SLASH:
52: return((*donewrec)());
53: case T: cursor = p->p1-recpos - 1;
54: return(1);
55: case TL: cursor -= p->p1;
56: return(1);
57: case TR:
58: case X:
59: cursor += p->p1;
60: return(1);
61: case APOS:
62: return(wrt_AP(p->p1));
63: case H:
64: return(wrt_H(p->p1,p->p2));
65: }
66: }
67: wrt_I(n,w,len, base) uint *n; ftnlen len; register int base;
68: { int ndigit,sign,spare,i;
69: long x;
70: char *ans;
71: if(len==sizeof(short)) x=n->is;
72: else if(len == sizeof(char)) x = n->ic;
73: else x=n->il;
74: ans=icvt(x,&ndigit,&sign, base);
75: spare=w-ndigit;
76: if(sign || cplus) spare--;
77: if(spare<0)
78: for(i=0;i<w;i++) (*putn)('*');
79: else
80: { for(i=0;i<spare;i++) (*putn)(' ');
81: if(sign) (*putn)('-');
82: else if(cplus) (*putn)('+');
83: for(i=0;i<ndigit;i++) (*putn)(*ans++);
84: }
85: return(0);
86: }
87: wrt_IM(n,w,m,len) uint *n; ftnlen len;
88: { int ndigit,sign,spare,i,xsign;
89: long x;
90: char *ans;
91: if(sizeof(short)==len) x=n->is;
92: else if(len == sizeof(char)) x = n->ic;
93: else x=n->il;
94: ans=icvt(x,&ndigit,&sign, 10);
95: if(sign || cplus) xsign=1;
96: else xsign=0;
97: if(ndigit+xsign>w || m+xsign>w)
98: { for(i=0;i<w;i++) (*putn)('*');
99: return(0);
100: }
101: if(x==0 && m==0)
102: { for(i=0;i<w;i++) (*putn)(' ');
103: return(0);
104: }
105: if(ndigit>=m)
106: spare=w-ndigit-xsign;
107: else
108: spare=w-m-xsign;
109: for(i=0;i<spare;i++) (*putn)(' ');
110: if(sign) (*putn)('-');
111: else if(cplus) (*putn)('+');
112: for(i=0;i<m-ndigit;i++) (*putn)('0');
113: for(i=0;i<ndigit;i++) (*putn)(*ans++);
114: return(0);
115: }
116: wrt_AP(n)
117: { char *s,quote;
118: if(mv_cur()) return(mv_cur());
119: s=(char *)n;
120: quote = *s++;
121: for(;*s;s++)
122: { if(*s!=quote) (*putn)(*s);
123: else if(*++s==quote) (*putn)(*s);
124: else return(1);
125: }
126: return(1);
127: }
128: wrt_H(a,b)
129: { char *s=(char *)b;
130: if(mv_cur()) return(mv_cur());
131: while(a--) (*putn)(*s++);
132: return(1);
133: }
134: wrt_L(n,len, sz) uint *n; ftnlen sz;
135: { int i;
136: long x;
137: if(sizeof(short)==sz) x=n->is;
138: else if(sz == sizeof(char)) x = n->ic;
139: else x=n->il;
140: for(i=0;i<len-1;i++)
141: (*putn)(' ');
142: if(x) (*putn)('t');
143: else (*putn)('f');
144: return(0);
145: }
146: wrt_A(p,len) char *p; ftnlen len;
147: {
148: while(len-- > 0) (*putn)(*p++);
149: return(0);
150: }
151: wrt_AW(p,w,len) char * p; ftnlen len;
152: {
153: while(w>len)
154: { w--;
155: (*putn)(' ');
156: }
157: while(w-- > 0)
158: (*putn)(*p++);
159: return(0);
160: }
161: wrt_E(p,w,d,e,len) ufloat *p; ftnlen len;
162: { char *s;
163: int dp,sign,i,delta;
164: char *ecvt();
165: if(scale>0) d++;
166: s=ecvt( (len==sizeof(float)?p->pf:p->pd) ,d,&dp,&sign);
167: if(sign || cplus) delta=6;
168: else delta=5;
169: if(w<delta+d)
170: { for(i=0;i<w;i++) (*putn)('*');
171: return(0);
172: }
173: for(i=0;i<w-(delta+d);i++) (*putn)(' ');
174: if(sign) (*putn)('-');
175: else if(cplus) (*putn)('+');
176: if(scale<0 && scale > -d)
177: {
178: (*putn)('.');
179: for(i=0;i<-scale;i++)
180: (*putn)('0');
181: for(i=0;i<d+scale;i++)
182: (*putn)(*s++);
183: }
184: else if(scale>0 && scale<d+2)
185: { for(i=0;i<scale;i++)
186: (*putn)(*s++);
187: (*putn)('.');
188: for(i=0;i<d-scale;i++)
189: (*putn)(*s++);
190: }
191: else
192: { (*putn)('.');
193: for(i=0;i<d;i++) (*putn)(*s++);
194: }
195: if(p->pf != 0) dp -= scale;
196: else dp = 0;
197: if(dp < 100 && dp > -100) (*putn)('e');
198: if(dp<0)
199: { (*putn)('-');
200: dp = -dp;
201: }
202: else (*putn)('+');
203: if(e>=3 || dp >= 100)
204: { (*putn)(dp/100 + '0');
205: dp = dp % 100;
206: }
207: if(e!=1) (*putn)(dp/10+'0');
208: (*putn)(dp%10+'0');
209: return(0);
210: }
211: wrt_G(p,w,d,e,len) ufloat *p; ftnlen len;
212: { double up = 1,x;
213: int i,oldscale=scale,n,j;
214: x= len==sizeof(float)?p->pf:p->pd;
215: if(x < 0 ) x = -x;
216: if(x<.1) return(wrt_E((ufloat *)p,w,d,e,len));
217: for(i=0;i<=d;i++,up*=10)
218: { if(x>up) continue;
219: scale=0;
220: if(e==0) n=4;
221: else n=e+2;
222: i=wrt_F(p,w-n,d-i,len);
223: for(j=0;j<n;j++) (*putn)(' ');
224: scale=oldscale;
225: return(i);
226: }
227: return(wrt_E((ufloat *)p,w,d,e,len));
228: }
229: wrt_F(p,w,d,len) ufloat *p; ftnlen len;
230: { int i,delta,dp,sign,n;
231: double x;
232: char *s,*fcvt();
233: x= (len==sizeof(float)?p->pf:p->pd);
234: if(scale)
235: { if(scale>0)
236: for(i=0;i<scale;i++) x*=10;
237: else for(i=0;i<-scale;i++) x/=10;
238: }
239: s=fcvt(x,d,&dp,&sign);
240: if(-dp>=d) sign=0;
241: if(sign || cplus) delta=2;
242: else delta=1;
243: n= w - (d+delta+(dp>0?dp:0));
244: if(n<0)
245: {
246: for(i=0;i<w;i++) PUT('*');
247: return(0);
248: }
249: for(i=0;i<n;i++) PUT(' ');
250: if(sign) PUT('-');
251: else if(cplus) PUT('+');
252: for(i=0;i<dp;i++) PUT(*s++);
253: PUT('.');
254: for(i=0;i< -dp && i<d;i++) PUT('0');
255: for(;i<d;i++)
256: { if(*s) PUT(*s++);
257: else PUT('0');
258: }
259: return(0);
260: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.