GIRIS: un SIG au service de l'exploitant - Université Jean Monnet

CREATE OR REPLACE PACKAGE "UTL_FILE" ASTYPE file_type IS RECORD (id BINARY_INTEGER);/* Exceptionsinvalid_path EXCEPTION;invalid_mode EXCEPTION;invalid_filehandle EXCEPTION;invalid_operation EXCEPTION;read_error EXCEPTION;write_error EXCEPTION;internal_error EXCEPTION;/* FOPEN - open file (no maximum line size) */FUNCTION fopen(location IN VARCHAR2,filename IN VARCHAR2,open_mode IN VARCHAR2) RETURN file_type;PRAGMA RESTRICT_REFERENCES(fopen, WNDS, RNDS);/* IS_OPEN - Test if file handle is open */FUNCTION is_open(file IN file_type) RETURN BOOLEAN;PRAGMA RESTRICT_REFERENCES(is_open, WNDS, RNDS, WNPS, RNPS);/* FCLOSE - close an open file */PROCEDURE fclose(file IN OUT file_type);PRAGMA RESTRICT_REFERENCES(fclose, WNDS, RNDS);/* FCLOSE_ALL - close all open files for this session */PROCEDURE fclose_all;PRAGMA RESTRICT_REFERENCES(fclose_all, WNDS, RNDS);/* GET_LINE - Get (read) a line of text from the file */PROCEDURE get_line(file IN file_type,buffer OUT VARCHAR2);PRAGMA RESTRICT_REFERENCES(get_line, WNDS, RNDS, WNPS, RNPS);/* PUT - Put (write) text to file */PROCEDURE put(file IN file_type,buffer IN VARCHAR2);PRAGMA RESTRICT_REFERENCES(put, WNDS, RNDS);/* NEW_LINE - Write line terminators to file */PROCEDURE new_line(file IN file_type,lines IN NATURAL := 1);PRAGMA RESTRICT_REFERENCES(new_line, WNDS, RNDS);/* PUT_LINE - Put (write) line to file */PROCEDURE put_line(file IN file_type,buffer IN VARCHAR2);PRAGMA RESTRICT_REFERENCES(put_line, WNDS, RNDS);/* PUTF - Put (write) formatted text to file */procedure putf(file IN file_type,format IN VARCHAR2,arg1 IN VARCHAR2 DEFAULT NULL,arg2 IN VARCHAR2 DEFAULT NULL,arg3 IN VARCHAR2 DEFAULT NULL,arg4 IN VARCHAR2 DEFAULT NULL,arg5 IN VARCHAR2 DEFAULT NULL);PRAGMA RESTRICT_REFERENCES(putf, WNDS, RNDS);/* FFLUSH - Force physical write of buffered output */PROCEDURE fflush(file IN file_type);PRAGMA RESTRICT_REFERENCES(fflush, WNDS, RNDS);invalid_maxlinesize EXCEPTION;/* FOPEN - open file (user-specified maximum line size) */FUNCTION fopen(location IN VARCHAR2,filename IN VARCHAR2,Page 67