1*47970Sbostic (* 2*47970Sbostic * Copyright (c) 1979 The Regents of the University of California. 3*47970Sbostic * All rights reserved. 4*47970Sbostic * 5*47970Sbostic * %sccs.include.redist.c% 6*47970Sbostic * 7*47970Sbostic * @(#)unixio.h 1.2 (Berkeley) 04/12/91 8*47970Sbostic *) 93905Smckusick 103905Smckusick const 11*47970Sbostic sccsid = '@(#)unixio.h 1.2 04/12/91'; 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