lab6 / lab6

package require Tk

set file_content ""
set subckt_names ""

proc open_file {} {
global file_content subckt_names

set filetypes {
{"SPICE Files" {.sp}}
{"All Files" *}
}

set filename [tk_getOpenFile -filetypes $filetypes]
if {$filename eq ""} {
return
}

set file_content [read_file $filename]
set file_content [remove_comments $file_content]
set subckt_names [extract_subckts $file_content]

.left_text delete 1.0 end
.left_text insert end $file_content

.right_text delete 1.0 end
.right_text insert end $subckt_names
}

proc read_file {filename} {
set f [open $filename r]
set content [read $f]
close $f
return $content
}

proc remove_comments {content} {
set lines [split $content "\n"]
set stripped_lines {}
foreach line $lines {

#set trimmed_line [string trim $line]

if {[string index $line 0] ne "*"} {
lappend stripped_lines $line
}
}
return [join $stripped_lines "\n"]
}

proc extract_subckts {content} {
set lines [split $content "\n"]
set subckts {}
foreach line $lines {
if {[string match "*subckt*" $line]} {
set subckt_name [lindex [split $line] 1]
lappend subckts $subckt_name
}
}
return [join $subckts "\n"]
}


proc about {} {
set about_text "Tcl/Tk program example"
tk_messageBox -title "About" -message $about_text -type ok -icon info
}


proc exit_app {} {
set answer [tk_messageBox -title "Exit" -message "Exit the program?" -type yesno -icon question]
if {$answer eq "yes"} {
exit
}
}


wm title . "Lab 6"


menu .menu
. configure -menu .menu

menu .menu.file -tearoff 0
.menu add cascade -label "File" -menu .menu.file
.menu.file add command -label "Open" -command open_file
.menu.file add separator
.menu.file add command -label "Exit" -command exit_app

menu .menu.help -tearoff 0
.menu add cascade -label "Help" -menu .menu.help
.menu.help add command -label "About" -command about


text .left_text -width 40 -height 20 -wrap none -bg green
text .right_text -width 20 -height 20 -wrap none -bg green

pack .left_text -side left -fill both -expand true
pack .right_text -side right -fill both -expand true


tkwait window .