Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Secure-temporary-file/PicoLisp/secure-temporary-file.l
+++ b/Task/Secure-temporary-file/PicoLisp/secure-temporary-file.l
@ -0,0 +1,12 @@
+: (out (tmp "foo") (println 123))         # Write tempfile
+-> 123
+
+: (in (tmp "foo") (read))                 # Read tempfile
+-> 123
+
+: (let F (tmp "foo")
+   (ctl F                                 # Get exclusive lock
+      (in F
+         (let N (read)                    # Atomic increment
+            (out F (println (inc N))) ) ) ) )
+-> 124