Annotation of capa/capa51/CapaTools/printsections.tcl, revision 1.1
1.1 ! albertel 1: #!/usr/local/bin/tclsh7.6
! 2:
! 3: puts "Automated printing Version 1.1"
! 4:
! 5: proc quit { } {
! 6: global dir
! 7: cd $dir
! 8: exit
! 9: }
! 10:
! 11: proc parseCapaConfig { } {
! 12: global onesided twosided
! 13:
! 14: set filename [file join [pwd] capa.config]
! 15: set error [ catch { set fileId [open $filename "r"] } ]
! 16: if { $error } {
! 17: return
! 18: }
! 19:
! 20: while { 1 } {
! 21: gets $fileId aline
! 22: if { [eof $fileId ] } { break }
! 23: switch -glob -- "$aline" {
! 24: "lprOneSided_command *= *"
! 25: { set onesided [lindex $aline end] }
! 26: "lprTwoSided_command *= *"
! 27: { set twosided [lindex $aline end] }
! 28: }
! 29: }
! 30: if { [string first \$PS_file $onesided] == -1 } {
! 31: set onesided "$onesided \$PS_file"
! 32: }
! 33:
! 34: if { [string first \$PS_file $twosided] == -1 } {
! 35: set twosided "$twosided \$PS_file"
! 36: }
! 37: }
! 38:
! 39: proc parsesection { sec set } {
! 40: if { [ catch { exec echo [pwd] | qzparse -sec $sec \
! 41: -set $set >&@ file1 } ] } {
! 42: puts "Error occured while parsing set: $set section: $sec"
! 43: quit
! 44: }
! 45: }
! 46:
! 47: proc latexsection { sec set } {
! 48: if { [ catch { cd TeX } ] } {
! 49: puts "Unable to find [pwd]/TeX"
! 50: quit
! 51: }
! 52:
! 53: if { [ catch { exec latex section$sec-set$set < /dev/null >&@ file1 } ] } {
! 54: puts "Error occured while latexing set: $set section: $sec"
! 55: quit
! 56: }
! 57: cd ..
! 58: }
! 59:
! 60: proc dvisection { sec set } {
! 61: if { [ catch { cd TeX } ] } {
! 62: puts "Unable to find [pwd]/TeX"
! 63: quit
! 64: }
! 65:
! 66: if { [ catch { exec dvips -o section$sec-set$set.ps \
! 67: section$sec-set$set.dvi < /dev/null >&@ file1 } ] } {
! 68: puts "Error occured while creating dvi, set: $set section: $sec"
! 69: quit
! 70: }
! 71: cd ..
! 72: }
! 73:
! 74: proc printonesided { sec set Printer_selected } {
! 75: global onesided
! 76: if { [ catch { cd TeX } ] } {
! 77: puts "Unable to find [pwd]/TeX"
! 78: quit
! 79: }
! 80: set PS_file section$sec-set$set.ps
! 81: if { [ catch { eval "exec $onesided < /dev/null >&@ file1" } ] } {
! 82: puts "Error occured while printing set: $set section: $sec"
! 83: quit
! 84: }
! 85: cd ..
! 86: }
! 87:
! 88: proc printtwosided { sec set Printer_selected } {
! 89: if { [ catch { cd TeX } ] } {
! 90: puts "Unable to find [pwd]/TeX"
! 91: quit
! 92: }
! 93: set PS_file section$sec-set$set.ps
! 94: if { [ catch { eval "exec $twosided < /dev/null >&@file1" } ] } {
! 95: puts "Error occured while printing set: $set section: $sec"
! 96: quit
! 97: }
! 98: cd ..
! 99: }
! 100:
! 101: proc cleanup { sec set { some 0 } } {
! 102: set ext "dvi log aux ps tex"
! 103: if { $some } { set ext "dvi log aux" }
! 104: foreach ext { tex dvi ps log aux } {
! 105: exec rm -f TeX/section$sec-set$set.$ext
! 106: }
! 107: }
! 108:
! 109: if { $argc == 6 } {
! 110: set pathname [lindex $argv 0]
! 111: set startsection [lindex $argv 1]
! 112: set endsection [lindex $argv 2]
! 113: set setnumber [lindex $argv 3]
! 114: set sided [lindex $argv 4]
! 115: set printqueue [lindex $argv 5]
! 116: puts "Running class $pathname for sections $startsection:$endsection for set $setnumber on printer $printqueue, printing $sided side(s)"
! 117: } else {
! 118: if { $argc != 0 } {
! 119: puts "Usage is $argv0 pathname startsection endsection setnumber #sides printqueue"
! 120: puts " Specifying 0 sides will leave the postscript files behind and not print"
! 121: }
! 122: while { 1 } {
! 123: puts "Enter the ABSOLUTE pathname of the class:"
! 124: gets file0 pathname
! 125: puts "Enter start section:"
! 126: gets file0 startsection
! 127: puts "Enter end section:"
! 128: gets file0 endsection
! 129: puts "Enter set:"
! 130: gets file0 setnumber
! 131: puts "One sided or two sided: (1 or 2)"
! 132: gets file0 sided
! 133: if { $sided != 0 } {
! 134: puts "Enter the name of the printer:"
! 135: gets file0 printqueue
! 136: puts "Run class $pathname for sections $startsection:$endsection for set $setnumber on printer $printqueue, printing $sided side(s)? (y or n)"
! 137: } else {
! 138: puts "Run class $pathname for sections $startsection:$endsection for set $setnumber with no printing? (y or n)"
! 139: }
! 140: if { "y" == [string range [string trimleft [gets file0] ] 0 0 ] } {
! 141: break
! 142: }
! 143: }
! 144: }
! 145: set dir [pwd]
! 146:
! 147: if { [ catch { cd $pathname } ] } {
! 148: puts "Invalid class $pathname"
! 149: quit
! 150: }
! 151:
! 152: set onesided "lpr -P\$Printer_selected"
! 153: set twosided "lpspr -K2 \$PS_file | lpr -P\$Printer_selected"
! 154: parseCapaConfig
! 155:
! 156: if { $endsection == 0 } {
! 157: set endsection $startsection
! 158: }
! 159:
! 160:
! 161: for { set i $startsection } { $i <= $endsection } { incr i } {
! 162: parsesection $i $setnumber
! 163: latexsection $i $setnumber
! 164: dvisection $i $setnumber
! 165: if { $sided == 1 } {
! 166: printonesided $i $setnumber $printqueue
! 167: } elseif { $sided == 2 } {
! 168: printonesided $i $setnumber $printqueue
! 169: }
! 170: if { $sided != 0 } { cleanup $i $setnumber
! 171: } else { cleanup $i $setnumber 1
! 172: }
! 173: }
! 174:
! 175:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to printsections.tcl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / CapaTools