00000000
00000018
00000030
00000048
00000060
00000078
00000090
000000A8
000000C0
000000D8
000000F0
00000108
00000120
00000138
00000150
00000168
00000180
00000198
000001B0
000001C8
000001E0
000001F8
00000210
00000228
00000240
00000258
00000270
00000288
000002A0
000002B8
000002D0
000002E8
00000300
00000318
00000330
00000348
00000360
00000378
00000390
000003A8
000003C0
000003D8
000003F0
00000408
00000420
00000438
00000450
00000468
00000480
00000498
000004B0
000004C8
000004E0
000004F8
00000510
00000528
00000540
00000558
00000570
00000588
000005A0
000005B8
000005D0
000005E8
00000600
00000618
00000630
00000648
00000660
00000678
00000690
000006A8
000006C0
000006D8
000006F0
00000708
00000720
00000738
00000750
00000768
00000780
00000798
000007B0
000007C8
000007E0
000007F8
00000810
00000828
00000840
00000858
00000870
00000888
000008A0
000008B8
000008D0
000008E8
00000900
00000918
00000930
00000948
00000960
00000978
00000990
000009A8
000009C0
000009D8
000009F0
00000A08
00000A20
00000A38
00000A50
00000A68
00000A80
00000A98
00000AB0
00000AC8
00000AE0
00000AF8
00000B10
00000B28
00000B40
00000B58
00000B70
00000B88
00000BA0
00000BB8
00000BD0
00000BE8
00000C00
00000C18
00000C30
00000C48
00000C60
00000C78
00000C90
00000CA8
00000CC0
00000CD8
00000CF0
00000D08
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 20 20 20 20 65 76 61 6C
20 27 65 78 65 63 20 70 65 72 6C 20 2D 53 20 24 30 20 22 24 40 22 27 0A
20 20 20 20 20 20 20 20 69 66 20 30 3B 0A 0A 23 23 23 23 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0A 23 20 70
6F 64 32 75 73 61 67 65 20 2D 2D 20 63 6F 6D 6D 61 6E 64 20 74 6F 20 70
72 69 6E 74 20 75 73 61 67 65 20 6D 65 73 73 61 67 65 73 20 66 72 6F 6D
20 65 6D 62 65 64 64 65 64 20 70 6F 64 20 64 6F 63 73 0A 23 0A 23 20 43
6F 70 79 72 69 67 68 74 20 28 63 29 20 31 39 39 36 2D 32 30 30 30 20 62
79 20 42 72 61 64 66 6F 72 64 20 41 70 70 6C 65 74 6F 6E 2E 20 41 6C 6C
20 72 69 67 68 74 73 20 72 65 73 65 72 76 65 64 2E 0A 23 20 54 68 69 73
20 66 69 6C 65 20 69 73 20 70 61 72 74 20 6F 66 20 22 50 6F 64 50 61 72
73 65 72 22 2E 20 50 6F 64 50 61 72 73 65 72 20 69 73 20 66 72 65 65 20
73 6F 66 74 77 61 72 65 3B 0A 23 20 79 6F 75 20 63 61 6E 20 72 65 64 69
73 74 72 69 62 75 74 65 20 69 74 20 61 6E 64 2F 6F 72 20 6D 6F 64 69 66
79 20 69 74 20 75 6E 64 65 72 20 74 68 65 20 73 61 6D 65 20 74 65 72 6D
73 0A 23 20 61 73 20 50 65 72 6C 20 69 74 73 65 6C 66 2E 0A 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 0A 0A 75 73 65 20 73 74 72 69 63 74 3B 0A 75 73 65 20 64 69 61 67 6E
6F 73 74 69 63 73 3B 0A 0A 3D 68 65 61 64 31 20 4E 41 4D 45 0A 0A 70 6F
64 32 75 73 61 67 65 20 2D 20 70 72 69 6E 74 20 75 73 61 67 65 20 6D 65
73 73 61 67 65 73 20 66 72 6F 6D 20 65 6D 62 65 64 64 65 64 20 70 6F 64
20 64 6F 63 73 20 69 6E 20 66 69 6C 65 73 0A 0A 3D 68 65 61 64 31 20 53
59 4E 4F 50 53 49 53 0A 0A 3D 6F 76 65 72 20 31 32 0A 0A 3D 69 74 65 6D
20 42 3C 70 6F 64 32 75 73 61 67 65 3E 0A 0A 5B 42 3C 2D 68 65 6C 70 3E
5D 0A 5B 42 3C 2D 6D 61 6E 3E 5D 0A 5B 42 3C 2D 65 78 69 74 3E 53 3C 20
3E 49 3C 65 78 69 74 76 61 6C 3E 5D 0A 5B 42 3C 2D 6F 75 74 70 75 74 3E
53 3C 20 3E 49 3C 6F 75 74 66 69 6C 65 3E 5D 0A 5B 42 3C 2D 76 65 72 62
6F 73 65 3E 20 49 3C 6C 65 76 65 6C 3E 5D 0A 5B 42 3C 2D 70 61 74 68 6C
69 73 74 3E 20 49 3C 64 69 72 6C 69 73 74 3E 5D 0A 49 3C 66 69 6C 65 3E
0A 0A 3D 62 61 63 6B 0A 0A 3D 68 65 61 64 31 20 4F 50 54 49 4F 4E 53 20
41 4E 44 20 41 52 47 55 4D 45 4E 54 53 0A 0A 3D 6F 76 65 72 20 38 0A 0A
3D 69 74 65 6D 20 42 3C 2D 68 65 6C 70 3E 0A 0A 50 72 69 6E 74 20 61 20
62 72 69 65 66 20 68 65 6C 70 20 6D 65 73 73 61 67 65 20 61 6E 64 20 65
78 69 74 2E 0A 0A 3D 69 74 65 6D 20 42 3C 2D 6D 61 6E 3E 0A 0A 50 72 69
6E 74 20 74 68 69 73 20 63 6F 6D 6D 61 6E 64 27 73 20 6D 61 6E 75 61 6C
20 70 61 67 65 20 61 6E 64 20 65 78 69 74 2E 0A 0A 3D 69 74 65 6D 20 42
3C 2D 65 78 69 74 3E 20 49 3C 65 78 69 74 76 61 6C 3E 0A 0A 54 68 65 20
65 78 69 74 20 73 74 61 74 75 73 20 76 61 6C 75 65 20 74 6F 20 72 65 74
75 72 6E 2E 0A 0A 3D 69 74 65 6D 20 42 3C 2D 6F 75 74 70 75 74 3E 20 49
3C 6F 75 74 66 69 6C 65 3E 0A 0A 54 68 65 20 6F 75 74 70 75 74 20 66 69
6C 65 20 74 6F 20 70 72 69 6E 74 20 74 6F 2E 20 49 66 20 74 68 65 20 73
70 65 63 69 61 6C 20 6E 61 6D 65 73 20 22 2D 22 20 6F 72 20 22 3E 26 31
22 20 6F 72 20 22 3E 26 53 54 44 4F 55 54 22 0A 61 72 65 20 75 73 65 64
20 74 68 65 6E 20 73 74 61 6E 64 61 72 64 20 6F 75 74 70 75 74 20 69 73
20 75 73 65 64 2E 20 49 66 20 22 3E 26 32 22 20 6F 72 20 22 3E 26 53 54
44 45 52 52 22 20 69 73 20 75 73 65 64 20 74 68 65 6E 0A 73 74 61 6E 64
61 72 64 20 65 72 72 6F 72 20 69 73 20 75 73 65 64 2E 0A 0A 3D 69 74 65
6D 20 42 3C 2D 76 65 72 62 6F 73 65 3E 20 49 3C 6C 65 76 65 6C 3E 0A 0A
54 68 65 20 64 65 73 69 72 65 64 20 6C 65 76 65 6C 20 6F 66 20 76 65 72
62 6F 73 69 74 79 20 74 6F 20 75 73 65 3A 0A 0A 20 20 20 20 31 20 3A 20
70 72 69 6E 74 20 53 59 4E 4F 50 53 49 53 20 6F 6E 6C 79 0A 20 20 20 20
32 20 3A 20 70 72 69 6E 74 20 53 59 4E 4F 50 53 49 53 20 73 65 63 74 69
6F 6E 73 20 61 6E 64 20 61 6E 79 20 4F 50 54 49 4F 4E 53 2F 41 52 47 55
4D 45 4E 54 53 20 73 65 63 74 69 6F 6E 73 0A 20 20 20 20 33 20 3A 20 70
72 69 6E 74 20 74 68 65 20 65 6E 74 69 72 65 20 6D 61 6E 70 61 67 65 20
28 73 69 6D 69 6C 61 72 20 74 6F 20 72 75 6E 6E 69 6E 67 20 70 6F 64 32
74 65 78 74 29 0A 0A 3D 69 74 65 6D 20 42 3C 2D 70 61 74 68 6C 69 73 74
3E 20 49 3C 64 69 72 6C 69 73 74 3E 0A 0A 53 70 65 63 69 66 69 65 73 20
6F 6E 65 20 6F 72 20 6D 6F 72 65 20 64 69 72 65 63 74 6F 72 69 65 73 20
74 6F 20 73 65 61 72 63 68 20 66 6F 72 20 74 68 65 20 69 6E 70 75 74 20
66 69 6C 65 20 69 66 20 69 74 0A 77 61 73 20 6E 6F 74 20 73 75 70 70 6C
69 65 64 20 77 69 74 68 20 61 6E 20 61 62 73 6F 6C 75 74 65 20 70 61 74
68 2E 20 45 61 63 68 20 64 69 72 65 63 74 6F 72 79 20 70 61 74 68 20 69
6E 20 74 68 65 20 67 69 76 65 6E 0A 6C 69 73 74 20 73 68 6F 75 6C 64 20
62 65 20 73 65 70 61 72 61 74 65 64 20 62 79 20 61 20 27 3A 27 20 6F 6E
20 55 6E 69 78 20 28 27 3B 27 20 6F 6E 20 4D 53 57 69 6E 33 32 20 61 6E
64 20 44 4F 53 29 2E 0A 0A 3D 69 74 65 6D 20 49 3C 66 69 6C 65 3E 0A 0A
54 68 65 20 70 61 74 68 6E 61 6D 65 20 6F 66 20 61 20 66 69 6C 65 20 63
6F 6E 74 61 69 6E 69 6E 67 20 70 6F 64 20 64 6F 63 75 6D 65 6E 74 61 74
69 6F 6E 20 74 6F 20 62 65 20 6F 75 74 70 75 74 20 69 6E 0A 75 73 61 67
65 20 6D 65 73 61 67 65 20 66 6F 72 6D 61 74 20 28 64 65 66 61 75 6C 74
73 20 74 6F 20 73 74 61 6E 64 61 72 64 20 69 6E 70 75 74 29 2E 0A 0A 3D
62 61 63 6B 0A 0A 3D 68 65 61 64 31 20 44 45 53 43 52 49 50 54 49 4F 4E
0A 0A 42 3C 70 6F 64 32 75 73 61 67 65 3E 20 77 69 6C 6C 20 72 65 61 64
20 74 68 65 20 67 69 76 65 6E 20 69 6E 70 75 74 20 66 69 6C 65 20 6C 6F
6F 6B 69 6E 67 20 66 6F 72 20 70 6F 64 0A 64 6F 63 75 6D 65 6E 74 61 74
69 6F 6E 20 61 6E 64 20 77 69 6C 6C 20 70 72 69 6E 74 20 74 68 65 20 63
6F 72 72 65 73 70 6F 6E 64 69 6E 67 20 75 73 61 67 65 20 6D 65 73 73 61
67 65 2E 0A 49 66 20 6E 6F 20 69 6E 70 75 74 20 66 69 6C 65 20 69 73 20
73 70 65 63 69 66 65 64 20 74 68 61 6E 20 73 74 61 6E 64 61 72 64 20 69
6E 70 75 74 20 69 73 20 72 65 61 64 2E 0A 0A 42 3C 70 6F 64 32 75 73 61
67 65 3E 20 69 6E 76 6F 6B 65 73 20 74 68 65 20 42 3C 70 6F 64 32 75 73
61 67 65 28 29 3E 20 66 75 6E 63 74 69 6F 6E 20 69 6E 20 74 68 65 20 42
3C 50 6F 64 3A 3A 55 73 61 67 65 3E 0A 6D 6F 64 75 6C 65 2E 20 50 6C 65
61 73 65 20 73 65 65 20 4C 3C 50 6F 64 3A 3A 55 73 61 67 65 2F 70 6F 64
32 75 73 61 67 65 28 29 3E 2E 0A 0A 3D 68 65 61 64 31 20 53 45 45 20 41
4C 53 4F 0A 0A 4C 3C 50 6F 64 3A 3A 55 73 61 67 65 3E 2C 20 4C 3C 70 6F
64 32 74 65 78 74 28 31 29 3E 0A 0A 3D 68 65 61 64 31 20 41 55 54 48 4F
52 0A 0A 50 6C 65 61 73 65 20 72 65 70 6F 72 74 20 62 75 67 73 20 75 73
69 6E 67 20 4C 3C 68 74 74 70 3A 2F 2F 72 74 2E 63 70 61 6E 2E 6F 72 67
3E 2E 0A 0A 42 72 61 64 20 41 70 70 6C 65 74 6F 6E 20 45 3C 6C 74 3E 62
72 61 64 61 70 70 40 65 6E 74 65 72 61 63 74 2E 63 6F 6D 45 3C 67 74 3E
0A 0A 42 61 73 65 64 20 6F 6E 20 63 6F 64 65 20 66 6F 72 20 42 3C 70 6F
64 32 74 65 78 74 28 31 29 3E 20 77 72 69 74 74 65 6E 20 62 79 0A 54 6F
6D 20 43 68 72 69 73 74 69 61 6E 73 65 6E 20 45 3C 6C 74 3E 74 63 68 72
69 73 74 40 6D 6F 78 2E 70 65 72 6C 2E 63 6F 6D 45 3C 67 74 3E 0A 0A 3D
63 75 74 0A 0A 75 73 65 20 50 6F 64 3A 3A 55 73 61 67 65 3B 0A 75 73 65
20 47 65 74 6F 70 74 3A 3A 4C 6F 6E 67 3B 0A 0A 23 23 20 44 65 66 69 6E
65 20 6F 70 74 69 6F 6E 73 0A 6D 79 20 25 6F 70 74 69 6F 6E 73 20 3D 20
28 29 3B 0A 6D 79 20 40 6F 70 74 5F 73 70 65 63 73 20 3D 20 28 0A 20 20
20 20 22 68 65 6C 70 22 2C 0A 20 20 20 20 22 6D 61 6E 22 2C 0A 20 20 20
20 22 65 78 69 74 3D 69 22 2C 0A 20 20 20 20 22 6F 75 74 70 75 74 3D 73
22 2C 0A 20 20 20 20 22 70 61 74 68 6C 69 73 74 3D 73 22 2C 0A 20 20 20
20 22 76 65 72 62 6F 73 65 3D 69 22 2C 0A 29 3B 0A 0A 23 23 20 50 61 72
73 65 20 6F 70 74 69 6F 6E 73 0A 47 65 74 4F 70 74 69 6F 6E 73 28 5C 25
6F 70 74 69 6F 6E 73 2C 20 40 6F 70 74 5F 73 70 65 63 73 29 20 20 7C 7C
20 20 70 6F 64 32 75 73 61 67 65 28 32 29 3B 0A 70 6F 64 32 75 73 61 67
65 28 31 29 20 20 69 66 20 28 24 6F 70 74 69 6F 6E 73 7B 68 65 6C 70 7D
29 3B 0A 70 6F 64 32 75 73 61 67 65 28 56 45 52 42 4F 53 45 20 3D 3E 20
32 29 20 20 69 66 20 28 24 6F 70 74 69 6F 6E 73 7B 6D 61 6E 7D 29 3B 0A
0A 23 23 20 44 6F 6E 74 20 64 65 66 61 75 6C 74 20 74 6F 20 53 54 44 49
4E 20 69 66 20 63 6F 6E 6E 65 63 74 65 64 20 74 6F 20 61 20 74 65 72 6D
69 6E 61 6C 0A 70 6F 64 32 75 73 61 67 65 28 32 29 20 69 66 20 28 28 40
41 52 47 56 20 3D 3D 20 30 29 20 26 26 20 28 2D 74 20 53 54 44 49 4E 29
29 3B 0A 0A 40 41 52 47 56 20 3D 20 28 22 2D 22 29 20 20 75 6E 6C 65 73
73 20 28 40 41 52 47 56 20 3E 20 30 29 3B 0A 69 66 20 28 40 41 52 47 56
20 3E 20 31 29 20 7B 0A 20 20 20 20 70 72 69 6E 74 20 53 54 44 45 52 52
20 22 70 6F 64 32 75 73 61 67 65 3A 20 54 6F 6F 20 6D 61 6E 79 20 66 69
6C 65 6E 61 6D 65 73 20 67 69 76 65 6E 5C 6E 5C 6E 22 3B 0A 20 20 20 20
70 6F 64 32 75 73 61 67 65 28 32 29 3B 0A 7D 0A 0A 6D 79 20 25 75 73 61
67 65 20 3D 20 28 29 3B 0A 24 75 73 61 67 65 7B 2D 69 6E 70 75 74 7D 20
20 20 20 3D 20 73 68 69 66 74 28 40 41 52 47 56 29 3B 0A 24 75 73 61 67
65 7B 2D 65 78 69 74 76 61 6C 7D 20 20 3D 20 24 6F 70 74 69 6F 6E 73 7B
22 65 78 69 74 22 7D 20 20 20 20 20 20 69 66 20 28 64 65 66 69 6E 65 64
20 24 6F 70 74 69 6F 6E 73 7B 22 65 78 69 74 22 7D 29 3B 0A 24 75 73 61
67 65 7B 2D 6F 75 74 70 75 74 7D 20 20 20 3D 20 24 6F 70 74 69 6F 6E 73
7B 22 6F 75 74 70 75 74 22 7D 20 20 20 20 69 66 20 28 64 65 66 69 6E 65
64 20 24 6F 70 74 69 6F 6E 73 7B 22 6F 75 74 70 75 74 22 7D 29 3B 0A 24
75 73 61 67 65 7B 2D 76 65 72 62 6F 73 65 7D 20 20 3D 20 24 6F 70 74 69
6F 6E 73 7B 22 76 65 72 62 6F 73 65 22 7D 20 20 20 69 66 20 28 64 65 66
69 6E 65 64 20 24 6F 70 74 69 6F 6E 73 7B 22 76 65 72 62 6F 73 65 22 7D
29 3B 0A 24 75 73 61 67 65 7B 2D 70 61 74 68 6C 69 73 74 7D 20 3D 20 24
6F 70 74 69 6F 6E 73 7B 22 70 61 74 68 6C 69 73 74 22 7D 20 20 69 66 20
28 64 65 66 69 6E 65 64 20 24 6F 70 74 69 6F 6E 73 7B 22 70 61 74 68 6C
69 73 74 22 7D 29 3B 0A 0A 70 6F 64 32 75 73 61 67 65 28 5C 25 75 73 61
67 65 29 3B 0A 0A 0A | #!/usr/bin/perl eval
'exec perl -S $0 "$@"'
if 0; #########
########################
########################
#################### # p
od2usage -- command to p
rint usage messages from
embedded pod docs # # C
opyright (c) 1996-2000 b
y Bradford Appleton. All
rights reserved. # This
file is part of "PodPar
ser". PodParser is free
software; # you can redi
stribute it and/or modif
y it under the same term
s # as Perl itself. ####
########################
########################
########################
# use strict; use diagn
ostics; =head1 NAME po
d2usage - print usage me
ssages from embedded pod
docs in files =head1 S
YNOPSIS =over 12 =item
B<pod2usage> [B<-help>
] [B<-man>] [B<-exit>S<
>I<exitval>] [B<-output>
S< >I<outfile>] [B<-verb
ose> I<level>] [B<-pathl
ist> I<dirlist>] I<file>
=back =head1 OPTIONS
AND ARGUMENTS =over 8
=item B<-help> Print a
brief help message and e
xit. =item B<-man> Pri
nt this command's manual
page and exit. =item B
<-exit> I<exitval> The
exit status value to ret
urn. =item B<-output> I
<outfile> The output fi
le to print to. If the s
pecial names "-" or ">&1
" or ">&STDOUT" are used
then standard output is
used. If ">&2" or ">&ST
DERR" is used then stand
ard error is used. =ite
m B<-verbose> I<level>
The desired level of ver
bosity to use: 1 :
print SYNOPSIS only
2 : print SYNOPSIS secti
ons and any OPTIONS/ARGU
MENTS sections 3 : p
rint the entire manpage
(similar to running pod2
text) =item B<-pathlist
> I<dirlist> Specifies
one or more directories
to search for the input
file if it was not suppl
ied with an absolute pat
h. Each directory path i
n the given list should
be separated by a ':' on
Unix (';' on MSWin32 an
d DOS). =item I<file>
The pathname of a file c
ontaining pod documentat
ion to be output in usag
e mesage format (default
s to standard input). =
back =head1 DESCRIPTION
B<pod2usage> will read
the given input file lo
oking for pod documentat
ion and will print the c
orresponding usage messa
ge. If no input file is
specifed than standard i
nput is read. B<pod2usa
ge> invokes the B<pod2us
age()> function in the B
<Pod::Usage> module. Ple
ase see L<Pod::Usage/pod
2usage()>. =head1 SEE A
LSO L<Pod::Usage>, L<po
d2text(1)> =head1 AUTHO
R Please report bugs us
ing L<http://rt.cpan.org
>. Brad Appleton E<lt>b
radapp@enteract.comE<gt>
Based on code for B<po
d2text(1)> written by To
m Christiansen E<lt>tchr
ist@mox.perl.comE<gt> =
cut use Pod::Usage; use
Getopt::Long; ## Defin
e options my %options =
(); my @opt_specs = (
"help", "man",
"exit=i", "output=s
", "pathlist=s",
"verbose=i", ); ## Par
se options GetOptions(\%
options, @opt_specs) ||
pod2usage(2); pod2usag
e(1) if ($options{help}
); pod2usage(VERBOSE =>
2) if ($options{man});
## Dont default to STDI
N if connected to a term
inal pod2usage(2) if ((@
ARGV == 0) && (-t STDIN)
); @ARGV = ("-") unles
s (@ARGV > 0); if (@ARGV
> 1) { print STDERR
"pod2usage: Too many fi
lenames given\n\n";
pod2usage(2); } my %usa
ge = (); $usage{-input}
= shift(@ARGV); $usag
e{-exitval} = $options{
"exit"} if (defined
$options{"exit"}); $usa
ge{-output} = $options
{"output"} if (define
d $options{"output"}); $
usage{-verbose} = $opti
ons{"verbose"} if (def
ined $options{"verbose"}
); $usage{-pathlist} = $
options{"pathlist"} if
(defined $options{"pathl
ist"}); pod2usage(\%usa
ge); |