virtual-programs/programs.folk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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"
     }
}