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