Buffer write support; rudimentary buffer API.

jneen · Sep 24, 2011 · bdc7a06 · bdc7a06
1 parent 486a666
commit bdc7a06
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 12 deletions.
diff --git a/foobar.txt b/foobar.txt
@@ -1,7 +1 @@
 Supercalifragilisticexpialidocious!
-
-
-
-
-
-
diff --git a/lib/buffer.tcl b/lib/buffer.tcl
@@ -23,12 +23,16 @@ Buffer method initialize {path} {
 }
 
 Buffer method getBuffer {} {
-    return [ref buffer "Buffer value"]
+    return $buffer
+}
+
+Buffer method setBuffer {newBuffer} {
+    set buffer $newBuffer
 }
 
 Buffer method write {} {
     # NB:  This will clobber anything that tries to get in its way.
     set handle [open $filename w\+]
-    puts $handle $buffer
+    puts -nonewline $handle $buffer
     close $handle
 }
diff --git a/lib/ix.tcl b/lib/ix.tcl
@@ -12,10 +12,6 @@ proc ix.run {} {
     set fooBuffer [Buffer new]
     $fooBuffer initialize "foobar.txt"
 
-    set [$fooBuffer getBuffer] "Supercalifragilisticexpialidocious!"
-
-    $fooBuffer write
-
     ncurses.do {
         stdscr puts [$fooBuffer get buffer]
         ncurses.getc