1 (* 2 * Copyright (c) 1979, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)unixio.h 8.1 (Berkeley) 06/06/93 8 *) 9 10 const 11 sccsid = '@(#)unixio.h 8.1 06/06/93'; 12 13 type 14 fileptr = record 15 cnt :integer 16 end; 17 18 function TELL( 19 var fptr :text) 20 {returns} :fileptr; 21 22 external; 23 24 procedure SEEK( 25 var fptr :text; 26 var cnt :fileptr); 27 28 external; 29 30 procedure APPEND( 31 var fptr :text); 32 33 external; 34