From 900f4e1d06543bd46121b3eab037bf714ecaa69e Mon Sep 17 00:00:00 2001 From: Christoph Wagner Date: Wed, 26 Mar 2025 16:15:17 +0100 Subject: [PATCH] workaround popen trouble on windows --- scm/yaml_parser.scm | 29 +++++++++++++++++++++-------- 1 file changed, 21 insertions(+), 8 deletions(-) diff --git a/scm/yaml_parser.scm b/scm/yaml_parser.scm index 577549e..82db85b 100644 --- a/scm/yaml_parser.scm +++ b/scm/yaml_parser.scm @@ -1,12 +1,25 @@ -(use-modules (ice-9 popen) (ice-9 textual-ports) (json parser)) +(if (not windows?) (use-modules (ice-9 popen))) +(use-modules (ice-9 textual-ports) (json parser)) +; We use Python to convert the data yamls like the authors.yml to json, that we can parse in scheme. +; Windows does not like Pipes, so we use a tmpfile instead. +; Be sure you have PyYAML installed. On Windows that could be done for example like "py -m pip install PyYAML" (define (yml-file->scm filename) - (let* ((python_cmd (string-append "import sys, yaml, json; print(json.dumps(yaml.safe_load(open('" filename "'))))")) - ; WTF? On Windows there is "py" and we need to specify the encoding, on linux there is "python3" or "python" - ; but "python3" seems to work better. Be sure you have PyYAML installed. - (pipe (open-pipe (string-append "PYTHONHOME='' " (if windows? "py" "python3") " -X utf8 -c \"" python_cmd "\"") OPEN_READ)) - (json (get-string-all pipe))) - (close-pipe pipe) - (json-string->scm json))) + (if windows? + (let* ((port (make-tmpfile #f)) + (tmpfilepath (port-filename port)) + (ignore (close-port port)) + (python_code (string-append "import sys, yaml, json; f = open(r'" tmpfilepath "', 'w'); f.write(json.dumps(yaml.safe_load(open(r'" filename "')))); f.close()")) + (status (system (string-append (search-executable '("python3" "python" "py")) " -X utf8 -c \"" python_code "\""))) + (readport (open-file tmpfilepath "r" #:encoding "UTF-8")) + (json (get-string-all readport))) + (close-port readport) + (delete-file tmpfilepath) + (json-string->scm (if (status:exit-val status) json "{}"))) + (let* ((python_code (string-append "import sys, yaml, json; print(json.dumps(yaml.safe_load(open(r'" filename "'))))")) + (pipe (open-pipe (string-append "PYTHONHOME='' " (search-executable '("python3" "python" "py")) " -X utf8 -c \"" python_code "\"") OPEN_READ)) + (json (get-string-all pipe))) + (close-pipe pipe) + (json-string->scm json)))) (define (parse-yml-file filename) (resolve-inherits (yml-file->scm filename)))