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
00000D20
00000D38
00000D50
00000D68
00000D80
00000D98
00000DB0
00000DC8
00000DE0
00000DF8
00000E10
00000E28
00000E40
00000E58
00000E70
00000E88
00000EA0
00000EB8
00000ED0
00000EE8
00000F00
00000F18
00000F30
00000F48
00000F60
00000F78
00000F90
00000FA8
00000FC0
00000FD8
00000FF0
00001008
00001020
00001038
00001050
00001068
00001080
00001098
000010B0
000010C8
000010E0
000010F8
00001110
00001128
00001140
00001158
00001170
00001188
000011A0
000011B8
000011D0
000011E8
00001200
00001218
00001230
00001248
00001260
00001278
00001290
000012A8
000012C0
000012D8
000012F0
00001308
00001320
00001338
00001350
00001368
00001380
00001398
000013B0
000013C8
000013E0
000013F8
00001410
00001428
00001440
00001458
00001470
00001488
000014A0
000014B8
000014D0
000014E8
00001500
00001518
00001530
00001548
00001560
00001578
00001590
000015A8
000015C0
000015D8
000015F0
00001608
00001620
00001638
00001650
00001668
00001680
00001698
000016B0
000016C8
000016E0
000016F8
00001710
00001728
00001740
00001758
00001770
00001788
000017A0
000017B8
000017D0
000017E8
00001800
00001818
00001830
00001848
00001860
00001878
00001890
000018A8
000018C0
000018D8
000018F0
00001908
00001920
00001938
00001950
00001968
00001980
00001998
000019B0
000019C8
000019E0
000019F8
00001A10
00001A28
00001A40
00001A58
00001A70
00001A88
00001AA0
00001AB8
00001AD0
00001AE8
00001B00
00001B18
00001B30
00001B48
00001B60
00001B78
00001B90
00001BA8
00001BC0
00001BD8
00001BF0
00001C08
00001C20
00001C38
00001C50
00001C68
00001C80
00001C98
00001CB0
00001CC8
00001CE0
00001CF8
00001D10
00001D28
00001D40
00001D58
00001D70
00001D88
00001DA0
00001DB8
00001DD0
00001DE8
00001E00
00001E18
00001E30
00001E48
00001E60
00001E78
00001E90
00001EA8
00001EC0
00001ED8
00001EF0
00001F08
00001F20
00001F38
00001F50
00001F68
00001F80
00001F98
00001FB0
00001FC8
00001FE0
00001FF8
00002010
00002028
00002040
00002058
00002070
00002088
000020A0
000020B8
000020D0
000020E8
00002100
00002118
00002130
00002148
00002160
00002178
00002190
000021A8
000021C0
000021D8
000021F0
00002208
00002220
00002238
00002250
00002268
00002280
00002298
000022B0
000022C8
000022E0
000022F8
00002310
00002328
00002340
00002358
00002370
00002388
000023A0
000023B8
000023D0
000023E8
00002400
00002418
00002430
00002448
00002460
00002478
00002490
000024A8
000024C0
000024D8
000024F0
00002508
00002520
00002538
00002550
00002568
00002580
00002598
000025B0
000025C8
000025E0
000025F8
00002610
00002628
00002640
00002658
00002670
00002688
000026A0
000026B8
000026D0
000026E8
00002700
00002718
00002730
00002748
00002760
00002778
00002790
000027A8
000027C0
000027D8
000027F0
00002808
00002820
00002838
00002850
00002868
00002880
00002898
000028B0
000028C8
000028E0
000028F8
00002910
00002928
00002940
00002958
00002970
00002988
000029A0
000029B8
000029D0
000029E8
00002A00
00002A18
00002A30
00002A48
00002A60
00002A78
00002A90
00002AA8
00002AC0
00002AD8
00002AF0
00002B08
00002B20
00002B38
00002B50
00002B68
00002B80
00002B98
00002BB0
00002BC8
00002BE0
00002BF8
00002C10
00002C28
00002C40
00002C58
00002C70
00002C88
00002CA0
00002CB8
00002CD0
00002CE8
00002D00
00002D18
00002D30
00002D48
00002D60
00002D78
00002D90
00002DA8
00002DC0
00002DD8
00002DF0
00002E08
00002E20
00002E38
00002E50
00002E68
00002E80
00002E98
| 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 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 20 2D 53 20
24 30 20 24 7B 31 2B 22 24 40 22 7D 27 0A 20 20 20 20 20 20 20 20 69 66
20 24 72 75 6E 6E 69 6E 67 5F 75 6E 64 65 72 5F 73 6F 6D 65 5F 73 68 65
6C 6C 3B 0A 0A 23 20 70 65 72 6C 69 76 70 20 56 20 30 2E 30 32 0A 0A 0A
73 75 62 20 75 73 61 67 65 20 7B 0A 20 20 20 20 77 61 72 6E 20 22 40 5F
5C 6E 22 20 69 66 20 40 5F 3B 0A 20 20 20 20 70 72 69 6E 74 20 3C 3C 20
22 20 20 20 20 45 4F 55 53 41 47 45 22 3B 0A 55 73 61 67 65 3A 0A 0A 20
20 20 20 24 30 20 5B 2D 61 5D 20 5B 2D 70 5D 20 5B 2D 76 5D 20 7C 20 5B
2D 68 5D 0A 0A 20 20 20 20 2D 61 20 52 75 6E 20 61 6C 6C 20 74 65 73 74
73 20 28 64 65 66 61 75 6C 74 20 69 73 20 74 6F 20 73 6B 69 70 20 2E 70
68 20 74 65 73 74 73 29 0A 20 20 20 20 2D 70 20 50 72 69 6E 74 20 61 20
70 72 65 66 61 63 65 20 62 65 66 6F 72 65 20 65 61 63 68 20 74 65 73 74
20 74 65 6C 6C 69 6E 67 20 77 68 61 74 20 69 74 20 77 69 6C 6C 20 74 65
73 74 2E 0A 20 20 20 20 2D 76 20 56 65 72 62 6F 73 65 20 6D 6F 64 65 20
69 6E 20 77 68 69 63 68 20 65 78 74 72 61 20 69 6E 66 6F 72 6D 61 74 69
6F 6E 20 61 62 6F 75 74 20 74 65 73 74 20 72 65 73 75 6C 74 73 0A 20 20
20 20 20 20 20 69 73 20 70 72 69 6E 74 65 64 2E 20 20 54 65 73 74 20 66
61 69 6C 75 72 65 73 20 61 6C 77 61 79 73 20 70 72 69 6E 74 20 6F 75 74
20 73 6F 6D 65 20 65 78 74 72 61 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 0A
20 20 20 20 20 20 20 72 65 67 61 72 64 6C 65 73 73 20 6F 66 20 77 68 65
74 68 65 72 20 6F 72 20 6E 6F 74 20 74 68 69 73 20 73 77 69 74 63 68 20
69 73 20 73 65 74 2E 0A 20 20 20 20 2D 68 20 50 72 69 6E 74 73 20 74 68
69 73 20 68 65 6C 70 20 6D 65 73 73 61 67 65 2E 0A 20 20 20 20 45 4F 55
53 41 47 45 0A 20 20 20 20 65 78 69 74 3B 0A 7D 0A 0A 75 73 65 20 76 61
72 73 20 71 77 28 25 6F 70 74 29 3B 20 23 20 61 6C 6C 6F 77 20 74 65 73
74 69 6E 67 20 77 69 74 68 20 6F 6C 64 65 72 20 76 65 72 73 69 6F 6E 73
20 28 64 6F 20 6E 6F 74 20 75 73 65 20 6F 75 72 29 0A 0A 40 6F 70 74 7B
20 71 77 2F 3F 20 48 20 68 20 50 20 70 20 56 20 76 2F 20 7D 20 3D 20 71
77 28 30 20 30 20 30 20 30 20 30 20 30 20 30 29 3B 0A 0A 77 68 69 6C 65
20 28 24 41 52 47 56 5B 30 5D 20 3D 7E 20 2F 5E 2D 2F 29 20 7B 0A 20 20
20 20 24 41 52 47 56 5B 30 5D 20 3D 7E 20 73 2F 5E 2D 2F 2F 3B 20 0A 20
20 20 20 66 6F 72 20 6D 79 20 24 66 6C 61 67 20 28 73 70 6C 69 74 28 2F
2F 2C 24 41 52 47 56 5B 30 5D 29 29 20 7B 0A 20 20 20 20 20 20 20 20 75
73 61 67 65 28 29 20 69 66 20 27 3F 27 20 3D 7E 20 2F 5C 51 24 66 6C 61
67 2F 3B 0A 20 20 20 20 20 20 20 20 75 73 61 67 65 28 29 20 69 66 20 27
68 27 20 3D 7E 20 2F 5C 51 24 66 6C 61 67 2F 3B 0A 20 20 20 20 20 20 20
20 75 73 61 67 65 28 29 20 69 66 20 27 48 27 20 3D 7E 20 2F 5C 51 24 66
6C 61 67 2F 3B 0A 20 20 20 20 20 20 20 20 75 73 61 67 65 28 22 75 6E 6B
6E 6F 77 6E 20 66 6C 61 67 3A 20 60 24 66 6C 61 67 27 22 29 20 75 6E 6C
65 73 73 20 27 48 68 50 70 56 76 61 27 20 3D 7E 20 2F 5C 51 24 66 6C 61
67 2F 3B 0A 20 20 20 20 20 20 20 20 77 61 72 6E 20 22 24 30 3A 20 60 24
66 6C 61 67 27 20 66 6C 61 67 20 61 6C 72 65 61 64 79 20 73 65 74 5C 6E
22 20 69 66 20 24 6F 70 74 7B 24 66 6C 61 67 7D 2B 2B 3B 0A 20 20 20 20
7D 20 0A 20 20 20 20 73 68 69 66 74 3B 0A 7D 0A 0A 24 6F 70 74 7B 70 7D
2B 2B 20 69 66 20 24 6F 70 74 7B 50 7D 3B 0A 24 6F 70 74 7B 76 7D 2B 2B
20 69 66 20 24 6F 70 74 7B 56 7D 3B 0A 0A 6D 79 20 24 70 61 73 73 5F 5F
74 6F 74 61 6C 20 3D 20 30 3B 0A 6D 79 20 24 65 72 72 6F 72 5F 74 6F 74
61 6C 20 3D 20 30 3B 0A 6D 79 20 24 74 65 73 74 73 5F 74 6F 74 61 6C 20
3D 20 30 3B 0A 0A 6D 79 20 24 70 65 72 6C 70 61 74 68 20 3D 20 27 2F 75
73 72 2F 62 69 6E 2F 70 65 72 6C 27 3B 0A 6D 79 20 24 75 73 65 69 74 68
72 65 61 64 73 20 3D 20 27 64 65 66 69 6E 65 27 3B 0A 0A 70 72 69 6E 74
20 22 23 23 20 43 68 65 63 6B 69 6E 67 20 50 65 72 6C 20 62 69 6E 61 72
79 20 76 69 61 20 76 61 72 69 61 62 6C 65 20 60 5C 24 70 65 72 6C 70 61
74 68 27 20 3D 20 24 70 65 72 6C 70 61 74 68 2E 5C 6E 22 20 69 66 20 24
6F 70 74 7B 27 70 27 7D 3B 0A 0A 69 66 20 28 2D 78 20 24 70 65 72 6C 70
61 74 68 29 20 7B 0A 20 20 20 20 70 72 69 6E 74 20 22 23 23 20 50 65 72
6C 20 62 69 6E 61 72 79 20 60 24 70 65 72 6C 70 61 74 68 27 20 61 70 70
65 61 72 73 20 65 78 65 63 75 74 61 62 6C 65 2E 5C 6E 22 20 69 66 20 24
6F 70 74 7B 27 76 27 7D 3B 0A 20 20 20 20 70 72 69 6E 74 20 22 6F 6B 20
31 5C 6E 22 3B 0A 20 20 20 20 24 70 61 73 73 5F 5F 74 6F 74 61 6C 2B 2B
3B 0A 7D 0A 65 6C 73 65 20 7B 0A 20 20 20 20 70 72 69 6E 74 20 22 23 20
50 65 72 6C 20 62 69 6E 61 72 79 20 60 24 70 65 72 6C 70 61 74 68 27 20
64 6F 65 73 20 6E 6F 74 20 61 70 70 65 61 72 20 65 78 65 63 75 74 61 62
6C 65 2E 5C 6E 22 3B 0A 20 20 20 20 70 72 69 6E 74 20 22 6E 6F 74 20 6F
6B 20 31 5C 6E 22 3B 0A 20 20 20 20 24 65 72 72 6F 72 5F 74 6F 74 61 6C
2B 2B 3B 0A 7D 0A 24 74 65 73 74 73 5F 74 6F 74 61 6C 2B 2B 3B 0A 0A 0A
70 72 69 6E 74 20 22 23 23 20 43 68 65 63 6B 69 6E 67 20 50 65 72 6C 20
76 65 72 73 69 6F 6E 20 76 69 61 20 76 61 72 69 61 62 6C 65 20 60 5C 24
5D 27 2E 5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 70 27 7D 3B 0A 0A 6D 79
20 24 69 76 70 5F 56 45 52 53 49 4F 4E 20 3D 20 35 2E 30 30 38 30 30 38
3B 0A 0A 69 66 20 28 24 69 76 70 5F 56 45 52 53 49 4F 4E 20 65 71 20 24
5D 29 20 7B 0A 20 20 20 20 70 72 69 6E 74 20 22 23 23 20 50 65 72 6C 20
76 65 72 73 69 6F 6E 20 60 24 5D 27 20 61 70 70 65 61 72 73 20 69 6E 73
74 61 6C 6C 65 64 20 61 73 20 65 78 70 65 63 74 65 64 2E 5C 6E 22 20 69
66 20 24 6F 70 74 7B 27 76 27 7D 3B 0A 20 20 20 20 70 72 69 6E 74 20 22
6F 6B 20 32 5C 6E 22 3B 0A 20 20 20 20 24 70 61 73 73 5F 5F 74 6F 74 61
6C 2B 2B 3B 0A 7D 0A 65 6C 73 65 20 7B 0A 20 20 20 20 70 72 69 6E 74 20
22 23 20 50 65 72 6C 20 76 65 72 73 69 6F 6E 20 60 24 5D 27 20 69 6E 73
74 61 6C 6C 65 64 2C 20 65 78 70 65 63 74 65 64 20 24 69 76 70 5F 56 45
52 53 49 4F 4E 2E 5C 6E 22 3B 0A 20 20 20 20 70 72 69 6E 74 20 22 6E 6F
74 20 6F 6B 20 32 5C 6E 22 3B 0A 20 20 20 20 24 65 72 72 6F 72 5F 74 6F
74 61 6C 2B 2B 3B 0A 7D 0A 24 74 65 73 74 73 5F 74 6F 74 61 6C 2B 2B 3B
0A 0A 0A 70 72 69 6E 74 20 22 23 23 20 43 68 65 63 6B 69 6E 67 20 72 6F
6F 74 73 20 6F 66 20 74 68 65 20 50 65 72 6C 20 6C 69 62 72 61 72 79 20
64 69 72 65 63 74 6F 72 79 20 74 72 65 65 20 76 69 61 20 76 61 72 69 61
62 6C 65 20 60 5C 40 49 4E 43 27 2E 5C 6E 22 20 69 66 20 24 6F 70 74 7B
27 70 27 7D 3B 0A 0A 6D 79 20 24 49 4E 43 5F 74 6F 74 61 6C 20 3D 20 30
3B 0A 6D 79 20 24 49 4E 43 5F 74 68 65 72 65 20 3D 20 30 3B 0A 66 6F 72
65 61 63 68 20 28 40 49 4E 43 29 20 7B 0A 20 20 20 20 6E 65 78 74 20 69
66 20 24 5F 20 65 71 20 27 2E 27 3B 20 23 20 73 6B 69 70 20 2D 64 20 74
65 73 74 20 68 65 72 65 0A 20 20 20 20 69 66 20 28 24 5E 4F 20 65 71 20
27 4D 61 63 4F 53 27 29 20 7B 0A 20 20 20 20 20 20 20 20 6E 65 78 74 20
69 66 20 24 5F 20 65 71 20 27 3A 27 3B 20 23 20 73 6B 69 70 20 2D 64 20
74 65 73 74 20 68 65 72 65 0A 20 20 20 20 20 20 20 20 6E 65 78 74 20 69
66 20 24 5F 20 65 71 20 27 44 65 76 3A 50 73 65 75 64 6F 3A 27 3B 20 23
20 77 68 79 20 69 73 20 74 68 69 73 20 69 6E 20 40 49 4E 43 3F 0A 20 20
20 20 7D 0A 20 20 20 20 69 66 20 28 2D 64 20 24 5F 29 20 7B 0A 20 20 20
20 20 20 20 20 70 72 69 6E 74 20 22 23 23 20 50 65 72 6C 20 5C 40 49 4E
43 20 64 69 72 65 63 74 6F 72 79 20 60 24 5F 27 20 65 78 69 73 74 73 2E
5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 76 27 7D 3B 0A 20 20 20 20 20 20
20 20 24 49 4E 43 5F 74 68 65 72 65 2B 2B 3B 0A 20 20 20 20 7D 0A 20 20
20 20 65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 22
23 20 50 65 72 6C 20 5C 40 49 4E 43 20 64 69 72 65 63 74 6F 72 79 20 60
24 5F 27 20 64 6F 65 73 20 6E 6F 74 20 61 70 70 65 61 72 20 74 6F 20 65
78 69 73 74 2E 5C 6E 22 3B 0A 20 20 20 20 7D 0A 20 20 20 20 24 49 4E 43
5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 69 66 20 28 24 49 4E 43 5F 74 6F 74
61 6C 20 3D 3D 20 24 49 4E 43 5F 74 68 65 72 65 29 20 7B 0A 20 20 20 20
70 72 69 6E 74 20 22 6F 6B 20 33 5C 6E 22 3B 0A 20 20 20 20 24 70 61 73
73 5F 5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 65 6C 73 65 20 7B 0A 20 20 20
20 70 72 69 6E 74 20 22 6E 6F 74 20 6F 6B 20 33 5C 6E 22 3B 0A 20 20 20
20 24 65 72 72 6F 72 5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 24 74 65 73 74
73 5F 74 6F 74 61 6C 2B 2B 3B 0A 0A 0A 70 72 69 6E 74 20 22 23 23 20 43
68 65 63 6B 69 6E 67 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 73 20 6F 66
20 6D 6F 64 75 6C 65 73 20 6E 65 63 65 73 73 61 72 79 20 66 6F 72 20 69
76 70 2E 5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 70 27 7D 3B 0A 0A 6D 79
20 24 6E 65 65 64 65 64 5F 74 6F 74 61 6C 20 3D 20 30 3B 0A 6D 79 20 24
6E 65 65 64 65 64 5F 74 68 65 72 65 20 3D 20 30 3B 0A 66 6F 72 65 61 63
68 20 28 71 77 28 43 6F 6E 66 69 67 2E 70 6D 20 45 78 74 55 74 69 6C 73
2F 49 6E 73 74 61 6C 6C 65 64 2E 70 6D 29 29 20 7B 0A 20 20 20 20 24 40
20 3D 20 75 6E 64 65 66 3B 0A 20 20 20 20 24 6E 65 65 64 65 64 5F 74 6F
74 61 6C 2B 2B 3B 0A 20 20 20 20 65 76 61 6C 20 22 72 65 71 75 69 72 65
20 5C 22 24 5F 5C 22 3B 22 3B 0A 20 20 20 20 69 66 20 28 21 24 40 29 20
7B 0A 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 22 23 23 20 4D 6F 64 75
6C 65 20 60 24 5F 27 20 61 70 70 65 61 72 73 20 74 6F 20 62 65 20 69 6E
73 74 61 6C 6C 65 64 2E 5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 76 27 7D
3B 0A 20 20 20 20 20 20 20 20 24 6E 65 65 64 65 64 5F 74 68 65 72 65 2B
2B 3B 0A 20 20 20 20 7D 0A 20 20 20 20 65 6C 73 65 20 7B 0A 20 20 20 20
20 20 20 20 70 72 69 6E 74 20 22 23 20 4E 65 65 64 65 64 20 6D 6F 64 75
6C 65 20 60 24 5F 27 20 64 6F 65 73 20 6E 6F 74 20 61 70 70 65 61 72 20
74 6F 20 62 65 20 70 72 6F 70 65 72 6C 79 20 69 6E 73 74 61 6C 6C 65 64
2E 5C 6E 22 3B 0A 20 20 20 20 7D 0A 20 20 20 20 24 40 20 3D 20 75 6E 64
65 66 3B 0A 7D 0A 69 66 20 28 24 6E 65 65 64 65 64 5F 74 6F 74 61 6C 20
3D 3D 20 24 6E 65 65 64 65 64 5F 74 68 65 72 65 29 20 7B 0A 20 20 20 20
70 72 69 6E 74 20 22 6F 6B 20 34 5C 6E 22 3B 0A 20 20 20 20 24 70 61 73
73 5F 5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 65 6C 73 65 20 7B 0A 20 20 20
20 70 72 69 6E 74 20 22 6E 6F 74 20 6F 6B 20 34 5C 6E 22 3B 0A 20 20 20
20 24 65 72 72 6F 72 5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 24 74 65 73 74
73 5F 74 6F 74 61 6C 2B 2B 3B 0A 0A 0A 70 72 69 6E 74 20 22 23 23 20 43
68 65 63 6B 69 6E 67 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 73 20 6F 66
20 65 78 74 65 6E 73 69 6F 6E 73 20 62 75 69 6C 74 20 77 69 74 68 20 70
65 72 6C 2E 5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 70 27 7D 3B 0A 0A 75
73 65 20 43 6F 6E 66 69 67 3B 0A 0A 6D 79 20 24 65 78 74 65 6E 73 69 6F
6E 73 5F 74 6F 74 61 6C 20 3D 20 30 3B 0A 6D 79 20 24 65 78 74 65 6E 73
69 6F 6E 73 5F 74 68 65 72 65 20 3D 20 30 3B 0A 69 66 20 28 64 65 66 69
6E 65 64 28 24 43 6F 6E 66 69 67 7B 27 65 78 74 65 6E 73 69 6F 6E 73 27
7D 29 29 20 7B 0A 20 20 20 20 6D 79 20 40 65 78 74 65 6E 73 69 6F 6E 73
20 3D 20 73 70 6C 69 74 28 2F 5C 73 2B 2F 2C 24 43 6F 6E 66 69 67 7B 27
65 78 74 65 6E 73 69 6F 6E 73 27 7D 29 3B 0A 20 20 20 20 66 6F 72 65 61
63 68 20 28 40 65 78 74 65 6E 73 69 6F 6E 73 29 20 7B 0A 20 20 20 20 20
20 20 20 6E 65 78 74 20 69 66 20 28 24 5F 20 65 71 20 27 27 29 3B 0A 20
20 20 20 20 20 20 20 69 66 20 28 20 24 75 73 65 69 74 68 72 65 61 64 73
20 21 7E 20 2F 64 65 66 69 6E 65 2F 69 20 29 20 7B 0A 20 20 20 20 20 20
20 20 20 20 20 20 6E 65 78 74 20 69 66 20 28 24 5F 20 65 71 20 27 74 68
72 65 61 64 73 27 29 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 6E 65 78
74 20 69 66 20 28 24 5F 20 65 71 20 27 74 68 72 65 61 64 73 2F 73 68 61
72 65 64 27 29 3B 0A 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 20 20 20
20 6E 65 78 74 20 69 66 20 28 24 5F 20 65 71 20 27 44 65 76 65 6C 2F 44
50 72 6F 66 27 29 3B 20 0A 20 20 20 20 20 20 20 20 20 20 20 23 20 56 4D
53 24 20 70 65 72 6C 20 20 2D 65 20 22 65 76 61 6C 20 22 22 72 65 71 75
69 72 65 20 5C 22 22 44 65 76 65 6C 2F 44 50 72 6F 66 2E 70 6D 5C 22 22
3B 22 22 20 70 72 69 6E 74 20 24 40 22 0A 20 20 20 20 20 20 20 20 20 20
20 23 20 5C 4E 54 3E 20 70 65 72 6C 20 20 2D 65 20 22 65 76 61 6C 20 5C
22 72 65 71 75 69 72 65 20 27 44 65 76 65 6C 2F 44 50 72 6F 66 2E 70 6D
27 5C 22 3B 20 70 72 69 6E 74 20 24 40 22 0A 20 20 20 20 20 20 20 20 20
20 20 23 20 44 50 72 6F 66 3A 20 72 75 6E 20 70 65 72 6C 20 77 69 74 68
20 2D 64 20 74 6F 20 75 73 65 20 44 50 72 6F 66 2E 0A 20 20 20 20 20 20
20 20 20 20 20 23 20 43 6F 6D 70 69 6C 61 74 69 6F 6E 20 66 61 69 6C 65
64 20 69 6E 20 72 65 71 75 69 72 65 20 61 74 20 28 65 76 61 6C 20 31 29
20 6C 69 6E 65 20 31 2E 0A 20 20 20 20 20 20 20 20 65 76 61 6C 20 22 20
72 65 71 75 69 72 65 20 5C 22 24 5F 2E 70 6D 5C 22 3B 20 22 3B 0A 20 20
20 20 20 20 20 20 69 66 20 28 21 24 40 29 20 7B 0A 20 20 20 20 20 20 20
20 20 20 20 20 70 72 69 6E 74 20 22 23 23 20 4D 6F 64 75 6C 65 20 60 24
5F 27 20 61 70 70 65 61 72 73 20 74 6F 20 62 65 20 69 6E 73 74 61 6C 6C
65 64 2E 5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 76 27 7D 3B 0A 20 20 20
20 20 20 20 20 20 20 20 20 24 65 78 74 65 6E 73 69 6F 6E 73 5F 74 68 65
72 65 2B 2B 3B 0A 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 20 20 20 20
65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6E 74
20 22 23 20 52 65 71 75 69 72 65 64 20 6D 6F 64 75 6C 65 20 60 24 5F 27
20 64 6F 65 73 20 6E 6F 74 20 61 70 70 65 61 72 20 74 6F 20 62 65 20 70
72 6F 70 65 72 6C 79 20 69 6E 73 74 61 6C 6C 65 64 2E 5C 6E 22 3B 0A 20
20 20 20 20 20 20 20 20 20 20 20 24 40 20 3D 20 75 6E 64 65 66 3B 0A 20
20 20 20 20 20 20 20 7D 0A 20 20 20 20 20 20 20 20 24 65 78 74 65 6E 73
69 6F 6E 73 5F 74 6F 74 61 6C 2B 2B 3B 0A 20 20 20 20 7D 0A 0A 20 20 20
20 23 20 41 20 73 69 6C 6C 79 20 6E 61 6D 65 20 66 6F 72 20 61 20 6D 6F
64 75 6C 65 20 28 74 68 61 74 20 68 6F 70 65 66 75 6C 6C 79 20 77 6F 6E
27 74 20 65 76 65 72 20 65 78 69 73 74 29 2E 0A 20 20 20 20 23 20 4E 6F
74 65 20 74 68 61 74 20 74 68 69 73 20 74 65 73 74 20 73 65 72 76 65 73
20 6D 6F 72 65 20 61 73 20 61 20 63 68 65 63 6B 20 6F 66 20 74 68 65 20
76 61 6C 69 64 69 74 79 20 6F 66 20 74 68 65 0A 20 20 20 20 23 20 61 63
74 75 61 6C 6C 20 72 65 71 75 69 72 65 64 20 6D 6F 64 75 6C 65 20 74 65
73 74 73 20 61 62 6F 76 65 2E 0A 20 20 20 20 6D 79 20 24 75 6E 6E 65 63
65 73 73 61 72 79 20 3D 20 27 62 4C 75 52 66 6C 65 27 3B 0A 0A 20 20 20
20 69 66 20 28 21 67 72 65 70 28 2F 24 75 6E 6E 65 63 65 73 73 61 72 79
2F 2C 20 40 65 78 74 65 6E 73 69 6F 6E 73 29 29 20 7B 0A 20 20 20 20 20
20 20 20 24 40 20 3D 20 75 6E 64 65 66 3B 0A 20 20 20 20 20 20 20 20 65
76 61 6C 20 22 20 72 65 71 75 69 72 65 20 5C 22 24 75 6E 6E 65 63 65 73
73 61 72 79 2E 70 6D 5C 22 3B 20 22 3B 0A 20 20 20 20 20 20 20 20 69 66
20 28 24 40 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6E
74 20 22 23 23 20 55 6E 6E 65 63 65 73 73 61 72 79 20 6D 6F 64 75 6C 65
20 60 24 75 6E 6E 65 63 65 73 73 61 72 79 27 20 64 6F 65 73 20 6E 6F 74
20 61 70 70 65 61 72 20 74 6F 20 62 65 20 69 6E 73 74 61 6C 6C 65 64 2E
5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 76 27 7D 3B 0A 20 20 20 20 20 20
20 20 7D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 7B 0A 20 20 20 20 20
20 20 20 20 20 20 20 70 72 69 6E 74 20 22 23 20 55 6E 6E 65 63 65 73 73
61 72 79 20 6D 6F 64 75 6C 65 20 60 24 75 6E 6E 65 63 65 73 73 61 72 79
27 20 61 70 70 65 61 72 73 20 74 6F 20 62 65 20 69 6E 73 74 61 6C 6C 65
64 2E 5C 6E 22 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 24 65 78 74 65
6E 73 69 6F 6E 73 5F 74 68 65 72 65 2B 2B 3B 0A 20 20 20 20 20 20 20 20
7D 0A 20 20 20 20 7D 0A 20 20 20 20 24 40 20 3D 20 75 6E 64 65 66 3B 0A
7D 0A 69 66 20 28 24 65 78 74 65 6E 73 69 6F 6E 73 5F 74 6F 74 61 6C 20
3D 3D 20 24 65 78 74 65 6E 73 69 6F 6E 73 5F 74 68 65 72 65 29 20 7B 0A
20 20 20 20 70 72 69 6E 74 20 22 6F 6B 20 35 5C 6E 22 3B 0A 20 20 20 20
24 70 61 73 73 5F 5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 65 6C 73 65 20 7B
0A 20 20 20 20 70 72 69 6E 74 20 22 6E 6F 74 20 6F 6B 20 35 5C 6E 22 3B
0A 20 20 20 20 24 65 72 72 6F 72 5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 24
74 65 73 74 73 5F 74 6F 74 61 6C 2B 2B 3B 0A 0A 0A 70 72 69 6E 74 20 22
23 23 20 43 68 65 63 6B 69 6E 67 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E
73 20 6F 66 20 6C 61 74 65 72 20 61 64 64 69 74 69 6F 6E 61 6C 20 65 78
74 65 6E 73 69 6F 6E 73 2E 5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 70 27
7D 3B 0A 0A 75 73 65 20 45 78 74 55 74 69 6C 73 3A 3A 49 6E 73 74 61 6C
6C 65 64 3B 0A 0A 6D 79 20 24 69 6E 73 74 61 6C 6C 65 64 5F 74 6F 74 61
6C 20 3D 20 30 3B 0A 6D 79 20 24 69 6E 73 74 61 6C 6C 65 64 5F 74 68 65
72 65 20 3D 20 30 3B 0A 6D 79 20 24 76 65 72 73 69 6F 6E 5F 63 68 65 63
6B 20 3D 20 30 3B 0A 6D 79 20 24 69 6E 73 74 61 6C 6C 65 64 20 3D 20 45
78 74 55 74 69 6C 73 3A 3A 49 6E 73 74 61 6C 6C 65 64 20 2D 3E 20 6E 65
77 28 29 3B 0A 6D 79 20 40 6D 6F 64 75 6C 65 73 20 3D 20 24 69 6E 73 74
61 6C 6C 65 64 20 2D 3E 20 6D 6F 64 75 6C 65 73 28 29 3B 0A 6D 79 20 40
6D 69 73 73 69 6E 67 20 3D 20 28 29 3B 0A 6D 79 20 24 76 65 72 73 69 6F
6E 20 3D 20 75 6E 64 65 66 3B 0A 66 6F 72 20 28 40 6D 6F 64 75 6C 65 73
29 20 7B 0A 20 20 20 20 24 69 6E 73 74 61 6C 6C 65 64 5F 74 6F 74 61 6C
2B 2B 3B 0A 20 20 20 20 23 20 43 6F 6E 73 69 64 65 72 20 69 74 20 74 68
65 72 65 20 69 66 20 69 74 20 63 6F 6E 74 61 69 6E 73 20 6F 6E 65 20 6F
72 20 6D 6F 72 65 20 66 69 6C 65 73 2C 0A 20 20 20 20 23 20 61 6E 64 20
68 61 73 20 7A 65 72 6F 20 6D 69 73 73 69 6E 67 20 66 69 6C 65 73 2C 0A
20 20 20 20 23 20 61 6E 64 20 68 61 73 20 61 20 64 65 66 69 6E 65 64 20
76 65 72 73 69 6F 6E 0A 20 20 20 20 24 76 65 72 73 69 6F 6E 20 3D 20 75
6E 64 65 66 3B 0A 20 20 20 20 24 76 65 72 73 69 6F 6E 20 3D 20 24 69 6E
73 74 61 6C 6C 65 64 20 2D 3E 20 76 65 72 73 69 6F 6E 28 24 5F 29 3B 0A
20 20 20 20 69 66 20 28 24 76 65 72 73 69 6F 6E 29 20 7B 0A 20 20 20 20
20 20 20 20 70 72 69 6E 74 20 22 23 23 20 24 5F 3B 20 24 76 65 72 73 69
6F 6E 5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 76 27 7D 3B 0A 20 20 20 20
20 20 20 20 24 76 65 72 73 69 6F 6E 5F 63 68 65 63 6B 2B 2B 3B 0A 20 20
20 20 7D 0A 20 20 20 20 65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 70
72 69 6E 74 20 22 23 20 24 5F 3B 20 4E 4F 20 56 45 52 53 49 4F 4E 5C 6E
22 20 69 66 20 24 6F 70 74 7B 27 76 27 7D 3B 0A 20 20 20 20 7D 0A 20 20
20 20 24 76 65 72 73 69 6F 6E 20 3D 20 75 6E 64 65 66 3B 0A 20 20 20 20
40 6D 69 73 73 69 6E 67 20 3D 20 28 29 3B 0A 20 20 20 20 40 6D 69 73 73
69 6E 67 20 3D 20 24 69 6E 73 74 61 6C 6C 65 64 20 2D 3E 20 76 61 6C 69
64 61 74 65 28 24 5F 29 3B 0A 20 20 20 20 69 66 20 28 24 23 6D 69 73 73
69 6E 67 20 3E 3D 20 30 29 20 7B 0A 20 20 20 20 20 20 20 20 70 72 69 6E
74 20 22 23 20 66 69 6C 65 22 2C 2B 28 24 23 6D 69 73 73 69 6E 67 20 3D
3D 20 30 29 20 3F 20 27 27 20 3A 20 27 73 27 2C 22 20 6D 69 73 73 69 6E
67 20 66 72 6F 6D 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 3A 5C 6E 22 3B
0A 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 27 23 20 27 2C 6A 6F 69 6E
28 27 20 27 2C 40 6D 69 73 73 69 6E 67 29 2C 22 5C 6E 22 3B 0A 20 20 20
20 7D 0A 20 20 20 20 65 6C 73 69 66 20 28 24 23 6D 69 73 73 69 6E 67 20
3D 3D 20 2D 31 29 20 7B 0A 20 20 20 20 20 20 20 20 24 69 6E 73 74 61 6C
6C 65 64 5F 74 68 65 72 65 2B 2B 3B 0A 20 20 20 20 7D 0A 20 20 20 20 40
6D 69 73 73 69 6E 67 20 3D 20 28 29 3B 0A 7D 0A 69 66 20 28 28 24 69 6E
73 74 61 6C 6C 65 64 5F 74 6F 74 61 6C 20 3D 3D 20 24 69 6E 73 74 61 6C
6C 65 64 5F 74 68 65 72 65 29 20 26 26 20 0A 20 20 20 20 28 24 69 6E 73
74 61 6C 6C 65 64 5F 74 6F 74 61 6C 20 3D 3D 20 24 76 65 72 73 69 6F 6E
5F 63 68 65 63 6B 29 29 20 7B 0A 20 20 20 20 70 72 69 6E 74 20 22 6F 6B
20 36 5C 6E 22 3B 0A 20 20 20 20 24 70 61 73 73 5F 5F 74 6F 74 61 6C 2B
2B 3B 0A 7D 0A 65 6C 73 65 20 7B 0A 20 20 20 20 70 72 69 6E 74 20 22 6E
6F 74 20 6F 6B 20 36 5C 6E 22 3B 0A 20 20 20 20 24 65 72 72 6F 72 5F 74
6F 74 61 6C 2B 2B 3B 0A 7D 0A 24 74 65 73 74 73 5F 74 6F 74 61 6C 2B 2B
3B 0A 0A 0A 69 66 20 28 24 6F 70 74 7B 27 61 27 7D 29 20 7B 0A 70 72 69
6E 74 20 22 23 23 20 43 68 65 63 6B 69 6E 67 20 69 6E 73 74 61 6C 6C 61
74 69 6F 6E 73 20 6F 66 20 2A 2E 68 20 2D 3E 20 2A 2E 70 68 20 68 65 61
64 65 72 20 66 69 6C 65 73 2E 5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 70
27 7D 3B 0A 6D 79 20 24 70 68 5F 74 68 65 72 65 20 3D 20 30 3B 0A 6D 79
20 24 76 61 72 20 3D 20 75 6E 64 65 66 3B 0A 6D 79 20 24 76 61 6C 20 3D
20 75 6E 64 65 66 3B 0A 6D 79 20 24 68 5F 66 69 6C 65 20 3D 20 75 6E 64
65 66 3B 0A 23 20 4A 75 73 74 20 61 62 6F 75 74 20 22 61 6E 79 22 20 43
20 69 6D 70 6C 65 6D 65 6E 74 61 74 69 6F 6E 20 6F 75 67 68 74 20 74 6F
20 68 61 76 65 20 61 20 73 74 64 69 6F 2E 68 20 28 65 76 65 6E 20 69 66
20 0A 23 20 43 6F 6E 66 69 67 2E 70 6D 20 6D 61 79 20 6E 6F 74 20 6C 69
73 74 20 61 20 69 5F 73 74 64 69 6F 20 76 61 72 29 2E 0A 6D 79 20 40 70
68 5F 66 69 6C 65 73 20 3D 20 71 77 28 73 74 64 69 6F 2E 70 68 29 3B 0A
23 20 41 64 64 20 74 68 65 20 6F 6E 65 73 20 74 68 61 74 20 77 65 20 6B
6E 6F 77 20 74 68 61 74 20 70 65 72 6C 20 74 68 69 6E 6B 73 20 61 72 65
20 74 68 65 72 65 3A 0A 77 68 69 6C 65 20 28 28 24 76 61 72 2C 20 24 76
61 6C 29 20 3D 20 65 61 63 68 20 25 43 6F 6E 66 69 67 29 20 7B 0A 20 20
20 20 69 66 20 28 24 76 61 72 20 3D 7E 20 6D 2F 69 5F 28 2E 2B 29 2F 20
26 26 20 24 76 61 6C 20 65 71 20 27 64 65 66 69 6E 65 27 29 20 7B 0A 20
20 20 20 20 20 20 20 24 68 5F 66 69 6C 65 20 3D 20 24 31 3B 0A 09 23 20
53 6F 6D 65 20 68 65 61 64 65 72 20 61 6E 64 20 73 79 6D 62 6F 6C 20 6E
61 6D 65 73 20 64 6F 6E 27 74 20 6D 61 74 63 68 20 66 6F 72 20 68 79 73
74 65 72 69 63 61 6C 20 72 61 69 73 69 6E 73 2E 0A 09 24 68 5F 66 69 6C
65 20 3D 20 27 61 72 70 61 2F 69 6E 65 74 27 20 20 20 20 69 66 20 24 68
5F 66 69 6C 65 20 65 71 20 27 61 72 70 61 69 6E 65 74 27 3B 0A 09 24 68
5F 66 69 6C 65 20 3D 20 27 6E 65 74 69 6E 65 74 2F 69 6E 27 20 20 20 69
66 20 24 68 5F 66 69 6C 65 20 65 71 20 27 6E 69 69 6E 27 3B 0A 09 24 68
5F 66 69 6C 65 20 3D 20 27 6E 65 74 69 6E 65 74 2F 74 63 70 27 20 20 69
66 20 24 68 5F 66 69 6C 65 20 65 71 20 27 6E 65 74 69 6E 65 74 74 63 70
27 3B 0A 09 24 68 5F 66 69 6C 65 20 3D 20 27 73 79 73 2F 72 65 73 6F 75
72 63 65 27 20 69 66 20 24 68 5F 66 69 6C 65 20 65 71 20 27 73 79 73 72
65 73 72 63 27 3B 0A 09 24 68 5F 66 69 6C 65 20 3D 20 27 73 79 73 2F 73
65 6C 65 63 74 27 20 20 20 69 66 20 24 68 5F 66 69 6C 65 20 65 71 20 27
73 79 73 73 65 6C 63 74 27 3B 0A 09 24 68 5F 66 69 6C 65 20 3D 20 27 73
79 73 2F 73 65 63 75 72 69 74 79 27 20 69 66 20 24 68 5F 66 69 6C 65 20
65 71 20 27 73 79 73 73 65 63 72 74 27 3B 0A 20 20 20 20 20 20 20 20 24
68 5F 66 69 6C 65 20 3D 20 27 72 70 63 73 76 63 2F 64 62 6D 27 20 20 20
69 66 20 24 68 5F 66 69 6C 65 20 65 71 20 27 72 70 63 73 76 63 64 62 6D
27 3B 0A 20 20 20 20 20 20 20 20 23 20 54 68 69 73 20 6F 75 67 68 74 20
74 6F 20 64 69 73 74 69 6E 67 75 69 73 68 20 73 79 73 6C 6F 67 20 66 72
6F 6D 20 73 79 73 2F 73 79 73 6C 6F 67 2E 0A 20 20 20 20 20 20 20 20 23
20 28 4E 42 20 73 79 73 6C 6F 67 2E 70 68 20 69 73 20 68 65 61 76 69 6C
79 20 75 73 65 64 20 66 6F 72 20 74 68 65 20 44 42 49 20 70 72 65 2D 72
65 71 75 69 73 69 74 65 73 29 2E 0A 20 20 20 20 20 20 20 20 24 68 5F 66
69 6C 65 20 3D 7E 20 73 7B 5E 73 79 73 28 5C 77 2E 2B 29 7D 7B 73 79 73
2F 24 31 7D 20 75 6E 6C 65 73 73 20 24 68 5F 66 69 6C 65 20 65 71 20 27
73 79 73 6C 6F 67 27 3B 0A 20 20 20 20 20 20 20 20 70 75 73 68 28 40 70
68 5F 66 69 6C 65 73 2C 20 22 24 68 5F 66 69 6C 65 2E 70 68 22 29 3B 0A
20 20 20 20 7D 0A 7D 0A 23 66 6F 72 65 61 63 68 20 28 71 77 28 73 74 64
69 6F 2E 70 68 20 73 79 73 6C 6F 67 2E 70 68 29 29 20 7B 0A 66 6F 72 65
61 63 68 20 28 40 70 68 5F 66 69 6C 65 73 29 20 7B 0A 20 20 20 20 24 40
20 3D 20 75 6E 64 65 66 3B 0A 20 20 20 20 65 76 61 6C 20 22 72 65 71 75
69 72 65 20 5C 22 24 5F 5C 22 3B 22 3B 0A 20 20 20 20 69 66 20 28 21 24
40 29 20 7B 0A 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 22 23 23 20 50
65 72 6C 20 68 65 61 64 65 72 20 60 24 5F 27 20 61 70 70 65 61 72 73 20
74 6F 20 62 65 20 69 6E 73 74 61 6C 6C 65 64 2E 5C 6E 22 20 69 66 20 24
6F 70 74 7B 27 76 27 7D 3B 0A 20 20 20 20 20 20 20 20 24 70 68 5F 74 68
65 72 65 2B 2B 3B 0A 20 20 20 20 7D 0A 20 20 20 20 65 6C 73 65 20 7B 0A
20 20 20 20 20 20 20 20 70 72 69 6E 74 20 22 23 20 50 65 72 6C 20 68 65
61 64 65 72 20 60 24 5F 27 20 64 6F 65 73 20 6E 6F 74 20 61 70 70 65 61
72 20 74 6F 20 62 65 20 70 72 6F 70 65 72 6C 79 20 69 6E 73 74 61 6C 6C
65 64 2E 5C 6E 22 3B 0A 20 20 20 20 7D 0A 20 20 20 20 24 40 20 3D 20 75
6E 64 65 66 3B 0A 7D 0A 0A 69 66 20 28 73 63 61 6C 61 72 28 40 70 68 5F
66 69 6C 65 73 29 20 3D 3D 20 24 70 68 5F 74 68 65 72 65 29 20 7B 0A 20
20 20 20 70 72 69 6E 74 20 22 6F 6B 20 37 5C 6E 22 3B 0A 20 20 20 20 24
70 61 73 73 5F 5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 65 6C 73 65 20 7B 0A
20 20 20 20 70 72 69 6E 74 20 22 6E 6F 74 20 6F 6B 20 37 5C 6E 22 3B 0A
20 20 20 20 24 65 72 72 6F 72 5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 24 74
65 73 74 73 5F 74 6F 74 61 6C 2B 2B 3B 0A 7D 0A 65 6C 73 65 20 7B 0A 20
20 20 20 70 72 69 6E 74 20 22 23 23 20 20 53 6B 69 70 20 63 68 65 63 6B
69 6E 67 20 6F 66 20 2A 2E 70 68 20 68 65 61 64 65 72 20 66 69 6C 65 73
2E 5C 6E 22 20 69 66 20 24 6F 70 74 7B 27 70 27 7D 3B 0A 7D 0A 0A 23 20
46 69 6E 61 6C 20 72 65 70 6F 72 74 20 28 72 61 74 68 65 72 20 74 68 61
6E 20 66 65 65 64 20 6F 75 73 72 73 65 6C 76 65 73 20 74 6F 20 54 65 73
74 3A 3A 48 61 72 6E 65 73 73 3A 3A 72 75 6E 74 65 73 74 73 28 29 0A 23
20 77 65 20 73 69 6D 70 6C 79 20 66 6F 72 6D 61 74 20 73 6F 6D 65 20 6F
75 74 70 75 74 20 6F 6E 20 6F 75 72 20 6F 77 6E 20 74 6F 20 6B 65 65 70
20 74 68 69 6E 67 73 20 73 69 6D 70 6C 65 20 61 6E 64 0A 23 20 65 61 73
69 65 72 20 74 6F 20 22 66 69 78 22 20 2D 20 61 74 20 6C 65 61 73 74 20
66 6F 72 20 6E 6F 77 2E 0A 0A 69 66 20 28 24 65 72 72 6F 72 5F 74 6F 74
61 6C 20 3D 3D 20 30 20 26 26 20 24 74 65 73 74 73 5F 74 6F 74 61 6C 29
20 7B 0A 20 20 20 20 70 72 69 6E 74 20 22 41 6C 6C 20 74 65 73 74 73 20
73 75 63 63 65 73 73 66 75 6C 2E 5C 6E 22 3B 0A 7D 20 65 6C 73 69 66 20
28 24 74 65 73 74 73 5F 74 6F 74 61 6C 3D 3D 30 29 7B 0A 20 20 20 20 20
20 20 20 64 69 65 20 22 46 41 49 4C 45 44 2D 2D 6E 6F 20 74 65 73 74 73
20 77 65 72 65 20 72 75 6E 20 66 6F 72 20 73 6F 6D 65 20 72 65 61 73 6F
6E 2E 5C 6E 22 3B 0A 7D 20 65 6C 73 65 20 7B 0A 20 20 20 20 6D 79 20 24
72 61 74 65 20 3D 20 30 2E 30 3B 0A 20 20 20 20 69 66 20 28 24 74 65 73
74 73 5F 74 6F 74 61 6C 20 3E 20 30 29 20 7B 20 24 72 61 74 65 20 3D 20
73 70 72 69 6E 74 66 20 22 25 2E 32 66 22 2C 20 31 30 30 2E 30 20 2A 20
28 24 70 61 73 73 5F 5F 74 6F 74 61 6C 20 2F 20 24 74 65 73 74 73 5F 74
6F 74 61 6C 29 3B 20 7D 0A 20 20 20 20 70 72 69 6E 74 66 20 22 20 25 64
2F 25 64 20 73 75 62 74 65 73 74 73 20 66 61 69 6C 65 64 2C 20 25 2E 32
66 25 25 20 6F 6B 61 79 2E 5C 6E 22 2C 0A 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 65 72 72
6F 72 5F 74 6F 74 61 6C 2C 20 24 74 65 73 74 73 5F 74 6F 74 61 6C 2C 20
24 72 61 74 65 3B 0A 7D 0A 0A 3D 68 65 61 64 31 20 4E 41 4D 45 0A 0A 70
65 72 6C 69 76 70 20 2D 20 50 65 72 6C 20 49 6E 73 74 61 6C 6C 61 74 69
6F 6E 20 56 65 72 69 66 69 63 61 74 69 6F 6E 20 50 72 6F 63 65 64 75 72
65 0A 0A 3D 68 65 61 64 31 20 53 59 4E 4F 50 53 49 53 0A 0A 42 3C 70 65
72 6C 69 76 70 3E 20 5B 42 3C 2D 61 3E 5D 20 5B 42 3C 2D 70 3E 5D 20 5B
42 3C 2D 76 3E 5D 20 5B 42 3C 2D 68 3E 5D 0A 0A 3D 68 65 61 64 31 20 44
45 53 43 52 49 50 54 49 4F 4E 0A 0A 54 68 65 20 42 3C 70 65 72 6C 69 76
70 3E 20 70 72 6F 67 72 61 6D 20 69 73 20 73 65 74 20 75 70 20 61 74 20
50 65 72 6C 20 73 6F 75 72 63 65 20 63 6F 64 65 20 62 75 69 6C 64 20 74
69 6D 65 20 74 6F 20 74 65 73 74 20 74 68 65 0A 50 65 72 6C 20 76 65 72
73 69 6F 6E 20 69 74 20 77 61 73 20 62 75 69 6C 74 20 75 6E 64 65 72 2E
20 20 49 74 20 63 61 6E 20 62 65 20 75 73 65 64 20 61 66 74 65 72 20 72
75 6E 6E 69 6E 67 3A 0A 0A 20 20 20 20 6D 61 6B 65 20 69 6E 73 74 61 6C
6C 0A 0A 28 6F 72 20 79 6F 75 72 20 70 6C 61 74 66 6F 72 6D 27 73 20 65
71 75 69 76 61 6C 65 6E 74 20 70 72 6F 63 65 64 75 72 65 29 20 74 6F 20
76 65 72 69 66 79 20 74 68 61 74 20 42 3C 70 65 72 6C 3E 20 61 6E 64 20
69 74 73 0A 6C 69 62 72 61 72 69 65 73 20 68 61 76 65 20 62 65 65 6E 20
69 6E 73 74 61 6C 6C 65 64 20 63 6F 72 72 65 63 74 6C 79 2E 20 20 41 20
63 6F 72 72 65 63 74 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 20 69 73 20
76 65 72 69 66 69 65 64 0A 62 79 20 6F 75 74 70 75 74 20 74 68 61 74 20
6C 6F 6F 6B 73 20 6C 69 6B 65 3A 0A 0A 20 20 20 20 6F 6B 20 31 0A 20 20
20 20 6F 6B 20 32 0A 0A 65 74 63 2E 0A 0A 3D 68 65 61 64 31 20 4F 50 54
49 4F 4E 53 0A 0A 3D 6F 76 65 72 20 35 0A 0A 3D 69 74 65 6D 20 42 3C 2D
68 3E 20 68 65 6C 70 0A 0A 50 72 69 6E 74 73 20 6F 75 74 20 61 20 62 72
69 65 66 20 68 65 6C 70 20 6D 65 73 73 61 67 65 2E 0A 0A 3D 69 74 65 6D
20 42 3C 2D 61 3E 20 72 75 6E 20 61 6C 6C 20 74 65 73 74 73 0A 0A 4E 6F
72 6D 61 6C 6C 79 20 74 65 73 74 73 20 66 6F 72 20 6F 70 74 69 6F 6E 61
6C 20 66 65 61 74 75 72 65 73 20 61 72 65 20 73 6B 69 70 70 65 64 2E 20
20 57 69 74 68 20 2D 61 20 61 6C 6C 20 74 65 73 74 73 0A 61 72 65 20 65
78 65 63 75 74 65 64 2E 0A 0A 3D 69 74 65 6D 20 42 3C 2D 70 3E 20 70 72
69 6E 74 20 70 72 65 66 61 63 65 0A 0A 47 69 76 65 73 20 61 20 64 65 73
63 72 69 70 74 69 6F 6E 20 6F 66 20 65 61 63 68 20 74 65 73 74 20 70 72
69 6F 72 20 74 6F 20 70 65 72 66 6F 72 6D 69 6E 67 20 69 74 2E 0A 0A 3D
69 74 65 6D 20 42 3C 2D 76 3E 20 76 65 72 62 6F 73 65 0A 0A 47 69 76 65
73 20 6D 6F 72 65 20 64 65 74 61 69 6C 65 64 20 69 6E 66 6F 72 6D 61 74
69 6F 6E 20 61 62 6F 75 74 20 65 61 63 68 20 74 65 73 74 2C 20 61 66 74
65 72 20 69 74 20 68 61 73 20 62 65 65 6E 20 70 65 72 66 6F 72 6D 65 64
2E 0A 4E 6F 74 65 20 74 68 61 74 20 61 6E 79 20 66 61 69 6C 65 64 20 74
65 73 74 73 20 6F 75 67 68 74 20 74 6F 20 70 72 69 6E 74 20 6F 75 74 20
73 6F 6D 65 20 65 78 74 72 61 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 77
68 65 74 68 65 72 0A 6F 72 20 6E 6F 74 20 2D 76 20 69 73 20 74 68 72 6F
77 6E 2E 0A 0A 3D 62 61 63 6B 0A 0A 3D 68 65 61 64 31 20 44 49 41 47 4E
4F 53 54 49 43 53 0A 0A 3D 6F 76 65 72 20 34 0A 0A 3D 69 74 65 6D 20 2A
20 70 72 69 6E 74 20 22 23 20 50 65 72 6C 20 62 69 6E 61 72 79 20 60 24
70 65 72 6C 70 61 74 68 27 20 64 6F 65 73 20 6E 6F 74 20 61 70 70 65 61
72 20 65 78 65 63 75 74 61 62 6C 65 2E 5C 6E 22 3B 0A 0A 4C 69 6B 65 6C
79 20 74 6F 20 6F 63 63 75 72 20 66 6F 72 20 61 20 70 65 72 6C 20 62 69
6E 61 72 79 20 74 68 61 74 20 77 61 73 20 6E 6F 74 20 70 72 6F 70 65 72
6C 79 20 69 6E 73 74 61 6C 6C 65 64 2E 0A 43 6F 72 72 65 63 74 20 62 79
20 63 6F 6E 64 75 63 74 69 6E 67 20 61 20 70 72 6F 70 65 72 20 69 6E 73
74 61 6C 6C 61 74 69 6F 6E 2E 0A 0A 3D 69 74 65 6D 20 2A 20 70 72 69 6E
74 20 22 23 20 50 65 72 6C 20 76 65 72 73 69 6F 6E 20 60 24 5D 27 20 69
6E 73 74 61 6C 6C 65 64 2C 20 65 78 70 65 63 74 65 64 20 24 69 76 70 5F
56 45 52 53 49 4F 4E 2E 5C 6E 22 3B 0A 0A 4C 69 6B 65 6C 79 20 74 6F 20
6F 63 63 75 72 20 66 6F 72 20 61 20 70 65 72 6C 20 74 68 61 74 20 77 61
73 20 6E 6F 74 20 70 72 6F 70 65 72 6C 79 20 69 6E 73 74 61 6C 6C 65 64
2E 0A 43 6F 72 72 65 63 74 20 62 79 20 63 6F 6E 64 75 63 74 69 6E 67 20
61 20 70 72 6F 70 65 72 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 2E 0A 0A
3D 69 74 65 6D 20 2A 20 70 72 69 6E 74 20 22 23 20 50 65 72 6C 20 5C 40
49 4E 43 20 64 69 72 65 63 74 6F 72 79 20 60 24 5F 27 20 64 6F 65 73 20
6E 6F 74 20 61 70 70 65 61 72 20 74 6F 20 65 78 69 73 74 2E 5C 6E 22 3B
0A 0A 4C 69 6B 65 6C 79 20 74 6F 20 6F 63 63 75 72 20 66 6F 72 20 61 20
70 65 72 6C 20 6C 69 62 72 61 72 79 20 74 72 65 65 20 74 68 61 74 20 77
61 73 20 6E 6F 74 20 70 72 6F 70 65 72 6C 79 20 69 6E 73 74 61 6C 6C 65
64 2E 0A 43 6F 72 72 65 63 74 20 62 79 20 63 6F 6E 64 75 63 74 69 6E 67
20 61 20 70 72 6F 70 65 72 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 2E 0A
0A 3D 69 74 65 6D 20 2A 20 70 72 69 6E 74 20 22 23 20 4E 65 65 64 65 64
20 6D 6F 64 75 6C 65 20 60 24 5F 27 20 64 6F 65 73 20 6E 6F 74 20 61 70
70 65 61 72 20 74 6F 20 62 65 20 70 72 6F 70 65 72 6C 79 20 69 6E 73 74
61 6C 6C 65 64 2E 5C 6E 22 3B 0A 0A 4F 6E 65 20 6F 66 20 74 68 65 20 74
77 6F 20 6D 6F 64 75 6C 65 73 20 74 68 61 74 20 69 73 20 75 73 65 64 20
62 79 20 70 65 72 6C 69 76 70 20 77 61 73 20 6E 6F 74 20 70 72 65 73 65
6E 74 20 69 6E 20 74 68 65 20 0A 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 2E
20 20 54 68 69 73 20 69 73 20 61 20 73 65 72 69 6F 75 73 20 65 72 72 6F
72 20 73 69 6E 63 65 20 69 74 20 61 64 76 65 72 73 65 6C 79 20 61 66 66
65 63 74 73 20 70 65 72 6C 69 76 70 27 73 0A 61 62 69 6C 69 74 79 20 74
6F 20 66 75 6E 63 74 69 6F 6E 2E 20 20 59 6F 75 20 6D 61 79 20 62 65 20
61 62 6C 65 20 74 6F 20 63 6F 72 72 65 63 74 20 74 68 69 73 20 62 79 20
70 65 72 66 6F 72 6D 69 6E 67 20 61 0A 70 72 6F 70 65 72 20 70 65 72 6C
20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 2E 0A 0A 3D 69 74 65 6D 20 2A 20
70 72 69 6E 74 20 22 23 20 52 65 71 75 69 72 65 64 20 6D 6F 64 75 6C 65
20 60 24 5F 27 20 64 6F 65 73 20 6E 6F 74 20 61 70 70 65 61 72 20 74 6F
20 62 65 20 70 72 6F 70 65 72 6C 79 20 69 6E 73 74 61 6C 6C 65 64 2E 5C
6E 22 3B 0A 0A 41 6E 20 61 74 74 65 6D 70 74 20 74 6F 20 43 3C 65 76 61
6C 20 22 72 65 71 75 69 72 65 20 24 6D 6F 64 75 6C 65 22 3E 20 66 61 69
6C 65 64 2C 20 65 76 65 6E 20 74 68 6F 75 67 68 20 74 68 65 20 6C 69 73
74 20 6F 66 20 0A 65 78 74 65 6E 73 69 6F 6E 73 20 69 6E 64 69 63 61 74
65 64 20 74 68 61 74 20 69 74 20 73 68 6F 75 6C 64 20 73 75 63 63 65 65
64 2E 20 20 43 6F 72 72 65 63 74 20 62 79 20 63 6F 6E 64 75 63 74 69 6E
67 20 61 20 70 72 6F 70 65 72 20 0A 69 6E 73 74 61 6C 6C 61 74 69 6F 6E
2E 0A 0A 3D 69 74 65 6D 20 2A 20 70 72 69 6E 74 20 22 23 20 55 6E 6E 65
63 65 73 73 61 72 79 20 6D 6F 64 75 6C 65 20 60 62 4C 75 52 66 6C 65 27
20 61 70 70 65 61 72 73 20 74 6F 20 62 65 20 69 6E 73 74 61 6C 6C 65 64
2E 5C 6E 22 3B 0A 0A 54 68 69 73 20 74 65 73 74 20 6E 6F 74 20 63 6F 6D
69 6E 67 20 6F 75 74 20 6F 6B 20 63 6F 75 6C 64 20 69 6E 64 69 63 61 74
65 20 74 68 61 74 20 79 6F 75 20 68 61 76 65 20 69 6E 20 66 61 63 74 20
69 6E 73 74 61 6C 6C 65 64 20 0A 61 20 62 4C 75 52 66 6C 65 2E 70 6D 20
6D 6F 64 75 6C 65 20 6F 72 20 74 68 61 74 20 74 68 65 20 43 3C 65 76 61
6C 20 22 20 72 65 71 75 69 72 65 20 5C 22 24 6D 6F 64 75 6C 65 5F 6E 61
6D 65 2E 70 6D 5C 22 3B 20 22 3E 0A 74 65 73 74 20 6D 61 79 20 67 69 76
65 20 6D 69 73 6C 65 61 64 69 6E 67 20 72 65 73 75 6C 74 73 20 77 69 74
68 20 79 6F 75 72 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 20 6F 66 20 70
65 72 6C 2E 20 20 49 66 20 79 6F 75 72 73 0A 69 73 20 74 68 65 20 6C 61
74 74 65 72 20 63 61 73 65 20 74 68 65 6E 20 70 6C 65 61 73 65 20 6C 65
74 20 74 68 65 20 61 75 74 68 6F 72 20 6B 6E 6F 77 2E 0A 0A 3D 69 74 65
6D 20 2A 20 70 72 69 6E 74 20 22 23 20 66 69 6C 65 22 2C 2B 28 24 23 6D
69 73 73 69 6E 67 20 3D 3D 20 30 29 20 3F 20 27 27 20 3A 20 27 73 27 2C
22 20 6D 69 73 73 69 6E 67 20 66 72 6F 6D 20 69 6E 73 74 61 6C 6C 61 74
69 6F 6E 3A 5C 6E 22 3B 0A 0A 4F 6E 65 20 6F 72 20 6D 6F 72 65 20 66 69
6C 65 73 20 74 75 72 6E 65 64 20 75 70 20 6D 69 73 73 69 6E 67 20 61 63
63 6F 72 64 69 6E 67 20 74 6F 20 61 20 72 75 6E 20 6F 66 20 0A 43 3C 45
78 74 55 74 69 6C 73 3A 3A 49 6E 73 74 61 6C 6C 65 64 20 2D 45 3C 67 74
3E 20 76 61 6C 69 64 61 74 65 28 29 3E 20 6F 76 65 72 20 79 6F 75 72 20
69 6E 73 74 61 6C 6C 61 74 69 6F 6E 2E 0A 43 6F 72 72 65 63 74 20 62 79
20 63 6F 6E 64 75 63 74 69 6E 67 20 61 20 70 72 6F 70 65 72 20 69 6E 73
74 61 6C 6C 61 74 69 6F 6E 2E 0A 0A 3D 69 74 65 6D 20 2A 20 70 72 69 6E
74 20 22 23 20 50 65 72 6C 20 68 65 61 64 65 72 20 60 24 5F 27 20 64 6F
65 73 20 6E 6F 74 20 61 70 70 65 61 72 20 74 6F 20 62 65 20 70 72 6F 70
65 72 6C 79 20 69 6E 73 74 61 6C 6C 65 64 2E 5C 6E 22 3B 0A 0A 43 6F 72
72 65 63 74 20 62 79 20 72 75 6E 6E 69 6E 67 20 42 3C 68 32 70 68 3E 20
6F 76 65 72 20 79 6F 75 72 20 73 79 73 74 65 6D 27 73 20 43 20 68 65 61
64 65 72 20 66 69 6C 65 73 2E 20 20 49 66 20 6E 65 63 65 73 73 61 72 79
2C 20 0A 65 64 69 74 20 74 68 65 20 72 65 73 75 6C 74 69 6E 67 20 2A 2E
70 68 20 66 69 6C 65 73 20 74 6F 20 65 6C 69 6D 69 6E 61 74 65 20 70 65
72 6C 20 73 79 6E 74 61 78 20 65 72 72 6F 72 73 2E 0A 0A 3D 62 61 63 6B
0A 0A 46 6F 72 20 66 75 72 74 68 65 72 20 69 6E 66 6F 72 6D 61 74 69 6F
6E 20 6F 6E 20 68 6F 77 20 74 6F 20 63 6F 6E 64 75 63 74 20 61 20 70 72
6F 70 65 72 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 20 63 6F 6E 73 75 6C
74 20 74 68 65 20 0A 49 4E 53 54 41 4C 4C 20 66 69 6C 65 20 74 68 61 74
20 63 6F 6D 65 73 20 77 69 74 68 20 74 68 65 20 70 65 72 6C 20 73 6F 75
72 63 65 20 61 6E 64 20 74 68 65 20 52 45 41 44 4D 45 20 66 69 6C 65 20
66 6F 72 20 79 6F 75 72 20 0A 70 6C 61 74 66 6F 72 6D 2E 0A 0A 3D 68 65
61 64 31 20 41 55 54 48 4F 52 0A 0A 50 65 74 65 72 20 50 72 79 6D 6D 65
72 0A 0A 3D 63 75 74 0A 0A | #!/usr/bin/perl eval
'exec /usr/bin/perl -S
$0 ${1+"$@"}' if
$running_under_some_she
ll; # perlivp V 0.02
sub usage { warn "@_
\n" if @_; print <<
" EOUSAGE"; Usage:
$0 [-a] [-p] [-v] | [
-h] -a Run all test
s (default is to skip .p
h tests) -p Print a
preface before each test
telling what it will te
st. -v Verbose mode
in which extra informati
on about test results
is printed. Test f
ailures always print out
some extra information
regardless of whe
ther or not this switch
is set. -h Prints th
is help message. EOU
SAGE exit; } use va
rs qw(%opt); # allow tes
ting with older versions
(do not use our) @opt{
qw/? H h P p V v/ } = q
w(0 0 0 0 0 0 0); while
($ARGV[0] =~ /^-/) {
$ARGV[0] =~ s/^-//;
for my $flag (split(/
/,$ARGV[0])) { u
sage() if '?' =~ /\Q$fla
g/; usage() if '
h' =~ /\Q$flag/;
usage() if 'H' =~ /\Q$f
lag/; usage("unk
nown flag: `$flag'") unl
ess 'HhPpVva' =~ /\Q$fla
g/; warn "$0: `$
flag' flag already set\n
" if $opt{$flag}++;
} shift; } $opt{p}
++ if $opt{P}; $opt{v}++
if $opt{V}; my $pass__
total = 0; my $error_tot
al = 0; my $tests_total
= 0; my $perlpath = '/u
sr/bin/perl'; my $useith
reads = 'define'; print
"## Checking Perl binar
y via variable `\$perlpa
th' = $perlpath.\n" if $
opt{'p'}; if (-x $perlp
ath) { print "## Per
l binary `$perlpath' app
ears executable.\n" if $
opt{'v'}; print "ok
1\n"; $pass__total++
; } else { print "#
Perl binary `$perlpath'
does not appear executab
le.\n"; print "not o
k 1\n"; $error_total
++; } $tests_total++;
print "## Checking Perl
version via variable `\$
]'.\n" if $opt{'p'}; my
$ivp_VERSION = 5.008008
; if ($ivp_VERSION eq $
]) { print "## Perl
version `$]' appears ins
talled as expected.\n" i
f $opt{'v'}; print "
ok 2\n"; $pass__tota
l++; } else { print
"# Perl version `$]' ins
talled, expected $ivp_VE
RSION.\n"; print "no
t ok 2\n"; $error_to
tal++; } $tests_total++;
print "## Checking ro
ots of the Perl library
directory tree via varia
ble `\@INC'.\n" if $opt{
'p'}; my $INC_total = 0
; my $INC_there = 0; for
each (@INC) { next i
f $_ eq '.'; # skip -d t
est here if ($^O eq
'MacOS') { next
if $_ eq ':'; # skip -d
test here next i
f $_ eq 'Dev:Pseudo:'; #
why is this in @INC?
} if (-d $_) {
print "## Perl \@IN
C directory `$_' exists.
\n" if $opt{'v'};
$INC_there++; }
else { print "
# Perl \@INC directory `
$_' does not appear to e
xist.\n"; } $INC
_total++; } if ($INC_tot
al == $INC_there) {
print "ok 3\n"; $pas
s__total++; } else {
print "not ok 3\n";
$error_total++; } $test
s_total++; print "## C
hecking installations of
modules necessary for i
vp.\n" if $opt{'p'}; my
$needed_total = 0; my $
needed_there = 0; foreac
h (qw(Config.pm ExtUtils
/Installed.pm)) { $@
= undef; $needed_to
tal++; eval "require
\"$_\";"; if (!$@)
{ print "## Modu
le `$_' appears to be in
stalled.\n" if $opt{'v'}
; $needed_there+
+; } else {
print "# Needed modu
le `$_' does not appear
to be properly installed
.\n"; } $@ = und
ef; } if ($needed_total
== $needed_there) {
print "ok 4\n"; $pas
s__total++; } else {
print "not ok 4\n";
$error_total++; } $test
s_total++; print "## C
hecking installations of
extensions built with p
erl.\n" if $opt{'p'}; u
se Config; my $extensio
ns_total = 0; my $extens
ions_there = 0; if (defi
ned($Config{'extensions'
})) { my @extensions
= split(/\s+/,$Config{'
extensions'}); forea
ch (@extensions) {
next if ($_ eq '');
if ( $useithreads
!~ /define/i ) {
next if ($_ eq 'th
reads'); nex
t if ($_ eq 'threads/sha
red'); }
next if ($_ eq 'Devel/D
Prof'); # VM
S$ perl -e "eval ""requ
ire \""Devel/DProf.pm\""
;"" print $@"
# \NT> perl -e "eval \
"require 'Devel/DProf.pm
'\"; print $@"
# DProf: run perl with
-d to use DProf.
# Compilation faile
d in require at (eval 1)
line 1. eval "
require \"$_.pm\"; ";
if (!$@) {
print "## Module `$
_' appears to be install
ed.\n" if $opt{'v'};
$extensions_the
re++; }
else { print
"# Required module `$_'
does not appear to be p
roperly installed.\n";
$@ = undef;
} $extens
ions_total++; }
# A silly name for a mo
dule (that hopefully won
't ever exist). # No
te that this test serves
more as a check of the
validity of the # ac
tuall required module te
sts above. my $unnec
essary = 'bLuRfle';
if (!grep(/$unnecessary
/, @extensions)) {
$@ = undef; e
val " require \"$unneces
sary.pm\"; "; if
($@) { prin
t "## Unnecessary module
`$unnecessary' does not
appear to be installed.
\n" if $opt{'v'};
} else {
print "# Unnecess
ary module `$unnecessary
' appears to be installe
d.\n"; $exte
nsions_there++;
} } $@ = undef;
} if ($extensions_total
== $extensions_there) {
print "ok 5\n";
$pass__total++; } else {
print "not ok 5\n";
$error_total++; } $
tests_total++; print "
## Checking installation
s of later additional ex
tensions.\n" if $opt{'p'
}; use ExtUtils::Instal
led; my $installed_tota
l = 0; my $installed_the
re = 0; my $version_chec
k = 0; my $installed = E
xtUtils::Installed -> ne
w(); my @modules = $inst
alled -> modules(); my @
missing = (); my $versio
n = undef; for (@modules
) { $installed_total
++; # Consider it th
ere if it contains one o
r more files, # and
has zero missing files,
# and has a defined
version $version = u
ndef; $version = $in
stalled -> version($_);
if ($version) {
print "## $_; $versi
on\n" if $opt{'v'};
$version_check++;
} else { p
rint "# $_; NO VERSION\n
" if $opt{'v'}; }
$version = undef;
@missing = (); @miss
ing = $installed -> vali
date($_); if ($#miss
ing >= 0) { prin
t "# file",+($#missing =
= 0) ? '' : 's'," missin
g from installation:\n";
print '# ',join
(' ',@missing),"\n";
} elsif ($#missing
== -1) { $instal
led_there++; } @
missing = (); } if (($in
stalled_total == $instal
led_there) && ($ins
talled_total == $version
_check)) { print "ok
6\n"; $pass__total+
+; } else { print "n
ot ok 6\n"; $error_t
otal++; } $tests_total++
; if ($opt{'a'}) { pri
nt "## Checking installa
tions of *.h -> *.ph hea
der files.\n" if $opt{'p
'}; my $ph_there = 0; my
$var = undef; my $val =
undef; my $h_file = und
ef; # Just about "any" C
implementation ought to
have a stdio.h (even if
# Config.pm may not li
st a i_stdio var). my @p
h_files = qw(stdio.ph);
# Add the ones that we k
now that perl thinks are
there: while (($var, $v
al) = each %Config) {
if ($var =~ m/i_(.+)/
&& $val eq 'define') {
$h_file = $1; #
Some header and symbol n
ames don't match for hys
terical raisins. $h_fil
e = 'arpa/inet' if $h
_file eq 'arpainet'; $h
_file = 'netinet/in' i
f $h_file eq 'niin'; $h
_file = 'netinet/tcp' i
f $h_file eq 'netinettcp
'; $h_file = 'sys/resou
rce' if $h_file eq 'sysr
esrc'; $h_file = 'sys/s
elect' if $h_file eq '
sysselct'; $h_file = 's
ys/security' if $h_file
eq 'syssecrt'; $
h_file = 'rpcsvc/dbm'
if $h_file eq 'rpcsvcdbm
'; # This ought
to distinguish syslog fr
om sys/syslog. #
(NB syslog.ph is heavil
y used for the DBI pre-r
equisites). $h_f
ile =~ s{^sys(\w.+)}{sys
/$1} unless $h_file eq '
syslog'; push(@p
h_files, "$h_file.ph");
} } #foreach (qw(std
io.ph syslog.ph)) { fore
ach (@ph_files) { $@
= undef; eval "requ
ire \"$_\";"; if (!$
@) { print "## P
erl header `$_' appears
to be installed.\n" if $
opt{'v'}; $ph_th
ere++; } else {
print "# Perl he
ader `$_' does not appea
r to be properly install
ed.\n"; } $@ = u
ndef; } if (scalar(@ph_
files) == $ph_there) {
print "ok 7\n"; $
pass__total++; } else {
print "not ok 7\n";
$error_total++; } $t
ests_total++; } else {
print "## Skip check
ing of *.ph header files
.\n" if $opt{'p'}; } #
Final report (rather tha
n feed ousrselves to Tes
t::Harness::runtests() #
we simply format some o
utput on our own to keep
things simple and # eas
ier to "fix" - at least
for now. if ($error_tot
al == 0 && $tests_total)
{ print "All tests
successful.\n"; } elsif
($tests_total==0){
die "FAILED--no tests
were run for some reaso
n.\n"; } else { my $
rate = 0.0; if ($tes
ts_total > 0) { $rate =
sprintf "%.2f", 100.0 *
($pass__total / $tests_t
otal); } printf " %d
/%d subtests failed, %.2
f%% okay.\n",
$err
or_total, $tests_total,
$rate; } =head1 NAME p
erlivp - Perl Installati
on Verification Procedur
e =head1 SYNOPSIS B<pe
rlivp> [B<-a>] [B<-p>] [
B<-v>] [B<-h>] =head1 D
ESCRIPTION The B<perliv
p> program is set up at
Perl source code build t
ime to test the Perl ver
sion it was built under.
It can be used after r
unning: make instal
l (or your platform's e
quivalent procedure) to
verify that B<perl> and
its libraries have been
installed correctly. A
correct installation is
verified by output that
looks like: ok 1
ok 2 etc. =head1 OPT
IONS =over 5 =item B<-
h> help Prints out a br
ief help message. =item
B<-a> run all tests No
rmally tests for optiona
l features are skipped.
With -a all tests are e
xecuted. =item B<-p> pr
int preface Gives a des
cription of each test pr
ior to performing it. =
item B<-v> verbose Give
s more detailed informat
ion about each test, aft
er it has been performed
. Note that any failed t
ests ought to print out
some extra information w
hether or not -v is thro
wn. =back =head1 DIAGN
OSTICS =over 4 =item *
print "# Perl binary `$
perlpath' does not appea
r executable.\n"; Likel
y to occur for a perl bi
nary that was not proper
ly installed. Correct by
conducting a proper ins
tallation. =item * prin
t "# Perl version `$]' i
nstalled, expected $ivp_
VERSION.\n"; Likely to
occur for a perl that wa
s not properly installed
. Correct by conducting
a proper installation.
=item * print "# Perl \@
INC directory `$_' does
not appear to exist.\n";
Likely to occur for a
perl library tree that w
as not properly installe
d. Correct by conducting
a proper installation.
=item * print "# Needed
module `$_' does not ap
pear to be properly inst
alled.\n"; One of the t
wo modules that is used
by perlivp was not prese
nt in the installation.
This is a serious erro
r since it adversely aff
ects perlivp's ability t
o function. You may be
able to correct this by
performing a proper perl
installation. =item *
print "# Required module
`$_' does not appear to
be properly installed.\
n"; An attempt to C<eva
l "require $module"> fai
led, even though the lis
t of extensions indicat
ed that it should succee
d. Correct by conductin
g a proper installation
. =item * print "# Unne
cessary module `bLuRfle'
appears to be installed
.\n"; This test not com
ing out ok could indicat
e that you have in fact
installed a bLuRfle.pm
module or that the C<eva
l " require \"$module_na
me.pm\"; "> test may giv
e misleading results wit
h your installation of p
erl. If yours is the la
tter case then please le
t the author know. =ite
m * print "# file",+($#m
issing == 0) ? '' : 's',
" missing from installat
ion:\n"; One or more fi
les turned up missing ac
cording to a run of C<E
xtUtils::Installed -E<gt
> validate()> over your
installation. Correct by
conducting a proper ins
tallation. =item * prin
t "# Perl header `$_' do
es not appear to be prop
erly installed.\n"; Cor
rect by running B<h2ph>
over your system's C hea
der files. If necessary
, edit the resulting *.
ph files to eliminate pe
rl syntax errors. =back
For further informatio
n on how to conduct a pr
oper installation consul
t the INSTALL file that
comes with the perl sou
rce and the README file
for your platform. =he
ad1 AUTHOR Peter Prymme
r =cut |