1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
proc init {} {
global auto_path argv argv0 config env
package require Tcl 8.4
foreach opt $argv {
switch -exact -- $opt {
-h - -help - --help {
puts "Usage: $argv0 \[INTERFACE\] OPTION..."
puts ""
puts "Interfaces:"
puts "tk - GUI (requires Tk)"
# puts "gnome - GUI (requires tcl-gtk and Gnome)"
# puts "console - text (requires ANSI terminal and unix)"
# puts "readline - text (requires tclreadline)"
puts "text - text (works on any terminal)"
puts ""
puts "INTERFACE defaults to tk."
puts ""
puts "Options:"
puts "-h --help print this message and exit"
puts "-v --version print the version and exit"
puts "-e --eval SCRIPT start mmucl and eval SCRIPT"
puts ""
puts "Enviroment variable TCLLIBPATH can be used to specify"
puts "where Mmucl looks for Tcl extensions."
puts ""
puts "Report bugs to msp@users.sourceforge.net."
exit 0
} -v - --version {
puts "Mmucl $config(version)"
exit 0
}
}
}
#set interfaces [list tk readline console text gnome]
set interfaces [list tk text]
set interface [string tolower [lindex $argv 0]]
if {[string match -* $interface] || [string equal $interface ""]} {
set interface tk
} else {
set argv [lreplace $argv 0 0]
}
if {[lsearch -exact $interfaces $interface] == -1} {
puts stderr "no such interface: $interface"
puts stderr "for more info: $argv0 --help"
exit 1
}
if {[info exists env(HOME)]} {
set config(rc_dir) [file join $env(HOME) .mmucl2]
} else {
set config(rc_dir) [file join [pwd] .mmucl2]
}
foreach path {/usr/lib /usr/local/lib} {
if {[lsearch $auto_path $path] == -1} {
lappend auto_path $path
}
}
set config(interface) $interface
uplevel #0 [list source [file join $config(lib_dir) lib mmucl.tcl]]
uplevel #0 [list source [file join $config(lib_dir) \
interface $interface.tcl]]
mmucl::init
rename init ""
return
}
init
vwait forever
|
