Secure temporary file: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add perl 6 example) |
(→{{header|PicoLisp}}: Fix 'ctl' policy) |
||
Line 439: | Line 439: | ||
: (let F (tmp "foo") |
: (let F (tmp "foo") |
||
(ctl F # Get exclusive lock |
(ctl F # Get exclusive lock |
||
(in F |
|||
(let N (in F (read)) # Atomic increment |
|||
( |
(let N (read) # Atomic increment |
||
(out F (println (inc N))) ) ) ) ) |
|||
-> 124</lang> |
-> 124</lang> |
||