Lines Matching +defs:next +defs:error
2 # The next line is executed by /bin/sh, but not tcl \
294 proc next-text {} {
302 error "fatal"
312 proc next-op-is {op restname} {
370 proc expand-next-text {n} {
413 error "option-toc in $manual(name) section $manual(section)"
438 while {[next-op-is .OP rest]} {
452 error "not Switch: $switch"
458 error "not Name: $name"
461 error "not Class: $class"
466 man-puts <DD>[next-text]
478 if {[next-op-is .IP rest]} {
488 if {[next-op-is .RE rest]} {
494 set line [next-text]
527 set line [next-text]
559 set line [next-text]
789 if {[lsearch {error continue break} $lref] >= 0} {
807 proc reference-error {msg text} {
866 return [reference-error {Missing end anchor} $text]
874 return [reference-error "Missing end quote" $text]
900 return [reference-error "Uncaught quote case" $text]
927 return [reference-error "Uncaught bold case" $text]
933 return [reference-error "Tk regexp failed" $text]
941 return [reference-error {Tcl regexp failed} $text]
956 return [reference-error "Out of place $invert([lindex $offsets 0])" $text]
997 set line [next-text]
1010 if {[next-op-is .nf rest]
1011 || [next-op-is .br rest]
1012 || [next-op-is .fi rest]} {
1015 if {[next-op-is .SH rest]
1016 || [next-op-is .SS rest]
1017 || [next-op-is .BE rest]
1018 || [next-op-is .SO rest]} {
1022 if {[next-op-is .sp rest]} {
1026 set more [next-text]
1045 if {[next-op-is .SH rest] || [next-op-is .SS rest]} {
1049 set more [next-text]
1072 if {[next-op-is .SH rest] || [next-op-is .SS rest]} {
1076 set more [next-text]
1094 if {[next-op-is .IP rest]} {
1098 if {[next-op-is .PP rest]} {
1120 manerror "unexpected .SO format:\n[expand-next-text 2]"
1151 if {[next-op-is .ta rest]} {
1159 manerror "unexpected .DS format:\n[expand-next-text 2]"
1164 if {[next-op-is .ta rest]} {
1170 manerror "unexpected .CS format:\n[expand-next-text 2]"
1304 [catch {file mkdir $dir} error]} {
1305 return -code error "cannot create directory $dir: $error"
1429 while {[is-a-directive [set next [gets $manual(infp)]]]} {
1430 manerror "ignoring $next after .TP"
1432 if {"$next" != {'}} {
1433 lappend manual(text) ".IP [process-text $next]"
1484 error "found .. outside of .de"
1519 if {[next-op-is .HS rest]} {
1523 set line [next-text]
1536 } elseif {[next-op-is .TH rest]} {
1539 set line [next-text]
1731 } error]} {
1732 puts $error\n$errorInfo