coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tcl: Phase 3 OCaml primitives — file-read/write/append/exists?/glob + clock-seconds/milliseconds/format in sx_primitives.ml + unix dep; tcl-cmd-clock/file wired up; 337/337 green
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 50s
Details

Browse Source 
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
giles
2026-05-06 18:10:22 +00:00
parent f0f339709e
commit d21cde336a
4 changed files with 153 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/tcl/runtime.sx
View File

@@ -2865,10 +2865,12 @@
(let
((sub (first args)) (rest-args (rest args)))
(cond
((equal? sub "seconds") (assoc interp :result "0"))
((equal? sub "milliseconds") (assoc interp :result "0"))
((equal? sub "seconds") (assoc interp :result (str (clock-seconds))))
((equal? sub "milliseconds") (assoc interp :result (str (clock-milliseconds))))
((equal? sub "format")
(assoc interp :result "Thu Jan 1 00:00:00 UTC 1970"))
(assoc interp :result (clock-format
(floor (parse-int (first rest-args)))
(if (> (len rest-args) 1) (nth rest-args (- (len rest-args) 1)) "%a %b %e %H:%M:%S %Z %Y"))))
((equal? sub "scan") (assoc interp :result "0"))
(else (error (str "clock: unknown subcommand \"" sub "\""))))))))
@@ -3151,7 +3153,7 @@
(let
((sub (first args)) (rest-args (rest args)))
(cond
((equal? sub "exists") (assoc interp :result "0"))
((equal? sub "exists") (assoc interp :result (if (file-exists? (first rest-args)) "1" "0")))
((equal? sub "join") (assoc interp :result (join "/" rest-args)))
((equal? sub "split")
(assoc