FICHIERS
FICHIERS
  PL_FILE FICHIERS
    DOC
      tests and Set of utilities for writing and reading in files
    tests de fonctions
      :- working_directory(X, X).
      show_cwd :-
        working_directory(X, X)
          write (X)
      show_files :-
        working_directory(X,X),directory_files(X, Y), write (Y).
      test_write :-
        show_cwd
        open('output.txt',write,Out)
          write(Out,'Age("Peter",30)')
            nl(Out)
          write(Out,'Skin("Smith","Black").' )
        close(Out)
      test_read :-
        open('output.txt', read, In)
          ALL
            repeat
              read_line_to_codes(In,X)
                IF
                  X=end_of_file
                  !
                  writef(" ")
                    writef(X)
                      nl
          close (In)
  ici