1da686dbb488e94caab44d7b61eb4bcd98e96c97
5 integer
f_back(a
) alist
*a
;
7 integer
f_back(alist
*a
)
14 f__curunit
= b
= &f__units
[a
->aunit
]; /* curunit for error messages */
16 f__fatal (131, "I/O recursion");
17 if(a
->aunit
>= MXUNIT
|| a
->aunit
< 0)
18 err(a
->aerr
,101,"backspace");
19 if(b
->useek
==0) err(a
->aerr
,106,"backspace");
20 if((f
= b
->ufd
) == NULL
) {
21 fk_open(1, 1, a
->aunit
);
31 err(a
->aerr
,errno
,"backspace");
40 (void) fseek(f
,x
,SEEK_SET
);
45 { fseek(f
,-(long)sizeof(uiolen
),SEEK_CUR
);
46 fread((char *)&n
,sizeof(uiolen
),1,f
);
47 fseek(f
,-(long)n
-2*sizeof(uiolen
),SEEK_CUR
);
56 for(y
= x
; y
< w
; y
++) {
67 err(a
->aerr
,(EOF
),"backspace");
70 fseek(f
, z
, SEEK_SET
);