147970Sbostic (* 2*62091Sbostic * Copyright (c) 1979, 1993 3*62091Sbostic * The Regents of the University of California. All rights reserved. 447970Sbostic * 547970Sbostic * %sccs.include.redist.c% 647970Sbostic * 7*62091Sbostic * @(#)unixio.h 8.1 (Berkeley) 06/06/93 847970Sbostic *) 93905Smckusick 103905Smckusick const 11*62091Sbostic sccsid = '@(#)unixio.h 8.1 06/06/93'; 123905Smckusick 133905Smckusick type 143905Smckusick fileptr = record 153905Smckusick cnt :integer 163905Smckusick end; 173905Smckusick 183905Smckusick function TELL( 193905Smckusick var fptr :text) 203905Smckusick {returns} :fileptr; 213905Smckusick 223905Smckusick external; 233905Smckusick 243905Smckusick procedure SEEK( 253905Smckusick var fptr :text; 263905Smckusick var cnt :fileptr); 273905Smckusick 283905Smckusick external; 293905Smckusick 303905Smckusick procedure APPEND( 313905Smckusick var fptr :text); 323905Smckusick 333905Smckusick external; 34