diff options
| author | Omar Rizwan <omar@omar.website> | 2023-10-06 20:12:34 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-10-06 20:12:34 +0000 |
| commit | 521cb01464da75e1e82a3f394d30962677ef8eca (patch) | |
| tree | bedbada42e903ad4755eb8244b51110ff1d320e5 /virtual-programs/programs.folk | |
| parent | process: Allow running multiple On process blocks on process (diff) | |
| parent | images: Fix saving images with stride (diff) | |
| download | folk-521cb01464da75e1e82a3f394d30962677ef8eca.tar.gz folk-521cb01464da75e1e82a3f394d30962677ef8eca.zip | |
Merge branch 'main' into osnr/multiple-on-process-blocks
Diffstat (limited to 'virtual-programs/programs.folk')
| -rw-r--r-- | virtual-programs/programs.folk | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/virtual-programs/programs.folk b/virtual-programs/programs.folk new file mode 100644 index 00000000..f42e1360 --- /dev/null +++ b/virtual-programs/programs.folk @@ -0,0 +1,22 @@ + + +When (non-capturing) /type/ /obj/ has a program { + puts "Added $type $obj" + On unmatch { puts "Removed $type $obj" } + + try { + set tempPath "$::env(HOME)/folk-printed-programs/$obj.folk.temp" + + if {[file exists $tempPath]} { + set path [open "$::env(HOME)/folk-printed-programs/$obj.folk.temp" r] + } else { + set path [open "$::env(HOME)/folk-printed-programs/$obj.folk" r] + } + set code [read $path] + close $path + + Claim $obj has program code $code + } on error error { + puts stderr "No code for $type $obj" + } +} |