From ea55962e550e65cf30b372cab7e69f4df54e7035 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Fri, 11 Nov 2011 23:43:03 +0000
Subject: create [delete] object, but no handling of -force or lists of files
 yet

svn path=/trunk/externals/tclfile/; revision=15728
---
 delete.tcl | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 delete.tcl

(limited to 'delete.tcl')

diff --git a/delete.tcl b/delete.tcl
new file mode 100644
index 0000000..840535f
--- /dev/null
+++ b/delete.tcl
@@ -0,0 +1,38 @@
+package require Tclpd 0.2.3
+package require TclpdLib 0.19
+
+proc delete::constructor {self args} {
+    if {![namespace exists $self]} {
+        namespace eval $self {}
+    }
+    # set to blank so the var always delete
+    variable ${self}::filename {}
+    variable ${self}::current_canvas [canvas_getcurrent]
+
+    # add second inlet (first created by default)
+    pd::add_inlet $self list
+}
+
+proc delete::0_symbol {self args} {
+    # HOT inlet
+    variable ${self}::filename [pd::arg 0 symbol]
+    delete::0_bang $self
+}
+
+proc delete::0_bang {self} {
+    variable ${self}::current_canvas
+    variable ${self}::filename
+    if {[file pathtype $filename] eq "absolute"} {
+        file delete -- $filename
+    } else {
+        set dir [[canvas_getdir $current_canvas] cget -s_name]
+        file delete -- [file join $dir $filename]
+    }
+}
+
+proc+ delete::1_symbol {self args} {
+    # COLD inlet
+    variable ${self}::filename [pd::arg 0 symbol]
+}
+
+pd::class delete
-- 
cgit v1.2.1