function that me controls the existence a file

[andrea]

It exists in me10 a function that me controls the existence of a direttory or a file and in case I does not exist creates?

Sorry for my English bad.

[clausb]

Check out your LISP manual. For files, the LISP open function does what you want - see http://www.lisp.org/HyperSpec/Body/fun_open.html. For example:

(setf s (open "foobar" :direction :output :if-does-not-exist :create))


For directories, either use LISP's directory command, or one of the file/directory handling functions documented in the Developer's Kit.

Claus

[andrea]

For macro in to ME10 ???????

[clausb]

Oops - sorry. I should be reading those posts more carefully 8-( :(

I don't know too much about OSDD's macro language, but the CREATE_DIRECTORY command might do what you need for directories. If the directory doesn't exist already, it will create it, otherwise issue an error (which you can probably catch using TRAP_ERROR).

For files, OPEN_OUTFILE with option DEL_OLD might do the trick.

Sorry again for the misunderstanding.

Claus

[John Scheffel]

There may be a better way, but some of our macros use logic like this to test for the existence of a file.

LET Test_file_name 'C:\my_file.txt'
TRAP_ERROR
OPEN_INFILE 1 Test_file_name END
IF (CHECK_ERROR) {file does not exist}
OPEN_OUTFILE 1 Test_file_name
Commands...
ELSE {file exists}
CLOSE_FILE 1
Commands...
END_IF

[andrea]

thank you very much!

[Shaba]

Good also for me!