128 lines
4.6 KiB
Plaintext
128 lines
4.6 KiB
Plaintext
$OpenBSD: patch-jenscript_jenscript_SH,v 1.6 2000/04/24 14:49:13 espie Exp $
|
|
--- jenscript/jenscript.SH.orig Tue Jan 16 18:20:31 1990
|
|
+++ jenscript/jenscript.SH Mon Apr 24 16:48:43 2000
|
|
@@ -20,14 +20,12 @@ echo "Extracting jenscript (with variabl
|
|
: Protect any dollar signs and backticks that you do not want interpreted
|
|
: by putting a backslash in front. You may delete these comments.
|
|
$spitshell >jenscript <<!GROK!THIS!
|
|
-#!$perlloc -P
|
|
+#!$perlloc
|
|
#
|
|
# Convert Text Files into PostScript Format
|
|
#
|
|
# 1989 3/28 MASUI Toshiyuki
|
|
#
|
|
-eval "exec $perlloc -P -S \$0 \$*"
|
|
- if \$Shell_cannot_understand;
|
|
!GROK!THIS!
|
|
|
|
: In the following dollars and backticks do not need the extra backslash.
|
|
@@ -35,6 +33,7 @@ $spitshell >>jenscript <<'!NO!SUBS!'
|
|
($program) = ($0 =~ m#([^/]+)$#);
|
|
|
|
$mflag = $gflag = $xflag = $nflag = $sflag = $dflag = $eflag = $kflag = 0;
|
|
+$tflag = 0;
|
|
$columns = 1;
|
|
$curcolumn = 0;
|
|
$printpage = 0;
|
|
@@ -61,6 +60,7 @@ while($_ = $ARGV[0], /^-/){ # get option
|
|
elsif(s/^d//){ $dflag = 1; }
|
|
elsif(s/^E//){ $eflag = 1; }
|
|
elsif(s/^k//){ $kflag = 1; }
|
|
+ elsif(s/^t//){ $tflag = 1; }
|
|
elsif(s/^(\d)//){ $columns = $1; }
|
|
elsif(/^f$/){ $kfont = $ARGV[0]; shift; last; }
|
|
elsif(/^f(.+)/){ $kfont = $1; last; }
|
|
@@ -87,27 +87,33 @@ $afont ne "" ? ($afont, $afont, $afont,
|
|
$xflag ? ("Courier", "Courier-Bold", "Courier-Oblique", "Courier", "Courier") :
|
|
("Times-Roman", "Times-Bold", "Times-Italic", "Times-Roman", "Times-Roman");
|
|
|
|
-($height, $width, $offsetx, $offsety) =
|
|
- $sflag ? (650, 440, 120, 150) : # B5
|
|
-# (730, 550, 60, 60); # A4
|
|
- (700, 550, 60, 40); # letter
|
|
+($PageHeight, $PageWidth, $PageOffset) =
|
|
+ $sflag ? (842, 596, 60): # A4
|
|
+ (792, 612, 40); # letter
|
|
+$offsetx = $offsety = $PageOffset;
|
|
+$height = $PageHeight - 2 * $offsety;
|
|
+$width = $PageWidth - 2 * $offsetx;
|
|
+# LandScape turn
|
|
+($height, $width, $offsetx, $offsety) = ($width, $height, $offsety, $offsetx)
|
|
+ if ($tflag);
|
|
$linepitch = $lines ? $height / $lines : $fontsize * 7.0 / 6.0;
|
|
($kfont, $jfontsize) = $kfont ne "" ? ($kfont, $fontsize) :
|
|
- $fontsize < 5 ? ("jis16", 3.84) :
|
|
+# $fontsize < 5 ? ("jis16", 3.84) :
|
|
$fontsize < 7 ? ("jis24", 5.76) :
|
|
$fontsize < 12 ? ("jis32", 7.68) :
|
|
- ("jis50", 12) ;
|
|
+ ("jis48", 12) ;
|
|
$_ = $kfont;
|
|
$texfont = /^jisj/ || /^dmj/ || /^dgj/ ;
|
|
|
|
-#define NORMAL 0
|
|
-#define COMMENT 1
|
|
-#define STRING 2
|
|
-#define LITERAL 3
|
|
-#define KEYWORD 4
|
|
+
|
|
+use constant NORMAL => 0;
|
|
+use constant COMMENT => 1;
|
|
+use constant STRING => 2;
|
|
+use constant LITERAL => 3;
|
|
+use constant KEYWORD => 4;
|
|
+use constant VGRINDEFS => '/usr/share/misc/vgrindefs';
|
|
$mode = $outmode = NORMAL;
|
|
|
|
-#define VGRINDEFS "/usr/lib/vgrindefs"
|
|
if(! open(vdef,VGRINDEFS)){
|
|
$language = "";
|
|
}
|
|
@@ -132,6 +138,8 @@ if($language){
|
|
s/\\:/<COLON>/g;
|
|
split(/:/);
|
|
$pat = $_[0];
|
|
+ # handle C++
|
|
+ $pat =~ s/\+/\\+/g;
|
|
shift(@_);
|
|
next if $language !~ /^($pat)$/;
|
|
$pb = $bb = $be = $cb = $ce = $sb =
|
|
@@ -295,7 +303,7 @@ while(<>){
|
|
nextline:
|
|
do flush();
|
|
$posx = 0;
|
|
- if(($posy -= $linepitch) <= 0){
|
|
+ if(m/^\s*\cl\s*$/ || (($posy -= $linepitch) <= 0)){
|
|
if(++$curcolumn >= $columns){
|
|
do endpage(1);
|
|
$curcolumn = 0;
|
|
@@ -417,13 +425,17 @@ sub prologue {
|
|
print "%%Creator: jenscript\n" if ! $nflag;
|
|
print "%%Title: Jenscript\n" if ! $nflag;
|
|
print "%%CreationDate: $date\n" if ! $nflag;
|
|
+ print "%%BoundingBox: 0 0 $PageWidth $PageHeight\n";
|
|
+ print "%%Orientation: Landscape\n" if $tflag;
|
|
print "%%EndComments\n" if ! $nflag;
|
|
print "%%DocumentFonts: $kfont",$afont ne "" ? " $afont" : "", "\n";
|
|
print "save/EnscriptJob exch def\n";
|
|
print "/StartEnscriptDoc{\$enscript begin}def\n";
|
|
print "/\$enscript 60 dict def \$enscript begin\n";
|
|
print "/EndEnscriptDoc{end}def\n";
|
|
- print "/StartPage{/svpg save def }def\n";
|
|
+ print "/StartPage{/svpg save def\n";
|
|
+ print "[ 0 1 -1 0 $PageWidth 0 ] concat\n" if $tflag;
|
|
+ print "}def\n";
|
|
print "/EndPage{svpg restore showpage}def\n";
|
|
print "/SetStTime{statusdict /manualfeedtimeout 120 put} def\n";
|
|
print "/SetStatus{statusdict /manualfeed true put\n";
|
|
@@ -445,7 +457,7 @@ sub prologue {
|
|
print "/FK { /$keywordfont findfont [$xfontsize 0 0 $fontsize 0 0] makefont setfont } bind def\n";
|
|
print "/FC { /$commentfont findfont [$xfontsize 0 0 $fontsize 0 0] makefont setfont } bind def\n";
|
|
print "/FS { /$stringfont findfont [$xfontsize 0 0 $fontsize 0 0] makefont setfont } bind def\n";
|
|
- print "/FL { /$litefalfont findfont [$xfontsize 0 0 $fontsize 0 0] makefont setfont } bind def\n";
|
|
+ print "/FL { /$literalfont findfont [$xfontsize 0 0 $fontsize 0 0] makefont setfont } bind def\n";
|
|
}
|
|
print "/FJ { /$kfont findfont $jfontsize scalefont setfont } bind def\n";
|
|
print "/N { FN show } bind def\n";
|