/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / Tcl / SystemCode / bibtex.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 62 69 62 74 65 78 | 2e 74 63 6c 00 00 00 00 |..bibtex|.tcl....|
|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 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 ab 65 00 | 00 04 e4 ac 2c 74 f9 ac |......e.|....,t..|
|00000060| 2c 74 f9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |,t......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c6 61 00 00 |........|.....a..|
|00000080| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000c0| 23 23 23 23 23 23 23 23 | 23 23 23 0d 23 20 62 69 |########|###.# bi|
|000000d0| 62 74 65 78 2e 74 63 6c | 0d 23 20 0d 23 20 54 68 |btex.tcl|.# .# Th|
|000000e0| 69 73 20 66 69 6c 65 20 | 63 6f 6e 74 61 69 6e 73 |is file |contains|
|000000f0| 20 61 20 70 61 63 6b 61 | 67 65 20 6f 66 20 54 63 | a packa|ge of Tc|
|00000100| 6c 20 72 6f 75 74 69 6e | 65 73 20 74 68 61 74 20 |l routin|es that |
|00000110| 61 64 64 20 73 75 70 70 | 6f 72 74 20 66 6f 72 20 |add supp|ort for |
|00000120| 75 73 69 6e 67 0d 23 20 | 61 6e 64 20 6d 61 69 6e |using.# |and main|
|00000130| 74 61 69 6e 69 6e 67 20 | 42 69 62 54 65 58 20 63 |taining |BibTeX c|
|00000140| 69 74 61 74 69 6f 6e 20 | 64 61 74 61 62 61 73 65 |itation |database|
|00000150| 73 20 74 6f 20 41 6c 70 | 68 61 2e 20 0d 23 0d 23 |s to Alp|ha. .#.#|
|00000160| 20 53 65 65 20 74 68 65 | 20 61 63 63 6f 6d 70 61 | See the| accompa|
|00000170| 6e 79 69 6e 67 20 66 69 | 6c 65 2c 20 22 42 69 62 |nying fi|le, "Bib|
|00000180| 54 65 58 20 48 65 6c 70 | 22 2c 20 66 6f 72 20 61 |TeX Help|", for a|
|00000190| 20 63 6f 6d 70 6c 65 74 | 65 20 64 65 73 63 72 69 | complet|e descri|
|000001a0| 70 74 69 6f 6e 2e 0d 23 | 20 28 55 6e 66 6f 72 74 |ption..#| (Unfort|
|000001b0| 75 6e 61 74 65 6c 79 2c | 20 69 74 27 73 20 61 20 |unately,| it's a |
|000001c0| 62 69 74 20 6f 75 74 20 | 6f 66 20 64 61 74 65 20 |bit out |of date |
|000001d0| 72 69 67 68 74 20 6e 6f | 77 20 2d 20 73 74 61 79 |right no|w - stay|
|000001e0| 20 74 75 6e 65 64 20 28 | 57 54 50 20 36 2f 39 35 | tuned (|WTP 6/95|
|000001f0| 29 29 0d 23 20 0d 23 23 | 23 23 23 23 23 23 23 23 |)).# .##|########|
|00000200| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000210| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000220| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000230| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000240| 23 0d 23 20 4e 6f 74 65 | 73 3a 20 0d 23 20 0d 23 |#.# Note|s: .# .#|
|00000250| 20 42 79 20 64 65 66 61 | 75 6c 74 2c 20 6f 6e 6c | By defa|ult, onl|
|00000260| 79 20 74 68 65 20 72 65 | 71 75 69 72 65 64 20 66 |y the re|quired f|
|00000270| 69 65 6c 64 73 20 61 72 | 65 20 69 6e 63 6c 75 64 |ields ar|e includ|
|00000280| 65 64 20 77 68 65 6e 20 | 61 20 6e 65 77 20 62 69 |ed when |a new bi|
|00000290| 62 20 65 6e 74 72 79 20 | 0d 23 20 69 73 20 63 72 |b entry |.# is cr|
|000002a0| 65 61 74 65 64 2e 20 20 | 59 6f 75 20 63 61 6e 20 |eated.  |You can |
|000002b0| 73 65 6c 65 63 74 20 61 | 6e 79 20 6f 74 68 65 72 |select a|ny other|
|000002c0| 20 73 65 74 20 6f 66 20 | 66 69 65 6c 64 73 20 74 | set of |fields t|
|000002d0| 6f 20 62 65 20 75 73 65 | 64 20 62 79 20 61 64 64 |o be use|d by add|
|000002e0| 69 6e 67 20 0d 23 20 61 | 6e 20 61 70 70 72 6f 70 |ing .# a|n approp|
|000002f0| 72 69 61 74 65 20 65 6e | 74 72 79 20 74 6f 20 74 |riate en|try to t|
|00000300| 68 65 20 27 6d 79 46 6c | 64 27 20 61 72 72 61 79 |he 'myFl|d' array|
|00000310| 2c 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 74 68 65 20 |, follow|ing the |
|00000320| 65 78 61 6d 70 6c 65 20 | 66 6f 72 20 74 68 65 20 |example |for the |
|00000330| 0d 23 20 41 72 74 69 63 | 6c 65 20 65 6e 74 72 79 |.# Artic|le entry|
|00000340| 2c 20 66 75 72 74 68 65 | 72 20 62 65 6c 6f 77 2e |, furthe|r below.|
|00000350| 20 20 59 6f 75 20 73 68 | 6f 75 6c 64 6e 27 74 20 |  You sh|ouldn't |
|00000360| 63 68 61 6e 67 65 20 74 | 68 65 20 27 72 71 64 46 |change t|he 'rqdF|
|00000370| 6c 64 27 20 6f 72 20 0d | 23 20 27 6f 70 74 46 6c |ld' or .|# 'optFl|
|00000380| 64 27 20 61 72 72 61 79 | 73 2c 20 73 69 6e 63 65 |d' array|s, since|
|00000390| 20 74 68 65 73 65 20 77 | 69 6c 6c 20 28 73 6f 6d | these w|ill (som|
|000003a0| 65 20 64 61 79 29 20 62 | 65 20 75 73 65 64 20 66 |e day) b|e used f|
|000003b0| 6f 72 20 73 79 6e 74 61 | 78 20 63 68 65 63 6b 69 |or synta|x checki|
|000003c0| 6e 67 2e 0d 23 20 0d 23 | 23 23 23 23 23 23 23 23 |ng..# .#|########|
|000003d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000400| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000410| 23 23 0d 23 20 77 72 69 | 74 74 65 6e 20 62 79 20 |##.# wri|tten by |
|00000420| 54 6f 6d 20 50 6f 6c 6c | 61 72 64 20 28 70 6f 6c |Tom Poll|ard (pol|
|00000430| 6c 61 72 64 40 63 75 63 | 62 73 2e 63 68 65 6d 2e |lard@cuc|bs.chem.|
|00000440| 63 6f 6c 75 6d 62 69 61 | 2e 65 64 75 29 0d 23 0d |columbia|.edu).#.|
|00000450| 23 20 56 65 72 73 69 6f | 6e 20 48 69 73 74 6f 72 |# Versio|n Histor|
|00000460| 79 0d 23 0d 23 20 32 2e | 37 20 20 28 37 2f 39 35 |y.#.# 2.|7  (7/95|
|00000470| 29 20 20 20 27 73 74 64 | 41 62 62 72 65 76 73 27 |)   'std|Abbrevs'|
|00000480| 20 6d 6f 64 65 56 61 72 | 20 61 64 64 65 64 20 66 | modeVar| added f|
|00000490| 6f 72 20 73 65 74 74 69 | 6e 67 20 70 72 65 64 65 |or setti|ng prede|
|000004a0| 66 69 6e 65 64 20 61 62 | 62 72 65 76 73 0d 23 20 |fined ab|brevs.# |
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|000004c0| 6e 74 68 20 6e 61 6d 65 | 73 20 69 6e 63 6c 75 64 |nth name|s includ|
|000004d0| 65 64 20 61 73 20 70 72 | 65 64 65 66 69 6e 65 64 |ed as pr|edefined|
|000004e0| 20 61 62 62 72 65 76 73 | 0d 23 20 20 20 20 20 20 | abbrevs|.#      |
|000004f0| 20 20 20 20 20 20 20 20 | 20 27 61 6c 69 67 6e 45 |        | 'alignE|
|00000500| 71 75 61 6c 73 27 20 66 | 6f 72 6d 61 74 74 69 6e |quals' f|ormattin|
|00000510| 67 20 66 6c 61 67 20 61 | 64 64 65 64 2e 0d 23 20 |g flag a|dded..# |
|00000520| 32 2e 36 32 20 28 37 2f | 39 35 29 20 20 20 66 69 |2.62 (7/|95)   fi|
|00000530| 65 6c 64 20 64 65 6c 69 | 6d 69 74 65 72 73 20 73 |eld deli|miters s|
|00000540| 75 70 70 72 65 73 73 65 | 64 20 69 66 20 66 69 65 |uppresse|d if fie|
|00000550| 6c 64 20 64 61 74 61 20 | 69 73 20 61 6e 20 61 62 |ld data |is an ab|
|00000560| 62 72 65 76 69 61 74 69 | 6f 6e 0d 23 20 20 20 20 |breviati|on.#    |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 75 6e 69 6e 64 |        |   unind|
|00000580| 65 78 65 64 20 2e 62 69 | 62 20 66 69 6c 65 73 20 |exed .bi|b files |
|00000590| 61 72 65 20 69 6e 64 65 | 78 65 64 20 61 75 74 6f |are inde|xed auto|
|000005a0| 6d 61 74 69 63 61 6c 6c | 79 20 75 70 6f 6e 20 6f |maticall|y upon o|
|000005b0| 70 65 6e 69 6e 67 0d 23 | 20 32 2e 36 31 20 28 37 |pening.#| 2.61 (7|
|000005c0| 2f 39 35 29 20 20 20 66 | 69 78 65 64 20 22 53 65 |/95)   f|ixed "Se|
|000005d0| 61 72 63 68 46 69 65 6c | 64 73 22 20 62 75 67 2e |archFiel|ds" bug.|
|000005e0| 0d 23 20 32 2e 36 20 20 | 28 36 2f 39 35 29 20 20 |.# 2.6  |(6/95)  |
|000005f0| 20 27 7a 61 70 45 6d 70 | 74 79 46 69 65 6c 64 73 | 'zapEmp|tyFields|
|00000600| 27 20 66 6c 61 67 20 66 | 6f 72 63 65 73 20 6f 70 |' flag f|orces op|
|00000610| 74 69 6f 6e 61 6c 20 66 | 69 65 6c 64 73 20 74 6f |tional f|ields to|
|00000620| 20 62 65 20 72 65 6d 6f | 76 65 64 20 0d 23 20 20 | be remo|ved .#  |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000640| 20 77 68 65 6e 20 72 65 | 66 6f 72 6d 61 74 74 69 | when re|formatti|
|00000650| 6e 67 20 61 6e 20 65 6e | 74 72 79 2e 0d 23 20 20 |ng an en|try..#  |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 6d 61 |        |     'ma|
|00000670| 72 6b 53 74 72 69 6e 67 | 73 27 20 66 6c 61 67 20 |rkString|s' flag |
|00000680| 63 6f 6e 74 72 6f 6c 73 | 20 77 68 65 74 68 65 72 |controls| whether|
|00000690| 20 40 73 74 72 69 6e 67 | 20 65 6e 74 72 69 65 73 | @string| entries|
|000006a0| 20 61 72 65 20 69 6e 63 | 6c 75 64 65 64 20 69 6e | are inc|luded in|
|000006b0| 20 0d 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | .#     |        |
|000006c0| 20 20 20 20 20 20 74 68 | 65 20 6d 61 72 6b 73 20 |      th|e marks |
|000006d0| 6d 65 6e 75 2e 0d 23 20 | 20 20 20 20 20 20 20 20 |menu..# |        |
|000006e0| 20 20 20 20 20 20 27 64 | 65 73 63 65 6e 64 69 6e |      'd|escendin|
|000006f0| 67 59 65 61 72 73 27 20 | 66 6c 61 67 20 63 6f 6e |gYears' |flag con|
|00000700| 74 72 6f 6c 73 20 77 68 | 65 74 68 65 72 20 73 6f |trols wh|ether so|
|00000710| 72 74 73 20 61 72 65 20 | 69 6e 20 61 73 63 65 6e |rts are |in ascen|
|00000720| 64 69 6e 67 20 6f 72 20 | 0d 23 20 20 20 20 20 20 |ding or |.#      |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 64 65 73 |        |     des|
|00000740| 63 65 6e 64 69 6e 67 20 | 63 68 72 6f 6e 6f 6c 6f |cending |chronolo|
|00000750| 67 69 63 61 6c 20 6f 72 | 64 65 72 2e 0d 23 20 20 |gical or|der..#  |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 6f 72 |        |     Sor|
|00000770| 74 73 20 61 6c 6c 20 75 | 73 65 20 74 68 65 20 79 |ts all u|se the y|
|00000780| 65 61 72 20 61 73 20 65 | 69 74 68 65 72 20 70 72 |ear as e|ither pr|
|00000790| 69 6d 61 72 79 20 6f 72 | 20 73 65 63 6f 6e 64 61 |imary or| seconda|
|000007a0| 72 79 20 73 6f 72 74 20 | 6b 65 79 20 6e 6f 77 2e |ry sort |key now.|
|000007b0| 0d 23 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.#      |        |
|000007c0| 20 27 63 6f 70 79 43 69 | 74 65 4b 65 79 27 20 63 | 'copyCi|teKey' c|
|000007d0| 6f 6d 6d 61 6e 64 20 63 | 6f 70 69 65 73 20 74 68 |ommand c|opies th|
|000007e0| 65 20 63 69 74 65 6b 65 | 79 20 6f 66 20 74 68 65 |e citeke|y of the|
|000007f0| 20 63 75 72 72 65 6e 74 | 20 65 6e 74 72 79 20 74 | current| entry t|
|00000800| 6f 20 74 68 65 0d 23 20 | 20 20 20 20 20 20 20 20 |o the.# |        |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 63 6c 69 70 62 6f |        |  clipbo|
|00000820| 61 72 64 2e 0d 23 20 20 | 20 20 20 20 20 20 20 20 |ard..#  |        |
|00000830| 20 20 20 20 20 43 6d 64 | 2d 64 6f 75 62 6c 65 2d |     Cmd|-double-|
|00000840| 63 6c 69 63 6b 69 6e 67 | 20 69 6d 70 6c 65 6d 65 |clicking| impleme|
|00000850| 6e 74 65 64 20 74 6f 20 | 72 65 73 6f 6c 76 65 20 |nted to |resolve |
|00000860| 61 62 62 72 65 76 69 61 | 74 69 6f 6e 73 20 61 6e |abbrevia|tions an|
|00000870| 64 20 63 72 6f 73 73 72 | 65 66 73 2e 0d 23 20 20 |d crossr|efs..#  |
|00000880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 46 69 78 |        |     Fix|
|00000890| 65 64 20 62 75 67 20 69 | 6e 20 66 61 73 74 65 72 |ed bug i|n faster|
|000008a0| 20 67 65 74 46 69 65 6c | 64 73 20 70 72 6f 63 20 | getFiel|ds proc |
|000008b0| 28 63 6f 6d 6d 61 2d 61 | 66 74 65 72 2d 6c 61 73 |(comma-a|fter-las|
|000008c0| 74 2d 66 69 65 6c 64 20 | 70 72 6f 62 6c 65 6d 73 |t-field |problems|
|000008d0| 29 20 20 0d 23 20 20 20 | 20 20 20 20 20 20 20 20 |)  .#   |        |
|000008e0| 20 20 20 20 46 69 78 65 | 64 20 6d 69 6e 6f 72 20 |    Fixe|d minor |
|000008f0| 62 75 67 73 20 69 6e 20 | 61 75 74 68 6f 72 20 73 |bugs in |author s|
|00000900| 6f 72 74 69 6e 67 2e 20 | 20 0d 23 20 32 2e 35 20 |orting. | .# 2.5 |
|00000910| 20 28 36 2f 39 35 29 20 | 20 20 46 69 78 65 64 20 | (6/95) |  Fixed |
|00000920| 62 75 67 20 69 6e 20 66 | 6f 72 6d 61 74 45 6e 74 |bug in f|ormatEnt|
|00000930| 72 79 2c 20 77 68 65 72 | 65 62 79 20 27 23 27 20 |ry, wher|eby '#' |
|00000940| 63 6f 6e 63 61 74 65 6e | 61 74 69 6f 6e 73 20 77 |concaten|ations w|
|00000950| 65 72 65 20 6c 6f 73 74 | 20 0d 23 20 20 20 20 20 |ere lost| .#     |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 66 6f 72 6d 61 74 |        |  format|
|00000970| 45 6e 74 72 79 20 63 6f | 6d 70 6c 65 74 65 6c 79 |Entry co|mpletely|
|00000980| 20 69 67 6e 6f 72 65 73 | 20 40 73 74 72 69 6e 67 | ignores| @string|
|00000990| 20 65 6e 74 72 69 65 73 | 20 6e 6f 77 0d 23 20 20 | entries| now.#  |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 6e 74 |        |     Ent|
|000009b0| 72 79 2d 70 61 72 73 69 | 6e 67 20 63 6f 64 65 20 |ry-parsi|ng code |
|000009c0| 28 67 65 74 46 69 65 6c | 64 73 2c 20 67 65 74 46 |(getFiel|ds, getF|
|000009d0| 6c 64 56 61 6c 29 20 63 | 6c 65 61 6e 65 64 20 75 |ldVal) c|leaned u|
|000009e0| 70 2c 0d 23 20 20 20 20 | 20 20 20 20 20 20 20 20 |p,.#    |        |
|000009f0| 20 20 20 20 20 20 73 68 | 6f 75 6c 64 20 61 6c 73 |      sh|ould als|
|00000a00| 6f 20 62 65 20 61 20 6c | 69 74 74 6c 65 20 62 69 |o be a l|ittle bi|
|00000a10| 74 20 66 61 73 74 65 72 | 20 6e 6f 77 2e 0d 23 20 |t faster| now..# |
|00000a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 66 6f |        |      fo|
|00000a30| 72 6d 61 74 41 6c 6c 45 | 6e 74 72 69 65 73 20 6e |rmatAllE|ntries n|
|00000a40| 6f 77 20 73 74 61 72 74 | 73 20 77 6f 72 6b 69 6e |ow start|s workin|
|00000a50| 67 20 66 72 6f 6d 20 74 | 68 65 20 63 75 72 72 65 |g from t|he curre|
|00000a60| 6e 74 20 65 6e 74 72 79 | 0d 23 20 32 2e 34 31 20 |nt entry|.# 2.41 |
|00000a70| 28 36 2f 39 35 29 20 20 | 20 55 70 64 61 74 65 73 |(6/95)  | Updates|
|00000a80| 20 66 6f 72 20 63 6f 6d | 70 61 74 69 62 69 6c 69 | for com|patibili|
|00000a90| 74 79 20 77 69 74 68 20 | 72 65 76 69 73 65 64 20 |ty with |revised |
|00000aa0| 4c 61 54 65 58 20 6d 6f | 64 65 0d 23 20 20 20 20 |LaTeX mo|de.#    |
|00000ab0| 20 20 20 20 20 20 20 20 | 20 20 20 41 75 74 6f 6d |        |   Autom|
|00000ac0| 61 74 69 63 20 63 6f 6e | 76 65 72 73 69 6f 6e 20 |atic con|version |
|00000ad0| 6f 66 20 69 6e 74 65 72 | 6e 61 74 69 6f 6e 61 6c |of inter|national|
|00000ae0| 20 63 68 61 72 61 63 74 | 65 72 73 20 64 72 6f 70 | charact|ers drop|
|00000af0| 70 65 64 20 0d 23 20 20 | 20 20 20 20 20 20 20 20 |ped .#  |        |
|00000b00| 20 20 20 20 20 20 20 20 | 20 28 69 72 72 65 63 6f |        | (irreco|
|00000b10| 6e 63 69 6c 61 62 6c 65 | 20 70 72 6f 62 6c 65 6d |ncilable| problem|
|00000b20| 73 20 77 69 74 68 20 6e | 6f 6e 2d 55 53 20 6b 65 |s with n|on-US ke|
|00000b30| 79 62 6f 61 72 64 73 29 | 2e 0d 23 20 32 2e 34 20 |yboards)|..# 2.4 |
|00000b40| 20 28 35 2f 39 35 29 20 | 20 20 46 69 78 65 64 20 | (5/95) |  Fixed |
|00000b50| 62 75 67 73 20 69 6e 20 | 70 61 72 73 69 6e 67 20 |bugs in |parsing |
|00000b60| 6f 66 20 45 6e 64 4e 6f | 74 65 2d 63 72 65 61 74 |of EndNo|te-creat|
|00000b70| 65 64 20 62 69 62 20 66 | 69 6c 65 73 0d 23 20 32 |ed bib f|iles.# 2|
|00000b80| 2e 33 20 20 28 34 2f 39 | 35 29 20 20 20 49 6e 74 |.3  (4/9|5)   Int|
|00000b90| 65 72 6e 61 74 69 6f 6e | 61 6c 20 63 68 61 72 61 |ernation|al chara|
|00000ba0| 63 74 65 72 73 20 63 6f | 6e 76 65 72 74 65 64 20 |cters co|nverted |
|00000bb0| 74 6f 20 54 65 58 20 63 | 6f 64 65 73 20 28 6f 70 |to TeX c|odes (op|
|00000bc0| 74 69 6f 6e 61 6c 6c 79 | 29 2e 0d 23 20 20 20 20 |tionally|)..#    |
|00000bd0| 20 20 20 20 20 20 20 20 | 20 20 20 27 66 69 6e 64 |        |   'find|
|00000be0| 45 6e 74 72 69 65 73 27 | 20 62 75 67 20 66 69 78 |Entries'| bug fix|
|00000bf0| 65 64 20 28 6e 6f 20 6c | 6f 6e 67 65 72 20 72 65 |ed (no l|onger re|
|00000c00| 74 75 72 6e 73 20 6d 75 | 6c 74 69 70 6c 65 20 68 |turns mu|ltiple h|
|00000c10| 69 74 73 29 20 0d 23 20 | 32 2e 32 20 28 31 32 2f |its) .# |2.2 (12/|
|00000c20| 39 34 29 20 20 20 27 66 | 6f 72 6d 61 74 45 6e 74 |94)   'f|ormatEnt|
|00000c30| 72 69 65 73 27 20 77 6f | 6e 27 74 20 71 75 6f 74 |ries' wo|n't quot|
|00000c40| 65 20 66 69 65 6c 64 73 | 20 74 68 61 74 20 63 6f |e fields| that co|
|00000c50| 6e 74 61 69 6e 20 22 23 | 22 2e 0d 23 20 20 20 20 |ntain "#|"..#    |
|00000c60| 20 20 20 20 20 20 20 20 | 20 20 20 27 73 65 67 72 |        |   'segr|
|00000c70| 65 67 61 74 65 53 74 72 | 69 6e 67 73 27 20 66 6c |egateStr|ings' fl|
|00000c80| 61 67 20 66 6f 72 63 65 | 73 20 73 74 72 69 6e 67 |ag force|s string|
|00000c90| 20 64 65 66 73 20 74 6f | 20 73 6f 72 74 20 74 6f | defs to| sort to|
|00000ca0| 20 74 68 65 20 74 6f 70 | 2e 0d 23 20 32 2e 31 31 | the top|..# 2.11|
|00000cb0| 28 31 32 2f 39 34 29 20 | 20 20 42 75 67 20 66 69 |(12/94) |  Bug fi|
|00000cc0| 78 65 73 20 69 6e 20 27 | 66 6f 72 6d 61 74 41 6c |xes in '|formatAl|
|00000cd0| 6c 45 6e 74 72 69 65 73 | 27 2e 0d 23 20 32 2e 31 |lEntries|'..# 2.1|
|00000ce0| 20 28 31 32 2f 39 34 29 | 20 20 20 27 63 6f 75 6e | (12/94)|   'coun|
|00000cf0| 74 45 6e 74 72 69 65 73 | 27 20 63 6f 6d 6d 61 6e |tEntries|' comman|
|00000d00| 64 20 61 64 64 65 64 2e | 0d 23 20 20 20 20 20 20 |d added.|.#      |
|00000d10| 20 20 20 20 20 20 20 20 | 20 27 66 6f 72 6d 61 74 |        | 'format|
|00000d20| 41 6c 6c 45 6e 74 72 69 | 65 73 27 20 63 6f 6d 6d |AllEntri|es' comm|
|00000d30| 61 6e 64 20 61 64 64 65 | 64 3b 20 69 74 27 73 20 |and adde|d; it's |
|00000d40| 61 20 62 69 74 20 63 6c | 75 6e 6b 79 2c 20 62 75 |a bit cl|unky, bu|
|00000d50| 74 20 6d 6f 72 65 20 72 | 6f 62 75 73 74 0d 23 20 |t more r|obust.# |
|00000d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 09 74 |        |      .t|
|00000d70| 68 61 6e 20 61 6e 79 20 | 71 75 69 63 6b 65 72 20 |han any |quicker |
|00000d80| 61 6c 74 65 72 6e 61 74 | 69 76 65 20 49 20 63 6f |alternat|ive I co|
|00000d90| 6e 73 69 64 65 72 65 64 | 2e 0d 23 20 20 20 20 20 |nsidered|..#     |
|00000da0| 20 20 20 20 20 20 20 20 | 20 20 43 72 6f 73 73 2d |        |  Cross-|
|00000db0| 72 65 66 65 72 65 6e 63 | 65 64 20 65 6e 74 72 69 |referenc|ed entri|
|00000dc0| 65 73 20 6e 6f 77 20 73 | 6f 72 74 20 74 6f 20 74 |es now s|ort to t|
|00000dd0| 68 65 20 62 6f 74 74 6f | 6d 20 69 6e 20 61 6c 6c |he botto|m in all|
|00000de0| 20 73 6f 72 74 73 2e 0d | 23 09 09 09 09 27 63 72 | sorts..|#....'cr|
|00000df0| 6f 73 73 72 65 66 27 20 | 66 69 65 6c 64 20 6e 6f |ossref' |field no|
|00000e00| 77 20 69 6e 63 6c 75 64 | 65 64 2e 0d 23 20 32 2e |w includ|ed..# 2.|
|00000e10| 30 20 20 28 39 2f 39 34 | 29 20 20 20 27 66 6f 72 |0  (9/94|)   'for|
|00000e20| 6d 61 74 45 6e 74 72 79 | 27 20 61 6e 64 20 27 6e |matEntry|' and 'n|
|00000e30| 65 77 45 6e 74 72 79 27 | 20 6c 69 6e 65 20 75 70 |ewEntry'| line up|
|00000e40| 20 66 69 65 6c 64 73 20 | 62 65 74 74 65 72 2e 0d | fields |better..|
|00000e50| 23 09 09 09 09 27 6e 65 | 78 74 45 6e 74 72 79 27 |#....'ne|xtEntry'|
|00000e60| 20 61 6e 64 20 27 70 72 | 65 76 45 6e 74 72 79 27 | and 'pr|evEntry'|
|00000e70| 20 73 6b 69 70 20 40 73 | 74 72 69 6e 67 20 64 65 | skip @s|tring de|
|00000e80| 66 73 0d 23 09 09 09 09 | 27 66 6f 72 6d 61 74 45 |fs.#....|'formatE|
|00000e90| 6e 74 72 79 27 20 61 75 | 74 6f 6d 74 69 63 61 6c |ntry' au|tomtical|
|00000ea0| 6c 79 20 67 6f 65 73 20 | 74 6f 20 6e 65 78 74 20 |ly goes |to next |
|00000eb0| 65 6e 74 72 79 20 61 66 | 74 65 72 77 61 72 64 73 |entry af|terwards|
|00000ec0| 2e 0d 23 09 09 09 09 27 | 73 6f 72 74 42 79 43 69 |..#....'|sortByCi|
|00000ed0| 74 65 6b 65 79 27 20 69 | 67 6e 6f 72 65 73 20 63 |tekey' i|gnores c|
|00000ee0| 61 73 65 20 6f 66 20 63 | 69 74 65 20 6b 65 79 73 |ase of c|ite keys|
|00000ef0| 2e 0d 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..#     |        |
|00000f00| 20 20 27 66 69 6c 6c 43 | 6f 6c 75 6d 6e 27 20 69 |  'fillC|olumn' i|
|00000f10| 6e 63 6c 75 64 65 64 20 | 61 73 20 64 65 66 61 75 |ncluded |as defau|
|00000f20| 6c 74 20 6d 6f 64 65 56 | 61 72 2e 0d 23 09 09 09 |lt modeV|ar..#...|
|00000f30| 09 27 67 65 74 45 6e 74 | 72 79 27 20 61 6c 65 72 |.'getEnt|ry' aler|
|00000f40| 74 73 20 75 73 65 72 20 | 74 6f 20 62 61 64 6c 79 |ts user |to badly|
|00000f50| 20 64 65 6c 69 6d 69 74 | 65 64 20 65 6e 74 72 69 | delimit|ed entri|
|00000f60| 65 73 2e 0d 23 20 31 2e | 39 20 28 39 2f 39 34 29 |es..# 1.|9 (9/94)|
|00000f70| 20 20 20 20 27 67 65 74 | 46 69 65 6c 64 73 27 20 |    'get|Fields' |
|00000f80| 73 68 6f 75 6c 64 20 6e | 6f 77 20 63 6f 72 72 65 |should n|ow corre|
|00000f90| 63 74 6c 79 20 70 61 72 | 73 65 20 61 6e 79 20 6c |ctly par|se any l|
|00000fa0| 65 67 61 6c 20 65 6e 74 | 72 79 2e 0d 23 09 09 09 |egal ent|ry..#...|
|00000fb0| 09 27 6c 61 6e 67 75 61 | 67 65 27 20 66 69 65 6c |.'langua|ge' fiel|
|00000fc0| 64 20 6e 6f 77 20 69 6e | 63 6c 75 64 65 64 2e 0d |d now in|cluded..|
|00000fd0| 23 09 09 09 09 44 65 66 | 61 75 6c 74 20 76 61 6c |#....Def|ault val|
|00000fe0| 75 65 73 20 66 6f 72 20 | 6e 65 77 20 66 69 65 6c |ues for |new fiel|
|00000ff0| 64 73 20 28 65 67 20 27 | 6c 61 6e 67 75 61 67 65 |ds (eg '|language|
|00001000| 27 29 20 6d 61 79 20 62 | 65 20 64 65 66 69 6e 65 |') may b|e define|
|00001010| 64 0d 23 09 09 09 09 27 | 70 72 65 66 65 72 42 72 |d.#....'|preferBr|
|00001020| 61 63 65 73 27 20 72 65 | 70 6c 61 63 65 64 20 62 |aces' re|placed b|
|00001030| 79 20 27 66 69 65 6c 64 | 42 72 61 63 65 73 27 20 |y 'field|Braces' |
|00001040| 61 6e 64 20 27 65 6e 74 | 72 79 42 72 61 63 65 73 |and 'ent|ryBraces|
|00001050| 27 2e 0d 23 09 09 09 09 | 6c 69 6e 65 2d 77 72 61 |'..#....|line-wra|
|00001060| 70 70 69 6e 67 20 69 73 | 20 64 6f 6e 65 20 6f 6e |pping is| done on|
|00001070| 20 72 65 66 6f 72 6d 61 | 74 74 65 64 20 65 6e 74 | reforma|tted ent|
|00001080| 72 69 65 73 2e 0d 23 09 | 09 09 09 27 40 73 74 72 |ries..#.|...'@str|
|00001090| 69 6e 67 27 20 65 6e 74 | 72 69 65 73 20 70 72 65 |ing' ent|ries pre|
|000010a0| 73 65 72 76 65 64 20 69 | 6e 20 73 6f 72 74 73 2e |served i|n sorts.|
|000010b0| 0d 23 09 09 09 09 74 65 | 78 74 20 62 65 66 6f 72 |.#....te|xt befor|
|000010c0| 65 20 66 69 72 73 74 20 | 65 6e 74 72 79 20 61 6e |e first |entry an|
|000010d0| 64 20 61 66 74 65 72 20 | 6c 61 73 74 20 65 6e 74 |d after |last ent|
|000010e0| 72 79 20 61 72 65 20 70 | 72 65 73 65 72 76 65 64 |ry are p|reserved|
|000010f0| 0d 23 09 09 09 09 09 62 | 79 20 73 6f 72 74 73 2e |.#.....b|y sorts.|
|00001100| 0d 23 20 31 2e 38 20 28 | 38 2f 39 34 29 20 20 20 |.# 1.8 (|8/94)   |
|00001110| 20 22 67 65 74 45 6e 74 | 72 79 22 20 6e 6f 77 20 | "getEnt|ry" now |
|00001120| 72 65 63 6f 67 6e 69 7a | 65 73 20 70 61 72 65 6e |recogniz|es paren|
|00001130| 73 20 61 73 20 65 6e 74 | 72 79 20 64 65 6c 69 6d |s as ent|ry delim|
|00001140| 69 74 65 72 73 0d 23 20 | 31 2e 37 20 28 38 2f 39 |iters.# |1.7 (8/9|
|00001150| 34 29 20 20 20 20 42 75 | 67 20 66 69 78 65 73 20 |4)    Bu|g fixes |
|00001160| 61 6e 64 20 61 63 63 6f | 6d 6f 64 61 74 69 6f 6e |and acco|modation|
|00001170| 73 20 74 6f 20 6c 61 74 | 65 78 2e 74 63 6c 20 76 |s to lat|ex.tcl v|
|00001180| 32 2e 32 0d 23 20 20 20 | 20 20 20 20 20 20 20 20 |2.2.#   |        |
|00001190| 20 20 20 20 54 65 6d 70 | 6c 61 74 65 20 69 6e 73 |    Temp|late ins|
|000011a0| 65 72 74 69 6f 6e 20 73 | 74 72 65 61 6d 6c 69 6e |ertion s|treamlin|
|000011b0| 65 64 0d 23 09 09 09 09 | 43 68 6f 6f 73 65 20 6d |ed.#....|Choose m|
|000011c0| 75 6c 74 69 70 6c 65 20 | 66 69 65 6c 64 73 20 61 |ultiple |fields a|
|000011d0| 74 20 61 20 74 69 6d 65 | 20 66 72 6f 6d 20 6c 69 |t a time| from li|
|000011e0| 73 74 20 64 69 61 6c 6f | 67 0d 23 20 31 2e 36 20 |st dialo|g.# 1.6 |
|000011f0| 28 38 2f 39 34 29 20 20 | 20 20 22 70 72 65 66 65 |(8/94)  |  "prefe|
|00001200| 72 42 72 61 63 65 73 22 | 20 61 6c 6c 6f 77 73 20 |rBraces"| allows |
|00001210| 62 72 61 63 65 73 20 6f | 72 20 71 75 6f 74 65 73 |braces o|r quotes|
|00001220| 20 74 6f 20 62 65 20 64 | 65 66 61 75 6c 74 20 66 | to be d|efault f|
|00001230| 6f 72 0d 23 20 20 20 20 | 20 20 20 20 20 20 20 20 |or.#    |        |
|00001240| 20 20 20 20 20 20 20 6e | 65 77 20 6f 72 20 72 65 |       n|ew or re|
|00001250| 66 6f 72 6d 61 74 74 65 | 64 20 65 6e 74 72 69 65 |formatte|d entrie|
|00001260| 73 2c 0d 23 20 20 20 20 | 20 20 20 20 20 20 20 20 |s,.#    |        |
|00001270| 20 20 20 4d 65 6e 75 20 | 62 75 69 6c 74 20 75 73 |   Menu |built us|
|00001280| 69 6e 67 20 24 65 6e 74 | 72 79 4e 61 6d 65 73 20 |ing $ent|ryNames |
|00001290| 61 6e 64 20 24 66 69 65 | 6c 64 4e 61 6d 65 73 2c |and $fie|ldNames,|
|000012a0| 0d 23 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.#      |        |
|000012b0| 20 27 73 6f 72 74 42 79 | 41 75 74 68 6f 72 73 27 | 'sortBy|Authors'|
|000012c0| 20 63 61 6e 20 6e 6f 77 | 20 73 6f 72 74 20 75 73 | can now| sort us|
|000012d0| 69 6e 67 20 6c 61 73 74 | 20 61 75 74 68 6f 72 20 |ing last| author |
|000012e0| 66 69 72 73 74 2c 0d 23 | 20 20 20 20 20 20 20 20 |first,.#|        |
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 61 6e 64 20 69 |        |   and i|
|00001300| 73 20 61 20 62 69 74 20 | 66 61 73 74 65 72 2c 0d |s a bit |faster,.|
|00001310| 23 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#       |        |
|00001320| 27 66 6f 72 6d 61 74 45 | 6e 74 72 79 27 20 72 65 |'formatE|ntry' re|
|00001330| 77 72 69 74 65 73 20 65 | 6e 74 72 69 65 73 20 69 |writes e|ntries i|
|00001340| 6e 20 63 61 6e 6f 6e 69 | 63 61 6c 20 66 6f 72 6d |n canoni|cal form|
|00001350| 61 74 2c 0d 23 20 20 20 | 20 20 20 20 20 20 20 20 |at,.#   |        |
|00001360| 20 20 20 20 4d 6f 72 65 | 20 63 75 73 74 6f 6d 69 |    More| customi|
|00001370| 7a 61 74 69 6f 6e 20 6f | 66 20 63 61 6e 6f 6e 69 |zation o|f canoni|
|00001380| 63 61 6c 20 66 6f 72 6d | 61 74 20 61 6c 6c 6f 77 |cal form|at allow|
|00001390| 65 64 20 28 27 69 6e 64 | 65 6e 74 53 74 72 69 6e |ed ('ind|entStrin|
|000013a0| 67 27 29 0d 23 20 20 20 | 20 20 20 20 20 20 20 20 |g').#   |        |
|000013b0| 20 20 20 20 42 69 62 20 | 6d 6f 64 65 20 64 65 66 |    Bib |mode def|
|000013c0| 69 6e 69 74 69 6f 6e 20 | 61 64 61 70 74 65 64 20 |inition |adapted |
|000013d0| 74 6f 20 41 6c 70 68 61 | 20 35 2e 39 30 2e 0d 23 |to Alpha| 5.90..#|
|000013e0| 20 31 2e 35 20 28 37 2f | 39 34 29 20 20 20 20 22 | 1.5 (7/|94)    "|
|000013f0| 73 6f 72 74 42 79 41 75 | 74 68 6f 72 73 22 20 69 |sortByAu|thors" i|
|00001400| 73 20 6e 6f 77 20 72 6f | 62 75 73 74 20 28 49 20 |s now ro|bust (I |
|00001410| 74 68 69 6e 6b 29 2c 0d | 23 20 20 20 20 20 20 20 |think),.|#       |
|00001420| 20 20 20 20 20 20 20 20 | 4d 6f 64 65 20 6f 66 20 |        |Mode of |
|00001430| 6e 65 77 20 77 69 6e 64 | 6f 77 73 20 6e 6f 77 20 |new wind|ows now |
|00001440| 73 65 74 20 63 6f 72 72 | 65 63 74 6c 79 2e 0d 23 |set corr|ectly..#|
|00001450| 20 31 2e 34 20 28 37 2f | 39 34 29 20 20 20 20 41 | 1.4 (7/|94)    A|
|00001460| 64 64 65 64 20 73 6f 72 | 74 69 6e 67 20 62 79 20 |dded sor|ting by |
|00001470| 61 75 74 68 6f 72 73 2c | 20 62 75 74 20 73 74 69 |authors,| but sti|
|00001480| 6c 6c 20 6f 6e 6c 79 20 | 73 65 6d 69 2d 66 75 6e |ll only |semi-fun|
|00001490| 63 74 69 6f 6e 61 6c 2c | 0d 23 20 20 20 20 20 20 |ctional,|.#      |
|000014a0| 20 20 20 20 20 20 20 20 | 20 41 64 64 65 64 20 72 |        | Added r|
|000014b0| 65 67 65 78 70 20 73 65 | 61 72 63 68 69 6e 67 20 |egexp se|arching |
|000014c0| 62 79 20 66 69 65 6c 64 | 2c 0d 23 20 20 20 20 20 |by field|,.#     |
|000014d0| 20 20 20 20 20 20 20 20 | 20 20 22 67 65 74 45 6e |        |  "getEn|
|000014e0| 74 72 79 22 20 62 75 67 | 73 20 66 69 78 65 64 2e |try" bug|s fixed.|
|000014f0| 0d 23 20 31 2e 32 20 28 | 37 2f 39 34 29 20 20 20 |.# 1.2 (|7/94)   |
|00001500| 20 42 69 62 20 6d 6f 64 | 65 20 64 65 66 69 6e 69 | Bib mod|e defini|
|00001510| 74 69 6f 6e 20 61 64 61 | 70 74 65 64 20 74 6f 20 |tion ada|pted to |
|00001520| 41 6c 70 68 61 20 35 2e | 38 35 2c 0d 23 20 20 20 |Alpha 5.|85,.#   |
|00001530| 20 20 20 20 20 20 20 20 | 20 20 20 20 41 64 64 65 |        |    Adde|
|00001540| 64 20 62 69 62 2d 66 69 | 6c 65 20 6d 61 72 6b 69 |d bib-fi|le marki|
|00001550| 6e 67 20 28 62 69 62 4d | 61 72 6b 46 69 6c 65 29 |ng (bibM|arkFile)|
|00001560| 2c 0d 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,.#     |        |
|00001570| 20 20 45 6e 74 72 79 20 | 61 6e 64 20 66 69 65 6c |  Entry |and fiel|
|00001580| 64 20 63 72 65 61 74 69 | 6f 6e 20 6e 6f 77 20 63 |d creati|on now c|
|00001590| 6f 6e 74 72 6f 6c 6c 65 | 64 20 62 79 20 64 61 74 |ontrolle|d by dat|
|000015a0| 61 20 61 72 72 61 79 73 | 2e 0d 23 20 31 2e 31 20 |a arrays|..# 1.1 |
|000015b0| 28 36 2f 39 34 29 20 20 | 20 20 43 75 73 74 6f 6d |(6/94)  |  Custom|
|000015c0| 20 42 69 62 54 65 58 20 | 69 63 6f 6e 2c 20 0d 23 | BibTeX |icon, .#|
|000015d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 |        |       A|
|000015e0| 64 64 65 64 20 73 69 6d | 70 6c 65 20 73 65 61 72 |dded sim|ple sear|
|000015f0| 63 68 20 63 61 70 61 62 | 69 6c 69 74 79 20 28 6d |ch capab|ility (m|
|00001600| 61 74 63 68 69 6e 67 45 | 6e 74 72 69 65 73 29 2e |atchingE|ntries).|
|00001610| 0d 23 20 31 2e 30 20 28 | 39 2f 39 33 29 20 20 20 |.# 1.0 (|9/93)   |
|00001620| 20 46 69 72 73 74 20 73 | 74 61 62 6c 65 20 76 65 | First s|table ve|
|00001630| 72 73 69 6f 6e 2e 0d 23 | 0d 23 23 23 23 23 23 23 |rsion..#|.#######|
|00001640| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001650| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001660| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001670| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001680| 23 23 23 23 0d 23 20 54 | 68 69 73 20 70 61 63 6b |####.# T|his pack|
|00001690| 61 67 65 20 77 61 73 20 | 69 6e 73 70 69 72 65 64 |age was |inspired|
|000016a0| 20 62 79 20 74 68 65 20 | 4c 61 54 65 58 20 70 61 | by the |LaTeX pa|
|000016b0| 63 6b 61 67 65 20 28 6c | 61 74 65 78 2e 74 63 6c |ckage (l|atex.tcl|
|000016c0| 29 2c 20 77 72 69 74 74 | 65 6e 20 62 79 0d 23 20 |), writt|en by.# |
|000016d0| 0d 23 20 20 20 20 52 69 | 63 68 61 72 64 20 54 2e |.#    Ri|chard T.|
|000016e0| 20 41 75 73 74 69 6e 20 | 20 3c 61 75 73 74 69 6e | Austin | <austin|
|000016f0| 40 65 65 63 73 2e 75 6d | 69 63 68 2e 65 64 75 3e |@eecs.um|ich.edu>|
|00001700| 20 20 2c 20 61 6e 64 20 | 28 63 75 72 72 65 6e 74 |  , and |(current|
|00001710| 6c 79 29 2c 0d 23 20 20 | 20 20 54 6f 6d 20 53 63 |ly),.#  |  Tom Sc|
|00001720| 61 76 6f 20 20 20 20 20 | 20 20 20 20 20 3c 74 72 |avo     |     <tr|
|00001730| 73 63 61 76 6f 40 73 79 | 72 2e 65 64 75 3e 0d 23 |scavo@sy|r.edu>.#|
|00001740| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|00001750| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001760| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001770| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001780| 23 23 23 23 23 23 23 23 | 23 23 23 23 0d 23 23 23 |########|####.###|
|00001790| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000017a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000017b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000017c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000017d0| 23 23 23 23 23 23 23 23 | 23 0d 23 20 43 61 75 73 |########|#.# Caus|
|000017e0| 65 20 6c 61 74 65 78 2e | 74 63 6c 20 74 6f 20 62 |e latex.|tcl to b|
|000017f0| 65 20 6c 6f 61 64 65 64 | 20 62 79 20 63 61 6c 6c |e loaded| by call|
|00001800| 69 6e 67 20 61 20 64 75 | 6d 6d 79 20 70 72 6f 63 |ing a du|mmy proc|
|00001810| 65 64 75 72 65 20 64 65 | 66 69 6e 65 64 20 69 6e |edure de|fined in|
|00001820| 20 74 68 61 74 0d 23 20 | 66 69 6c 65 2e 20 20 54 | that.# |file.  T|
|00001830| 68 69 73 20 69 73 20 6e | 65 63 65 73 73 61 72 79 |his is n|ecessary|
|00001840| 20 74 6f 20 67 65 74 20 | 74 68 65 20 54 65 58 20 | to get |the TeX |
|00001850| 6d 65 6e 75 2c 20 61 6e | 64 20 74 6f 20 6c 6f 61 |menu, an|d to loa|
|00001860| 64 20 74 68 65 20 38 2d | 62 69 74 20 41 53 43 49 |d the 8-|bit ASCI|
|00001870| 49 0d 23 20 74 6f 20 54 | 65 58 20 63 6f 6e 76 65 |I.# to T|eX conve|
|00001880| 72 73 69 6f 6e 20 72 6f | 75 74 69 6e 65 73 2e 0d |rsion ro|utines..|
|00001890| 23 0d 64 75 6d 6d 79 54 | 65 58 0d 0d 23 23 23 23 |#.dummyT|eX..####|
|000018a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000018b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000018c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000018d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000018e0| 23 23 23 23 23 23 23 0d | 23 20 42 69 62 54 65 58 |#######.|# BibTeX|
|000018f0| 20 4b 65 79 20 42 69 6e | 64 69 6e 67 73 2e 0d 23 | Key Bin|dings..#|
|00001900| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001910| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001920| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001930| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001940| 23 23 23 23 23 23 23 23 | 23 23 0d 23 20 61 62 62 |########|##.# abb|
|00001950| 72 65 76 69 61 74 69 6f | 6e 73 3a 20 20 3c 6f 3e |reviatio|ns:  <o>|
|00001960| 20 3d 20 6f 70 74 69 6f | 6e 2c 20 3c 7a 3e 20 3d | = optio|n, <z> =|
|00001970| 20 63 6f 6e 74 72 6f 6c | 2c 20 3c 73 3e 20 3d 20 | control|, <s> = |
|00001980| 73 68 69 66 74 2c 20 3c | 63 3e 20 3d 20 63 6f 6d |shift, <|c> = com|
|00001990| 6d 61 6e 64 0d 23 0d 62 | 69 6e 64 20 27 62 27 20 |mand.#.b|ind 'b' |
|000019a0| 3c 73 7a 3e 09 73 65 6c | 65 63 74 45 6e 74 72 79 |<sz>.sel|ectEntry|
|000019b0| 20 22 42 69 62 22 0d 62 | 69 6e 64 20 27 6e 27 20 | "Bib".b|ind 'n' |
|000019c0| 3c 73 7a 3e 09 6e 65 78 | 74 45 6e 74 72 79 20 22 |<sz>.nex|tEntry "|
|000019d0| 42 69 62 22 0d 62 69 6e | 64 20 27 70 27 20 3c 73 |Bib".bin|d 'p' <s|
|000019e0| 7a 3e 09 70 72 65 76 45 | 6e 74 72 79 20 22 42 69 |z>.prevE|ntry "Bi|
|000019f0| 62 22 0d 0d 62 69 6e 64 | 20 27 66 27 20 3c 73 7a |b"..bind| 'f' <sz|
|00001a00| 3e 09 73 65 61 72 63 68 | 46 69 65 6c 64 73 20 22 |>.search|Fields "|
|00001a10| 42 69 62 22 0d 62 69 6e | 64 20 27 6d 27 20 3c 73 |Bib".bin|d 'm' <s|
|00001a20| 7a 3e 09 73 65 61 72 63 | 68 45 6e 74 72 69 65 73 |z>.searc|hEntries|
|00001a30| 20 22 42 69 62 22 0d 62 | 69 6e 64 20 27 6c 27 20 | "Bib".b|ind 'l' |
|00001a40| 3c 73 7a 3e 09 66 6f 72 | 6d 61 74 45 6e 74 72 79 |<sz>.for|matEntry|
|00001a50| 20 22 42 69 62 22 0d 0d | 23 20 74 61 62 20 73 74 | "Bib"..|# tab st|
|00001a60| 6f 70 73 3a 0d 62 69 6e | 64 09 27 5c 74 27 09 6e |ops:.bin|d.'\t'.n|
|00001a70| 65 78 74 54 61 62 53 74 | 6f 70 09 22 42 69 62 22 |extTabSt|op."Bib"|
|00001a80| 0d 62 69 6e 64 09 27 5c | 74 27 09 3c 73 3e 20 09 |.bind.'\|t'.<s> .|
|00001a90| 70 72 65 76 54 61 62 53 | 74 6f 70 09 22 42 69 62 |prevTabS|top."Bib|
|00001aa0| 22 0d 62 69 6e 64 20 20 | 27 5c 74 27 20 20 3c 7a |".bind  |'\t'  <z|
|00001ab0| 3e 20 20 7b 6e 74 68 54 | 61 62 53 74 6f 70 20 30 |>  {nthT|abStop 0|
|00001ac0| 7d 20 20 22 42 69 62 22 | 0d 62 69 6e 64 20 20 27 |}  "Bib"|.bind  '|
|00001ad0| 5c 74 27 20 20 3c 63 3e | 20 20 64 65 6c 65 74 65 |\t'  <c>|  delete|
|00001ae0| 54 61 62 53 74 6f 70 73 | 20 20 22 42 69 62 22 0d |TabStops|  "Bib".|
|00001af0| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|00001b00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b30| 23 23 23 23 23 23 23 23 | 23 23 23 23 0d 23 20 44 |########|####.# D|
|00001b40| 61 74 61 20 44 65 66 69 | 6e 69 74 69 6f 6e 73 0d |ata Defi|nitions.|
|00001b50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b90| 23 23 23 23 23 23 23 23 | 23 23 23 0d 23 23 23 23 |########|###.####|
|00001ba0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001bb0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001bc0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001bd0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001be0| 23 23 23 23 23 23 23 0d | 23 20 44 65 66 69 6e 65 |#######.|# Define|
|00001bf0| 20 74 68 65 20 64 61 74 | 61 20 61 72 72 61 79 73 | the dat|a arrays|
|00001c00| 20 74 68 61 74 20 63 6f | 6e 74 61 69 6e 20 74 68 | that co|ntain th|
|00001c10| 65 20 6e 61 6d 65 73 20 | 6f 66 20 74 68 65 20 72 |e names |of the r|
|00001c20| 65 71 75 69 72 65 64 2c | 0d 23 20 6f 70 74 69 6f |equired,|.# optio|
|00001c30| 6e 61 6c 2c 20 61 6e 64 | 20 70 72 65 66 65 72 72 |nal, and| preferr|
|00001c40| 65 64 20 66 69 65 6c 64 | 73 20 66 6f 72 20 65 61 |ed field|s for ea|
|00001c50| 63 68 20 65 6e 74 72 79 | 20 74 79 70 65 2e 0d 23 |ch entry| type..#|
|00001c60| 0d 23 20 54 68 65 20 69 | 6e 64 65 78 20 6e 61 6d |.# The i|ndex nam|
|00001c70| 65 73 20 6f 66 20 74 68 | 65 20 72 71 64 46 6c 64 |es of th|e rqdFld|
|00001c80| 28 29 20 61 72 72 61 79 | 20 5f 64 65 66 69 6e 65 |() array| _define|
|00001c90| 5f 20 74 68 65 20 76 61 | 6c 69 64 20 65 6e 74 72 |_ the va|lid entr|
|00001ca0| 79 20 74 79 70 65 73 0d | 23 20 72 65 63 6f 67 6e |y types.|# recogn|
|00001cb0| 69 7a 65 64 20 62 79 20 | 74 68 65 20 70 72 6f 67 |ized by |the prog|
|00001cc0| 72 61 6d 2e 0d 23 0d 73 | 65 74 20 72 71 64 46 6c |ram..#.s|et rqdFl|
|00001cd0| 64 28 61 72 74 69 63 6c | 65 29 20 7b 61 75 74 68 |d(articl|e) {auth|
|00001ce0| 6f 72 20 74 69 74 6c 65 | 20 6a 6f 75 72 6e 61 6c |or title| journal|
|00001cf0| 20 79 65 61 72 7d 20 0d | 73 65 74 20 6f 70 74 46 | year} .|set optF|
|00001d00| 6c 64 28 61 72 74 69 63 | 6c 65 29 20 7b 76 6f 6c |ld(artic|le) {vol|
|00001d10| 75 6d 65 20 6e 75 6d 62 | 65 72 20 70 61 67 65 73 |ume numb|er pages|
|00001d20| 20 6d 6f 6e 74 68 20 6e | 6f 74 65 7d 0d 73 65 74 | month n|ote}.set|
|00001d30| 20 6d 79 46 6c 64 28 61 | 72 74 69 63 6c 65 29 20 | myFld(a|rticle) |
|00001d40| 7b 61 75 74 68 6f 72 20 | 74 69 74 6c 65 20 6a 6f |{author |title jo|
|00001d50| 75 72 6e 61 6c 20 76 6f | 6c 75 6d 65 20 70 61 67 |urnal vo|lume pag|
|00001d60| 65 73 20 79 65 61 72 20 | 6e 6f 74 65 7d 20 0d 0d |es year |note} ..|
|00001d70| 73 65 74 20 72 71 64 46 | 6c 64 28 62 6f 6f 6b 29 |set rqdF|ld(book)|
|00001d80| 20 7b 61 75 74 68 6f 72 | 20 74 69 74 6c 65 20 70 | {author| title p|
|00001d90| 75 62 6c 69 73 68 65 72 | 20 79 65 61 72 7d 20 0d |ublisher| year} .|
|00001da0| 73 65 74 20 6f 70 74 46 | 6c 64 28 62 6f 6f 6b 29 |set optF|ld(book)|
|00001db0| 20 7b 65 64 69 74 6f 72 | 20 76 6f 6c 75 6d 65 20 | {editor| volume |
|00001dc0| 6e 75 6d 62 65 72 20 73 | 65 72 69 65 73 20 61 64 |number s|eries ad|
|00001dd0| 64 72 65 73 73 20 65 64 | 69 74 69 6f 6e 20 6d 6f |dress ed|ition mo|
|00001de0| 6e 74 68 20 6e 6f 74 65 | 7d 0d 0d 73 65 74 20 72 |nth note|}..set r|
|00001df0| 71 64 46 6c 64 28 62 6f | 6f 6b 6c 65 74 29 20 7b |qdFld(bo|oklet) {|
|00001e00| 74 69 74 6c 65 7d 20 0d | 73 65 74 20 6f 70 74 46 |title} .|set optF|
|00001e10| 6c 64 28 62 6f 6f 6b 6c | 65 74 29 20 7b 61 75 74 |ld(bookl|et) {aut|
|00001e20| 68 6f 72 20 68 6f 77 70 | 75 62 6c 69 73 68 65 64 |hor howp|ublished|
|00001e30| 20 61 64 64 72 65 73 73 | 20 6d 6f 6e 74 68 20 79 | address| month y|
|00001e40| 65 61 72 20 6e 6f 74 65 | 7d 0d 0d 73 65 74 20 72 |ear note|}..set r|
|00001e50| 71 64 46 6c 64 28 63 6f | 6e 66 65 72 65 6e 63 65 |qdFld(co|nference|
|00001e60| 29 20 7b 61 75 74 68 6f | 72 20 74 69 74 6c 65 20 |) {autho|r title |
|00001e70| 62 6f 6f 6b 74 69 74 6c | 65 20 79 65 61 72 7d 20 |booktitl|e year} |
|00001e80| 0d 73 65 74 20 6f 70 74 | 46 6c 64 28 63 6f 6e 66 |.set opt|Fld(conf|
|00001e90| 65 72 65 6e 63 65 29 20 | 7b 65 64 69 74 6f 72 20 |erence) |{editor |
|00001ea0| 76 6f 6c 75 6d 65 20 6e | 75 6d 62 65 72 20 73 65 |volume n|umber se|
|00001eb0| 72 69 65 73 20 70 61 67 | 65 73 20 6f 72 67 61 6e |ries pag|es organ|
|00001ec0| 69 7a 61 74 69 6f 6e 20 | 70 75 62 6c 69 73 68 65 |ization |publishe|
|00001ed0| 72 20 61 64 64 72 65 73 | 73 20 6d 6f 6e 74 68 20 |r addres|s month |
|00001ee0| 6e 6f 74 65 7d 0d 0d 73 | 65 74 20 72 71 64 46 6c |note}..s|et rqdFl|
|00001ef0| 64 28 69 6e 42 6f 6f 6b | 29 20 7b 61 75 74 68 6f |d(inBook|) {autho|
|00001f00| 72 20 74 69 74 6c 65 20 | 63 68 61 70 74 65 72 20 |r title |chapter |
|00001f10| 70 75 62 6c 69 73 68 65 | 72 20 79 65 61 72 7d 20 |publishe|r year} |
|00001f20| 0d 73 65 74 20 6f 70 74 | 46 6c 64 28 69 6e 42 6f |.set opt|Fld(inBo|
|00001f30| 6f 6b 29 20 7b 65 64 69 | 74 6f 72 20 70 61 67 65 |ok) {edi|tor page|
|00001f40| 73 20 76 6f 6c 75 6d 65 | 20 6e 75 6d 62 65 72 20 |s volume| number |
|00001f50| 73 65 72 69 65 73 20 61 | 64 64 72 65 73 73 20 65 |series a|ddress e|
|00001f60| 64 69 74 69 6f 6e 20 6d | 6f 6e 74 68 20 74 79 70 |dition m|onth typ|
|00001f70| 65 20 6e 6f 74 65 7d 0d | 0d 73 65 74 20 72 71 64 |e note}.|.set rqd|
|00001f80| 46 6c 64 28 69 6e 43 6f | 6c 6c 65 63 74 69 6f 6e |Fld(inCo|llection|
|00001f90| 29 20 7b 61 75 74 68 6f | 72 20 74 69 74 6c 65 20 |) {autho|r title |
|00001fa0| 62 6f 6f 6b 74 69 74 6c | 65 20 70 75 62 6c 69 73 |booktitl|e publis|
|00001fb0| 68 65 72 20 79 65 61 72 | 7d 20 0d 73 65 74 20 6f |her year|} .set o|
|00001fc0| 70 74 46 6c 64 28 69 6e | 43 6f 6c 6c 65 63 74 69 |ptFld(in|Collecti|
|00001fd0| 6f 6e 29 20 7b 65 64 69 | 74 6f 72 20 76 6f 6c 75 |on) {edi|tor volu|
|00001fe0| 6d 65 20 6e 75 6d 62 65 | 72 20 73 65 72 69 65 73 |me numbe|r series|
|00001ff0| 20 74 79 70 65 20 63 68 | 61 70 74 65 72 20 70 61 | type ch|apter pa|
|00002000| 67 65 73 20 61 64 64 72 | 65 73 73 20 65 64 69 74 |ges addr|ess edit|
|00002010| 69 6f 6e 20 6d 6f 6e 74 | 68 20 6e 6f 74 65 7d 0d |ion mont|h note}.|
|00002020| 0d 73 65 74 20 72 71 64 | 46 6c 64 28 69 6e 50 72 |.set rqd|Fld(inPr|
|00002030| 6f 63 65 65 64 69 6e 67 | 73 29 20 7b 61 75 74 68 |oceeding|s) {auth|
|00002040| 6f 72 20 74 69 74 6c 65 | 20 62 6f 6f 6b 74 69 74 |or title| booktit|
|00002050| 6c 65 20 79 65 61 72 7d | 20 0d 73 65 74 20 6f 70 |le year}| .set op|
|00002060| 74 46 6c 64 28 69 6e 50 | 72 6f 63 65 65 64 69 6e |tFld(inP|roceedin|
|00002070| 67 73 29 20 7b 65 64 69 | 74 6f 72 20 76 6f 6c 75 |gs) {edi|tor volu|
|00002080| 6d 65 20 6e 75 6d 62 65 | 72 20 73 65 72 69 65 73 |me numbe|r series|
|00002090| 20 70 61 67 65 73 20 6f | 72 67 61 6e 69 7a 61 74 | pages o|rganizat|
|000020a0| 69 6f 6e 20 70 75 62 6c | 69 73 68 65 72 20 61 64 |ion publ|isher ad|
|000020b0| 64 72 65 73 73 20 6d 6f | 6e 74 68 20 6e 6f 74 65 |dress mo|nth note|
|000020c0| 7d 0d 0d 73 65 74 20 72 | 71 64 46 6c 64 28 6d 61 |}..set r|qdFld(ma|
|000020d0| 6e 75 61 6c 29 20 7b 74 | 69 74 6c 65 7d 20 0d 73 |nual) {t|itle} .s|
|000020e0| 65 74 20 6f 70 74 46 6c | 64 28 6d 61 6e 75 61 6c |et optFl|d(manual|
|000020f0| 29 20 7b 61 75 74 68 6f | 72 20 6f 72 67 61 6e 69 |) {autho|r organi|
|00002100| 7a 61 74 69 6f 6e 20 61 | 64 64 72 65 73 73 20 65 |zation a|ddress e|
|00002110| 64 69 74 69 6f 6e 20 79 | 65 61 72 20 6d 6f 6e 74 |dition y|ear mont|
|00002120| 68 20 6e 6f 74 65 7d 0d | 0d 73 65 74 20 72 71 64 |h note}.|.set rqd|
|00002130| 46 6c 64 28 6d 61 73 74 | 65 72 73 54 68 65 73 69 |Fld(mast|ersThesi|
|00002140| 73 29 20 7b 61 75 74 68 | 6f 72 20 74 69 74 6c 65 |s) {auth|or title|
|00002150| 20 73 63 68 6f 6f 6c 20 | 79 65 61 72 7d 20 0d 73 | school |year} .s|
|00002160| 65 74 20 6f 70 74 46 6c | 64 28 6d 61 73 74 65 72 |et optFl|d(master|
|00002170| 73 54 68 65 73 69 73 29 | 20 7b 61 64 64 72 65 73 |sThesis)| {addres|
|00002180| 73 20 6d 6f 6e 74 68 20 | 6e 6f 74 65 20 74 79 70 |s month |note typ|
|00002190| 65 7d 0d 0d 73 65 74 20 | 72 71 64 46 6c 64 28 6d |e}..set |rqdFld(m|
|000021a0| 69 73 63 29 20 7b 7d 20 | 0d 73 65 74 20 6f 70 74 |isc) {} |.set opt|
|000021b0| 46 6c 64 28 6d 69 73 63 | 29 20 7b 61 75 74 68 6f |Fld(misc|) {autho|
|000021c0| 72 20 74 69 74 6c 65 20 | 68 6f 77 70 75 62 6c 69 |r title |howpubli|
|000021d0| 73 68 65 64 20 79 65 61 | 72 20 6d 6f 6e 74 68 20 |shed yea|r month |
|000021e0| 6e 6f 74 65 7d 0d 0d 73 | 65 74 20 72 71 64 46 6c |note}..s|et rqdFl|
|000021f0| 64 28 70 68 64 54 68 65 | 73 69 73 29 20 7b 61 75 |d(phdThe|sis) {au|
|00002200| 74 68 6f 72 20 74 69 74 | 6c 65 20 73 63 68 6f 6f |thor tit|le schoo|
|00002210| 6c 20 79 65 61 72 7d 20 | 0d 73 65 74 20 6f 70 74 |l year} |.set opt|
|00002220| 46 6c 64 28 70 68 64 54 | 68 65 73 69 73 29 20 7b |Fld(phdT|hesis) {|
|00002230| 61 64 64 72 65 73 73 20 | 6d 6f 6e 74 68 20 74 79 |address |month ty|
|00002240| 70 65 20 6e 6f 74 65 7d | 0d 0d 73 65 74 20 72 71 |pe note}|..set rq|
|00002250| 64 46 6c 64 28 70 72 6f | 63 65 65 64 69 6e 67 73 |dFld(pro|ceedings|
|00002260| 29 20 7b 74 69 74 6c 65 | 20 79 65 61 72 7d 20 0d |) {title| year} .|
|00002270| 73 65 74 20 6f 70 74 46 | 6c 64 28 70 72 6f 63 65 |set optF|ld(proce|
|00002280| 65 64 69 6e 67 73 29 20 | 7b 65 64 69 74 6f 72 20 |edings) |{editor |
|00002290| 76 6f 6c 75 6d 65 20 6e | 75 6d 62 65 72 20 73 65 |volume n|umber se|
|000022a0| 72 69 65 73 20 70 75 62 | 6c 69 73 68 65 72 20 6f |ries pub|lisher o|
|000022b0| 72 67 61 6e 69 7a 61 74 | 69 6f 6e 20 61 64 64 72 |rganizat|ion addr|
|000022c0| 65 73 73 20 6d 6f 6e 74 | 68 20 6e 6f 74 65 7d 0d |ess mont|h note}.|
|000022d0| 0d 73 65 74 20 72 71 64 | 46 6c 64 28 74 65 63 68 |.set rqd|Fld(tech|
|000022e0| 52 65 70 6f 72 74 29 20 | 7b 61 75 74 68 6f 72 20 |Report) |{author |
|000022f0| 74 69 74 6c 65 20 69 6e | 73 74 69 74 75 74 69 6f |title in|stitutio|
|00002300| 6e 20 79 65 61 72 7d 20 | 0d 73 65 74 20 6f 70 74 |n year} |.set opt|
|00002310| 46 6c 64 28 74 65 63 68 | 52 65 70 6f 72 74 29 20 |Fld(tech|Report) |
|00002320| 7b 74 79 70 65 20 6e 75 | 6d 62 65 72 20 61 64 64 |{type nu|mber add|
|00002330| 72 65 73 73 20 6d 6f 6e | 74 68 20 6e 6f 74 65 7d |ress mon|th note}|
|00002340| 0d 0d 73 65 74 20 72 71 | 64 46 6c 64 28 75 6e 70 |..set rq|dFld(unp|
|00002350| 75 62 6c 69 73 68 65 64 | 29 20 7b 61 75 74 68 6f |ublished|) {autho|
|00002360| 72 20 74 69 74 6c 65 20 | 6e 6f 74 65 7d 20 0d 73 |r title |note} .s|
|00002370| 65 74 20 6f 70 74 46 6c | 64 28 75 6e 70 75 62 6c |et optFl|d(unpubl|
|00002380| 69 73 68 65 64 29 20 7b | 79 65 61 72 20 6d 6f 6e |ished) {|year mon|
|00002390| 74 68 7d 0d 0d 73 65 74 | 20 65 6e 74 72 79 4e 61 |th}..set| entryNa|
|000023a0| 6d 65 73 20 5b 6c 73 6f | 72 74 20 5b 61 72 72 61 |mes [lso|rt [arra|
|000023b0| 79 20 6e 61 6d 65 73 20 | 72 71 64 46 6c 64 5d 5d |y names |rqdFld]]|
|000023c0| 0d 73 65 74 20 63 75 73 | 74 6f 6d 45 6e 74 72 69 |.set cus|tomEntri|
|000023d0| 65 73 20 5b 6c 73 6f 72 | 74 20 5b 61 72 72 61 79 |es [lsor|t [array|
|000023e0| 20 6e 61 6d 65 73 20 6d | 79 46 6c 64 5d 5d 0d 0d | names m|yFld]]..|
|000023f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002400| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002410| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002420| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002430| 23 23 23 23 23 23 23 23 | 23 23 23 0d 23 20 44 65 |########|###.# De|
|00002440| 66 69 6e 65 20 61 6e 20 | 61 72 72 61 79 20 6f 66 |fine an |array of|
|00002450| 20 66 6c 61 67 73 20 69 | 6e 64 69 63 61 74 69 6e | flags i|ndicatin|
|00002460| 67 20 77 68 65 74 68 65 | 72 20 74 68 65 20 64 61 |g whethe|r the da|
|00002470| 74 61 20 61 20 67 69 76 | 65 6e 20 66 69 65 6c 64 |ta a giv|en field|
|00002480| 0d 23 20 74 79 70 65 20 | 73 68 6f 75 6c 64 20 62 |.# type |should b|
|00002490| 65 20 71 75 6f 74 65 64 | 2e 20 20 54 68 65 20 61 |e quoted|.  The a|
|000024a0| 63 74 75 61 6c 20 63 68 | 61 72 61 63 74 65 72 73 |ctual ch|aracters|
|000024b0| 20 75 73 65 64 20 74 6f | 20 71 75 6f 74 65 20 74 | used to| quote t|
|000024c0| 68 65 20 66 69 65 6c 64 | 20 61 72 65 0d 23 20 67 |he field| are.# g|
|000024d0| 69 76 65 6e 20 62 79 20 | 24 62 69 62 4f 70 65 6e |iven by |$bibOpen|
|000024e0| 51 75 6f 74 65 20 61 6e | 64 20 24 62 69 62 43 6c |Quote an|d $bibCl|
|000024f0| 6f 73 65 51 75 6f 74 65 | 2c 20 77 68 69 63 68 20 |oseQuote|, which |
|00002500| 61 72 65 20 73 65 74 20 | 62 79 20 74 68 65 20 72 |are set |by the r|
|00002510| 6f 75 74 69 6e 65 0d 23 | 20 27 62 69 62 46 69 65 |outine.#| 'bibFie|
|00002520| 6c 64 44 65 6c 69 6d 73 | 27 20 61 63 63 6f 72 64 |ldDelims|' accord|
|00002530| 69 6e 67 20 74 6f 20 74 | 68 65 20 66 6c 61 67 20 |ing to t|he flag |
|00002540| 24 66 69 65 6c 64 42 72 | 61 63 65 73 2e 0d 23 0d |$fieldBr|aces..#.|
|00002550| 23 20 4e 6f 74 65 20 74 | 68 61 74 20 74 68 65 20 |# Note t|hat the |
|00002560| 69 6e 64 65 78 20 6e 61 | 6d 65 73 20 6f 66 20 74 |index na|mes of t|
|00002570| 68 65 20 75 73 65 42 72 | 61 63 65 28 29 20 61 72 |he useBr|ace() ar|
|00002580| 72 61 79 20 5f 64 65 66 | 69 6e 65 5f 20 74 68 65 |ray _def|ine_ the|
|00002590| 20 76 61 6c 69 64 20 0d | 23 20 66 69 65 6c 64 20 | valid .|# field |
|000025a0| 74 79 70 65 73 20 72 65 | 63 6f 67 6e 69 7a 65 64 |types re|cognized|
|000025b0| 20 62 79 20 74 68 65 20 | 70 72 6f 67 72 61 6d 2e | by the |program.|
|000025c0| 0d 23 0d 73 65 74 20 75 | 73 65 42 72 61 63 65 28 |.#.set u|seBrace(|
|000025d0| 61 64 64 72 65 73 73 29 | 09 31 0d 73 65 74 20 75 |address)|.1.set u|
|000025e0| 73 65 42 72 61 63 65 28 | 61 6e 6e 6f 74 65 29 09 |seBrace(|annote).|
|000025f0| 31 0d 73 65 74 20 75 73 | 65 42 72 61 63 65 28 61 |1.set us|eBrace(a|
|00002600| 75 74 68 6f 72 29 20 09 | 31 0d 73 65 74 20 75 73 |uthor) .|1.set us|
|00002610| 65 42 72 61 63 65 28 62 | 6f 6f 6b 74 69 74 6c 65 |eBrace(b|ooktitle|
|00002620| 29 09 31 0d 73 65 74 20 | 75 73 65 42 72 61 63 65 |).1.set |useBrace|
|00002630| 28 63 68 61 70 74 65 72 | 29 09 30 0d 73 65 74 20 |(chapter|).0.set |
|00002640| 75 73 65 42 72 61 63 65 | 28 63 72 6f 73 73 72 65 |useBrace|(crossre|
|00002650| 66 29 09 31 0d 73 65 74 | 20 75 73 65 42 72 61 63 |f).1.set| useBrac|
|00002660| 65 28 65 64 69 74 69 6f | 6e 29 09 31 0d 73 65 74 |e(editio|n).1.set|
|00002670| 20 75 73 65 42 72 61 63 | 65 28 65 64 69 74 6f 72 | useBrac|e(editor|
|00002680| 29 09 31 0d 73 65 74 20 | 75 73 65 42 72 61 63 65 |).1.set |useBrace|
|00002690| 28 68 6f 77 70 75 62 6c | 69 73 68 65 64 29 09 31 |(howpubl|ished).1|
|000026a0| 0d 73 65 74 20 75 73 65 | 42 72 61 63 65 28 69 6e |.set use|Brace(in|
|000026b0| 73 74 69 74 75 74 69 6f | 6e 29 09 31 0d 73 65 74 |stitutio|n).1.set|
|000026c0| 20 75 73 65 42 72 61 63 | 65 28 6a 6f 75 72 6e 61 | useBrac|e(journa|
|000026d0| 6c 29 09 31 0d 73 65 74 | 20 75 73 65 42 72 61 63 |l).1.set| useBrac|
|000026e0| 65 28 6b 65 79 29 09 31 | 0d 73 65 74 20 75 73 65 |e(key).1|.set use|
|000026f0| 42 72 61 63 65 28 6c 61 | 6e 67 75 61 67 65 29 09 |Brace(la|nguage).|
|00002700| 31 0d 73 65 74 20 75 73 | 65 42 72 61 63 65 28 6d |1.set us|eBrace(m|
|00002710| 6f 6e 74 68 29 09 31 0d | 73 65 74 20 75 73 65 42 |onth).1.|set useB|
|00002720| 72 61 63 65 28 6e 6f 74 | 65 29 09 31 0d 73 65 74 |race(not|e).1.set|
|00002730| 20 75 73 65 42 72 61 63 | 65 28 6e 75 6d 62 65 72 | useBrac|e(number|
|00002740| 29 09 30 0d 73 65 74 20 | 75 73 65 42 72 61 63 65 |).0.set |useBrace|
|00002750| 28 6f 72 67 61 6e 69 7a | 61 74 69 6f 6e 29 09 31 |(organiz|ation).1|
|00002760| 0d 73 65 74 20 75 73 65 | 42 72 61 63 65 28 70 61 |.set use|Brace(pa|
|00002770| 67 65 73 29 09 30 0d 73 | 65 74 20 75 73 65 42 72 |ges).0.s|et useBr|
|00002780| 61 63 65 28 70 75 62 6c | 69 73 68 65 72 29 09 31 |ace(publ|isher).1|
|00002790| 0d 73 65 74 20 75 73 65 | 42 72 61 63 65 28 73 63 |.set use|Brace(sc|
|000027a0| 68 6f 6f 6c 29 09 31 0d | 73 65 74 20 75 73 65 42 |hool).1.|set useB|
|000027b0| 72 61 63 65 28 73 65 72 | 69 65 73 29 09 31 0d 73 |race(ser|ies).1.s|
|000027c0| 65 74 20 75 73 65 42 72 | 61 63 65 28 74 69 74 6c |et useBr|ace(titl|
|000027d0| 65 29 09 31 0d 73 65 74 | 20 75 73 65 42 72 61 63 |e).1.set| useBrac|
|000027e0| 65 28 74 79 70 65 29 09 | 31 0d 73 65 74 20 75 73 |e(type).|1.set us|
|000027f0| 65 42 72 61 63 65 28 76 | 6f 6c 75 6d 65 29 09 30 |eBrace(v|olume).0|
|00002800| 0d 73 65 74 20 75 73 65 | 42 72 61 63 65 28 79 65 |.set use|Brace(ye|
|00002810| 61 72 29 09 30 0d 0d 73 | 65 74 20 66 69 65 6c 64 |ar).0..s|et field|
|00002820| 4e 61 6d 65 73 20 5b 6c | 73 6f 72 74 20 5b 61 72 |Names [l|sort [ar|
|00002830| 72 61 79 20 6e 61 6d 65 | 73 20 75 73 65 42 72 61 |ray name|s useBra|
|00002840| 63 65 5d 5d 0d 23 23 23 | 23 23 23 23 23 23 23 23 |ce]].###|########|
|00002850| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002860| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002870| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002880| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002890| 0d 23 20 44 65 66 61 75 | 6c 74 20 76 61 6c 75 65 |.# Defau|lt value|
|000028a0| 73 20 66 6f 72 20 6e 65 | 77 6c 79 20 63 72 65 61 |s for ne|wly crea|
|000028b0| 74 65 64 20 66 69 65 6c | 64 73 0d 23 0d 73 65 74 |ted fiel|ds.#.set|
|000028c0| 20 64 65 66 46 6c 64 56 | 61 6c 28 6c 61 6e 67 75 | defFldV|al(langu|
|000028d0| 61 67 65 29 20 22 67 65 | 72 6d 61 6e 22 0d 0d 73 |age) "ge|rman"..s|
|000028e0| 65 74 20 66 69 65 6c 64 | 44 65 66 73 20 5b 6c 73 |et field|Defs [ls|
|000028f0| 6f 72 74 20 5b 61 72 72 | 61 79 20 6e 61 6d 65 73 |ort [arr|ay names|
|00002900| 20 64 65 66 46 6c 64 56 | 61 6c 5d 5d 0d 0d 23 23 | defFldV|al]]..##|
|00002910| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002920| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002930| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002940| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002950| 23 23 23 23 23 23 23 23 | 23 0d 23 20 53 65 61 72 |########|#.# Sear|
|00002960| 63 68 20 70 61 74 74 65 | 72 6e 73 20 66 6f 72 20 |ch patte|rns for |
|00002970| 65 6e 74 72 69 65 73 20 | 61 6e 64 20 63 69 74 65 |entries |and cite|
|00002980| 2d 6b 65 79 73 0d 23 0d | 23 20 09 73 65 74 20 62 |-keys.#.|# .set b|
|00002990| 69 62 54 6f 70 50 61 74 | 20 7b 5e 5b 20 09 5d 2a |ibTopPat| {^[ .]*|
|000029a0| 40 5b 61 2d 7a 41 2d 5a | 5d 2b 5b 5c 7b 5c 28 5d |@[a-zA-Z|]+[\{\(]|
|000029b0| 28 5b 2d 41 2d 5a 61 2d | 7a 30 2d 39 5f 3a 2f 5c |([-A-Za-|z0-9_:/\|
|000029c0| 2e 5d 2b 29 7d 0d 23 20 | 6d 61 74 63 68 20 65 6e |.]+)}.# |match en|
|000029d0| 74 72 79 20 74 79 70 65 | 0d 73 65 74 20 62 69 62 |try type|.set bib|
|000029e0| 54 6f 70 50 61 74 20 7b | 5e 5b 20 09 5d 2a 40 28 |TopPat {|^[ .]*@(|
|000029f0| 5b 61 2d 7a 41 2d 5a 5d | 2b 29 5b 5c 7b 5c 28 5d |[a-zA-Z]|+)[\{\(]|
|00002a00| 7d 0d 23 20 6d 61 74 63 | 68 20 63 69 74 65 2d 6b |}.# matc|h cite-k|
|00002a10| 65 79 0d 73 65 74 20 62 | 69 62 54 6f 70 50 61 74 |ey.set b|ibTopPat|
|00002a20| 31 20 7b 5e 5b 20 09 5d | 2a 40 5b 61 2d 7a 41 2d |1 {^[ .]|*@[a-zA-|
|00002a30| 5a 5d 2b 5b 5c 7b 5c 28 | 5d 5b 20 09 5d 2a 28 5b |Z]+[\{\(|][ .]*([|
|00002a40| 5e 3d 2c 20 09 5d 2b 29 | 7d 09 0d 23 20 6d 61 74 |^=, .]+)|}..# mat|
|00002a50| 63 68 20 74 79 70 65 20 | 61 6e 64 20 63 69 74 65 |ch type |and cite|
|00002a60| 2d 6b 65 79 0d 73 65 74 | 20 62 69 62 54 6f 70 50 |-key.set| bibTopP|
|00002a70| 61 74 32 20 7b 5e 5b 20 | 09 5d 2a 40 28 5b 61 2d |at2 {^[ |.]*@([a-|
|00002a80| 7a 41 2d 5a 5d 2b 29 5b | 5c 7b 5c 28 5d 5b 20 09 |zA-Z]+)[|\{\(][ .|
|00002a90| 5d 2a 28 5b 5e 3d 2c 20 | 09 5d 2b 29 7d 09 0d 23 |]*([^=, |.]+)}..#|
|00002aa0| 20 6d 61 74 63 68 20 66 | 69 72 73 74 20 66 69 65 | match f|irst fie|
|00002ab0| 6c 64 20 28 6e 6f 20 63 | 69 74 65 2d 6b 65 79 29 |ld (no c|ite-key)|
|00002ac0| 0d 73 65 74 20 62 69 62 | 54 6f 70 50 61 74 33 20 |.set bib|TopPat3 |
|00002ad0| 7b 5e 5b 20 09 5d 2a 40 | 28 5b 61 2d 7a 41 2d 5a |{^[ .]*@|([a-zA-Z|
|00002ae0| 5d 2b 29 5b 5c 7b 5c 28 | 5d 28 5b 20 09 5d 2a 5b |]+)[\{\(|]([ .]*[|
|00002af0| 61 2d 7a 41 2d 5a 5d 2b | 5b 20 09 5d 2a 3d 5b 20 |a-zA-Z]+|[ .]*=[ |
|00002b00| 09 5d 2a 29 7d 09 0d 09 | 09 09 09 09 09 09 09 09 |.]*)}...|........|
|00002b10| 09 09 09 09 09 09 20 20 | 20 20 0d 0d 23 23 23 23 |......  |  ..####|
|00002b20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002b30| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002b40| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002b50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002b60| 23 23 23 23 23 23 23 0d | 23 20 42 69 62 54 65 58 |#######.|# BibTeX|
|00002b70| 2d 6d 6f 64 65 20 6d 6f | 64 65 20 64 65 66 69 6e |-mode mo|de defin|
|00002b80| 69 74 69 6f 6e 0d 23 23 | 23 23 23 23 23 23 23 23 |ition.##|########|
|00002b90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002ba0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002bb0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002bc0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002bd0| 23 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 42 69 62 |#.newMod|eVar Bib|
|00002be0| 20 73 75 66 66 69 78 53 | 74 72 69 6e 67 09 7b 20 | suffixS|tring.{ |
|00002bf0| 5c 5c 5c 5c 7d 20 30 0d | 6e 65 77 4d 6f 64 65 56 |\\\\} 0.|newModeV|
|00002c00| 61 72 20 42 69 62 20 70 | 72 65 66 69 78 53 74 72 |ar Bib p|refixStr|
|00002c10| 69 6e 67 09 7b 25 20 7d | 20 30 0d 6e 65 77 4d 6f |ing.{% }| 0.newMo|
|00002c20| 64 65 56 61 72 20 42 69 | 62 20 66 69 6c 6c 43 6f |deVar Bi|b fillCo|
|00002c30| 6c 75 6d 6e 09 7b 36 35 | 7d 20 30 0d 6e 65 77 4d |lumn.{65|} 0.newM|
|00002c40| 6f 64 65 56 61 72 20 42 | 69 62 20 77 6f 72 64 57 |odeVar B|ib wordW|
|00002c50| 72 61 70 09 09 7b 30 7d | 20 31 0d 6e 65 77 4d 6f |rap..{0}| 1.newMo|
|00002c60| 64 65 56 61 72 20 42 69 | 62 20 61 75 74 6f 4d 61 |deVar Bi|b autoMa|
|00002c70| 72 6b 09 09 7b 31 7d 20 | 31 0d 0d 6e 65 77 4d 6f |rk..{1} |1..newMo|
|00002c80| 64 65 56 61 72 20 42 69 | 62 20 77 6f 72 64 42 72 |deVar Bi|b wordBr|
|00002c90| 65 61 6b 20 20 20 20 20 | 20 20 20 20 7b 5b 61 2d |eak     |    {[a-|
|00002ca0| 7a 41 2d 5a 30 2d 39 5d | 2b 7d 20 30 0d 6e 65 77 |zA-Z0-9]|+} 0.new|
|00002cb0| 4d 6f 64 65 56 61 72 20 | 42 69 62 20 77 6f 72 64 |ModeVar |Bib word|
|00002cc0| 42 72 65 61 6b 50 72 65 | 66 61 63 65 09 20 7b 5b |BreakPre|face. {[|
|00002cd0| 5e 61 2d 7a 41 2d 5a 30 | 2d 39 5d 7d 20 30 0d 6e |^a-zA-Z0|-9]} 0.n|
|00002ce0| 65 77 4d 6f 64 65 56 61 | 72 20 42 69 62 20 66 75 |ewModeVa|r Bib fu|
|00002cf0| 6e 63 45 78 70 72 20 20 | 20 20 20 20 20 20 20 20 |ncExpr  |        |
|00002d00| 20 24 62 69 62 54 6f 70 | 50 61 74 20 30 0d 0d 6e | $bibTop|Pat 0..n|
|00002d10| 65 77 4d 6f 64 65 56 61 | 72 20 42 69 62 20 6f 76 |ewModeVa|r Bib ov|
|00002d20| 65 72 77 72 69 74 65 42 | 75 66 66 65 72 20 7b 31 |erwriteB|uffer {1|
|00002d30| 7d 20 31 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 42 |} 1.newM|odeVar B|
|00002d40| 69 62 20 66 69 65 6c 64 | 42 72 61 63 65 73 20 7b |ib field|Braces {|
|00002d50| 31 7d 20 31 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |1} 1.new|ModeVar |
|00002d60| 42 69 62 20 65 6e 74 72 | 79 42 72 61 63 65 73 20 |Bib entr|yBraces |
|00002d70| 7b 31 7d 20 31 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |{1} 1.ne|wModeVar|
|00002d80| 20 42 69 62 20 73 65 67 | 72 65 67 61 74 65 53 74 | Bib seg|regateSt|
|00002d90| 72 69 6e 67 73 20 7b 31 | 7d 20 31 0d 6e 65 77 4d |rings {1|} 1.newM|
|00002da0| 6f 64 65 56 61 72 20 42 | 69 62 20 6d 61 72 6b 53 |odeVar B|ib markS|
|00002db0| 74 72 69 6e 67 73 20 7b | 30 7d 20 31 0d 6e 65 77 |trings {|0} 1.new|
|00002dc0| 4d 6f 64 65 56 61 72 20 | 42 69 62 20 61 6c 69 67 |ModeVar |Bib alig|
|00002dd0| 6e 45 71 75 61 6c 73 20 | 7b 30 7d 20 31 0d 23 23 |nEquals |{0} 1.##|
|00002de0| 23 0d 23 20 6e 65 77 4d | 6f 64 65 56 61 72 20 42 |#.# newM|odeVar B|
|00002df0| 69 62 20 65 6d 61 63 73 | 42 69 62 4d 6f 64 65 20 |ib emacs|BibMode |
|00002e00| 7b 30 7d 20 31 0d 23 20 | 6e 65 77 4d 6f 64 65 56 |{0} 1.# |newModeV|
|00002e10| 61 72 20 42 69 62 20 61 | 64 64 43 69 74 65 4b 65 |ar Bib a|ddCiteKe|
|00002e20| 79 73 20 7b 30 7d 20 31 | 0d 23 20 6e 65 77 4d 6f |ys {0} 1|.# newMo|
|00002e30| 64 65 56 61 72 20 42 69 | 62 20 63 68 65 63 6b 53 |deVar Bi|b checkS|
|00002e40| 79 6e 74 61 78 20 7b 30 | 7d 20 31 0d 6e 65 77 4d |yntax {0|} 1.newM|
|00002e50| 6f 64 65 56 61 72 20 42 | 69 62 20 7a 61 70 45 6d |odeVar B|ib zapEm|
|00002e60| 70 74 79 46 69 65 6c 64 | 73 20 7b 30 7d 20 31 0d |ptyField|s {0} 1.|
|00002e70| 6e 65 77 4d 6f 64 65 56 | 61 72 20 42 69 62 20 64 |newModeV|ar Bib d|
|00002e80| 65 73 63 65 6e 64 69 6e | 67 59 65 61 72 73 20 7b |escendin|gYears {|
|00002e90| 31 7d 20 31 0d 23 23 23 | 0d 6e 65 77 4d 6f 64 65 |1} 1.###|.newMode|
|00002ea0| 56 61 72 20 42 69 62 20 | 69 6e 64 65 6e 74 53 74 |Var Bib |indentSt|
|00002eb0| 72 69 6e 67 20 7b 20 20 | 20 7d 20 30 0d 6e 65 77 |ring {  | } 0.new|
|00002ec0| 4d 6f 64 65 56 61 72 20 | 42 69 62 20 73 74 64 41 |ModeVar |Bib stdA|
|00002ed0| 62 62 72 65 76 73 20 7b | 6a 61 6e 20 66 65 62 20 |bbrevs {|jan feb |
|00002ee0| 6d 61 72 20 61 70 72 20 | 6d 61 79 20 6a 75 6e 20 |mar apr |may jun |
|00002ef0| 6a 75 6c 20 61 75 67 20 | 73 65 70 20 6f 63 74 20 |jul aug |sep oct |
|00002f00| 6e 6f 76 20 64 65 63 7d | 20 30 0d 23 20 6e 65 77 |nov dec}| 0.# new|
|00002f10| 4d 6f 64 65 56 61 72 20 | 42 69 62 20 63 6f 6e 76 |ModeVar |Bib conv|
|00002f20| 65 72 74 38 62 69 74 41 | 73 63 69 69 32 54 65 58 |ert8bitA|scii2TeX|
|00002f30| 20 7b 30 7d 20 31 0d 0d | 73 65 74 20 62 69 62 74 | {0} 1..|set bibt|
|00002f40| 65 78 4b 65 79 57 6f 72 | 64 73 20 7b 61 64 64 72 |exKeyWor|ds {addr|
|00002f50| 65 73 73 20 61 6e 6e 6f | 74 65 20 61 75 74 68 6f |ess anno|te autho|
|00002f60| 72 20 62 6f 6f 6b 74 69 | 74 6c 65 20 0d 20 20 20 |r bookti|tle .   |
|00002f70| 20 63 68 61 70 74 65 72 | 20 63 69 74 79 20 63 72 | chapter| city cr|
|00002f80| 6f 73 73 72 65 66 20 65 | 64 69 74 69 6f 6e 20 65 |ossref e|dition e|
|00002f90| 64 69 74 6f 72 20 68 6f | 77 70 75 62 6c 69 73 68 |ditor ho|wpublish|
|00002fa0| 65 64 20 69 6e 73 74 69 | 74 75 74 69 6f 6e 20 0d |ed insti|tution .|
|00002fb0| 20 20 20 20 6a 6f 75 72 | 6e 61 6c 20 6b 65 79 20 |    jour|nal key |
|00002fc0| 6c 61 6e 67 75 61 67 65 | 20 6d 6f 6e 74 68 20 6e |language| month n|
|00002fd0| 6f 74 65 20 6e 75 6d 62 | 65 72 20 6f 72 67 61 6e |ote numb|er organ|
|00002fe0| 69 7a 61 74 69 6f 6e 20 | 0d 20 20 20 20 70 75 62 |ization |.    pub|
|00002ff0| 6c 69 73 68 65 72 20 70 | 61 67 65 73 20 73 63 68 |lisher p|ages sch|
|00003000| 6f 6f 6c 20 73 65 72 69 | 65 73 20 74 69 74 6c 65 |ool seri|es title|
|00003010| 20 74 79 70 65 20 0d 20 | 20 20 20 76 6f 6c 75 6d | type . |   volum|
|00003020| 65 20 79 65 61 72 7d 0d | 72 65 67 4d 6f 64 65 4b |e year}.|regModeK|
|00003030| 65 79 77 6f 72 64 73 20 | 2d 65 20 7b 25 7d 20 2d |eywords |-e {%} -|
|00003040| 6d 20 7b 40 7d 20 2d 63 | 20 72 65 64 20 2d 6b 20 |m {@} -c| red -k |
|00003050| 62 6c 75 65 20 42 69 62 | 20 24 62 69 62 74 65 78 |blue Bib| $bibtex|
|00003060| 4b 65 79 57 6f 72 64 73 | 0d 75 6e 73 65 74 20 62 |KeyWords|.unset b|
|00003070| 69 62 74 65 78 4b 65 79 | 57 6f 72 64 73 0d 0d 23 |ibtexKey|Words..#|
|00003080| 20 23 20 55 73 65 20 61 | 20 73 68 61 64 6f 77 20 | # Use a| shadow |
|00003090| 70 72 6f 63 20 74 6f 20 | 6b 65 65 70 20 73 65 74 |proc to |keep set|
|000030a0| 74 69 6e 67 73 20 66 6f | 72 20 38 2d 62 69 74 20 |tings fo|r 8-bit |
|000030b0| 63 68 61 72 61 63 74 65 | 72 20 63 6f 6e 76 65 72 |characte|r conver|
|000030c0| 73 69 6f 6e 20 0d 23 20 | 23 20 63 6f 6e 73 69 73 |sion .# |# consis|
|000030d0| 74 65 6e 74 20 62 65 74 | 77 65 65 6e 20 54 65 58 |tent bet|ween TeX|
|000030e0| 20 61 6e 64 20 42 69 62 | 20 6d 6f 64 65 73 2e 20 | and Bib| modes. |
|000030f0| 0d 23 20 23 0d 23 20 74 | 72 61 63 65 20 76 61 72 |.# #.# t|race var|
|00003100| 69 61 62 6c 65 20 42 69 | 62 6d 6f 64 65 56 61 72 |iable Bi|bmodeVar|
|00003110| 73 28 63 6f 6e 76 65 72 | 74 38 62 69 74 41 73 63 |s(conver|t8bitAsc|
|00003120| 69 69 32 54 65 58 29 20 | 77 20 73 68 61 64 6f 77 |ii2TeX) |w shadow|
|00003130| 42 69 62 38 62 69 74 43 | 6f 6e 76 65 72 74 0d 23 |Bib8bitC|onvert.#|
|00003140| 20 70 72 6f 63 20 73 68 | 61 64 6f 77 42 69 62 38 | proc sh|adowBib8|
|00003150| 62 69 74 43 6f 6e 76 65 | 72 74 20 7b 6e 61 6d 65 |bitConve|rt {name|
|00003160| 31 20 6e 61 6d 65 32 20 | 6f 70 7d 20 7b 0d 23 20 |1 name2 |op} {.# |
|00003170| 09 67 6c 6f 62 61 6c 20 | 42 69 62 6d 6f 64 65 56 |.global |BibmodeV|
|00003180| 61 72 73 20 54 65 58 6d | 6f 64 65 56 61 72 73 0d |ars TeXm|odeVars.|
|00003190| 23 20 0d 23 20 09 23 20 | 55 73 65 20 54 65 58 2d |# .# .# |Use TeX-|
|000031a0| 6d 6f 64 65 20 72 6f 75 | 74 69 6e 65 73 20 74 6f |mode rou|tines to|
|000031b0| 20 61 63 74 75 61 6c 6c | 79 20 64 6f 20 74 68 65 | actuall|y do the|
|000031c0| 20 6b 65 79 20 62 69 6e | 64 69 6e 67 73 2e 20 0d | key bin|dings. .|
|000031d0| 23 20 09 23 0d 23 20 09 | 69 66 20 7b 24 42 69 62 |# .#.# .|if {$Bib|
|000031e0| 6d 6f 64 65 56 61 72 73 | 28 63 6f 6e 76 65 72 74 |modeVars|(convert|
|000031f0| 38 62 69 74 41 73 63 69 | 69 32 54 65 58 29 7d 20 |8bitAsci|i2TeX)} |
|00003200| 74 68 65 6e 20 7b 0d 23 | 20 09 09 74 6f 67 67 6c |then {.#| ..toggl|
|00003210| 65 38 62 69 74 41 73 63 | 69 69 20 22 61 73 63 69 |e8bitAsc|ii "asci|
|00003220| 69 22 20 22 42 69 62 22 | 0d 23 20 09 7d 20 65 6c |i" "Bib"|.# .} el|
|00003230| 73 65 20 7b 0d 23 20 09 | 09 74 6f 67 67 6c 65 38 |se {.# .|.toggle8|
|00003240| 62 69 74 41 73 63 69 69 | 20 22 75 6e 61 73 63 69 |bitAscii| "unasci|
|00003250| 69 22 20 22 42 69 62 22 | 0d 23 20 09 7d 0d 23 20 |i" "Bib"|.# .}.# |
|00003260| 09 0d 23 20 09 23 20 4f | 6e 6c 79 20 73 65 74 20 |..# .# O|nly set |
|00003270| 54 65 58 20 66 6c 61 67 | 20 69 66 20 6e 65 63 65 |TeX flag| if nece|
|00003280| 73 73 61 72 79 2c 20 74 | 6f 20 61 76 6f 69 64 20 |ssary, t|o avoid |
|00003290| 75 6e 6e 65 63 65 73 73 | 61 72 79 20 72 65 62 69 |unnecess|ary rebi|
|000032a0| 6e 64 69 6e 67 20 6f 66 | 20 6b 65 79 73 0d 23 20 |nding of| keys.# |
|000032b0| 09 23 20 28 49 74 20 74 | 61 6b 65 73 20 65 6e 6f |.# (It t|akes eno|
|000032c0| 75 67 68 20 74 69 6d 65 | 20 74 6f 20 62 65 20 61 |ugh time| to be a|
|000032d0| 6e 6e 6f 79 69 6e 67 29 | 0d 23 20 09 23 0d 23 20 |nnoying)|.# .#.# |
|000032e0| 09 69 66 20 7b 24 42 69 | 62 6d 6f 64 65 56 61 72 |.if {$Bi|bmodeVar|
|000032f0| 73 28 63 6f 6e 76 65 72 | 74 38 62 69 74 41 73 63 |s(conver|t8bitAsc|
|00003300| 69 69 32 54 65 58 29 20 | 21 3d 20 24 54 65 58 6d |ii2TeX) |!= $TeXm|
|00003310| 6f 64 65 56 61 72 73 28 | 63 6f 6e 76 65 72 74 38 |odeVars(|convert8|
|00003320| 62 69 74 41 73 63 69 69 | 32 54 65 58 29 7d 20 74 |bitAscii|2TeX)} t|
|00003330| 68 65 6e 20 7b 0d 23 20 | 09 09 73 65 74 20 54 65 |hen {.# |..set Te|
|00003340| 58 6d 6f 64 65 56 61 72 | 73 28 63 6f 6e 76 65 72 |XmodeVar|s(conver|
|00003350| 74 38 62 69 74 41 73 63 | 69 69 32 54 65 58 29 20 |t8bitAsc|ii2TeX) |
|00003360| 24 42 69 62 6d 6f 64 65 | 56 61 72 73 28 63 6f 6e |$Bibmode|Vars(con|
|00003370| 76 65 72 74 38 62 69 74 | 41 73 63 69 69 32 54 65 |vert8bit|Ascii2Te|
|00003380| 58 29 0d 23 20 09 7d 0d | 23 20 7d 0d 23 20 0d 23 |X).# .}.|# }.# .#|
|00003390| 20 73 65 74 20 42 69 62 | 6d 6f 64 65 56 61 72 73 | set Bib|modeVars|
|000033a0| 28 63 6f 6e 76 65 72 74 | 38 62 69 74 41 73 63 69 |(convert|8bitAsci|
|000033b0| 69 32 54 65 58 29 20 24 | 54 65 58 6d 6f 64 65 56 |i2TeX) $|TeXmodeV|
|000033c0| 61 72 73 28 63 6f 6e 76 | 65 72 74 38 62 69 74 41 |ars(conv|ert8bitA|
|000033d0| 73 63 69 69 32 54 65 58 | 29 0d 0d 23 23 23 23 23 |scii2TeX|)..#####|
|000033e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000033f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003400| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003410| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003420| 23 23 23 23 23 23 0d 23 | 20 42 69 62 54 65 58 20 |######.#| BibTeX |
|00003430| 4d 65 6e 75 20 44 65 66 | 69 6e 69 74 69 6f 6e 2e |Menu Def|inition.|
|00003440| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|00003450| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003460| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003470| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003480| 23 23 23 23 23 23 23 23 | 23 23 23 23 0d 70 72 6f |########|####.pro|
|00003490| 63 20 62 69 62 74 65 78 | 4d 65 6e 75 20 7b 7d 20 |c bibtex|Menu {} |
|000034a0| 7b 7d 0d 0d 73 65 74 20 | 62 69 62 74 65 78 4d 65 |{}..set |bibtexMe|
|000034b0| 6e 75 20 22 a5 31 33 36 | 22 0d 0d 70 72 6f 63 20 |nu ".136|"..proc |
|000034c0| 62 69 62 74 65 78 20 7b | 7d 20 7b 0d 09 67 6c 6f |bibtex {|} {..glo|
|000034d0| 62 61 6c 20 62 69 62 74 | 65 78 50 61 74 68 0d 09 |bal bibt|exPath..|
|000034e0| 73 65 74 20 6e 61 6d 65 | 20 5b 63 68 65 63 6b 52 |set name| [checkR|
|000034f0| 75 6e 6e 69 6e 67 20 42 | 69 62 54 65 58 20 42 49 |unning B|ibTeX BI|
|00003500| 42 74 20 62 69 62 74 65 | 78 50 61 74 68 5d 0d 09 |Bt bibte|xPath]..|
|00003510| 69 66 20 7b 21 5b 73 74 | 72 69 6e 67 20 6c 65 6e |if {![st|ring len|
|00003520| 67 74 68 20 24 6e 61 6d | 65 5d 7d 20 72 65 74 75 |gth $nam|e]} retu|
|00003530| 72 6e 0d 09 73 77 69 74 | 63 68 54 6f 20 24 6e 61 |rn..swit|chTo $na|
|00003540| 6d 65 0d 7d 0d 0d 70 72 | 6f 63 20 6d 61 6b 65 69 |me.}..pr|oc makei|
|00003550| 6e 64 65 78 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |ndex {} |{..globa|
|00003560| 6c 20 6d 61 6b 65 69 6e | 64 65 78 50 61 74 68 0d |l makein|dexPath.|
|00003570| 09 73 65 74 20 6e 61 6d | 65 20 5b 63 68 65 63 6b |.set nam|e [check|
|00003580| 52 75 6e 6e 69 6e 67 20 | 4d 61 6b 65 49 6e 64 65 |Running |MakeInde|
|00003590| 78 20 4d 69 64 78 20 6d | 61 6b 65 69 6e 64 65 78 |x Midx m|akeindex|
|000035a0| 50 61 74 68 5d 0d 09 69 | 66 20 7b 21 5b 73 74 72 |Path]..i|f {![str|
|000035b0| 69 6e 67 20 6c 65 6e 67 | 74 68 20 24 6e 61 6d 65 |ing leng|th $name|
|000035c0| 5d 7d 20 72 65 74 75 72 | 6e 0d 09 73 77 69 74 63 |]} retur|n..switc|
|000035d0| 68 54 6f 20 24 6e 61 6d | 65 0d 7d 0d 0d 6d 65 6e |hTo $nam|e.}..men|
|000035e0| 75 20 2d 6e 20 24 62 69 | 62 74 65 78 4d 65 6e 75 |u -n $bi|btexMenu|
|000035f0| 20 7b 0d 09 22 62 69 62 | 74 65 78 22 0d 09 22 28 | {.."bib|tex".."(|
|00003600| 2d 29 22 20 20 0d 09 7b | 6d 65 6e 75 20 2d 6e 20 |-)"  ..{|menu -n |
|00003610| 45 6e 74 72 69 65 73 20 | 2d 70 20 6d 61 6b 65 45 |Entries |-p makeE|
|00003620| 6e 74 72 79 20 7b 7d 0d | 09 7d 0d 09 7b 6d 65 6e |ntry {}.|.}..{men|
|00003630| 75 20 2d 6e 20 46 69 65 | 6c 64 73 20 2d 70 20 6d |u -n Fie|lds -p m|
|00003640| 61 6b 65 46 69 65 6c 64 | 20 7b 7d 0d 09 7d 0d 09 |akeField| {}..}..|
|00003650| 22 28 2d 29 22 0d 09 22 | 73 65 6c 65 63 74 45 6e |"(-)".."|selectEn|
|00003660| 74 72 79 2f 42 3c 55 3c | 42 22 0d 09 22 6e 65 78 |try/B<U<|B".."nex|
|00003670| 74 45 6e 74 72 79 2f 4e | 3c 55 3c 42 22 0d 09 22 |tEntry/N|<U<B".."|
|00003680| 70 72 65 76 45 6e 74 72 | 79 2f 50 3c 55 3c 42 22 |prevEntr|y/P<U<B"|
|00003690| 0d 09 22 66 6f 72 6d 61 | 74 45 6e 74 72 79 2f 4c |.."forma|tEntry/L|
|000036a0| 3c 55 3c 42 22 0d 09 22 | 63 6f 70 79 43 69 74 65 |<U<B".."|copyCite|
|000036b0| 4b 65 79 2f 43 3c 55 3c | 42 22 0d 09 22 28 2d 29 |Key/C<U<|B".."(-)|
|000036c0| 22 0d 09 22 73 65 61 72 | 63 68 45 6e 74 72 69 65 |".."sear|chEntrie|
|000036d0| 73 2f 4d 3c 55 3c 42 22 | 0d 09 22 73 65 61 72 63 |s/M<U<B"|.."searc|
|000036e0| 68 46 69 65 6c 64 73 2f | 46 3c 55 3c 42 22 0d 09 |hFields/|F<U<B"..|
|000036f0| 7b 6d 65 6e 75 20 2d 6e | 20 73 6f 72 74 42 79 2e |{menu -n| sortBy.|
|00003700| 2e 2e 20 2d 70 20 62 69 | 62 53 6f 72 74 50 72 6f |.. -p bi|bSortPro|
|00003710| 63 20 7b 0d 09 09 22 63 | 69 74 65 4b 65 79 22 0d |c {..."c|iteKey".|
|00003720| 09 09 22 66 69 72 73 74 | 41 75 74 68 6f 72 2c 59 |.."first|Author,Y|
|00003730| 65 61 72 22 0d 09 09 22 | 6c 61 73 74 41 75 74 68 |ear"..."|lastAuth|
|00003740| 6f 72 2c 59 65 61 72 22 | 0d 09 09 22 79 65 61 72 |or,Year"|..."year|
|00003750| 2c 46 69 72 73 74 41 75 | 74 68 6f 72 22 0d 09 09 |,FirstAu|thor"...|
|00003760| 22 79 65 61 72 2c 4c 61 | 73 74 41 75 74 68 6f 72 |"year,La|stAuthor|
|00003770| 22 0d 09 09 7d 0d 09 7d | 0d 09 7b 6d 65 6e 75 20 |"...}..}|..{menu |
|00003780| 2d 6e 20 73 6f 72 74 4d | 61 72 6b 73 2e 2e 2e 20 |-n sortM|arks... |
|00003790| 2d 70 20 6d 61 72 6b 53 | 6f 72 74 50 72 6f 63 20 |-p markS|ortProc |
|000037a0| 7b 0d 09 09 22 61 6c 70 | 68 61 62 65 74 69 63 61 |{..."alp|habetica|
|000037b0| 6c 6c 79 22 0d 09 09 22 | 62 79 50 6f 73 69 74 69 |lly"..."|byPositi|
|000037c0| 6f 6e 22 0d 09 09 7d 0d | 09 7d 0d 09 22 28 2d 29 |on"...}.|.}.."(-)|
|000037d0| 22 0d 09 22 63 6f 75 6e | 74 45 6e 74 72 69 65 73 |".."coun|tEntries|
|000037e0| 22 0d 09 22 66 6f 72 6d | 61 74 41 6c 6c 45 6e 74 |".."form|atAllEnt|
|000037f0| 72 69 65 73 22 0d 7d 20 | 0d 09 0d 6d 65 6e 75 20 |ries".} |...menu |
|00003800| 2d 6e 20 45 6e 74 72 69 | 65 73 20 2d 70 20 6d 61 |-n Entri|es -p ma|
|00003810| 6b 65 45 6e 74 72 79 20 | 5b 63 6f 6e 63 61 74 20 |keEntry |[concat |
|00003820| 24 65 6e 74 72 79 4e 61 | 6d 65 73 20 7b 0d 09 09 |$entryNa|mes {...|
|00003830| 22 28 2d 29 22 0d 09 09 | 22 63 75 73 74 6f 6d 45 |"(-)"...|"customE|
|00003840| 6e 74 72 79 22 0d 09 09 | 7d 20 5d 0d 0d 6d 65 6e |ntry"...|} ]..men|
|00003850| 75 20 2d 6e 20 46 69 65 | 6c 64 73 20 2d 70 20 6d |u -n Fie|lds -p m|
|00003860| 61 6b 65 46 69 65 6c 64 | 20 5b 63 6f 6e 63 61 74 |akeField| [concat|
|00003870| 20 24 66 69 65 6c 64 4e | 61 6d 65 73 20 7b 0d 09 | $fieldN|ames {..|
|00003880| 09 22 28 2d 29 22 0d 09 | 09 22 63 75 73 74 6f 6d |."(-)"..|."custom|
|00003890| 46 69 65 6c 64 22 0d 09 | 09 22 6d 75 6c 74 69 70 |Field"..|."multip|
|000038a0| 6c 65 46 69 65 6c 64 73 | 22 0d 09 09 7d 20 5d 0d |leFields|"...} ].|
|000038b0| 09 09 0d 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |...#####|########|
|000038c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000038d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000038e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000038f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 0d 23 |########|######.#|
|00003900| 20 4d 65 6e 75 20 63 6f | 6d 6d 61 6e 64 20 70 72 | Menu co|mmand pr|
|00003910| 6f 63 73 0d 23 23 23 23 | 23 23 23 23 23 23 23 23 |ocs.####|########|
|00003920| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003930| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003940| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003950| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|00003960| 09 09 0d 70 72 6f 63 20 | 6d 61 6b 65 46 69 65 6c |...proc |makeFiel|
|00003970| 64 20 7b 6d 65 6e 75 20 | 69 74 65 6d 7d 20 7b 0d |d {menu |item} {.|
|00003980| 09 67 6c 6f 62 61 6c 20 | 66 69 65 6c 64 4e 61 6d |.global |fieldNam|
|00003990| 65 73 0d 09 62 69 62 46 | 6f 72 6d 61 74 53 65 74 |es..bibF|ormatSet|
|000039a0| 75 70 0d 09 0d 09 69 66 | 20 7b 24 69 74 65 6d 20 |up....if| {$item |
|000039b0| 3d 3d 20 22 6d 75 6c 74 | 69 70 6c 65 46 69 65 6c |== "mult|ipleFiel|
|000039c0| 64 73 22 7d 20 74 68 65 | 6e 20 7b 0d 09 09 73 65 |ds"} the|n {...se|
|000039d0| 74 20 66 6c 64 73 20 5b | 6c 69 73 74 70 69 63 6b |t flds [|listpick|
|000039e0| 20 2d 6c 20 2d 4c 20 7b | 61 75 74 68 6f 72 20 79 | -l -L {|author y|
|000039f0| 65 61 72 7d 20 2d 70 20 | 22 50 69 63 6b 20 64 65 |ear} -p |"Pick de|
|00003a00| 73 69 72 65 64 20 66 69 | 65 6c 64 73 3a 22 20 24 |sired fi|elds:" $|
|00003a10| 66 69 65 6c 64 4e 61 6d | 65 73 5d 0d 09 09 69 66 |fieldNam|es]...if|
|00003a20| 20 7b 5b 6c 6c 65 6e 67 | 74 68 20 66 6c 64 73 5d | {[lleng|th flds]|
|00003a30| 7d 20 7b 0d 09 09 09 73 | 65 74 20 6c 69 6e 65 73 |} {....s|et lines|
|00003a40| 20 7b 7d 0d 09 09 09 66 | 6f 72 65 61 63 68 20 66 | {}....f|oreach f|
|00003a50| 6c 64 20 24 66 6c 64 73 | 20 7b 0d 09 09 09 09 61 |ld $flds| {.....a|
|00003a60| 70 70 65 6e 64 20 6c 69 | 6e 65 73 20 5b 6e 65 77 |ppend li|nes [new|
|00003a70| 46 69 65 6c 64 20 24 66 | 6c 64 5d 0d 09 09 09 7d |Field $f|ld]....}|
|00003a80| 0d 09 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 09 72 |...} els|e {....r|
|00003a90| 65 74 75 72 6e 0d 09 09 | 7d 0d 09 7d 20 65 6c 73 |eturn...|}..} els|
|00003aa0| 65 20 7b 0d 09 09 73 65 | 74 20 6c 69 6e 65 73 20 |e {...se|t lines |
|00003ab0| 5b 6e 65 77 46 69 65 6c | 64 20 24 69 74 65 6d 5d |[newFiel|d $item]|
|00003ac0| 0d 09 7d 0d 09 0d 09 73 | 65 74 20 70 6f 73 30 20 |..}....s|et pos0 |
|00003ad0| 5b 6e 65 78 74 4c 69 6e | 65 53 74 61 72 74 20 5b |[nextLin|eStart [|
|00003ae0| 67 65 74 50 6f 73 5d 5d | 0d 09 67 6f 74 6f 20 24 |getPos]]|..goto $|
|00003af0| 70 6f 73 30 0d 09 69 6e | 73 65 72 74 54 65 78 74 |pos0..in|sertText|
|00003b00| 20 24 6c 69 6e 65 73 0d | 09 67 6f 74 6f 20 24 70 | $lines.|.goto $p|
|00003b10| 6f 73 30 0d 09 6e 65 78 | 74 54 61 62 53 74 6f 70 |os0..nex|tTabStop|
|00003b20| 0d 7d 0d 0d 70 72 6f 63 | 20 6d 61 6b 65 45 6e 74 |.}..proc| makeEnt|
|00003b30| 72 79 20 7b 6d 65 6e 75 | 20 69 74 65 6d 7d 20 7b |ry {menu| item} {|
|00003b40| 0d 09 62 69 62 46 6f 72 | 6d 61 74 53 65 74 75 70 |..bibFor|matSetup|
|00003b50| 0d 09 6e 65 77 45 6e 74 | 72 79 20 24 69 74 65 6d |..newEnt|ry $item|
|00003b60| 0d 7d 0d 0d 23 23 23 23 | 23 23 23 23 23 23 23 23 |.}..####|########|
|00003b70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003b80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003b90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003ba0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|00003bb0| 23 20 20 52 65 74 75 72 | 6e 20 74 68 65 20 62 6f |#  Retur|n the bo|
|00003bc0| 75 6e 64 73 20 6f 66 20 | 74 68 65 20 62 69 62 6c |unds of |the bibl|
|00003bd0| 69 6f 67 72 61 70 68 69 | 63 20 65 6e 74 72 79 20 |iographi|c entry |
|00003be0| 73 75 72 72 6f 75 6e 64 | 69 6e 67 20 74 68 65 20 |surround|ing the |
|00003bf0| 63 75 72 72 65 6e 74 20 | 0d 23 20 20 70 6f 73 69 |current |.#  posi|
|00003c00| 74 69 6f 6e 2e 0d 23 0d | 70 72 6f 63 20 67 65 74 |tion..#.|proc get|
|00003c10| 45 6e 74 72 79 20 7b 70 | 6f 73 7d 20 7b 0d 20 20 |Entry {p|os} {.  |
|00003c20| 20 20 0d 20 09 73 65 74 | 20 70 6f 73 31 20 5b 73 |  . .set| pos1 [s|
|00003c30| 65 61 72 63 68 20 2d 66 | 20 30 20 2d 72 20 31 20 |earch -f| 0 -r 1 |
|00003c40| 2d 6e 20 2d 73 20 7b 5b | 20 09 5d 2a 40 5b 61 2d |-n -s {[| .]*@[a-|
|00003c50| 7a 41 2d 5a 5d 2a 5b 5c | 7b 5c 28 5d 7d 20 24 70 |zA-Z]*[\|{\(]} $p|
|00003c60| 6f 73 20 5d 0d 20 20 20 | 20 69 66 20 7b 24 70 6f |os ].   | if {$po|
|00003c70| 73 31 20 3d 3d 20 22 22 | 7d 20 74 68 65 6e 20 7b |s1 == ""|} then {|
|00003c80| 0d 20 20 20 20 09 73 65 | 74 20 62 65 67 50 6f 73 |.    .se|t begPos|
|00003c90| 20 5b 6e 65 78 74 4c 69 | 6e 65 53 74 61 72 74 20 | [nextLi|neStart |
|00003ca0| 24 70 6f 73 5d 0d 20 20 | 20 20 09 73 65 74 20 65 |$pos].  |  .set e|
|00003cb0| 6e 64 50 6f 73 20 24 62 | 65 67 50 6f 73 0d 20 20 |ndPos $b|egPos.  |
|00003cc0| 20 20 7d 20 65 6c 73 65 | 20 7b 0d 20 20 20 20 09 |  } else| {.    .|
|00003cd0| 73 65 74 20 62 65 67 50 | 6f 73 20 5b 6c 69 6e 65 |set begP|os [line|
|00003ce0| 53 74 61 72 74 20 5b 6c | 69 6e 64 65 78 20 24 70 |Start [l|index $p|
|00003cf0| 6f 73 31 20 30 5d 5d 0d | 20 20 20 20 09 73 65 74 |os1 0]].|    .set|
|00003d00| 20 70 6f 73 30 20 5b 6c | 69 6e 64 65 78 20 24 70 | pos0 [l|index $p|
|00003d10| 6f 73 31 20 31 5d 0d 20 | 20 20 20 09 73 65 74 20 |os1 1]. |   .set |
|00003d20| 6f 70 65 6e 42 72 61 63 | 65 20 5b 67 65 74 54 65 |openBrac|e [getTe|
|00003d30| 78 74 20 5b 65 78 70 72 | 20 24 70 6f 73 30 2d 31 |xt [expr| $pos0-1|
|00003d40| 5d 20 24 70 6f 73 30 20 | 5d 0d 20 20 20 20 20 20 |] $pos0 |].      |
|00003d50| 20 20 69 66 20 7b 5b 63 | 61 74 63 68 20 7b 6d 61 |  if {[c|atch {ma|
|00003d60| 74 63 68 49 74 20 24 6f | 70 65 6e 42 72 61 63 65 |tchIt $o|penBrace|
|00003d70| 20 24 70 6f 73 30 5d 7d | 20 70 6f 73 31 5d 7d 20 | $pos0]}| pos1]} |
|00003d80| 7b 0d 20 20 20 20 20 20 | 20 20 09 61 6c 65 72 74 |{.      |  .alert|
|00003d90| 6e 6f 74 65 20 22 54 68 | 65 72 65 20 73 65 65 6d |note "Th|ere seem|
|00003da0| 73 20 74 6f 20 62 65 20 | 61 20 62 61 64 6c 79 20 |s to be |a badly |
|00003db0| 64 65 6c 69 6d 69 74 65 | 64 20 66 69 65 6c 64 20 |delimite|d field |
|00003dc0| 69 6e 20 68 65 72 65 2e | 20 20 41 72 65 20 65 6e |in here.|  Are en|
|00003dd0| 74 72 79 20 61 6e 64 20 | 66 69 65 6c 64 20 64 65 |try and |field de|
|00003de0| 6c 69 6d 69 74 65 72 73 | 20 73 65 74 20 63 6f 72 |limiters| set cor|
|00003df0| 72 65 63 74 6c 79 3f 22 | 0d 20 20 20 20 20 20 20 |rectly?"|.       |
|00003e00| 20 09 67 6f 74 6f 20 24 | 62 65 67 50 6f 73 0d 20 | .goto $|begPos. |
|00003e10| 20 20 20 20 20 20 20 09 | 65 72 72 6f 72 20 22 43 |       .|error "C|
|00003e20| 61 6e 27 74 20 66 69 6e | 64 20 63 6c 6f 73 65 20 |an't fin|d close |
|00003e30| 62 72 61 63 65 22 0d 20 | 20 20 20 20 20 20 20 7d |brace". |       }|
|00003e40| 20 65 6c 73 65 20 7b 0d | 20 20 20 20 20 20 20 20 | else {.|        |
|00003e50| 09 73 65 74 20 65 6e 64 | 50 6f 73 20 5b 6e 65 78 |.set end|Pos [nex|
|00003e60| 74 4c 69 6e 65 53 74 61 | 72 74 20 24 70 6f 73 31 |tLineSta|rt $pos1|
|00003e70| 5d 0d 20 20 20 20 20 20 | 20 20 7d 0d 20 20 20 20 |].      |  }.    |
|00003e80| 7d 0d 09 72 65 74 75 72 | 6e 20 5b 6c 69 73 74 20 |}..retur|n [list |
|00003e90| 24 62 65 67 50 6f 73 20 | 24 65 6e 64 50 6f 73 5d |$begPos |$endPos]|
|00003ea0| 0d 7d 0d 0d 23 23 23 23 | 23 23 23 23 23 23 23 23 |.}..####|########|
|00003eb0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003ec0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003ed0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003ee0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|00003ef0| 23 20 20 41 64 76 61 6e | 63 65 20 74 6f 20 74 68 |#  Advan|ce to th|
|00003f00| 65 20 6e 65 78 74 20 62 | 69 62 6c 69 6f 67 72 61 |e next b|ibliogra|
|00003f10| 70 68 69 63 20 65 6e 74 | 72 79 2e 0d 23 0d 70 72 |phic ent|ry..#.pr|
|00003f20| 6f 63 20 6e 65 78 74 45 | 6e 74 72 79 20 7b 7d 20 |oc nextE|ntry {} |
|00003f30| 7b 0d 09 67 6c 6f 62 61 | 6c 20 62 69 62 54 6f 70 |{..globa|l bibTop|
|00003f40| 50 61 74 20 62 69 62 54 | 6f 70 50 61 74 31 20 62 |Pat bibT|opPat1 b|
|00003f50| 69 62 54 6f 70 50 61 74 | 32 0d 23 20 09 73 65 74 |ibTopPat|2.# .set|
|00003f60| 20 74 6f 70 50 61 74 20 | 7b 5b 20 09 5d 2a 40 28 | topPat |{[ .]*@(|
|00003f70| 5b 61 2d 7a 41 2d 5a 5d | 2b 29 5b 5c 7b 5c 28 5d |[a-zA-Z]|+)[\{\(]|
|00003f80| 7d 0d 09 0d 09 73 65 74 | 20 70 6f 73 30 20 5b 6c |}....set| pos0 [l|
|00003f90| 69 6e 64 65 78 20 5b 67 | 65 74 45 6e 74 72 79 20 |index [g|etEntry |
|00003fa0| 5b 67 65 74 50 6f 73 5d | 5d 20 31 5d 0d 09 73 65 |[getPos]|] 1]..se|
|00003fb0| 74 20 6e 65 78 74 50 6f | 73 20 5b 6e 65 78 74 4c |t nextPo|s [nextL|
|00003fc0| 69 6e 65 53 74 61 72 74 | 20 24 70 6f 73 30 5d 0d |ineStart| $pos0].|
|00003fd0| 20 20 20 20 0d 09 77 68 | 69 6c 65 20 7b 21 5b 63 |    ..wh|ile {![c|
|00003fe0| 61 74 63 68 20 7b 73 65 | 61 72 63 68 20 2d 66 20 |atch {se|arch -f |
|00003ff0| 31 20 2d 72 20 31 20 2d | 73 20 24 62 69 62 54 6f |1 -r 1 -|s $bibTo|
|00004000| 70 50 61 74 20 24 70 6f | 73 30 7d 20 70 6f 73 5d |pPat $po|s0} pos]|
|00004010| 7d 20 7b 0d 09 09 72 65 | 67 65 78 70 20 24 62 69 |} {...re|gexp $bi|
|00004020| 62 54 6f 70 50 61 74 20 | 5b 65 76 61 6c 20 67 65 |bTopPat |[eval ge|
|00004030| 74 54 65 78 74 20 24 70 | 6f 73 5d 20 6d 74 63 68 |tText $p|os] mtch|
|00004040| 20 74 79 70 65 0d 09 09 | 69 66 20 7b 24 74 79 70 | type...|if {$typ|
|00004050| 65 20 21 3d 20 22 73 74 | 72 69 6e 67 22 7d 20 7b |e != "st|ring"} {|
|00004060| 0d 09 09 09 73 65 74 20 | 6e 65 78 74 50 6f 73 20 |....set |nextPos |
|00004070| 5b 6c 69 6e 64 65 78 20 | 24 70 6f 73 20 30 5d 0d |[lindex |$pos 0].|
|00004080| 09 09 09 62 72 65 61 6b | 0d 09 09 7d 20 65 6c 73 |...break|...} els|
|00004090| 65 20 7b 0d 09 09 09 73 | 65 74 20 70 6f 73 30 20 |e {....s|et pos0 |
|000040a0| 5b 6e 65 78 74 4c 69 6e | 65 53 74 61 72 74 20 5b |[nextLin|eStart [|
|000040b0| 6c 69 6e 64 65 78 20 24 | 70 6f 73 20 31 5d 5d 0d |lindex $|pos 1]].|
|000040c0| 09 09 7d 0d 20 20 20 20 | 7d 0d 20 20 20 20 67 6f |..}.    |}.    go|
|000040d0| 74 6f 20 24 6e 65 78 74 | 50 6f 73 0d 7d 0d 0d 23 |to $next|Pos.}..#|
|000040e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000040f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004100| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004110| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004120| 23 23 23 23 23 23 23 23 | 23 23 0d 23 20 20 47 6f |########|##.#  Go|
|00004130| 20 62 61 63 6b 20 74 6f | 20 74 68 65 20 70 72 65 | back to| the pre|
|00004140| 76 69 6f 75 73 20 62 69 | 62 6c 69 6f 67 72 61 70 |vious bi|bliograp|
|00004150| 68 69 63 20 65 6e 74 72 | 79 2e 0d 23 0d 70 72 6f |hic entr|y..#.pro|
|00004160| 63 20 70 72 65 76 45 6e | 74 72 79 20 7b 7d 20 7b |c prevEn|try {} {|
|00004170| 0d 09 67 6c 6f 62 61 6c | 20 62 69 62 54 6f 70 50 |..global| bibTopP|
|00004180| 61 74 20 62 69 62 54 6f | 70 50 61 74 31 20 62 69 |at bibTo|pPat1 bi|
|00004190| 62 54 6f 70 50 61 74 32 | 0d 23 20 09 73 65 74 20 |bTopPat2|.# .set |
|000041a0| 74 6f 70 50 61 74 20 7b | 5b 20 09 5d 2a 40 28 5b |topPat {|[ .]*@([|
|000041b0| 61 2d 7a 41 2d 5a 5d 2b | 29 5b 5c 7b 5c 28 5d 7d |a-zA-Z]+|)[\{\(]}|
|000041c0| 0d 09 0d 09 73 65 74 20 | 70 6f 73 30 20 5b 6c 69 |....set |pos0 [li|
|000041d0| 6e 64 65 78 20 5b 67 65 | 74 45 6e 74 72 79 20 5b |ndex [ge|tEntry [|
|000041e0| 67 65 74 50 6f 73 5d 5d | 20 30 5d 0d 20 20 20 20 |getPos]]| 0].    |
|000041f0| 69 66 20 7b 24 70 6f 73 | 30 20 3e 20 30 7d 20 7b |if {$pos|0 > 0} {|
|00004200| 0d 09 09 73 65 74 20 6e | 65 78 74 50 6f 73 20 24 |...set n|extPos $|
|00004210| 70 6f 73 30 0d 20 20 20 | 20 09 69 6e 63 72 20 70 |pos0.   | .incr p|
|00004220| 6f 73 30 20 2d 31 0d 09 | 09 77 68 69 6c 65 20 7b |os0 -1..|.while {|
|00004230| 21 5b 63 61 74 63 68 20 | 7b 73 65 61 72 63 68 20 |![catch |{search |
|00004240| 2d 66 20 30 20 2d 72 20 | 31 20 2d 73 20 24 62 69 |-f 0 -r |1 -s $bi|
|00004250| 62 54 6f 70 50 61 74 20 | 24 70 6f 73 30 7d 20 70 |bTopPat |$pos0} p|
|00004260| 6f 73 5d 7d 20 7b 0d 09 | 09 09 72 65 67 65 78 70 |os]} {..|..regexp|
|00004270| 20 24 62 69 62 54 6f 70 | 50 61 74 20 5b 65 76 61 | $bibTop|Pat [eva|
|00004280| 6c 20 67 65 74 54 65 78 | 74 20 24 70 6f 73 5d 20 |l getTex|t $pos] |
|00004290| 6d 74 63 68 20 74 79 70 | 65 0d 09 09 09 69 66 20 |mtch typ|e....if |
|000042a0| 7b 24 74 79 70 65 20 21 | 3d 20 22 73 74 72 69 6e |{$type !|= "strin|
|000042b0| 67 22 7d 20 7b 0d 09 09 | 09 09 73 65 74 20 6e 65 |g"} {...|..set ne|
|000042c0| 78 74 50 6f 73 20 5b 6c | 69 6e 64 65 78 20 24 70 |xtPos [l|index $p|
|000042d0| 6f 73 20 30 5d 0d 09 09 | 09 09 62 72 65 61 6b 0d |os 0]...|..break.|
|000042e0| 09 09 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 09 09 |...} els|e {.....|
|000042f0| 73 65 74 20 70 6f 73 30 | 20 5b 6c 69 6e 65 53 74 |set pos0| [lineSt|
|00004300| 61 72 74 20 5b 6c 69 6e | 64 65 78 20 24 70 6f 73 |art [lin|dex $pos|
|00004310| 20 30 5d 5d 0d 09 09 09 | 20 20 20 20 69 66 20 7b | 0]]....|    if {|
|00004320| 24 70 6f 73 30 20 3d 3d | 20 30 7d 20 7b 62 72 65 |$pos0 ==| 0} {bre|
|00004330| 61 6b 7d 0d 09 09 09 20 | 20 20 20 69 6e 63 72 20 |ak}.... |   incr |
|00004340| 70 6f 73 30 20 2d 31 0d | 09 09 09 7d 0d 09 20 20 |pos0 -1.|...}..  |
|00004350| 20 20 7d 0d 09 09 67 6f | 74 6f 20 24 6e 65 78 74 |  }...go|to $next|
|00004360| 50 6f 73 0d 09 7d 0d 7d | 0d 0d 23 23 23 23 23 23 |Pos..}.}|..######|
|00004370| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004380| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004390| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000043a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000043b0| 23 23 23 23 23 0d 23 20 | 20 53 65 6c 65 63 74 20 |#####.# | Select |
|000043c0| 28 68 69 67 68 6c 69 67 | 68 74 29 20 74 68 65 20 |(highlig|ht) the |
|000043d0| 63 75 72 72 65 6e 74 20 | 62 69 62 6c 69 6f 67 72 |current |bibliogr|
|000043e0| 61 70 68 69 63 20 65 6e | 74 72 79 2e 0d 23 0d 70 |aphic en|try..#.p|
|000043f0| 72 6f 63 20 73 65 6c 65 | 63 74 45 6e 74 72 79 20 |roc sele|ctEntry |
|00004400| 7b 7d 20 7b 0d 09 73 65 | 74 20 70 6f 73 20 5b 67 |{} {..se|t pos [g|
|00004410| 65 74 45 6e 74 72 79 20 | 5b 67 65 74 50 6f 73 5d |etEntry |[getPos]|
|00004420| 5d 0d 09 73 65 6c 65 63 | 74 20 5b 6c 69 6e 64 65 |]..selec|t [linde|
|00004430| 78 20 24 70 6f 73 20 30 | 5d 20 5b 6c 69 6e 64 65 |x $pos 0|] [linde|
|00004440| 78 20 24 70 6f 73 20 31 | 5d 0d 7d 0d 0d 23 23 23 |x $pos 1|].}..###|
|00004450| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004460| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004470| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004480| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004490| 23 23 23 23 23 23 23 23 | 0d 23 20 20 50 75 74 20 |########|.#  Put |
|000044a0| 74 68 65 20 63 69 74 65 | 2d 6b 65 79 20 6f 66 20 |the cite|-key of |
|000044b0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 65 6e 74 72 |the curr|ent entr|
|000044c0| 79 20 6f 6e 20 74 68 65 | 20 63 6c 69 70 62 6f 61 |y on the| clipboa|
|000044d0| 72 64 2e 0d 23 0d 70 72 | 6f 63 20 63 6f 70 79 43 |rd..#.pr|oc copyC|
|000044e0| 69 74 65 4b 65 79 20 7b | 7d 20 7b 0d 09 67 6c 6f |iteKey {|} {..glo|
|000044f0| 62 61 6c 20 62 69 62 54 | 6f 70 50 61 74 32 0d 09 |bal bibT|opPat2..|
|00004500| 73 65 74 20 6c 69 6d 69 | 74 73 20 5b 67 65 74 45 |set limi|ts [getE|
|00004510| 6e 74 72 79 20 5b 67 65 | 74 50 6f 73 5d 5d 0d 09 |ntry [ge|tPos]]..|
|00004520| 73 65 74 20 74 6f 70 20 | 5b 6c 69 6e 64 65 78 20 |set top |[lindex |
|00004530| 24 6c 69 6d 69 74 73 20 | 30 5d 0d 09 73 65 74 20 |$limits |0]..set |
|00004540| 62 6f 74 74 6f 6d 20 5b | 6c 69 6e 64 65 78 20 24 |bottom [|lindex $|
|00004550| 6c 69 6d 69 74 73 20 31 | 5d 0d 09 69 66 20 7b 5b |limits 1|]..if {[|
|00004560| 72 65 67 65 78 70 20 2d | 69 6e 64 69 63 65 73 20 |regexp -|indices |
|00004570| 24 62 69 62 54 6f 70 50 | 61 74 32 20 5b 67 65 74 |$bibTopP|at2 [get|
|00004580| 54 65 78 74 20 24 74 6f | 70 20 24 62 6f 74 74 6f |Text $to|p $botto|
|00004590| 6d 5d 20 61 6c 6c 6f 66 | 69 74 20 74 79 70 65 20 |m] allof|it type |
|000045a0| 63 69 74 65 6b 65 79 5d | 7d 20 7b 0d 09 09 73 65 |citekey]|} {...se|
|000045b0| 6c 65 63 74 20 5b 65 78 | 70 72 20 24 74 6f 70 2b |lect [ex|pr $top+|
|000045c0| 5b 6c 69 6e 64 65 78 20 | 24 63 69 74 65 6b 65 79 |[lindex |$citekey|
|000045d0| 20 30 5d 5d 20 5b 65 78 | 70 72 20 24 74 6f 70 2b | 0]] [ex|pr $top+|
|000045e0| 5b 6c 69 6e 64 65 78 20 | 24 63 69 74 65 6b 65 79 |[lindex |$citekey|
|000045f0| 20 31 5d 2b 31 5d 0d 09 | 09 63 6f 70 79 0d 09 09 | 1]+1]..|.copy...|
|00004600| 6d 65 73 73 61 67 65 20 | 22 43 6f 70 69 65 64 20 |message |"Copied |
|00004610| 5c 22 5b 67 65 74 53 65 | 6c 65 63 74 5d 5c 22 22 |\"[getSe|lect]\""|
|00004620| 0d 09 7d 20 0d 7d 0d 0d | 23 23 23 23 23 23 23 23 |..} .}..|########|
|00004630| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004640| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004650| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004660| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004670| 23 23 23 0d 23 20 20 43 | 72 65 61 74 65 20 61 20 |###.#  C|reate a |
|00004680| 6e 65 77 20 62 69 62 6c | 69 6f 67 72 61 70 68 69 |new bibl|iographi|
|00004690| 63 20 65 6e 74 72 79 20 | 77 69 74 68 20 69 74 73 |c entry |with its|
|000046a0| 20 72 65 71 75 69 72 65 | 64 20 66 69 65 6c 64 73 | require|d fields|
|000046b0| 2e 0d 23 0d 70 72 6f 63 | 20 6e 65 77 45 6e 74 72 |..#.proc| newEntr|
|000046c0| 79 20 7b 65 6e 74 72 79 | 4e 61 6d 65 7d 20 7b 09 |y {entry|Name} {.|
|000046d0| 0d 09 67 6c 6f 62 61 6c | 20 20 65 6e 74 72 79 4e |..global|  entryN|
|000046e0| 61 6d 65 73 20 63 75 73 | 74 6f 6d 45 6e 74 72 69 |ames cus|tomEntri|
|000046f0| 65 73 20 66 69 65 6c 64 | 4e 61 6d 65 73 20 72 71 |es field|Names rq|
|00004700| 64 46 6c 64 20 6f 70 74 | 46 6c 64 20 6d 79 46 6c |dFld opt|Fld myFl|
|00004710| 64 20 64 65 66 46 6c 64 | 56 61 6c 0d 09 67 6c 6f |d defFld|Val..glo|
|00004720| 62 61 6c 20 62 69 62 4f | 70 65 6e 45 6e 74 72 79 |bal bibO|penEntry|
|00004730| 20 62 69 62 43 6c 6f 73 | 65 45 6e 74 72 79 20 42 | bibClos|eEntry B|
|00004740| 69 62 6d 6f 64 65 56 61 | 72 73 0d 09 67 6f 74 6f |ibmodeVa|rs..goto|
|00004750| 20 5b 6c 69 6e 64 65 78 | 20 5b 67 65 74 45 6e 74 | [lindex| [getEnt|
|00004760| 72 79 20 5b 67 65 74 50 | 6f 73 5d 5d 20 31 5d 0d |ry [getP|os]] 1].|
|00004770| 09 69 66 20 7b 24 65 6e | 74 72 79 4e 61 6d 65 20 |.if {$en|tryName |
|00004780| 3d 3d 20 22 63 75 73 74 | 6f 6d 45 6e 74 72 79 22 |== "cust|omEntry"|
|00004790| 7d 20 7b 0d 09 09 73 65 | 74 20 6c 69 6e 65 73 20 |} {...se|t lines |
|000047a0| 22 40 a5 24 62 69 62 4f | 70 65 6e 45 6e 74 72 79 |"@.$bibO|penEntry|
|000047b0| a5 2c 5c 72 22 0d 09 09 | 73 65 74 20 74 68 65 46 |.,\r"...|set theF|
|000047c0| 69 65 6c 64 73 20 5b 6c | 69 73 74 70 69 63 6b 20 |ields [l|istpick |
|000047d0| 2d 6c 20 2d 4c 20 7b 61 | 75 74 68 6f 72 7d 20 2d |-l -L {a|uthor} -|
|000047e0| 70 20 22 50 69 63 6b 20 | 64 65 73 69 72 65 64 20 |p "Pick |desired |
|000047f0| 66 69 65 6c 64 73 3a 22 | 20 24 66 69 65 6c 64 4e |fields:"| $fieldN|
|00004800| 61 6d 65 73 5d 0d 09 7d | 20 65 6c 73 65 20 7b 0d |ames]..}| else {.|
|00004810| 09 09 73 65 74 20 6c 69 | 6e 65 73 20 22 40 24 7b |..set li|nes "@${|
|00004820| 65 6e 74 72 79 4e 61 6d | 65 7d 24 62 69 62 4f 70 |entryNam|e}$bibOp|
|00004830| 65 6e 45 6e 74 72 79 a5 | 2c 5c 72 22 0d 09 09 69 |enEntry.|,\r"...i|
|00004840| 66 20 7b 5b 6c 73 65 61 | 72 63 68 20 2d 65 78 61 |f {[lsea|rch -exa|
|00004850| 63 74 20 24 63 75 73 74 | 6f 6d 45 6e 74 72 69 65 |ct $cust|omEntrie|
|00004860| 73 20 24 65 6e 74 72 79 | 4e 61 6d 65 5d 20 3e 3d |s $entry|Name] >=|
|00004870| 20 30 20 26 26 20 5b 6c | 6c 65 6e 67 74 68 20 24 | 0 && [l|length $|
|00004880| 6d 79 46 6c 64 28 24 65 | 6e 74 72 79 4e 61 6d 65 |myFld($e|ntryName|
|00004890| 29 5d 7d 20 7b 0d 09 09 | 09 73 65 74 20 74 68 65 |)]} {...|.set the|
|000048a0| 46 69 65 6c 64 73 20 24 | 6d 79 46 6c 64 28 24 65 |Fields $|myFld($e|
|000048b0| 6e 74 72 79 4e 61 6d 65 | 29 0d 09 09 7d 20 65 6c |ntryName|)...} el|
|000048c0| 73 65 69 66 20 7b 5b 6c | 73 65 61 72 63 68 20 2d |seif {[l|search -|
|000048d0| 65 78 61 63 74 20 24 65 | 6e 74 72 79 4e 61 6d 65 |exact $e|ntryName|
|000048e0| 73 20 24 65 6e 74 72 79 | 4e 61 6d 65 5d 20 3e 3d |s $entry|Name] >=|
|000048f0| 20 30 7d 20 7b 0d 09 09 | 09 73 65 74 20 74 68 65 | 0} {...|.set the|
|00004900| 46 69 65 6c 64 73 20 24 | 72 71 64 46 6c 64 28 24 |Fields $|rqdFld($|
|00004910| 65 6e 74 72 79 4e 61 6d | 65 29 0d 09 09 7d 20 65 |entryNam|e)...} e|
|00004920| 6c 73 65 20 7b 0d 09 09 | 09 73 65 74 20 74 68 65 |lse {...|.set the|
|00004930| 46 69 65 6c 64 73 20 7b | 7d 0d 09 09 7d 0d 09 7d |Fields {|}...}..}|
|00004940| 0d 09 73 65 74 20 6e 6d | 6c 65 6e 20 30 0d 09 66 |..set nm|len 0..f|
|00004950| 6f 72 65 61 63 68 20 66 | 69 65 6c 64 20 24 74 68 |oreach f|ield $th|
|00004960| 65 46 69 65 6c 64 73 20 | 7b 0d 09 09 73 65 74 20 |eFields |{...set |
|00004970| 6c 65 6e 20 5b 73 74 72 | 69 6e 67 20 6c 65 6e 67 |len [str|ing leng|
|00004980| 74 68 20 24 66 69 65 6c | 64 5d 0d 09 09 69 66 20 |th $fiel|d]...if |
|00004990| 7b 24 6c 65 6e 20 3e 20 | 24 6e 6d 6c 65 6e 7d 20 |{$len > |$nmlen} |
|000049a0| 7b 73 65 74 20 6e 6d 6c | 65 6e 20 24 6c 65 6e 7d |{set nml|en $len}|
|000049b0| 09 09 0d 09 7d 0d 09 73 | 65 74 20 74 68 65 54 6f |....}..s|et theTo|
|000049c0| 70 20 5b 6c 69 6e 65 53 | 74 61 72 74 20 5b 67 65 |p [lineS|tart [ge|
|000049d0| 74 50 6f 73 5d 5d 0d 09 | 66 6f 72 65 61 63 68 20 |tPos]]..|foreach |
|000049e0| 66 69 65 6c 64 20 24 74 | 68 65 46 69 65 6c 64 73 |field $t|heFields|
|000049f0| 20 7b 0d 09 09 63 61 74 | 63 68 20 7b 61 70 70 65 | {...cat|ch {appe|
|00004a00| 6e 64 20 6c 69 6e 65 73 | 20 5b 6e 65 77 46 69 65 |nd lines| [newFie|
|00004a10| 6c 64 20 24 66 69 65 6c | 64 20 24 6e 6d 6c 65 6e |ld $fiel|d $nmlen|
|00004a20| 5d 7d 0d 09 7d 0d 09 61 | 70 70 65 6e 64 20 6c 69 |]}..}..a|ppend li|
|00004a30| 6e 65 73 20 22 24 62 69 | 62 43 6c 6f 73 65 45 6e |nes "$bi|bCloseEn|
|00004a40| 74 72 79 5c 72 22 0d 09 | 69 6e 73 65 72 74 54 65 |try\r"..|insertTe|
|00004a50| 78 74 20 24 6c 69 6e 65 | 73 0d 09 67 6f 74 6f 20 |xt $line|s..goto |
|00004a60| 24 74 68 65 54 6f 70 0d | 09 6e 65 78 74 54 61 62 |$theTop.|.nextTab|
|00004a70| 53 74 6f 70 0d 7d 0d 0d | 23 23 23 23 23 23 23 23 |Stop.}..|########|
|00004a80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004a90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004aa0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004ab0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004ac0| 23 23 23 0d 23 20 20 43 | 72 65 61 74 65 20 61 20 |###.#  C|reate a |
|00004ad0| 6e 65 77 20 66 69 65 6c | 64 20 77 69 74 68 69 6e |new fiel|d within|
|00004ae0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 69 62 | the cur|rent bib|
|00004af0| 6c 69 6f 67 72 61 70 68 | 69 63 20 65 6e 74 72 79 |liograph|ic entry|
|00004b00| 0d 23 0d 70 72 6f 63 20 | 6e 65 77 46 69 65 6c 64 |.#.proc |newField|
|00004b10| 20 7b 66 69 65 6c 64 4e | 61 6d 65 20 7b 6e 6d 6c | {fieldN|ame {nml|
|00004b20| 65 6e 20 30 7d 7d 20 7b | 09 0d 09 67 6c 6f 62 61 |en 0}} {|...globa|
|00004b30| 6c 20 66 69 65 6c 64 4e | 61 6d 65 73 20 75 73 65 |l fieldN|ames use|
|00004b40| 42 72 61 63 65 20 62 69 | 62 4f 70 65 6e 51 75 6f |Brace bi|bOpenQuo|
|00004b50| 74 65 20 62 69 62 43 6c | 6f 73 65 51 75 6f 74 65 |te bibCl|oseQuote|
|00004b60| 20 62 69 62 49 6e 64 65 | 6e 74 0d 09 67 6c 6f 62 | bibInde|nt..glob|
|00004b70| 61 6c 20 66 69 65 6c 64 | 44 65 66 73 20 64 65 66 |al field|Defs def|
|00004b80| 46 6c 64 56 61 6c 0d 09 | 73 65 74 20 73 70 63 20 |FldVal..|set spc |
|00004b90| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |"       |        |
|00004ba0| 20 20 20 20 22 0d 09 69 | 66 20 7b 5b 6c 73 65 61 |    "..i|f {[lsea|
|00004bb0| 72 63 68 20 2d 65 78 61 | 63 74 20 24 66 69 65 6c |rch -exa|ct $fiel|
|00004bc0| 64 4e 61 6d 65 73 20 24 | 66 69 65 6c 64 4e 61 6d |dNames $|fieldNam|
|00004bd0| 65 5d 20 3e 3d 20 30 7d | 20 7b 0d 09 09 73 65 74 |e] >= 0}| {...set|
|00004be0| 20 6e 65 65 64 42 72 61 | 63 65 73 20 24 75 73 65 | needBra|ces $use|
|00004bf0| 42 72 61 63 65 28 24 66 | 69 65 6c 64 4e 61 6d 65 |Brace($f|ieldName|
|00004c00| 29 0d 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 73 65 |)..} els|e {...se|
|00004c10| 74 20 6e 65 65 64 42 72 | 61 63 65 73 20 31 0d 09 |t needBr|aces 1..|
|00004c20| 7d 0d 09 0d 09 69 66 20 | 7b 5b 6c 73 65 61 72 63 |}....if |{[lsearc|
|00004c30| 68 20 2d 65 78 61 63 74 | 20 24 66 69 65 6c 64 44 |h -exact| $fieldD|
|00004c40| 65 66 73 20 24 66 69 65 | 6c 64 4e 61 6d 65 5d 20 |efs $fie|ldName] |
|00004c50| 3e 3d 20 30 7d 20 7b 0d | 09 09 73 65 74 20 76 61 |>= 0} {.|..set va|
|00004c60| 6c 20 24 64 65 66 46 6c | 64 56 61 6c 28 24 66 69 |l $defFl|dVal($fi|
|00004c70| 65 6c 64 4e 61 6d 65 29 | 0d 09 7d 20 65 6c 73 65 |eldName)|..} else|
|00004c80| 20 7b 0d 09 09 73 65 74 | 20 76 61 6c 20 22 a5 22 | {...set| val "."|
|00004c90| 0d 09 7d 0d 09 0d 09 69 | 66 20 7b 24 6e 6d 6c 65 |..}....i|f {$nmle|
|00004ca0| 6e 7d 20 7b 0d 09 09 73 | 65 74 20 70 61 64 20 5b |n} {...s|et pad [|
|00004cb0| 73 74 72 69 6e 67 20 72 | 61 6e 67 65 20 24 73 70 |string r|ange $sp|
|00004cc0| 63 20 31 20 5b 65 78 70 | 72 20 24 6e 6d 6c 65 6e |c 1 [exp|r $nmlen|
|00004cd0| 20 2d 20 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 | - [stri|ng lengt|
|00004ce0| 68 20 24 66 69 65 6c 64 | 4e 61 6d 65 5d 5d 5d 0d |h $field|Name]]].|
|00004cf0| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 73 65 74 20 |.} else |{...set |
|00004d00| 70 61 64 20 22 22 0d 09 | 7d 09 09 09 0d 09 69 66 |pad ""..|}.....if|
|00004d10| 20 7b 24 6e 65 65 64 42 | 72 61 63 65 73 20 7c 7c | {$needB|races |||
|00004d20| 20 24 66 69 65 6c 64 4e | 61 6d 65 20 3d 3d 20 22 | $fieldN|ame == "|
|00004d30| 63 75 73 74 6f 6d 46 69 | 65 6c 64 22 7d 20 7b 0d |customFi|eld"} {.|
|00004d40| 09 09 73 65 74 20 72 65 | 73 75 6c 74 20 22 24 62 |..set re|sult "$b|
|00004d50| 69 62 49 6e 64 65 6e 74 | 24 66 69 65 6c 64 4e 61 |ibIndent|$fieldNa|
|00004d60| 6d 65 20 3d 24 70 61 64 | 20 24 7b 62 69 62 4f 70 |me =$pad| ${bibOp|
|00004d70| 65 6e 51 75 6f 74 65 7d | 24 7b 76 61 6c 7d 24 7b |enQuote}|${val}${|
|00004d80| 62 69 62 43 6c 6f 73 65 | 51 75 6f 74 65 7d 2c 5c |bibClose|Quote},\|
|00004d90| 72 22 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 73 |r"..} el|se {...s|
|00004da0| 65 74 20 72 65 73 75 6c | 74 20 22 24 62 69 62 49 |et resul|t "$bibI|
|00004db0| 6e 64 65 6e 74 24 66 69 | 65 6c 64 4e 61 6d 65 20 |ndent$fi|eldName |
|00004dc0| 3d 24 70 61 64 20 24 76 | 61 6c 2c 5c 72 22 0d 09 |=$pad $v|al,\r"..|
|00004dd0| 7d 09 0d 09 72 65 74 75 | 72 6e 20 24 72 65 73 75 |}...retu|rn $resu|
|00004de0| 6c 74 0d 7d 0d 0d 70 72 | 6f 63 20 62 69 62 46 6f |lt.}..pr|oc bibFo|
|00004df0| 72 6d 61 74 53 65 74 75 | 70 20 7b 7d 20 7b 0d 09 |rmatSetu|p {} {..|
|00004e00| 67 6c 6f 62 61 6c 20 62 | 69 62 4f 70 65 6e 51 75 |global b|ibOpenQu|
|00004e10| 6f 74 65 20 62 69 62 43 | 6c 6f 73 65 51 75 6f 74 |ote bibC|loseQuot|
|00004e20| 65 20 62 69 62 49 6e 64 | 65 6e 74 20 42 69 62 6d |e bibInd|ent Bibm|
|00004e30| 6f 64 65 56 61 72 73 0d | 09 67 6c 6f 62 61 6c 20 |odeVars.|.global |
|00004e40| 62 69 62 4f 70 65 6e 45 | 6e 74 72 79 20 62 69 62 |bibOpenE|ntry bib|
|00004e50| 43 6c 6f 73 65 45 6e 74 | 72 79 20 62 69 62 41 62 |CloseEnt|ry bibAb|
|00004e60| 62 72 65 76 73 0d 09 62 | 69 62 46 69 65 6c 64 44 |brevs..b|ibFieldD|
|00004e70| 65 6c 69 6d 73 0d 09 62 | 69 62 45 6e 74 72 79 44 |elims..b|ibEntryD|
|00004e80| 65 6c 69 6d 73 0d 09 73 | 65 74 20 62 69 62 49 6e |elims..s|et bibIn|
|00004e90| 64 65 6e 74 20 24 42 69 | 62 6d 6f 64 65 56 61 72 |dent $Bi|bmodeVar|
|00004ea0| 73 28 69 6e 64 65 6e 74 | 53 74 72 69 6e 67 29 0d |s(indent|String).|
|00004eb0| 09 72 65 67 73 75 62 20 | 7b 5c 5c 74 7d 20 24 62 |.regsub |{\\t} $b|
|00004ec0| 69 62 49 6e 64 65 6e 74 | 20 7b 09 7d 20 62 69 62 |ibIndent| {.} bib|
|00004ed0| 49 6e 64 65 6e 74 0d 09 | 73 65 74 20 62 69 62 41 |Indent..|set bibA|
|00004ee0| 62 62 72 65 76 73 20 5b | 6c 69 73 74 53 74 72 69 |bbrevs [|listStri|
|00004ef0| 6e 67 73 5d 0d 09 66 6f | 72 65 61 63 68 20 61 62 |ngs]..fo|reach ab|
|00004f00| 62 72 65 76 20 24 42 69 | 62 6d 6f 64 65 56 61 72 |brev $Bi|bmodeVar|
|00004f10| 73 28 73 74 64 41 62 62 | 72 65 76 73 29 20 7b 0d |s(stdAbb|revs) {.|
|00004f20| 09 09 6c 61 70 70 65 6e | 64 20 62 69 62 41 62 62 |..lappen|d bibAbb|
|00004f30| 72 65 76 73 20 5b 73 74 | 72 69 6e 67 20 74 6f 6c |revs [st|ring tol|
|00004f40| 6f 77 65 72 20 24 61 62 | 62 72 65 76 5d 0d 09 7d |ower $ab|brev]..}|
|00004f50| 0d 7d 0d 0d 23 23 23 23 | 23 23 23 23 23 23 23 23 |.}..####|########|
|00004f60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004f70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004f80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004f90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|00004fa0| 23 20 20 46 69 6e 64 20 | 61 6c 6c 20 65 6e 74 72 |#  Find |all entr|
|00004fb0| 69 65 73 20 74 68 61 74 | 20 6d 61 74 63 68 20 61 |ies that| match a|
|00004fc0| 20 67 69 76 65 6e 20 72 | 65 67 75 6c 61 72 20 65 | given r|egular e|
|00004fd0| 78 70 72 65 73 73 69 6f | 6e 20 61 6e 64 20 63 6f |xpressio|n and co|
|00004fe0| 70 79 20 74 68 65 6d 20 | 74 6f 20 0d 23 20 20 61 |py them |to .#  a|
|00004ff0| 20 6e 65 77 20 62 75 66 | 66 65 72 2e 0d 23 0d 70 | new buf|fer..#.p|
|00005000| 72 6f 63 20 73 65 61 72 | 63 68 45 6e 74 72 69 65 |roc sear|chEntrie|
|00005010| 73 20 7b 7d 20 7b 0d 09 | 69 66 20 5b 63 61 74 63 |s {} {..|if [catc|
|00005020| 68 20 7b 70 72 6f 6d 70 | 74 20 22 52 65 67 75 6c |h {promp|t "Regul|
|00005030| 61 72 20 65 78 70 72 65 | 73 73 69 6f 6e 3a 22 20 |ar expre|ssion:" |
|00005040| 22 22 7d 20 72 65 67 5d | 20 72 65 74 75 72 6e 0d |""} reg]| return.|
|00005050| 09 69 66 20 7b 21 5b 73 | 74 72 69 6e 67 20 6c 65 |.if {![s|tring le|
|00005060| 6e 67 74 68 20 24 72 65 | 67 5d 7d 20 72 65 74 75 |ngth $re|g]} retu|
|00005070| 72 6e 0d 09 73 65 74 20 | 72 65 67 20 5e 2e 2a 24 |rn..set |reg ^.*$|
|00005080| 72 65 67 2e 2a 24 0d 09 | 0d 09 73 65 74 20 6d 61 |reg.*$..|..set ma|
|00005090| 74 63 68 65 73 20 5b 66 | 69 6e 64 45 6e 74 72 69 |tches [f|indEntri|
|000050a0| 65 73 20 24 72 65 67 5d | 0d 09 69 66 20 7b 5b 6c |es $reg]|..if {[l|
|000050b0| 6c 65 6e 67 74 68 20 24 | 6d 61 74 63 68 65 73 5d |length $|matches]|
|000050c0| 20 3e 30 7d 20 7b 0d 09 | 09 77 72 69 74 65 45 6e | >0} {..|.writeEn|
|000050d0| 74 72 69 65 73 20 24 6d | 61 74 63 68 65 73 20 30 |tries $m|atches 0|
|000050e0| 0d 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 6d 65 73 |..} else| {...mes|
|000050f0| 73 61 67 65 20 22 4e 6f | 20 6d 61 74 63 68 69 6e |sage "No| matchin|
|00005100| 67 20 65 6e 74 72 69 65 | 73 20 77 65 72 65 20 66 |g entrie|s were f|
|00005110| 6f 75 6e 64 22 0d 09 7d | 0d 7d 0d 0d 23 23 23 23 |ound"..}|.}..####|
|00005120| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005130| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005140| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005150| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005160| 23 23 23 23 23 23 23 0d | 23 20 20 46 69 6e 64 20 |#######.|#  Find |
|00005170| 61 6c 6c 20 65 6e 74 72 | 69 65 73 20 69 6e 20 77 |all entr|ies in w|
|00005180| 68 69 63 68 20 74 68 65 | 20 69 6e 64 69 63 61 74 |hich the| indicat|
|00005190| 65 64 20 66 69 65 6c 64 | 20 6d 61 74 63 68 65 73 |ed field| matches|
|000051a0| 20 61 20 67 69 76 65 6e | 20 72 65 67 75 6c 61 72 | a given| regular|
|000051b0| 20 0d 23 20 20 65 78 70 | 72 65 73 73 69 6f 6e 20 | .#  exp|ression |
|000051c0| 61 6e 64 20 63 6f 70 79 | 20 74 68 65 6d 20 74 6f |and copy| them to|
|000051d0| 20 61 20 6e 65 77 20 62 | 75 66 66 65 72 2e 20 20 | a new b|uffer.  |
|000051e0| 0d 23 0d 70 72 6f 63 20 | 73 65 61 72 63 68 46 69 |.#.proc |searchFi|
|000051f0| 65 6c 64 73 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |elds {} |{..globa|
|00005200| 6c 20 66 69 65 6c 64 4e | 61 6d 65 73 0d 09 69 66 |l fieldN|ames..if|
|00005210| 20 7b 5b 63 61 74 63 68 | 20 7b 65 76 61 6c 20 70 | {[catch| {eval p|
|00005220| 72 6f 6d 70 74 20 7b 7b | 46 69 65 6c 64 20 6e 61 |rompt {{|Field na|
|00005230| 6d 65 3a 7d 7d 20 22 61 | 75 74 68 6f 72 22 20 7b |me:}} "a|uthor" {|
|00005240| 46 69 65 6c 64 73 7d 20 | 24 66 69 65 6c 64 4e 61 |Fields} |$fieldNa|
|00005250| 6d 65 73 7d 20 66 6c 64 | 5d 7d 20 72 65 74 75 72 |mes} fld|]} retur|
|00005260| 6e 0d 09 69 66 20 7b 21 | 5b 73 74 72 69 6e 67 20 |n..if {!|[string |
|00005270| 6c 65 6e 67 74 68 20 24 | 66 6c 64 5d 7d 20 72 65 |length $|fld]} re|
|00005280| 74 75 72 6e 0d 0d 09 69 | 66 20 7b 5b 63 61 74 63 |turn...i|f {[catc|
|00005290| 68 20 7b 70 72 6f 6d 70 | 74 20 22 52 65 67 75 6c |h {promp|t "Regul|
|000052a0| 61 72 20 65 78 70 72 65 | 73 73 69 6f 6e 3a 22 20 |ar expre|ssion:" |
|000052b0| 22 22 7d 20 72 65 67 5d | 7d 20 72 65 74 75 72 6e |""} reg]|} return|
|000052c0| 0d 09 69 66 20 7b 21 5b | 73 74 72 69 6e 67 20 6c |..if {![|string l|
|000052d0| 65 6e 67 74 68 20 24 72 | 65 67 5d 7d 20 72 65 74 |ength $r|eg]} ret|
|000052e0| 75 72 6e 0d 0d 09 73 65 | 74 20 6d 61 74 63 68 65 |urn...se|t matche|
|000052f0| 73 20 5b 66 69 6e 64 45 | 6e 74 72 69 65 73 20 24 |s [findE|ntries $|
|00005300| 72 65 67 5d 0d 09 69 66 | 20 7b 5b 6c 6c 65 6e 67 |reg]..if| {[lleng|
|00005310| 74 68 20 24 6d 61 74 63 | 68 65 73 5d 20 3d 3d 20 |th $matc|hes] == |
|00005320| 30 7d 20 7b 0d 09 09 72 | 65 74 75 72 6e 20 22 4e |0} {...r|eturn "N|
|00005330| 6f 20 6d 61 74 63 68 69 | 6e 67 20 65 6e 74 72 69 |o matchi|ng entri|
|00005340| 65 73 20 77 65 72 65 20 | 66 6f 75 6e 64 22 0d 09 |es were |found"..|
|00005350| 7d 0d 09 0d 09 73 65 74 | 20 76 61 6c 73 20 7b 7d |}....set| vals {}|
|00005360| 0d 09 66 6f 72 65 61 63 | 68 20 68 69 74 20 24 6d |..foreac|h hit $m|
|00005370| 61 74 63 68 65 73 20 7b | 0d 09 09 73 65 74 20 70 |atches {|...set p|
|00005380| 6f 73 20 5b 6c 69 6e 64 | 65 78 20 24 68 69 74 20 |os [lind|ex $hit |
|00005390| 31 5d 0d 09 09 73 65 74 | 20 74 6f 70 20 5b 6c 69 |1]...set| top [li|
|000053a0| 6e 64 65 78 20 24 68 69 | 74 20 32 5d 20 0d 09 09 |ndex $hi|t 2] ...|
|000053b0| 73 65 74 20 62 6f 74 74 | 6f 6d 20 5b 6c 69 6e 64 |set bott|om [lind|
|000053c0| 65 78 20 24 68 69 74 20 | 33 5d 0d 09 09 77 68 69 |ex $hit |3]...whi|
|000053d0| 6c 65 20 7b 5b 73 65 74 | 20 66 61 69 6c 75 72 65 |le {[set| failure|
|000053e0| 20 5b 65 78 70 72 20 7b | 5b 67 65 74 46 6c 64 4e | [expr {|[getFldN|
|000053f0| 61 6d 65 20 24 70 6f 73 | 20 24 74 6f 70 5d 20 21 |ame $pos| $top] !|
|00005400| 3d 20 24 66 6c 64 7d 5d | 5d 20 20 26 26 20 0d 09 |= $fld}]|]  && ..|
|00005410| 09 09 21 5b 63 61 74 63 | 68 20 7b 73 65 61 72 63 |..![catc|h {searc|
|00005420| 68 20 2d 66 20 31 20 2d | 72 20 31 20 2d 69 20 31 |h -f 1 -|r 1 -i 1|
|00005430| 20 2d 6d 20 30 20 2d 6c | 20 24 62 6f 74 74 6f 6d | -m 0 -l| $bottom|
|00005440| 20 2d 73 20 2d 2d 20 24 | 72 65 67 20 24 70 6f 73 | -s -- $|reg $pos|
|00005450| 7d 20 6d 74 63 68 5d 7d | 20 7b 0d 09 09 09 73 65 |} mtch]}| {....se|
|00005460| 74 20 70 6f 73 20 5b 6c | 69 6e 64 65 78 20 24 6d |t pos [l|index $m|
|00005470| 74 63 68 20 31 5d 0d 09 | 09 7d 0d 09 09 69 66 20 |tch 1]..|.}...if |
|00005480| 7b 21 24 66 61 69 6c 75 | 72 65 7d 20 7b 20 6c 61 |{!$failu|re} { la|
|00005490| 70 70 65 6e 64 20 76 61 | 6c 73 20 5b 6c 69 73 74 |ppend va|ls [list|
|000054a0| 20 24 74 6f 70 20 24 62 | 6f 74 74 6f 6d 5d 20 7d | $top $b|ottom] }|
|000054b0| 0d 09 7d 0d 09 0d 09 69 | 66 20 7b 5b 6c 6c 65 6e |..}....i|f {[llen|
|000054c0| 67 74 68 20 24 76 61 6c | 73 5d 20 3e 30 7d 20 7b |gth $val|s] >0} {|
|000054d0| 0d 09 09 77 72 69 74 65 | 45 6e 74 72 69 65 73 20 |...write|Entries |
|000054e0| 24 76 61 6c 73 20 30 0d | 09 7d 20 65 6c 73 65 20 |$vals 0.|.} else |
|000054f0| 7b 0d 09 09 6d 65 73 73 | 61 67 65 20 22 4e 6f 20 |{...mess|age "No |
|00005500| 6d 61 74 63 68 69 6e 67 | 20 65 6e 74 72 69 65 73 |matching| entries|
|00005510| 20 77 65 72 65 20 66 6f | 75 6e 64 22 0d 09 7d 0d | were fo|und"..}.|
|00005520| 09 0d 7d 0d 0d 23 23 23 | 23 23 23 23 23 23 23 23 |..}..###|########|
|00005530| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005540| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005550| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005560| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005570| 0d 23 20 53 6f 72 74 20 | 61 6c 6c 20 6f 66 20 74 |.# Sort |all of t|
|00005580| 68 65 20 65 6e 74 72 69 | 65 73 20 62 61 73 65 64 |he entri|es based|
|00005590| 20 6f 6e 20 6f 6e 65 20 | 6f 66 20 76 61 72 69 6f | on one |of vario|
|000055a0| 75 73 20 63 72 69 74 65 | 72 69 61 2e 0d 23 0d 70 |us crite|ria..#.p|
|000055b0| 72 6f 63 20 62 69 62 53 | 6f 72 74 50 72 6f 63 20 |roc bibS|ortProc |
|000055c0| 7b 6d 65 6e 75 20 69 74 | 65 6d 7d 20 7b 0d 09 69 |{menu it|em} {..i|
|000055d0| 66 20 7b 24 69 74 65 6d | 20 3d 3d 20 22 63 69 74 |f {$item| == "cit|
|000055e0| 65 4b 65 79 22 7d 20 7b | 0d 09 09 73 6f 72 74 42 |eKey"} {|...sortB|
|000055f0| 79 43 69 74 65 4b 65 79 | 0d 09 7d 20 65 6c 73 65 |yCiteKey|..} else|
|00005600| 69 66 20 20 7b 24 69 74 | 65 6d 20 3d 3d 20 22 66 |if  {$it|em == "f|
|00005610| 69 72 73 74 41 75 74 68 | 6f 72 2c 59 65 61 72 22 |irstAuth|or,Year"|
|00005620| 7d 20 7b 0d 09 09 73 6f | 72 74 42 79 41 75 74 68 |} {...so|rtByAuth|
|00005630| 6f 72 73 20 30 20 30 0d | 09 7d 20 65 6c 73 65 69 |ors 0 0.|.} elsei|
|00005640| 66 20 20 7b 24 69 74 65 | 6d 20 3d 3d 20 22 6c 61 |f  {$ite|m == "la|
|00005650| 73 74 41 75 74 68 6f 72 | 2c 59 65 61 72 22 7d 20 |stAuthor|,Year"} |
|00005660| 7b 0d 09 09 73 6f 72 74 | 42 79 41 75 74 68 6f 72 |{...sort|ByAuthor|
|00005670| 73 20 31 20 30 0d 09 7d | 20 65 6c 73 65 69 66 20 |s 1 0..}| elseif |
|00005680| 20 7b 24 69 74 65 6d 20 | 3d 3d 20 22 79 65 61 72 | {$item |== "year|
|00005690| 2c 46 69 72 73 74 41 75 | 74 68 6f 72 22 7d 20 7b |,FirstAu|thor"} {|
|000056a0| 0d 09 09 73 6f 72 74 42 | 79 41 75 74 68 6f 72 73 |...sortB|yAuthors|
|000056b0| 20 30 20 31 0d 09 7d 20 | 65 6c 73 65 69 66 20 20 | 0 1..} |elseif  |
|000056c0| 7b 24 69 74 65 6d 20 3d | 3d 20 22 79 65 61 72 2c |{$item =|= "year,|
|000056d0| 4c 61 73 74 41 75 74 68 | 6f 72 22 7d 20 7b 0d 09 |LastAuth|or"} {..|
|000056e0| 09 73 6f 72 74 42 79 41 | 75 74 68 6f 72 73 20 31 |.sortByA|uthors 1|
|000056f0| 20 31 0d 09 7d 0d 7d 0d | 0d 23 23 23 23 23 23 23 | 1..}.}.|.#######|
|00005700| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005710| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005720| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005730| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005740| 23 23 23 23 0d 23 20 53 | 6f 72 74 20 74 68 65 20 |####.# S|ort the |
|00005750| 66 69 6c 65 20 6d 61 72 | 6b 73 2e 20 28 54 68 65 |file mar|ks. (The|
|00005760| 73 65 20 6f 70 65 72 61 | 74 69 6f 6e 73 20 61 72 |se opera|tions ar|
|00005770| 65 20 61 6c 73 6f 20 61 | 76 61 69 6c 61 62 6c 65 |e also a|vailable|
|00005780| 20 75 6e 64 65 72 20 74 | 68 65 0d 23 20 22 53 65 | under t|he.# "Se|
|00005790| 61 72 63 68 3a 4e 61 6d | 65 64 4d 61 72 6b 73 22 |arch:Nam|edMarks"|
|000057a0| 20 6d 65 6e 75 29 0d 23 | 0d 70 72 6f 63 20 6d 61 | menu).#|.proc ma|
|000057b0| 72 6b 53 6f 72 74 50 72 | 6f 63 20 7b 6d 65 6e 75 |rkSortPr|oc {menu|
|000057c0| 20 69 74 65 6d 7d 20 7b | 0d 09 69 66 20 7b 24 69 | item} {|..if {$i|
|000057d0| 74 65 6d 20 3d 3d 20 22 | 61 6c 70 68 61 62 65 74 |tem == "|alphabet|
|000057e0| 69 63 61 6c 6c 79 22 7d | 20 7b 0d 09 09 73 6f 72 |ically"}| {...sor|
|000057f0| 74 4d 61 72 6b 73 46 69 | 6c 65 0d 09 7d 20 65 6c |tMarksFi|le..} el|
|00005800| 73 65 69 66 20 20 7b 24 | 69 74 65 6d 20 3d 3d 20 |seif  {$|item == |
|00005810| 22 62 79 50 6f 73 69 74 | 69 6f 6e 22 7d 20 7b 0d |"byPosit|ion"} {.|
|00005820| 09 09 6f 72 64 65 72 4d | 61 72 6b 73 0d 09 7d 0d |..orderM|arks..}.|
|00005830| 7d 0d 0d 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |}..#####|########|
|00005840| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005850| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005860| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005870| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 0d 23 |########|######.#|
|00005880| 20 53 6f 72 74 20 61 6c | 6c 20 6f 66 20 74 68 65 | Sort al|l of the|
|00005890| 20 65 6e 74 72 69 65 73 | 20 69 6e 20 74 68 65 20 | entries| in the |
|000058a0| 66 69 6c 65 20 61 6c 70 | 68 61 62 65 74 69 63 61 |file alp|habetica|
|000058b0| 6c 6c 79 20 62 79 20 61 | 75 74 68 6f 72 2e 0d 23 |lly by a|uthor..#|
|000058c0| 0d 70 72 6f 63 20 73 6f | 72 74 42 79 41 75 74 68 |.proc so|rtByAuth|
|000058d0| 6f 72 73 20 7b 7b 6c 61 | 73 74 41 75 74 68 6f 72 |ors {{la|stAuthor|
|000058e0| 46 69 72 73 74 20 30 7d | 20 7b 79 65 61 72 46 69 |First 0}| {yearFi|
|000058f0| 72 73 74 20 30 7d 7d 20 | 7b 0d 09 67 6c 6f 62 61 |rst 0}} |{..globa|
|00005900| 6c 20 62 69 62 54 6f 70 | 50 61 74 20 62 69 62 54 |l bibTop|Pat bibT|
|00005910| 6f 70 50 61 74 31 20 62 | 69 62 54 6f 70 50 61 74 |opPat1 b|ibTopPat|
|00005920| 32 20 42 69 62 6d 6f 64 | 65 56 61 72 73 0d 09 73 |2 Bibmod|eVars..s|
|00005930| 65 74 20 62 69 62 53 65 | 67 53 74 72 20 24 42 69 |et bibSe|gStr $Bi|
|00005940| 62 6d 6f 64 65 56 61 72 | 73 28 73 65 67 72 65 67 |bmodeVar|s(segreg|
|00005950| 61 74 65 53 74 72 69 6e | 67 73 29 0d 09 0d 09 73 |ateStrin|gs)....s|
|00005960| 65 74 20 6d 61 74 63 68 | 65 73 20 5b 66 69 6e 64 |et match|es [find|
|00005970| 45 6e 74 72 69 65 73 20 | 24 62 69 62 54 6f 70 50 |Entries |$bibTopP|
|00005980| 61 74 5d 0d 09 73 65 74 | 20 63 72 6f 73 73 72 65 |at]..set| crossre|
|00005990| 66 73 20 5b 6c 69 73 74 | 43 72 6f 73 73 72 65 66 |fs [list|Crossref|
|000059a0| 73 5d 0d 09 73 65 74 20 | 73 74 72 69 6e 67 73 20 |s]..set |strings |
|000059b0| 5b 6c 69 73 74 53 74 72 | 69 6e 67 73 5d 0d 09 0d |[listStr|ings]...|
|000059c0| 09 73 65 74 20 76 61 6c | 73 20 7b 7d 0d 09 73 65 |.set val|s {}..se|
|000059d0| 74 20 6f 74 68 65 72 73 | 20 7b 7d 0d 09 73 65 74 |t others| {}..set|
|000059e0| 20 72 65 66 73 20 7b 7d | 0d 09 73 65 74 20 73 74 | refs {}|..set st|
|000059f0| 72 73 20 7b 7d 0d 09 0d | 09 73 65 74 20 62 65 67 |rs {}...|.set beg|
|00005a00| 20 5b 6d 61 78 50 6f 73 | 5d 0d 09 73 65 74 20 65 | [maxPos|]..set e|
|00005a10| 6e 64 20 30 0d 09 0d 09 | 66 6f 72 65 61 63 68 20 |nd 0....|foreach |
|00005a20| 68 69 74 20 24 6d 61 74 | 63 68 65 73 20 7b 0d 09 |hit $mat|ches {..|
|00005a30| 09 73 65 74 20 70 6f 73 | 20 5b 6c 69 6e 64 65 78 |.set pos| [lindex|
|00005a40| 20 24 68 69 74 20 31 5d | 0d 09 09 73 65 74 20 74 | $hit 1]|...set t|
|00005a50| 6f 70 20 5b 6c 69 6e 64 | 65 78 20 24 68 69 74 20 |op [lind|ex $hit |
|00005a60| 32 5d 20 0d 09 09 73 65 | 74 20 62 6f 74 74 6f 6d |2] ...se|t bottom|
|00005a70| 20 5b 6c 69 6e 64 65 78 | 20 24 68 69 74 20 33 5d | [lindex| $hit 3]|
|00005a80| 0d 09 09 73 65 74 20 65 | 6e 74 72 79 20 5b 67 65 |...set e|ntry [ge|
|00005a90| 74 54 65 78 74 20 24 74 | 6f 70 20 24 62 6f 74 74 |tText $t|op $bott|
|00005aa0| 6f 6d 5d 0d 09 09 72 65 | 67 73 75 62 20 2d 61 6c |om]...re|gsub -al|
|00005ab0| 6c 20 22 5c 5b 5c 6e 5c | 72 5c 5d 2b 22 20 24 65 |l "\[\n\|r\]+" $e|
|00005ac0| 6e 74 72 79 20 7b 20 7d | 20 65 6e 74 72 79 0d 09 |ntry { }| entry..|
|00005ad0| 09 72 65 67 73 75 62 20 | 2d 61 6c 6c 20 22 5c 5b |.regsub |-all "\[|
|00005ae0| 20 09 5c 5d 5c 5b 20 09 | 5c 5d 2b 22 20 24 65 6e | .\]\[ .|\]+" $en|
|00005af0| 74 72 79 20 7b 20 7d 20 | 65 6e 74 72 79 0d 09 09 |try { } |entry...|
|00005b00| 72 65 67 73 75 62 20 7b | 5b 2c 20 09 5d 2a 5b 5c |regsub {|[, .]*[\|
|00005b10| 29 5c 7d 5d 5b 20 09 5d | 2a 24 7d 20 24 65 6e 74 |)\}][ .]|*$} $ent|
|00005b20| 72 79 20 7b 20 7d 20 65 | 6e 74 72 79 0d 09 09 69 |ry { } e|ntry...i|
|00005b30| 66 20 7b 5b 72 65 67 65 | 78 70 20 24 62 69 62 54 |f {[rege|xp $bibT|
|00005b40| 6f 70 50 61 74 31 20 24 | 65 6e 74 72 79 20 61 6c |opPat1 $|entry al|
|00005b50| 6c 6f 66 69 74 20 63 69 | 74 65 4b 65 79 5d 7d 20 |lofit ci|teKey]} |
|00005b60| 7b 0d 09 09 09 73 65 74 | 20 63 69 74 65 4b 65 79 |{....set| citeKey|
|00005b70| 20 5b 73 74 72 69 6e 67 | 20 74 6f 6c 6f 77 65 72 | [string| tolower|
|00005b80| 20 24 63 69 74 65 4b 65 | 79 5d 0d 09 09 09 73 65 | $citeKe|y]....se|
|00005b90| 74 20 6b 65 79 45 78 69 | 73 74 73 20 31 0d 09 09 |t keyExi|sts 1...|
|00005ba0| 7d 20 65 6c 73 65 20 7b | 0d 09 09 09 73 65 74 20 |} else {|....set |
|00005bb0| 63 69 74 65 6b 65 79 20 | 22 22 0d 09 09 09 73 65 |citekey |""....se|
|00005bc0| 74 20 6b 65 79 45 78 69 | 73 74 73 20 30 0d 09 09 |t keyExi|sts 0...|
|00005bd0| 7d 0d 09 09 0d 09 09 69 | 66 20 7b 24 6b 65 79 45 |}......i|f {$keyE|
|00005be0| 78 69 73 74 73 20 26 26 | 20 5b 6c 73 65 61 72 63 |xists &&| [lsearc|
|00005bf0| 68 20 2d 65 78 61 63 74 | 20 24 63 72 6f 73 73 72 |h -exact| $crossr|
|00005c00| 65 66 73 20 24 63 69 74 | 65 4b 65 79 5d 20 3e 3d |efs $cit|eKey] >=|
|00005c10| 20 30 7d 20 7b 0d 09 09 | 09 6c 61 70 70 65 6e 64 | 0} {...|.lappend|
|00005c20| 20 72 65 66 73 20 5b 6c | 69 73 74 20 24 70 6f 73 | refs [l|ist $pos|
|00005c30| 20 24 74 6f 70 20 24 62 | 6f 74 74 6f 6d 5d 0d 09 | $top $b|ottom]..|
|00005c40| 09 7d 20 65 6c 73 65 69 | 66 20 7b 24 62 69 62 53 |.} elsei|f {$bibS|
|00005c50| 65 67 53 74 72 20 26 26 | 20 24 6b 65 79 45 78 69 |egStr &&| $keyExi|
|00005c60| 73 74 73 20 26 26 20 5b | 6c 73 65 61 72 63 68 20 |sts && [|lsearch |
|00005c70| 2d 65 78 61 63 74 20 24 | 73 74 72 69 6e 67 73 20 |-exact $|strings |
|00005c80| 24 63 69 74 65 4b 65 79 | 5d 20 3e 3d 20 30 7d 20 |$citeKey|] >= 0} |
|00005c90| 7b 0d 09 09 09 6c 61 70 | 70 65 6e 64 20 73 74 72 |{....lap|pend str|
|00005ca0| 73 20 5b 6c 69 73 74 20 | 24 63 69 74 65 4b 65 79 |s [list |$citeKey|
|00005cb0| 20 24 74 6f 70 20 24 62 | 6f 74 74 6f 6d 5d 09 09 | $top $b|ottom]..|
|00005cc0| 0d 09 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 09 69 |...} els|e {....i|
|00005cd0| 66 20 7b 21 5b 63 61 74 | 63 68 20 7b 67 65 74 46 |f {![cat|ch {getF|
|00005ce0| 6c 64 56 61 6c 75 65 20 | 24 65 6e 74 72 79 20 61 |ldValue |$entry a|
|00005cf0| 75 74 68 6f 72 7d 20 66 | 6c 64 76 61 6c 5d 7d 20 |uthor} f|ldval]} |
|00005d00| 7b 0d 09 09 09 09 69 66 | 20 7b 5b 63 61 74 63 68 |{.....if| {[catch|
|00005d10| 20 7b 67 65 74 46 6c 64 | 56 61 6c 75 65 20 24 65 | {getFld|Value $e|
|00005d20| 6e 74 72 79 20 79 65 61 | 72 7d 20 79 65 61 72 5d |ntry yea|r} year]|
|00005d30| 7d 20 7b 20 73 65 74 20 | 79 65 61 72 20 39 39 39 |} { set |year 999|
|00005d40| 39 20 7d 0d 09 09 09 09 | 6c 61 70 70 65 6e 64 20 |9 }.....|lappend |
|00005d50| 76 61 6c 73 20 5b 6c 69 | 73 74 20 5b 61 75 74 68 |vals [li|st [auth|
|00005d60| 53 6f 72 74 4b 65 79 20 | 24 66 6c 64 76 61 6c 20 |SortKey |$fldval |
|00005d70| 24 6c 61 73 74 41 75 74 | 68 6f 72 46 69 72 73 74 |$lastAut|horFirst|
|00005d80| 20 24 79 65 61 72 20 24 | 79 65 61 72 46 69 72 73 | $year $|yearFirs|
|00005d90| 74 5d 20 24 74 6f 70 20 | 24 62 6f 74 74 6f 6d 5d |t] $top |$bottom]|
|00005da0| 0d 09 09 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 09 |....} el|se {....|
|00005db0| 09 6c 61 70 70 65 6e 64 | 20 6f 74 68 65 72 73 20 |.lappend| others |
|00005dc0| 5b 6c 69 73 74 20 24 70 | 6f 73 20 24 74 6f 70 20 |[list $p|os $top |
|00005dd0| 24 62 6f 74 74 6f 6d 5d | 0d 09 09 09 7d 0d 09 09 |$bottom]|....}...|
|00005de0| 7d 0d 09 09 69 66 20 7b | 24 74 6f 70 20 3c 20 24 |}...if {|$top < $|
|00005df0| 62 65 67 7d 20 7b 73 65 | 74 20 62 65 67 20 24 74 |beg} {se|t beg $t|
|00005e00| 6f 70 7d 0d 09 09 69 66 | 20 7b 24 62 6f 74 74 6f |op}...if| {$botto|
|00005e10| 6d 20 3e 20 24 65 6e 64 | 7d 20 7b 73 65 74 20 65 |m > $end|} {set e|
|00005e20| 6e 64 20 24 62 6f 74 74 | 6f 6d 7d 0d 09 7d 0d 09 |nd $bott|om}..}..|
|00005e30| 0d 09 69 66 20 7b 24 62 | 69 62 53 65 67 53 74 72 |..if {$b|ibSegStr|
|00005e40| 7d 20 7b 0d 09 09 73 65 | 74 20 72 65 73 75 6c 74 |} {...se|t result|
|00005e50| 20 5b 63 6f 6e 63 61 74 | 20 24 73 74 72 73 20 24 | [concat| $strs $|
|00005e60| 6f 74 68 65 72 73 20 5b | 6c 73 6f 72 74 20 24 76 |others [|lsort $v|
|00005e70| 61 6c 73 5d 20 24 72 65 | 66 73 5d 0d 09 7d 20 65 |als] $re|fs]..} e|
|00005e80| 6c 73 65 20 7b 0d 09 09 | 73 65 74 20 72 65 73 75 |lse {...|set resu|
|00005e90| 6c 74 20 5b 63 6f 6e 63 | 61 74 20 24 6f 74 68 65 |lt [conc|at $othe|
|00005ea0| 72 73 20 5b 6c 73 6f 72 | 74 20 24 76 61 6c 73 5d |rs [lsor|t $vals]|
|00005eb0| 20 24 72 65 66 73 5d 0d | 09 7d 0d 09 0d 09 69 66 | $refs].|.}....if|
|00005ec0| 20 7b 5b 6c 6c 65 6e 67 | 74 68 20 24 72 65 73 75 | {[lleng|th $resu|
|00005ed0| 6c 74 5d 20 3e 30 7d 20 | 7b 0d 09 09 77 72 69 74 |lt] >0} |{...writ|
|00005ee0| 65 45 6e 74 72 69 65 73 | 20 24 72 65 73 75 6c 74 |eEntries| $result|
|00005ef0| 20 31 20 24 62 65 67 20 | 24 65 6e 64 0d 09 7d 20 | 1 $beg |$end..} |
|00005f00| 65 6c 73 65 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |else {..|.message|
|00005f10| 20 22 4e 6f 20 72 65 73 | 75 6c 74 73 20 6f 66 20 | "No res|ults of |
|00005f20| 61 75 74 68 6f 72 20 73 | 6f 72 74 20 21 21 3f 3f |author s|ort !!??|
|00005f30| 22 0d 09 7d 0d 7d 0d 0d | 23 23 23 23 23 23 23 23 |"..}.}..|########|
|00005f40| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005f50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005f60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005f70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005f80| 23 23 23 0d 23 20 52 65 | 74 75 72 6e 20 61 20 6c |###.# Re|turn a l|
|00005f90| 69 73 74 20 6f 66 20 74 | 68 65 20 63 69 74 65 2d |ist of t|he cite-|
|00005fa0| 6b 65 79 73 20 6f 66 20 | 61 6c 6c 20 63 72 6f 73 |keys of |all cros|
|00005fb0| 73 2d 72 65 66 65 72 65 | 6e 63 65 64 20 65 6e 74 |s-refere|nced ent|
|00005fc0| 72 69 65 73 2e 0d 23 0d | 70 72 6f 63 20 6c 69 73 |ries..#.|proc lis|
|00005fd0| 74 53 74 72 69 6e 67 73 | 20 7b 7d 20 7b 0d 09 67 |tStrings| {} {..g|
|00005fe0| 6c 6f 62 61 6c 20 62 69 | 62 54 6f 70 50 61 74 20 |lobal bi|bTopPat |
|00005ff0| 62 69 62 54 6f 70 50 61 | 74 31 20 62 69 62 54 6f |bibTopPa|t1 bibTo|
|00006000| 70 50 61 74 32 0d 09 73 | 65 74 20 6d 61 74 63 68 |pPat2..s|et match|
|00006010| 65 73 20 5b 66 69 6e 64 | 45 6e 74 72 69 65 73 20 |es [find|Entries |
|00006020| 7b 5e 5b 09 5d 2a 40 73 | 74 72 69 6e 67 20 2a 5b |{^[.]*@s|tring *[|
|00006030| 5c 7b 5c 28 5d 7d 20 30 | 5d 0d 0d 09 6d 65 73 73 |\{\(]} 0|]...mess|
|00006040| 61 67 65 20 22 73 63 61 | 6e 6e 69 6e 67 20 66 6f |age "sca|nning fo|
|00006050| 72 20 40 73 74 72 69 6e | 67 73 c9 22 0d 09 66 6f |r @strin|gs."..fo|
|00006060| 72 65 61 63 68 20 68 69 | 74 20 24 6d 61 74 63 68 |reach hi|t $match|
|00006070| 65 73 20 7b 0d 09 09 73 | 65 74 20 74 6f 70 20 5b |es {...s|et top [|
|00006080| 6c 69 6e 64 65 78 20 24 | 68 69 74 20 32 5d 20 0d |lindex $|hit 2] .|
|00006090| 09 09 73 65 74 20 62 6f | 74 74 6f 6d 20 5b 6c 69 |..set bo|ttom [li|
|000060a0| 6e 64 65 78 20 24 68 69 | 74 20 33 5d 0d 09 09 73 |ndex $hi|t 3]...s|
|000060b0| 65 74 20 65 6e 74 72 79 | 20 5b 67 65 74 54 65 78 |et entry| [getTex|
|000060c0| 74 20 24 74 6f 70 20 24 | 62 6f 74 74 6f 6d 5d 0d |t $top $|bottom].|
|000060d0| 09 09 72 65 67 73 75 62 | 20 2d 61 6c 6c 20 22 5c |..regsub| -all "\|
|000060e0| 5b 5c 6e 5c 72 5c 5d 2b | 22 20 24 65 6e 74 72 79 |[\n\r\]+|" $entry|
|000060f0| 20 7b 20 7d 20 65 6e 74 | 72 79 0d 09 09 72 65 67 | { } ent|ry...reg|
|00006100| 73 75 62 20 2d 61 6c 6c | 20 22 5c 5b 20 09 5c 5d |sub -all| "\[ .\]|
|00006110| 5c 5b 20 09 5c 5d 2b 22 | 20 24 65 6e 74 72 79 20 |\[ .\]+"| $entry |
|00006120| 7b 20 7d 20 65 6e 74 72 | 79 0d 09 09 72 65 67 73 |{ } entr|y...regs|
|00006130| 75 62 20 7b 5b 2c 20 09 | 5d 2a 5b 5c 29 5c 7d 5d |ub {[, .|]*[\)\}]|
|00006140| 5b 20 09 5d 2a 24 7d 20 | 24 65 6e 74 72 79 20 7b |[ .]*$} |$entry {|
|00006150| 20 7d 20 65 6e 74 72 79 | 0d 09 09 72 65 67 65 78 | } entry|...regex|
|00006160| 70 20 24 62 69 62 54 6f | 70 50 61 74 31 20 24 65 |p $bibTo|pPat1 $e|
|00006170| 6e 74 72 79 20 61 6c 6c | 6f 66 69 74 20 63 69 74 |ntry all|ofit cit|
|00006180| 65 6b 65 79 0d 09 09 73 | 65 74 20 63 69 74 65 6b |ekey...s|et citek|
|00006190| 65 79 20 5b 73 74 72 69 | 6e 67 20 74 6f 6c 6f 77 |ey [stri|ng tolow|
|000061a0| 65 72 20 24 63 69 74 65 | 6b 65 79 5d 0d 09 09 69 |er $cite|key]...i|
|000061b0| 66 20 7b 5b 63 61 74 63 | 68 20 7b 69 6e 63 72 20 |f {[catc|h {incr |
|000061c0| 73 74 72 69 6e 67 73 28 | 24 63 69 74 65 6b 65 79 |strings(|$citekey|
|000061d0| 29 7d 20 6e 75 6d 5d 7d | 20 7b 0d 09 09 09 73 65 |)} num]}| {....se|
|000061e0| 74 20 73 74 72 69 6e 67 | 73 28 24 63 69 74 65 6b |t string|s($citek|
|000061f0| 65 79 29 20 31 0d 09 09 | 7d 0d 09 7d 0d 09 69 66 |ey) 1...|}..}..if|
|00006200| 20 7b 5b 63 61 74 63 68 | 20 7b 6c 73 6f 72 74 20 | {[catch| {lsort |
|00006210| 5b 61 72 72 61 79 20 6e | 61 6d 65 73 20 73 74 72 |[array n|ames str|
|00006220| 69 6e 67 73 5d 7d 20 72 | 65 73 5d 7d 20 7b 0d 09 |ings]} r|es]} {..|
|00006230| 09 73 65 74 20 72 65 73 | 20 7b 7d 0d 09 7d 0d 09 |.set res| {}..}..|
|00006240| 6d 65 73 73 61 67 65 20 | 22 22 0d 09 72 65 74 75 |message |""..retu|
|00006250| 72 6e 20 24 72 65 73 0d | 7d 0d 0d 23 23 23 23 23 |rn $res.|}..#####|
|00006260| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00006270| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00006280| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00006290| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000062a0| 23 23 23 23 23 23 0d 23 | 20 52 65 74 75 72 6e 20 |######.#| Return |
|000062b0| 61 20 6c 69 73 74 20 6f | 66 20 74 68 65 20 63 69 |a list o|f the ci|
|000062c0| 74 65 2d 6b 65 79 73 20 | 6f 66 20 61 6c 6c 20 63 |te-keys |of all c|
|000062d0| 72 6f 73 73 2d 72 65 66 | 65 72 65 6e 63 65 64 20 |ross-ref|erenced |
|000062e0| 65 6e 74 72 69 65 73 2e | 0d 23 0d 70 72 6f 63 20 |entries.|.#.proc |
|000062f0| 6c 69 73 74 43 72 6f 73 | 73 72 65 66 73 20 7b 7d |listCros|srefs {}|
|00006300| 20 7b 0d 09 73 65 74 20 | 6d 61 74 63 68 65 73 20 | {..set |matches |
|00006310| 5b 66 69 6e 64 45 6e 74 | 72 69 65 73 20 7b 63 72 |[findEnt|ries {cr|
|00006320| 6f 73 73 72 65 66 7d 5d | 0d 09 63 61 74 63 68 20 |ossref}]|..catch |
|00006330| 7b 75 6e 73 65 74 20 63 | 72 6f 73 73 72 65 66 73 |{unset c|rossrefs|
|00006340| 7d 0d 0d 09 6d 65 73 73 | 61 67 65 20 22 73 63 61 |}...mess|age "sca|
|00006350| 6e 6e 69 6e 67 20 66 6f | 72 20 63 72 6f 73 73 72 |nning fo|r crossr|
|00006360| 65 66 73 c9 22 0d 09 66 | 6f 72 65 61 63 68 20 68 |efs."..f|oreach h|
|00006370| 69 74 20 24 6d 61 74 63 | 68 65 73 20 7b 0d 09 09 |it $matc|hes {...|
|00006380| 73 65 74 20 74 6f 70 20 | 5b 6c 69 6e 64 65 78 20 |set top |[lindex |
|00006390| 24 68 69 74 20 32 5d 20 | 0d 09 09 73 65 74 20 62 |$hit 2] |...set b|
|000063a0| 6f 74 74 6f 6d 20 5b 6c | 69 6e 64 65 78 20 24 68 |ottom [l|index $h|
|000063b0| 69 74 20 33 5d 0d 09 09 | 73 65 74 20 65 6e 74 72 |it 3]...|set entr|
|000063c0| 79 20 5b 67 65 74 54 65 | 78 74 20 24 74 6f 70 20 |y [getTe|xt $top |
|000063d0| 24 62 6f 74 74 6f 6d 5d | 0d 09 09 72 65 67 73 75 |$bottom]|...regsu|
|000063e0| 62 20 2d 61 6c 6c 20 22 | 5c 5b 5c 6e 5c 72 5c 5d |b -all "|\[\n\r\]|
|000063f0| 2b 22 20 24 65 6e 74 72 | 79 20 7b 20 7d 20 65 6e |+" $entr|y { } en|
+--------+-------------------------+-------------------------+--------+--------+