#---------- xpm input processor ----------
+proc must_gets {f lvar} {
+ upvar 1 $lvar l
+ if {[gets $f l] < 0} { error "huh?" }
+}
+
proc read_xpm {f} {
global glyphsdone mul inter rhsmost_max unk_l unk_r mulcols mulrows
global cols rows wordmap
set o {}
set y -3
while 1 {
- if {[gets $f l] < 0} { error "huh? "}
+ must_gets $f l
if {![regexp {^"(.*)",$} $l dummy l]} {
append o "$l\n"
if {[regexp {^\}\;$} $l]} break
return
}
init_widgets
+
+ required/$l
+}
+
+proc required/pixmap {} {
+ global unk_what
+ must_gets stdin unk_what
+ error nyi
+}
+
+proc required/char {} {
+ must_gets stdin l
+
manyset [lrange $l 0 3] unk_l unk_r unk_contexts
set glyphsdone [lrange $l 3 end]
debug "GOT $l"