home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: Tape Archive
(archive/tar).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Tape Archive (archive/tar)
| magic
| Supported |
| 100%
| file
| POSIX tar archive (GNU)
| default
| |
| 99%
| file
| POSIX tar archive (GNU), file bfnnconv.pl, mode 100775 , uid 144 , gid 144 , size 21776 , seconds 6117413175, user ian, group ian
| default
| |
| 98%
| file
| data
| default
| |
| 62%
| TrID
| TAR - Tape ARchive (GNU)
| default
| |
| 37%
| TrID
| TAR - Tape ARchive (file)
| default
| |
| 100%
| dearkID
| deark: tar
| default
| |
| 100%
| lsar
| Tar
| default (weak)
| |
| 100%
| gt2
| TAR Archiv gefunden (Auflistung ist deaktiviert)
| default
| |
| 100%
| disktype
| GNU tar archive
| default
| |
| 100%
| detectItEasy
| Archive: tar
| default
| |
| 100%
| binwalkID
| POSIX tar archive (GNU), owner user name: ".pl"
| default
| |
| 100%
| xdgMime
| application/x-tar
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 62 66 6e 6e 63 6f 6e 76 | 2e 70 6c 00 00 00 00 00 |bfnnconv|.pl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 31 30 30 37 | 37 35 20 00 20 20 20 31 |....1007|75 . 1|
|00000070| 34 34 20 00 20 20 20 31 | 34 34 20 00 20 20 20 20 |44 . 1|44 . |
|00000080| 20 20 32 31 37 37 36 20 | 20 36 31 31 37 34 31 33 | 21776 | 6117413|
|00000090| 31 37 35 20 20 31 31 30 | 34 34 00 20 30 00 00 00 |175 110|44. 0...|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 75 73 74 61 72 20 20 | 00 69 61 6e 00 00 00 00 |.ustar |.ian....|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 69 61 6e 00 00 00 00 |........|.ian....|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 23 21 2f 75 73 72 2f 62 | 69 6e 2f 70 65 72 6c 20 |#!/usr/b|in/perl |
|00000210| 2d 2d 0a 23 20 43 6f 70 | 79 72 69 67 68 74 20 28 |--.# Cop|yright (|
|00000220| 43 29 20 31 39 39 33 2d | 31 39 39 35 20 49 61 6e |C) 1993-|1995 Ian|
|00000230| 20 4a 61 63 6b 73 6f 6e | 2e 0a 0a 23 20 54 68 69 | Jackson|...# Thi|
|00000240| 73 20 66 69 6c 65 20 69 | 73 20 66 72 65 65 20 73 |s file i|s free s|
|00000250| 6f 66 74 77 61 72 65 3b | 20 79 6f 75 20 63 61 6e |oftware;| you can|
|00000260| 20 72 65 64 69 73 74 72 | 69 62 75 74 65 20 69 74 | redistr|ibute it|
|00000270| 20 61 6e 64 2f 6f 72 20 | 6d 6f 64 69 66 79 0a 23 | and/or |modify.#|
|00000280| 20 69 74 20 75 6e 64 65 | 72 20 74 68 65 20 74 65 | it unde|r the te|
|00000290| 72 6d 73 20 6f 66 20 74 | 68 65 20 47 4e 55 20 47 |rms of t|he GNU G|
|000002a0| 65 6e 65 72 61 6c 20 50 | 75 62 6c 69 63 20 4c 69 |eneral P|ublic Li|
|000002b0| 63 65 6e 73 65 20 61 73 | 20 70 75 62 6c 69 73 68 |cense as| publish|
|000002c0| 65 64 20 62 79 0a 23 20 | 74 68 65 20 46 72 65 65 |ed by.# |the Free|
|000002d0| 20 53 6f 66 74 77 61 72 | 65 20 46 6f 75 6e 64 61 | Softwar|e Founda|
|000002e0| 74 69 6f 6e 3b 20 65 69 | 74 68 65 72 20 76 65 72 |tion; ei|ther ver|
|000002f0| 73 69 6f 6e 20 32 2c 20 | 6f 72 20 28 61 74 20 79 |sion 2, |or (at y|
|00000300| 6f 75 72 20 6f 70 74 69 | 6f 6e 29 0a 23 20 61 6e |our opti|on).# an|
|00000310| 79 20 6c 61 74 65 72 20 | 76 65 72 73 69 6f 6e 2e |y later |version.|
|00000320| 0a 0a 23 20 49 74 20 69 | 73 20 64 69 73 74 72 69 |..# It i|s distri|
|00000330| 62 75 74 65 64 20 69 6e | 20 74 68 65 20 68 6f 70 |buted in| the hop|
|00000340| 65 20 74 68 61 74 20 69 | 74 20 77 69 6c 6c 20 62 |e that i|t will b|
|00000350| 65 20 75 73 65 66 75 6c | 2c 0a 23 20 62 75 74 20 |e useful|,.# but |
|00000360| 57 49 54 48 4f 55 54 20 | 41 4e 59 20 57 41 52 52 |WITHOUT |ANY WARR|
|00000370| 41 4e 54 59 3b 20 77 69 | 74 68 6f 75 74 20 65 76 |ANTY; wi|thout ev|
|00000380| 65 6e 20 74 68 65 20 69 | 6d 70 6c 69 65 64 20 77 |en the i|mplied w|
|00000390| 61 72 72 61 6e 74 79 20 | 6f 66 0a 23 20 4d 45 52 |arranty |of.# MER|
|000003a0| 43 48 41 4e 54 41 42 49 | 4c 49 54 59 20 6f 72 20 |CHANTABI|LITY or |
|000003b0| 46 49 54 4e 45 53 53 20 | 46 4f 52 20 41 20 50 41 |FITNESS |FOR A PA|
|000003c0| 52 54 49 43 55 4c 41 52 | 20 50 55 52 50 4f 53 45 |RTICULAR| PURPOSE|
|000003d0| 2e 20 20 53 65 65 20 74 | 68 65 0a 23 20 47 4e 55 |. See t|he.# GNU|
|000003e0| 20 47 65 6e 65 72 61 6c | 20 50 75 62 6c 69 63 20 | General| Public |
|000003f0| 4c 69 63 65 6e 73 65 20 | 66 6f 72 20 6d 6f 72 65 |License |for more|
|00000400| 20 64 65 74 61 69 6c 73 | 2e 0a 0a 23 20 59 6f 75 | details|...# You|
|00000410| 20 73 68 6f 75 6c 64 20 | 68 61 76 65 20 72 65 63 | should |have rec|
|00000420| 65 69 76 65 64 20 61 20 | 63 6f 70 79 20 6f 66 20 |eived a |copy of |
|00000430| 74 68 65 20 47 4e 55 20 | 47 65 6e 65 72 61 6c 20 |the GNU |General |
|00000440| 50 75 62 6c 69 63 20 4c | 69 63 65 6e 73 65 0a 23 |Public L|icense.#|
|00000450| 20 61 6c 6f 6e 67 20 77 | 69 74 68 20 47 4e 55 20 | along w|ith GNU |
|00000460| 45 6d 61 63 73 3b 20 73 | 65 65 20 74 68 65 20 66 |Emacs; s|ee the f|
|00000470| 69 6c 65 20 43 4f 50 59 | 49 4e 47 2e 20 20 49 66 |ile COPY|ING. If|
|00000480| 20 6e 6f 74 2c 20 77 72 | 69 74 65 20 74 6f 0a 23 | not, wr|ite to.#|
|00000490| 20 74 68 65 20 46 72 65 | 65 20 53 6f 66 74 77 61 | the Fre|e Softwa|
|000004a0| 72 65 20 46 6f 75 6e 64 | 61 74 69 6f 6e 2c 20 49 |re Found|ation, I|
|000004b0| 6e 63 2e 2c 20 35 39 20 | 54 65 6d 70 6c 65 20 50 |nc., 59 |Temple P|
|000004c0| 6c 61 63 65 20 2d 20 53 | 75 69 74 65 20 33 33 30 |lace - S|uite 330|
|000004d0| 2c 0a 23 20 42 6f 73 74 | 6f 6e 2c 20 4d 41 20 30 |,.# Bost|on, MA 0|
|000004e0| 32 31 31 31 2d 31 33 30 | 37 2c 20 55 53 41 2e 0a |2111-130|7, USA..|
|000004f0| 0a 23 20 28 4e 6f 74 65 | 3a 20 49 20 64 6f 20 6e |.# (Note|: I do n|
|00000500| 6f 74 20 63 6f 6e 73 69 | 64 65 72 20 77 6f 72 6b |ot consi|der work|
|00000510| 73 20 70 72 6f 64 75 63 | 65 64 20 75 73 69 6e 67 |s produc|ed using|
|00000520| 20 74 68 65 73 65 20 42 | 46 4e 4e 20 70 72 6f 63 | these B|FNN proc|
|00000530| 65 73 73 69 6e 67 0a 23 | 20 74 6f 6f 6c 73 20 74 |essing.#| tools t|
|00000540| 6f 20 62 65 20 64 65 72 | 69 76 61 74 69 76 65 20 |o be der|ivative |
|00000550| 77 6f 72 6b 73 20 6f 66 | 20 74 68 65 20 74 6f 6f |works of| the too|
|00000560| 6c 73 2c 20 73 6f 20 74 | 68 65 79 20 61 72 65 20 |ls, so t|hey are |
|00000570| 4e 4f 54 20 63 6f 76 65 | 72 65 64 0a 23 20 62 79 |NOT cove|red.# by|
|00000580| 20 74 68 65 20 47 50 4c | 2e 20 20 48 6f 77 65 76 | the GPL|. Howev|
|00000590| 65 72 2c 20 49 20 77 6f | 75 6c 64 20 61 70 70 72 |er, I wo|uld appr|
|000005a0| 65 63 69 61 74 65 20 69 | 74 20 69 66 20 79 6f 75 |eciate i|t if you|
|000005b0| 20 63 72 65 64 69 74 65 | 64 20 6d 65 20 69 66 0a | credite|d me if.|
|000005c0| 23 20 61 70 70 72 6f 70 | 72 69 61 74 65 20 69 6e |# approp|riate in|
|000005d0| 20 61 6e 79 20 64 6f 63 | 75 6d 65 6e 74 73 20 79 | any doc|uments y|
|000005e0| 6f 75 20 66 6f 72 6d 61 | 74 20 75 73 69 6e 67 20 |ou forma|t using |
|000005f0| 42 46 4e 4e 2e 29 0a 0a | 40 6f 75 74 70 75 74 73 |BFNN.)..|@outputs|
|00000600| 3d 28 27 61 73 63 69 69 | 27 2c 27 6c 6f 75 74 27 |=('ascii|','lout'|
|00000610| 2c 27 69 6e 66 6f 27 2c | 27 68 74 6d 6c 27 2c 27 |,'info',|'html','|
|00000620| 70 6f 73 74 27 29 3b 0a | 0a 77 68 69 6c 65 20 28 |post');.|.while (|
|00000630| 24 41 52 47 56 5b 30 5d | 20 3d 7e 20 6d 2f 5e 5c |$ARGV[0]| =~ m/^\|
|00000640| 2d 2f 29 20 7b 0a 20 20 | 20 20 24 5f 3d 20 73 68 |-/) {. | $_= sh|
|00000650| 69 66 74 28 40 41 52 47 | 56 29 3b 0a 20 20 20 20 |ift(@ARG|V);. |
|00000660| 69 66 20 28 6d 2f 5e 2d | 6f 6e 6c 79 2f 29 20 7b |if (m/^-|only/) {|
|00000670| 0a 20 20 20 20 20 20 20 | 20 40 6f 75 74 70 75 74 |. | @output|
|00000680| 73 3d 20 28 73 68 69 66 | 74 28 40 41 52 47 56 29 |s= (shif|t(@ARGV)|
|00000690| 29 3b 0a 20 20 20 20 7d | 20 65 6c 73 65 20 7b 0a |);. }| else {.|
|000006a0| 20 20 20 20 20 20 20 20 | 77 61 72 6e 20 22 75 6e | |warn "un|
|000006b0| 6b 6e 6f 77 6e 20 6f 70 | 74 69 6f 6e 20 60 24 5f |known op|tion `$_|
|000006c0| 27 20 69 67 6e 6f 72 65 | 64 22 3b 0a 20 20 20 20 |' ignore|d";. |
|000006d0| 7d 0a 7d 0a 0a 24 70 72 | 65 66 69 78 3d 20 24 41 |}.}..$pr|efix= $A|
|000006e0| 52 47 56 5b 30 5d 3b 0a | 24 70 72 65 66 69 78 3d |RGV[0];.|$prefix=|
|000006f0| 20 27 73 74 64 69 6e 27 | 20 75 6e 6c 65 73 73 20 | 'stdin'| unless |
|00000700| 6c 65 6e 67 74 68 28 24 | 70 72 65 66 69 78 29 3b |length($|prefix);|
|00000710| 0a 24 70 72 65 66 69 78 | 20 3d 7e 20 73 2f 5c 2e |.$prefix| =~ s/\.|
|00000720| 62 66 6e 6e 24 2f 2f 3b | 0a 0a 69 66 20 28 6f 70 |bfnn$//;|..if (op|
|00000730| 65 6e 28 4f 2c 22 24 70 | 72 65 66 69 78 2e 78 72 |en(O,"$p|refix.xr|
|00000740| 65 66 64 62 22 29 29 20 | 7b 0a 20 20 20 20 40 78 |efdb")) |{. @x|
|00000750| 72 65 66 64 62 3d 20 3c | 4f 3e 3b 0a 20 20 20 20 |refdb= <|O>;. |
|00000760| 63 6c 6f 73 65 28 4f 29 | 3b 0a 7d 20 65 6c 73 65 |close(O)|;.} else|
|00000770| 20 7b 0a 20 20 20 20 77 | 61 72 6e 20 22 6e 6f 20 | {. w|arn "no |
|00000780| 24 70 72 65 66 69 78 2e | 78 72 65 66 64 62 20 28 |$prefix.|xrefdb (|
|00000790| 24 21 29 22 3b 0a 7d 0a | 0a 24 73 65 63 74 69 6f |$!)";.}.|.$sectio|
|000007a0| 6e 3d 20 2d 31 3b 0a 66 | 6f 72 20 24 74 68 69 73 |n= -1;.f|or $this|
|000007b0| 78 72 20 28 40 78 72 65 | 66 64 62 29 20 7b 0a 20 |xr (@xre|fdb) {. |
|000007c0| 20 20 20 24 5f 3d 20 24 | 74 68 69 73 78 72 3b 0a | $_= $|thisxr;.|
|000007d0| 20 20 20 20 63 68 6f 70 | 3b 0a 20 20 20 20 69 66 | chop|;. if|
|000007e0| 20 28 6d 2f 5e 51 20 28 | 5c 77 2b 29 20 28 28 5c | (m/^Q (|\w+) ((\|
|000007f0| 64 2b 29 5c 2e 28 5c 64 | 2b 29 29 20 28 2e 2a 29 |d+)\.(\d|+)) (.*)|
|00000800| 24 2f 29 20 7b 0a 20 20 | 20 20 20 20 20 20 24 71 |$/) {. | $q|
|00000810| 72 65 66 6e 7b 24 31 7d | 3d 20 24 32 3b 0a 20 20 |refn{$1}|= $2;. |
|00000820| 20 20 20 20 20 20 24 71 | 72 65 66 74 7b 24 31 7d | $q|reft{$1}|
|00000830| 3d 20 24 35 3b 0a 20 20 | 20 20 20 20 20 20 24 71 |= $5;. | $q|
|00000840| 6e 32 72 65 66 7b 24 33 | 2c 24 34 7d 3d 20 24 31 |n2ref{$3|,$4}= $1|
|00000850| 3b 0a 20 20 20 20 20 20 | 20 20 24 6d 61 78 73 65 |;. | $maxse|
|00000860| 63 74 69 6f 6e 3d 20 24 | 33 3b 0a 20 20 20 20 20 |ction= $|3;. |
|00000870| 20 20 20 24 6d 61 78 71 | 75 65 73 74 69 6f 6e 5b | $maxq|uestion[|
|00000880| 24 33 5d 3d 20 24 34 3b | 0a 20 20 20 20 7d 20 65 |$3]= $4;|. } e|
|00000890| 6c 73 69 66 20 28 6d 2f | 5e 53 20 28 5c 64 2b 29 |lsif (m/|^S (\d+)|
|000008a0| 20 2f 29 20 7b 0a 20 20 | 20 20 20 20 20 20 24 6d | /) {. | $m|
|000008b0| 61 78 73 65 63 74 69 6f | 6e 3d 20 24 31 3b 0a 20 |axsectio|n= $1;. |
|000008c0| 20 20 20 20 20 20 20 24 | 73 6e 32 74 69 74 6c 65 | $|sn2title|
|000008d0| 7b 24 31 7d 3d 24 27 3b | 0a 20 20 20 20 7d 0a 7d |{$1}=$';|. }.}|
|000008e0| 0a 0a 6f 70 65 6e 28 55 | 2c 22 3e 24 70 72 65 66 |..open(U|,">$pref|
|000008f0| 69 78 2e 78 72 65 66 64 | 62 2d 6e 65 77 22 29 3b |ix.xrefd|b-new");|
|00000900| 0a 0a 66 6f 72 20 24 78 | 20 28 40 6f 75 74 70 75 |..for $x| (@outpu|
|00000910| 74 73 29 20 7b 20 72 65 | 71 75 69 72 65 28 22 6d |ts) { re|quire("m|
|00000920| 2d 24 78 2e 70 6c 22 29 | 3b 20 7d 0a 0a 26 63 61 |-$x.pl")|; }..&ca|
|00000930| 6c 6c 28 27 69 6e 69 74 | 27 29 3b 0a 0a 77 68 69 |ll('init|');..whi|
|00000940| 6c 65 20 28 3c 3e 29 20 | 7b 0a 20 20 20 20 63 68 |le (<>) |{. ch|
|00000950| 6f 70 3b 0a 20 20 20 20 | 6e 65 78 74 20 69 66 20 |op;. |next if |
|00000960| 6d 2f 5e 5c 5c 63 6f 6d | 6d 65 6e 74 5c 62 2f 3b |m/^\\com|ment\b/;|
|00000970| 0a 20 20 20 20 69 66 20 | 28 21 6d 2f 5c 53 2f 29 |. if |(!m/\S/)|
|00000980| 20 7b 0a 20 20 20 20 20 | 20 20 20 26 63 61 6c 6c | {. | &call|
|00000990| 28 27 65 6e 64 70 61 72 | 61 27 29 3b 0a 20 20 20 |('endpar|a');. |
|000009a0| 20 20 20 20 20 6e 65 78 | 74 3b 0a 20 20 20 20 7d | nex|t;. }|
|000009b0| 0a 20 20 20 20 69 66 20 | 28 73 2f 5e 5c 5c 73 65 |. if |(s/^\\se|
|000009c0| 63 74 69 6f 6e 20 2b 2f | 2f 29 20 7b 0a 20 20 20 |ction +/|/) {. |
|000009d0| 20 20 20 20 20 24 6c 69 | 6e 65 3d 20 24 5f 3b 0a | $li|ne= $_;.|
|000009e0| 20 20 20 20 20 20 20 20 | 24 73 65 63 74 69 6f 6e | |$section|
|000009f0| 2b 2b 3b 20 24 71 75 65 | 73 74 69 6f 6e 3d 30 3b |++; $que|stion=0;|
|00000a00| 0a 20 20 20 20 20 20 20 | 20 70 72 69 6e 74 20 55 |. | print U|
|00000a10| 20 22 53 20 24 73 65 63 | 74 69 6f 6e 20 24 6c 69 | "S $sec|tion $li|
|00000a20| 6e 65 5c 6e 22 3b 0a 20 | 20 20 20 20 20 20 20 24 |ne\n";. | $|
|00000a30| 7c 3d 31 3b 20 70 72 69 | 6e 74 20 22 53 24 73 65 ||=1; pri|nt "S$se|
|00000a40| 63 74 69 6f 6e 22 2c 27 | 20 27 78 31 30 2c 22 5c |ction",'| 'x10,"\|
|00000a50| 72 22 3b 20 24 7c 3d 30 | 3b 0a 20 20 20 20 20 20 |r"; $|=0|;. |
|00000a60| 20 20 26 63 61 6c 6c 28 | 27 65 6e 64 70 61 72 61 | &call(|'endpara|
|00000a70| 27 29 3b 0a 20 20 20 20 | 20 20 20 20 26 63 61 6c |');. | &cal|
|00000a80| 6c 28 27 73 74 61 72 74 | 6d 61 6a 6f 72 68 65 61 |l('start|majorhea|
|00000a90| 64 69 6e 67 27 2c 22 24 | 73 65 63 74 69 6f 6e 22 |ding',"$|section"|
|00000aa0| 2c 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,. | |
|00000ab0| 22 53 65 63 74 69 6f 6e | 20 24 73 65 63 74 69 6f |"Section| $sectio|
|00000ac0| 6e 22 2c 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |n",. | |
|00000ad0| 20 20 24 73 65 63 74 69 | 6f 6e 3c 24 6d 61 78 73 | $secti|on<$maxs|
|00000ae0| 65 63 74 69 6f 6e 20 3f | 20 22 53 65 63 74 69 6f |ection ?| "Sectio|
|00000af0| 6e 20 22 2e 28 24 73 65 | 63 74 69 6f 6e 2b 31 29 |n ".($se|ction+1)|
|00000b00| 20 3a 20 27 27 2c 0a 20 | 20 20 20 20 20 20 20 20 | : '',. | |
|00000b10| 20 20 20 20 20 24 73 65 | 63 74 69 6f 6e 3e 31 20 | $se|ction>1 |
|00000b20| 3f 20 27 53 65 63 74 69 | 6f 6e 20 27 2e 28 24 73 |? 'Secti|on '.($s|
|00000b30| 65 63 74 69 6f 6e 2d 31 | 29 20 3a 20 27 54 6f 70 |ection-1|) : 'Top|
|00000b40| 27 29 3b 0a 20 20 20 20 | 20 20 20 20 26 74 65 78 |');. | &tex|
|00000b50| 74 28 24 6c 69 6e 65 29 | 3b 0a 20 20 20 20 20 20 |t($line)|;. |
|00000b60| 20 20 26 63 61 6c 6c 28 | 27 65 6e 64 6d 61 6a 6f | &call(|'endmajo|
|00000b70| 72 68 65 61 64 69 6e 67 | 27 29 3b 0a 20 20 20 20 |rheading|');. |
|00000b80| 20 20 20 20 69 66 20 28 | 24 73 65 63 74 69 6f 6e | if (|$section|
|00000b90| 29 20 7b 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |) {. | |
|00000ba0| 26 63 61 6c 6c 28 27 65 | 6e 64 70 61 72 61 27 29 |&call('e|ndpara')|
|00000bb0| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 26 63 |;. | &c|
|00000bc0| 61 6c 6c 28 27 73 74 61 | 72 74 69 6e 64 65 78 27 |all('sta|rtindex'|
|00000bd0| 29 3b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 66 |);. | f|
|00000be0| 6f 72 20 24 74 68 69 73 | 78 72 20 28 40 78 72 65 |or $this|xr (@xre|
|00000bf0| 66 64 62 29 20 7b 0a 20 | 20 20 20 20 20 20 20 20 |fdb) {. | |
|00000c00| 20 20 20 20 20 20 20 24 | 5f 3d 20 24 74 68 69 73 | $|_= $this|
|00000c10| 78 72 3b 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |xr;. | |
|00000c20| 20 20 20 20 63 68 6f 70 | 3b 0a 20 20 20 20 20 20 | chop|;. |
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 28 6d 2f | | if (m/|
|00000c40| 5e 51 20 28 5c 77 2b 29 | 20 28 5c 64 2b 29 5c 2e |^Q (\w+)| (\d+)\.|
|00000c50| 28 5c 64 2b 29 20 28 2e | 2a 29 24 2f 29 20 7b 0a |(\d+) (.|*)$/) {.|
|00000c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c70| 20 20 20 20 24 72 65 66 | 3d 20 24 31 3b 20 24 6e | $ref|= $1; $n|
|00000c80| 75 6d 31 3d 20 24 32 3b | 20 24 6e 75 6d 32 3d 20 |um1= $2;| $num2= |
|00000c90| 24 33 3b 20 24 74 65 78 | 74 3d 20 24 34 3b 0a 20 |$3; $tex|t= $4;. |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000cb0| 20 20 20 6e 65 78 74 20 | 75 6e 6c 65 73 73 20 24 | next |unless $|
|00000cc0| 6e 75 6d 31 20 3d 3d 20 | 24 73 65 63 74 69 6f 6e |num1 == |$section|
|00000cd0| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;. | |
|00000ce0| 20 20 20 20 20 20 26 63 | 61 6c 6c 28 27 73 74 61 | &c|all('sta|
|00000cf0| 72 74 69 6e 64 65 78 69 | 74 65 6d 27 2c 24 72 65 |rtindexi|tem',$re|
|00000d00| 66 2c 22 51 24 6e 75 6d | 31 2e 24 6e 75 6d 32 22 |f,"Q$num|1.$num2"|
|00000d10| 2c 22 51 75 65 73 74 69 | 6f 6e 20 24 6e 75 6d 31 |,"Questi|on $num1|
|00000d20| 2e 24 6e 75 6d 32 22 29 | 3b 0a 20 20 20 20 20 20 |.$num2")|;. |
|00000d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 26 74 | | &t|
|00000d40| 65 78 74 28 24 74 65 78 | 74 29 3b 0a 20 20 20 20 |ext($tex|t);. |
|00000d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d60| 26 63 61 6c 6c 28 27 65 | 6e 64 69 6e 64 65 78 69 |&call('e|ndindexi|
|00000d70| 74 65 6d 27 29 3b 0a 20 | 20 20 20 20 20 20 20 20 |tem');. | |
|00000d80| 20 20 20 20 20 20 20 7d | 0a 20 20 20 20 20 20 20 | }|. |
|00000d90| 20 20 20 20 20 7d 0a 20 | 20 20 20 20 20 20 20 20 | }. | |
|00000da0| 20 20 20 26 63 61 6c 6c | 28 27 65 6e 64 69 6e 64 | &call|('endind|
|00000db0| 65 78 27 29 3b 0a 20 20 | 20 20 20 20 20 20 7d 0a |ex');. | }.|
|00000dc0| 20 20 20 20 7d 20 65 6c | 73 69 66 20 28 73 2f 5e | } el|sif (s/^|
|00000dd0| 5c 5c 71 75 65 73 74 69 | 6f 6e 20 5c 64 7b 32 7d |\\questi|on \d{2}|
|00000de0| 5b 61 2d 7a 5d 7b 33 7d | 28 28 3a 5c 77 2b 29 3f |[a-z]{3}|((:\w+)?|
|00000df0| 29 20 2b 2f 2f 29 20 7b | 0a 20 20 20 20 20 20 20 |) +//) {|. |
|00000e00| 20 24 6c 69 6e 65 3d 20 | 24 5f 3b 0a 20 20 20 20 | $line= |$_;. |
|00000e10| 20 20 20 20 24 71 75 65 | 73 74 69 6f 6e 2b 2b 3b | $que|stion++;|
|00000e20| 0a 20 20 20 20 20 20 20 | 20 24 71 72 65 66 73 74 |. | $qrefst|
|00000e30| 72 69 6e 67 3d 20 24 31 | 3b 0a 20 20 20 20 20 20 |ring= $1|;. |
|00000e40| 20 20 24 71 72 65 66 73 | 74 72 69 6e 67 3d 20 22 | $qrefs|tring= "|
|00000e50| 71 5f 24 7b 73 65 63 74 | 69 6f 6e 7d 5f 24 71 75 |q_${sect|ion}_$qu|
|00000e60| 65 73 74 69 6f 6e 22 20 | 75 6e 6c 65 73 73 20 24 |estion" |unless $|
|00000e70| 71 72 65 66 73 74 72 69 | 6e 67 20 3d 7e 20 73 2f |qrefstri|ng =~ s/|
|00000e80| 5e 3a 2f 2f 3b 0a 20 20 | 20 20 20 20 20 20 70 72 |^://;. | pr|
|00000e90| 69 6e 74 20 55 20 22 51 | 20 24 71 72 65 66 73 74 |int U "Q| $qrefst|
|00000ea0| 72 69 6e 67 20 24 73 65 | 63 74 69 6f 6e 2e 24 71 |ring $se|ction.$q|
|00000eb0| 75 65 73 74 69 6f 6e 20 | 24 6c 69 6e 65 5c 6e 22 |uestion |$line\n"|
|00000ec0| 3b 0a 20 20 20 20 20 20 | 20 20 24 7c 3d 31 3b 20 |;. | $|=1; |
|00000ed0| 70 72 69 6e 74 20 22 51 | 24 73 65 63 74 69 6f 6e |print "Q|$section|
|00000ee0| 2e 24 71 75 65 73 74 69 | 6f 6e 22 2c 27 20 27 78 |.$questi|on",' 'x|
|00000ef0| 31 30 2c 22 5c 72 22 3b | 20 24 7c 3d 30 3b 0a 20 |10,"\r";| $|=0;. |
|00000f00| 20 20 20 20 20 20 20 26 | 63 61 6c 6c 28 27 65 6e | &|call('en|
|00000f10| 64 70 61 72 61 27 29 3b | 0a 20 20 20 20 20 20 20 |dpara');|. |
|00000f20| 20 26 63 61 6c 6c 28 27 | 73 74 61 72 74 6d 69 6e | &call('|startmin|
|00000f30| 6f 72 68 65 61 64 69 6e | 67 27 2c 24 71 72 65 66 |orheadin|g',$qref|
|00000f40| 73 74 72 69 6e 67 2c 0a | 20 20 20 20 20 20 20 20 |string,.| |
|00000f50| 20 20 20 20 20 20 22 51 | 75 65 73 74 69 6f 6e 20 | "Q|uestion |
|00000f60| 24 73 65 63 74 69 6f 6e | 2e 24 71 75 65 73 74 69 |$section|.$questi|
|00000f70| 6f 6e 22 2c 0a 20 20 20 | 20 20 20 20 20 20 20 20 |on",. | |
|00000f80| 20 20 20 24 71 75 65 73 | 74 69 6f 6e 20 3c 20 24 | $ques|tion < $|
|00000f90| 6d 61 78 71 75 65 73 74 | 69 6f 6e 5b 24 73 65 63 |maxquest|ion[$sec|
|00000fa0| 74 69 6f 6e 5d 20 3f 20 | 22 51 75 65 73 74 69 6f |tion] ? |"Questio|
|00000fb0| 6e 20 24 73 65 63 74 69 | 6f 6e 2e 22 2e 28 24 71 |n $secti|on.".($q|
|00000fc0| 75 65 73 74 69 6f 6e 2b | 31 29 20 3a 0a 20 20 20 |uestion+|1) :. |
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 20 24 73 65 63 74 | | $sect|
|00000fe0| 69 6f 6e 20 3c 20 24 6d | 61 78 73 65 63 74 69 6f |ion < $m|axsectio|
|00000ff0| 6e 20 3f 20 22 51 75 65 | 73 74 69 6f 6e 20 22 2e |n ? "Que|stion ".|
|00001000| 28 24 73 65 63 74 69 6f | 6e 2b 31 29 2e 22 2e 31 |($sectio|n+1).".1|
|00001010| 22 20 3a 20 27 27 2c 0a | 20 20 20 20 20 20 20 20 |" : '',.| |
|00001020| 20 20 20 20 20 20 24 71 | 75 65 73 74 69 6f 6e 20 | $q|uestion |
|00001030| 3e 20 31 20 3f 20 22 51 | 75 65 73 74 69 6f 6e 20 |> 1 ? "Q|uestion |
|00001040| 24 73 65 63 74 69 6f 6e | 2e 22 2e 28 24 71 75 65 |$section|.".($que|
|00001050| 73 74 69 6f 6e 2d 31 29 | 20 3a 0a 20 20 20 20 20 |stion-1)| :. |
|00001060| 20 20 20 20 20 20 20 20 | 20 24 73 65 63 74 69 6f | | $sectio|
|00001070| 6e 20 3e 20 31 20 3f 20 | 22 51 75 65 73 74 69 6f |n > 1 ? |"Questio|
|00001080| 6e 20 22 2e 28 24 73 65 | 63 74 69 6f 6e 2d 31 29 |n ".($se|ction-1)|
|00001090| 2e 27 2e 27 2e 28 24 6d | 61 78 71 75 65 73 74 69 |.'.'.($m|axquesti|
|000010a0| 6f 6e 5b 24 73 65 63 74 | 69 6f 6e 2d 31 5d 29 20 |on[$sect|ion-1]) |
|000010b0| 3a 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:. | |
|000010c0| 27 54 6f 70 27 2c 0a 20 | 20 20 20 20 20 20 20 20 |'Top',. | |
|000010d0| 20 20 20 20 20 22 53 65 | 63 74 69 6f 6e 20 24 73 | "Se|ction $s|
|000010e0| 65 63 74 69 6f 6e 22 29 | 3b 0a 20 20 20 20 20 20 |ection")|;. |
|000010f0| 20 20 26 74 65 78 74 28 | 22 51 75 65 73 74 69 6f | &text(|"Questio|
|00001100| 6e 20 24 73 65 63 74 69 | 6f 6e 2e 24 71 75 65 73 |n $secti|on.$ques|
|00001110| 74 69 6f 6e 2e 20 20 24 | 6c 69 6e 65 22 29 3b 0a |tion. $|line");.|
|00001120| 20 20 20 20 20 20 20 20 | 26 63 61 6c 6c 28 27 65 | |&call('e|
|00001130| 6e 64 6d 69 6e 6f 72 68 | 65 61 64 69 6e 67 27 29 |ndminorh|eading')|
|00001140| 3b 0a 20 20 20 20 7d 20 | 65 6c 73 69 66 20 28 73 |;. } |elsif (s|
|00001150| 2f 5e 5c 5c 6f 6e 6c 79 | 20 2b 2f 2f 29 20 7b 0a |/^\\only| +//) {.|
|00001160| 20 20 20 20 20 20 20 20 | 40 73 61 76 65 6f 75 74 | |@saveout|
|00001170| 70 75 74 73 3d 20 40 6f | 75 74 70 75 74 73 3b 0a |puts= @o|utputs;.|
|00001180| 20 20 20 20 20 20 20 20 | 40 6f 75 74 70 75 74 73 | |@outputs|
|00001190| 3d 28 29 3b 0a 20 20 20 | 20 20 20 20 20 66 6f 72 |=();. | for|
|000011a0| 20 24 78 20 28 73 70 6c | 69 74 28 2f 5c 73 2b 2f | $x (spl|it(/\s+/|
|000011b0| 2c 24 5f 29 29 20 7b 0a | 20 20 20 20 20 20 20 20 |,$_)) {.| |
|000011c0| 20 20 20 20 70 75 73 68 | 28 40 6f 75 74 70 75 74 | push|(@output|
|000011d0| 73 2c 24 78 29 20 69 66 | 20 67 72 65 70 28 24 78 |s,$x) if| grep($x|
|000011e0| 20 65 71 20 24 5f 2c 20 | 40 73 61 76 65 6f 75 74 | eq $_, |@saveout|
|000011f0| 70 75 74 73 29 3b 0a 20 | 20 20 20 20 20 20 20 7d |puts);. | }|
|00001200| 0a 20 20 20 20 7d 20 65 | 6c 73 69 66 20 28 73 2f |. } e|lsif (s/|
|00001210| 5e 5c 5c 65 6e 64 6f 6e | 6c 79 24 2f 2f 29 20 7b |^\\endon|ly$//) {|
|00001220| 0a 20 20 20 20 20 20 20 | 20 40 6f 75 74 70 75 74 |. | @output|
|00001230| 73 3d 20 40 73 61 76 65 | 6f 75 74 70 75 74 73 3b |s= @save|outputs;|
|00001240| 0a 20 20 20 20 7d 20 65 | 6c 73 69 66 20 28 73 2f |. } e|lsif (s/|
|00001250| 5e 5c 5c 63 6f 70 79 74 | 6f 20 2b 2f 2f 29 20 7b |^\\copyt|o +//) {|
|00001260| 0a 20 20 20 20 20 20 20 | 20 24 66 68 3d 20 24 27 |. | $fh= $'|
|00001270| 3b 0a 20 20 20 20 20 20 | 20 20 77 68 69 6c 65 28 |;. | while(|
|00001280| 3c 3e 29 20 7b 0a 20 20 | 20 20 20 20 20 20 20 20 |<>) {. | |
|00001290| 20 20 6c 61 73 74 20 69 | 66 20 6d 2f 5e 5c 5c 65 | last i|f m/^\\e|
|000012a0| 6e 64 63 6f 70 79 24 2f | 3b 0a 20 20 20 20 20 20 |ndcopy$/|;. |
|000012b0| 20 20 20 20 20 20 77 68 | 69 6c 65 20 28 73 2f 5e | wh|ile (s/^|
|000012c0| 28 5b 5e 5c 60 5d 2a 29 | 5c 60 2f 2f 29 20 7b 0a |([^\`]*)|\`//) {.|
|000012d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000012e0| 70 72 69 6e 74 20 24 66 | 68 20 24 31 3b 0a 20 20 |print $f|h $1;. |
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 2f | | m/|
|00001300| 28 5b 5e 5c 5c 5d 29 5c | 60 2f 20 7c 7c 20 77 61 |([^\\])\|`/ || wa|
|00001310| 72 6e 20 22 60 24 5f 27 | 22 3b 0a 20 20 20 20 20 |rn "`$_'|";. |
|00001320| 20 20 20 20 20 20 20 20 | 20 20 20 24 5f 3d 20 24 | | $_= $|
|00001330| 27 3b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |';. | |
|00001340| 20 20 20 24 63 6d 64 3d | 20 24 60 2e 24 31 3b 0a | $cmd=| $`.$1;.|
|00001350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001360| 24 69 74 3d 20 60 24 63 | 6d 64 60 3b 20 63 68 6f |$it= `$c|md`; cho|
|00001370| 70 20 24 69 74 3b 0a 20 | 20 20 20 20 20 20 20 20 |p $it;. | |
|00001380| 20 20 20 20 20 20 20 70 | 72 69 6e 74 20 24 66 68 | p|rint $fh|
|00001390| 20 24 69 74 3b 0a 20 20 | 20 20 20 20 20 20 20 20 | $it;. | |
|000013a0| 20 20 7d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | }. | |
|000013b0| 70 72 69 6e 74 20 24 66 | 68 20 24 5f 3b 0a 20 20 |print $f|h $_;. |
|000013c0| 20 20 20 20 20 20 7d 0a | 20 20 20 20 7d 20 65 6c | }.| } el|
|000013d0| 73 69 66 20 28 6d 2f 5c | 5c 69 6e 64 65 78 24 2f |sif (m/\|\index$/|
|000013e0| 29 20 7b 0a 20 20 20 20 | 20 20 20 20 26 63 61 6c |) {. | &cal|
|000013f0| 6c 28 27 73 74 61 72 74 | 69 6e 64 65 78 27 29 3b |l('start|index');|
|00001400| 0a 20 20 20 20 20 20 20 | 20 66 6f 72 20 24 74 68 |. | for $th|
|00001410| 69 73 78 72 20 28 40 78 | 72 65 66 64 62 29 20 7b |isxr (@x|refdb) {|
|00001420| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 24 5f 3d |. | $_=|
|00001430| 20 24 74 68 69 73 78 72 | 3b 0a 20 20 20 20 20 20 | $thisxr|;. |
|00001440| 20 20 20 20 20 20 63 68 | 6f 70 3b 0a 20 20 20 20 | ch|op;. |
|00001450| 20 20 20 20 20 20 20 20 | 69 66 20 28 6d 2f 5e 51 | |if (m/^Q|
|00001460| 20 28 5c 77 2b 29 20 28 | 5c 64 2b 5c 2e 5c 64 2b | (\w+) (|\d+\.\d+|
|00001470| 29 20 28 2e 2a 29 24 2f | 29 20 7b 0a 20 20 20 20 |) (.*)$/|) {. |
|00001480| 20 20 20 20 20 20 20 20 | 20 20 20 20 24 72 65 66 | | $ref|
|00001490| 3d 20 24 31 3b 20 24 6e | 75 6d 3d 20 24 32 3b 20 |= $1; $n|um= $2; |
|000014a0| 24 74 65 78 74 3d 20 24 | 33 3b 0a 20 20 20 20 20 |$text= $|3;. |
|000014b0| 20 20 20 20 20 20 20 20 | 20 20 20 26 63 61 6c 6c | | &call|
|000014c0| 28 27 73 74 61 72 74 69 | 6e 64 65 78 69 74 65 6d |('starti|ndexitem|
|000014d0| 27 2c 24 72 65 66 2c 22 | 51 24 6e 75 6d 22 2c 22 |',$ref,"|Q$num","|
|000014e0| 51 75 65 73 74 69 6f 6e | 20 24 6e 75 6d 22 29 3b |Question| $num");|
|000014f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001500| 20 26 74 65 78 74 28 24 | 74 65 78 74 29 3b 0a 20 | &text($|text);. |
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 26 | | &|
|00001520| 63 61 6c 6c 28 27 65 6e | 64 69 6e 64 65 78 69 74 |call('en|dindexit|
|00001530| 65 6d 27 29 3b 0a 20 20 | 20 20 20 20 20 20 20 20 |em');. | |
|00001540| 20 20 7d 20 65 6c 73 69 | 66 20 28 6d 2f 5e 53 20 | } elsi|f (m/^S |
|00001550| 28 5c 64 2b 29 20 28 2e | 2a 29 24 2f 29 20 7b 0a |(\d+) (.|*)$/) {.|
|00001560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001570| 24 6e 75 6d 3d 20 24 31 | 3b 20 24 74 65 78 74 3d |$num= $1|; $text=|
|00001580| 20 24 32 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 | $2;. | |
|00001590| 20 20 20 20 20 6e 65 78 | 74 20 75 6e 6c 65 73 73 | nex|t unless|
|000015a0| 20 24 6e 75 6d 3b 0a 20 | 20 20 20 20 20 20 20 20 | $num;. | |
|000015b0| 20 20 20 20 20 20 20 26 | 63 61 6c 6c 28 27 73 74 | &|call('st|
|000015c0| 61 72 74 69 6e 64 65 78 | 6d 61 69 6e 69 74 65 6d |artindex|mainitem|
|000015d0| 27 2c 22 73 5f 24 6e 75 | 6d 22 2c 0a 20 20 20 20 |',"s_$nu|m",. |
|000015e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015f0| 20 20 22 53 65 63 74 69 | 6f 6e 20 24 6e 75 6d 2e | "Secti|on $num.|
|00001600| 22 2c 22 53 65 63 74 69 | 6f 6e 20 24 6e 75 6d 22 |","Secti|on $num"|
|00001610| 29 3b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |);. | |
|00001620| 20 20 20 26 74 65 78 74 | 28 24 74 65 78 74 29 3b | &text|($text);|
|00001630| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001640| 20 26 63 61 6c 6c 28 27 | 65 6e 64 69 6e 64 65 78 | &call('|endindex|
|00001650| 69 74 65 6d 27 29 3b 0a | 20 20 20 20 20 20 20 20 |item');.| |
|00001660| 20 20 20 20 7d 20 65 6c | 73 65 20 7b 0a 20 20 20 | } el|se {. |
|00001670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 61 72 | | war|
|00001680| 6e 20 24 5f 3b 0a 20 20 | 20 20 20 20 20 20 20 20 |n $_;. | |
|00001690| 20 20 7d 0a 20 20 20 20 | 20 20 20 20 7d 0a 20 20 | }. | }. |
|000016a0| 20 20 20 20 20 20 26 63 | 61 6c 6c 28 27 65 6e 64 | &c|all('end|
|000016b0| 69 6e 64 65 78 27 29 3b | 0a 20 20 20 20 7d 20 65 |index');|. } e|
|000016c0| 6c 73 69 66 20 28 6d 2f | 5e 5c 5c 63 61 6c 6c 2d |lsif (m/|^\\call-|
|000016d0| 28 5c 77 2b 29 20 2b 28 | 5c 77 2b 29 5c 73 2a 28 |(\w+) +(|\w+)\s*(|
|000016e0| 2e 2a 29 24 2f 29 20 7b | 0a 20 20 20 20 20 20 20 |.*)$/) {|. |
|000016f0| 20 24 66 6e 3d 20 24 31 | 2e 27 5f 27 2e 24 32 3b | $fn= $1|.'_'.$2;|
|00001700| 0a 20 20 20 20 20 20 20 | 20 65 76 61 6c 20 7b 20 |. | eval { |
|00001710| 26 24 66 6e 28 24 33 29 | 3b 20 7d 3b 0a 20 20 20 |&$fn($3)|; };. |
|00001720| 20 20 20 20 20 77 61 72 | 6e 20 24 40 20 69 66 20 | war|n $@ if |
|00001730| 6c 65 6e 67 74 68 28 24 | 40 29 3b 0a 20 20 20 20 |length($|@);. |
|00001740| 7d 20 65 6c 73 69 66 20 | 28 6d 2f 5e 5c 5c 63 61 |} elsif |(m/^\\ca|
|00001750| 6c 6c 20 2b 28 5c 77 2b | 29 5c 73 2a 28 2e 2a 29 |ll +(\w+|)\s*(.*)|
|00001760| 24 2f 29 20 7b 0a 20 20 | 20 20 20 20 20 20 65 76 |$/) {. | ev|
|00001770| 61 6c 20 7b 20 26 63 61 | 6c 6c 28 24 31 2c 24 32 |al { &ca|ll($1,$2|
|00001780| 29 3b 20 7d 3b 0a 20 20 | 20 20 20 20 20 20 77 61 |); };. | wa|
|00001790| 72 6e 20 24 40 20 69 66 | 20 6c 65 6e 67 74 68 28 |rn $@ if| length(|
|000017a0| 24 40 29 3b 0a 20 20 20 | 20 7d 20 65 6c 73 69 66 |$@);. | } elsif|
|000017b0| 20 28 73 2f 5e 5c 5c 73 | 65 74 20 2b 28 5c 77 2b | (s/^\\s|et +(\w+|
|000017c0| 29 5c 73 2a 2f 2f 29 20 | 7b 0a 20 20 20 20 20 20 |)\s*//) |{. |
|000017d0| 20 20 24 73 76 61 6c 75 | 65 3d 20 24 27 3b 20 24 | $svalu|e= $'; $|
|000017e0| 73 76 61 72 69 3d 20 24 | 31 3b 0a 20 20 20 20 20 |svari= $|1;. |
|000017f0| 20 20 20 65 76 61 6c 28 | 22 5c 24 75 73 65 72 5f | eval(|"\$user_|
|00001800| 24 73 76 61 72 69 3d 5c | 24 73 76 61 6c 75 65 22 |$svari=\|$svalue"|
|00001810| 29 3b 20 24 40 20 26 26 | 20 77 61 72 6e 20 22 73 |); $@ &&| warn "s|
|00001820| 65 74 74 69 6e 67 20 24 | 73 76 61 6c 75 65 20 66 |etting $|svalue f|
|00001830| 61 69 6c 65 64 3a 20 24 | 40 5c 6e 22 3b 0a 20 20 |ailed: $|@\n";. |
|00001840| 20 20 7d 20 65 6c 73 69 | 66 20 28 6d 2f 5e 5c 5c | } elsi|f (m/^\\|
|00001850| 76 65 72 62 61 74 69 6d | 24 2f 29 20 7b 0a 20 20 |verbatim|$/) {. |
|00001860| 20 20 20 20 20 20 26 63 | 61 6c 6c 28 27 73 74 61 | &c|all('sta|
|00001870| 72 74 76 65 72 62 61 74 | 69 6d 27 29 3b 0a 20 20 |rtverbat|im');. |
|00001880| 20 20 20 20 20 20 77 68 | 69 6c 65 20 28 3c 3e 29 | wh|ile (<>)|
|00001890| 20 7b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 63 | {. | c|
|000018a0| 68 6f 70 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |hop;. | |
|000018b0| 20 6c 61 73 74 20 69 66 | 20 6d 2f 5e 5c 5c 65 6e | last if| m/^\\en|
|000018c0| 64 76 65 72 62 61 74 69 | 6d 24 2f 3b 0a 20 20 20 |dverbati|m$/;. |
|000018d0| 20 20 20 20 20 20 20 20 | 20 26 63 61 6c 6c 28 27 | | &call('|
|000018e0| 76 65 72 62 61 74 69 6d | 27 2c 24 5f 29 3b 0a 20 |verbatim|',$_);. |
|000018f0| 20 20 20 20 20 20 20 7d | 0a 20 20 20 20 20 20 20 | }|. |
|00001900| 20 26 63 61 6c 6c 28 27 | 65 6e 64 76 65 72 62 61 | &call('|endverba|
|00001910| 74 69 6d 27 29 3b 0a 20 | 20 20 20 7d 20 65 6c 73 |tim');. | } els|
|00001920| 65 20 7b 0a 20 20 20 20 | 20 20 20 20 73 2f 5c 2e |e {. | s/\.|
|00001930| 24 2f 5c 2e 20 2f 3b 0a | 20 20 20 20 20 20 20 20 |$/\. /;.| |
|00001940| 26 74 65 78 74 28 24 5f | 2e 22 20 22 29 3b 0a 20 |&text($_|." ");. |
|00001950| 20 20 20 7d 0a 7d 0a 0a | 70 72 69 6e 74 20 27 20 | }.}..|print ' |
|00001960| 27 78 32 35 2c 22 5c 72 | 22 3b 0a 26 63 61 6c 6c |'x25,"\r|";.&call|
|00001970| 28 27 66 69 6e 69 73 68 | 27 29 3b 0a 72 65 6e 61 |('finish|');.rena|
|00001980| 6d 65 28 22 24 70 72 65 | 66 69 78 2e 78 72 65 66 |me("$pre|fix.xref|
|00001990| 64 62 2d 6e 65 77 22 2c | 22 24 70 72 65 66 69 78 |db-new",|"$prefix|
|000019a0| 2e 78 72 65 66 64 62 22 | 29 20 7c 7c 20 77 61 72 |.xrefdb"|) || war|
|000019b0| 6e 20 22 72 65 6e 61 6d | 65 20 78 72 65 66 64 62 |n "renam|e xrefdb|
|000019c0| 3a 20 24 21 22 3b 0a 65 | 78 69 74 20 30 3b 0a 0a |: $!";.e|xit 0;..|
|000019d0| 0a 73 75 62 20 74 65 78 | 74 20 7b 0a 20 20 20 20 |.sub tex|t {. |
|000019e0| 6c 6f 63 61 6c 28 24 69 | 6e 2c 24 72 68 73 2c 24 |local($i|n,$rhs,$|
|000019f0| 77 6f 72 64 2c 24 72 65 | 66 6e 2c 24 72 65 66 74 |word,$re|fn,$reft|
|00001a00| 2c 24 66 6e 2c 24 73 74 | 79 6c 65 29 3b 0a 20 20 |,$fn,$st|yle);. |
|00001a10| 20 20 24 69 6e 3d 20 22 | 24 68 6f 6c 64 6f 76 65 | $in= "|$holdove|
|00001a20| 72 24 5f 5b 30 5d 22 3b | 0a 20 20 20 20 24 68 6f |r$_[0]";|. $ho|
|00001a30| 6c 64 6f 76 65 72 3d 20 | 27 27 3b 0a 20 20 20 20 |ldover= |'';. |
|00001a40| 77 68 69 6c 65 20 28 24 | 69 6e 20 3d 7e 20 6d 2f |while ($|in =~ m/|
|00001a50| 5c 5c 2f 29 20 7b 0a 23 | 70 72 69 6e 74 20 53 54 |\\/) {.#|print ST|
|00001a60| 44 45 52 52 20 22 3e 24 | 60 23 23 24 27 5c 6e 22 |DERR ">$|`##$'\n"|
|00001a70| 3b 0a 20 20 20 20 20 20 | 20 20 24 72 68 73 3d 24 |;. | $rhs=$|
|00001a80| 27 3b 0a 20 20 20 20 20 | 20 20 20 26 63 61 6c 6c |';. | &call|
|00001a90| 28 27 74 65 78 74 27 2c | 24 60 29 3b 0a 20 20 20 |('text',|$`);. |
|00001aa0| 20 20 20 20 20 24 5f 3d | 20 24 72 68 73 3b 0a 20 | $_=| $rhs;. |
|00001ab0| 20 20 20 20 20 20 20 69 | 66 20 28 6d 2f 5e 5c 77 | i|f (m/^\w|
|00001ac0| 2b 20 24 2f 29 20 7b 0a | 20 20 20 20 20 20 20 20 |+ $/) {.| |
|00001ad0| 20 20 20 20 24 68 6f 6c | 64 6f 76 65 72 3d 20 22 | $hol|dover= "|
|00001ae0| 5c 5c 24 26 22 3b 0a 20 | 20 20 20 20 20 20 20 20 |\\$&";. | |
|00001af0| 20 20 20 24 69 6e 3d 20 | 27 27 3b 0a 20 20 20 20 | $in= |'';. |
|00001b00| 20 20 20 20 7d 20 65 6c | 73 69 66 20 28 73 2f 5e | } el|sif (s/^|
|00001b10| 66 6e 5c 73 2b 28 5b 5e | 5c 73 5c 5c 5d 2a 5c 77 |fn\s+([^|\s\\]*\w|
|00001b20| 29 2f 2f 29 20 7b 0a 20 | 20 20 20 20 20 20 20 20 |)//) {. | |
|00001b30| 20 20 20 24 69 6e 3d 20 | 24 5f 3b 0a 20 20 20 20 | $in= |$_;. |
|00001b40| 20 20 20 20 20 20 20 20 | 24 77 6f 72 64 3d 20 24 | |$word= $|
|00001b50| 31 3b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 26 |1;. | &|
|00001b60| 63 61 6c 6c 28 27 63 6f | 75 72 69 65 72 27 29 3b |call('co|urier');|
|00001b70| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 26 63 61 |. | &ca|
|00001b80| 6c 6c 28 27 74 65 78 74 | 27 2c 24 77 6f 72 64 29 |ll('text|',$word)|
|00001b90| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 26 63 |;. | &c|
|00001ba0| 61 6c 6c 28 27 65 6e 64 | 63 6f 75 72 69 65 72 27 |all('end|courier'|
|00001bb0| 29 3b 0a 20 20 20 20 20 | 20 20 20 7d 20 65 6c 73 |);. | } els|
|00001bc0| 69 66 20 28 73 2f 5e 74 | 61 62 5c 73 2b 28 5c 64 |if (s/^t|ab\s+(\d|
|00001bd0| 2b 29 5c 73 2b 2f 2f 29 | 20 7b 0a 20 20 20 20 20 |+)\s+//)| {. |
|00001be0| 20 20 20 20 20 20 20 24 | 69 6e 3d 20 24 5f 3b 20 | $|in= $_; |
|00001bf0| 26 63 61 6c 6c 28 27 74 | 61 62 27 2c 24 31 29 3b |&call('t|ab',$1);|
|00001c00| 0a 20 20 20 20 20 20 20 | 20 7d 20 65 6c 73 69 66 |. | } elsif|
|00001c10| 20 28 73 2f 5e 6e 6c 5c | 73 2b 2f 2f 29 20 7b 0a | (s/^nl\|s+//) {.|
|00001c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 24 69 6e 3d | | $in=|
|00001c30| 20 24 5f 3b 20 26 63 61 | 6c 6c 28 27 6e 65 77 6c | $_; &ca|ll('newl|
|00001c40| 69 6e 65 27 29 3b 0a 20 | 20 20 20 20 20 20 20 7d |ine');. | }|
|00001c50| 20 65 6c 73 69 66 20 28 | 73 2f 5e 71 72 65 66 5c | elsif (|s/^qref\|
|00001c60| 73 2b 28 5c 77 2b 29 2f | 2f 29 20 7b 0a 20 20 20 |s+(\w+)/|/) {. |
|00001c70| 20 20 20 20 20 20 20 20 | 20 24 72 65 66 6e 3d 20 | | $refn= |
|00001c80| 24 71 72 65 66 6e 7b 24 | 31 7d 3b 0a 20 20 20 20 |$qrefn{$|1};. |
|00001c90| 20 20 20 20 20 20 20 20 | 24 72 65 66 74 3d 20 24 | |$reft= $|
|00001ca0| 71 72 65 66 74 7b 24 31 | 7d 3b 0a 20 20 20 20 20 |qreft{$1|};. |
|00001cb0| 20 20 20 20 20 20 20 69 | 66 20 28 21 6c 65 6e 67 | i|f (!leng|
|00001cc0| 74 68 28 24 72 65 66 6e | 29 29 20 7b 0a 20 20 20 |th($refn|)) {. |
|00001cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 61 72 | | war|
|00001ce0| 6e 20 22 75 6e 6b 6e 6f | 77 6e 20 71 75 65 73 74 |n "unkno|wn quest|
|00001cf0| 69 6f 6e 20 60 24 31 27 | 22 3b 0a 20 20 20 20 20 |ion `$1'|";. |
|00001d00| 20 20 20 20 20 20 20 7d | 0a 20 20 20 20 20 20 20 | }|. |
|00001d10| 20 20 20 20 20 24 69 6e | 3d 20 22 24 60 5c 5c 70 | $in|= "$`\\p|
|00001d20| 61 67 65 72 65 66 3a 24 | 31 3a 24 72 65 66 6e 3a |ageref:$|1:$refn:|
|00001d30| 24 72 65 66 74 5c 5c 65 | 6e 64 70 61 67 65 72 65 |$reft\\e|ndpagere|
|00001d40| 66 2e 24 5f 22 3b 0a 20 | 20 20 20 20 20 20 20 7d |f.$_";. | }|
|00001d50| 20 65 6c 73 69 66 20 28 | 73 2f 5e 70 61 67 65 72 | elsif (|s/^pager|
|00001d60| 65 66 3a 28 5c 77 2b 29 | 3a 28 5b 5e 3a 5c 6e 5d |ef:(\w+)|:([^:\n]|
|00001d70| 2b 29 3a 2f 2f 29 20 7b | 0a 20 20 20 20 20 20 20 |+)://) {|. |
|00001d80| 20 20 20 20 20 24 69 6e | 3d 20 24 5f 3b 0a 20 20 | $in|= $_;. |
|00001d90| 20 20 20 20 20 20 20 20 | 20 20 26 63 61 6c 6c 28 | | &call(|
|00001da0| 27 70 61 67 65 72 65 66 | 27 2c 24 31 2c 24 32 29 |'pageref|',$1,$2)|
|00001db0| 3b 0a 20 20 20 20 20 20 | 20 20 7d 20 65 6c 73 69 |;. | } elsi|
|00001dc0| 66 20 28 73 2f 5e 65 6e | 64 70 61 67 65 72 65 66 |f (s/^en|dpageref|
|00001dd0| 5c 2e 2f 2f 29 20 7b 0a | 20 20 20 20 20 20 20 20 |\.//) {.| |
|00001de0| 20 20 20 20 24 69 6e 3d | 20 24 5f 3b 20 26 63 61 | $in=| $_; &ca|
|00001df0| 6c 6c 28 27 65 6e 64 70 | 61 67 65 72 65 66 27 29 |ll('endp|ageref')|
|00001e00| 3b 0a 20 20 20 20 20 20 | 20 20 7d 20 65 6c 73 69 |;. | } elsi|
|00001e10| 66 20 28 73 2f 5e 28 5c | 77 2b 29 5c 7b 2f 2f 29 |f (s/^(\|w+)\{//)|
|00001e20| 20 7b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 24 | {. | $|
|00001e30| 69 6e 3d 20 24 5f 3b 20 | 24 66 6e 3d 20 24 31 3b |in= $_; |$fn= $1;|
|00001e40| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 65 76 61 |. | eva|
|00001e50| 6c 20 7b 20 26 63 61 6c | 6c 28 22 24 66 6e 22 29 |l { &cal|l("$fn")|
|00001e60| 3b 20 7d 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |; };. | |
|00001e70| 20 69 66 20 28 6c 65 6e | 67 74 68 28 24 40 29 29 | if (len|gth($@))|
|00001e80| 20 7b 20 77 61 72 6e 20 | 24 40 3b 20 24 66 6e 3d | { warn |$@; $fn=|
|00001e90| 20 27 78 27 3b 20 7d 0a | 20 20 20 20 20 20 20 20 | 'x'; }.| |
|00001ea0| 20 20 20 20 70 75 73 68 | 28 40 73 74 79 6c 65 73 | push|(@styles|
|00001eb0| 2c 24 66 6e 29 3b 0a 20 | 20 20 20 20 20 20 20 7d |,$fn);. | }|
|00001ec0| 20 65 6c 73 69 66 20 28 | 73 2f 5e 5c 7d 2f 2f 29 | elsif (|s/^\}//)|
|00001ed0| 20 7b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 24 | {. | $|
|00001ee0| 69 6e 3d 20 24 5f 3b 0a | 20 20 20 20 20 20 20 20 |in= $_;.| |
|00001ef0| 20 20 20 20 24 66 6e 3d | 20 70 6f 70 28 40 73 74 | $fn=| pop(@st|
|00001f00| 79 6c 65 73 29 3b 0a 20 | 20 20 20 20 20 20 20 20 |yles);. | |
|00001f10| 20 20 20 69 66 20 28 24 | 66 6e 20 6e 65 20 27 78 | if ($|fn ne 'x|
|00001f20| 27 29 20 7b 20 26 63 61 | 6c 6c 28 22 65 6e 64 24 |') { &ca|ll("end$|
|00001f30| 66 6e 22 29 3b 20 7d 0a | 20 20 20 20 20 20 20 20 |fn"); }.| |
|00001f40| 7d 20 65 6c 73 69 66 20 | 28 73 2f 5e 5c 5c 2f 2f |} elsif |(s/^\\//|
|00001f50| 29 20 7b 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |) {. | |
|00001f60| 24 69 6e 3d 20 24 5f 3b | 0a 20 20 20 20 20 20 20 |$in= $_;|. |
|00001f70| 20 20 20 20 20 26 63 61 | 6c 6c 28 27 74 65 78 74 | &ca|ll('text|
|00001f80| 27 2c 22 5c 5c 22 29 3b | 0a 20 20 20 20 20 20 20 |',"\\");|. |
|00001f90| 20 7d 20 65 6c 73 69 66 | 20 28 73 2c 5e 28 5c 77 | } elsif| (s,^(\w|
|00001fa0| 2b 29 5c 73 2b 28 5b 2d | 41 2d 5a 61 2d 7a 30 2d |+)\s+([-|A-Za-z0-|
|00001fb0| 39 2e 5c 40 3a 2f 5d 2a | 5c 77 29 2c 2c 29 20 7b |9.\@:/]*|\w),,) {|
|00001fc0| 0a 23 70 72 69 6e 74 20 | 53 54 44 45 52 52 20 22 |.#print |STDERR "|
|00001fd0| 2a 2a 24 26 2a 2a 24 5f | 5c 6e 22 3b 0a 20 20 20 |**$&**$_|\n";. |
|00001fe0| 20 20 20 20 20 20 20 20 | 20 24 69 6e 3d 20 24 5f | | $in= $_|
|00001ff0| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 24 73 |;. | $s|
|00002000| 74 79 6c 65 3d 24 31 3b | 20 24 77 6f 72 64 3d 20 |tyle=$1;| $word= |
|00002010| 24 32 3b 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |$2;. | |
|00002020| 26 63 61 6c 6c 28 24 73 | 74 79 6c 65 29 3b 0a 20 |&call($s|tyle);. |
|00002030| 20 20 20 20 20 20 20 20 | 20 20 20 26 63 61 6c 6c | | &call|
|00002040| 28 27 74 65 78 74 27 2c | 24 77 6f 72 64 29 3b 0a |('text',|$word);.|
|00002050| 20 20 20 20 20 20 20 20 | 20 20 20 20 26 63 61 6c | | &cal|
|00002060| 6c 28 22 65 6e 64 24 73 | 74 79 6c 65 22 29 3b 0a |l("end$s|tyle");.|
|00002070| 20 20 20 20 20 20 20 20 | 7d 20 65 6c 73 65 20 7b | |} else {|
|00002080| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 77 61 72 |. | war|
|00002090| 6e 20 22 75 6e 6b 6e 6f | 77 6e 20 63 6f 6e 74 72 |n "unkno|wn contr|
|000020a0| 6f 6c 20 60 5c 5c 24 5f | 27 22 3b 0a 20 20 20 20 |ol `\\$_|'";. |
|000020b0| 20 20 20 20 20 20 20 20 | 24 69 6e 3d 20 24 5f 3b | |$in= $_;|
|000020c0| 0a 20 20 20 20 20 20 20 | 20 7d 0a 20 20 20 20 7d |. | }. }|
|000020d0| 0a 20 20 20 20 26 63 61 | 6c 6c 28 27 74 65 78 74 |. &ca|ll('text|
|000020e0| 27 2c 24 69 6e 29 3b 0a | 7d 0a 0a 0a 73 75 62 20 |',$in);.|}...sub |
|000020f0| 63 61 6c 6c 20 7b 0a 20 | 20 20 20 6c 6f 63 61 6c |call {. | local|
|00002100| 20 28 24 66 6e 62 61 73 | 65 2c 20 40 63 61 6c 6c | ($fnbas|e, @call|
|00002110| 61 72 67 73 29 20 3d 20 | 40 5f 3b 0a 20 20 20 20 |args) = |@_;. |
|00002120| 6c 6f 63 61 6c 20 28 24 | 63 6f 75 74 70 75 74 29 |local ($|coutput)|
|00002130| 3b 0a 20 20 20 20 66 6f | 72 20 24 63 6f 75 74 70 |;. fo|r $coutp|
|00002140| 75 74 20 28 40 6f 75 74 | 70 75 74 73 29 20 7b 0a |ut (@out|puts) {.|
|00002150| 20 20 20 20 20 20 20 20 | 69 66 20 28 24 66 6e 62 | |if ($fnb|
|00002160| 61 73 65 20 65 71 20 27 | 74 65 78 74 27 20 26 26 |ase eq '|text' &&|
|00002170| 20 65 76 61 6c 28 22 5c | 40 24 7b 63 6f 75 74 70 | eval("\|@${coutp|
|00002180| 75 74 7d 5f 63 6d 64 73 | 22 29 29 20 7b 0a 23 70 |ut}_cmds|")) {.#p|
|00002190| 72 69 6e 74 20 53 54 44 | 45 52 52 20 22 73 70 65 |rint STD|ERR "spe|
|000021a0| 63 69 61 6c 20 68 61 6e | 64 6c 69 6e 67 20 74 65 |cial han|dling te|
|000021b0| 78 74 20 28 40 63 61 6c | 6c 61 72 67 73 29 20 66 |xt (@cal|largs) f|
|000021c0| 6f 72 20 24 63 6f 75 74 | 70 75 74 5c 6e 22 3b 0a |or $cout|put\n";.|
|000021d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 24 65 76 73 | | $evs|
|000021e0| 74 72 67 3d 20 22 5c 24 | 24 7b 63 6f 75 74 70 75 |trg= "\$|${coutpu|
|000021f0| 74 7d 5f 61 72 67 73 5b | 5c 24 23 24 7b 63 6f 75 |t}_args[|\$#${cou|
|00002200| 74 70 75 74 7d 5f 61 72 | 67 73 5d 2e 3d 5c 22 5c |tput}_ar|gs].=\"\|
|00002210| 40 63 61 6c 6c 61 72 67 | 73 5c 22 22 3b 0a 20 20 |@callarg|s\"";. |
|00002220| 20 20 20 20 20 20 20 20 | 20 20 65 76 61 6c 28 24 | | eval($|
|00002230| 65 76 73 74 72 67 29 3b | 0a 20 20 20 20 20 20 20 |evstrg);|. |
|00002240| 20 20 20 20 20 6c 65 6e | 67 74 68 28 24 40 29 20 | len|gth($@) |
|00002250| 26 26 20 77 61 72 6e 20 | 22 63 61 6c 6c 20 61 64 |&& warn |"call ad|
|00002260| 64 69 6e 67 20 66 6f 72 | 20 24 63 6f 75 74 70 75 |ding for| $coutpu|
|00002270| 74 20 28 28 24 65 76 73 | 74 72 67 29 29 3a 20 24 |t (($evs|trg)): $|
|00002280| 40 22 3b 0a 20 20 20 20 | 20 20 20 20 7d 20 65 6c |@";. | } el|
|00002290| 73 65 20 7b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |se {. | |
|000022a0| 20 24 66 6e 74 63 3d 20 | 24 63 6f 75 74 70 75 74 | $fntc= |$coutput|
|000022b0| 2e 27 5f 27 2e 24 66 6e | 62 61 73 65 3b 20 0a 20 |.'_'.$fn|base; . |
|000022c0| 20 20 20 20 20 20 20 20 | 20 20 20 26 24 66 6e 74 | | &$fnt|
|000022d0| 63 28 40 63 61 6c 6c 61 | 72 67 73 29 3b 0a 20 20 |c(@calla|rgs);. |
|000022e0| 20 20 20 20 20 20 7d 0a | 20 20 20 20 7d 0a 7d 0a | }.| }.}.|
|000022f0| 0a 0a 73 75 62 20 72 65 | 63 75 72 73 65 20 7b 0a |..sub re|curse {.|
|00002300| 20 20 20 20 6c 6f 63 61 | 6c 20 28 40 6f 75 74 70 | loca|l (@outp|
|00002310| 75 74 73 29 20 3d 20 24 | 63 6f 75 74 70 75 74 3b |uts) = $|coutput;|
|00002320| 0a 20 20 20 20 6c 6f 63 | 61 6c 20 28 24 68 6f 6c |. loc|al ($hol|
|00002330| 64 6f 76 65 72 29 3b 0a | 20 20 20 20 26 74 65 78 |dover);.| &tex|
|00002340| 74 28 24 5f 5b 30 5d 29 | 3b 0a 7d 0a 0a 0a 73 75 |t($_[0])|;.}...su|
|00002350| 62 20 61 72 67 20 7b 0a | 23 70 72 69 6e 74 20 53 |b arg {.|#print S|
|00002360| 54 44 45 52 52 20 22 61 | 72 67 28 24 5f 5b 30 5d |TDERR "a|rg($_[0]|
|00002370| 29 20 66 72 6f 6d 20 24 | 63 6f 75 74 70 75 74 5c |) from $|coutput\|
|00002380| 6e 22 3b 0a 20 20 20 20 | 24 63 6d 64 3d 20 24 5f |n";. |$cmd= $_|
|00002390| 5b 30 5d 3b 0a 20 20 20 | 20 65 76 61 6c 28 22 70 |[0];. | eval("p|
|000023a0| 75 73 68 28 5c 40 24 7b | 63 6f 75 74 70 75 74 7d |ush(\@${|coutput}|
|000023b0| 5f 63 6d 64 73 2c 5c 24 | 63 6d 64 29 3b 20 70 75 |_cmds,\$|cmd); pu|
|000023c0| 73 68 28 5c 40 24 7b 63 | 6f 75 74 70 75 74 7d 5f |sh(\@${c|output}_|
|000023d0| 61 72 67 73 2c 27 27 29 | 22 29 3b 0a 20 20 20 20 |args,'')|");. |
|000023e0| 6c 65 6e 67 74 68 28 24 | 40 29 20 26 26 20 77 61 |length($|@) && wa|
|000023f0| 72 6e 20 22 61 72 67 20 | 73 65 74 74 69 6e 67 20 |rn "arg |setting |
|00002400| 75 70 20 66 6f 72 20 24 | 63 6f 75 74 70 75 74 3a |up for $|coutput:|
|00002410| 20 24 40 22 3b 0a 7d 0a | 0a 73 75 62 20 65 6e 64 | $@";.}.|.sub end|
|00002420| 61 72 67 20 7b 0a 23 70 | 72 69 6e 74 20 53 54 44 |arg {.#p|rint STD|
|00002430| 45 52 52 20 22 65 6e 64 | 61 72 67 28 24 5f 5b 30 |ERR "end|arg($_[0|
|00002440| 5d 29 20 66 72 6f 6d 20 | 24 63 6f 75 74 70 75 74 |]) from |$coutput|
|00002450| 5c 6e 22 3b 0a 20 20 20 | 20 24 65 76 73 74 72 67 |\n";. | $evstrg|
|00002460| 3d 20 22 5c 24 24 7b 63 | 6f 75 74 70 75 74 7d 5f |= "\$${c|output}_|
|00002470| 63 6d 64 3d 20 5c 24 63 | 6d 64 3d 20 70 6f 70 28 |cmd= \$c|md= pop(|
|00002480| 5c 40 24 7b 63 6f 75 74 | 70 75 74 7d 5f 63 6d 64 |\@${cout|put}_cmd|
|00002490| 73 29 3b 20 22 2e 0a 20 | 20 20 20 20 20 20 20 20 |s); ".. | |
|000024a0| 20 20 20 20 22 5c 24 24 | 7b 63 6f 75 74 70 75 74 | "\$$|{coutput|
|000024b0| 7d 5f 61 72 67 3d 20 5c | 24 61 72 67 3d 20 70 6f |}_arg= \|$arg= po|
|000024c0| 70 28 5c 40 24 7b 63 6f | 75 74 70 75 74 7d 5f 61 |p(\@${co|utput}_a|
|000024d0| 72 67 73 29 3b 20 22 3b | 0a 20 20 20 20 65 76 61 |rgs); ";|. eva|
|000024e0| 6c 28 24 65 76 73 74 72 | 67 29 3b 0a 20 20 20 20 |l($evstr|g);. |
|000024f0| 6c 65 6e 67 74 68 28 24 | 40 29 20 26 26 20 77 61 |length($|@) && wa|
|00002500| 72 6e 20 22 65 6e 64 61 | 72 67 20 65 78 74 72 61 |rn "enda|rg extra|
|00002510| 63 74 69 6e 67 20 66 6f | 72 20 24 63 6f 75 74 70 |cting fo|r $coutp|
|00002520| 75 74 20 28 28 24 65 76 | 73 74 72 67 29 29 3a 20 |ut (($ev|strg)): |
|00002530| 24 40 22 3b 0a 23 70 72 | 69 6e 74 20 53 54 44 45 |$@";.#pr|int STDE|
|00002540| 52 52 20 22 3e 63 61 6c | 6c 20 24 63 6f 75 74 70 |RR ">cal|l $coutp|
|00002550| 75 74 20 24 63 6d 64 20 | 24 61 72 67 3c 20 28 28 |ut $cmd |$arg< ((|
|00002560| 24 65 76 73 74 72 67 29 | 29 5c 6e 22 3b 0a 20 20 |$evstrg)|)\n";. |
|00002570| 20 20 24 65 76 73 74 72 | 67 3d 20 22 26 24 7b 63 | $evstr|g= "&${c|
|00002580| 6f 75 74 70 75 74 7d 5f | 64 6f 5f 24 7b 63 6d 64 |output}_|do_${cmd|
|00002590| 7d 28 5c 24 61 72 67 29 | 22 3b 0a 20 20 20 20 65 |}(\$arg)|";. e|
|000025a0| 76 61 6c 28 24 65 76 73 | 74 72 67 29 3b 0a 20 20 |val($evs|trg);. |
|000025b0| 20 20 6c 65 6e 67 74 68 | 28 24 40 29 20 26 26 20 | length|($@) && |
|000025c0| 77 61 72 6e 20 22 65 6e | 64 61 72 67 20 72 75 6e |warn "en|darg run|
|000025d0| 6e 69 6e 67 20 24 7b 63 | 6f 75 74 70 75 74 7d 5f |ning ${c|output}_|
|000025e0| 64 6f 5f 24 7b 63 6d 64 | 7d 20 28 28 24 65 76 73 |do_${cmd|} (($evs|
|000025f0| 74 72 67 29 29 3a 20 24 | 40 22 3b 0a 7d 0a 00 00 |trg)): $|@";.}...|
|00002600| 6d 2d 61 73 63 69 69 2e | 70 6c 00 00 00 00 00 00 |m-ascii.|pl......|
|00002610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002660| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 20 20 31 |....1006|64 . 1|
|00002670| 34 34 20 00 20 20 20 31 | 34 34 20 00 20 20 20 20 |44 . 1|44 . |
|00002680| 20 20 31 31 31 35 36 20 | 20 35 37 37 36 36 31 36 | 11156 | 5776616|
|00002690| 34 35 37 20 20 31 30 35 | 36 33 00 20 30 00 00 00 |457 105|63. 0...|
|000026a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002700| 00 75 73 74 61 72 20 20 | 00 69 61 6e 00 00 00 00 |.ustar |.ian....|
|00002710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002720| 00 00 00 00 00 00 00 00 | 00 69 61 6e 00 00 00 00 |........|.ian....|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002800| 23 23 20 41 53 43 49 49 | 20 6f 75 74 70 75 74 0a |## ASCII| output.|
|00002810| 23 20 43 6f 70 79 72 69 | 67 68 74 20 28 43 29 20 |# Copyri|ght (C) |
|00002820| 31 39 39 33 2d 31 39 39 | 35 20 49 61 6e 20 4a 61 |1993-199|5 Ian Ja|
|00002830| 63 6b 73 6f 6e 2e 0a 0a | 23 20 54 68 69 73 20 66 |ckson...|# This f|
|00002840| 69 6c 65 20 69 73 20 66 | 72 65 65 20 73 6f 66 74 |ile is f|ree soft|
|00002850| 77 61 72 65 3b 20 79 6f | 75 20 63 61 6e 20 72 65 |ware; yo|u can re|
|00002860| 64 69 73 74 72 69 62 75 | 74 65 20 69 74 20 61 6e |distribu|te it an|
|00002870| 64 2f 6f 72 20 6d 6f 64 | 69 66 79 0a 23 20 69 74 |d/or mod|ify.# it|
|00002880| 20 75 6e 64 65 72 20 74 | 68 65 20 74 65 72 6d 73 | under t|he terms|
|00002890| 20 6f 66 20 74 68 65 20 | 47 4e 55 20 47 65 6e 65 | of the |GNU Gene|
|000028a0| 72 61 6c 20 50 75 62 6c | 69 63 20 4c 69 63 65 6e |ral Publ|ic Licen|
|000028b0| 73 65 20 61 73 20 70 75 | 62 6c 69 73 68 65 64 20 |se as pu|blished |
|000028c0| 62 79 0a 23 20 74 68 65 | 20 46 72 65 65 20 53 6f |by.# the| Free So|
|000028d0| 66 74 77 61 72 65 20 46 | 6f 75 6e 64 61 74 69 6f |ftware F|oundatio|
|000028e0| 6e 3b 20 65 69 74 68 65 | 72 20 76 65 72 73 69 6f |n; eithe|r versio|
|000028f0| 6e 20 32 2c 20 6f 72 20 | 28 61 74 20 79 6f 75 72 |n 2, or |(at your|
|00002900| 20 6f 70 74 69 6f 6e 29 | 0a 23 20 61 6e 79 20 6c | option)|.# any l|
|00002910| 61 74 65 72 20 76 65 72 | 73 69 6f 6e 2e 0a 0a 23 |ater ver|sion...#|
|00002920| 20 49 74 20 69 73 20 64 | 69 73 74 72 69 62 75 74 | It is d|istribut|
|00002930| 65 64 20 69 6e 20 74 68 | 65 20 68 6f 70 65 20 74 |ed in th|e hope t|
|00002940| 68 61 74 20 69 74 20 77 | 69 6c 6c 20 62 65 20 75 |hat it w|ill be u|
|00002950| 73 65 66 75 6c 2c 0a 23 | 20 62 75 74 20 57 49 54 |seful,.#| but WIT|
|00002960| 48 4f 55 54 20 41 4e 59 | 20 57 41 52 52 41 4e 54 |HOUT ANY| WARRANT|
|00002970| 59 3b 20 77 69 74 68 6f | 75 74 20 65 76 65 6e 20 |Y; witho|ut even |
|00002980| 74 68 65 20 69 6d 70 6c | 69 65 64 20 77 61 72 72 |the impl|ied warr|
|00002990| 61 6e 74 79 20 6f 66 0a | 23 20 4d 45 52 43 48 41 |anty of.|# MERCHA|
|000029a0| 4e 54 41 42 49 4c 49 54 | 59 20 6f 72 20 46 49 54 |NTABILIT|Y or FIT|
|000029b0| 4e 45 53 53 20 46 4f 52 | 20 41 20 50 41 52 54 49 |NESS FOR| A PARTI|
|000029c0| 43 55 4c 41 52 20 50 55 | 52 50 4f 53 45 2e 20 20 |CULAR PU|RPOSE. |
|000029d0| 53 65 65 20 74 68 65 0a | 23 20 47 4e 55 20 47 65 |See the.|# GNU Ge|
|000029e0| 6e 65 72 61 6c 20 50 75 | 62 6c 69 63 20 4c 69 63 |neral Pu|blic Lic|
|000029f0| 65 6e 73 65 20 66 6f 72 | 20 6d 6f 72 65 20 64 65 |ense for| more de|
|00002a00| 74 61 69 6c 73 2e 0a 0a | 23 20 59 6f 75 20 73 68 |tails...|# You sh|
|00002a10| 6f 75 6c 64 20 68 61 76 | 65 20 72 65 63 65 69 76 |ould hav|e receiv|
|00002a20| 65 64 20 61 20 63 6f 70 | 79 20 6f 66 20 74 68 65 |ed a cop|y of the|
|00002a30| 20 47 4e 55 20 47 65 6e | 65 72 61 6c 20 50 75 62 | GNU Gen|eral Pub|
|00002a40| 6c 69 63 20 4c 69 63 65 | 6e 73 65 0a 23 20 61 6c |lic Lice|nse.# al|
|00002a50| 6f 6e 67 20 77 69 74 68 | 20 47 4e 55 20 45 6d 61 |ong with| GNU Ema|
|00002a60| 63 73 3b 20 73 65 65 20 | 74 68 65 20 66 69 6c 65 |cs; see |the file|
|00002a70| 20 43 4f 50 59 49 4e 47 | 2e 20 20 49 66 20 6e 6f | COPYING|. If no|
|00002a80| 74 2c 20 77 72 69 74 65 | 20 74 6f 0a 23 20 74 68 |t, write| to.# th|
|00002a90| 65 20 46 72 65 65 20 53 | 6f 66 74 77 61 72 65 20 |e Free S|oftware |
|00002aa0| 46 6f 75 6e 64 61 74 69 | 6f 6e 2c 20 49 6e 63 2e |Foundati|on, Inc.|
|00002ab0| 2c 20 35 39 20 54 65 6d | 70 6c 65 20 50 6c 61 63 |, 59 Tem|ple Plac|
|00002ac0| 65 20 2d 20 53 75 69 74 | 65 20 33 33 30 2c 0a 23 |e - Suit|e 330,.#|
|00002ad0| 20 42 6f 73 74 6f 6e 2c | 20 4d 41 20 30 32 31 31 | Boston,| MA 0211|
|00002ae0| 31 2d 31 33 30 37 2c 20 | 55 53 41 2e 0a 0a 23 20 |1-1307, |USA...# |
|00002af0| 28 4e 6f 74 65 3a 20 49 | 20 64 6f 20 6e 6f 74 20 |(Note: I| do not |
|00002b00| 63 6f 6e 73 69 64 65 72 | 20 77 6f 72 6b 73 20 70 |consider| works p|
|00002b10| 72 6f 64 75 63 65 64 20 | 75 73 69 6e 67 20 74 68 |roduced |using th|
|00002b20| 65 73 65 20 42 46 4e 4e | 20 70 72 6f 63 65 73 73 |ese BFNN| process|
|00002b30| 69 6e 67 0a 23 20 74 6f | 6f 6c 73 20 74 6f 20 62 |ing.# to|ols to b|
|00002b40| 65 20 64 65 72 69 76 61 | 74 69 76 65 20 77 6f 72 |e deriva|tive wor|
|00002b50| 6b 73 20 6f 66 20 74 68 | 65 20 74 6f 6f 6c 73 2c |ks of th|e tools,|
|00002b60| 20 73 6f 20 74 68 65 79 | 20 61 72 65 20 4e 4f 54 | so they| are NOT|
|00002b70| 20 63 6f 76 65 72 65 64 | 0a 23 20 62 79 20 74 68 | covered|.# by th|
|00002b80| 65 20 47 50 4c 2e 20 20 | 48 6f 77 65 76 65 72 2c |e GPL. |However,|
|00002b90| 20 49 20 77 6f 75 6c 64 | 20 61 70 70 72 65 63 69 | I would| appreci|
|00002ba0| 61 74 65 20 69 74 20 69 | 66 20 79 6f 75 20 63 72 |ate it i|f you cr|
|00002bb0| 65 64 69 74 65 64 20 6d | 65 20 69 66 0a 23 20 61 |edited m|e if.# a|
|00002bc0| 70 70 72 6f 70 72 69 61 | 74 65 20 69 6e 20 61 6e |ppropria|te in an|
|00002bd0| 79 20 64 6f 63 75 6d 65 | 6e 74 73 20 79 6f 75 20 |y docume|nts you |
|00002be0| 66 6f 72 6d 61 74 20 75 | 73 69 6e 67 20 42 46 4e |format u|sing BFN|
|00002bf0| 4e 2e 29 0a 0a 73 75 62 | 20 61 73 63 69 69 5f 69 |N.)..sub| ascii_i|
|00002c00| 6e 69 74 20 7b 0a 20 20 | 20 20 6f 70 65 6e 28 41 |nit {. | open(A|
|00002c10| 53 43 49 49 2c 22 3e 24 | 70 72 65 66 69 78 2e 61 |SCII,">$|prefix.a|
|00002c20| 73 63 69 69 22 29 3b 0a | 7d 0a 0a 73 75 62 20 61 |scii");.|}..sub a|
|00002c30| 73 63 69 69 5f 73 74 61 | 72 74 6d 61 6a 6f 72 68 |scii_sta|rtmajorh|
|00002c40| 65 61 64 69 6e 67 20 7b | 0a 20 20 20 20 70 72 69 |eading {|. pri|
|00002c50| 6e 74 20 41 53 43 49 49 | 20 27 3d 27 78 37 39 2c |nt ASCII| '='x79,|
|00002c60| 22 5c 6e 5c 6e 22 3b 0a | 20 20 20 20 24 61 73 63 |"\n\n";.| $asc|
|00002c70| 69 69 5f 73 74 61 74 75 | 73 3d 20 27 68 27 3b 0a |ii_statu|s= 'h';.|
|00002c80| 20 20 20 20 26 61 73 63 | 69 69 5f 74 65 78 74 28 | &asc|ii_text(|
|00002c90| 24 5f 5b 30 5d 20 3f 20 | 22 53 65 63 74 69 6f 6e |$_[0] ? |"Section|
|00002ca0| 20 24 5f 5b 30 5d 2e 20 | 20 22 20 3a 20 27 27 29 | $_[0]. | " : '')|
|00002cb0| 3b 0a 7d 0a 0a 73 75 62 | 20 61 73 63 69 69 5f 73 |;.}..sub| ascii_s|
|00002cc0| 74 61 72 74 6d 69 6e 6f | 72 68 65 61 64 69 6e 67 |tartmino|rheading|
|00002cd0| 20 7b 0a 20 20 20 20 70 | 72 69 6e 74 20 41 53 43 | {. p|rint ASC|
|00002ce0| 49 49 20 27 2d 27 78 37 | 39 2c 22 5c 6e 5c 6e 22 |II '-'x7|9,"\n\n"|
|00002cf0| 3b 0a 20 20 20 20 24 61 | 73 63 69 69 5f 73 74 61 |;. $a|scii_sta|
|00002d00| 74 75 73 3d 20 27 68 27 | 3b 0a 7d 0a 0a 73 75 62 |tus= 'h'|;.}..sub|
|00002d10| 20 61 73 63 69 69 5f 69 | 74 61 6c 69 63 20 7b 20 | ascii_i|talic { |
|00002d20| 26 61 73 63 69 69 5f 74 | 65 78 74 28 27 2a 27 29 |&ascii_t|ext('*')|
|00002d30| 3b 20 7d 0a 73 75 62 20 | 61 73 63 69 69 5f 65 6e |; }.sub |ascii_en|
|00002d40| 64 69 74 61 6c 69 63 20 | 7b 20 24 61 73 63 69 69 |ditalic |{ $ascii|
|00002d50| 5f 70 61 72 61 20 2e 3d | 20 27 2a 27 3b 20 7d 0a |_para .=| '*'; }.|
|00002d60| 0a 73 75 62 20 61 73 63 | 69 69 5f 65 6d 61 69 6c |.sub asc|ii_email|
|00002d70| 20 7b 20 26 61 73 63 69 | 69 5f 74 65 78 74 28 27 | { &asci|i_text('|
|00002d80| 3c 27 29 3b 20 7d 20 73 | 75 62 20 61 73 63 69 69 |<'); } s|ub ascii|
|00002d90| 5f 65 6e 64 65 6d 61 69 | 6c 20 7b 20 26 61 73 63 |_endemai|l { &asc|
|00002da0| 69 69 5f 74 65 78 74 28 | 27 3e 27 29 3b 20 7d 0a |ii_text(|'>'); }.|
|00002db0| 0a 73 75 62 20 61 73 63 | 69 69 5f 66 74 70 6f 6e |.sub asc|ii_ftpon|
|00002dc0| 20 7b 20 7d 20 73 75 62 | 20 61 73 63 69 69 5f 65 | { } sub| ascii_e|
|00002dd0| 6e 64 66 74 70 6f 6e 20 | 7b 20 7d 0a 73 75 62 20 |ndftpon |{ }.sub |
|00002de0| 61 73 63 69 69 5f 66 74 | 70 69 6e 20 7b 20 7d 20 |ascii_ft|pin { } |
|00002df0| 73 75 62 20 61 73 63 69 | 69 5f 65 6e 64 66 74 70 |sub asci|i_endftp|
|00002e00| 69 6e 20 7b 20 7d 0a 73 | 75 62 20 61 73 63 69 69 |in { }.s|ub ascii|
|00002e10| 5f 64 6f 63 72 65 66 20 | 7b 20 7d 20 73 75 62 20 |_docref |{ } sub |
|00002e20| 61 73 63 69 69 5f 65 6e | 64 64 6f 63 72 65 66 20 |ascii_en|ddocref |
|00002e30| 7b 20 7d 0a 73 75 62 20 | 61 73 63 69 69 5f 63 6f |{ }.sub |ascii_co|
|00002e40| 75 72 69 65 72 20 7b 20 | 7d 20 73 75 62 20 61 73 |urier { |} sub as|
|00002e50| 63 69 69 5f 65 6e 64 63 | 6f 75 72 69 65 72 20 7b |cii_endc|ourier {|
|00002e60| 20 7d 0a 73 75 62 20 61 | 73 63 69 69 5f 6e 65 77 | }.sub a|scii_new|
|00002e70| 73 67 72 6f 75 70 20 7b | 20 7d 20 20 73 75 62 20 |sgroup {| } sub |
|00002e80| 61 73 63 69 69 5f 65 6e | 64 6e 65 77 73 67 72 6f |ascii_en|dnewsgro|
|00002e90| 75 70 20 7b 20 7d 0a 73 | 75 62 20 61 73 63 69 69 |up { }.s|ub ascii|
|00002ea0| 5f 66 74 70 73 69 6c 65 | 6e 74 20 7b 20 24 61 73 |_ftpsile|nt { $as|
|00002eb0| 63 69 69 5f 69 67 6e 6f | 72 65 2b 2b 3b 20 7d 0a |cii_igno|re++; }.|
|00002ec0| 73 75 62 20 61 73 63 69 | 69 5f 65 6e 64 66 74 70 |sub asci|i_endftp|
|00002ed0| 73 69 6c 65 6e 74 20 7b | 20 24 61 73 63 69 69 5f |silent {| $ascii_|
|00002ee0| 69 67 6e 6f 72 65 2d 2d | 3b 20 7d 0a 0a 73 75 62 |ignore--|; }..sub|
|00002ef0| 20 61 73 63 69 69 5f 74 | 65 78 74 20 7b 0a 20 20 | ascii_t|ext {. |
|00002f00| 20 20 72 65 74 75 72 6e | 20 69 66 20 24 61 73 63 | return| if $asc|
|00002f10| 69 69 5f 69 67 6e 6f 72 | 65 3b 0a 20 20 20 20 69 |ii_ignor|e;. i|
|00002f20| 66 20 28 24 61 73 63 69 | 69 5f 73 74 61 74 75 73 |f ($asci|i_status|
|00002f30| 20 65 71 20 27 27 29 20 | 7b 0a 20 20 20 20 20 20 | eq '') |{. |
|00002f40| 20 20 24 61 73 63 69 69 | 5f 73 74 61 74 75 73 3d | $ascii|_status=|
|00002f50| 20 27 70 27 3b 0a 20 20 | 20 20 7d 0a 20 20 20 20 | 'p';. | }. |
|00002f60| 24 61 73 63 69 69 5f 70 | 61 72 61 20 2e 3d 20 24 |$ascii_p|ara .= $|
|00002f70| 5f 5b 30 5d 3b 0a 7d 0a | 0a 73 75 62 20 61 73 63 |_[0];.}.|.sub asc|
|00002f80| 69 69 5f 74 61 62 20 7b | 0a 20 20 20 20 6c 6f 63 |ii_tab {|. loc|
|00002f90| 61 6c 20 28 24 6e 29 20 | 3d 20 24 5f 5b 30 5d 2d |al ($n) |= $_[0]-|
|00002fa0| 6c 65 6e 67 74 68 28 24 | 61 73 63 69 69 5f 70 61 |length($|ascii_pa|
|00002fb0| 72 61 29 3b 0a 20 20 20 | 20 24 61 73 63 69 69 5f |ra);. | $ascii_|
|00002fc0| 70 61 72 61 20 2e 3d 20 | 27 20 27 78 24 6e 20 69 |para .= |' 'x$n i|
|00002fd0| 66 20 24 6e 3e 30 3b 0a | 7d 0a 0a 73 75 62 20 61 |f $n>0;.|}..sub a|
|00002fe0| 73 63 69 69 5f 6e 65 77 | 6c 69 6e 65 20 7b 0a 20 |scii_new|line {. |
|00002ff0| 20 20 20 72 65 74 75 72 | 6e 20 75 6e 6c 65 73 73 | retur|n unless|
|00003000| 20 24 61 73 63 69 69 5f | 73 74 61 74 75 73 20 65 | $ascii_|status e|
|00003010| 71 20 27 70 27 3b 0a 20 | 20 20 20 26 61 73 63 69 |q 'p';. | &asci|
|00003020| 69 5f 77 72 69 74 65 70 | 61 72 61 3b 0a 7d 0a 0a |i_writep|ara;.}..|
|00003030| 73 75 62 20 61 73 63 69 | 69 5f 77 72 69 74 65 70 |sub asci|i_writep|
|00003040| 61 72 61 20 7b 0a 20 20 | 20 20 6c 6f 63 61 6c 20 |ara {. | local |
|00003050| 28 24 74 68 69 73 6c 69 | 6e 65 2c 20 24 74 68 69 |($thisli|ne, $thi|
|00003060| 73 77 6f 72 64 2c 20 24 | 72 65 73 74 29 3b 0a 20 |sword, $|rest);. |
|00003070| 20 20 20 66 6f 72 20 28 | 3b 3b 29 20 7b 0a 20 20 | for (|;;) {. |
|00003080| 20 20 20 20 20 20 6c 61 | 73 74 20 75 6e 6c 65 73 | la|st unles|
|00003090| 73 20 24 61 73 63 69 69 | 5f 70 61 72 61 20 3d 7e |s $ascii|_para =~|
|000030a0| 20 6d 2f 5c 53 2f 3b 0a | 20 20 20 20 20 20 20 20 | m/\S/;.| |
|000030b0| 24 74 68 69 73 6c 69 6e | 65 3d 20 24 61 73 63 69 |$thislin|e= $asci|
|000030c0| 69 5f 69 6e 64 65 6e 74 | 73 74 72 69 6e 67 3b 0a |i_indent|string;.|
|000030d0| 20 20 20 20 20 20 20 20 | 66 6f 72 20 28 3b 3b 29 | |for (;;)|
|000030e0| 20 7b 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 6c | {. | l|
|000030f0| 61 73 74 20 75 6e 6c 65 | 73 73 20 24 61 73 63 69 |ast unle|ss $asci|
|00003100| 69 5f 70 61 72 61 20 3d | 7e 20 6d 2f 5e 28 5c 73 |i_para =|~ m/^(\s|
|00003110| 2a 5c 53 2b 29 2f 3b 0a | 20 20 20 20 20 20 20 20 |*\S+)/;.| |
|00003120| 20 20 20 20 75 6e 6c 65 | 73 73 20 28 6c 65 6e 67 | unle|ss (leng|
|00003130| 74 68 28 24 31 29 20 2b | 20 6c 65 6e 67 74 68 28 |th($1) +| length(|
|00003140| 24 74 68 69 73 6c 69 6e | 65 29 20 3c 20 37 35 20 |$thislin|e) < 75 |
|00003150| 7c 7c 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |||. | |
|00003160| 20 20 20 20 20 20 20 6c | 65 6e 67 74 68 28 24 74 | l|ength($t|
|00003170| 68 69 73 6c 69 6e 65 29 | 20 3d 3d 20 6c 65 6e 67 |hisline)| == leng|
|00003180| 74 68 28 24 61 73 63 69 | 69 5f 69 6e 64 65 6e 74 |th($asci|i_indent|
|00003190| 73 74 72 69 6e 67 29 29 | 20 7b 0a 20 20 20 20 20 |string))| {. |
|000031a0| 20 20 20 20 20 20 20 20 | 20 20 20 6c 61 73 74 3b | | last;|
|000031b0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 7d 0a 20 |. | }. |
|000031c0| 20 20 20 20 20 20 20 20 | 20 20 20 24 74 68 69 73 | | $this|
|000031d0| 6c 69 6e 65 20 2e 3d 20 | 24 31 3b 0a 20 20 20 20 |line .= |$1;. |
|000031e0| 20 20 20 20 20 20 20 20 | 24 61 73 63 69 69 5f 70 | |$ascii_p|
|000031f0| 61 72 61 3d 20 24 27 3b | 0a 20 20 20 20 20 20 20 |ara= $';|. |
|00003200| 20 7d 0a 20 20 20 20 20 | 20 20 20 24 61 73 63 69 | }. | $asci|
|00003210| 69 5f 70 61 72 61 20 3d | 7e 20 73 2f 5e 5c 73 2a |i_para =|~ s/^\s*|
|00003220| 2f 2f 3b 0a 20 20 20 20 | 20 20 20 20 70 72 69 6e |//;. | prin|
|00003230| 74 20 41 53 43 49 49 20 | 24 74 68 69 73 6c 69 6e |t ASCII |$thislin|
|00003240| 65 2c 22 5c 6e 22 3b 0a | 20 20 20 20 20 20 20 20 |e,"\n";.| |
|00003250| 24 61 73 63 69 69 5f 69 | 6e 64 65 6e 74 73 74 72 |$ascii_i|ndentstr|
|00003260| 69 6e 67 3d 20 24 61 73 | 63 69 69 5f 6e 65 78 74 |ing= $as|cii_next|
|00003270| 69 6e 64 65 6e 74 3b 0a | 20 20 20 20 20 20 20 20 |indent;.| |
|00003280| 6c 61 73 74 20 75 6e 6c | 65 73 73 20 6c 65 6e 67 |last unl|ess leng|
|00003290| 74 68 28 24 61 73 63 69 | 69 5f 70 61 72 61 29 3b |th($asci|i_para);|
|000032a0| 0a 20 20 20 20 7d 0a 20 | 20 20 20 24 61 73 63 69 |. }. | $asci|
|000032b0| 69 5f 73 74 61 74 75 73 | 3d 20 27 27 3b 20 20 24 |i_status|= ''; $|
|000032c0| 61 73 63 69 69 5f 70 61 | 72 61 3d 20 27 27 3b 0a |ascii_pa|ra= '';.|
|000032d0| 7d 20 20 20 20 0a 0a 73 | 75 62 20 61 73 63 69 69 |} ..s|ub ascii|
|000032e0| 5f 65 6e 64 70 61 72 61 | 20 7b 0a 20 20 20 20 72 |_endpara| {. r|
|000032f0| 65 74 75 72 6e 20 75 6e | 6c 65 73 73 20 24 61 73 |eturn un|less $as|
|00003300| 63 69 69 5f 73 74 61 74 | 75 73 20 65 71 20 27 70 |cii_stat|us eq 'p|
|00003310| 27 3b 0a 20 20 20 20 26 | 61 73 63 69 69 5f 77 72 |';. &|ascii_wr|
|00003320| 69 74 65 70 61 72 61 3b | 0a 20 20 20 20 70 72 69 |itepara;|. pri|
|00003330| 6e 74 20 41 53 43 49 49 | 20 22 5c 6e 22 3b 0a 7d |nt ASCII| "\n";.}|
|00003340| 0a 0a 73 75 62 20 61 73 | 63 69 69 5f 65 6e 64 68 |..sub as|cii_endh|
|00003350| 65 61 64 69 6e 67 20 7b | 0a 20 20 20 20 24 61 73 |eading {|. $as|
|00003360| 63 69 69 5f 70 61 72 61 | 20 3d 7e 20 73 2f 5c 73 |cii_para| =~ s/\s|
|00003370| 2a 24 2f 2f 3b 0a 20 20 | 20 20 70 72 69 6e 74 20 |*$//;. | print |
|00003380| 41 53 43 49 49 20 22 24 | 61 73 63 69 69 5f 70 61 |ASCII "$|ascii_pa|
|00003390| 72 61 5c 6e 5c 6e 22 3b | 0a 20 20 20 20 24 61 73 |ra\n\n";|. $as|
|000033a0| 63 69 69 5f 73 74 61 74 | 75 73 3d 20 27 27 3b 0a |cii_stat|us= '';.|
|000033b0| 20 20 20 20 24 61 73 63 | 69 69 5f 70 61 72 61 3d | $asc|ii_para=|
|000033c0| 20 27 27 3b 0a 7d 0a 0a | 73 75 62 20 61 73 63 69 | '';.}..|sub asci|
|000033d0| 69 5f 65 6e 64 6d 61 6a | 6f 72 68 65 61 64 69 6e |i_endmaj|orheadin|
|000033e0| 67 20 7b 20 26 61 73 63 | 69 69 5f 65 6e 64 68 65 |g { &asc|ii_endhe|
|000033f0| 61 64 69 6e 67 28 40 5f | 29 3b 20 7d 0a 73 75 62 |ading(@_|); }.sub|
|00003400| 20 61 73 63 69 69 5f 65 | 6e 64 6d 69 6e 6f 72 68 | ascii_e|ndminorh|
|00003410| 65 61 64 69 6e 67 20 7b | 20 26 61 73 63 69 69 5f |eading {| &ascii_|
|00003420| 65 6e 64 68 65 61 64 69 | 6e 67 28 40 5f 29 3b 20 |endheadi|ng(@_); |
|00003430| 7d 0a 0a 73 75 62 20 61 | 73 63 69 69 5f 73 74 61 |}..sub a|scii_sta|
|00003440| 72 74 76 65 72 62 61 74 | 69 6d 20 7b 0a 20 20 20 |rtverbat|im {. |
|00003450| 20 24 61 73 63 69 69 5f | 76 73 74 61 74 75 73 3d | $ascii_|vstatus=|
|00003460| 20 24 61 73 63 69 69 5f | 73 74 61 74 75 73 3b 0a | $ascii_|status;.|
|00003470| 20 20 20 20 26 61 73 63 | 69 69 5f 77 72 69 74 65 | &asc|ii_write|
|00003480| 70 61 72 61 3b 0a 7d 0a | 0a 73 75 62 20 61 73 63 |para;.}.|.sub asc|
|00003490| 69 69 5f 76 65 72 62 61 | 74 69 6d 20 7b 0a 20 20 |ii_verba|tim {. |
|000034a0| 20 20 70 72 69 6e 74 20 | 41 53 43 49 49 20 24 5f | print |ASCII $_|
|000034b0| 5b 30 5d 2c 22 5c 6e 22 | 3b 0a 7d 0a 0a 73 75 62 |[0],"\n"|;.}..sub|
|000034c0| 20 61 73 63 69 69 5f 65 | 6e 64 76 65 72 62 61 74 | ascii_e|ndverbat|
|000034d0| 69 6d 20 7b 0a 20 20 20 | 20 24 61 73 63 69 69 5f |im {. | $ascii_|
|000034e0| 73 74 61 74 75 73 3d 20 | 24 61 73 63 69 69 5f 76 |status= |$ascii_v|
|000034f0| 73 74 61 74 75 73 3b 0a | 7d 0a 0a 73 75 62 20 61 |status;.|}..sub a|
|00003500| 73 63 69 69 5f 66 69 6e | 69 73 68 20 7b 0a 20 20 |scii_fin|ish {. |
|00003510| 20 20 63 6c 6f 73 65 28 | 41 53 43 49 49 29 3b 0a | close(|ASCII);.|
|00003520| 7d 0a 0a 73 75 62 20 61 | 73 63 69 69 5f 73 74 61 |}..sub a|scii_sta|
|00003530| 72 74 69 6e 64 65 78 20 | 7b 20 24 61 73 63 69 69 |rtindex |{ $ascii|
|00003540| 5f 73 74 61 74 75 73 3d | 20 27 27 3b 20 7d 0a 73 |_status=| ''; }.s|
|00003550| 75 62 20 61 73 63 69 69 | 5f 65 6e 64 69 6e 64 65 |ub ascii|_endinde|
|00003560| 78 20 7b 20 24 61 73 63 | 69 69 5f 73 74 61 74 75 |x { $asc|ii_statu|
|00003570| 73 3d 20 27 70 27 3b 20 | 7d 0a 0a 73 75 62 20 61 |s= 'p'; |}..sub a|
|00003580| 73 63 69 69 5f 65 6e 64 | 69 6e 64 65 78 69 74 65 |scii_end|indexite|
|00003590| 6d 20 7b 0a 20 20 20 20 | 70 72 69 6e 74 66 20 41 |m {. |printf A|
|000035a0| 53 43 49 49 20 22 20 25 | 2d 31 31 73 20 25 2d 2e |SCII " %|-11s %-.|
|000035b0| 36 36 73 5c 6e 22 2c 24 | 61 73 63 69 69 5f 6c 65 |66s\n",$|ascii_le|
|000035c0| 66 74 2c 24 61 73 63 69 | 69 5f 70 61 72 61 3b 0a |ft,$asci|i_para;.|
|000035d0| 20 20 20 20 24 61 73 63 | 69 69 5f 73 74 61 74 75 | $asc|ii_statu|
|000035e0| 73 3d 20 27 70 27 3b 0a | 20 20 20 20 24 61 73 63 |s= 'p';.| $asc|
|000035f0| 69 69 5f 70 61 72 61 3d | 20 27 27 3b 0a 7d 0a 0a |ii_para=| '';.}..|
|00003600| 73 75 62 20 61 73 63 69 | 69 5f 73 74 61 72 74 69 |sub asci|i_starti|
|00003610| 6e 64 65 78 69 74 65 6d | 20 7b 0a 20 20 20 20 24 |ndexitem| {. $|
|00003620| 61 73 63 69 69 5f 6c 65 | 66 74 3d 20 24 5f 5b 31 |ascii_le|ft= $_[1|
|00003630| 5d 3b 0a 7d 0a 0a 73 75 | 62 20 61 73 63 69 69 5f |];.}..su|b ascii_|
|00003640| 73 74 61 72 74 69 6e 64 | 65 78 6d 61 69 6e 69 74 |startind|exmainit|
|00003650| 65 6d 20 7b 0a 20 20 20 | 20 24 61 73 63 69 69 5f |em {. | $ascii_|
|00003660| 6c 65 66 74 3d 20 24 5f | 5b 31 5d 3b 0a 20 20 20 |left= $_|[1];. |
|00003670| 20 70 72 69 6e 74 20 41 | 53 43 49 49 20 22 5c 6e | print A|SCII "\n|
|00003680| 22 20 69 66 20 24 61 73 | 63 69 69 5f 73 74 61 74 |" if $as|cii_stat|
|00003690| 75 73 20 65 71 20 27 70 | 27 3b 0a 7d 0a 0a 73 75 |us eq 'p|';.}..su|
|000036a0| 62 20 61 73 63 69 69 5f | 73 74 61 72 74 69 6e 64 |b ascii_|startind|
|000036b0| 65 6e 74 20 7b 0a 20 20 | 20 20 24 61 73 63 69 69 |ent {. | $ascii|
|000036c0| 5f 69 73 74 61 74 75 73 | 3d 20 24 61 73 63 69 69 |_istatus|= $ascii|
|000036d0| 5f 73 74 61 74 75 73 3b | 0a 20 20 20 20 26 61 73 |_status;|. &as|
|000036e0| 63 69 69 5f 77 72 69 74 | 65 70 61 72 61 3b 0a 20 |cii_writ|epara;. |
|000036f0| 20 20 20 24 61 73 63 69 | 69 5f 69 6e 64 65 6e 74 | $asci|i_indent|
|00003700| 73 74 72 69 6e 67 3d 20 | 22 20 20 20 24 61 73 63 |string= |" $asc|
|00003710| 69 69 5f 69 6e 64 65 6e | 74 73 74 72 69 6e 67 22 |ii_inden|tstring"|
|00003720| 3b 0a 20 20 20 20 24 61 | 73 63 69 69 5f 6e 65 78 |;. $a|scii_nex|
|00003730| 74 69 6e 64 65 6e 74 3d | 20 22 20 20 20 24 61 73 |tindent=| " $as|
|00003740| 63 69 69 5f 6e 65 78 74 | 69 6e 64 65 6e 74 22 3b |cii_next|indent";|
|00003750| 0a 7d 0a 0a 73 75 62 20 | 61 73 63 69 69 5f 65 6e |.}..sub |ascii_en|
|00003760| 64 69 6e 64 65 6e 74 20 | 7b 0a 20 20 20 20 24 61 |dindent |{. $a|
|00003770| 73 63 69 69 5f 69 6e 64 | 65 6e 74 73 74 72 69 6e |scii_ind|entstrin|
|00003780| 67 20 3d 7e 20 73 2f 5e | 20 20 20 2f 2f 3b 0a 20 |g =~ s/^| //;. |
|00003790| 20 20 20 24 61 73 63 69 | 69 5f 6e 65 78 74 69 6e | $asci|i_nextin|
|000037a0| 64 65 6e 74 20 3d 7e 20 | 73 2f 5e 20 20 20 2f 2f |dent =~ |s/^ //|
|000037b0| 3b 0a 20 20 20 20 24 61 | 73 63 69 69 5f 73 74 61 |;. $a|scii_sta|
|000037c0| 74 75 73 3d 20 24 61 73 | 63 69 69 5f 69 73 74 61 |tus= $as|cii_ista|
|000037d0| 74 75 73 3b 0a 7d 0a 0a | 73 75 62 20 61 73 63 69 |tus;.}..|sub asci|
|000037e0| 69 5f 73 74 61 72 74 70 | 61 63 6b 65 64 6c 69 73 |i_startp|ackedlis|
|000037f0| 74 20 7b 20 24 61 73 63 | 69 69 5f 70 6c 63 3d 30 |t { $asc|ii_plc=0|
|00003800| 3b 20 7d 0a 73 75 62 20 | 61 73 63 69 69 5f 65 6e |; }.sub |ascii_en|
|00003810| 64 70 61 63 6b 65 64 6c | 69 73 74 20 7b 20 26 61 |dpackedl|ist { &a|
|00003820| 73 63 69 69 5f 6e 65 77 | 6c 69 6e 65 20 69 66 20 |scii_new|line if |
|00003830| 21 24 61 73 63 69 69 5f | 70 6c 63 3b 20 7d 0a 73 |!$ascii_|plc; }.s|
|00003840| 75 62 20 61 73 63 69 69 | 5f 70 61 63 6b 65 64 69 |ub ascii|_packedi|
|00003850| 74 65 6d 20 7b 0a 20 20 | 20 20 26 61 73 63 69 69 |tem {. | &ascii|
|00003860| 5f 6e 65 77 6c 69 6e 65 | 20 69 66 20 21 24 61 73 |_newline| if !$as|
|00003870| 63 69 69 5f 70 6c 63 3b | 0a 20 20 20 20 26 61 73 |cii_plc;|. &as|
|00003880| 63 69 69 5f 74 61 62 28 | 24 61 73 63 69 69 5f 70 |cii_tab(|$ascii_p|
|00003890| 6c 63 2a 34 30 2b 35 29 | 3b 0a 20 20 20 20 24 61 |lc*40+5)|;. $a|
|000038a0| 73 63 69 69 5f 70 6c 63 | 3d 20 21 24 61 73 63 69 |scii_plc|= !$asci|
|000038b0| 69 5f 70 6c 63 3b 0a 7d | 0a 0a 73 75 62 20 61 73 |i_plc;.}|..sub as|
|000038c0| 63 69 69 5f 73 74 61 72 | 74 6c 69 73 74 20 7b 0a |cii_star|tlist {.|
|000038d0| 20 20 20 20 26 61 73 63 | 69 69 5f 65 6e 64 70 61 | &asc|ii_endpa|
|000038e0| 72 61 3b 0a 20 20 20 20 | 24 61 73 63 69 69 5f 69 |ra;. |$ascii_i|
|000038f0| 6e 64 65 6e 74 73 74 72 | 69 6e 67 3d 20 22 20 20 |ndentstr|ing= " |
|00003900| 24 61 73 63 69 69 5f 69 | 6e 64 65 6e 74 73 74 72 |$ascii_i|ndentstr|
|00003910| 69 6e 67 22 3b 0a 20 20 | 20 20 24 61 73 63 69 69 |ing";. | $ascii|
|00003920| 5f 6e 65 78 74 69 6e 64 | 65 6e 74 3d 20 22 20 20 |_nextind|ent= " |
|00003930| 24 61 73 63 69 69 5f 6e | 65 78 74 69 6e 64 65 6e |$ascii_n|extinden|
|00003940| 74 22 3b 0a 7d 0a 0a 73 | 75 62 20 61 73 63 69 69 |t";.}..s|ub ascii|
|00003950| 5f 65 6e 64 6c 69 73 74 | 20 7b 0a 20 20 20 20 26 |_endlist| {. &|
|00003960| 61 73 63 69 69 5f 65 6e | 64 70 61 72 61 3b 0a 20 |ascii_en|dpara;. |
|00003970| 20 20 20 24 61 73 63 69 | 69 5f 69 6e 64 65 6e 74 | $asci|i_indent|
|00003980| 73 74 72 69 6e 67 20 3d | 7e 20 73 2f 5e 20 20 2f |string =|~ s/^ /|
|00003990| 2f 3b 0a 20 20 20 20 24 | 61 73 63 69 69 5f 6e 65 |/;. $|ascii_ne|
|000039a0| 78 74 69 6e 64 65 6e 74 | 20 3d 7e 20 73 2f 5e 20 |xtindent| =~ s/^ |
|000039b0| 20 2f 2f 3b 0a 7d 0a 0a | 73 75 62 20 61 73 63 69 | //;.}..|sub asci|
|000039c0| 69 5f 69 74 65 6d 20 7b | 0a 20 20 20 20 26 61 73 |i_item {|. &as|
|000039d0| 63 69 69 5f 6e 65 77 6c | 69 6e 65 3b 0a 20 20 20 |cii_newl|ine;. |
|000039e0| 20 24 61 73 63 69 69 5f | 69 6e 64 65 6e 74 73 74 | $ascii_|indentst|
|000039f0| 72 69 6e 67 20 3d 7e 20 | 73 2f 20 20 24 2f 2a 20 |ring =~ |s/ $/* |
|00003a00| 2f 3b 0a 7d 0a 0a 73 75 | 62 20 61 73 63 69 69 5f |/;.}..su|b ascii_|
|00003a10| 70 61 67 65 72 65 66 20 | 7b 0a 20 20 20 20 26 61 |pageref |{. &a|
|00003a20| 73 63 69 69 5f 74 65 78 | 74 28 22 51 24 5f 5b 31 |scii_tex|t("Q$_[1|
|00003a30| 5d 20 5c 60 22 29 3b 0a | 7d 0a 0a 73 75 62 20 61 |] \`");.|}..sub a|
|00003a40| 73 63 69 69 5f 65 6e 64 | 70 61 67 65 72 65 66 20 |scii_end|pageref |
|00003a50| 7b 0a 20 20 20 20 26 61 | 73 63 69 69 5f 74 65 78 |{. &a|scii_tex|
|00003a60| 74 28 22 27 22 29 3b 0a | 7d 0a 0a 31 3b 0a 00 00 |t("'");.|}..1;...|
|00003a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c00| 6d 2d 69 6e 66 6f 2e 70 | 6c 00 00 00 00 00 00 00 |m-info.p|l.......|
|00003c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c60| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 20 20 31 |....1006|64 . 1|
|00003c70| 34 34 20 00 20 20 20 31 | 34 34 20 00 20 20 20 20 |44 . 1|44 . |
|00003c80| 20 20 31 32 37 37 33 20 | 20 35 37 37 36 36 31 36 | 12773 | 5776616|
|00003c90| 34 35 37 20 20 31 30 34 | 33 34 00 20 30 00 00 00 |457 104|34. 0...|
|00003ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d00| 00 75 73 74 61 72 20 20 | 00 69 61 6e 00 00 00 00 |.ustar |.ian....|
|00003d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d20| 00 00 00 00 00 00 00 00 | 00 69 61 6e 00 00 00 00 |........|.ian....|
|00003d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e00| 23 23 20 49 6e 66 6f 20 | 6f 75 74 70 75 74 0a 23 |## Info |output.#|
|00003e10| 20 43 6f 70 79 72 69 67 | 68 74 20 28 43 29 20 31 | Copyrig|ht (C) 1|
|00003e20| 39 39 33 2d 31 39 39 35 | 20 49 61 6e 20 4a 61 63 |993-1995| Ian Jac|
|00003e30| 6b 73 6f 6e 2e 0a 0a 23 | 20 54 68 69 73 20 66 69 |kson...#| This fi|
|00003e40| 6c 65 20 69 73 20 66 72 | 65 65 20 73 6f 66 74 77 |le is fr|ee softw|
|00003e50| 61 72 65 3b 20 79 6f 75 | 20 63 61 6e 20 72 65 64 |are; you| can red|
|00003e60| 69 73 74 72 69 62 75 74 | 65 20 69 74 20 61 6e 64 |istribut|e it and|
|00003e70| 2f 6f 72 20 6d 6f 64 69 | 66 79 0a 23 20 69 74 20 |/or modi|fy.# it |
|00003e80| 75 6e 64 65 72 20 74 68 | 65 20 74 65 72 6d 73 20 |under th|e terms |
|00003e90| 6f 66 20 74 68 65 20 47 | 4e 55 20 47 65 6e 65 72 |of the G|NU Gener|
|00003ea0| 61 6c 20 50 75 62 6c 69 | 63 20 4c 69 63 65 6e 73 |al Publi|c Licens|
|00003eb0| 65 20 61 73 20 70 75 62 | 6c 69 73 68 65 64 20 62 |e as pub|lished b|
|00003ec0| 79 0a 23 20 74 68 65 20 | 46 72 65 65 20 53 6f 66 |y.# the |Free Sof|
|00003ed0| 74 77 61 72 65 20 46 6f | 75 6e 64 61 74 69 6f 6e |tware Fo|undation|
|00003ee0| 3b 20 65 69 74 68 65 72 | 20 76 65 72 73 69 6f 6e |; either| version|
|00003ef0| 20 32 2c 20 6f 72 20 28 | 61 74 20 79 6f 75 72 20 | 2, or (|at your |
|00003f00| 6f 70 74 69 6f 6e 29 0a | 23 20 61 6e 79 20 6c 61 |option).|# any la|
|00003f10| 74 65 72 20 76 65 72 73 | 69 6f 6e 2e 0a 0a 23 20 |ter vers|ion...# |
|00003f20| 49 74 20 69 73 20 64 69 | 73 74 72 69 62 75 74 65 |It is di|stribute|
|00003f30| 64 20 69 6e 20 74 68 65 | 20 68 6f 70 65 20 74 68 |d in the| hope th|
|00003f40| 61 74 20 69 74 20 77 69 | 6c 6c 20 62 65 20 75 73 |at it wi|ll be us|
|00003f50| 65 66 75 6c 2c 0a 23 20 | 62 75 74 20 57 49 54 48 |eful,.# |but WITH|
|00003f60| 4f 55 54 20 41 4e 59 20 | 57 41 52 52 41 4e 54 59 |OUT ANY |WARRANTY|
|00003f70| 3b 20 77 69 74 68 6f 75 | 74 20 65 76 65 6e 20 74 |; withou|t even t|
|00003f80| 68 65 20 69 6d 70 6c 69 | 65 64 20 77 61 72 72 61 |he impli|ed warra|
|00003f90| 6e 74 79 20 6f 66 0a 23 | 20 4d 45 52 43 48 41 4e |nty of.#| MERCHAN|
|00003fa0| 54 41 42 49 4c 49 54 59 | 20 6f 72 20 46 49 54 4e |TABILITY| or FITN|
|00003fb0| 45 53 53 20 46 4f 52 20 | 41 20 50 41 52 54 49 43 |ESS FOR |A PARTIC|
|00003fc0| 55 4c 41 52 20 50 55 52 | 50 4f 53 45 2e 20 20 53 |ULAR PUR|POSE. S|
|00003fd0| 65 65 20 74 68 65 0a 23 | 20 47 4e 55 20 47 65 6e |ee the.#| GNU Gen|
|00003fe0| 65 72 61 6c 20 50 75 62 | 6c 69 63 20 4c 69 63 65 |eral Pub|lic Lice|
|00003ff0| 6e 73 65 20 66 6f 72 20 | 6d 6f 72 65 20 64 65 74 |nse for |more det|
|00004000| 61 69 6c 73 2e 0a 0a 23 | 20 59 6f 75 20 73 68 6f |ails...#| You sho|
|00004010| 75 6c 64 20 68 61 76 65 | 20 72 65 63 65 69 76 65 |uld have| receive|
|00004020| 64 20 61 20 63 6f 70 79 | 20 6f 66 20 74 68 65 20 |d a copy| of the |
|00004030| 47 4e 55 20 47 65 6e 65 | 72 61 6c 20 50 75 62 6c |GNU Gene|ral Publ|
|00004040| 69 63 20 4c 69 63 65 6e | 73 65 0a 23 20 61 6c 6f |ic Licen|se.# alo|
|00004050| 6e 67 20 77 69 74 68 20 | 47 4e 55 20 45 6d 61 63 |ng with |GNU Emac|
|00004060| 73 3b 20 73 65 65 20 74 | 68 65 20 66 69 6c 65 20 |s; see t|he file |
|00004070| 43 4f 50 59 49 4e 47 2e | 20 20 49 66 20 6e 6f 74 |COPYING.| If not|
|00004080| 2c 20 77 72 69 74 65 20 | 74 6f 0a 23 20 74 68 65 |, write |to.# the|
|00004090| 20 46 72 65 65 20 53 6f | 66 74 77 61 72 65 20 46 | Free So|ftware F|
|000040a0| 6f 75 6e 64 61 74 69 6f | 6e 2c 20 49 6e 63 2e 2c |oundatio|n, Inc.,|
|000040b0| 20 35 39 20 54 65 6d 70 | 6c 65 20 50 6c 61 63 65 | 59 Temp|le Place|
|000040c0| 20 2d 20 53 75 69 74 65 | 20 33 33 30 2c 0a 23 20 | - Suite| 330,.# |
|000040d0| 42 6f 73 74 6f 6e 2c 20 | 4d 41 20 30 32 31 31 31 |Boston, |MA 02111|
|000040e0| 2d 31 33 30 37 2c 20 55 | 53 41 2e 0a 0a 23 20 28 |-1307, U|SA...# (|
|000040f0| 4e 6f 74 65 3a 20 49 20 | 64 6f 20 6e 6f 74 20 63 |Note: I |do not c|
|00004100| 6f 6e 73 69 64 65 72 20 | 77 6f 72 6b 73 20 70 72 |onsider |works pr|
|00004110| 6f 64 75 63 65 64 20 75 | 73 69 6e 67 20 74 68 65 |oduced u|sing the|
|00004120| 73 65 20 42 46 4e 4e 20 | 70 72 6f 63 65 73 73 69 |se BFNN |processi|
|00004130| 6e 67 0a 23 20 74 6f 6f | 6c 73 20 74 6f 20 62 65 |ng.# too|ls to be|
|00004140| 20 64 65 72 69 76 61 74 | 69 76 65 20 77 6f 72 6b | derivat|ive work|
|00004150| 73 20 6f 66 20 74 68 65 | 20 74 6f 6f 6c 73 2c 20 |s of the| tools, |
|00004160| 73 6f 20 74 68 65 79 20 | 61 72 65 20 4e 4f 54 20 |so they |are NOT |
|00004170| 63 6f 76 65 72 65 64 0a | 23 20 62 79 20 74 68 65 |covered.|# by the|
|00004180| 20 47 50 4c 2e 20 20 48 | 6f 77 65 76 65 72 2c 20 | GPL. H|owever, |
|00004190| 49 20 77 6f 75 6c 64 20 | 61 70 70 72 65 63 69 61 |I would |apprecia|
|000041a0| 74 65 20 69 74 20 69 66 | 20 79 6f 75 20 63 72 65 |te it if| you cre|
|000041b0| 64 69 74 65 64 20 6d 65 | 20 69 66 0a 23 20 61 70 |dited me| if.# ap|
|000041c0| 70 72 6f 70 72 69 61 74 | 65 20 69 6e 20 61 6e 79 |propriat|e in any|
|000041d0| 20 64 6f 63 75 6d 65 6e | 74 73 20 79 6f 75 20 66 | documen|ts you f|
|000041e0| 6f 72 6d 61 74 20 75 73 | 69 6e 67 20 42 46 4e 4e |ormat us|ing BFNN|
|000041f0| 2e 29 0a 0a 73 75 62 20 | 69 6e 66 6f 5f 69 6e 69 |.)..sub |info_ini|
|00004200| 74 20 7b 0a 20 20 20 20 | 6f 70 65 6e 28 49 4e 46 |t {. |open(INF|
|00004210| 4f 2c 22 3e 24 70 72 65 | 66 69 78 2e 69 6e 66 6f |O,">$pre|fix.info|
|00004220| 22 29 3b 0a 20 20 20 20 | 70 72 69 6e 74 20 49 4e |");. |print IN|
|00004230| 46 4f 20 3c 3c 45 4e 44 | 3b 0a 49 6e 66 6f 20 66 |FO <<END|;.Info f|
|00004240| 69 6c 65 3a 20 24 70 72 | 65 66 69 78 2e 69 6e 66 |ile: $pr|efix.inf|
|00004250| 6f 2c 20 20 20 20 2d 2a | 2d 54 65 78 74 2d 2a 2d |o, -*|-Text-*-|
|00004260| 0a 70 72 6f 64 75 63 65 | 64 20 62 79 20 62 66 6e |.produce|d by bfn|
|00004270| 6e 63 6f 6e 76 2e 70 6c | 20 66 72 6f 6d 20 74 68 |nconv.pl| from th|
|00004280| 65 20 42 69 7a 61 72 72 | 65 20 46 6f 72 6d 61 74 |e Bizarr|e Format|
|00004290| 20 57 69 74 68 20 4e 6f | 20 4e 61 6d 65 2e 0a 0a | With No| Name...|
|000042a0| 45 4e 44 0a 7d 0a 0a 73 | 75 62 20 69 6e 66 6f 5f |END.}..s|ub info_|
|000042b0| 68 65 61 64 69 6e 67 20 | 7b 0a 20 20 20 20 23 20 |heading |{. # |
|000042c0| 72 65 66 73 74 72 69 6e | 67 20 20 4e 6f 64 65 20 |refstrin|g Node |
|000042d0| 20 4e 65 78 74 20 20 50 | 72 65 76 69 6f 75 73 20 | Next P|revious |
|000042e0| 55 70 0a 20 20 20 20 70 | 72 69 6e 74 20 49 4e 46 |Up. p|rint INF|
|000042f0| 4f 20 22 1f 5c 6e 46 69 | 6c 65 3a 20 24 70 72 65 |O ".\nFi|le: $pre|
|00004300| 66 69 78 2e 69 6e 66 6f | 2c 20 4e 6f 64 65 3a 20 |fix.info|, Node: |
|00004310| 24 5f 5b 31 5d 22 3b 0a | 20 20 20 20 70 72 69 6e |$_[1]";.| prin|
|00004320| 74 20 49 4e 46 4f 20 22 | 2c 20 4e 65 78 74 3a 20 |t INFO "|, Next: |
|00004330| 24 5f 5b 32 5d 22 20 69 | 66 20 6c 65 6e 67 74 68 |$_[2]" i|f length|
|00004340| 28 24 5f 5b 32 5d 29 3b | 0a 20 20 20 20 70 72 69 |($_[2]);|. pri|
|00004350| 6e 74 20 49 4e 46 4f 20 | 22 2c 20 50 72 65 76 69 |nt INFO |", Previ|
|00004360| 6f 75 73 3a 20 24 5f 5b | 33 5d 22 20 69 66 20 6c |ous: $_[|3]" if l|
|00004370| 65 6e 67 74 68 28 24 5f | 5b 33 5d 29 3b 0a 20 20 |ength($_|[3]);. |
|00004380| 20 20 70 72 69 6e 74 20 | 49 4e 46 4f 20 22 2c 20 | print |INFO ", |
|00004390| 55 70 3a 20 24 5f 5b 34 | 5d 22 20 69 66 20 6c 65 |Up: $_[4|]" if le|
|000043a0| 6e 67 74 68 28 24 5f 5b | 34 5d 29 3b 0a 20 20 20 |ngth($_[|4]);. |
|000043b0| 20 70 72 69 6e 74 20 49 | 4e 46 4f 20 22 5c 6e 5c | print I|NFO "\n\|
|000043c0| 6e 22 3b 0a 20 20 20 20 | 24 69 6e 66 6f 5f 73 74 |n";. |$info_st|
|000043d0| 61 74 75 73 3d 20 27 27 | 3b 0a 7d 0a 0a 73 75 62 |atus= ''|;.}..sub|
|000043e0| 20 69 6e 66 6f 5f 73 74 | 61 72 74 6d 61 6a 6f 72 | info_st|artmajor|
|000043f0| 68 65 61 64 69 6e 67 20 | 7b 0a 20 20 20 20 72 65 |heading |{. re|
|00004400| 74 75 72 6e 20 69 66 20 | 24 5f 5b 30 5d 20 65 71 |turn if |$_[0] eq|
|00004410| 20 27 30 27 3b 0a 20 20 | 20 20 26 69 6e 66 6f 5f | '0';. | &info_|
|00004420| 68 65 61 64 69 6e 67 28 | 27 73 5f 27 2e 24 5f 5b |heading(|'s_'.$_[|
|00004430| 30 5d 2c 40 5f 5b 31 2e | 2e 24 23 5f 5d 2c 27 54 |0],@_[1.|.$#_],'T|
|00004440| 6f 70 27 29 3b 0a 7d 0a | 0a 73 75 62 20 69 6e 66 |op');.}.|.sub inf|
|00004450| 6f 5f 73 74 61 72 74 6d | 69 6e 6f 72 68 65 61 64 |o_startm|inorhead|
|00004460| 69 6e 67 20 7b 0a 20 20 | 20 20 26 69 6e 66 6f 5f |ing {. | &info_|
|00004470| 68 65 61 64 69 6e 67 28 | 40 5f 29 3b 0a 7d 0a 0a |heading(|@_);.}..|
|00004480| 73 75 62 20 69 6e 66 6f | 5f 69 74 61 6c 69 63 20 |sub info|_italic |
|00004490| 7b 20 26 69 6e 66 6f 5f | 74 65 78 74 28 27 2a 27 |{ &info_|text('*'|
|000044a0| 29 3b 20 7d 0a 73 75 62 | 20 69 6e 66 6f 5f 65 6e |); }.sub| info_en|
|000044b0| 64 69 74 61 6c 69 63 20 | 7b 20 24 69 6e 66 6f 5f |ditalic |{ $info_|
|000044c0| 70 61 72 61 20 2e 3d 20 | 27 2a 27 3b 20 7d 0a 0a |para .= |'*'; }..|
|000044d0| 73 75 62 20 69 6e 66 6f | 5f 65 6d 61 69 6c 20 7b |sub info|_email {|
|000044e0| 20 26 69 6e 66 6f 5f 74 | 65 78 74 28 27 3c 27 29 | &info_t|ext('<')|
|000044f0| 3b 20 7d 20 73 75 62 20 | 69 6e 66 6f 5f 65 6e 64 |; } sub |info_end|
|00004500| 65 6d 61 69 6c 20 7b 20 | 26 69 6e 66 6f 5f 74 65 |email { |&info_te|
|00004510| 78 74 28 27 3e 27 29 3b | 20 7d 0a 0a 73 75 62 20 |xt('>');| }..sub |
|00004520| 69 6e 66 6f 5f 66 74 70 | 6f 6e 20 7b 20 7d 20 73 |info_ftp|on { } s|
|00004530| 75 62 20 69 6e 66 6f 5f | 65 6e 64 66 74 70 6f 6e |ub info_|endftpon|
|00004540| 20 7b 20 7d 0a 73 75 62 | 20 69 6e 66 6f 5f 66 74 | { }.sub| info_ft|
|00004550| 70 69 6e 20 7b 20 7d 20 | 73 75 62 20 69 6e 66 6f |pin { } |sub info|
|00004560| 5f 65 6e 64 66 74 70 69 | 6e 20 7b 20 7d 0a 73 75 |_endftpi|n { }.su|
|00004570| 62 20 69 6e 66 6f 5f 64 | 6f 63 72 65 66 20 7b 20 |b info_d|ocref { |
|00004580| 7d 20 73 75 62 20 69 6e | 66 6f 5f 65 6e 64 64 6f |} sub in|fo_enddo|
|00004590| 63 72 65 66 20 7b 20 7d | 0a 73 75 62 20 69 6e 66 |cref { }|.sub inf|
|000045a0| 6f 5f 63 6f 75 72 69 65 | 72 20 7b 20 7d 20 73 75 |o_courie|r { } su|
|000045b0| 62 20 69 6e 66 6f 5f 65 | 6e 64 63 6f 75 72 69 65 |b info_e|ndcourie|
|000045c0| 72 20 7b 20 7d 0a 73 75 | 62 20 69 6e 66 6f 5f 6e |r { }.su|b info_n|
|000045d0| 65 77 73 67 72 6f 75 70 | 20 7b 20 7d 20 20 73 75 |ewsgroup| { } su|
|000045e0| 62 20 69 6e 66 6f 5f 65 | 6e 64 6e 65 77 73 67 72 |b info_e|ndnewsgr|
|000045f0| 6f 75 70 20 7b 20 7d 0a | 73 75 62 20 69 6e 66 6f |oup { }.|sub info|
|00004600| 5f 66 74 70 73 69 6c 65 | 6e 74 20 7b 20 24 69 6e |_ftpsile|nt { $in|
|00004610| 66 6f 5f 69 67 6e 6f 72 | 65 2b 2b 3b 20 7d 0a 73 |fo_ignor|e++; }.s|
|00004620| 75 62 20 69 6e 66 6f 5f | 65 6e 64 66 74 70 73 69 |ub info_|endftpsi|
|00004630| 6c 65 6e 74 20 7b 20 24 | 69 6e 66 6f 5f 69 67 6e |lent { $|info_ign|
|00004640| 6f 72 65 2d 2d 3b 20 7d | 0a 0a 73 75 62 20 69 6e |ore--; }|..sub in|
|00004650| 66 6f 5f 74 65 78 74 20 | 7b 0a 20 20 20 20 72 65 |fo_text |{. re|
|00004660| 74 75 72 6e 20 69 66 20 | 24 69 6e 66 6f 5f 69 67 |turn if |$info_ig|
|00004670| 6e 6f 72 65 3b 0a 20 20 | 20 20 69 66 20 28 24 69 |nore;. | if ($i|
|00004680| 6e 66 6f 5f 73 74 61 74 | 75 73 20 65 71 20 27 27 |nfo_stat|us eq ''|
|00004690| 29 20 7b 0a 20 20 20 20 | 20 20 20 20 24 69 6e 66 |) {. | $inf|
|000046a0| 6f 5f 73 74 61 74 75 73 | 3d 20 27 70 27 3b 0a 20 |o_status|= 'p';. |
|000046b0| 20 20 20 7d 0a 20 20 20 | 20 24 69 6e 66 6f 5f 70 | }. | $info_p|
|000046c0| 61 72 61 20 2e 3d 20 24 | 5f 5b 30 5d 3b 0a 7d 0a |ara .= $|_[0];.}.|
|000046d0| 0a 73 75 62 20 69 6e 66 | 6f 5f 74 61 62 20 7b 0a |.sub inf|o_tab {.|
|000046e0| 20 20 20 20 6c 6f 63 61 | 6c 20 28 24 6e 29 20 3d | loca|l ($n) =|
|000046f0| 20 24 5f 5b 30 5d 2d 6c | 65 6e 67 74 68 28 24 69 | $_[0]-l|ength($i|
|00004700| 6e 66 6f 5f 70 61 72 61 | 29 3b 0a 20 20 20 20 24 |nfo_para|);. $|
|00004710| 69 6e 66 6f 5f 70 61 72 | 61 20 2e 3d 20 27 20 27 |info_par|a .= ' '|
|00004720| 78 24 6e 20 69 66 20 24 | 6e 3e 30 3b 0a 7d 0a 0a |x$n if $|n>0;.}..|
|00004730| 73 75 62 20 69 6e 66 6f | 5f 6e 65 77 6c 69 6e 65 |sub info|_newline|
|00004740| 20 7b 0a 20 20 20 20 72 | 65 74 75 72 6e 20 75 6e | {. r|eturn un|
|00004750| 6c 65 73 73 20 24 69 6e | 66 6f 5f 73 74 61 74 75 |less $in|fo_statu|
|00004760| 73 20 65 71 20 27 70 27 | 3b 0a 20 20 20 20 70 72 |s eq 'p'|;. pr|
|00004770| 69 6e 74 20 49 4e 46 4f | 20 26 69 6e 66 6f 5f 77 |int INFO| &info_w|
|00004780| 72 69 74 65 70 61 72 61 | 3b 0a 7d 0a 0a 73 75 62 |ritepara|;.}..sub|
|00004790| 20 69 6e 66 6f 5f 77 72 | 69 74 65 70 61 72 61 20 | info_wr|itepara |
|000047a0| 7b 0a 20 20 20 20 6c 6f | 63 61 6c 20 28 24 74 68 |{. lo|cal ($th|
|000047b0| 69 73 6c 69 6e 65 2c 20 | 24 74 68 69 73 77 6f 72 |isline, |$thiswor|
|000047c0| 64 2c 20 24 72 65 73 74 | 2c 20 24 6f 75 74 70 75 |d, $rest|, $outpu|
|000047d0| 74 29 3b 0a 20 20 20 20 | 66 6f 72 20 28 3b 3b 29 |t);. |for (;;)|
|000047e0| 20 7b 0a 20 20 20 20 20 | 20 20 20 6c 61 73 74 20 | {. | last |
|000047f0| 75 6e 6c 65 73 73 20 24 | 69 6e 66 6f 5f 70 61 72 |unless $|info_par|
|00004800| 61 20 3d 7e 20 6d 2f 5c | 53 2f 3b 0a 20 20 20 20 |a =~ m/\|S/;. |
|00004810| 20 20 20 20 24 74 68 69 | 73 6c 69 6e 65 3d 20 24 | $thi|sline= $|
|00004820| 69 6e 66 6f 5f 69 6e 64 | 65 6e 74 73 74 72 69 6e |info_ind|entstrin|
|00004830| 67 3b 0a 20 20 20 20 20 | 20 20 20 66 6f 72 20 28 |g;. | for (|
|00004840| 3b 3b 29 20 7b 0a 20 20 | 20 20 20 20 20 20 20 20 |;;) {. | |
|00004850| 20 20 6c 61 73 74 20 75 | 6e 6c 65 73 73 20 24 69 | last u|nless $i|
|00004860| 6e 66 6f 5f 70 61 72 61 | 20 3d 7e 20 6d 2f 5e 28 |nfo_para| =~ m/^(|
|00004870| 5c 73 2a 5c 53 2b 29 2f | 3b 0a 20 20 20 20 20 20 |\s*\S+)/|;. |
|00004880| 20 20 20 20 20 20 75 6e | 6c 65 73 73 20 28 6c 65 | un|less (le|
|00004890| 6e 67 74 68 28 24 31 29 | 20 2b 20 6c 65 6e 67 74 |ngth($1)| + lengt|
|000048a0| 68 28 24 74 68 69 73 6c | 69 6e 65 29 20 3c 20 37 |h($thisl|ine) < 7|
|000048b0| 35 20 7c 7c 0a 20 20 20 | 20 20 20 20 20 20 20 20 |5 ||. | |
|000048c0| 20 20 20 20 20 20 20 20 | 20 6c 65 6e 67 74 68 28 | | length(|
|000048d0| 24 74 68 69 73 6c 69 6e | 65 29 20 3d 3d 20 6c 65 |$thislin|e) == le|
|000048e0| 6e 67 74 68 28 24 69 6e | 66 6f 5f 69 6e 64 65 6e |ngth($in|fo_inden|
|000048f0| 74 73 74 72 69 6e 67 29 | 29 20 7b 0a 20 20 20 20 |tstring)|) {. |
|00004900| 20 20 20 20 20 20 20 20 | 20 20 20 20 6c 61 73 74 | | last|
|00004910| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0a |;. | }.|
|00004920| 20 20 20 20 20 20 20 20 | 20 20 20 20 24 74 68 69 | | $thi|
|00004930| 73 6c 69 6e 65 20 2e 3d | 20 24 31 3b 0a 20 20 20 |sline .=| $1;. |
|00004940| 20 20 20 20 20 20 20 20 | 20 24 69 6e 66 6f 5f 70 | | $info_p|
|00004950| 61 72 61 3d 20 24 27 3b | 0a 20 20 20 20 20 20 20 |ara= $';|. |
|00004960| 20 7d 0a 20 20 20 20 20 | 20 20 20 24 69 6e 66 6f | }. | $info|
|00004970| 5f 70 61 72 61 20 3d 7e | 20 73 2f 5e 5c 73 2a 2f |_para =~| s/^\s*/|
|00004980| 2f 3b 0a 20 20 20 20 20 | 20 20 20 24 6f 75 74 70 |/;. | $outp|
|00004990| 75 74 2e 3d 20 24 74 68 | 69 73 6c 69 6e 65 2e 22 |ut.= $th|isline."|
|000049a0| 5c 6e 22 3b 0a 20 20 20 | 20 20 20 20 20 24 69 6e |\n";. | $in|
|000049b0| 66 6f 5f 69 6e 64 65 6e | 74 73 74 72 69 6e 67 3d |fo_inden|tstring=|
|000049c0| 20 24 69 6e 66 6f 5f 6e | 65 78 74 69 6e 64 65 6e | $info_n|extinden|
|000049d0| 74 3b 0a 20 20 20 20 20 | 20 20 20 6c 61 73 74 20 |t;. | last |
|000049e0| 75 6e 6c 65 73 73 20 6c | 65 6e 67 74 68 28 24 69 |unless l|ength($i|
|000049f0| 6e 66 6f 5f 70 61 72 61 | 29 3b 0a 20 20 20 20 7d |nfo_para|);. }|
|00004a00| 0a 20 20 20 20 24 69 6e | 66 6f 5f 73 74 61 74 75 |. $in|fo_statu|
|00004a10| 73 3d 20 27 27 3b 20 20 | 24 69 6e 66 6f 5f 70 61 |s= ''; |$info_pa|
|00004a20| 72 61 3d 20 27 27 3b 0a | 20 20 20 20 72 65 74 75 |ra= '';.| retu|
|00004a30| 72 6e 20 24 6f 75 74 70 | 75 74 3b 0a 7d 20 20 20 |rn $outp|ut;.} |
|00004a40| 20 0a 0a 73 75 62 20 69 | 6e 66 6f 5f 65 6e 64 70 | ..sub i|nfo_endp|
|00004a50| 61 72 61 20 7b 0a 20 20 | 20 20 72 65 74 75 72 6e |ara {. | return|
|00004a60| 20 75 6e 6c 65 73 73 20 | 24 69 6e 66 6f 5f 73 74 | unless |$info_st|
|00004a70| 61 74 75 73 20 65 71 20 | 27 70 27 3b 0a 20 20 20 |atus eq |'p';. |
|00004a80| 20 70 72 69 6e 74 20 49 | 4e 46 4f 20 26 69 6e 66 | print I|NFO &inf|
|00004a90| 6f 5f 77 72 69 74 65 70 | 61 72 61 3b 0a 20 20 20 |o_writep|ara;. |
|00004aa0| 20 70 72 69 6e 74 20 49 | 4e 46 4f 20 22 5c 6e 22 | print I|NFO "\n"|
|00004ab0| 3b 0a 7d 0a 0a 73 75 62 | 20 69 6e 66 6f 5f 65 6e |;.}..sub| info_en|
|00004ac0| 64 68 65 61 64 69 6e 67 | 20 7b 0a 20 20 20 20 24 |dheading| {. $|
|00004ad0| 69 6e 66 6f 5f 70 61 72 | 61 20 3d 7e 20 73 2f 5c |info_par|a =~ s/\|
|00004ae0| 73 2a 24 2f 2f 3b 0a 20 | 20 20 20 70 72 69 6e 74 |s*$//;. | print|
|00004af0| 20 49 4e 46 4f 20 22 24 | 69 6e 66 6f 5f 70 61 72 | INFO "$|info_par|
|00004b00| 61 5c 6e 5c 6e 22 3b 0a | 20 20 20 20 24 69 6e 66 |a\n\n";.| $inf|
|00004b10| 6f 5f 73 74 61 74 75 73 | 3d 20 27 27 3b 0a 20 20 |o_status|= '';. |
|00004b20| 20 20 24 69 6e 66 6f 5f | 70 61 72 61 3d 20 27 27 | $info_|para= ''|
|00004b30| 3b 0a 7d 0a 0a 73 75 62 | 20 69 6e 66 6f 5f 65 6e |;.}..sub| info_en|
|00004b40| 64 6d 61 6a 6f 72 68 65 | 61 64 69 6e 67 20 7b 20 |dmajorhe|ading { |
|00004b50| 26 69 6e 66 6f 5f 65 6e | 64 68 65 61 64 69 6e 67 |&info_en|dheading|
|00004b60| 28 40 5f 29 3b 20 7d 0a | 73 75 62 20 69 6e 66 6f |(@_); }.|sub info|
|00004b70| 5f 65 6e 64 6d 69 6e 6f | 72 68 65 61 64 69 6e 67 |_endmino|rheading|
|00004b80| 20 7b 20 26 69 6e 66 6f | 5f 65 6e 64 68 65 61 64 | { &info|_endhead|
|00004b90| 69 6e 67 28 40 5f 29 3b | 20 7d 0a 0a 73 75 62 20 |ing(@_);| }..sub |
|00004ba0| 69 6e 66 6f 5f 73 74 61 | 72 74 76 65 72 62 61 74 |info_sta|rtverbat|
|00004bb0| 69 6d 20 7b 0a 20 20 20 | 20 70 72 69 6e 74 20 49 |im {. | print I|
|00004bc0| 4e 46 4f 20 26 69 6e 66 | 6f 5f 77 72 69 74 65 70 |NFO &inf|o_writep|
|00004bd0| 61 72 61 3b 0a 7d 0a 0a | 73 75 62 20 69 6e 66 6f |ara;.}..|sub info|
|00004be0| 5f 76 65 72 62 61 74 69 | 6d 20 7b 0a 20 20 20 20 |_verbati|m {. |
|00004bf0| 70 72 69 6e 74 20 49 4e | 46 4f 20 24 5f 5b 30 5d |print IN|FO $_[0]|
|00004c00| 2c 22 5c 6e 22 3b 0a 7d | 0a 0a 73 75 62 20 69 6e |,"\n";.}|..sub in|
|00004c10| 66 6f 5f 65 6e 64 76 65 | 72 62 61 74 69 6d 20 7b |fo_endve|rbatim {|
|00004c20| 0a 20 20 20 20 24 69 6e | 66 6f 5f 73 74 61 74 75 |. $in|fo_statu|
|00004c30| 73 3d 20 24 69 6e 66 6f | 5f 76 73 74 61 74 75 73 |s= $info|_vstatus|
|00004c40| 3b 0a 7d 0a 0a 73 75 62 | 20 69 6e 66 6f 5f 66 69 |;.}..sub| info_fi|
|00004c50| 6e 69 73 68 20 7b 0a 20 | 20 20 20 63 6c 6f 73 65 |nish {. | close|
|00004c60| 28 49 4e 46 4f 29 3b 0a | 7d 0a 0a 73 75 62 20 69 |(INFO);.|}..sub i|
|00004c70| 6e 66 6f 5f 73 74 61 72 | 74 69 6e 64 65 78 20 7b |nfo_star|tindex {|
|00004c80| 0a 20 20 20 20 26 69 6e | 66 6f 5f 65 6e 64 70 61 |. &in|fo_endpa|
|00004c90| 72 61 3b 0a 20 20 20 20 | 24 69 6e 66 6f 5f 6d 6f |ra;. |$info_mo|
|00004ca0| 72 65 64 65 74 61 69 6c | 3d 20 27 27 3b 0a 20 20 |redetail|= '';. |
|00004cb0| 20 20 24 69 6e 66 6f 5f | 73 74 61 74 75 73 3d 20 | $info_|status= |
|00004cc0| 27 27 3b 0a 7d 0a 0a 73 | 75 62 20 69 6e 66 6f 5f |'';.}..s|ub info_|
|00004cd0| 65 6e 64 69 6e 64 65 78 | 20 7b 0a 20 20 20 20 70 |endindex| {. p|
|00004ce0| 72 69 6e 74 20 49 4e 46 | 4f 20 22 24 69 6e 66 6f |rint INF|O "$info|
|00004cf0| 5f 6d 6f 72 65 64 65 74 | 61 69 6c 5c 6e 22 20 69 |_moredet|ail\n" i|
|00004d00| 66 20 6c 65 6e 67 74 68 | 28 24 69 6e 66 6f 5f 6d |f length|($info_m|
|00004d10| 6f 72 65 64 65 74 61 69 | 6c 29 3b 0a 7d 0a 0a 73 |oredetai|l);.}..s|
|00004d20| 75 62 20 69 6e 66 6f 5f | 65 6e 64 69 6e 64 65 78 |ub info_|endindex|
|00004d30| 69 74 65 6d 20 7b 0a 20 | 20 20 20 24 69 6e 66 6f |item {. | $info|
|00004d40| 5f 69 6e 64 65 6e 74 73 | 74 72 69 6e 67 3d 20 73 |_indents|tring= s|
|00004d50| 70 72 69 6e 74 66 28 22 | 2a 20 25 2d 31 37 73 20 |printf("|* %-17s |
|00004d60| 22 2c 24 69 6e 66 6f 5f | 6c 61 62 65 6c 2e 27 3a |",$info_|label.':|
|00004d70| 3a 27 29 3b 0a 20 20 20 | 20 24 69 6e 66 6f 5f 6e |:');. | $info_n|
|00004d80| 65 78 74 69 6e 64 65 6e | 74 3d 20 27 20 27 78 32 |extinden|t= ' 'x2|
|00004d90| 30 3b 0a 20 20 20 20 6c | 6f 63 61 6c 20 28 24 74 |0;. l|ocal ($t|
|00004da0| 78 74 29 3b 0a 20 20 20 | 20 24 74 78 74 3d 20 26 |xt);. | $txt= &|
|00004db0| 69 6e 66 6f 5f 77 72 69 | 74 65 70 61 72 61 3b 0a |info_wri|tepara;.|
|00004dc0| 20 20 20 20 69 66 20 28 | 24 69 6e 66 6f 5f 6d 61 | if (|$info_ma|
|00004dd0| 69 6e 29 20 7b 0a 20 20 | 20 20 20 20 20 20 70 72 |in) {. | pr|
|00004de0| 69 6e 74 20 49 4e 46 4f | 20 24 6c 61 62 65 6c 2e |int INFO| $label.|
|00004df0| 24 74 78 74 3b 0a 20 20 | 20 20 20 20 20 20 24 74 |$txt;. | $t|
|00004e00| 78 74 20 3d 7e 20 73 2f | 5e 2e 7b 32 30 7d 2f 2f |xt =~ s/|^.{20}//|
|00004e10| 3b 0a 20 20 20 20 20 20 | 20 20 24 69 6e 66 6f 5f |;. | $info_|
|00004e20| 6d 6f 72 65 64 65 74 61 | 69 6c 2e 3d 20 24 74 78 |moredeta|il.= $tx|
|00004e30| 74 3b 0a 20 20 20 20 7d | 20 65 6c 73 65 20 7b 0a |t;. }| else {.|
|00004e40| 20 20 20 20 20 20 20 20 | 24 69 6e 66 6f 5f 6d 6f | |$info_mo|
|00004e50| 72 65 64 65 74 61 69 6c | 2e 3d 20 24 6c 61 62 65 |redetail|.= $labe|
|00004e60| 6c 2e 24 74 78 74 3b 0a | 20 20 20 20 7d 0a 20 20 |l.$txt;.| }. |
|00004e70| 20 20 24 69 6e 66 6f 5f | 69 6e 64 65 6e 74 73 74 | $info_|indentst|
|00004e80| 72 69 6e 67 3d 20 24 69 | 6e 66 6f 5f 6e 65 78 74 |ring= $i|nfo_next|
|00004e90| 69 6e 64 65 6e 74 3d 20 | 27 27 3b 0a 20 20 20 20 |indent= |'';. |
|00004ea0| 24 69 6e 66 6f 5f 73 74 | 61 74 75 73 3d 27 70 27 |$info_st|atus='p'|
|00004eb0| 3b 0a 7d 0a 0a 73 75 62 | 20 69 6e 66 6f 5f 73 74 |;.}..sub| info_st|
|00004ec0| 61 72 74 69 6e 64 65 78 | 69 74 65 6d 20 7b 0a 20 |artindex|item {. |
|00004ed0| 20 20 20 70 72 69 6e 74 | 20 49 4e 46 4f 20 22 2a | print| INFO "*|
|00004ee0| 20 4d 65 6e 75 3a 5c 6e | 22 20 69 66 20 24 69 6e | Menu:\n|" if $in|
|00004ef0| 66 6f 5f 73 74 61 74 75 | 73 20 65 71 20 27 27 3b |fo_statu|s eq '';|
|00004f00| 0a 20 20 20 20 24 69 6e | 66 6f 5f 73 74 61 74 75 |. $in|fo_statu|
|00004f10| 73 3d 20 27 27 3b 0a 20 | 20 20 20 24 69 6e 66 6f |s= '';. | $info|
|00004f20| 5f 6c 61 62 65 6c 3d 20 | 24 5f 5b 32 5d 3b 0a 20 |_label= |$_[2];. |
|00004f30| 20 20 20 24 69 6e 66 6f | 5f 6d 61 69 6e 3d 20 30 | $info|_main= 0|
|00004f40| 3b 0a 7d 0a 0a 73 75 62 | 20 69 6e 66 6f 5f 73 74 |;.}..sub| info_st|
|00004f50| 61 72 74 69 6e 64 65 78 | 6d 61 69 6e 69 74 65 6d |artindex|mainitem|
|00004f60| 20 7b 0a 20 20 20 20 70 | 72 69 6e 74 20 49 4e 46 | {. p|rint INF|
|00004f70| 4f 20 22 2a 20 4d 65 6e | 75 3a 5c 6e 22 20 69 66 |O "* Men|u:\n" if|
|00004f80| 20 24 69 6e 66 6f 5f 73 | 74 61 74 75 73 20 65 71 | $info_s|tatus eq|
|00004f90| 20 27 27 3b 0a 20 20 20 | 20 24 69 6e 66 6f 5f 6c | '';. | $info_l|
|00004fa0| 61 62 65 6c 3d 20 24 5f | 5b 32 5d 3b 0a 20 20 20 |abel= $_|[2];. |
|00004fb0| 20 24 69 6e 66 6f 5f 6d | 61 69 6e 3d 20 31 3b 0a | $info_m|ain= 1;.|
|00004fc0| 20 20 20 20 24 69 6e 66 | 6f 5f 6d 6f 72 65 64 65 | $inf|o_morede|
|00004fd0| 74 61 69 6c 20 2e 3d 20 | 22 5c 6e 24 5f 5b 32 5d |tail .= |"\n$_[2]|
|00004fe0| 2c 20 22 3b 0a 20 20 20 | 20 24 69 6e 66 6f 5f 73 |, ";. | $info_s|
|00004ff0| 74 61 74 75 73 3d 20 27 | 27 3b 0a 7d 0a 0a 73 75 |tatus= '|';.}..su|
|00005000| 62 20 69 6e 66 6f 5f 73 | 74 61 72 74 69 6e 64 65 |b info_s|tartinde|
|00005010| 6e 74 20 7b 0a 20 20 20 | 20 24 69 6e 66 6f 5f 69 |nt {. | $info_i|
|00005020| 73 74 61 74 75 73 3d 20 | 24 69 6e 66 6f 5f 73 74 |status= |$info_st|
|00005030| 61 74 75 73 3b 0a 20 20 | 20 20 70 72 69 6e 74 20 |atus;. | print |
|00005040| 49 4e 46 4f 20 26 69 6e | 66 6f 5f 77 72 69 74 65 |INFO &in|fo_write|
|00005050| 70 61 72 61 3b 0a 20 20 | 20 20 24 69 6e 66 6f 5f |para;. | $info_|
|00005060| 69 6e 64 65 6e 74 73 74 | 72 69 6e 67 3d 20 22 20 |indentst|ring= " |
|00005070| 20 20 24 69 6e 66 6f 5f | 69 6e 64 65 6e 74 73 74 | $info_|indentst|
|00005080| 72 69 6e 67 22 3b 0a 20 | 20 20 20 24 69 6e 66 6f |ring";. | $info|
|00005090| 5f 6e 65 78 74 69 6e 64 | 65 6e 74 3d 20 22 20 20 |_nextind|ent= " |
|000050a0| 20 24 69 6e 66 6f 5f 6e | 65 78 74 69 6e 64 65 6e | $info_n|extinden|
|000050b0| 74 22 3b 0a 7d 0a 0a 73 | 75 62 20 69 6e 66 6f 5f |t";.}..s|ub info_|
|000050c0| 65 6e 64 69 6e 64 65 6e | 74 20 7b 0a 20 20 20 20 |endinden|t {. |
|000050d0| 24 69 6e 66 6f 5f 69 6e | 64 65 6e 74 73 74 72 69 |$info_in|dentstri|
|000050e0| 6e 67 20 3d 7e 20 73 2f | 5e 20 20 20 2f 2f 3b 0a |ng =~ s/|^ //;.|
|000050f0| 20 20 20 20 24 69 6e 66 | 6f 5f 6e 65 78 74 69 6e | $inf|o_nextin|
|00005100| 64 65 6e 74 20 3d 7e 20 | 73 2f 5e 20 20 20 2f 2f |dent =~ |s/^ //|
|00005110| 3b 0a 20 20 20 20 24 69 | 6e 66 6f 5f 73 74 61 74 |;. $i|nfo_stat|
|00005120| 75 73 3d 20 24 69 6e 66 | 6f 5f 69 73 74 61 74 75 |us= $inf|o_istatu|
|00005130| 73 3b 0a 7d 0a 0a 73 75 | 62 20 69 6e 66 6f 5f 73 |s;.}..su|b info_s|
|00005140| 74 61 72 74 70 61 63 6b | 65 64 6c 69 73 74 20 7b |tartpack|edlist {|
|00005150| 20 24 69 6e 66 6f 5f 70 | 6c 63 3d 30 3b 20 7d 0a | $info_p|lc=0; }.|
|00005160| 73 75 62 20 69 6e 66 6f | 5f 65 6e 64 70 61 63 6b |sub info|_endpack|
|00005170| 65 64 6c 69 73 74 20 7b | 20 26 69 6e 66 6f 5f 6e |edlist {| &info_n|
|00005180| 65 77 6c 69 6e 65 20 69 | 66 20 21 24 69 6e 66 6f |ewline i|f !$info|
|00005190| 5f 70 6c 63 3b 20 7d 0a | 73 75 62 20 69 6e 66 6f |_plc; }.|sub info|
|000051a0| 5f 70 61 63 6b 65 64 69 | 74 65 6d 20 7b 0a 20 20 |_packedi|tem {. |
|000051b0| 20 20 26 69 6e 66 6f 5f | 6e 65 77 6c 69 6e 65 20 | &info_|newline |
|000051c0| 69 66 20 21 24 69 6e 66 | 6f 5f 70 6c 63 3b 0a 20 |if !$inf|o_plc;. |
|000051d0| 20 20 20 26 69 6e 66 6f | 5f 74 61 62 28 24 69 6e | &info|_tab($in|
|000051e0| 66 6f 5f 70 6c 63 2a 34 | 30 2b 35 29 3b 0a 20 20 |fo_plc*4|0+5);. |
|000051f0| 20 20 24 69 6e 66 6f 5f | 70 6c 63 3d 20 21 24 69 | $info_|plc= !$i|
|00005200| 6e 66 6f 5f 70 6c 63 3b | 0a 7d 0a 0a 73 75 62 20 |nfo_plc;|.}..sub |
|00005210| 69 6e 66 6f 5f 73 74 61 | 72 74 6c 69 73 74 20 7b |info_sta|rtlist {|
|00005220| 0a 20 20 20 20 24 69 6e | 66 6f 5f 69 73 74 61 74 |. $in|fo_istat|
|00005230| 75 73 3d 20 24 69 6e 66 | 6f 5f 73 74 61 74 75 73 |us= $inf|o_status|
|00005240| 3b 0a 20 20 20 20 70 72 | 69 6e 74 20 49 4e 46 4f |;. pr|int INFO|
|00005250| 20 26 69 6e 66 6f 5f 77 | 72 69 74 65 70 61 72 61 | &info_w|ritepara|
|00005260| 3b 0a 20 20 20 20 24 69 | 6e 66 6f 5f 69 6e 64 65 |;. $i|nfo_inde|
|00005270| 6e 74 73 74 72 69 6e 67 | 3d 20 22 20 20 24 69 6e |ntstring|= " $in|
|00005280| 66 6f 5f 69 6e 64 65 6e | 74 73 74 72 69 6e 67 22 |fo_inden|tstring"|
|00005290| 3b 0a 20 20 20 20 24 69 | 6e 66 6f 5f 6e 65 78 74 |;. $i|nfo_next|
|000052a0| 69 6e 64 65 6e 74 3d 20 | 22 20 20 24 69 6e 66 6f |indent= |" $info|
|000052b0| 5f 6e 65 78 74 69 6e 64 | 65 6e 74 22 3b 0a 7d 0a |_nextind|ent";.}.|
|000052c0| 0a 73 75 62 20 69 6e 66 | 6f 5f 65 6e 64 6c 69 73 |.sub inf|o_endlis|
|000052d0| 74 20 7b 0a 20 20 20 20 | 24 69 6e 66 6f 5f 69 6e |t {. |$info_in|
|000052e0| 64 65 6e 74 73 74 72 69 | 6e 67 20 3d 7e 20 73 2f |dentstri|ng =~ s/|
|000052f0| 5e 20 20 2f 2f 3b 0a 20 | 20 20 20 24 69 6e 66 6f |^ //;. | $info|
|00005300| 5f 6e 65 78 74 69 6e 64 | 65 6e 74 20 3d 7e 20 73 |_nextind|ent =~ s|
|00005310| 2f 5e 20 20 2f 2f 3b 0a | 20 20 20 20 24 69 6e 66 |/^ //;.| $inf|
|00005320| 6f 5f 73 74 61 74 75 73 | 3d 20 24 69 6e 66 6f 5f |o_status|= $info_|
|00005330| 6c 73 74 61 74 75 73 3b | 0a 7d 0a 0a 73 75 62 20 |lstatus;|.}..sub |
|00005340| 69 6e 66 6f 5f 69 74 65 | 6d 20 7b 0a 20 20 20 20 |info_ite|m {. |
|00005350| 26 69 6e 66 6f 5f 6e 65 | 77 6c 69 6e 65 3b 0a 20 |&info_ne|wline;. |
|00005360| 20 20 20 24 69 6e 66 6f | 5f 69 6e 64 65 6e 74 73 | $info|_indents|
|00005370| 74 72 69 6e 67 20 3d 7e | 20 73 2f 20 20 24 2f 2a |tring =~| s/ $/*|
|00005380| 20 2f 3b 0a 7d 0a 0a 73 | 75 62 20 69 6e 66 6f 5f | /;.}..s|ub info_|
|00005390| 70 61 67 65 72 65 66 20 | 7b 0a 20 20 20 20 26 69 |pageref |{. &i|
|000053a0| 6e 66 6f 5f 74 65 78 74 | 28 22 2a 4e 6f 74 65 20 |nfo_text|("*Note |
|000053b0| 51 75 65 73 74 69 6f 6e | 20 24 5f 5b 31 5d 3a 3a |Question| $_[1]::|
|000053c0| 20 5c 60 22 29 3b 0a 7d | 0a 0a 73 75 62 20 69 6e | \`");.}|..sub in|
|000053d0| 66 6f 5f 65 6e 64 70 61 | 67 65 72 65 66 20 7b 0a |fo_endpa|geref {.|
|000053e0| 20 20 20 20 26 69 6e 66 | 6f 5f 74 65 78 74 28 22 | &inf|o_text("|
|000053f0| 27 22 29 3b 0a 7d 0a 0a | 31 3b 0a 00 00 00 00 00 |'");.}..|1;......|
|00005400| 6d 2d 6c 6f 75 74 2e 70 | 6c 00 00 00 00 00 00 00 |m-lout.p|l.......|
|00005410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005460| 00 00 00 00 31 30 30 36 | 36 34 20 00 20 20 20 31 |....1006|64 . 1|
|00005470| 34 34 20 00 20 20 20 31 | 34 34 20 00 20 20 20 20 |44 . 1|44 . |
|00005480| 20 20 31 33 37 33 30 20 | 20 36 30 32 34 35 37 33 | 13730 | 6024573|
|00005490| 37 34 32 20 20 31 30 34 | 34 30 00 20 30 00 00 00 |742 104|40. 0...|
|000054a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005500| 00 75 73 74 61 72 20 20 | 00 69 61 6e 00 00 00 00 |.ustar |.ian....|
|00005510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005520| 00 00 00 00 00 00 00 00 | 00 69 61 6e 00 00 00 00 |........|.ian....|
|00005530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005600| 23 23 20 4c 6f 75 74 20 | 6f 75 74 70 75 74 0a 23 |## Lout |output.#|
|00005610| 20 43 6f 70 79 72 69 67 | 68 74 20 28 43 29 20 31 | Copyrig|ht (C) 1|
|00005620| 39 39 33 2d 31 39 39 35 | 20 49 61 6e 20 4a 61 63 |993-1995| Ian Jac|
|00005630| 6b 73 6f 6e 2e 0a 0a 23 | 20 54 68 69 73 20 66 69 |kson...#| This fi|
|00005640| 6c 65 20 69 73 20 66 72 | 65 65 20 73 6f 66 74 77 |le is fr|ee softw|
|00005650| 61 72 65 3b 20 79 6f 75 | 20 63 61 6e 20 72 65 64 |are; you| can red|
|00005660| 69 73 74 72 69 62 75 74 | 65 20 69 74 20 61 6e 64 |istribut|e it and|
|00005670| 2f 6f 72 20 6d 6f 64 69 | 66 79 0a 23 20 69 74 20 |/or modi|fy.# it |
|00005680| 75 6e 64 65 72 20 74 68 | 65 20 74 65 72 6d 73 20 |under th|e terms |
|00005690| 6f 66 20 74 68 65 20 47 | 4e 55 20 47 65 6e 65 72 |of the G|NU Gener|
|000056a0| 61 6c 20 50 75 62 6c 69 | 63 20 4c 69 63 65 6e 73 |al Publi|c Licens|
|000056b0| 65 20 61 73 20 70 75 62 | 6c 69 73 68 65 64 20 62 |e as pub|lished b|
|000056c0| 79 0a 23 20 74 68 65 20 | 46 72 65 65 20 53 6f 66 |y.# the |Free Sof|
|000056d0| 74 77 61 72 65 20 46 6f | 75 6e 64 61 74 69 6f 6e |tware Fo|undation|
|000056e0| 3b 20 65 69 74 68 65 72 | 20 76 65 72 73 69 6f 6e |; either| version|
|000056f0| 20 32 2c 20 6f 72 20 28 | 61 74 20 79 6f 75 72 20 | 2, or (|at your |
|00005700| 6f 70 74 69 6f 6e 29 0a | 23 20 61 6e 79 20 6c 61 |option).|# any la|
|00005710| 74 65 72 20 76 65 72 73 | 69 6f 6e 2e 0a 0a 23 20 |ter vers|ion...# |
|00005720| 49 74 20 69 73 20 64 69 | 73 74 72 69 62 75 74 65 |It is di|stribute|
|00005730| 64 20 69 6e 20 74 68 65 | 20 68 6f 70 65 20 74 68 |d in the| hope th|
|00005740| 61 74 20 69 74 20 77 69 | 6c 6c 20 62 65 20 75 73 |at it wi|ll be us|
|00005750| 65 66 75 6c 2c 0a 23 20 | 62 75 74 20 57 49 54 48 |eful,.# |but WITH|
|00005760| 4f 55 54 20 41 4e 59 20 | 57 41 52 52 41 4e 54 59 |OUT ANY |WARRANTY|
|00005770| 3b 20 77 69 74 68 6f 75 | 74 20 65 76 65 6e 20 74 |; withou|t even t|
|00005780| 68 65 20 69 6d 70 6c 69 | 65 64 20 77 61 72 72 61 |he impli|ed warra|
|00005790| 6e 74 79 20 6f 66 0a 23 | 20 4d 45 52 43 48 41 4e |nty of.#| MERCHAN|
|000057a0| 54 41 42 49 4c 49 54 59 | 20 6f 72 20 46 49 54 4e |TABILITY| or FITN|
|000057b0| 45 53 53 20 46 4f 52 20 | 41 20 50 41 52 54 49 43 |ESS FOR |A PARTIC|
|000057c0| 55 4c 41 52 20 50 55 52 | 50 4f 53 45 2e 20 20 53 |ULAR PUR|POSE. S|
|000057d0| 65 65 20 74 68 65 0a 23 | 20 47 4e 55 20 47 65 6e |ee the.#| GNU Gen|
|000057e0| 65 72 61 6c 20 50 75 62 | 6c 69 63 20 4c 69 63 65 |eral Pub|lic Lice|
|000057f0| 6e 73 65 20 66 6f 72 20 | 6d 6f 72 65 20 64 65 74 |nse for |more det|
|00005800| 61 69 6c 73 2e 0a 0a 23 | 20 59 6f 75 20 73 68 6f |ails...#| You sho|
|00005810| 75 6c 64 20 68 61 76 65 | 20 72 65 63 65 69 76 65 |uld have| receive|
|00005820| 64 20 61 20 63 6f 70 79 | 20 6f 66 20 74 68 65 20 |d a copy| of the |
|00005830| 47 4e 55 20 47 65 6e 65 | 72 61 6c 20 50 75 62 6c |GNU Gene|ral Publ|
|00005840| 69 63 20 4c 69 63 65 6e | 73 65 0a 23 20 61 6c 6f |ic Licen|se.# alo|
|00005850| 6e 67 20 77 69 74 68 20 | 47 4e 55 20 45 6d 61 63 |ng with |GNU Emac|
|00005860| 73 3b 20 73 65 65 20 74 | 68 65 20 66 69 6c 65 20 |s; see t|he file |
|00005870| 43 4f 50 59 49 4e 47 2e | 20 20 49 66 20 6e 6f 74 |COPYING.| If not|
|00005880| 2c 20 77 72 69 74 65 20 | 74 6f 0a 23 20 74 68 65 |, write |to.# the|
|00005890| 20 46 72 65 65 20 53 6f | 66 74 77 61 72 65 20 46 | Free So|ftware F|
|000058a0| 6f 75 6e 64 61 74 69 6f | 6e 2c 20 49 6e 63 2e 2c |oundatio|n, Inc.,|
|000058b0| 20 35 39 20 54 65 6d 70 | 6c 65 20 50 6c 61 63 65 | 59 Temp|le Place|
|000058c0| 20 2d 20 53 75 69 74 65 | 20 33 33 30 2c 0a 23 20 | - Suite| 330,.# |
|000058d0| 42 6f 73 74 6f 6e 2c 20 | 4d 41 20 30 32 31 31 31 |Boston, |MA 02111|
|000058e0| 2d 31 33 30 37 2c 20 55 | 53 41 2e 0a 0a 23 20 28 |-1307, U|SA...# (|
|000058f0| 4e 6f 74 65 3a 20 49 20 | 64 6f 20 6e 6f 74 20 63 |Note: I |do not c|
|00005900| 6f 6e 73 69 64 65 72 20 | 77 6f 72 6b 73 20 70 72 |onsider |works pr|
|00005910| 6f 64 75 63 65 64 20 75 | 73 69 6e 67 20 74 68 65 |oduced u|sing the|
|00005920| 73 65 20 42 46 4e 4e 20 | 70 72 6f 63 65 73 73 69 |se BFNN |processi|
|00005930| 6e 67 0a 23 20 74 6f 6f | 6c 73 20 74 6f 20 62 65 |ng.# too|ls to be|
|00005940| 20 64 65 72 69 76 61 74 | 69 76 65 20 77 6f 72 6b | derivat|ive work|
|00005950| 73 20 6f 66 20 74 68 65 | 20 74 6f 6f 6c 73 2c 20 |s of the| tools, |
|00005960| 73 6f 20 74 68 65 79 20 | 61 72 65 20 4e 4f 54 20 |so they |are NOT |
|00005970| 63 6f 76 65 72 65 64 0a | 23 20 62 79 20 74 68 65 |covered.|# by the|
|00005980| 20 47 50 4c 2e 20 20 48 | 6f 77 65 76 65 72 2c 20 | GPL. H|owever, |
|00005990| 49 20 77 6f 75 6c 64 20 | 61 70 70 72 65 63 69 61 |I would |apprecia|
|000059a0| 74 65 20 69 74 20 69 66 | 20 79 6f 75 20 63 72 65 |te it if| you cre|
|000059b0| 64 69 74 65 64 20 6d 65 | 20 69 66 0a 23 20 61 70 |dited me| if.# ap|
|000059c0| 70 72 6f 70 72 69 61 74 | 65 20 69 6e 20 61 6e 79 |propriat|e in any|
|000059d0| 20 64 6f 63 75 6d 65 6e | 74 73 20 79 6f 75 20 66 | documen|ts you f|
|000059e0| 6f 72 6d 61 74 20 75 73 | 69 6e 67 20 42 46 4e 4e |ormat us|ing BFNN|
|000059f0| 2e 29 0a 0a 73 75 62 20 | 6c 6f 75 74 5f 69 6e 69 |.)..sub |lout_ini|
|00005a00| 74 20 7b 0a 20 20 20 20 | 6f 70 65 6e 28 4c 4f 55 |t {. |open(LOU|
|00005a10| 54 2c 22 3e 24 70 72 65 | 66 69 78 2e 6c 6f 75 74 |T,">$pre|fix.lout|
|00005a20| 22 29 3b 0a 20 20 20 20 | 63 68 6f 70 28 24 64 70 |");. |chop($dp|
|00005a30| 72 69 6e 74 3d 20 60 64 | 61 74 65 20 27 2b 25 64 |rint= `d|ate '+%d|
|00005a40| 20 25 42 20 25 59 27 60 | 29 3b 0a 20 20 20 20 24 | %B %Y'`|);. $|
|00005a50| 64 70 72 69 6e 74 20 3d | 7e 20 73 2f 5e 30 2f 2f |dprint =|~ s/^0//|
|00005a60| 3b 0a 7d 0a 0a 73 75 62 | 20 6c 6f 75 74 5f 73 74 |;.}..sub| lout_st|
|00005a70| 61 72 74 75 70 20 7b 0a | 20 20 20 20 6c 6f 63 61 |artup {.| loca|
|00005a80| 6c 20 28 24 6c 62 73 29 | 20 3d 20 26 6c 6f 75 74 |l ($lbs)| = &lout|
|00005a90| 5f 73 61 6e 69 74 69 73 | 65 28 24 75 73 65 72 5f |_sanitis|e($user_|
|00005aa0| 62 72 69 65 66 74 69 74 | 6c 65 29 3b 0a 20 20 20 |brieftit|le);. |
|00005ab0| 20 70 72 69 6e 74 20 4c | 4f 55 54 20 3c 3c 45 4e | print L|OUT <<EN|
|00005ac0| 44 3b 0a 5c 40 53 79 73 | 49 6e 63 6c 75 64 65 7b |D;.\@Sys|Include{|
|00005ad0| 20 66 6f 6e 74 64 65 66 | 73 20 7d 0a 5c 40 53 79 | fontdef|s }.\@Sy|
|00005ae0| 73 49 6e 63 6c 75 64 65 | 7b 20 6c 61 6e 67 64 65 |sInclude|{ langde|
|00005af0| 66 73 20 7d 0a 5c 40 53 | 79 73 49 6e 63 6c 75 64 |fs }.\@S|ysInclud|
|00005b00| 65 7b 20 64 6c 20 7d 0a | 5c 40 53 79 73 49 6e 63 |e{ dl }.|\@SysInc|
|00005b10| 6c 75 64 65 7b 20 64 6f | 63 66 20 7d 0a 5c 40 55 |lude{ do|cf }.\@U|
|00005b20| 73 65 20 7b 20 5c 40 44 | 6f 63 75 6d 65 6e 74 4c |se { \@D|ocumentL|
|00005b30| 61 79 6f 75 74 0a 20 20 | 5c 40 4f 64 64 54 6f 70 |ayout. |\@OddTop|
|00005b40| 20 7b 20 5c 40 4e 75 6c | 6c 20 7d 0a 20 20 5c 40 | { \@Nul|l }. \@|
|00005b50| 45 76 65 6e 54 6f 70 20 | 7b 20 5c 40 4e 75 6c 6c |EvenTop |{ \@Null|
|00005b60| 20 7d 0a 20 20 5c 40 53 | 74 61 72 74 4f 64 64 54 | }. \@S|tartOddT|
|00005b70| 6f 70 20 7b 20 5c 40 4e | 75 6c 6c 20 7d 0a 20 20 |op { \@N|ull }. |
|00005b80| 5c 40 53 74 61 72 74 45 | 76 65 6e 54 6f 70 20 7b |\@StartE|venTop {|
|00005b90| 20 5c 40 4e 75 6c 6c 20 | 7d 0a 20 20 5c 40 4f 64 | \@Null |}. \@Od|
|00005ba0| 64 46 6f 6f 74 20 7b 20 | 7b 20 24 6c 62 73 20 7d |dFoot { |{ $lbs }|
|00005bb0| 20 5c 40 43 65 6e 74 72 | 65 7b 20 2d 20 5c 40 50 | \@Centr|e{ - \@P|
|00005bc0| 61 67 65 4e 75 6d 20 2d | 20 7d 20 5c 40 52 69 67 |ageNum -| } \@Rig|
|00005bd0| 68 74 7b 20 24 64 70 72 | 69 6e 74 20 7d 20 7d 0a |ht{ $dpr|int } }.|
|00005be0| 20 20 5c 40 45 76 65 6e | 46 6f 6f 74 20 7b 20 7b | \@Even|Foot { {|
|00005bf0| 20 24 6c 62 73 20 7d 20 | 5c 40 43 65 6e 74 72 65 | $lbs } |\@Centre|
|00005c00| 7b 20 2d 20 5c 40 50 61 | 67 65 4e 75 6d 20 2d 20 |{ - \@Pa|geNum - |
|00005c10| 7d 20 5c 40 52 69 67 68 | 74 7b 20 24 64 70 72 69 |} \@Righ|t{ $dpri|
|00005c20| 6e 74 20 7d 20 7d 0a 20 | 20 5c 40 53 74 61 72 74 |nt } }. | \@Start|
|00005c30| 4f 64 64 46 6f 6f 74 20 | 7b 20 7b 20 24 6c 62 73 |OddFoot |{ { $lbs|
|00005c40| 20 7d 20 5c 40 43 65 6e | 74 72 65 7b 20 2d 20 5c | } \@Cen|tre{ - \|
|00005c50| 40 50 61 67 65 4e 75 6d | 20 2d 20 7d 20 5c 40 52 |@PageNum| - } \@R|
|00005c60| 69 67 68 74 7b 20 24 64 | 70 72 69 6e 74 20 7d 20 |ight{ $d|print } |
|00005c70| 7d 0a 20 20 5c 40 53 74 | 61 72 74 45 76 65 6e 46 |}. \@St|artEvenF|
|00005c80| 6f 6f 74 20 7b 20 7b 20 | 24 6c 62 73 20 7d 20 5c |oot { { |$lbs } \|
|00005c90| 40 43 65 6e 74 72 65 7b | 20 2d 20 5c 40 50 61 67 |@Centre{| - \@Pag|
|00005ca0| 65 4e 75 6d 20 2d 20 7d | 20 5c 40 52 69 67 68 74 |eNum - }| \@Right|
|00005cb0| 7b 20 24 64 70 72 69 6e | 74 20 7d 20 7d 0a 20 20 |{ $dprin|t } }. |
|00005cc0| 5c 40 50 61 72 61 47 61 | 70 20 7b 20 31 2e 37 30 |\@ParaGa|p { 1.70|
|00005cd0| 76 78 20 7d 0a 20 20 5c | 40 49 6e 69 74 69 61 6c |vx }. \|@Initial|
|00005ce0| 42 72 65 61 6b 20 7b 20 | 31 2e 30 66 78 20 72 61 |Break { |1.0fx ra|
|00005cf0| 67 67 65 64 20 68 79 70 | 68 65 6e 20 7d 0a 7d 0a |gged hyp|hen }.}.|
|00005d00| 5c 40 55 73 65 20 7b 20 | 5c 40 4f 72 64 69 6e 61 |\@Use { |\@Ordina|
|00005d10| 72 79 4c 61 79 6f 75 74 | 20 7d 0a 45 4e 44 0a 20 |ryLayout| }.END. |
|00005d20| 20 20 20 24 6c 6f 75 74 | 5f 74 65 78 74 73 74 61 | $lout|_textsta|
|00005d30| 74 75 73 3d 20 27 70 27 | 3b 0a 7d 0a 0a 73 75 62 |tus= 'p'|;.}..sub|
|00005d40| 20 6c 6f 75 74 5f 70 61 | 67 65 72 65 66 20 7b 0a | lout_pa|geref {.|
|00005d50| 20 20 20 20 70 72 69 6e | 74 20 4c 4f 55 54 20 22 | prin|t LOUT "|
|00005d60| 51 24 5f 5b 31 5d 20 28 | 70 61 67 65 20 7b 5c 40 |Q$_[1] (|page {\@|
|00005d70| 50 61 67 65 4f 66 7b 24 | 5f 5b 30 5d 7d 7d 29 20 |PageOf{$|_[0]}}) |
|00005d80| 22 3b 0a 20 20 20 20 26 | 6c 6f 75 74 5f 74 65 78 |";. &|lout_tex|
|00005d90| 74 28 22 5c 60 22 29 3b | 0a 7d 0a 0a 73 75 62 20 |t("\`");|.}..sub |
|00005da0| 6c 6f 75 74 5f 65 6e 64 | 70 61 67 65 72 65 66 20 |lout_end|pageref |
|00005db0| 7b 0a 20 20 20 20 26 6c | 6f 75 74 5f 74 65 78 74 |{. &l|out_text|
|00005dc0| 28 22 27 22 29 3b 0a 7d | 0a 0a 73 75 62 20 6c 6f |("'");.}|..sub lo|
|00005dd0| 75 74 5f 66 69 6e 69 73 | 68 20 7b 0a 20 20 20 20 |ut_finis|h {. |
|00005de0| 70 72 69 6e 74 20 4c 4f | 55 54 20 22 5c 40 45 6e |print LO|UT "\@En|
|00005df0| 64 20 5c 40 54 65 78 74 | 5c 6e 22 3b 0a 20 20 20 |d \@Text|\n";. |
|00005e00| 20 63 6c 6f 73 65 28 4c | 29 3b 0a 7d 0a 0a 73 75 | close(L|);.}..su|
|00005e10| 62 20 6c 6f 75 74 5f 73 | 74 61 72 74 6d 61 6a 6f |b lout_s|tartmajo|
|00005e20| 72 68 65 61 64 69 6e 67 | 20 7b 0a 20 20 20 20 24 |rheading| {. $|
|00005e30| 6c 6f 75 74 5f 73 74 79 | 6c 65 73 20 2e 3d 20 27 |lout_sty|les .= '|
|00005e40| 68 27 3b 0a 20 20 20 20 | 70 72 69 6e 74 20 4c 4f |h';. |print LO|
|00005e50| 55 54 20 3c 3c 45 4e 44 | 0a 5c 40 43 4e 50 0a 7b |UT <<END|.\@CNP.{|
|00005e60| 0a 20 20 6e 65 77 70 61 | 74 68 20 20 20 30 20 20 |. newpa|th 0 |
|00005e70| 79 73 69 7a 65 20 30 2e | 33 20 66 74 20 73 75 62 |ysize 0.|3 ft sub|
|00005e80| 20 20 6d 6f 76 65 74 6f | 0a 20 20 20 20 20 20 20 | moveto|. |
|00005e90| 20 20 20 20 20 78 73 69 | 7a 65 20 20 30 20 20 72 | xsi|ze 0 r|
|00005ea0| 6c 69 6e 65 74 6f 0a 20 | 20 20 20 20 20 20 20 20 |lineto. | |
|00005eb0| 20 20 20 30 20 20 30 2e | 32 20 66 74 20 20 72 6c | 0 0.|2 ft rl|
|00005ec0| 69 6e 65 74 6f 0a 20 20 | 20 20 20 20 20 20 20 20 |ineto. | |
|00005ed0| 20 20 78 73 69 7a 65 20 | 6e 65 67 20 20 30 20 20 | xsize |neg 0 |
|00005ee0| 72 6c 69 6e 65 74 6f 0a | 20 20 63 6c 6f 73 65 70 |rlineto.| closep|
|00005ef0| 61 74 68 20 66 69 6c 6c | 0a 7d 20 5c 40 47 72 61 |ath fill|.} \@Gra|
|00005f00| 70 68 69 63 20 7b 20 2f | 2f 31 2e 36 66 20 5c 40 |phic { /|/1.6f \@|
|00005f10| 48 41 64 6a 75 73 74 20 | 5c 40 48 65 61 64 69 6e |HAdjust |\@Headin|
|00005f20| 67 7b 0a 45 4e 44 0a 20 | 20 20 20 3b 0a 20 20 20 |g{.END. | ;. |
|00005f30| 20 24 65 6e 64 68 3d 20 | 22 7d 5c 6e 7b 5c 40 50 | $endh= |"}\n{\@P|
|00005f40| 61 67 65 4d 61 72 6b 20 | 73 5f 24 5f 5b 30 5d 7d |ageMark |s_$_[0]}|
|00005f50| 5c 6e 2f 31 2e 30 66 6f | 5c 6e 22 3b 0a 20 20 20 |\n/1.0fo|\n";. |
|00005f60| 20 26 6c 6f 75 74 5f 74 | 65 78 74 28 24 5f 5b 30 | &lout_t|ext($_[0|
|00005f70| 5d 20 3f 20 22 53 65 63 | 74 69 6f 6e 20 24 5f 5b |] ? "Sec|tion $_[|
|00005f80| 30 5d 2e 20 20 22 20 3a | 20 27 27 29 3b 0a 7d 0a |0]. " :| '');.}.|
|00005f90| 0a 73 75 62 20 6c 6f 75 | 74 5f 73 74 61 72 74 6d |.sub lou|t_startm|
|00005fa0| 69 6e 6f 72 68 65 61 64 | 69 6e 67 20 7b 0a 20 20 |inorhead|ing {. |
|00005fb0| 20 20 24 6c 6f 75 74 5f | 73 74 79 6c 65 73 20 2e | $lout_|styles .|
|00005fc0| 3d 20 27 68 27 3b 0a 20 | 20 20 20 70 72 69 6e 74 |= 'h';. | print|
|00005fd0| 20 4c 4f 55 54 20 22 2f | 2f 30 2e 32 66 20 5c 40 | LOUT "/|/0.2f \@|
|00005fe0| 43 4e 50 20 7b 5c 40 50 | 61 67 65 4d 61 72 6b 20 |CNP {\@P|ageMark |
|00005ff0| 24 5f 5b 30 5d 7d 20 5c | 40 48 65 61 64 69 6e 67 |$_[0]} \|@Heading|
|00006000| 7b 5c 6e 22 3b 0a 20 20 | 20 20 24 65 6e 64 68 3d |{\n";. | $endh=|
|00006010| 20 27 27 3b 0a 7d 0a 0a | 73 75 62 20 6c 6f 75 74 | '';.}..|sub lout|
|00006020| 5f 65 6e 64 68 65 61 64 | 69 6e 67 20 7b 0a 20 20 |_endhead|ing {. |
|00006030| 20 20 24 6c 6f 75 74 5f | 73 74 79 6c 65 73 20 3d | $lout_|styles =|
|00006040| 7e 20 73 2f 2e 24 2f 2f | 3b 20 70 72 69 6e 74 20 |~ s/.$//|; print |
|00006050| 4c 4f 55 54 20 22 7d 5c | 6e 24 65 6e 64 68 22 3b |LOUT "}\|n$endh";|
|00006060| 0a 20 20 20 20 24 6c 6f | 75 74 5f 73 74 61 74 75 |. $lo|ut_statu|
|00006070| 73 3d 20 27 70 27 3b 0a | 7d 0a 0a 73 75 62 20 6c |s= 'p';.|}..sub l|
|00006080| 6f 75 74 5f 65 6e 64 6d | 61 6a 6f 72 68 65 61 64 |out_endm|ajorhead|
|00006090| 69 6e 67 20 7b 20 26 6c | 6f 75 74 5f 65 6e 64 68 |ing { &l|out_endh|
|000060a0| 65 61 64 69 6e 67 28 40 | 5f 29 3b 20 7d 0a 73 75 |eading(@|_); }.su|
|000060b0| 62 20 6c 6f 75 74 5f 65 | 6e 64 6d 69 6e 6f 72 68 |b lout_e|ndminorh|
|000060c0| 65 61 64 69 6e 67 20 7b | 20 26 6c 6f 75 74 5f 65 |eading {| &lout_e|
|000060d0| 6e 64 68 65 61 64 69 6e | 67 28 40 5f 29 3b 20 7d |ndheadin|g(@_); }|
|000060e0| 0a 0a 73 75 62 20 6c 6f | 75 74 5f 63 6f 75 72 69 |..sub lo|ut_couri|
|000060f0| 65 72 20 7b 0a 20 20 20 | 20 24 6c 6f 75 74 5f 73 |er {. | $lout_s|
|00006100| 74 79 6c 65 73 20 2e 3d | 20 27 66 27 3b 0a 20 20 |tyles .=| 'f';. |
|00006110| 20 20 70 72 69 6e 74 20 | 4c 4f 55 54 20 22 7b 7b | print |LOUT "{{|
|00006120| 30 2e 37 20 31 2e 30 7d | 20 5c 40 53 63 61 6c 65 |0.7 1.0}| \@Scale|
|00006130| 20 7b 43 6f 75 72 69 65 | 72 20 42 6f 6c 64 7d 20 | {Courie|r Bold} |
|00006140| 5c 40 46 6f 6e 74 20 7b | 22 3b 0a 7d 0a 0a 73 75 |\@Font {|";.}..su|
|00006150| 62 20 6c 6f 75 74 5f 65 | 6e 64 63 6f 75 72 69 65 |b lout_e|ndcourie|
|00006160| 72 20 7b 0a 20 20 20 20 | 24 6c 6f 75 74 5f 73 74 |r {. |$lout_st|
|00006170| 79 6c 65 73 20 3d 7e 20 | 73 2f 2e 24 2f 2f 3b 20 |yles =~ |s/.$//; |
|00006180| 70 72 69 6e 74 20 4c 4f | 55 54 20 22 7d 7d 22 3b |print LO|UT "}}";|
|00006190| 0a 7d 0a 0a 73 75 62 20 | 6c 6f 75 74 5f 69 74 61 |.}..sub |lout_ita|
|000061a0| 6c 69 63 20 7b 20 24 6c | 6f 75 74 5f 73 74 79 6c |lic { $l|out_styl|
|000061b0| 65 73 20 2e 3d 20 27 66 | 27 3b 20 70 72 69 6e 74 |es .= 'f|'; print|
|000061c0| 20 4c 4f 55 54 20 22 7b | 53 6c 6f 70 65 20 5c 40 | LOUT "{|Slope \@|
|000061d0| 46 6f 6e 74 20 7b 22 3b | 20 7d 0a 73 75 62 20 6c |Font {";| }.sub l|
|000061e0| 6f 75 74 5f 65 6e 64 69 | 74 61 6c 69 63 20 7b 20 |out_endi|talic { |
|000061f0| 24 6c 6f 75 74 5f 73 74 | 79 6c 65 73 20 3d 7e 20 |$lout_st|yles =~ |
|00006200| 73 2f 2e 24 2f 2f 3b 20 | 70 72 69 6e 74 20 4c 4f |s/.$//; |print LO|
|00006210| 55 54 20 22 7d 7d 22 3b | 20 7d 0a 0a 73 75 62 20 |UT "}}";| }..sub |
|00006220| 6c 6f 75 74 5f 73 74 61 | 72 74 69 6e 64 65 6e 74 |lout_sta|rtindent|
|00006230| 20 7b 20 24 6c 6f 75 74 | 5f 73 74 79 6c 65 73 20 | { $lout|_styles |
|00006240| 2e 3d 20 27 69 27 3b 20 | 70 72 69 6e 74 20 4c 4f |.= 'i'; |print LO|
|00006250| 55 54 20 22 5c 40 49 6e | 64 65 6e 74 65 64 44 69 |UT "\@In|dentedDi|
|00006260| 73 70 6c 61 79 20 7b 5c | 6e 22 3b 20 7d 0a 0a 73 |splay {\|n"; }..s|
|00006270| 75 62 20 6c 6f 75 74 5f | 65 6e 64 69 6e 64 65 6e |ub lout_|endinden|
|00006280| 74 20 7b 0a 20 20 20 20 | 26 6c 6f 75 74 5f 65 6e |t {. |&lout_en|
|00006290| 64 70 61 72 61 3b 0a 20 | 20 20 20 24 6c 6f 75 74 |dpara;. | $lout|
|000062a0| 5f 73 74 79 6c 65 73 20 | 3d 7e 20 73 2f 2e 24 2f |_styles |=~ s/.$/|
|000062b0| 2f 3b 20 70 72 69 6e 74 | 20 4c 4f 55 54 20 22 7d |/; print| LOUT "}|
|000062c0| 5c 6e 5c 40 4c 50 5c 6e | 22 3b 0a 7d 0a 0a 73 75 |\n\@LP\n|";.}..su|
|000062d0| 62 20 6c 6f 75 74 5f 73 | 74 61 72 74 70 61 63 6b |b lout_s|tartpack|
|000062e0| 65 64 6c 69 73 74 20 7b | 20 24 6c 6f 75 74 5f 70 |edlist {| $lout_p|
|000062f0| 6c 63 3d 2d 31 3b 20 7d | 0a 73 75 62 20 6c 6f 75 |lc=-1; }|.sub lou|
|00006300| 74 5f 65 6e 64 70 61 63 | 6b 65 64 6c 69 73 74 20 |t_endpac|kedlist |
|00006310| 7b 20 26 6c 6f 75 74 5f | 6e 65 77 6c 69 6e 65 20 |{ &lout_|newline |
|00006320| 69 66 20 21 24 6c 6f 75 | 74 5f 70 6c 63 3b 20 7d |if !$lou|t_plc; }|
|00006330| 0a 73 75 62 20 6c 6f 75 | 74 5f 70 61 63 6b 65 64 |.sub lou|t_packed|
|00006340| 69 74 65 6d 20 7b 0a 20 | 20 20 20 26 6c 6f 75 74 |item {. | &lout|
|00006350| 5f 6e 65 77 6c 69 6e 65 | 20 69 66 20 21 24 6c 6f |_newline| if !$lo|
|00006360| 75 74 5f 70 6c 63 3b 0a | 20 20 20 20 26 6c 6f 75 |ut_plc;.| &lou|
|00006370| 74 5f 74 61 62 28 28 24 | 6c 6f 75 74 5f 70 6c 63 |t_tab(($|lout_plc|
|00006380| 3e 30 29 2a 34 30 2b 35 | 29 3b 0a 20 20 20 20 24 |>0)*40+5|);. $|
|00006390| 6c 6f 75 74 5f 70 6c 63 | 3d 20 21 24 6c 6f 75 74 |lout_plc|= !$lout|
|000063a0| 5f 70 6c 63 3b 0a 7d 0a | 0a 73 75 62 20 6c 6f 75 |_plc;.}.|.sub lou|
|000063b0| 74 5f 73 74 61 72 74 6c | 69 73 74 20 7b 0a 20 20 |t_startl|ist {. |
|000063c0| 20 20 26 6c 6f 75 74 5f | 65 6e 64 70 61 72 61 3b | &lout_|endpara;|
|000063d0| 0a 20 20 20 20 70 72 69 | 6e 74 20 4c 4f 55 54 20 |. pri|nt LOUT |
|000063e0| 22 5c 40 52 61 77 49 6e | 64 65 6e 74 65 64 4c 69 |"\@RawIn|dentedLi|
|000063f0| 73 74 20 73 74 79 6c 65 | 20 7b 5c 40 42 75 6c 6c |st style| {\@Bull|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
