]>
gcc.gnu.org Git - gcc.git/blob - libf2c/libI77/lwrite.c
26 p
= f__icvt(n
, &ndigit
, &sign
, 10);
27 if(f__recpos
+ ndigit
>= L_len
)
37 lwrt_L(n
, len
) ftnint n
; ftnlen len
;
39 lwrt_L(ftnint n
, ftnlen len
)
42 if(f__recpos
+LLOGW
>=L_len
)
44 wrt_L((Uint
*)&n
,LLOGW
, len
);
48 lwrt_A(p
,len
) char *p
; ftnlen len
;
50 lwrt_A(char *p
, ftnlen len
)
60 if (len
> 1 && p
[len
-1] == ' ') {
61 while(--len
> 1 && p
[len
-1] == ' ');
69 if(f__recpos
+len
+a
>= L_len
)
93 l_g(buf
, n
) char *buf
; double n
;
95 l_g(char *buf
, double n
)
98 #ifdef Old_list_output
105 fmt
= LLOW
<= absn
&& absn
< LHIGH
? LFFMT
: LEFMT
;
107 sprintf(buf
, fmt
, n
);
110 return sprintf(buf
, fmt
, n
);
114 register char *b
, c
, c1
;
130 sprintf(b
, LGFMT
, n
);
148 /* Fortran 77 insists on having a decimal point... */
159 for(c1
= '.', c
= 'E'; *b
= c1
;
171 l_put(s
) register char *s
;
173 l_put(register char *s
)
177 register void (*pn
)() = f__putn
;
179 register void (*pn
)(int) = f__putn
;
196 if(f__recpos
+ l_g(buf
,n
) >= L_len
)
202 lwrt_C(a
,b
) double a
,b
;
204 lwrt_C(double a
, double b
)
207 char *ba
, *bb
, bufa
[LEFBL
], bufb
[LEFBL
];
211 for(ba
= bufa
; *ba
== ' '; ba
++)
213 bl
= l_g(bufb
, b
) + 1; /* intentionally high by 1 */
214 for(bb
= bufb
; *bb
== ' '; bb
++)
216 if(f__recpos
+ al
+ bl
+ 3 >= L_len
)
225 if (f__recpos
+ bl
>= L_len
) {
227 #ifndef OMIT_BLANK_CC
235 l_write(number
,ptr
,len
,type
) ftnint
*number
,type
; char *ptr
; ftnlen len
;
237 l_write(ftnint
*number
, char *ptr
, ftnlen len
, ftnint type
)
240 #define Ptr ((flex *)ptr)
246 for(i
=0;i
< *number
; i
++)
250 default: f__fatal(204,"unknown type in lio");
293 xlog
: lwrt_L(Ptr
->flint
, len
);
This page took 0.0557 seconds and 5 git commands to generate.