Error if program already printed

FolkComputer · Sep 5, 2024 · 6440f84 · 6440f84
1 parent 35b1f8f
commit 6440f84
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/virtual-programs/receipt-printer.folk b/virtual-programs/receipt-printer.folk
@@ -1,5 +1,8 @@
 namespace eval EscPos {
     proc printProgram {printer id code} {
+        if {[file exists "$::env(HOME)/folk-printed-programs/$id.folk"]} {
+            error "Program $id already exists on disk. Aborting print."
+        }
         writeFolkFile $id $code
         writeGeomFile $printer $id