Posted to tcl by qih at Thu Jan 04 08:10:44 GMT 2018view raw
- # Code from program:
- 53 set lines {
- 54 puts "blah blah? >> "; flush stdout
- 55 gets stdin blah_in
- 56 puts "Blob blob? >> "; flush stdout
- 57 gets stdin blob_in
- 58 }
- 59
- 60 struct::matrix m
- 61 m add columns 3
- 62 foreach line $lines {
- 63 m add row $lines;
- 64 }
- 65 m format 2chan; # Print it out
- # Error from terminal:
- qih proj003 $ tclsh medtrack.tcl
- Welcome, today's date is Thursday, 01/04/2018
- -------------------------------------------------------
- Are you adding a new medication? (Yes or No) Yes
- Please answer the following questions:
- --------------------------------------
- list element in quotes followed by ";" instead of space
- while executing
- "foreach line $lines {
- m add row $lines;
- }"
- (file "medtrack.tcl" line 62)