/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1689

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 72 73 | 61 6c 7a 40 62 62 6e 2e |From: rs|alz@bbn.|
|00000010| 63 6f 6d 20 28 52 69 63 | 68 20 53 61 6c 7a 29 0a |com (Ric|h Salz).|
|00000020| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000030| 2e 6f 73 2e 76 6d 73 2c | 61 6c 74 2e 73 6f 75 72 |.os.vms,|alt.sour|
|00000040| 63 65 73 2c 63 6f 6d 70 | 2e 6c 61 6e 67 2e 63 0a |ces,comp|.lang.c.|
|00000050| 53 75 62 6a 65 63 74 3a | 20 41 20 72 65 61 64 64 |Subject:| A readd|
|00000060| 69 72 28 29 20 69 6d 70 | 6c 65 6d 65 6e 74 61 74 |ir() imp|lementat|
|00000070| 69 6f 6e 20 66 6f 72 20 | 56 4d 53 0a 4d 65 73 73 |ion for |VMS.Mess|
|00000080| 61 67 65 2d 49 44 3a 20 | 3c 32 37 37 32 40 6c 69 |age-ID: |<2772@li|
|00000090| 74 63 68 69 2e 62 62 6e | 2e 63 6f 6d 3e 0a 44 61 |tchi.bbn|.com>.Da|
|000000a0| 74 65 3a 20 32 30 20 41 | 75 67 20 39 30 20 31 34 |te: 20 A|ug 90 14|
|000000b0| 3a 30 35 3a 33 30 20 47 | 4d 54 0a 0a 49 20 6e 65 |:05:30 G|MT..I ne|
|000000c0| 65 64 65 64 20 74 68 65 | 20 22 72 65 61 64 64 69 |eded the| "readdi|
|000000d0| 72 22 20 70 61 63 6b 61 | 67 65 20 66 6f 72 20 56 |r" packa|ge for V|
|000000e0| 4d 53 2e 20 20 4f 74 68 | 65 72 20 69 6d 70 6c 65 |MS.  Oth|er imple|
|000000f0| 6d 65 6e 74 61 74 69 6f | 6e 73 20 49 27 76 65 20 |mentatio|ns I've |
|00000100| 73 65 65 6e 0a 61 6c 6c | 20 73 65 65 6d 65 64 20 |seen.all| seemed |
|00000110| 74 6f 20 68 61 76 65 20 | 6c 6f 74 73 20 6f 66 20 |to have |lots of |
|00000120| 6b 6e 6f 77 6c 65 64 67 | 65 20 6f 66 20 74 68 65 |knowledg|e of the|
|00000130| 20 69 6e 74 65 72 6e 61 | 6c 73 20 6f 66 20 74 68 | interna|ls of th|
|00000140| 65 20 56 4d 53 20 64 69 | 72 65 63 74 6f 72 79 0a |e VMS di|rectory.|
|00000150| 73 74 72 75 63 74 75 72 | 65 20 28 65 77 77 2c 20 |structur|e (eww, |
|00000160| 67 72 6f 73 73 21 29 20 | 6f 72 20 64 69 64 6e 27 |gross!) |or didn'|
|00000170| 74 20 72 65 61 6c 6c 79 | 20 68 61 6e 64 6c 65 20 |t really| handle |
|00000180| 66 69 6c 65 20 76 65 72 | 73 69 6f 6e 73 20 74 68 |file ver|sions th|
|00000190| 65 20 77 61 79 20 74 68 | 61 74 0a 49 20 6e 65 65 |e way th|at.I nee|
|000001a0| 64 65 64 20 74 68 65 6d | 20 64 6f 6e 65 2e 0a 0a |ded them| done...|
|000001b0| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 63 6f |The foll|owing co|
|000001c0| 64 65 20 69 73 20 69 6e | 20 74 68 65 20 70 75 62 |de is in| the pub|
|000001d0| 6c 69 63 20 64 6f 6d 61 | 69 6e 2e 20 20 49 20 68 |lic doma|in.  I h|
|000001e0| 6f 70 65 20 69 74 20 67 | 65 74 73 20 76 65 72 79 |ope it g|ets very|
|000001f0| 20 77 69 64 65 73 70 72 | 65 61 64 0a 75 73 65 2e | widespr|ead.use.|
|00000200| 20 20 45 6e 6a 6f 79 2e | 0a 09 2f 72 24 0a 0a 23 |  Enjoy.|../r$..#|
|00000210| 21 20 2f 62 69 6e 2f 73 | 68 0a 23 20 54 68 69 73 |! /bin/s|h.# This|
|00000220| 20 69 73 20 61 20 73 68 | 65 6c 6c 20 61 72 63 68 | is a sh|ell arch|
|00000230| 69 76 65 2e 20 20 52 65 | 6d 6f 76 65 20 61 6e 79 |ive.  Re|move any|
|00000240| 74 68 69 6e 67 20 62 65 | 66 6f 72 65 20 74 68 69 |thing be|fore thi|
|00000250| 73 20 6c 69 6e 65 2c 20 | 74 68 65 6e 20 66 65 65 |s line, |then fee|
|00000260| 64 20 69 74 0a 23 20 69 | 6e 74 6f 20 61 20 73 68 |d it.# i|nto a sh|
|00000270| 65 6c 6c 20 76 69 61 20 | 22 73 68 20 66 69 6c 65 |ell via |"sh file|
|00000280| 22 20 6f 72 20 73 69 6d | 69 6c 61 72 2e 20 20 54 |" or sim|ilar.  T|
|00000290| 6f 20 6f 76 65 72 77 72 | 69 74 65 20 65 78 69 73 |o overwr|ite exis|
|000002a0| 74 69 6e 67 20 66 69 6c | 65 73 2c 0a 23 20 74 79 |ting fil|es,.# ty|
|000002b0| 70 65 20 22 73 68 20 66 | 69 6c 65 20 2d 63 22 2e |pe "sh f|ile -c".|
|000002c0| 0a 23 20 54 68 65 20 74 | 6f 6f 6c 20 74 68 61 74 |.# The t|ool that|
|000002d0| 20 67 65 6e 65 72 61 74 | 65 64 20 74 68 69 73 20 | generat|ed this |
|000002e0| 61 70 70 65 61 72 65 64 | 20 69 6e 20 74 68 65 20 |appeared| in the |
|000002f0| 63 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 75 6e 69 |comp.sou|rces.uni|
|00000300| 78 20 6e 65 77 73 67 72 | 6f 75 70 3b 0a 23 20 73 |x newsgr|oup;.# s|
|00000310| 65 6e 64 20 6d 61 69 6c | 20 74 6f 20 63 6f 6d 70 |end mail| to comp|
|00000320| 2d 73 6f 75 72 63 65 73 | 2d 75 6e 69 78 40 75 75 |-sources|-unix@uu|
|00000330| 6e 65 74 2e 75 75 2e 6e | 65 74 20 69 66 20 79 6f |net.uu.n|et if yo|
|00000340| 75 20 77 61 6e 74 20 74 | 68 61 74 20 74 6f 6f 6c |u want t|hat tool|
|00000350| 2e 0a 23 20 43 6f 6e 74 | 65 6e 74 73 3a 20 20 52 |..# Cont|ents:  R|
|00000360| 45 41 44 4d 45 20 64 69 | 72 65 6e 74 2e 68 20 76 |EADME di|rent.h v|
|00000370| 6d 73 72 65 61 64 64 69 | 72 2e 63 0a 23 20 57 72 |msreaddi|r.c.# Wr|
|00000380| 61 70 70 65 64 20 62 79 | 20 72 73 61 6c 7a 40 6c |apped by| rsalz@l|
|00000390| 69 74 63 68 69 2e 62 62 | 6e 2e 63 6f 6d 20 6f 6e |itchi.bb|n.com on|
|000003a0| 20 4d 6f 6e 20 41 75 67 | 20 32 30 20 30 39 3a 35 | Mon Aug| 20 09:5|
|000003b0| 33 3a 31 35 20 31 39 39 | 30 0a 50 41 54 48 3d 2f |3:15 199|0.PATH=/|
|000003c0| 62 69 6e 3a 2f 75 73 72 | 2f 62 69 6e 3a 2f 75 73 |bin:/usr|/bin:/us|
|000003d0| 72 2f 75 63 62 20 3b 20 | 65 78 70 6f 72 74 20 50 |r/ucb ; |export P|
|000003e0| 41 54 48 0a 65 63 68 6f | 20 49 66 20 74 68 69 73 |ATH.echo| If this|
|000003f0| 20 61 72 63 68 69 76 65 | 20 69 73 20 63 6f 6d 70 | archive| is comp|
|00000400| 6c 65 74 65 2c 20 79 6f | 75 20 77 69 6c 6c 20 73 |lete, yo|u will s|
|00000410| 65 65 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ee the f|ollowing|
|00000420| 20 6d 65 73 73 61 67 65 | 3a 0a 65 63 68 6f 20 27 | message|:.echo '|
|00000430| 20 20 20 20 20 20 20 20 | 20 20 22 73 68 61 72 3a |        |  "shar:|
|00000440| 20 45 6e 64 20 6f 66 20 | 61 72 63 68 69 76 65 2e | End of |archive.|
|00000450| 22 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 52 |"'.if te|st -f 'R|
|00000460| 45 41 44 4d 45 27 20 2d | 61 20 22 24 7b 31 7d 22 |EADME' -|a "${1}"|
|00000470| 20 21 3d 20 22 2d 63 22 | 20 3b 20 74 68 65 6e 20 | != "-c"| ; then |
|00000480| 0a 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 57 69 |.  echo |shar: Wi|
|00000490| 6c 6c 20 6e 6f 74 20 63 | 6c 6f 62 62 65 72 20 65 |ll not c|lobber e|
|000004a0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 27 |xisting |file \"'|
|000004b0| 52 45 41 44 4d 45 27 5c | 22 0a 65 6c 73 65 0a 20 |README'\|".else. |
|000004c0| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 | echo sh|ar: Extr|
|000004d0| 61 63 74 69 6e 67 20 5c | 22 27 52 45 41 44 4d 45 |acting \|"'README|
|000004e0| 27 5c 22 20 5c 28 33 33 | 30 36 20 63 68 61 72 61 |'\" \(33|06 chara|
|000004f0| 63 74 65 72 73 5c 29 0a | 20 20 73 65 64 20 22 73 |cters\).|  sed "s|
|00000500| 2f 5e 58 2f 2f 22 20 3e | 27 52 45 41 44 4d 45 27 |/^X//" >|'README'|
|00000510| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 46 49 4c 45 27 | <<'END_|OF_FILE'|
|00000520| 0a 58 0a 58 54 68 69 73 | 20 63 6f 64 65 20 69 6d |.X.XThis| code im|
|00000530| 70 6c 65 6d 65 6e 74 73 | 20 74 68 65 20 42 65 72 |plements| the Ber|
|00000540| 6b 65 6c 65 79 20 55 6e | 69 78 20 22 72 65 61 64 |keley Un|ix "read|
|00000550| 64 69 72 22 20 70 61 63 | 6b 61 67 65 2e 20 20 52 |dir" pac|kage.  R|
|00000560| 65 61 64 64 69 72 20 69 | 73 20 61 6e 0a 58 61 62 |eaddir i|s an.Xab|
|00000570| 73 74 72 61 63 74 20 69 | 6e 74 65 72 66 61 63 65 |stract i|nterface|
|00000580| 20 66 6f 72 20 72 65 61 | 64 69 6e 67 20 65 6e 74 | for rea|ding ent|
|00000590| 72 69 65 73 20 6f 75 74 | 20 6f 66 20 64 69 72 65 |ries out| of dire|
|000005a0| 63 74 6f 72 69 65 73 2c | 20 61 6e 64 20 67 65 74 |ctories,| and get|
|000005b0| 74 69 6e 67 20 74 68 65 | 0a 58 6e 61 6d 65 73 20 |ting the|.Xnames |
|000005c0| 6f 66 20 74 68 65 20 66 | 69 6c 65 73 20 28 61 6e |of the f|iles (an|
|000005d0| 64 20 64 69 72 65 63 74 | 6f 72 69 65 73 2c 20 65 |d direct|ories, e|
|000005e0| 74 63 2e 29 20 63 6f 6e | 74 61 69 6e 65 64 20 74 |tc.) con|tained t|
|000005f0| 68 65 72 65 69 6e 2e 20 | 20 56 65 72 73 69 6f 6e |herein. | Version|
|00000600| 73 0a 58 65 78 69 73 74 | 20 66 6f 72 20 61 6c 6c |s.Xexist| for all|
|00000610| 20 55 6e 69 78 20 73 79 | 73 74 65 6d 73 2c 20 4d | Unix sy|stems, M|
|00000620| 53 2d 44 4f 53 2c 20 41 | 6d 69 67 61 2c 20 61 6e |S-DOS, A|miga, an|
|00000630| 64 20 6e 6f 20 64 6f 75 | 62 74 20 6f 74 68 65 72 |d no dou|bt other|
|00000640| 73 20 61 73 20 77 65 6c | 6c 2e 0a 58 0a 58 54 68 |s as wel|l..X.XTh|
|00000650| 69 73 20 63 6f 64 65 20 | 77 61 73 20 77 72 69 74 |is code |was writ|
|00000660| 74 65 6e 20 62 79 20 52 | 69 63 68 20 24 61 6c 7a |ten by R|ich $alz|
|00000670| 2c 20 3c 72 73 61 6c 7a | 40 62 62 6e 2e 63 6f 6d |, <rsalz|@bbn.com|
|00000680| 3e 20 69 6e 20 41 75 67 | 75 73 74 2c 20 31 39 39 |> in Aug|ust, 199|
|00000690| 30 2c 20 61 6e 64 0a 58 | 68 61 73 20 6e 6f 20 63 |0, and.X|has no c|
|000006a0| 6f 70 79 72 69 67 68 74 | 2e 0a 58 0a 58 20 20 20 |opyright|..X.X   |
|000006b0| 20 23 69 6e 63 6c 75 64 | 65 20 3c 64 69 72 65 6e | #includ|e <diren|
|000006c0| 74 2e 68 3e 0a 58 54 68 | 69 73 20 68 65 61 64 65 |t.h>.XTh|is heade|
|000006d0| 72 20 66 69 6c 65 20 6d | 75 73 74 20 62 65 20 69 |r file m|ust be i|
|000006e0| 6e 63 6c 75 64 65 64 20 | 62 79 20 61 6e 79 20 66 |ncluded |by any f|
|000006f0| 69 6c 65 73 20 74 68 61 | 74 20 75 73 65 20 61 6e |iles tha|t use an|
|00000700| 79 20 6f 66 20 74 68 65 | 20 72 6f 75 74 69 6e 65 |y of the| routine|
|00000710| 73 0a 58 64 65 73 63 72 | 69 62 65 64 20 68 65 72 |s.Xdescr|ibed her|
|00000720| 65 2e 20 20 59 6f 75 20 | 6d 75 73 74 20 61 6c 73 |e.  You |must als|
|00000730| 6f 20 23 69 6e 63 6c 75 | 64 65 20 3c 64 65 73 63 |o #inclu|de <desc|
|00000740| 72 69 70 2e 68 3e 20 66 | 69 72 73 74 2e 0a 58 0a |rip.h> f|irst..X.|
|00000750| 58 20 20 20 20 44 49 52 | 20 2a 0a 58 20 20 20 20 |X    DIR| *.X    |
|00000760| 6f 70 65 6e 64 69 72 28 | 6e 61 6d 65 29 0a 58 09 |opendir(|name).X.|
|00000770| 63 68 61 72 09 2a 6e 61 | 6d 65 3b 0a 58 4e 41 4d |char.*na|me;.XNAM|
|00000780| 45 20 69 73 20 61 20 66 | 69 6c 65 73 70 65 63 20 |E is a f|ilespec |
|00000790| 74 68 61 74 20 6e 61 6d | 65 73 20 61 20 64 69 72 |that nam|es a dir|
|000007a0| 65 63 74 6f 72 79 2e 20 | 20 49 74 20 64 6f 65 73 |ectory. | It does|
|000007b0| 20 6e 6f 74 20 68 61 76 | 65 20 74 6f 20 62 65 20 | not hav|e to be |
|000007c0| 69 6e 0a 58 73 74 72 69 | 63 74 20 63 61 6e 6f 6e |in.Xstri|ct canon|
|000007d0| 69 63 61 6c 20 66 6f 72 | 6d 20 2d 2d 20 6c 6f 67 |ical for|m -- log|
|000007e0| 69 63 61 6c 73 20 73 75 | 63 68 20 61 73 20 22 73 |icals su|ch as "s|
|000007f0| 79 73 24 6c 6f 67 69 6e | 3a 22 20 77 69 6c 6c 20 |ys$login|:" will |
|00000800| 62 65 20 65 78 70 61 6e | 64 65 64 2e 0a 58 4f 6e |be expan|ded..XOn|
|00000810| 63 65 20 74 68 65 20 64 | 69 72 65 63 74 6f 72 79 |ce the d|irectory|
|00000820| 20 68 61 73 20 62 65 65 | 6e 20 6f 70 65 6e 65 64 | has bee|n opened|
|00000830| 2c 20 61 6e 79 20 6f 66 | 20 74 68 65 20 6f 74 68 |, any of| the oth|
|00000840| 65 72 20 72 6f 75 74 69 | 6e 65 73 20 64 65 73 63 |er routi|nes desc|
|00000850| 72 69 62 65 64 0a 58 68 | 65 72 65 20 63 61 6e 20 |ribed.Xh|ere can |
|00000860| 62 65 20 75 73 65 64 20 | 6f 6e 20 74 68 65 20 68 |be used |on the h|
|00000870| 61 6e 64 6c 65 20 74 68 | 61 74 20 69 73 20 72 65 |andle th|at is re|
|00000880| 74 75 72 6e 65 64 2e 0a | 58 0a 58 0a 58 20 20 20 |turned..|X.X.X   |
|00000890| 20 76 6f 69 64 0a 58 20 | 20 20 20 76 6d 73 72 65 | void.X |   vmsre|
|000008a0| 61 64 64 69 72 76 65 72 | 73 69 6f 6e 73 28 64 64 |addirver|sions(dd|
|000008b0| 2c 20 66 6c 61 67 29 0a | 58 09 44 49 52 09 09 2a |, flag).|X.DIR..*|
|000008c0| 64 64 3b 0a 58 09 69 6e | 74 09 09 66 6c 61 67 3b |dd;.X.in|t..flag;|
|000008d0| 0a 58 42 79 20 64 65 66 | 61 75 6c 74 2c 20 52 45 |.XBy def|ault, RE|
|000008e0| 41 44 44 49 52 28 29 20 | 69 67 6e 6f 72 65 73 20 |ADDIR() |ignores |
|000008f0| 66 69 6c 65 20 76 65 72 | 73 69 6f 6e 73 2c 20 61 |file ver|sions, a|
|00000900| 6e 64 20 72 65 74 75 72 | 6e 73 20 61 20 66 69 6c |nd retur|ns a fil|
|00000910| 65 20 6e 61 6d 65 20 6f | 6e 63 65 2c 0a 58 6e 6f |e name o|nce,.Xno|
|00000920| 20 6d 61 74 74 65 72 20 | 68 6f 77 20 6d 61 6e 79 | matter |how many|
|00000930| 20 76 65 72 73 69 6f 6e | 73 20 69 74 20 68 61 73 | version|s it has|
|00000940| 2e 20 20 54 68 69 73 20 | 72 6f 75 74 69 6e 65 20 |.  This |routine |
|00000950| 63 61 6e 20 62 65 20 75 | 73 65 64 20 74 6f 20 63 |can be u|sed to c|
|00000960| 6f 6c 6c 65 63 74 0a 58 | 74 68 65 20 76 65 72 73 |ollect.X|the vers|
|00000970| 69 6f 6e 20 6e 75 6d 62 | 65 72 73 20 69 6e 20 61 |ion numb|ers in a|
|00000980| 6e 20 74 68 61 74 20 69 | 73 20 72 65 74 75 72 6e |n that i|s return|
|00000990| 65 64 20 77 69 74 68 20 | 65 61 63 68 20 66 69 6c |ed with |each fil|
|000009a0| 65 2e 20 20 54 68 65 20 | 46 4c 41 47 0a 58 61 72 |e.  The |FLAG.Xar|
|000009b0| 67 75 6d 65 6e 74 20 73 | 68 6f 75 6c 64 20 62 65 |gument s|hould be|
|000009c0| 20 6e 6f 6e 2d 7a 65 72 | 6f 20 74 6f 20 63 6f 6c | non-zer|o to col|
|000009d0| 6c 65 63 74 20 76 65 72 | 73 69 6f 6e 20 69 6e 66 |lect ver|sion inf|
|000009e0| 6f 72 6d 61 74 69 6f 6e | 2c 20 6f 72 20 7a 65 72 |ormation|, or zer|
|000009f0| 6f 20 74 6f 0a 58 69 67 | 6e 6f 72 65 20 69 74 2e |o to.Xig|nore it.|
|00000a00| 20 20 54 68 69 73 20 72 | 6f 75 74 69 6e 65 20 63 |  This r|outine c|
|00000a10| 61 6e 20 62 65 20 63 61 | 6c 6c 65 64 20 61 6e 79 |an be ca|lled any|
|00000a20| 20 6e 75 6d 62 65 72 20 | 6f 66 20 74 69 6d 65 73 | number |of times|
|00000a30| 20 77 68 69 6c 65 20 74 | 68 65 0a 58 64 69 72 65 | while t|he.Xdire|
|00000a40| 63 74 6f 72 79 20 69 73 | 20 6f 70 65 6e 2e 0a 58 |ctory is| open..X|
|00000a50| 0a 58 0a 58 20 20 20 20 | 76 6f 69 64 0a 58 20 20 |.X.X    |void.X  |
|00000a60| 20 20 63 6c 6f 73 65 64 | 69 72 28 64 64 29 0a 58 |  closed|ir(dd).X|
|00000a70| 09 44 49 52 09 09 2a 64 | 64 3b 0a 58 4f 6e 63 65 |.DIR..*d|d;.XOnce|
|00000a80| 20 79 6f 75 20 61 72 65 | 20 66 69 6e 69 73 68 65 | you are| finishe|
|00000a90| 64 20 72 65 61 64 69 6e | 67 20 74 68 65 20 63 6f |d readin|g the co|
|00000aa0| 6e 74 65 6e 74 73 20 6f | 66 20 61 20 64 69 72 65 |ntents o|f a dire|
|00000ab0| 63 74 6f 72 79 2c 20 74 | 68 65 20 43 4c 4f 53 45 |ctory, t|he CLOSE|
|00000ac0| 44 49 52 28 29 0a 58 72 | 6f 75 74 69 6e 65 20 66 |DIR().Xr|outine f|
|00000ad0| 72 65 65 73 20 75 70 20 | 61 6c 6c 20 74 68 65 20 |rees up |all the |
|00000ae0| 73 74 6f 72 61 67 65 20 | 61 73 73 6f 63 69 61 74 |storage |associat|
|00000af0| 65 64 20 77 69 74 68 20 | 69 74 2c 20 61 6e 64 20 |ed with |it, and |
|00000b00| 69 6e 76 61 6c 69 64 61 | 74 65 73 20 74 68 65 0a |invalida|tes the.|
|00000b10| 58 68 61 6e 64 6c 65 2e | 0a 58 0a 58 0a 58 20 20 |Xhandle.|.X.X.X  |
|00000b20| 20 20 73 74 72 75 63 74 | 20 64 69 72 65 6e 74 20 |  struct| dirent |
|00000b30| 2a 0a 58 20 20 20 20 72 | 65 61 64 64 69 72 28 64 |*.X    r|eaddir(d|
|00000b40| 64 29 0a 58 09 44 49 52 | 09 09 2a 64 64 3b 0a 58 |d).X.DIR|..*dd;.X|
|00000b50| 54 68 65 20 52 45 41 44 | 44 49 52 28 29 20 72 6f |The READ|DIR() ro|
|00000b60| 75 74 69 6e 65 20 74 61 | 6b 65 73 20 61 20 68 61 |utine ta|kes a ha|
|00000b70| 6e 64 6c 65 20 72 65 74 | 75 72 6e 65 64 20 62 79 |ndle ret|urned by|
|00000b80| 20 4f 50 45 4e 44 49 52 | 28 29 20 61 6e 64 20 72 | OPENDIR|() and r|
|00000b90| 65 74 75 72 6e 73 20 74 | 68 65 0a 58 6e 61 6d 65 |eturns t|he.Xname|
|00000ba0| 20 6f 66 20 74 68 65 20 | 6e 65 78 74 20 66 69 6c | of the |next fil|
|00000bb0| 65 20 69 6e 20 74 68 65 | 20 64 69 72 65 63 74 6f |e in the| directo|
|00000bc0| 72 79 2c 20 6f 72 20 61 | 20 4e 55 4c 4c 20 70 6f |ry, or a| NULL po|
|00000bd0| 69 6e 74 65 72 20 77 68 | 65 6e 20 74 68 65 72 65 |inter wh|en there|
|00000be0| 20 61 72 65 0a 58 6e 6f | 20 6d 6f 72 65 20 66 69 | are.Xno| more fi|
|00000bf0| 6c 65 73 2e 20 20 54 68 | 65 20 53 54 52 55 43 54 |les.  Th|e STRUCT|
|00000c00| 20 44 49 52 45 4e 54 20 | 72 65 74 75 72 6e 65 64 | DIRENT |returned|
|00000c10| 20 62 79 20 74 68 69 73 | 20 72 6f 75 74 69 6e 65 | by this| routine|
|00000c20| 20 77 69 6c 6c 20 68 61 | 76 65 20 74 68 65 0a 58 | will ha|ve the.X|
|00000c30| 66 6f 6c 6c 6f 77 69 6e | 67 20 66 69 65 6c 64 73 |followin|g fields|
|00000c40| 20 74 68 61 74 20 6d 61 | 79 20 62 65 20 61 63 63 | that ma|y be acc|
|00000c50| 65 73 73 65 64 20 62 79 | 20 75 73 65 72 20 63 6f |essed by| user co|
|00000c60| 64 65 3a 0a 58 20 20 20 | 20 64 5f 6e 61 6d 65 5b |de:.X   | d_name[|
|00000c70| 5d 09 09 41 20 43 20 63 | 68 61 72 61 63 74 65 72 |]..A C c|haracter|
|00000c80| 20 73 74 72 69 6e 67 20 | 77 69 74 68 20 74 68 65 | string |with the|
|00000c90| 20 66 69 6c 65 20 6e 61 | 6d 65 0a 58 20 20 20 20 | file na|me.X    |
|00000ca0| 76 6d 73 5f 76 65 72 73 | 63 6f 75 6e 74 09 54 68 |vms_vers|count.Th|
|00000cb0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 76 65 72 73 |e number| of vers|
|00000cc0| 69 6f 6e 73 20 74 68 65 | 20 66 69 6c 65 20 68 61 |ions the| file ha|
|00000cd0| 73 0a 58 20 20 20 20 76 | 6d 73 5f 76 65 72 73 69 |s.X    v|ms_versi|
|00000ce0| 6f 6e 73 5b 5d 09 41 6e | 20 61 72 72 61 79 20 6f |ons[].An| array o|
|00000cf0| 66 20 74 68 65 20 76 65 | 72 73 69 6f 6e 20 6e 75 |f the ve|rsion nu|
|00000d00| 6d 62 65 72 73 3b 20 74 | 68 65 20 6e 75 6d 62 65 |mbers; t|he numbe|
|00000d10| 72 20 2d 31 0a 58 09 09 | 09 69 6e 64 69 63 61 74 |r -1.X..|.indicat|
|00000d20| 65 73 20 61 20 66 69 6c | 65 2d 70 61 72 73 69 6e |es a fil|e-parsin|
|00000d30| 67 20 65 72 72 6f 72 2e | 0a 58 4e 6f 74 65 20 74 |g error.|.XNote t|
|00000d40| 68 61 74 20 74 68 65 20 | 66 69 65 6c 64 73 20 73 |hat the |fields s|
|00000d50| 74 61 72 74 69 6e 67 20 | 77 69 74 68 20 22 76 6d |tarting |with "vm|
|00000d60| 73 5f 22 20 61 72 65 20 | 6e 6f 74 20 70 61 72 74 |s_" are |not part|
|00000d70| 20 6f 66 20 74 68 65 20 | 73 74 61 6e 64 61 72 64 | of the |standard|
|00000d80| 0a 58 52 45 41 44 44 49 | 52 28 29 20 6c 69 62 72 |.XREADDI|R() libr|
|00000d90| 61 72 79 20 61 76 61 69 | 6c 61 62 6c 65 20 6f 6e |ary avai|lable on|
|00000da0| 20 6f 74 68 65 72 20 73 | 79 73 74 65 6d 73 2c 20 | other s|ystems, |
|00000db0| 73 6f 20 73 74 72 69 63 | 74 6c 79 20 70 6f 72 74 |so stric|tly port|
|00000dc0| 61 62 6c 65 20 63 6f 64 | 65 0a 58 73 68 6f 75 6c |able cod|e.Xshoul|
|00000dd0| 64 20 74 61 6b 65 20 63 | 61 72 65 20 74 6f 20 61 |d take c|are to a|
|00000de0| 76 6f 69 64 20 75 73 69 | 6e 67 20 74 68 65 6d 20 |void usi|ng them |
|00000df0| 65 78 63 65 70 74 20 6f | 6e 20 56 4d 53 20 6d 61 |except o|n VMS ma|
|00000e00| 63 68 69 6e 65 73 2e 0a | 58 0a 58 20 20 20 20 6c |chines..|X.X    l|
|00000e10| 6f 6e 67 0a 58 20 20 20 | 20 74 65 6c 6c 64 69 72 |ong.X   | telldir|
|00000e20| 28 64 64 29 0a 58 09 44 | 49 52 09 09 2a 64 64 3b |(dd).X.D|IR..*dd;|
|00000e30| 0a 58 54 68 69 73 20 72 | 6f 75 74 69 6e 65 20 72 |.XThis r|outine r|
|00000e40| 65 74 75 72 6e 73 20 61 | 20 22 6d 61 67 69 63 20 |eturns a| "magic |
|00000e50| 63 6f 6f 6b 69 65 22 20 | 74 68 61 74 20 63 61 6e |cookie" |that can|
|00000e60| 20 62 65 20 75 73 65 64 | 20 69 6e 20 61 20 6c 61 | be used| in a la|
|00000e70| 74 65 72 0a 58 53 45 45 | 4b 44 49 52 28 29 20 63 |ter.XSEE|KDIR() c|
|00000e80| 61 6c 6c 2e 20 20 54 68 | 69 73 20 61 6c 6c 6f 77 |all.  Th|is allow|
|00000e90| 73 20 79 6f 75 20 74 6f | 20 72 65 6d 65 6d 62 65 |s you to| remembe|
|00000ea0| 72 20 6f 6e 65 20 6f 72 | 20 6d 6f 72 65 20 73 70 |r one or| more sp|
|00000eb0| 6f 74 73 20 77 68 69 6c | 65 0a 58 72 65 61 64 69 |ots whil|e.Xreadi|
|00000ec0| 6e 67 20 74 68 72 6f 75 | 67 68 20 61 20 64 69 72 |ng throu|gh a dir|
|00000ed0| 65 63 74 6f 72 79 20 61 | 6e 64 20 72 65 74 75 72 |ectory a|nd retur|
|00000ee0| 6e 20 74 6f 20 74 68 65 | 6d 20 6c 61 74 65 72 2e |n to the|m later.|
|00000ef0| 0a 58 0a 58 0a 58 20 20 | 20 20 76 6f 69 64 0a 58 |.X.X.X  |  void.X|
|00000f00| 20 20 20 20 73 65 65 6b | 64 69 72 28 64 64 2c 20 |    seek|dir(dd, |
|00000f10| 70 6f 73 29 0a 58 09 44 | 49 52 09 09 2a 64 64 3b |pos).X.D|IR..*dd;|
|00000f20| 0a 58 09 6c 6f 6e 67 09 | 09 70 6f 73 3b 0a 58 54 |.X.long.|.pos;.XT|
|00000f30| 68 65 20 53 45 45 4b 44 | 49 52 28 29 20 72 6f 75 |he SEEKD|IR() rou|
|00000f40| 74 69 6e 65 20 74 61 6b | 65 73 20 74 68 65 20 22 |tine tak|es the "|
|00000f50| 63 6f 6f 6b 69 65 22 20 | 72 65 74 75 72 6e 65 64 |cookie" |returned|
|00000f60| 20 62 79 20 61 20 70 72 | 65 76 69 6f 75 73 20 63 | by a pr|evious c|
|00000f70| 61 6c 6c 20 74 6f 0a 58 | 54 45 4c 4c 44 49 52 28 |all to.X|TELLDIR(|
|00000f80| 29 20 61 6e 64 20 73 65 | 74 73 20 74 68 65 20 69 |) and se|ts the i|
|00000f90| 6e 74 65 72 6e 61 6c 20 | 73 74 61 74 65 20 73 6f |nternal |state so|
|00000fa0| 20 74 68 61 74 20 74 68 | 65 20 6e 65 78 74 20 52 | that th|e next R|
|00000fb0| 45 41 44 44 49 52 28 29 | 20 63 61 6c 6c 20 77 69 |EADDIR()| call wi|
|00000fc0| 6c 6c 0a 58 72 65 74 75 | 72 6e 20 74 68 65 20 66 |ll.Xretu|rn the f|
|00000fd0| 69 6c 65 20 72 65 61 64 | 20 6a 75 73 74 20 61 66 |ile read| just af|
|00000fe0| 74 65 72 20 74 68 65 20 | 54 45 4c 4c 44 49 52 28 |ter the |TELLDIR(|
|00000ff0| 29 20 63 61 6c 6c 2e 0a | 58 0a 58 20 20 20 20 76 |) call..|X.X    v|
|00001000| 6f 69 64 0a 58 20 20 20 | 20 72 65 77 69 6e 64 64 |oid.X   | rewindd|
|00001010| 69 72 28 64 64 29 0a 58 | 09 44 49 52 09 09 2a 64 |ir(dd).X|.DIR..*d|
|00001020| 64 3b 0a 58 54 68 65 20 | 52 45 57 49 4e 44 44 49 |d;.XThe |REWINDDI|
|00001030| 52 28 29 20 72 6f 75 74 | 69 6e 65 20 72 65 73 65 |R() rout|ine rese|
|00001040| 74 73 20 74 68 65 20 69 | 6e 74 65 72 6e 61 6c 20 |ts the i|nternal |
|00001050| 73 74 61 74 65 20 6f 66 | 20 74 68 65 20 44 44 20 |state of| the DD |
|00001060| 68 61 6e 64 6c 65 20 73 | 6f 20 74 68 61 74 0a 58 |handle s|o that.X|
|00001070| 52 45 41 44 44 49 52 28 | 29 20 73 74 61 72 74 73 |READDIR(|) starts|
|00001080| 20 72 65 61 64 69 6e 67 | 20 6f 76 65 72 20 66 72 | reading| over fr|
|00001090| 6f 6d 20 74 68 65 20 62 | 65 67 69 6e 6e 69 6e 67 |om the b|eginning|
|000010a0| 20 6f 66 20 74 68 65 20 | 64 69 72 65 63 74 6f 72 | of the |director|
|000010b0| 79 2e 0a 58 0a 58 48 65 | 72 65 20 69 73 20 61 20 |y..X.XHe|re is a |
|000010c0| 73 61 6d 70 6c 65 20 72 | 6f 75 74 69 6e 65 20 73 |sample r|outine s|
|000010d0| 68 6f 77 69 6e 67 20 68 | 6f 77 20 74 6f 20 75 73 |howing h|ow to us|
|000010e0| 65 20 74 68 65 20 70 61 | 63 6b 61 67 65 3a 0a 58 |e the pa|ckage:.X|
|000010f0| 20 20 20 20 6d 61 69 6e | 28 29 0a 58 20 20 20 20 |    main|().X    |
|00001100| 7b 0a 58 09 44 49 52 09 | 09 2a 64 64 3b 0a 58 09 |{.X.DIR.|.*dd;.X.|
|00001110| 73 74 72 75 63 74 20 64 | 69 72 65 6e 74 09 2a 64 |struct d|irent.*d|
|00001120| 70 3b 0a 58 09 69 6e 74 | 09 09 69 3b 0a 58 0a 58 |p;.X.int|..i;.X.X|
|00001130| 09 69 66 20 28 28 64 64 | 20 3d 20 6f 70 65 6e 64 |.if ((dd| = opend|
|00001140| 69 72 28 22 73 79 73 24 | 6c 6f 67 69 6e 22 29 29 |ir("sys$|login"))|
|00001150| 20 3d 3d 20 4e 55 4c 4c | 29 20 7b 0a 58 09 20 20 | == NULL|) {.X.  |
|00001160| 20 20 70 65 72 72 6f 72 | 28 62 75 66 66 29 3b 0a |  perror|(buff);.|
|00001170| 58 09 20 20 20 20 63 6f | 6e 74 69 6e 75 65 3b 0a |X.    co|ntinue;.|
|00001180| 58 09 7d 0a 58 09 76 6d | 73 72 65 61 64 64 69 72 |X.}.X.vm|sreaddir|
|00001190| 76 65 72 73 69 6f 6e 73 | 28 64 64 2c 20 31 29 3b |versions|(dd, 1);|
|000011a0| 0a 58 0a 58 09 77 68 69 | 6c 65 20 28 64 70 20 3d |.X.X.whi|le (dp =|
|000011b0| 20 72 65 61 64 64 69 72 | 28 64 64 29 29 20 7b 0a | readdir|(dd)) {.|
|000011c0| 58 09 20 20 20 20 70 72 | 69 6e 74 66 28 22 25 73 |X.    pr|intf("%s|
|000011d0| 22 2c 20 64 70 2d 3e 64 | 5f 6e 61 6d 65 29 3b 0a |", dp->d|_name);.|
|000011e0| 58 09 20 20 20 20 66 6f | 72 20 28 69 20 3d 20 30 |X.    fo|r (i = 0|
|000011f0| 3b 20 69 20 3c 20 64 70 | 2d 3e 76 6d 73 5f 76 65 |; i < dp|->vms_ve|
|00001200| 72 73 63 6f 75 6e 74 3b | 20 69 2b 2b 29 0a 58 09 |rscount;| i++).X.|
|00001210| 09 70 72 69 6e 74 66 28 | 22 20 20 25 64 22 2c 20 |.printf(|"  %d", |
|00001220| 64 70 2d 3e 76 6d 73 5f | 76 65 72 73 69 6f 6e 73 |dp->vms_|versions|
|00001230| 5b 69 5d 29 3b 0a 58 09 | 20 20 20 20 70 72 69 6e |[i]);.X.|    prin|
|00001240| 74 66 28 22 5c 6e 22 29 | 3b 0a 58 09 7d 0a 58 09 |tf("\n")|;.X.}.X.|
|00001250| 63 6c 6f 73 65 64 69 72 | 28 64 64 29 3b 0a 58 09 |closedir|(dd);.X.|
|00001260| 65 78 69 74 28 30 29 3b | 0a 58 20 20 20 20 7d 0a |exit(0);|.X    }.|
|00001270| 45 4e 44 5f 4f 46 5f 46 | 49 4c 45 0a 20 20 69 66 |END_OF_F|ILE.  if|
|00001280| 20 74 65 73 74 20 33 33 | 30 36 20 2d 6e 65 20 60 | test 33|06 -ne `|
|00001290| 77 63 20 2d 63 20 3c 27 | 52 45 41 44 4d 45 27 60 |wc -c <'|README'`|
|000012a0| 3b 20 74 68 65 6e 0a 20 | 20 20 20 65 63 68 6f 20 |; then. |   echo |
|000012b0| 73 68 61 72 3a 20 5c 22 | 27 52 45 41 44 4d 45 27 |shar: \"|'README'|
|000012c0| 5c 22 20 75 6e 70 61 63 | 6b 65 64 20 77 69 74 68 |\" unpac|ked with|
|000012d0| 20 77 72 6f 6e 67 20 73 | 69 7a 65 21 0a 20 20 66 | wrong s|ize!.  f|
|000012e0| 69 0a 20 20 23 20 65 6e | 64 20 6f 66 20 27 52 45 |i.  # en|d of 'RE|
|000012f0| 41 44 4d 45 27 0a 66 69 | 0a 69 66 20 74 65 73 74 |ADME'.fi|.if test|
|00001300| 20 2d 66 20 27 64 69 72 | 65 6e 74 2e 68 27 20 2d | -f 'dir|ent.h' -|
|00001310| 61 20 22 24 7b 31 7d 22 | 20 21 3d 20 22 2d 63 22 |a "${1}"| != "-c"|
|00001320| 20 3b 20 74 68 65 6e 20 | 0a 20 20 65 63 68 6f 20 | ; then |.  echo |
|00001330| 73 68 61 72 3a 20 57 69 | 6c 6c 20 6e 6f 74 20 63 |shar: Wi|ll not c|
|00001340| 6c 6f 62 62 65 72 20 65 | 78 69 73 74 69 6e 67 20 |lobber e|xisting |
|00001350| 66 69 6c 65 20 5c 22 27 | 64 69 72 65 6e 74 2e 68 |file \"'|dirent.h|
|00001360| 27 5c 22 0a 65 6c 73 65 | 0a 20 20 65 63 68 6f 20 |'\".else|.  echo |
|00001370| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00001380| 20 5c 22 27 64 69 72 65 | 6e 74 2e 68 27 5c 22 20 | \"'dire|nt.h'\" |
|00001390| 5c 28 39 31 35 20 63 68 | 61 72 61 63 74 65 72 73 |\(915 ch|aracters|
|000013a0| 5c 29 0a 20 20 73 65 64 | 20 22 73 2f 5e 58 2f 2f |\).  sed| "s/^X//|
|000013b0| 22 20 3e 27 64 69 72 65 | 6e 74 2e 68 27 20 3c 3c |" >'dire|nt.h' <<|
|000013c0| 27 45 4e 44 5f 4f 46 5f | 46 49 4c 45 27 0a 58 2f |'END_OF_|FILE'.X/|
|000013d0| 2a 0a 58 2a 2a 20 20 48 | 65 61 64 65 72 20 66 69 |*.X**  H|eader fi|
|000013e0| 6c 65 20 66 6f 72 20 56 | 4d 53 20 72 65 61 64 64 |le for V|MS readd|
|000013f0| 69 72 28 29 20 72 6f 75 | 74 69 6e 65 73 2e 0a 58 |ir() rou|tines..X|
|00001400| 2a 2a 20 20 57 72 69 74 | 74 65 6e 20 62 79 20 52 |**  Writ|ten by R|
|00001410| 69 63 68 20 24 61 6c 7a | 2c 20 3c 72 73 61 6c 7a |ich $alz|, <rsalz|
|00001420| 40 62 62 6e 2e 63 6f 6d | 3e 20 69 6e 20 41 75 67 |@bbn.com|> in Aug|
|00001430| 75 73 74 2c 20 31 39 39 | 30 2e 0a 58 2a 2a 20 20 |ust, 199|0..X**  |
|00001440| 54 68 69 73 20 63 6f 64 | 65 20 68 61 73 20 6e 6f |This cod|e has no|
|00001450| 20 63 6f 70 79 72 69 67 | 68 74 2e 0a 58 2a 2a 0a | copyrig|ht..X**.|
|00001460| 58 2a 2a 20 20 59 6f 75 | 20 6d 75 73 74 20 23 69 |X**  You| must #i|
|00001470| 6e 63 6c 75 64 65 20 3c | 64 65 73 63 72 69 70 2e |nclude <|descrip.|
|00001480| 68 3e 20 62 65 66 6f 72 | 65 20 74 68 69 73 20 66 |h> befor|e this f|
|00001490| 69 6c 65 2e 0a 58 2a 2f | 0a 58 0a 58 20 20 20 20 |ile..X*/|.X.X    |
|000014a0| 2f 2a 20 44 61 74 61 20 | 73 74 72 75 63 74 75 72 |/* Data |structur|
|000014b0| 65 20 72 65 74 75 72 6e | 65 64 20 62 79 20 52 45 |e return|ed by RE|
|000014c0| 41 44 44 49 52 28 29 2e | 20 2a 2f 0a 58 73 74 72 |ADDIR().| */.Xstr|
|000014d0| 75 63 74 20 64 69 72 65 | 6e 74 20 7b 0a 58 20 20 |uct dire|nt {.X  |
|000014e0| 20 20 63 68 61 72 09 64 | 5f 6e 61 6d 65 5b 31 30 |  char.d|_name[10|
|000014f0| 30 5d 3b 09 09 2f 2a 20 | 46 69 6c 65 20 6e 61 6d |0];../* |File nam|
|00001500| 65 09 09 2a 2f 0a 58 20 | 20 20 20 69 6e 74 09 09 |e..*/.X |   int..|
|00001510| 76 6d 73 5f 76 65 72 73 | 63 6f 75 6e 74 3b 09 09 |vms_vers|count;..|
|00001520| 2f 2a 20 4e 75 6d 62 65 | 72 20 6f 66 20 76 65 72 |/* Numbe|r of ver|
|00001530| 73 69 6f 6e 73 09 2a 2f | 0a 58 20 20 20 20 69 6e |sions.*/|.X    in|
|00001540| 74 09 09 76 6d 73 5f 76 | 65 72 73 69 6f 6e 73 5b |t..vms_v|ersions[|
|00001550| 32 30 5d 3b 09 2f 2a 20 | 56 65 72 73 69 6f 6e 20 |20];./* |Version |
|00001560| 6e 75 6d 62 65 72 73 09 | 2a 2f 0a 58 7d 3b 0a 58 |numbers.|*/.X};.X|
|00001570| 0a 58 20 20 20 20 2f 2a | 20 48 61 6e 64 6c 65 20 |.X    /*| Handle |
|00001580| 72 65 74 75 72 6e 65 64 | 20 62 79 20 6f 70 65 6e |returned| by open|
|00001590| 64 69 72 28 29 2c 20 75 | 73 65 64 20 62 79 20 74 |dir(), u|sed by t|
|000015a0| 68 65 20 6f 74 68 65 72 | 20 72 6f 75 74 69 6e 65 |he other| routine|
|000015b0| 73 2e 20 20 59 6f 75 0a | 58 20 20 20 20 20 2a 20 |s.  You.|X     * |
|000015c0| 61 72 65 20 6e 6f 74 20 | 73 75 70 70 6f 73 65 64 |are not |supposed|
|000015d0| 20 74 6f 20 63 61 72 65 | 20 77 68 61 74 27 73 20 | to care| what's |
|000015e0| 69 6e 73 69 64 65 20 74 | 68 69 73 20 73 74 72 75 |inside t|his stru|
|000015f0| 63 74 75 72 65 2e 20 2a | 2f 0a 58 74 79 70 65 64 |cture. *|/.Xtyped|
|00001600| 65 66 20 73 74 72 75 63 | 74 20 5f 64 69 72 64 65 |ef struc|t _dirde|
|00001610| 73 63 20 7b 0a 58 20 20 | 20 20 6c 6f 6e 67 09 09 |sc {.X  |  long..|
|00001620| 09 63 6f 6e 74 65 78 74 | 3b 0a 58 20 20 20 20 69 |.context|;.X    i|
|00001630| 6e 74 09 09 09 09 76 6d | 73 5f 77 61 6e 74 76 65 |nt....vm|s_wantve|
|00001640| 72 73 69 6f 6e 73 3b 0a | 58 20 20 20 20 63 68 61 |rsions;.|X    cha|
|00001650| 72 09 09 09 2a 70 61 74 | 74 65 72 6e 3b 0a 58 20 |r...*pat|tern;.X |
|00001660| 20 20 20 73 74 72 75 63 | 74 20 64 69 72 65 6e 74 |   struc|t dirent|
|00001670| 09 09 65 6e 74 72 79 3b | 0a 58 20 20 20 20 73 74 |..entry;|.X    st|
|00001680| 72 75 63 74 20 64 73 63 | 24 64 65 73 63 72 69 70 |ruct dsc|$descrip|
|00001690| 74 6f 72 5f 73 09 70 61 | 74 3b 0a 58 7d 20 44 49 |tor_s.pa|t;.X} DI|
|000016a0| 52 3b 0a 58 0a 58 0a 58 | 23 64 65 66 69 6e 65 20 |R;.X.X.X|#define |
|000016b0| 72 65 77 69 6e 64 64 69 | 72 28 64 69 72 70 29 09 |rewinddi|r(dirp).|
|000016c0| 09 73 65 65 6b 64 69 72 | 28 28 64 69 72 70 29 2c |.seekdir|((dirp),|
|000016d0| 20 30 4c 29 0a 58 0a 58 | 0a 58 65 78 74 65 72 6e | 0L).X.X|.Xextern|
|000016e0| 20 44 49 52 09 09 2a 6f | 70 65 6e 64 69 72 28 29 | DIR..*o|pendir()|
|000016f0| 3b 0a 58 65 78 74 65 72 | 6e 20 73 74 72 75 63 74 |;.Xexter|n struct|
|00001700| 20 64 69 72 65 6e 74 09 | 2a 72 65 61 64 64 69 72 | dirent.|*readdir|
|00001710| 28 29 3b 0a 58 65 78 74 | 65 72 6e 20 6c 6f 6e 67 |();.Xext|ern long|
|00001720| 09 09 74 65 6c 6c 64 69 | 72 28 29 3b 0a 58 65 78 |..telldi|r();.Xex|
|00001730| 74 65 72 6e 20 76 6f 69 | 64 09 09 73 65 65 6b 64 |tern voi|d..seekd|
|00001740| 69 72 28 29 3b 0a 58 65 | 78 74 65 72 6e 20 76 6f |ir();.Xe|xtern vo|
|00001750| 69 64 09 09 63 6c 6f 73 | 65 64 69 72 28 29 3b 0a |id..clos|edir();.|
|00001760| 58 65 78 74 65 72 6e 20 | 76 6f 69 64 09 09 76 6d |Xextern |void..vm|
|00001770| 73 72 65 61 64 64 69 72 | 76 65 72 73 69 6f 6e 73 |sreaddir|versions|
|00001780| 28 29 3b 0a 45 4e 44 5f | 4f 46 5f 46 49 4c 45 0a |();.END_|OF_FILE.|
|00001790| 20 20 69 66 20 74 65 73 | 74 20 39 31 35 20 2d 6e |  if tes|t 915 -n|
|000017a0| 65 20 60 77 63 20 2d 63 | 20 3c 27 64 69 72 65 6e |e `wc -c| <'diren|
|000017b0| 74 2e 68 27 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |t.h'`; t|hen.    |
|000017c0| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 27 64 69 |echo sha|r: \"'di|
|000017d0| 72 65 6e 74 2e 68 27 5c | 22 20 75 6e 70 61 63 6b |rent.h'\|" unpack|
|000017e0| 65 64 20 77 69 74 68 20 | 77 72 6f 6e 67 20 73 69 |ed with |wrong si|
|000017f0| 7a 65 21 0a 20 20 66 69 | 0a 20 20 23 20 65 6e 64 |ze!.  fi|.  # end|
|00001800| 20 6f 66 20 27 64 69 72 | 65 6e 74 2e 68 27 0a 66 | of 'dir|ent.h'.f|
|00001810| 69 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 76 6d |i.if tes|t -f 'vm|
|00001820| 73 72 65 61 64 64 69 72 | 2e 63 27 20 2d 61 20 22 |sreaddir|.c' -a "|
|00001830| 24 7b 31 7d 22 20 21 3d | 20 22 2d 63 22 20 3b 20 |${1}" !=| "-c" ; |
|00001840| 74 68 65 6e 20 0a 20 20 | 65 63 68 6f 20 73 68 61 |then .  |echo sha|
|00001850| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 63 6c 6f 62 |r: Will |not clob|
|00001860| 62 65 72 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ber exis|ting fil|
|00001870| 65 20 5c 22 27 76 6d 73 | 72 65 61 64 64 69 72 2e |e \"'vms|readdir.|
|00001880| 63 27 5c 22 0a 65 6c 73 | 65 0a 20 20 65 63 68 6f |c'\".els|e.  echo|
|00001890| 20 73 68 61 72 3a 20 45 | 78 74 72 61 63 74 69 6e | shar: E|xtractin|
|000018a0| 67 20 5c 22 27 76 6d 73 | 72 65 61 64 64 69 72 2e |g \"'vms|readdir.|
|000018b0| 63 27 5c 22 20 5c 28 35 | 30 31 34 20 63 68 61 72 |c'\" \(5|014 char|
|000018c0| 61 63 74 65 72 73 5c 29 | 0a 20 20 73 65 64 20 22 |acters\)|.  sed "|
|000018d0| 73 2f 5e 58 2f 2f 22 20 | 3e 27 76 6d 73 72 65 61 |s/^X//" |>'vmsrea|
|000018e0| 64 64 69 72 2e 63 27 20 | 3c 3c 27 45 4e 44 5f 4f |ddir.c' |<<'END_O|
|000018f0| 46 5f 46 49 4c 45 27 0a | 58 2f 2a 0a 58 2a 2a 20 |F_FILE'.|X/*.X** |
|00001900| 20 56 4d 53 20 72 65 61 | 64 64 69 72 28 29 20 72 | VMS rea|ddir() r|
|00001910| 6f 75 74 69 6e 65 73 2e | 0a 58 2a 2a 20 20 57 72 |outines.|.X**  Wr|
|00001920| 69 74 74 65 6e 20 62 79 | 20 52 69 63 68 20 24 61 |itten by| Rich $a|
|00001930| 6c 7a 2c 20 3c 72 73 61 | 6c 7a 40 62 62 6e 2e 63 |lz, <rsa|lz@bbn.c|
|00001940| 6f 6d 3e 20 69 6e 20 41 | 75 67 75 73 74 2c 20 31 |om> in A|ugust, 1|
|00001950| 39 39 30 2e 0a 58 2a 2a | 20 20 54 68 69 73 20 63 |990..X**|  This c|
|00001960| 6f 64 65 20 68 61 73 20 | 6e 6f 20 63 6f 70 79 72 |ode has |no copyr|
|00001970| 69 67 68 74 2e 0a 58 2a | 2f 0a 58 23 69 6e 63 6c |ight..X*|/.X#incl|
|00001980| 75 64 65 20 3c 73 74 64 | 69 6f 2e 68 3e 0a 58 23 |ude <std|io.h>.X#|
|00001990| 69 6e 63 6c 75 64 65 20 | 3c 63 74 79 70 65 2e 68 |include |<ctype.h|
|000019a0| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 65 72 72 |>.X#incl|ude <err|
|000019b0| 6e 6f 2e 68 3e 0a 58 23 | 69 6e 63 6c 75 64 65 20 |no.h>.X#|include |
|000019c0| 3c 64 65 73 63 72 69 70 | 2e 68 3e 0a 58 23 69 6e |<descrip|.h>.X#in|
|000019d0| 63 6c 75 64 65 20 3c 72 | 6d 73 64 65 66 2e 68 3e |clude <r|msdef.h>|
|000019e0| 0a 58 23 69 6e 63 6c 75 | 64 65 20 22 64 69 72 65 |.X#inclu|de "dire|
|000019f0| 6e 74 2e 68 22 0a 58 0a | 58 20 20 20 20 2f 2a 20 |nt.h".X.|X    /* |
|00001a00| 55 6e 63 6f 6d 6d 65 6e | 74 20 74 68 65 20 6e 65 |Uncommen|t the ne|
|00001a10| 78 74 20 6c 69 6e 65 20 | 74 6f 20 67 65 74 20 61 |xt line |to get a|
|00001a20| 20 74 65 73 74 20 72 6f | 75 74 69 6e 65 2e 20 2a | test ro|utine. *|
|00001a30| 2f 0a 58 2f 2a 23 64 65 | 66 69 6e 65 20 54 45 53 |/.X/*#de|fine TES|
|00001a40| 54 2a 2f 0a 58 0a 58 20 | 20 20 20 2f 2a 20 4e 75 |T*/.X.X |   /* Nu|
|00001a50| 6d 62 65 72 20 6f 66 20 | 65 6c 65 6d 65 6e 74 73 |mber of |elements|
|00001a60| 20 69 6e 20 76 6d 73 5f | 76 65 72 73 69 6f 6e 73 | in vms_|versions|
|00001a70| 20 61 72 72 61 79 20 2a | 2f 0a 58 23 64 65 66 69 | array *|/.X#defi|
|00001a80| 6e 65 20 56 45 52 53 49 | 5a 45 28 65 29 09 28 73 |ne VERSI|ZE(e).(s|
|00001a90| 69 7a 65 6f 66 20 65 2d | 3e 76 6d 73 5f 76 65 72 |izeof e-|>vms_ver|
|00001aa0| 73 69 6f 6e 73 20 2f 20 | 73 69 7a 65 6f 66 20 65 |sions / |sizeof e|
|00001ab0| 2d 3e 76 6d 73 5f 76 65 | 72 73 69 6f 6e 73 5b 30 |->vms_ve|rsions[0|
|00001ac0| 5d 29 0a 58 0a 58 20 20 | 20 20 2f 2a 20 4c 69 6e |]).X.X  |  /* Lin|
|00001ad0| 6b 65 64 20 69 6e 20 6c | 61 74 65 72 2e 20 2a 2f |ked in l|ater. */|
|00001ae0| 0a 58 65 78 74 65 72 6e | 20 63 68 61 72 09 2a 6d |.Xextern| char.*m|
|00001af0| 61 6c 6c 6f 63 28 29 3b | 0a 58 65 78 74 65 72 6e |alloc();|.Xextern|
|00001b00| 20 63 68 61 72 09 2a 73 | 74 72 72 63 68 72 28 29 | char.*s|trrchr()|
|00001b10| 3b 0a 58 65 78 74 65 72 | 6e 20 63 68 61 72 09 2a |;.Xexter|n char.*|
|00001b20| 73 74 72 63 70 79 28 29 | 3b 0a 58 0a 58 0a 58 2f |strcpy()|;.X.X.X/|
|00001b30| 2a 0a 58 2a 2a 20 20 4f | 70 65 6e 20 61 20 64 69 |*.X**  O|pen a di|
|00001b40| 72 65 63 74 6f 72 79 2c | 20 72 65 74 75 72 6e 20 |rectory,| return |
|00001b50| 61 20 68 61 6e 64 6c 65 | 20 66 6f 72 20 6c 61 74 |a handle| for lat|
|00001b60| 65 72 20 75 73 65 2e 0a | 58 2a 2f 0a 58 44 49 52 |er use..|X*/.XDIR|
|00001b70| 20 2a 0a 58 6f 70 65 6e | 64 69 72 28 6e 61 6d 65 | *.Xopen|dir(name|
|00001b80| 29 0a 58 20 20 20 20 63 | 68 61 72 09 2a 6e 61 6d |).X    c|har.*nam|
|00001b90| 65 3b 0a 58 7b 0a 58 20 | 20 20 20 44 49 52 09 09 |e;.X{.X |   DIR..|
|00001ba0| 2a 64 64 3b 0a 58 0a 58 | 20 20 20 20 2f 2a 20 47 |*dd;.X.X|    /* G|
|00001bb0| 65 74 20 6d 65 6d 6f 72 | 79 20 66 6f 72 20 74 68 |et memor|y for th|
|00001bc0| 65 20 68 61 6e 64 6c 65 | 2c 20 61 6e 64 20 74 68 |e handle|, and th|
|00001bd0| 65 20 70 61 74 74 65 72 | 6e 2e 20 2a 2f 0a 58 20 |e patter|n. */.X |
|00001be0| 20 20 20 69 66 20 28 28 | 64 64 20 3d 20 28 44 49 |   if ((|dd = (DI|
|00001bf0| 52 20 2a 29 6d 61 6c 6c | 6f 63 28 73 69 7a 65 6f |R *)mall|oc(sizeo|
|00001c00| 66 20 2a 64 64 29 29 20 | 3d 3d 20 4e 55 4c 4c 29 |f *dd)) |== NULL)|
|00001c10| 20 7b 0a 58 09 65 72 72 | 6e 6f 20 3d 20 45 4e 4f | {.X.err|no = ENO|
|00001c20| 4d 45 4d 3b 0a 58 09 72 | 65 74 75 72 6e 20 4e 55 |MEM;.X.r|eturn NU|
|00001c30| 4c 4c 3b 0a 58 20 20 20 | 20 7d 0a 58 20 20 20 20 |LL;.X   | }.X    |
|00001c40| 64 64 2d 3e 70 61 74 74 | 65 72 6e 20 3d 20 6d 61 |dd->patt|ern = ma|
|00001c50| 6c 6c 6f 63 28 28 75 6e | 73 69 67 6e 65 64 20 69 |lloc((un|signed i|
|00001c60| 6e 74 29 28 73 74 72 6c | 65 6e 28 6e 61 6d 65 29 |nt)(strl|en(name)|
|00001c70| 20 2b 20 73 69 7a 65 6f | 66 20 22 2a 2e 2a 22 20 | + sizeo|f "*.*" |
|00001c80| 2b 20 31 29 29 3b 0a 58 | 20 20 20 20 69 66 20 28 |+ 1));.X|    if (|
|00001c90| 64 64 2d 3e 70 61 74 74 | 65 72 6e 20 3d 3d 20 4e |dd->patt|ern == N|
|00001ca0| 55 4c 4c 29 20 7b 0a 58 | 09 66 72 65 65 28 28 63 |ULL) {.X|.free((c|
|00001cb0| 68 61 72 20 2a 29 64 64 | 29 3b 0a 58 09 65 72 72 |har *)dd|);.X.err|
|00001cc0| 6e 6f 20 3d 20 45 4e 4f | 4d 45 4d 3b 0a 58 09 72 |no = ENO|MEM;.X.r|
|00001cd0| 65 74 75 72 6e 20 4e 55 | 4c 4c 3b 0a 58 20 20 20 |eturn NU|LL;.X   |
|00001ce0| 20 7d 0a 58 0a 58 20 20 | 20 20 2f 2a 20 46 69 6c | }.X.X  |  /* Fil|
|00001cf0| 6c 20 69 6e 20 74 68 65 | 20 66 69 65 6c 64 73 3b |l in the| fields;|
|00001d00| 20 6d 61 69 6e 6c 79 20 | 70 6c 61 79 69 6e 67 20 | mainly |playing |
|00001d10| 77 69 74 68 20 74 68 65 | 20 64 65 73 63 72 69 70 |with the| descrip|
|00001d20| 74 6f 72 2e 20 2a 2f 0a | 58 20 20 20 20 28 76 6f |tor. */.|X    (vo|
|00001d30| 69 64 29 73 70 72 69 6e | 74 66 28 64 64 2d 3e 70 |id)sprin|tf(dd->p|
|00001d40| 61 74 74 65 72 6e 2c 20 | 22 25 73 2a 2e 2a 22 2c |attern, |"%s*.*",|
|00001d50| 20 6e 61 6d 65 29 3b 0a | 58 20 20 20 20 64 64 2d | name);.|X    dd-|
|00001d60| 3e 63 6f 6e 74 65 78 74 | 20 3d 20 30 3b 0a 58 20 |>context| = 0;.X |
|00001d70| 20 20 20 64 64 2d 3e 76 | 6d 73 5f 77 61 6e 74 76 |   dd->v|ms_wantv|
|00001d80| 65 72 73 69 6f 6e 73 20 | 3d 20 30 3b 0a 58 20 20 |ersions |= 0;.X  |
|00001d90| 20 20 64 64 2d 3e 70 61 | 74 2e 64 73 63 24 61 5f |  dd->pa|t.dsc$a_|
|00001da0| 70 6f 69 6e 74 65 72 20 | 3d 20 64 64 2d 3e 70 61 |pointer |= dd->pa|
|00001db0| 74 74 65 72 6e 3b 0a 58 | 20 20 20 20 64 64 2d 3e |ttern;.X|    dd->|
|00001dc0| 70 61 74 2e 64 73 63 24 | 77 5f 6c 65 6e 67 74 68 |pat.dsc$|w_length|
|00001dd0| 20 3d 20 73 74 72 6c 65 | 6e 28 64 64 2d 3e 70 61 | = strle|n(dd->pa|
|00001de0| 74 74 65 72 6e 29 3b 0a | 58 20 20 20 20 64 64 2d |ttern);.|X    dd-|
|00001df0| 3e 70 61 74 2e 64 73 63 | 24 62 5f 64 74 79 70 65 |>pat.dsc|$b_dtype|
|00001e00| 20 3d 20 44 53 43 24 4b | 5f 44 54 59 50 45 5f 54 | = DSC$K|_DTYPE_T|
|00001e10| 3b 0a 58 20 20 20 20 64 | 64 2d 3e 70 61 74 2e 64 |;.X    d|d->pat.d|
|00001e20| 73 63 24 62 5f 63 6c 61 | 73 73 20 3d 20 44 53 43 |sc$b_cla|ss = DSC|
|00001e30| 24 4b 5f 43 4c 41 53 53 | 5f 53 3b 0a 58 0a 58 20 |$K_CLASS|_S;.X.X |
|00001e40| 20 20 20 72 65 74 75 72 | 6e 20 64 64 3b 0a 58 7d |   retur|n dd;.X}|
|00001e50| 0a 58 0a 58 0a 58 2f 2a | 0a 58 2a 2a 20 20 53 65 |.X.X.X/*|.X**  Se|
|00001e60| 74 20 74 68 65 20 66 6c | 61 67 20 74 6f 20 69 6e |t the fl|ag to in|
|00001e70| 64 69 63 61 74 65 20 77 | 65 20 77 61 6e 74 20 76 |dicate w|e want v|
|00001e80| 65 72 73 69 6f 6e 73 20 | 6f 72 20 6e 6f 74 2e 0a |ersions |or not..|
|00001e90| 58 2a 2f 0a 58 76 6f 69 | 64 0a 58 76 6d 73 72 65 |X*/.Xvoi|d.Xvmsre|
|00001ea0| 61 64 64 69 72 76 65 72 | 73 69 6f 6e 73 28 64 64 |addirver|sions(dd|
|00001eb0| 2c 20 66 6c 61 67 29 0a | 58 20 20 20 20 44 49 52 |, flag).|X    DIR|
|00001ec0| 09 09 2a 64 64 3b 0a 58 | 20 20 20 20 69 6e 74 09 |..*dd;.X|    int.|
|00001ed0| 09 66 6c 61 67 3b 0a 58 | 7b 0a 58 20 20 20 20 64 |.flag;.X|{.X    d|
|00001ee0| 64 2d 3e 76 6d 73 5f 77 | 61 6e 74 76 65 72 73 69 |d->vms_w|antversi|
|00001ef0| 6f 6e 73 20 3d 20 66 6c | 61 67 3b 0a 58 7d 0a 58 |ons = fl|ag;.X}.X|
|00001f00| 0a 58 0a 58 2f 2a 0a 58 | 2a 2a 20 20 46 72 65 65 |.X.X/*.X|**  Free|
|00001f10| 20 75 70 20 61 6e 20 6f | 70 65 6e 65 64 20 64 69 | up an o|pened di|
|00001f20| 72 65 63 74 6f 72 79 2e | 0a 58 2a 2f 0a 58 76 6f |rectory.|.X*/.Xvo|
|00001f30| 69 64 0a 58 63 6c 6f 73 | 65 64 69 72 28 64 64 29 |id.Xclos|edir(dd)|
|00001f40| 0a 58 20 20 20 20 44 49 | 52 09 09 2a 64 64 3b 0a |.X    DI|R..*dd;.|
|00001f50| 58 7b 0a 58 20 20 20 20 | 66 72 65 65 28 64 64 2d |X{.X    |free(dd-|
|00001f60| 3e 70 61 74 74 65 72 6e | 29 3b 0a 58 20 20 20 20 |>pattern|);.X    |
|00001f70| 66 72 65 65 28 28 63 68 | 61 72 20 2a 29 64 64 29 |free((ch|ar *)dd)|
|00001f80| 3b 0a 58 7d 0a 58 0a 58 | 0a 58 2f 2a 0a 58 2a 2a |;.X}.X.X|.X/*.X**|
|00001f90| 20 20 43 6f 6c 6c 65 63 | 74 20 61 6c 6c 20 74 68 |  Collec|t all th|
|00001fa0| 65 20 76 65 72 73 69 6f | 6e 20 6e 75 6d 62 65 72 |e versio|n number|
|00001fb0| 73 20 66 6f 72 20 74 68 | 65 20 63 75 72 72 65 6e |s for th|e curren|
|00001fc0| 74 20 66 69 6c 65 2e 0a | 58 2a 2f 0a 58 73 74 61 |t file..|X*/.Xsta|
|00001fd0| 74 69 63 20 76 6f 69 64 | 0a 58 63 6f 6c 6c 65 63 |tic void|.Xcollec|
|00001fe0| 74 76 65 72 73 69 6f 6e | 73 28 64 64 29 0a 58 20 |tversion|s(dd).X |
|00001ff0| 20 20 20 44 49 52 09 09 | 09 09 2a 64 64 3b 0a 58 |   DIR..|..*dd;.X|
|00002000| 7b 0a 58 20 20 20 20 73 | 74 72 75 63 74 20 64 73 |{.X    s|truct ds|
|00002010| 63 24 64 65 73 63 72 69 | 70 74 6f 72 5f 73 09 70 |c$descri|ptor_s.p|
|00002020| 61 74 3b 0a 58 20 20 20 | 20 73 74 72 75 63 74 20 |at;.X   | struct |
|00002030| 64 73 63 24 64 65 73 63 | 72 69 70 74 6f 72 5f 73 |dsc$desc|riptor_s|
|00002040| 09 72 65 73 3b 0a 58 20 | 20 20 20 73 74 72 75 63 |.res;.X |   struc|
|00002050| 74 20 64 69 72 65 6e 74 | 09 09 2a 65 3b 0a 58 20 |t dirent|..*e;.X |
|00002060| 20 20 20 63 68 61 72 09 | 09 09 2a 70 3b 0a 58 20 |   char.|..*p;.X |
|00002070| 20 20 20 63 68 61 72 09 | 09 09 62 75 66 66 5b 73 |   char.|..buff[s|
|00002080| 69 7a 65 6f 66 20 64 64 | 2d 3e 65 6e 74 72 79 2e |izeof dd|->entry.|
|00002090| 64 5f 6e 61 6d 65 5d 3b | 0a 58 20 20 20 20 69 6e |d_name];|.X    in|
|000020a0| 74 09 09 09 09 69 3b 0a | 58 20 20 20 20 63 68 61 |t....i;.|X    cha|
|000020b0| 72 09 09 09 2a 74 65 78 | 74 3b 0a 58 20 20 20 20 |r...*tex|t;.X    |
|000020c0| 6c 6f 6e 67 09 09 09 63 | 6f 6e 74 65 78 74 3b 0a |long...c|ontext;.|
|000020d0| 58 0a 58 20 20 20 20 2f | 2a 20 43 6f 6e 76 65 6e |X.X    /|* Conven|
|000020e0| 69 65 6e 74 20 73 68 6f | 72 74 68 61 6e 64 2e 20 |ient sho|rthand. |
|000020f0| 2a 2f 0a 58 20 20 20 20 | 65 20 3d 20 26 64 64 2d |*/.X    |e = &dd-|
|00002100| 3e 65 6e 74 72 79 3b 0a | 58 0a 58 20 20 20 20 2f |>entry;.|X.X    /|
|00002110| 2a 20 41 64 64 20 74 68 | 65 20 76 65 72 73 69 6f |* Add th|e versio|
|00002120| 6e 20 77 69 6c 64 63 61 | 72 64 2c 20 69 67 6e 6f |n wildca|rd, igno|
|00002130| 72 69 6e 67 20 74 68 65 | 20 22 2a 2e 2a 22 20 70 |ring the| "*.*" p|
|00002140| 75 74 20 6f 6e 20 62 65 | 66 6f 72 65 20 2a 2f 0a |ut on be|fore */.|
|00002150| 58 20 20 20 20 69 20 3d | 20 73 74 72 6c 65 6e 28 |X    i =| strlen(|
|00002160| 64 64 2d 3e 70 61 74 74 | 65 72 6e 29 3b 0a 58 20 |dd->patt|ern);.X |
|00002170| 20 20 20 74 65 78 74 20 | 3d 20 6d 61 6c 6c 6f 63 |   text |= malloc|
|00002180| 28 28 75 6e 73 69 67 6e | 65 64 20 69 6e 74 29 28 |((unsign|ed int)(|
|00002190| 69 20 2b 20 73 74 72 6c | 65 6e 28 65 2d 3e 64 5f |i + strl|en(e->d_|
|000021a0| 6e 61 6d 65 29 2b 20 32 | 20 2b 20 31 29 29 3b 0a |name)+ 2| + 1));.|
|000021b0| 58 20 20 20 20 69 66 20 | 28 74 65 78 74 20 3d 3d |X    if |(text ==|
|000021c0| 20 4e 55 4c 4c 29 0a 58 | 09 72 65 74 75 72 6e 3b | NULL).X|.return;|
|000021d0| 0a 58 20 20 20 20 28 76 | 6f 69 64 29 73 74 72 63 |.X    (v|oid)strc|
|000021e0| 70 79 28 74 65 78 74 2c | 20 64 64 2d 3e 70 61 74 |py(text,| dd->pat|
|000021f0| 74 65 72 6e 29 3b 0a 58 | 20 20 20 20 28 76 6f 69 |tern);.X|    (voi|
|00002200| 64 29 73 70 72 69 6e 74 | 66 28 26 74 65 78 74 5b |d)sprint|f(&text[|
|00002210| 69 20 2d 20 33 5d 2c 20 | 22 25 73 3b 2a 22 2c 20 |i - 3], |"%s;*", |
|00002220| 65 2d 3e 64 5f 6e 61 6d | 65 29 3b 0a 58 0a 58 20 |e->d_nam|e);.X.X |
|00002230| 20 20 20 2f 2a 20 53 65 | 74 20 75 70 20 74 68 65 |   /* Se|t up the|
|00002240| 20 70 61 74 74 65 72 6e | 20 64 65 73 63 72 69 70 | pattern| descrip|
|00002250| 74 6f 72 2e 20 2a 2f 0a | 58 20 20 20 20 70 61 74 |tor. */.|X    pat|
|00002260| 2e 64 73 63 24 61 5f 70 | 6f 69 6e 74 65 72 20 3d |.dsc$a_p|ointer =|
|00002270| 20 74 65 78 74 3b 0a 58 | 20 20 20 20 70 61 74 2e | text;.X|    pat.|
|00002280| 64 73 63 24 77 5f 6c 65 | 6e 67 74 68 20 3d 20 73 |dsc$w_le|ngth = s|
|00002290| 74 72 6c 65 6e 28 74 65 | 78 74 29 3b 0a 58 20 20 |trlen(te|xt);.X  |
|000022a0| 20 20 70 61 74 2e 64 73 | 63 24 62 5f 64 74 79 70 |  pat.ds|c$b_dtyp|
|000022b0| 65 20 3d 20 44 53 43 24 | 4b 5f 44 54 59 50 45 5f |e = DSC$|K_DTYPE_|
|000022c0| 54 3b 0a 58 20 20 20 20 | 70 61 74 2e 64 73 63 24 |T;.X    |pat.dsc$|
|000022d0| 62 5f 63 6c 61 73 73 20 | 3d 20 44 53 43 24 4b 5f |b_class |= DSC$K_|
|000022e0| 43 4c 41 53 53 5f 53 3b | 0a 58 0a 58 20 20 20 20 |CLASS_S;|.X.X    |
|000022f0| 2f 2a 20 53 65 74 20 75 | 70 20 72 65 73 75 6c 74 |/* Set u|p result|
|00002300| 20 64 65 73 63 72 69 70 | 74 6f 72 2e 20 2a 2f 0a | descrip|tor. */.|
|00002310| 58 20 20 20 20 72 65 73 | 2e 64 73 63 24 61 5f 70 |X    res|.dsc$a_p|
|00002320| 6f 69 6e 74 65 72 20 3d | 20 62 75 66 66 3b 0a 58 |ointer =| buff;.X|
|00002330| 20 20 20 20 72 65 73 2e | 64 73 63 24 77 5f 6c 65 |    res.|dsc$w_le|
|00002340| 6e 67 74 68 20 3d 20 73 | 69 7a 65 6f 66 20 62 75 |ngth = s|izeof bu|
|00002350| 66 66 20 2d 20 32 3b 0a | 58 20 20 20 20 72 65 73 |ff - 2;.|X    res|
|00002360| 2e 64 73 63 24 62 5f 64 | 74 79 70 65 20 3d 20 44 |.dsc$b_d|type = D|
|00002370| 53 43 24 4b 5f 44 54 59 | 50 45 5f 54 3b 0a 58 20 |SC$K_DTY|PE_T;.X |
|00002380| 20 20 20 72 65 73 2e 64 | 73 63 24 62 5f 63 6c 61 |   res.d|sc$b_cla|
|00002390| 73 73 20 3d 20 44 53 43 | 24 4b 5f 43 4c 41 53 53 |ss = DSC|$K_CLASS|
|000023a0| 5f 53 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 52 65 |_S;.X.X |   /* Re|
|000023b0| 61 64 20 66 69 6c 65 73 | 2c 20 63 6f 6c 6c 65 63 |ad files|, collec|
|000023c0| 74 69 6e 67 20 76 65 72 | 73 69 6f 6e 73 2e 20 2a |ting ver|sions. *|
|000023d0| 2f 0a 58 20 20 20 20 66 | 6f 72 20 28 63 6f 6e 74 |/.X    f|or (cont|
|000023e0| 65 78 74 20 3d 20 30 3b | 20 65 2d 3e 76 6d 73 5f |ext = 0;| e->vms_|
|000023f0| 76 65 72 73 63 6f 75 6e | 74 20 3c 20 56 45 52 53 |verscoun|t < VERS|
|00002400| 49 5a 45 28 65 29 3b 20 | 65 2d 3e 76 6d 73 5f 76 |IZE(e); |e->vms_v|
|00002410| 65 72 73 63 6f 75 6e 74 | 2b 2b 29 20 7b 0a 58 09 |erscount|++) {.X.|
|00002420| 69 66 20 28 6c 69 62 24 | 66 69 6e 64 5f 66 69 6c |if (lib$|find_fil|
|00002430| 65 28 26 70 61 74 2c 20 | 26 72 65 73 2c 20 26 63 |e(&pat, |&res, &c|
|00002440| 6f 6e 74 65 78 74 29 20 | 3d 3d 20 52 4d 53 24 5f |ontext) |== RMS$_|
|00002450| 4e 4d 46 20 7c 7c 20 63 | 6f 6e 74 65 78 74 20 3d |NMF || c|ontext =|
|00002460| 3d 20 30 29 0a 58 09 20 | 20 20 20 62 72 65 61 6b |= 0).X. |   break|
|00002470| 3b 0a 58 09 62 75 66 66 | 5b 73 69 7a 65 6f 66 20 |;.X.buff|[sizeof |
|00002480| 62 75 66 66 20 2d 20 31 | 5d 20 3d 20 27 5c 30 27 |buff - 1|] = '\0'|
|00002490| 3b 0a 58 09 69 66 20 28 | 70 20 3d 20 73 74 72 63 |;.X.if (|p = strc|
|000024a0| 68 72 28 62 75 66 66 2c | 20 27 3b 27 29 29 0a 58 |hr(buff,| ';')).X|
|000024b0| 09 20 20 20 20 65 2d 3e | 76 6d 73 5f 76 65 72 73 |.    e->|vms_vers|
|000024c0| 69 6f 6e 73 5b 65 2d 3e | 76 6d 73 5f 76 65 72 73 |ions[e->|vms_vers|
|000024d0| 63 6f 75 6e 74 5d 20 3d | 20 61 74 6f 69 28 70 20 |count] =| atoi(p |
|000024e0| 2b 20 31 29 3b 0a 58 09 | 65 6c 73 65 0a 58 09 20 |+ 1);.X.|else.X. |
|000024f0| 20 20 20 65 2d 3e 76 6d | 73 5f 76 65 72 73 69 6f |   e->vm|s_versio|
|00002500| 6e 73 5b 65 2d 3e 76 6d | 73 5f 76 65 72 73 63 6f |ns[e->vm|s_versco|
|00002510| 75 6e 74 5d 20 3d 20 2d | 31 3b 0a 58 20 20 20 20 |unt] = -|1;.X    |
|00002520| 7d 0a 58 0a 58 20 20 20 | 20 66 72 65 65 28 74 65 |}.X.X   | free(te|
|00002530| 78 74 29 3b 0a 58 7d 0a | 58 0a 58 0a 58 2f 2a 0a |xt);.X}.|X.X.X/*.|
|00002540| 58 2a 2a 20 20 52 65 61 | 64 20 74 68 65 20 6e 65 |X**  Rea|d the ne|
|00002550| 78 74 20 65 6e 74 72 79 | 20 66 72 6f 6d 20 74 68 |xt entry| from th|
|00002560| 65 20 64 69 72 65 63 74 | 6f 72 79 2e 0a 58 2a 2f |e direct|ory..X*/|
|00002570| 0a 58 73 74 72 75 63 74 | 20 64 69 72 65 6e 74 20 |.Xstruct| dirent |
|00002580| 2a 0a 58 72 65 61 64 64 | 69 72 28 64 64 29 0a 58 |*.Xreadd|ir(dd).X|
|00002590| 20 20 20 20 44 49 52 09 | 09 09 09 2a 64 64 3b 0a |    DIR.|...*dd;.|
|000025a0| 58 7b 0a 58 20 20 20 20 | 73 74 72 75 63 74 20 64 |X{.X    |struct d|
|000025b0| 73 63 24 64 65 73 63 72 | 69 70 74 6f 72 5f 73 09 |sc$descr|iptor_s.|
|000025c0| 72 65 73 3b 0a 58 20 20 | 20 20 63 68 61 72 09 09 |res;.X  |  char..|
|000025d0| 09 2a 70 3b 0a 58 20 20 | 20 20 63 68 61 72 09 09 |.*p;.X  |  char..|
|000025e0| 09 62 75 66 66 5b 73 69 | 7a 65 6f 66 20 64 64 2d |.buff[si|zeof dd-|
|000025f0| 3e 65 6e 74 72 79 2e 64 | 5f 6e 61 6d 65 5d 3b 0a |>entry.d|_name];.|
|00002600| 58 20 20 20 20 69 6e 74 | 09 09 09 09 69 3b 0a 58 |X    int|....i;.X|
|00002610| 0a 58 20 20 20 20 2f 2a | 20 53 65 74 20 75 70 20 |.X    /*| Set up |
|00002620| 72 65 73 75 6c 74 20 64 | 65 73 63 72 69 70 74 6f |result d|escripto|
|00002630| 72 2c 20 61 6e 64 20 67 | 65 74 20 6e 65 78 74 20 |r, and g|et next |
|00002640| 66 69 6c 65 2e 20 2a 2f | 0a 58 20 20 20 20 72 65 |file. */|.X    re|
|00002650| 73 2e 64 73 63 24 61 5f | 70 6f 69 6e 74 65 72 20 |s.dsc$a_|pointer |
|00002660| 3d 20 62 75 66 66 3b 0a | 58 20 20 20 20 72 65 73 |= buff;.|X    res|
|00002670| 2e 64 73 63 24 77 5f 6c | 65 6e 67 74 68 20 3d 20 |.dsc$w_l|ength = |
|00002680| 73 69 7a 65 6f 66 20 62 | 75 66 66 20 2d 20 32 3b |sizeof b|uff - 2;|
|00002690| 0a 58 20 20 20 20 72 65 | 73 2e 64 73 63 24 62 5f |.X    re|s.dsc$b_|
|000026a0| 64 74 79 70 65 20 3d 20 | 44 53 43 24 4b 5f 44 54 |dtype = |DSC$K_DT|
|000026b0| 59 50 45 5f 54 3b 0a 58 | 20 20 20 20 72 65 73 2e |YPE_T;.X|    res.|
|000026c0| 64 73 63 24 62 5f 63 6c | 61 73 73 20 3d 20 44 53 |dsc$b_cl|ass = DS|
|000026d0| 43 24 4b 5f 43 4c 41 53 | 53 5f 53 3b 0a 58 20 20 |C$K_CLAS|S_S;.X  |
|000026e0| 20 20 69 66 20 28 6c 69 | 62 24 66 69 6e 64 5f 66 |  if (li|b$find_f|
|000026f0| 69 6c 65 28 26 64 64 2d | 3e 70 61 74 2c 20 26 72 |ile(&dd-|>pat, &r|
|00002700| 65 73 2c 20 26 64 64 2d | 3e 63 6f 6e 74 65 78 74 |es, &dd-|>context|
|00002710| 29 20 3d 3d 20 52 4d 53 | 24 5f 4e 4d 46 0a 58 20 |) == RMS|$_NMF.X |
|00002720| 20 20 20 20 7c 7c 20 64 | 64 2d 3e 63 6f 6e 74 65 |    || d|d->conte|
|00002730| 78 74 20 3d 3d 20 30 4c | 29 0a 58 09 2f 2a 20 4e |xt == 0L|).X./* N|
|00002740| 6f 6e 65 20 6c 65 66 74 | 2e 2e 2e 20 2a 2f 0a 58 |one left|... */.X|
|00002750| 09 72 65 74 75 72 6e 20 | 4e 55 4c 4c 3b 0a 58 0a |.return |NULL;.X.|
|00002760| 58 20 20 20 20 2f 2a 20 | 46 6f 72 63 65 20 74 68 |X    /* |Force th|
|00002770| 65 20 62 75 66 66 65 72 | 20 74 6f 20 65 6e 64 20 |e buffer| to end |
|00002780| 77 69 74 68 20 61 20 4e | 55 4c 2e 20 2a 2f 0a 58 |with a N|UL. */.X|
|00002790| 20 20 20 20 62 75 66 66 | 5b 73 69 7a 65 6f 66 20 |    buff|[sizeof |
|000027a0| 62 75 66 66 20 2d 20 31 | 5d 20 3d 20 27 5c 30 27 |buff - 1|] = '\0'|
|000027b0| 3b 0a 58 20 20 20 20 66 | 6f 72 20 28 70 20 3d 20 |;.X    f|or (p = |
|000027c0| 62 75 66 66 3b 20 21 69 | 73 73 70 61 63 65 28 2a |buff; !i|sspace(*|
|000027d0| 70 29 3b 20 70 2b 2b 29 | 0a 58 09 3b 0a 58 20 20 |p); p++)|.X.;.X  |
|000027e0| 20 20 2a 70 20 3d 20 27 | 5c 30 27 3b 0a 58 0a 58 |  *p = '|\0';.X.X|
|000027f0| 20 20 20 20 2f 2a 20 53 | 6b 69 70 20 61 6e 79 20 |    /* S|kip any |
|00002800| 64 69 72 65 63 74 6f 72 | 79 20 63 6f 6d 70 6f 6e |director|y compon|
|00002810| 65 6e 74 20 61 6e 64 20 | 6a 75 73 74 20 63 6f 70 |ent and |just cop|
|00002820| 79 20 74 68 65 20 6e 61 | 6d 65 2e 20 2a 2f 0a 58 |y the na|me. */.X|
|00002830| 20 20 20 20 69 66 20 28 | 70 20 3d 20 73 74 72 63 |    if (|p = strc|
|00002840| 68 72 28 62 75 66 66 2c | 20 27 5d 27 29 29 0a 58 |hr(buff,| ']')).X|
|00002850| 09 28 76 6f 69 64 29 73 | 74 72 63 70 79 28 64 64 |.(void)s|trcpy(dd|
|00002860| 2d 3e 65 6e 74 72 79 2e | 64 5f 6e 61 6d 65 2c 20 |->entry.|d_name, |
|00002870| 70 20 2b 20 31 29 3b 0a | 58 20 20 20 20 65 6c 73 |p + 1);.|X    els|
|00002880| 65 0a 58 09 28 76 6f 69 | 64 29 73 74 72 63 70 79 |e.X.(voi|d)strcpy|
|00002890| 28 64 64 2d 3e 65 6e 74 | 72 79 2e 64 5f 6e 61 6d |(dd->ent|ry.d_nam|
|000028a0| 65 2c 20 62 75 66 66 29 | 3b 0a 58 0a 58 20 20 20 |e, buff)|;.X.X   |
|000028b0| 20 2f 2a 20 43 6c 6f 62 | 62 65 72 20 74 68 65 20 | /* Clob|ber the |
|000028c0| 76 65 72 73 69 6f 6e 2e | 20 2a 2f 0a 58 20 20 20 |version.| */.X   |
|000028d0| 20 69 66 20 28 70 20 3d | 20 73 74 72 63 68 72 28 | if (p =| strchr(|
|000028e0| 64 64 2d 3e 65 6e 74 72 | 79 2e 64 5f 6e 61 6d 65 |dd->entr|y.d_name|
|000028f0| 2c 20 27 3b 27 29 29 0a | 58 09 2a 70 20 3d 20 27 |, ';')).|X.*p = '|
|00002900| 5c 30 27 3b 0a 58 0a 58 | 20 20 20 20 64 64 2d 3e |\0';.X.X|    dd->|
|00002910| 65 6e 74 72 79 2e 76 6d | 73 5f 76 65 72 73 63 6f |entry.vm|s_versco|
|00002920| 75 6e 74 20 3d 20 30 3b | 0a 58 20 20 20 20 69 66 |unt = 0;|.X    if|
|00002930| 20 28 64 64 2d 3e 76 6d | 73 5f 77 61 6e 74 76 65 | (dd->vm|s_wantve|
|00002940| 72 73 69 6f 6e 73 29 0a | 58 09 63 6f 6c 6c 65 63 |rsions).|X.collec|
|00002950| 74 76 65 72 73 69 6f 6e | 73 28 64 64 29 3b 0a 58 |tversion|s(dd);.X|
|00002960| 20 20 20 20 72 65 74 75 | 72 6e 20 26 64 64 2d 3e |    retu|rn &dd->|
|00002970| 65 6e 74 72 79 3b 0a 58 | 7d 0a 58 0a 58 0a 58 2f |entry;.X|}.X.X.X/|
|00002980| 2a 0a 58 2a 2a 20 20 52 | 65 74 75 72 6e 20 73 6f |*.X**  R|eturn so|
|00002990| 6d 65 74 68 69 6e 67 20 | 74 68 61 74 20 63 61 6e |mething |that can|
|000029a0| 20 62 65 20 75 73 65 64 | 20 69 6e 20 61 20 73 65 | be used| in a se|
|000029b0| 65 6b 64 69 72 20 6c 61 | 74 65 72 2e 0a 58 2a 2f |ekdir la|ter..X*/|
|000029c0| 0a 58 6c 6f 6e 67 0a 58 | 74 65 6c 6c 64 69 72 28 |.Xlong.X|telldir(|
|000029d0| 64 64 29 0a 58 20 20 20 | 20 44 49 52 09 09 2a 64 |dd).X   | DIR..*d|
|000029e0| 64 3b 0a 58 7b 0a 58 20 | 20 20 20 72 65 74 75 72 |d;.X{.X |   retur|
|000029f0| 6e 20 64 64 2d 3e 63 6f | 6e 74 65 78 74 3b 0a 58 |n dd->co|ntext;.X|
|00002a00| 7d 0a 58 0a 58 0a 58 2f | 2a 0a 58 2a 2a 20 20 52 |}.X.X.X/|*.X**  R|
|00002a10| 65 74 75 72 6e 20 74 6f | 20 61 20 73 70 6f 74 20 |eturn to| a spot |
|00002a20| 77 68 65 72 65 20 77 65 | 20 75 73 65 64 20 74 6f |where we| used to|
|00002a30| 20 62 65 2e 0a 58 2a 2f | 0a 58 76 6f 69 64 0a 58 | be..X*/|.Xvoid.X|
|00002a40| 73 65 65 6b 64 69 72 28 | 64 64 2c 20 70 6f 73 29 |seekdir(|dd, pos)|
|00002a50| 0a 58 20 20 20 20 44 49 | 52 09 09 2a 64 64 3b 0a |.X    DI|R..*dd;.|
|00002a60| 58 20 20 20 20 6c 6f 6e | 67 09 70 6f 73 3b 0a 58 |X    lon|g.pos;.X|
|00002a70| 7b 0a 58 20 20 20 20 64 | 64 2d 3e 63 6f 6e 74 65 |{.X    d|d->conte|
|00002a80| 78 74 20 3d 20 70 6f 73 | 3b 0a 58 7d 0a 58 0a 58 |xt = pos|;.X}.X.X|
|00002a90| 0a 58 23 69 66 64 65 66 | 09 54 45 53 54 0a 58 6d |.X#ifdef|.TEST.Xm|
|00002aa0| 61 69 6e 28 29 0a 58 7b | 0a 58 20 20 20 20 63 68 |ain().X{|.X    ch|
|00002ab0| 61 72 09 09 62 75 66 66 | 5b 32 35 36 5d 3b 0a 58 |ar..buff|[256];.X|
|00002ac0| 20 20 20 20 44 49 52 09 | 09 09 2a 64 64 3b 0a 58 |    DIR.|..*dd;.X|
|00002ad0| 20 20 20 20 73 74 72 75 | 63 74 20 64 69 72 65 6e |    stru|ct diren|
|00002ae0| 74 09 2a 64 70 3b 0a 58 | 20 20 20 20 69 6e 74 09 |t.*dp;.X|    int.|
|00002af0| 09 09 69 3b 0a 58 20 20 | 20 20 69 6e 74 09 09 09 |..i;.X  |  int...|
|00002b00| 6a 3b 0a 58 0a 58 20 20 | 20 20 66 6f 72 20 28 20 |j;.X.X  |  for ( |
|00002b10| 3b 20 3b 20 29 20 7b 0a | 58 09 70 72 69 6e 74 66 |; ; ) {.|X.printf|
|00002b20| 28 22 5c 6e 5c 6e 45 6e | 74 65 72 20 64 69 72 3a |("\n\nEn|ter dir:|
|00002b30| 20 20 22 29 3b 0a 58 09 | 28 76 6f 69 64 29 66 66 |  ");.X.|(void)ff|
|00002b40| 6c 75 73 68 28 73 74 64 | 6f 75 74 29 3b 0a 58 09 |lush(std|out);.X.|
|00002b50| 28 76 6f 69 64 29 67 65 | 74 73 28 62 75 66 66 29 |(void)ge|ts(buff)|
|00002b60| 3b 0a 58 09 69 66 20 28 | 62 75 66 66 5b 30 5d 20 |;.X.if (|buff[0] |
|00002b70| 3d 3d 20 27 5c 30 27 29 | 0a 58 09 20 20 20 20 62 |== '\0')|.X.    b|
|00002b80| 72 65 61 6b 3b 0a 58 09 | 69 66 20 28 28 64 64 20 |reak;.X.|if ((dd |
|00002b90| 3d 20 6f 70 65 6e 64 69 | 72 28 62 75 66 66 29 29 |= opendi|r(buff))|
|00002ba0| 20 3d 3d 20 4e 55 4c 4c | 29 20 7b 0a 58 09 20 20 | == NULL|) {.X.  |
|00002bb0| 20 20 70 65 72 72 6f 72 | 28 62 75 66 66 29 3b 0a |  perror|(buff);.|
|00002bc0| 58 09 20 20 20 20 63 6f | 6e 74 69 6e 75 65 3b 0a |X.    co|ntinue;.|
|00002bd0| 58 09 7d 0a 58 0a 58 09 | 2f 2a 20 50 72 69 6e 74 |X.}.X.X.|/* Print|
|00002be0| 20 74 68 65 20 64 69 72 | 65 63 74 6f 72 79 20 63 | the dir|ectory c|
|00002bf0| 6f 6e 74 65 6e 74 73 20 | 74 77 69 63 65 2c 20 74 |ontents |twice, t|
|00002c00| 68 65 20 73 65 63 6f 6e | 64 20 74 69 6d 65 20 70 |he secon|d time p|
|00002c10| 72 69 6e 74 0a 58 09 20 | 2a 20 74 68 65 20 76 65 |rint.X. |* the ve|
|00002c20| 72 73 69 6f 6e 73 2e 20 | 2a 2f 0a 58 09 66 6f 72 |rsions. |*/.X.for|
|00002c30| 20 28 69 20 3d 20 30 3b | 20 69 20 3c 20 32 3b 20 | (i = 0;| i < 2; |
|00002c40| 69 2b 2b 29 20 7b 0a 58 | 09 20 20 20 20 77 68 69 |i++) {.X|.    whi|
|00002c50| 6c 65 20 28 64 70 20 3d | 20 72 65 61 64 64 69 72 |le (dp =| readdir|
|00002c60| 28 64 64 29 29 20 7b 0a | 58 09 09 70 72 69 6e 74 |(dd)) {.|X..print|
|00002c70| 66 28 22 25 73 25 73 22 | 2c 20 69 20 3f 20 22 5c |f("%s%s"|, i ? "\|
|00002c80| 74 22 20 3a 20 22 20 20 | 20 20 22 2c 20 64 70 2d |t" : "  |  ", dp-|
|00002c90| 3e 64 5f 6e 61 6d 65 29 | 3b 0a 58 09 09 66 6f 72 |>d_name)|;.X..for|
|00002ca0| 20 28 6a 20 3d 20 30 3b | 20 6a 20 3c 20 64 70 2d | (j = 0;| j < dp-|
|00002cb0| 3e 76 6d 73 5f 76 65 72 | 73 63 6f 75 6e 74 3b 20 |>vms_ver|scount; |
|00002cc0| 6a 2b 2b 29 0a 58 09 09 | 20 20 20 20 70 72 69 6e |j++).X..|    prin|
|00002cd0| 74 66 28 22 20 20 25 64 | 22 2c 20 64 70 2d 3e 76 |tf("  %d|", dp->v|
|00002ce0| 6d 73 5f 76 65 72 73 69 | 6f 6e 73 5b 6a 5d 29 3b |ms_versi|ons[j]);|
|00002cf0| 0a 58 09 09 70 72 69 6e | 74 66 28 22 5c 6e 22 29 |.X..prin|tf("\n")|
|00002d00| 3b 0a 58 09 20 20 20 20 | 7d 0a 58 09 20 20 20 20 |;.X.    |}.X.    |
|00002d10| 72 65 77 69 6e 64 64 69 | 72 28 64 64 29 3b 0a 58 |rewinddi|r(dd);.X|
|00002d20| 09 20 20 20 20 76 6d 73 | 72 65 61 64 64 69 72 76 |.    vms|readdirv|
|00002d30| 65 72 73 69 6f 6e 73 28 | 64 64 2c 20 31 29 3b 0a |ersions(|dd, 1);.|
|00002d40| 58 09 7d 0a 58 09 63 6c | 6f 73 65 64 69 72 28 64 |X.}.X.cl|osedir(d|
|00002d50| 64 29 3b 0a 58 20 20 20 | 20 7d 0a 58 20 20 20 20 |d);.X   | }.X    |
|00002d60| 65 78 69 74 28 30 29 3b | 0a 58 7d 0a 58 23 65 6e |exit(0);|.X}.X#en|
|00002d70| 64 69 66 09 2f 2a 20 54 | 45 53 54 20 2a 2f 0a 45 |dif./* T|EST */.E|
|00002d80| 4e 44 5f 4f 46 5f 46 49 | 4c 45 0a 20 20 69 66 20 |ND_OF_FI|LE.  if |
|00002d90| 74 65 73 74 20 35 30 31 | 34 20 2d 6e 65 20 60 77 |test 501|4 -ne `w|
|00002da0| 63 20 2d 63 20 3c 27 76 | 6d 73 72 65 61 64 64 69 |c -c <'v|msreaddi|
|00002db0| 72 2e 63 27 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |r.c'`; t|hen.    |
|00002dc0| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 27 76 6d |echo sha|r: \"'vm|
|00002dd0| 73 72 65 61 64 64 69 72 | 2e 63 27 5c 22 20 75 6e |sreaddir|.c'\" un|
|00002de0| 70 61 63 6b 65 64 20 77 | 69 74 68 20 77 72 6f 6e |packed w|ith wron|
|00002df0| 67 20 73 69 7a 65 21 0a | 20 20 66 69 0a 20 20 23 |g size!.|  fi.  #|
|00002e00| 20 65 6e 64 20 6f 66 20 | 27 76 6d 73 72 65 61 64 | end of |'vmsread|
|00002e10| 64 69 72 2e 63 27 0a 66 | 69 0a 65 63 68 6f 20 73 |dir.c'.f|i.echo s|
|00002e20| 68 61 72 3a 20 45 6e 64 | 20 6f 66 20 61 72 63 68 |har: End| of arch|
|00002e30| 69 76 65 2e 0a 65 78 69 | 74 20 30 0a 2d 2d 20 0a |ive..exi|t 0.-- .|
|00002e40| 50 6c 65 61 73 65 20 73 | 65 6e 64 20 63 6f 6d 70 |Please s|end comp|
|00002e50| 2e 73 6f 75 72 63 65 73 | 2e 75 6e 69 78 2d 72 65 |.sources|.unix-re|
|00002e60| 6c 61 74 65 64 20 6d 61 | 69 6c 20 74 6f 20 72 73 |lated ma|il to rs|
|00002e70| 61 6c 7a 40 75 75 6e 65 | 74 2e 75 75 2e 6e 65 74 |alz@uune|t.uu.net|
|00002e80| 2e 0a 55 73 65 20 61 20 | 64 6f 6d 61 69 6e 2d 62 |..Use a |domain-b|
|00002e90| 61 73 65 64 20 61 64 64 | 72 65 73 73 20 6f 72 20 |ased add|ress or |
|00002ea0| 67 69 76 65 20 61 6c 74 | 65 72 6e 61 74 65 20 70 |give alt|ernate p|
|00002eb0| 61 74 68 73 2c 20 6f 72 | 20 79 6f 75 20 6d 61 79 |aths, or| you may|
|00002ec0| 20 6c 6f 73 65 20 6f 75 | 74 2e 0a                | lose ou|t..     |
+--------+-------------------------+-------------------------+--------+--------+