diff options
| author | Andrés Cuervo <andrescuervor@gmail.com> | 2023-10-10 16:39:31 +0000 |
|---|---|---|
| committer | Andrés Cuervo <andrescuervor@gmail.com> | 2023-10-10 16:39:31 +0000 |
| commit | 9d2f006de387d6bb255701b5ec4172859c1e4823 (patch) | |
| tree | e0522d0c00ffb65c93b09202f6faa560d1c99e8f /virtual-programs/programs.folk | |
| parent | Add green cursor, make backspace at x=0 work (diff) | |
| parent | Merge pull request #98 from FolkComputer/nm/display-arc (diff) | |
| download | folk-9d2f006de387d6bb255701b5ec4172859c1e4823.tar.gz folk-9d2f006de387d6bb255701b5ec4172859c1e4823.zip | |
Merge branch 'main' into ac/editor
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" + } +} |