Erstellen Sie eine Datei im übergeordneten Verzeichnis in OCaml?

Question

Dies ist meine aktuelle Verzeichnisstruktur

/project 
    /code (source code) 
    /build (contains the .exe) 

Teil des Quellcodes:

let() = 
    let oc = open_out file in (* create or truncate file, return channel *) 
    fprintf oc "%s\n" message; (* write something *) 
    close_out oc; 

Wenn ich .exe in dem run/Unterverzeichnis erstellen, wird die Ausgabedatei im Verzeichnis/Build erstellen . Aber ich möchte ein neues Verzeichnis mit dem Namen result erstellen und die Ausgabedatei darunter erstellen.

neue Verzeichnisstruktur:

/project 
    /code (source code) 
    /build (contains the .exe) 
    /result (contains the output file) 

Wie ein neues Verzeichnis unter dem übergeordneten Verzeichnis erstellen und Schreiben von Dateien in sie OCaml mit? Vielen Dank!

Answer 1

Wenn Sie von Hand das Ergebnis Verzeichnis erstellen, können Sie als Ihr Dateinamen ersetzen mit:

let oc = open_out ("../result/"^file) in 
... 

Wenn Sie das Verzeichnis aus Ihrem Programm erstellen müssen, können Sie Unix.mkdir "../result" verwenden. Stellen Sie sicher, dass Sie es in eine try ... with Unix.Error -> ... umbrechen, um den Fall zu behandeln, wo das Verzeichnis bereits existiert