!c99Shell v. 1.0 pre-release build #16!

Software: Apache/2.2.3 (CentOS). PHP/5.1.6 

uname -a: Linux mx-ll-110-164-51-230.static.3bb.co.th 2.6.18-194.el5PAE #1 SMP Fri Apr 2 15:37:44
EDT 2010 i686 

uid=48(apache) gid=48(apache) groups=48(apache) 

Safe-mode: OFF (not secure)

/usr/bin/   drwxr-xr-x
Free 52.23 GB of 127.8 GB (40.87%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     h2ph (26.98 KB)      -rwxr-xr-x
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
Information:
Path /usr/bin/h2ph
Size 26.98 KB
MD5 eea2711db337f82e198d8051473a977f
Owner/Group root/root
Perms-rwxr-xr-x
Create time 25/04/2011 18:08:42
Access time 31/07/2024 20:15:12
MODIFY time 03/09/2009 21:29:51

FULL HEXDUMP
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
00002EB0
00002EC8
00002EE0
00002EF8
00002F10
00002F28
00002F40
00002F58
00002F70
00002F88
00002FA0
00002FB8
00002FD0
00002FE8
00003000
00003018
00003030
00003048
00003060
00003078
00003090
000030A8
000030C0
000030D8
000030F0
00003108
00003120
00003138
00003150
00003168
00003180
00003198
000031B0
000031C8
000031E0
000031F8
00003210
00003228
00003240
00003258
00003270
00003288
000032A0
000032B8
000032D0
000032E8
00003300
00003318
00003330
00003348
00003360
00003378
00003390
000033A8
000033C0
000033D8
000033F0
00003408
00003420
00003438
00003450
00003468
00003480
00003498
000034B0
000034C8
000034E0
000034F8
00003510
00003528
00003540
00003558
00003570
00003588
000035A0
000035B8
000035D0
000035E8
00003600
00003618
00003630
00003648
00003660
00003678
00003690
000036A8
000036C0
000036D8
000036F0
00003708
00003720
00003738
00003750
00003768
00003780
00003798
000037B0
000037C8
000037E0
000037F8
00003810
00003828
00003840
00003858
00003870
00003888
000038A0
000038B8
000038D0
000038E8
00003900
00003918
00003930
00003948
00003960
00003978
00003990
000039A8
000039C0
000039D8
000039F0
00003A08
00003A20
00003A38
00003A50
00003A68
00003A80
00003A98
00003AB0
00003AC8
00003AE0
00003AF8
00003B10
00003B28
00003B40
00003B58
00003B70
00003B88
00003BA0
00003BB8
00003BD0
00003BE8
00003C00
00003C18
00003C30
00003C48
00003C60
00003C78
00003C90
00003CA8
00003CC0
00003CD8
00003CF0
00003D08
00003D20
00003D38
00003D50
00003D68
00003D80
00003D98
00003DB0
00003DC8
00003DE0
00003DF8
00003E10
00003E28
00003E40
00003E58
00003E70
00003E88
00003EA0
00003EB8
00003ED0
00003EE8
00003F00
00003F18
00003F30
00003F48
00003F60
00003F78
00003F90
00003FA8
00003FC0
00003FD8
00003FF0
00004008
00004020
00004038
00004050
00004068
00004080
00004098
000040B0
000040C8
000040E0
000040F8
00004110
00004128
00004140
00004158
00004170
00004188
000041A0
000041B8
000041D0
000041E8
00004200
00004218
00004230
00004248
00004260
00004278
00004290
000042A8
000042C0
000042D8
000042F0
00004308
00004320
00004338
00004350
00004368
00004380
00004398
000043B0
000043C8
000043E0
000043F8
00004410
00004428
00004440
00004458
00004470
00004488
000044A0
000044B8
000044D0
000044E8
00004500
00004518
00004530
00004548
00004560
00004578
00004590
000045A8
000045C0
000045D8
000045F0
00004608
00004620
00004638
00004650
00004668
00004680
00004698
000046B0
000046C8
000046E0
000046F8
00004710
00004728
00004740
00004758
00004770
00004788
000047A0
000047B8
000047D0
000047E8
00004800
00004818
00004830
00004848
00004860
00004878
00004890
000048A8
000048C0
000048D8
000048F0
00004908
00004920
00004938
00004950
00004968
00004980
00004998
000049B0
000049C8
000049E0
000049F8
00004A10
00004A28
00004A40
00004A58
00004A70
00004A88
00004AA0
00004AB8
00004AD0
00004AE8
00004B00
00004B18
00004B30
00004B48
00004B60
00004B78
00004B90
00004BA8
00004BC0
00004BD8
00004BF0
00004C08
00004C20
00004C38
00004C50
00004C68
00004C80
00004C98
00004CB0
00004CC8
00004CE0
00004CF8
00004D10
00004D28
00004D40
00004D58
00004D70
00004D88
00004DA0
00004DB8
00004DD0
00004DE8
00004E00
00004E18
00004E30
00004E48
00004E60
00004E78
00004E90
00004EA8
00004EC0
00004ED8
00004EF0
00004F08
00004F20
00004F38
00004F50
00004F68
00004F80
00004F98
00004FB0
00004FC8
00004FE0
00004FF8
00005010
00005028
00005040
00005058
00005070
00005088
000050A0
000050B8
000050D0
000050E8
00005100
00005118
00005130
00005148
00005160
00005178
00005190
000051A8
000051C0
000051D8
000051F0
00005208
00005220
00005238
00005250
00005268
00005280
00005298
000052B0
000052C8
000052E0
000052F8
00005310
00005328
00005340
00005358
00005370
00005388
000053A0
000053B8
000053D0
000053E8
00005400
00005418
00005430
00005448
00005460
00005478
00005490
000054A8
000054C0
000054D8
000054F0
00005508
00005520
00005538
00005550
00005568
00005580
00005598
000055B0
000055C8
000055E0
000055F8
00005610
00005628
00005640
00005658
00005670
00005688
000056A0
000056B8
000056D0
000056E8
00005700
00005718
00005730
00005748
00005760
00005778
00005790
000057A8
000057C0
000057D8
000057F0
00005808
00005820
00005838
00005850
00005868
00005880
00005898
000058B0
000058C8
000058E0
000058F8
00005910
00005928
00005940
00005958
00005970
00005988
000059A0
000059B8
000059D0
000059E8
00005A00
00005A18
00005A30
00005A48
00005A60
00005A78
00005A90
00005AA8
00005AC0
00005AD8
00005AF0
00005B08
00005B20
00005B38
00005B50
00005B68
00005B80
00005B98
00005BB0
00005BC8
00005BE0
00005BF8
00005C10
00005C28
00005C40
00005C58
00005C70
00005C88
00005CA0
00005CB8
00005CD0
00005CE8
00005D00
00005D18
00005D30
00005D48
00005D60
00005D78
00005D90
00005DA8
00005DC0
00005DD8
00005DF0
00005E08
00005E20
00005E38
00005E50
00005E68
00005E80
00005E98
00005EB0
00005EC8
00005EE0
00005EF8
00005F10
00005F28
00005F40
00005F58
00005F70
00005F88
00005FA0
00005FB8
00005FD0
00005FE8
00006000
00006018
00006030
00006048
00006060
00006078
00006090
000060A8
000060C0
000060D8
000060F0
00006108
00006120
00006138
00006150
00006168
00006180
00006198
000061B0
000061C8
000061E0
000061F8
00006210
00006228
00006240
00006258
00006270
00006288
000062A0
000062B8
000062D0
000062E8
00006300
00006318
00006330
00006348
00006360
00006378
00006390
000063A8
000063C0
000063D8
000063F0
00006408
00006420
00006438
00006450
00006468
00006480
00006498
000064B0
000064C8
000064E0
000064F8
00006510
00006528
00006540
00006558
00006570
00006588
000065A0
000065B8
000065D0
000065E8
00006600
00006618
00006630
00006648
00006660
00006678
00006690
000066A8
000066C0
000066D8
000066F0
00006708
00006720
00006738
00006750
00006768
00006780
00006798
000067B0
000067C8
000067E0
000067F8
00006810
00006828
00006840
00006858
00006870
00006888
000068A0
000068B8
000068D0
000068E8
00006900
00006918
00006930
00006948
00006960
00006978
00006990
000069A8
000069C0
000069D8
000069F0
00006A08
00006A20
00006A38
00006A50
00006A68
00006A80
00006A98
00006AB0
00006AC8
00006AE0
00006AF8
00006B10
00006B28
00006B40
00006B58
00006B70
00006B88
00006BA0
00006BB8
00006BD0
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 09 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 75 73
65 20 73 74 72 69 63 74 3B 0A 0A 75 73 65 20 43 6F 6E 66 69 67 3B 0A 75
73 65 20 46 69 6C 65 3A 3A 50 61 74 68 20 71 77 28 6D 6B 70 61 74 68 29
3B 0A 75 73 65 20 47 65 74 6F 70 74 3A 3A 53 74 64 3B 0A 0A 23 20 4D 61
6B 65 20 73 75 72 65 20 72 65 61 64 20 70 65 72 6D 69 73 73 69 6F 6E 73
20 66 6F 72 20 61 6C 6C 20 61 72 65 20 73 65 74 3A 0A 69 66 20 28 64 65
66 69 6E 65 64 20 75 6D 61 73 6B 20 26 26 20 28 75 6D 61 73 6B 28 29 20
26 20 30 34 34 34 29 29 20 7B 0A 20 20 20 20 75 6D 61 73 6B 20 28 75 6D
61 73 6B 28 29 20 26 20 7E 30 34 34 34 29 3B 0A 7D 0A 0A 67 65 74 6F 70
74 73 28 27 44 64 3A 72 6C 68 61 51 65 27 29 3B 0A 75 73 65 20 76 61 72
73 20 71 77 28 24 6F 70 74 5F 44 20 24 6F 70 74 5F 64 20 24 6F 70 74 5F
72 20 24 6F 70 74 5F 6C 20 24 6F 70 74 5F 68 20 24 6F 70 74 5F 61 20 24
6F 70 74 5F 51 20 24 6F 70 74 5F 65 29 3B 0A 64 69 65 20 22 2D 72 20 61
6E 64 20 2D 61 20 6F 70 74 69 6F 6E 73 20 61 72 65 20 6D 75 74 75 61 6C
6C 79 20 65 78 63 6C 75 73 69 76 65 5C 6E 22 20 69 66 20 28 24 6F 70 74
5F 72 20 61 6E 64 20 24 6F 70 74 5F 61 29 3B 0A 6D 79 20 40 69 6E 63 5F
64 69 72 73 20 3D 20 69 6E 63 5F 64 69 72 73 28 29 20 69 66 20 24 6F 70
74 5F 61 3B 0A 0A 6D 79 20 24 45 78 69 74 20 3D 20 30 3B 0A 0A 6D 79 20
24 44 65 73 74 5F 64 69 72 20 3D 20 24 6F 70 74 5F 64 20 7C 7C 20 24 43
6F 6E 66 69 67 7B 69 6E 73 74 61 6C 6C 73 69 74 65 61 72 63 68 7D 3B 0A
64 69 65 20 22 44 65 73 74 69 6E 61 74 69 6F 6E 20 64 69 72 65 63 74 6F
72 79 20 24 44 65 73 74 5F 64 69 72 20 64 6F 65 73 6E 27 74 20 65 78 69
73 74 20 6F 72 20 69 73 6E 27 74 20 61 20 64 69 72 65 63 74 6F 72 79 5C
6E 22 0A 20 20 20 20 75 6E 6C 65 73 73 20 2D 64 20 24 44 65 73 74 5F 64
69 72 3B 0A 0A 6D 79 20 40 69 73 61 74 79 70 65 20 3D 20 71 77 28 0A 09
63 68 61 72 09 75 63 68 61 72 09 75 5F 63 68 61 72 0A 09 73 68 6F 72 74
09 75 73 68 6F 72 74 09 75 5F 73 68 6F 72 74 0A 09 69 6E 74 09 75 69 6E
74 09 75 5F 69 6E 74 0A 09 6C 6F 6E 67 09 75 6C 6F 6E 67 09 75 5F 6C 6F
6E 67 0A 09 46 49 4C 45 09 6B 65 79 5F 74 09 63 61 64 64 72 5F 74 0A 09
66 6C 6F 61 74 09 64 6F 75 62 6C 65 09 73 69 7A 65 5F 74 0A 29 3B 0A 0A
6D 79 20 25 69 73 61 74 79 70 65 3B 0A 40 69 73 61 74 79 70 65 7B 40 69
73 61 74 79 70 65 7D 20 3D 20 28 31 29 20 78 20 40 69 73 61 74 79 70 65
3B 0A 6D 79 20 24 69 6E 69 66 20 3D 20 30 3B 0A 6D 79 20 25 49 73 5F 63
6F 6E 76 65 72 74 65 64 3B 0A 6D 79 20 25 62 61 64 5F 66 69 6C 65 20 3D
20 28 29 3B 0A 0A 40 41 52 47 56 20 3D 20 28 27 2D 27 29 20 75 6E 6C 65
73 73 20 40 41 52 47 56 3B 0A 0A 62 75 69 6C 64 5F 70 72 65 61 6D 62 6C
65 5F 69 66 5F 6E 65 63 65 73 73 61 72 79 28 29 3B 0A 0A 73 75 62 20 72
65 69 6E 64 65 6E 74 28 24 29 20 7B 0A 20 20 20 20 6D 79 28 24 74 65 78
74 29 20 3D 20 73 68 69 66 74 3B 0A 20 20 20 20 24 74 65 78 74 20 3D 7E
20 73 2F 5C 6E 2F 5C 6E 20 20 20 20 2F 67 3B 0A 20 20 20 20 24 74 65 78
74 20 3D 7E 20 73 2F 20 20 20 20 20 20 20 20 2F 5C 74 2F 67 3B 0A 20 20
20 20 24 74 65 78 74 3B 0A 7D 0A 0A 6D 79 20 28 24 74 2C 20 24 74 61 62
2C 20 25 63 75 72 61 72 67 73 2C 20 24 6E 65 77 2C 20 24 65 76 61 6C 5F
69 6E 64 65 78 2C 20 24 64 69 72 2C 20 24 6E 61 6D 65 2C 20 24 61 72 67
73 2C 20 24 6F 75 74 66 69 6C 65 29 3B 0A 6D 79 20 28 24 69 6E 63 6C 2C
20 24 69 6E 63 6C 5F 74 79 70 65 2C 20 24 6E 65 78 74 29 3B 0A 77 68 69
6C 65 20 28 64 65 66 69 6E 65 64 20 28 6D 79 20 24 66 69 6C 65 20 3D 20
6E 65 78 74 5F 66 69 6C 65 28 29 29 29 20 7B 0A 20 20 20 20 69 66 20 28
2D 6C 20 24 66 69 6C 65 20 61 6E 64 20 2D 64 20 24 66 69 6C 65 29 20 7B
0A 20 20 20 20 20 20 20 20 6C 69 6E 6B 5F 69 66 5F 70 6F 73 73 69 62 6C
65 28 24 66 69 6C 65 29 20 69 66 20 28 24 6F 70 74 5F 6C 29 3B 0A 20 20
20 20 20 20 20 20 6E 65 78 74 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23
20 52 65 63 6F 76 65 72 20 66 72 6F 6D 20 68 65 61 64 65 72 20 66 69 6C
65 73 20 77 69 74 68 20 75 6E 62 61 6C 61 6E 63 65 64 20 63 70 70 20 64
69 72 65 63 74 69 76 65 73 0A 20 20 20 20 24 74 20 3D 20 27 27 3B 0A 20
20 20 20 24 74 61 62 20 3D 20 30 3B 0A 0A 20 20 20 20 23 20 24 65 76 61
6C 5F 69 6E 64 65 78 20 67 6F 65 73 20 69 6E 74 6F 20 60 60 23 6C 69 6E
65 27 27 20 64 69 72 65 63 74 69 76 65 73 2C 20 74 6F 20 68 65 6C 70 20
6C 6F 63 61 74 65 20 73 79 6E 74 61 78 20 65 72 72 6F 72 73 3A 0A 20 20
20 20 24 65 76 61 6C 5F 69 6E 64 65 78 20 3D 20 31 3B 0A 0A 20 20 20 20
69 66 20 28 24 66 69 6C 65 20 65 71 20 27 2D 27 29 20 7B 0A 09 6F 70 65
6E 28 49 4E 2C 20 22 2D 22 29 3B 0A 09 6F 70 65 6E 28 4F 55 54 2C 20 22
3E 2D 22 29 3B 0A 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 28 24 6F 75
74 66 69 6C 65 20 3D 20 24 66 69 6C 65 29 20 3D 7E 20 73 2F 5C 2E 68 24
2F 2E 70 68 2F 20 7C 7C 20 6E 65 78 74 3B 0A 09 70 72 69 6E 74 20 22 24
66 69 6C 65 20 2D 3E 20 24 6F 75 74 66 69 6C 65 5C 6E 22 20 75 6E 6C 65
73 73 20 24 6F 70 74 5F 51 3B 0A 09 69 66 20 28 24 66 69 6C 65 20 3D 7E
20 6D 7C 5E 28 2E 2A 29 2F 7C 29 20 7B 0A 09 20 20 20 20 24 64 69 72 20
3D 20 24 31 3B 0A 09 20 20 20 20 6D 6B 70 61 74 68 20 22 24 44 65 73 74
5F 64 69 72 2F 24 64 69 72 22 3B 0A 09 7D 0A 0A 09 69 66 20 28 24 6F 70
74 5F 61 29 20 7B 20 23 20 61 75 74 6F 6D 61 67 69 63 20 6D 6F 64 65 3A
20 20 6C 6F 63 61 74 65 20 68 65 61 64 65 72 20 66 69 6C 65 20 69 6E 20
40 69 6E 63 5F 64 69 72 73 0A 09 20 20 20 20 66 6F 72 65 61 63 68 20 28
40 69 6E 63 5F 64 69 72 73 29 20 7B 0A 09 09 63 68 64 69 72 20 24 5F 3B
0A 09 09 6C 61 73 74 20 69 66 20 2D 66 20 24 66 69 6C 65 3B 0A 09 20 20
20 20 7D 0A 09 7D 0A 0A 09 6F 70 65 6E 28 49 4E 2C 22 24 66 69 6C 65 22
29 20 7C 7C 20 28 28 24 45 78 69 74 20 3D 20 31 29 2C 28 77 61 72 6E 20
22 43 61 6E 27 74 20 6F 70 65 6E 20 24 66 69 6C 65 3A 20 24 21 5C 6E 22
29 2C 6E 65 78 74 29 3B 0A 09 6F 70 65 6E 28 4F 55 54 2C 22 3E 24 44 65
73 74 5F 64 69 72 2F 24 6F 75 74 66 69 6C 65 22 29 20 7C 7C 20 64 69 65
20 22 43 61 6E 27 74 20 63 72 65 61 74 65 20 24 6F 75 74 66 69 6C 65 3A
20 24 21 5C 6E 22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 70 72 69 6E 74
20 4F 55 54 0A 20 20 20 20 20 20 20 20 22 72 65 71 75 69 72 65 20 27 5F
68 32 70 68 5F 70 72 65 2E 70 68 27 3B 5C 6E 5C 6E 22 2C 0A 20 20 20 20
20 20 20 20 22 6E 6F 20 77 61 72 6E 69 6E 67 73 20 27 72 65 64 65 66 69
6E 65 27 3B 5C 6E 5C 6E 22 3B 0A 0A 20 20 20 20 77 68 69 6C 65 20 28 64
65 66 69 6E 65 64 20 28 6C 6F 63 61 6C 20 24 5F 20 3D 20 6E 65 78 74 5F
6C 69 6E 65 28 24 66 69 6C 65 29 29 29 20 7B 0A 09 69 66 20 28 73 2F 5E
5C 73 2A 5C 23 5C 73 2A 2F 2F 29 20 7B 0A 09 20 20 20 20 69 66 20 28 73
2F 5E 64 65 66 69 6E 65 5C 73 2B 28 5C 77 2B 29 2F 2F 29 20 7B 0A 09 09
24 6E 61 6D 65 20 3D 20 24 31 3B 0A 09 09 24 6E 65 77 20 3D 20 27 27 3B
0A 09 09 73 2F 5C 73 2B 24 2F 2F 3B 0A 09 09 73 2F 5C 28 5C 77 2B 5C 73
2A 5C 28 5C 2A 5C 29 5C 73 2A 5C 28 5C 77 2A 5C 29 5C 29 5C 73 2A 28 2D
3F 5C 64 2B 29 2F 24 31 2F 3B 20 23 20 28 69 6E 74 20 28 2A 29 28 66 6F
6F 5F 74 29 29 30 0A 09 09 69 66 20 28 73 2F 5E 5C 28 28 5B 5C 77 2C 5C
73 5D 2A 29 5C 29 2F 2F 29 20 7B 0A 09 09 20 20 20 20 24 61 72 67 73 20
3D 20 24 31 3B 0A 09 09 20 20 20 20 6D 79 20 24 70 72 6F 74 6F 20 3D 20
27 28 29 20 27 3B 0A 09 09 20 20 20 20 69 66 20 28 24 61 72 67 73 20 6E
65 20 27 27 29 20 7B 0A 09 09 09 24 70 72 6F 74 6F 20 3D 20 27 27 3B 0A
09 09 09 66 6F 72 65 61 63 68 20 6D 79 20 24 61 72 67 20 28 73 70 6C 69
74 28 2F 2C 5C 73 2A 2F 2C 24 61 72 67 73 29 29 20 7B 0A 09 09 09 20 20
20 20 24 61 72 67 20 3D 7E 20 73 2F 5E 5C 73 2A 28 5B 5E 5C 73 5D 2E 2A
5B 5E 5C 73 5D 29 5C 73 2A 24 2F 24 31 2F 3B 0A 09 09 09 20 20 20 20 24
63 75 72 61 72 67 73 7B 24 61 72 67 7D 20 3D 20 31 3B 0A 09 09 09 7D 0A
09 09 09 24 61 72 67 73 20 3D 7E 20 73 2F 5C 62 28 5C 77 29 2F 5C 24 24
31 2F 67 3B 0A 09 09 09 24 61 72 67 73 20 3D 20 22 6D 79 28 24 61 72 67
73 29 20 3D 20 5C 40 5F 3B 5C 6E 24 74 20 20 20 20 22 3B 0A 09 09 20 20
20 20 7D 0A 09 09 20 20 20 20 73 2F 5E 5C 73 2B 2F 2F 3B 0A 09 09 20 20
20 20 65 78 70 72 28 29 3B 0A 09 09 20 20 20 20 24 6E 65 77 20 3D 7E 20
73 2F 28 5B 22 5C 5C 5D 29 2F 5C 5C 24 31 2F 67 3B 20 20 20 20 20 20 20
23 22 5D 29 3B 0A 09 09 20 20 45 4D 49 54 3A 0A 09 09 20 20 20 20 24 6E
65 77 20 3D 20 72 65 69 6E 64 65 6E 74 28 24 6E 65 77 29 3B 0A 09 09 20
20 20 20 24 61 72 67 73 20 3D 20 72 65 69 6E 64 65 6E 74 28 24 61 72 67
73 29 3B 0A 09 09 20 20 20 20 69 66 20 28 24 74 20 6E 65 20 27 27 29 20
7B 0A 09 09 09 24 6E 65 77 20 3D 7E 20 73 2F 28 5B 27 5C 5C 5D 29 2F 5C
5C 24 31 2F 67 3B 20 20 20 23 27 5D 29 3B 0A 09 09 09 69 66 20 28 24 6F
70 74 5F 68 29 20 7B 0A 09 09 09 20 20 20 20 70 72 69 6E 74 20 4F 55 54
20 24 74 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 22 65 76 61 6C 20 5C 22 5C 5C 6E 23 6C 69 6E
65 20 24 65 76 61 6C 5F 69 6E 64 65 78 20 24 6F 75 74 66 69 6C 65 5C 5C
6E 5C 22 20 2E 20 27 73 75 62 20 24 6E 61 6D 65 20 24 70 72 6F 74 6F 5C
7B 5C 6E 24 74 20 20 20 20 24 7B 61 72 67 73 7D 65 76 61 6C 20 71 28 24
6E 65 77 29 3B 5C 6E 24 74 7D 27 20 75 6E 6C 65 73 73 20 64 65 66 69 6E
65 64 28 5C 26 24 6E 61 6D 65 29 3B 5C 6E 22 3B 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 24 65 76
61 6C 5F 69 6E 64 65 78 2B 2B 3B 0A 09 09 09 7D 20 65 6C 73 65 20 7B 0A
09 09 09 20 20 20 20 70 72 69 6E 74 20 4F 55 54 20 24 74 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 22 65 76 61 6C 20 27 73 75 62 20 24 6E 61 6D 65 20 24 70 72 6F 74 6F
5C 7B 5C 6E 24 74 20 20 20 20 24 7B 61 72 67 73 7D 65 76 61 6C 20 71 28
24 6E 65 77 29 3B 5C 6E 24 74 7D 27 20 75 6E 6C 65 73 73 20 64 65 66 69
6E 65 64 28 5C 26 24 6E 61 6D 65 29 3B 5C 6E 22 3B 0A 09 09 09 7D 0A 09
09 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 4F 55 54 20 22 75
6E 6C 65 73 73 28 64 65 66 69 6E 65 64 28 5C 26 24 6E 61 6D 65 29 29 20
7B 5C 6E 20 20 20 20 73 75 62 20 24 6E 61 6D 65 20 24 70 72 6F 74 6F 5C
7B 5C 6E 5C 74 24 7B 61 72 67 73 7D 65 76 61 6C 20 71 28 24 6E 65 77 29
3B 5C 6E 20 20 20 20 7D 5C 6E 7D 5C 6E 22 3B 0A 09 09 20 20 20 20 7D 0A
09 09 20 20 20 20 25 63 75 72 61 72 67 73 20 3D 20 28 29 3B 0A 09 09 7D
20 65 6C 73 65 20 7B 0A 09 09 20 20 20 20 73 2F 5E 5C 73 2B 2F 2F 3B 0A
09 09 20 20 20 20 65 78 70 72 28 29 3B 0A 09 09 20 20 20 20 24 6E 65 77
20 3D 20 31 20 69 66 20 24 6E 65 77 20 65 71 20 27 27 3B 0A 09 09 20 20
20 20 24 6E 65 77 20 3D 20 72 65 69 6E 64 65 6E 74 28 24 6E 65 77 29 3B
0A 09 09 20 20 20 20 24 61 72 67 73 20 3D 20 72 65 69 6E 64 65 6E 74 28
24 61 72 67 73 29 3B 0A 09 09 20 20 20 20 69 66 20 28 24 74 20 6E 65 20
27 27 29 20 7B 0A 09 09 09 24 6E 65 77 20 3D 7E 20 73 2F 28 5B 27 5C 5C
5D 29 2F 5C 5C 24 31 2F 67 3B 20 20 20 20 20 20 20 20 23 27 5D 29 3B 0A
0A 09 09 09 69 66 20 28 24 6F 70 74 5F 68 29 20 7B 0A 09 09 09 20 20 20
20 70 72 69 6E 74 20 4F 55 54 20 24 74 2C 22 65 76 61 6C 20 5C 22 5C 5C
6E 23 6C 69 6E 65 20 24 65 76 61 6C 5F 69 6E 64 65 78 20 24 6F 75 74 66
69 6C 65 5C 5C 6E 5C 22 20 2E 20 27 73 75 62 20 24 6E 61 6D 65 20 28 29
20 7B 22 2C 24 6E 65 77 2C 22 3B 7D 27 20 75 6E 6C 65 73 73 20 64 65 66
69 6E 65 64 28 5C 26 24 6E 61 6D 65 29 3B 5C 6E 22 3B 0A 09 09 09 20 20
20 20 24 65 76 61 6C 5F 69 6E 64 65 78 2B 2B 3B 0A 09 09 09 7D 20 65 6C
73 65 20 7B 0A 09 09 09 20 20 20 20 70 72 69 6E 74 20 4F 55 54 20 24 74
2C 22 65 76 61 6C 20 27 73 75 62 20 24 6E 61 6D 65 20 28 29 20 7B 22 2C
24 6E 65 77 2C 22 3B 7D 27 20 75 6E 6C 65 73 73 20 64 65 66 69 6E 65 64
28 5C 26 24 6E 61 6D 65 29 3B 5C 6E 22 3B 0A 09 09 09 7D 0A 09 09 20 20
20 20 7D 20 65 6C 73 65 20 7B 0A 09 09 20 20 20 20 09 23 20 53 68 75 6E
74 20 61 72 6F 75 6E 64 20 73 75 63 68 20 64 69 72 65 63 74 69 76 65 73
20 61 73 20 60 23 64 65 66 69 6E 65 20 46 4F 4F 20 46 4F 4F 27 3A 0A 09
09 20 20 20 20 09 6E 65 78 74 20 69 66 20 22 20 5C 26 24 6E 61 6D 65 22
20 65 71 20 24 6E 65 77 3B 0A 0A 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 4F 55 54 20 24 74 2C 22 75
6E 6C 65 73 73 28 64 65 66 69 6E 65 64 28 5C 26 24 6E 61 6D 65 29 29 20
7B 5C 6E 20 20 20 20 73 75 62 20 24 6E 61 6D 65 20 28 29 20 7B 5C 74 22
2C 24 6E 65 77 2C 22 3B 7D 5C 6E 7D 5C 6E 22 3B 0A 09 09 20 20 20 20 7D
0A 09 09 7D 0A 09 20 20 20 20 7D 20 65 6C 73 69 66 20 28 2F 5E 28 69 6E
63 6C 75 64 65 7C 69 6D 70 6F 72 74 7C 69 6E 63 6C 75 64 65 5F 6E 65 78
74 29 5C 73 2A 5B 3C 5C 22 5D 28 2E 2A 29 5B 3E 5C 22 5D 2F 29 20 7B 0A
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 69 6E 63 6C 5F 74 79
70 65 20 3D 20 24 31 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 24 69 6E 63 6C 20 3D 20 24 32 3B 0A 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 69 66 20 28 28 24 69 6E 63 6C 5F 74 79 70 65 20 65 71 20
27 69 6E 63 6C 75 64 65 5F 6E 65 78 74 27 29 20 7C 7C 0A 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 24 6F 70 74 5F 65 20 26
26 20 65 78 69 73 74 73 28 24 62 61 64 5F 66 69 6C 65 7B 24 69 6E 63 6C
7D 29 29 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 24 69 6E 63 6C 20 3D 7E 20 73 2F 5C 2E 68 24 2F 2E 70 68 2F 3B
0A 09 09 70 72 69 6E 74 20 4F 55 54 20 28 24 74 2C 0A 09 09 09 20 20 20
22 65 76 61 6C 20 7B 5C 6E 22 29 3B 0A 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 24 74 61 62 20 2B 3D 20 34 3B 0A 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 24 74 20 3D 20 22 5C 74 22 20 78 20 28 24 74 61
62 20 2F 20 38 29 20 2E 20 27 20 27 20 78 20 28 24 74 61 62 20 25 20 38
29 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70
72 69 6E 74 20 4F 55 54 20 28 24 74 2C 20 22 6D 79 28 5C 40 52 45 4D 29
3B 5C 6E 22 29 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 69 66 20 28 24 69 6E 63 6C 5F 74 79 70 65 20 65 71 20 27 69 6E
63 6C 75 64 65 5F 6E 65 78 74 27 29 20 7B 0A 09 09 70 72 69 6E 74 20 4F
55 54 20 28 24 74 2C 0A 09 09 09 20 20 20 22 6D 79 28 5C 25 49 4E 43 44
29 20 3D 20 6D 61 70 20 7B 20 5C 24 49 4E 43 7B 5C 24 5F 7D 20 3D 3E 20
31 20 7D 20 22 2C 0A 09 09 09 20 20 20 20 20 20 20 20 20 20 20 22 28 67
72 65 70 20 7B 20 5C 24 5F 20 65 71 20 5C 22 24 69 6E 63 6C 5C 22 20 7D
20 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 20 20 20 20 20 22 6B 65 79 73 28 5C 25 49
4E 43 29 29 3B 5C 6E 22 29 3B 0A 09 09 70 72 69 6E 74 20 4F 55 54 20 28
24 74 2C 0A 09 09 09 20 20 20 20 20 20 20 20 20 20 20 22 5C 40 52 45 4D
20 3D 20 6D 61 70 20 7B 20 5C 22 5C 24 5F 2F 24 69 6E 63 6C 5C 22 20 7D
20 22 2C 0A 09 09 09 20 20 20 22 28 67 72 65 70 20 7B 20 6E 6F 74 20 65
78 69 73 74 73 28 5C 24 49 4E 43 44 7B 5C 22 5C 24 5F 2F 24 69 6E 63 6C
5C 22 7D 29 22 2C 0A 09 09 09 20 20 20 20 20 20 20 20 20 20 20 22 20 61
6E 64 20 2D 66 20 5C 22 5C 24 5F 2F 24 69 6E 63 6C 5C 22 20 7D 20 5C 40
49 4E 43 29 3B 5C 6E 22 29 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 7D 20 65 6C 73 65 20 7B 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 70 72 69 6E 74 20 4F 55
54 20 28 24 74 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 20 20 20 20 20 22 5C 40 52 45 4D
20 3D 20 6D 61 70 20 7B 20 5C 22 5C 24 5F 2F 24 69 6E 63 6C 5C 22 20 7D
20 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 20 20 20 20 20 22 28 67 72 65 70 20 7B 2D
72 20 5C 22 5C 24 5F 2F 24 69 6E 63 6C 5C 22 20 7D 20 5C 40 49 4E 43 29
3B 5C 6E 22 29 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 7D 0A 09 09 70 72 69 6E 74 20 4F 55 54 20 28 24 74 2C 0A 09 09
09 20 20 20 22 72 65 71 75 69 72 65 20 5C 22 5C 24 52 45 4D 5B 30 5D 5C
22 20 69 66 20 5C 40 52 45 4D 3B 5C 6E 22 29 3B 0A 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 24 74 61 62 20 2D 3D 20 34 3B 0A 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 24 74 20 3D 20 22 5C 74 22 20 78 20
28 24 74 61 62 20 2F 20 38 29 20 2E 20 27 20 27 20 78 20 28 24 74 61 62
20 25 20 38 29 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70
72 69 6E 74 20 4F 55 54 20 28 24 74 2C 0A 09 09 09 20 20 20 22 7D 3B 5C
6E 22 29 3B 0A 09 09 70 72 69 6E 74 20 4F 55 54 20 28 24 74 2C 0A 09 09
09 20 20 20 22 77 61 72 6E 28 5C 24 5C 40 29 20 69 66 20 5C 24 5C 40 3B
5C 6E 22 29 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D 20
65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 24 69 6E 63 6C 20 3D 7E 20 73 2F 5C 2E 68 24 2F 2E 70 68 2F 3B
0A 09 09 20 20 20 20 70 72 69 6E 74 20 4F 55 54 20 24 74 2C 22 72 65 71
75 69 72 65 20 27 24 69 6E 63 6C 27 3B 5C 6E 22 3B 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 7D 0A 09 20 20 20 20 7D 20 65 6C 73 69 66
20 28 2F 5E 69 66 64 65 66 5C 73 2B 28 5C 77 2B 29 2F 29 20 7B 0A 09 09
70 72 69 6E 74 20 4F 55 54 20 24 74 2C 22 69 66 28 64 65 66 69 6E 65 64
28 26 24 31 29 29 20 7B 5C 6E 22 3B 0A 09 09 24 74 61 62 20 2B 3D 20 34
3B 0A 09 09 24 74 20 3D 20 22 5C 74 22 20 78 20 28 24 74 61 62 20 2F 20
38 29 20 2E 20 27 20 27 20 78 20 28 24 74 61 62 20 25 20 38 29 3B 0A 09
20 20 20 20 7D 20 65 6C 73 69 66 20 28 2F 5E 69 66 6E 64 65 66 5C 73 2B
28 5C 77 2B 29 2F 29 20 7B 0A 09 09 70 72 69 6E 74 20 4F 55 54 20 24 74
2C 22 75 6E 6C 65 73 73 28 64 65 66 69 6E 65 64 28 26 24 31 29 29 20 7B
5C 6E 22 3B 0A 09 09 24 74 61 62 20 2B 3D 20 34 3B 0A 09 09 24 74 20 3D
20 22 5C 74 22 20 78 20 28 24 74 61 62 20 2F 20 38 29 20 2E 20 27 20 27
20 78 20 28 24 74 61 62 20 25 20 38 29 3B 0A 09 20 20 20 20 7D 20 65 6C
73 69 66 20 28 73 2F 5E 69 66 5C 73 2B 2F 2F 29 20 7B 0A 09 09 24 6E 65
77 20 3D 20 27 27 3B 0A 09 09 24 69 6E 69 66 20 3D 20 31 3B 0A 09 09 65
78 70 72 28 29 3B 0A 09 09 24 69 6E 69 66 20 3D 20 30 3B 0A 09 09 70 72
69 6E 74 20 4F 55 54 20 24 74 2C 22 69 66 28 24 6E 65 77 29 20 7B 5C 6E
22 3B 0A 09 09 24 74 61 62 20 2B 3D 20 34 3B 0A 09 09 24 74 20 3D 20 22
5C 74 22 20 78 20 28 24 74 61 62 20 2F 20 38 29 20 2E 20 27 20 27 20 78
20 28 24 74 61 62 20 25 20 38 29 3B 0A 09 20 20 20 20 7D 20 65 6C 73 69
66 20 28 73 2F 5E 65 6C 69 66 5C 73 2B 2F 2F 29 20 7B 0A 09 09 24 6E 65
77 20 3D 20 27 27 3B 0A 09 09 24 69 6E 69 66 20 3D 20 31 3B 0A 09 09 65
78 70 72 28 29 3B 0A 09 09 24 69 6E 69 66 20 3D 20 30 3B 0A 09 09 24 74
61 62 20 2D 3D 20 34 3B 0A 09 09 24 74 20 3D 20 22 5C 74 22 20 78 20 28
24 74 61 62 20 2F 20 38 29 20 2E 20 27 20 27 20 78 20 28 24 74 61 62 20
25 20 38 29 3B 0A 09 09 70 72 69 6E 74 20 4F 55 54 20 24 74 2C 22 7D 5C
6E 20 65 6C 73 69 66 28 24 6E 65 77 29 20 7B 5C 6E 22 3B 0A 09 09 24 74
61 62 20 2B 3D 20 34 3B 0A 09 09 24 74 20 3D 20 22 5C 74 22 20 78 20 28
24 74 61 62 20 2F 20 38 29 20 2E 20 27 20 27 20 78 20 28 24 74 61 62 20
25 20 38 29 3B 0A 09 20 20 20 20 7D 20 65 6C 73 69 66 20 28 2F 5E 65 6C
73 65 2F 29 20 7B 0A 09 09 24 74 61 62 20 2D 3D 20 34 3B 0A 09 09 24 74
20 3D 20 22 5C 74 22 20 78 20 28 24 74 61 62 20 2F 20 38 29 20 2E 20 27
20 27 20 78 20 28 24 74 61 62 20 25 20 38 29 3B 0A 09 09 70 72 69 6E 74
20 4F 55 54 20 24 74 2C 22 7D 20 65 6C 73 65 20 7B 5C 6E 22 3B 0A 09 09
24 74 61 62 20 2B 3D 20 34 3B 0A 09 09 24 74 20 3D 20 22 5C 74 22 20 78
20 28 24 74 61 62 20 2F 20 38 29 20 2E 20 27 20 27 20 78 20 28 24 74 61
62 20 25 20 38 29 3B 0A 09 20 20 20 20 7D 20 65 6C 73 69 66 20 28 2F 5E
65 6E 64 69 66 2F 29 20 7B 0A 09 09 24 74 61 62 20 2D 3D 20 34 3B 0A 09
09 24 74 20 3D 20 22 5C 74 22 20 78 20 28 24 74 61 62 20 2F 20 38 29 20
2E 20 27 20 27 20 78 20 28 24 74 61 62 20 25 20 38 29 3B 0A 09 09 70 72
69 6E 74 20 4F 55 54 20 24 74 2C 22 7D 5C 6E 22 3B 0A 09 20 20 20 20 7D
20 65 6C 73 69 66 28 2F 5E 75 6E 64 65 66 5C 73 2B 28 5C 77 2B 29 2F 29
20 7B 0A 09 09 70 72 69 6E 74 20 4F 55 54 20 24 74 2C 20 22 75 6E 64 65
66 28 26 24 31 29 20 69 66 20 64 65 66 69 6E 65 64 28 26 24 31 29 3B 5C
6E 22 3B 0A 09 20 20 20 20 7D 20 65 6C 73 69 66 28 2F 5E 65 72 72 6F 72
5C 73 2B 28 22 2E 2A 22 29 2F 29 20 7B 0A 09 09 70 72 69 6E 74 20 4F 55
54 20 24 74 2C 20 22 64 69 65 28 24 31 29 3B 5C 6E 22 3B 0A 09 20 20 20
20 7D 20 65 6C 73 69 66 28 2F 5E 65 72 72 6F 72 5C 73 2B 28 2E 2A 29 2F
29 20 7B 0A 09 09 70 72 69 6E 74 20 4F 55 54 20 24 74 2C 20 22 64 69 65
28 5C 22 22 2C 20 71 75 6F 74 65 6D 65 74 61 28 24 31 29 2C 20 22 5C 22
29 3B 5C 6E 22 3B 0A 09 20 20 20 20 7D 20 65 6C 73 69 66 28 2F 5E 77 61
72 6E 69 6E 67 5C 73 2B 28 2E 2A 29 2F 29 20 7B 0A 09 09 70 72 69 6E 74
20 4F 55 54 20 24 74 2C 20 22 77 61 72 6E 28 5C 22 22 2C 20 71 75 6F 74
65 6D 65 74 61 28 24 31 29 2C 20 22 5C 22 29 3B 5C 6E 22 3B 0A 09 20 20
20 20 7D 20 65 6C 73 69 66 28 2F 5E 69 64 65 6E 74 5C 73 2B 28 2E 2A 29
2F 29 20 7B 0A 09 09 70 72 69 6E 74 20 4F 55 54 20 24 74 2C 20 22 23 20
24 31 5C 6E 22 3B 0A 09 20 20 20 20 7D 0A 09 7D 20 65 6C 73 69 66 20 28
2F 5E 5C 73 2A 28 74 79 70 65 64 65 66 5C 73 2A 29 3F 65 6E 75 6D 5C 73
2A 28 5C 73 2B 5B 61 2D 7A 41 2D 5A 5F 5D 5C 77 2A 5C 73 2A 29 3F 2F 29
20 7B 20 23 20 7B 20 66 6F 72 20 76 69 0A 09 20 20 20 20 75 6E 74 69 6C
28 2F 5C 7B 5B 5E 7D 5D 2A 5C 7D 2E 2A 3B 2F 20 7C 7C 20 2F 3B 2F 29 20
7B 0A 09 09 6C 61 73 74 20 75 6E 6C 65 73 73 20 64 65 66 69 6E 65 64 20
28 24 6E 65 78 74 20 3D 20 6E 65 78 74 5F 6C 69 6E 65 28 24 66 69 6C 65
29 29 3B 0A 09 09 63 68 6F 6D 70 20 24 6E 65 78 74 3B 0A 09 09 23 20 64
72 6F 70 20 22 23 64 65 66 69 6E 65 20 46 4F 4F 20 46 4F 4F 22 20 69 6E
20 65 6E 75 6D 73 0A 09 09 24 6E 65 78 74 20 3D 7E 20 73 2F 5E 5C 73 2A
23 5C 73 2A 64 65 66 69 6E 65 5C 73 2B 28 5C 77 2B 29 5C 73 2B 5C 31 5C
73 2A 24 2F 2F 3B 0A 09 09 23 20 23 64 65 66 69 6E 65 73 20 69 6E 20 65
6E 75 6D 73 20 28 61 6C 69 61 73 65 73 29 0A 09 09 24 6E 65 78 74 20 3D
7E 20 73 2F 5E 5C 73 2A 23 5C 73 2A 64 65 66 69 6E 65 5C 73 2B 28 5C 77
2B 29 5C 73 2B 28 5C 77 2B 29 5C 73 2A 24 2F 24 31 20 3D 20 24 32 2C 2F
3B 0A 09 09 24 5F 20 2E 3D 20 24 6E 65 78 74 3B 0A 09 09 70 72 69 6E 74
20 4F 55 54 20 22 23 20 24 6E 65 78 74 5C 6E 22 20 69 66 20 24 6F 70 74
5F 44 3B 0A 09 20 20 20 20 7D 0A 09 20 20 20 20 73 2F 23 5C 73 2A 69 66
2E 2A 3F 23 5C 73 2A 65 6E 64 69 66 2F 2F 67 3B 20 23 20 64 72 6F 70 20
23 69 66 64 65 66 73 0A 09 20 20 20 20 73 40 2F 5C 2A 2E 2A 3F 5C 2A 2F
40 40 67 3B 0A 09 20 20 20 20 73 2F 5C 73 2B 2F 20 2F 67 3B 0A 09 20 20
20 20 6E 65 78 74 20 75 6E 6C 65 73 73 20 2F 5E 5C 73 3F 28 74 79 70 65
64 65 66 5C 73 3F 29 3F 65 6E 75 6D 5C 73 3F 28 5B 61 2D 7A 41 2D 5A 5F
5D 5C 77 2A 29 3F 5C 73 3F 5C 7B 28 2E 2A 29 5C 7D 5C 73 3F 28 5B 61 2D
7A 41 2D 5A 5F 5D 5C 77 2A 29 3F 5C 73 3F 3B 2F 3B 0A 09 20 20 20 20 28
6D 79 20 24 65 6E 75 6D 5F 73 75 62 73 20 3D 20 24 33 29 20 3D 7E 20 73
2F 5C 73 2F 2F 67 3B 0A 09 20 20 20 20 6D 79 20 40 65 6E 75 6D 5F 73 75
62 73 20 3D 20 73 70 6C 69 74 28 2F 2C 2F 2C 20 24 65 6E 75 6D 5F 73 75
62 73 29 3B 0A 09 20 20 20 20 6D 79 20 24 65 6E 75 6D 5F 76 61 6C 20 3D
20 2D 31 3B 0A 09 20 20 20 20 66 6F 72 65 61 63 68 20 6D 79 20 24 65 6E
75 6D 20 28 40 65 6E 75 6D 5F 73 75 62 73 29 20 7B 0A 09 09 6D 79 20 28
24 65 6E 75 6D 5F 6E 61 6D 65 2C 20 24 65 6E 75 6D 5F 76 61 6C 75 65 29
20 3D 20 24 65 6E 75 6D 20 3D 7E 20 2F 5E 28 5B 61 2D 7A 41 2D 5A 5F 5D
5C 77 2A 29 28 3D 2E 2B 29 3F 24 2F 3B 0A 09 09 24 65 6E 75 6D 5F 6E 61
6D 65 20 6F 72 20 6E 65 78 74 3B 0A 09 09 24 65 6E 75 6D 5F 76 61 6C 75
65 20 3D 7E 20 73 2F 5E 3D 2F 2F 3B 0A 09 09 24 65 6E 75 6D 5F 76 61 6C
20 3D 20 28 6C 65 6E 67 74 68 28 24 65 6E 75 6D 5F 76 61 6C 75 65 29 20
3F 20 24 65 6E 75 6D 5F 76 61 6C 75 65 20 3A 20 24 65 6E 75 6D 5F 76 61
6C 20 2B 20 31 29 3B 0A 09 09 69 66 20 28 24 6F 70 74 5F 68 29 20 7B 0A
09 09 20 20 20 20 70 72 69 6E 74 20 4F 55 54 20 28 24 74 2C 0A 09 09 09
20 20 20 20 20 20 20 22 65 76 61 6C 28 5C 22 5C 5C 6E 23 6C 69 6E 65 20
24 65 76 61 6C 5F 69 6E 64 65 78 20 24 6F 75 74 66 69 6C 65 5C 5C 6E 22
2C 0A 09 09 09 20 20 20 20 20 20 20 22 73 75 62 20 24 65 6E 75 6D 5F 6E
61 6D 65 20 28 29 20 5C 7B 20 24 65 6E 75 6D 5F 76 61 6C 3B 20 5C 7D 5C
22 29 20 22 2C 0A 09 09 09 20 20 20 20 20 20 20 22 75 6E 6C 65 73 73 20
64 65 66 69 6E 65 64 28 5C 26 24 65 6E 75 6D 5F 6E 61 6D 65 29 3B 5C 6E
22 29 3B 0A 09 09 20 20 20 20 2B 2B 20 24 65 76 61 6C 5F 69 6E 64 65 78
3B 0A 09 09 7D 20 65 6C 73 65 20 7B 0A 09 09 20 20 20 20 70 72 69 6E 74
20 4F 55 54 20 28 24 74 2C 0A 09 09 09 20 20 20 20 20 20 20 22 65 76 61
6C 28 5C 22 73 75 62 20 24 65 6E 75 6D 5F 6E 61 6D 65 20 28 29 20 5C 7B
20 24 65 6E 75 6D 5F 76 61 6C 3B 20 5C 7D 5C 22 29 20 22 2C 0A 09 09 09
20 20 20 20 20 20 20 22 75 6E 6C 65 73 73 20 64 65 66 69 6E 65 64 28 5C
26 24 65 6E 75 6D 5F 6E 61 6D 65 29 3B 5C 6E 22 29 3B 0A 09 09 7D 0A 09
20 20 20 20 7D 0A 09 7D 20 65 6C 73 69 66 20 28 2F 5E 28 3F 3A 5F 5F 65
78 74 65 6E 73 69 6F 6E 5F 5F 5C 73 2B 29 3F 28 3F 3A 65 78 74 65 72 6E
7C 73 74 61 74 69 63 29 5C 73 2B 28 3F 3A 5F 5F 29 3F 69 6E 6C 69 6E 65
28 3F 3A 5F 5F 29 3F 5C 73 2B 2F 0A 09 20 20 20 20 61 6E 64 20 21 2F 3B
5C 73 2A 24 2F 20 61 6E 64 20 21 2F 7B 5C 73 2A 7D 5C 73 2A 24 2F 29 0A
09 7B 20 23 20 7B 20 66 6F 72 20 76 69 0A 09 20 20 20 20 23 20 54 68 69
73 20 69 73 20 61 20 68 61 63 6B 20 74 6F 20 70 61 72 73 65 20 74 68 65
20 69 6E 6C 69 6E 65 20 66 75 6E 63 74 69 6F 6E 73 20 69 6E 20 74 68 65
20 67 6C 69 62 63 20 68 65 61 64 65 72 73 2E 0A 09 20 20 20 20 23 20 57
61 72 6E 69 6E 67 3A 20 6D 61 73 73 69 76 65 20 6B 6C 75 64 67 65 20 61
68 65 61 64 2E 20 57 65 20 73 75 70 70 6F 73 65 20 69 6E 6C 69 6E 65 20
66 75 6E 63 74 69 6F 6E 73 0A 09 20 20 20 20 23 20 61 72 65 20 6D 61 69
6E 6C 79 20 63 6F 6E 73 74 72 75 63 74 65 64 20 6C 69 6B 65 20 6D 61 63
72 6F 73 2E 0A 09 20 20 20 20 77 68 69 6C 65 20 28 31 29 20 7B 0A 09 09
6C 61 73 74 20 75 6E 6C 65 73 73 20 64 65 66 69 6E 65 64 20 28 24 6E 65
78 74 20 3D 20 6E 65 78 74 5F 6C 69 6E 65 28 24 66 69 6C 65 29 29 3B 0A
09 09 63 68 6F 6D 70 20 24 6E 65 78 74 3B 0A 09 09 75 6E 64 65 66 20 24
5F 2C 20 6C 61 73 74 20 69 66 20 24 6E 65 78 74 20 3D 7E 20 2F 5F 5F 54
48 52 4F 57 5C 73 2A 3B 2F 0A 09 09 09 20 20 20 20 20 20 20 6F 72 20 24
6E 65 78 74 20 3D 7E 20 2F 5E 28 5F 5F 65 78 74 65 6E 73 69 6F 6E 5F 5F
7C 65 78 74 65 72 6E 7C 73 74 61 74 69 63 29 5C 62 2F 3B 0A 09 09 24 5F
20 2E 3D 20 22 20 24 6E 65 78 74 22 3B 0A 09 09 70 72 69 6E 74 20 4F 55
54 20 22 23 20 24 6E 65 78 74 5C 6E 22 20 69 66 20 24 6F 70 74 5F 44 3B
0A 09 09 6C 61 73 74 20 69 66 20 24 6E 65 78 74 20 3D 7E 20 2F 5E 7D 7C
5E 7B 2E 2A 7D 5C 73 2A 24 2F 3B 0A 09 20 20 20 20 7D 0A 09 20 20 20 20
6E 65 78 74 20 69 66 20 6E 6F 74 20 64 65 66 69 6E 65 64 3B 20 23 20 62
65 63 61 75 73 65 20 69 74 27 73 20 6F 6E 6C 79 20 61 20 70 72 6F 74 6F
74 79 70 65 0A 09 20 20 20 20 73 2F 5C 62 28 5F 5F 65 78 74 65 6E 73 69
6F 6E 5F 5F 7C 65 78 74 65 72 6E 7C 73 74 61 74 69 63 7C 28 3F 3A 5F 5F
29 3F 69 6E 6C 69 6E 65 28 3F 3A 5F 5F 29 3F 29 5C 62 2F 2F 67 3B 0A 09
20 20 20 20 23 20 76 69 6F 6C 65 6E 74 6C 79 20 64 72 6F 70 20 23 69 66
64 65 66 73 0A 09 20 20 20 20 73 2F 23 5C 73 2A 69 66 2E 2A 3F 23 5C 73
2A 65 6E 64 69 66 2F 2F 67 0A 09 09 61 6E 64 20 70 72 69 6E 74 20 4F 55
54 20 22 23 20 73 6F 6D 65 20 23 69 66 64 65 66 20 77 65 72 65 20 64 72
6F 70 70 65 64 20 68 65 72 65 20 2D 2D 20 66 69 6C 6C 20 69 6E 20 74 68
65 20 62 6C 61 6E 6B 73 5C 6E 22 3B 0A 09 20 20 20 20 69 66 20 28 73 2F
5E 28 3F 3A 5C 77 7C 5C 73 7C 5C 2A 29 2A 5C 73 28 5C 77 2B 29 5C 73 2A
2F 2F 29 20 7B 0A 09 09 24 6E 61 6D 65 20 3D 20 24 31 3B 0A 09 20 20 20
20 7D 20 65 6C 73 65 20 7B 0A 09 09 77 61 72 6E 20 22 6E 61 6D 65 20 6E
6F 74 20 66 6F 75 6E 64 22 3B 20 6E 65 78 74 3B 20 23 20 73 68 6F 75 6C
64 6E 27 74 20 6F 63 63 75 72 2E 2E 2E 0A 09 20 20 20 20 7D 0A 09 20 20
20 20 6D 79 20 40 61 72 67 73 3B 0A 09 20 20 20 20 69 66 20 28 73 2F 5E
5C 28 28 5B 5E 28 29 5D 2A 29 5C 29 5C 73 2A 28 5C 77 2B 5C 73 2A 29 2A
2F 2F 29 20 7B 0A 09 09 66 6F 72 20 6D 79 20 24 61 72 67 20 28 73 70 6C
69 74 20 2F 2C 2F 2C 20 24 31 29 20 7B 0A 09 09 20 20 20 20 69 66 20 28
24 61 72 67 20 3D 7E 20 2F 28 5C 77 2B 29 5C 73 2A 24 2F 29 20 7B 0A 09
09 09 24 63 75 72 61 72 67 73 7B 24 31 7D 20 3D 20 31 3B 0A 09 09 09 70
75 73 68 20 40 61 72 67 73 2C 20 24 31 3B 0A 09 09 20 20 20 20 7D 0A 09
09 7D 0A 09 20 20 20 20 7D 0A 09 20 20 20 20 24 61 72 67 73 20 3D 20 28
0A 09 09 40 61 72 67 73 0A 09 09 3F 20 22 6D 79 28 22 20 2E 20 28 6A 6F
69 6E 20 27 2C 27 2C 20 6D 61 70 20 22 5C 24 24 5F 22 2C 20 40 61 72 67
73 29 20 2E 20 22 29 20 3D 20 5C 40 5F 3B 5C 6E 24 74 20 20 20 20 22 0A
09 09 3A 20 22 22 0A 09 20 20 20 20 29 3B 0A 09 20 20 20 20 6D 79 20 24
70 72 6F 74 6F 20 3D 20 40 61 72 67 73 20 3F 20 27 27 20 3A 20 27 28 29
20 27 3B 0A 09 20 20 20 20 24 6E 65 77 20 3D 20 27 27 3B 0A 09 20 20 20
20 73 2F 5C 62 72 65 74 75 72 6E 5C 62 2F 2F 67 3B 20 23 20 22 72 65 74
75 72 6E 22 20 64 6F 65 73 6E 27 74 20 6F 63 63 75 72 20 69 6E 20 6D 61
63 72 6F 73 20 75 73 75 61 6C 6C 79 2E 2E 2E 0A 09 20 20 20 20 65 78 70
72 28 29 3B 0A 09 20 20 20 20 23 20 74 72 79 20 74 6F 20 66 69 6E 64 20
61 6E 64 20 70 65 72 6C 69 66 79 20 6C 6F 63 61 6C 20 43 20 76 61 72 69
61 62 6C 65 73 0A 09 20 20 20 20 6F 75 72 20 40 6C 6F 63 61 6C 5F 76 61
72 69 61 62 6C 65 73 20 3D 20 28 29 3B 20 23 20 6E 65 65 64 73 20 74 6F
20 62 65 20 61 20 6F 75 72 28 29 3A 20 28 3F 7B 2E 2E 2E 7D 29 20 62 75
67 20 77 6F 72 6B 61 72 6F 75 6E 64 0A 09 20 20 20 20 7B 0A 09 09 75 73
65 20 72 65 20 22 65 76 61 6C 22 3B 0A 09 09 6D 79 20 24 74 79 70 65 6C
69 73 74 20 3D 20 6A 6F 69 6E 20 27 7C 27 2C 20 6B 65 79 73 20 25 69 73
61 74 79 70 65 3B 0A 09 09 24 6E 65 77 20 3D 7E 20 73 5B 27 0A 09 09 20
20 28 3F 3A 28 3F 3A 5F 5F 29 3F 63 6F 6E 73 74 28 3F 3A 5F 5F 29 3F 5C
73 2B 29 3F 0A 09 09 20 20 28 3F 3A 28 3F 3A 75 6E 29 3F 73 69 67 6E 65
64 5C 73 2B 29 3F 0A 09 09 20 20 28 3F 3A 6C 6F 6E 67 5C 73 2B 29 3F 0A
09 09 20 20 28 3F 3A 24 74 79 70 65 6C 69 73 74 29 5C 73 2B 0A 09 09 20
20 28 5C 77 2B 29 0A 09 09 20 20 28 3F 7B 20 70 75 73 68 20 40 6C 6F 63
61 6C 5F 76 61 72 69 61 62 6C 65 73 2C 20 24 31 20 7D 29 0A 09 09 20 20
27 5D 0A 09 09 20 5B 6D 79 20 5C 24 24 31 5D 67 78 3B 0A 09 09 24 6E 65
77 20 3D 7E 20 73 5B 27 0A 09 09 20 20 28 3F 3A 28 3F 3A 5F 5F 29 3F 63
6F 6E 73 74 28 3F 3A 5F 5F 29 3F 5C 73 2B 29 3F 0A 09 09 20 20 28 3F 3A
28 3F 3A 75 6E 29 3F 73 69 67 6E 65 64 5C 73 2B 29 3F 0A 09 09 20 20 28
3F 3A 6C 6F 6E 67 5C 73 2B 29 3F 0A 09 09 20 20 28 3F 3A 24 74 79 70 65
6C 69 73 74 29 5C 73 2B 0A 09 09 20 20 27 20 5C 73 2B 20 26 28 5C 77 2B
29 20 5C 73 2A 20 3B 0A 09 09 20 20 28 3F 7B 20 70 75 73 68 20 40 6C 6F
63 61 6C 5F 76 61 72 69 61 62 6C 65 73 2C 20 24 31 20 7D 29 0A 09 09 20
20 5D 0A 09 09 20 5B 6D 79 20 5C 24 24 31 3B 5D 67 78 3B 0A 09 20 20 20
20 20 7D 0A 09 20 20 20 20 24 6E 65 77 20 3D 7E 20 73 2F 26 24 5F 5C 62
2F 5C 24 24 5F 2F 67 20 66 6F 72 20 40 6C 6F 63 61 6C 5F 76 61 72 69 61
62 6C 65 73 3B 0A 09 20 20 20 20 24 6E 65 77 20 3D 7E 20 73 2F 28 5B 22
5C 5C 5D 29 2F 5C 5C 24 31 2F 67 3B 20 20 20 20 20 20 20 23 22 5D 29 3B
0A 09 20 20 20 20 23 20 6E 6F 77 20 74 68 61 74 27 73 20 61 6C 6D 6F 73
74 20 6C 69 6B 65 20 61 20 6D 61 63 72 6F 20 28 77 65 20 68 6F 70 65 29
0A 09 20 20 20 20 67 6F 74 6F 20 45 4D 49 54 3B 0A 09 7D 0A 20 20 20 20
7D 0A 20 20 20 20 24 49 73 5F 63 6F 6E 76 65 72 74 65 64 7B 24 66 69 6C
65 7D 20 3D 20 31 3B 0A 20 20 20 20 69 66 20 28 24 6F 70 74 5F 65 20 26
26 20 65 78 69 73 74 73 28 24 62 61 64 5F 66 69 6C 65 7B 24 66 69 6C 65
7D 29 29 20 7B 0A 20 20 20 20 20 20 20 20 75 6E 6C 69 6E 6B 28 24 44 65
73 74 5F 64 69 72 20 2E 20 27 2F 27 20 2E 20 24 6F 75 74 66 69 6C 65 29
3B 0A 20 20 20 20 20 20 20 20 24 6E 65 78 74 20 3D 20 27 27 3B 0A 20 20
20 20 7D 20 65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 70 72 69 6E 74
20 4F 55 54 20 22 31 3B 5C 6E 22 3B 0A 09 71 75 65 75 65 5F 69 6E 63 6C
75 64 65 73 5F 66 72 6F 6D 28 24 66 69 6C 65 29 20 69 66 20 24 6F 70 74
5F 61 3B 0A 20 20 20 20 7D 0A 7D 0A 0A 69 66 20 28 24 6F 70 74 5F 65 20
26 26 20 28 73 63 61 6C 61 72 28 6B 65 79 73 20 25 62 61 64 5F 66 69 6C
65 29 20 3E 20 30 29 29 20 7B 0A 20 20 20 20 77 61 72 6E 20 22 57 61 73
20 75 6E 61 62 6C 65 20 74 6F 20 63 6F 6E 76 65 72 74 20 74 68 65 20 66
6F 6C 6C 6F 77 69 6E 67 20 66 69 6C 65 73 3A 5C 6E 22 3B 0A 20 20 20 20
77 61 72 6E 20 22 5C 74 22 20 2E 20 6A 6F 69 6E 28 22 5C 6E 5C 74 22 2C
73 6F 72 74 28 6B 65 79 73 20 25 62 61 64 5F 66 69 6C 65 29 29 20 2E 20
22 5C 6E 22 3B 0A 7D 0A 0A 65 78 69 74 20 24 45 78 69 74 3B 0A 0A 73 75
62 20 65 78 70 72 20 7B 0A 20 20 20 20 24 6E 65 77 20 3D 20 27 22 28 61
73 73 65 6D 62 6C 79 20 63 6F 64 65 29 22 27 20 61 6E 64 20 72 65 74 75
72 6E 20 69 66 20 2F 5C 62 5F 5F 61 73 6D 5F 5F 5C 62 2F 3B 20 23 20 66
72 65 61 6B 20 6F 75 74 2E 0A 20 20 20 20 6D 79 20 24 6A 6F 69 6E 65 64
5F 61 72 67 73 3B 0A 20 20 20 20 69 66 28 6B 65 79 73 28 25 63 75 72 61
72 67 73 29 29 20 7B 0A 09 24 6A 6F 69 6E 65 64 5F 61 72 67 73 20 3D 20
6A 6F 69 6E 28 27 7C 27 2C 20 6B 65 79 73 28 25 63 75 72 61 72 67 73 29
29 3B 0A 20 20 20 20 7D 0A 20 20 20 20 77 68 69 6C 65 20 28 24 5F 20 6E
65 20 27 27 29 20 7B 0A 09 73 2F 5E 5C 26 5C 26 2F 2F 20 26 26 20 64 6F
20 7B 20 24 6E 65 77 20 2E 3D 20 22 20 26 26 22 3B 20 6E 65 78 74 3B 7D
3B 20 23 20 68 61 6E 64 6C 65 20 26 26 20 6F 70 65 72 61 74 6F 72 0A 09
73 2F 5E 5C 26 28 5B 5C 28 61 2D 7A 5C 29 5D 2B 29 2F 24 31 2F 69 3B 09
23 20 68 61 63 6B 20 66 6F 72 20 74 68 69 6E 67 73 20 74 68 61 74 20 74
61 6B 65 20 74 68 65 20 61 64 64 72 65 73 73 20 6F 66 0A 09 73 2F 5E 28
5C 73 2B 29 2F 2F 09 09 26 26 20 64 6F 20 7B 24 6E 65 77 20 2E 3D 20 27
20 27 3B 20 6E 65 78 74 3B 7D 3B 0A 09 73 2F 5E 30 58 28 5B 30 2D 39 41
2D 46 5D 2B 29 5B 55 4C 5D 2A 2F 2F 69 0A 09 20 20 20 20 26 26 20 64 6F
20 7B 6D 79 20 24 68 65 78 20 3D 20 24 31 3B 0A 09 09 20 20 20 24 68 65
78 20 3D 7E 20 73 2F 5E 30 2B 2F 2F 3B 0A 09 09 20 20 20 69 66 20 28 6C
65 6E 67 74 68 20 24 68 65 78 20 3E 20 38 20 26 26 20 21 24 43 6F 6E 66
69 67 7B 75 73 65 36 34 62 69 74 69 6E 74 7D 29 20 7B 0A 09 09 20 20 20
20 20 20 20 23 20 43 72 6F 61 6B 20 69 66 20 6E 76 5F 70 72 65 73 65 72
76 65 73 5F 75 76 5F 62 69 74 73 20 3C 20 36 34 20 3F 0A 09 09 20 20 20
20 20 20 20 24 6E 65 77 20 2E 3D 20 20 20 20 20 20 20 20 20 68 65 78 28
73 75 62 73 74 72 28 24 68 65 78 2C 20 2D 38 29 29 20 2B 0A 09 09 09 20
20 20 20 20 20 20 32 2A 2A 33 32 20 2A 20 68 65 78 28 73 75 62 73 74 72
28 24 68 65 78 2C 20 20 30 2C 20 2D 38 29 29 3B 0A 09 09 20 20 20 20 20
20 20 23 20 54 68 65 20 61 62 6F 76 65 20 77 69 6C 6C 20 70 72 6F 64 75
63 65 20 22 65 72 72 6F 72 6E 65 75 73 22 20 63 6F 64 65 0A 09 09 20 20
20 20 20 20 20 23 20 69 66 20 74 68 65 20 68 65 78 20 63 6F 6E 73 74 61
6E 74 20 77 61 73 20 65 2E 67 2E 20 69 6E 73 69 64 65 20 55 49 4E 54 36
34 5F 43 0A 09 09 20 20 20 20 20 20 20 23 20 6D 61 63 72 6F 2C 20 62 75
74 20 74 68 65 6E 20 61 67 61 69 6E 2C 20 68 32 70 68 20 69 73 20 61 6E
20 61 70 70 72 6F 78 69 6D 61 74 69 6F 6E 2E 0A 09 09 20 20 20 7D 20 65
6C 73 65 20 7B 0A 09 09 20 20 20 20 20 20 20 24 6E 65 77 20 2E 3D 20 6C
63 28 22 30 78 24 68 65 78 22 29 3B 0A 09 09 20 20 20 7D 0A 09 09 20 20
20 6E 65 78 74 3B 7D 3B 0A 09 73 2F 5E 28 2D 3F 5C 64 2B 5C 2E 5C 64 2B
45 5B 2D 2B 5D 3F 5C 64 2B 29 5B 46 4C 5D 3F 2F 2F 69 09 26 26 20 64 6F
20 7B 24 6E 65 77 20 2E 3D 20 24 31 3B 20 6E 65 78 74 3B 7D 3B 0A 09 73
2F 5E 28 5C 64 2B 29 5C 73 2A 5B 4C 55 5D 2A 2F 2F 69 09 26 26 20 64 6F
20 7B 24 6E 65 77 20 2E 3D 20 24 31 3B 20 6E 65 78 74 3B 7D 3B 0A 09 73
2F 5E 28 22 28 5C 5C 22 7C 5B 5E 22 5D 29 2A 22 29 2F 2F 09 26 26 20 64
6F 20 7B 24 6E 65 77 20 2E 3D 20 24 31 3B 20 6E 65 78 74 3B 7D 3B 0A 09
73 2F 5E 27 28 28 5C 5C 22 7C 5B 5E 22 5D 29 2A 29 27 2F 2F 09 26 26 20
64 6F 20 7B 0A 09 20 20 20 20 69 66 20 28 24 63 75 72 61 72 67 73 7B 24
31 7D 29 20 7B 0A 09 09 24 6E 65 77 20 2E 3D 20 22 6F 72 64 28 27 5C 24
24 31 27 29 22 3B 0A 09 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 09 24
6E 65 77 20 2E 3D 20 22 6F 72 64 28 27 24 31 27 29 22 3B 0A 09 20 20 20
20 7D 0A 09 20 20 20 20 6E 65 78 74 3B 0A 09 7D 3B 0A 20 20 20 20 20 20
20 20 23 20 72 65 70 6C 61 63 65 20 22 73 69 7A 65 6F 66 28 66 6F 6F 29
22 20 77 69 74 68 20 22 7B 66 6F 6F 7D 22 0A 20 20 20 20 20 20 20 20 23
20 61 6C 73 6F 2C 20 72 65 6D 6F 76 65 20 2A 20 28 43 20 64 65 72 65 66
65 72 65 6E 63 65 20 6F 70 65 72 61 74 6F 72 29 20 74 6F 20 61 76 6F 69
64 20 70 65 72 6C 20 73 79 6E 74 61 78 0A 20 20 20 20 20 20 20 20 23 20
70 72 6F 62 6C 65 6D 73 2E 20 20 57 68 65 72 65 20 74 68 65 20 25 73 69
7A 65 6F 66 20 61 72 72 61 79 20 63 6F 6D 65 73 20 66 72 6F 6D 20 69 73
20 61 6E 79 6F 6E 65 27 73 0A 20 20 20 20 20 20 20 20 23 20 67 75 65 73
73 20 28 63 32 70 68 3F 29 2C 20 62 75 74 20 74 68 69 73 20 61 74 20 6C
65 61 73 74 20 61 76 6F 69 64 73 20 66 61 74 61 6C 20 73 79 6E 74 61 78
20 65 72 72 6F 72 73 2E 0A 20 20 20 20 20 20 20 20 23 20 42 65 68 61 76
69 6F 72 20 69 73 20 75 6E 64 65 66 69 6E 65 64 20 69 66 20 73 69 7A 65
6F 66 28 29 20 64 65 6C 69 6D 69 74 65 72 73 20 61 72 65 20 75 6E 62 61
6C 61 6E 63 65 64 2E 0A 20 20 20 20 20 20 20 20 23 20 54 68 69 73 20 63
6F 64 65 20 77 61 73 20 6D 6F 64 69 66 69 65 64 20 74 6F 20 61 62 6C 65
20 74 6F 20 68 61 6E 64 6C 65 20 63 6F 6E 73 74 72 75 63 74 73 20 6C 69
6B 65 20 74 68 69 73 3A 0A 20 20 20 20 20 20 20 20 23 20 20 20 73 69 7A
65 6F 66 28 2A 28 70 29 29 2C 20 77 68 69 63 68 20 61 70 70 65 61 72 20
69 6E 20 74 68 65 20 48 50 2D 55 58 20 31 30 2E 30 31 20 68 65 61 64 65
72 20 66 69 6C 65 73 2E 0A 20 20 20 20 20 20 20 20 73 2F 5E 73 69 7A 65
6F 66 5C 73 2A 5C 28 2F 2F 20 26 26 20 64 6F 20 7B 0A 20 20 20 20 20 20
20 20 20 20 20 20 24 6E 65 77 20 2E 3D 20 27 24 73 69 7A 65 6F 66 27 3B
0A 20 20 20 20 20 20 20 20 20 20 20 20 6D 79 20 24 6C 76 6C 20 3D 20 31
3B 20 20 23 20 61 6C 72 65 61 64 79 20 73 61 77 20 6F 6E 65 20 6F 70 65
6E 20 70 61 72 65 6E 0A 20 20 20 20 20 20 20 20 20 20 20 20 23 20 74 61
63 6B 20 7B 20 6F 6E 20 74 68 65 20 66 72 6F 6E 74 2C 20 61 6E 64 20 73
6B 69 70 20 69 74 20 69 6E 20 74 68 65 20 6C 6F 6F 70 0A 20 20 20 20 20
20 20 20 20 20 20 20 24 5F 20 3D 20 22 7B 22 20 2E 20 22 24 5F 22 3B 0A
20 20 20 20 20 20 20 20 20 20 20 20 6D 79 20 24 69 6E 64 65 78 20 3D 20
31 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 23 20 66 69 6E 64 20 62 61
6C 61 6E 63 65 64 20 63 6C 6F 73 69 6E 67 20 70 61 72 65 6E 0A 20 20 20
20 20 20 20 20 20 20 20 20 77 68 69 6C 65 20 28 24 69 6E 64 65 78 20 3C
3D 20 6C 65 6E 67 74 68 28 24 5F 29 20 26 26 20 24 6C 76 6C 20 3E 20 30
29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6C 76 6C
2B 2B 20 69 66 20 73 75 62 73 74 72 28 24 5F 2C 20 24 69 6E 64 65 78 2C
20 31 29 20 65 71 20 22 28 22 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 24 6C 76 6C 2D 2D 20 69 66 20 73 75 62 73 74 72 28 24 5F 2C
20 24 69 6E 64 65 78 2C 20 31 29 20 65 71 20 22 29 22 3B 0A 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 24 69 6E 64 65 78 2B 2B 3B 0A 20 20
20 20 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 20 20 20 20 20 20 20 20
23 20 74 61 63 6B 20 7D 20 6F 6E 20 74 68 65 20 65 6E 64 2C 20 72 65 70
6C 61 63 69 6E 67 20 29 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 75 62
73 74 72 28 24 5F 2C 20 24 69 6E 64 65 78 20 2D 20 31 2C 20 31 29 20 3D
20 22 7D 22 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 23 20 72 65 6D 6F
76 65 20 70 65 73 6B 79 20 2A 20 6F 70 65 72 61 74 6F 72 73 20 77 69 74
68 69 6E 20 74 68 65 20 73 69 7A 65 6F 66 20 61 72 67 75 6D 65 6E 74 0A
20 20 20 20 20 20 20 20 20 20 20 20 73 75 62 73 74 72 28 24 5F 2C 20 30
2C 20 24 69 6E 64 65 78 20 2D 20 31 29 20 3D 7E 20 73 2F 5C 2A 2F 2F 67
3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 6E 65 78 74 3B 0A 20 20 20 20
20 20 20 20 7D 3B 0A 09 23 20 45 6C 69 6D 69 6E 61 74 65 20 74 79 70 65
64 65 66 73 0A 09 2F 5C 28 28 5B 5C 77 5C 73 5D 2B 29 5B 5C 2A 5C 73 5D
2A 5C 29 5C 73 2A 5B 5C 77 5C 28 5D 2F 20 26 26 20 64 6F 20 7B 0A 09 20
20 20 20 6D 79 20 24 64 6F 69 74 20 3D 20 31 3B 0A 09 20 20 20 20 66 6F
72 65 61 63 68 20 28 73 70 6C 69 74 20 2F 5C 73 2B 2F 2C 20 24 31 29 20
7B 20 20 23 20 4D 61 6B 65 20 73 75 72 65 20 61 6C 6C 20 74 68 65 20 77
6F 72 64 73 20 61 72 65 20 74 79 70 65 73 2C 0A 09 20 20 20 20 20 20 20
20 75 6E 6C 65 73 73 28 24 69 73 61 74 79 70 65 7B 24 5F 7D 20 6F 72 20
24 5F 20 65 71 20 27 73 74 72 75 63 74 27 20 6F 72 20 24 5F 20 65 71 20
27 75 6E 69 6F 6E 27 29 7B 0A 09 09 20 20 20 20 24 64 6F 69 74 20 3D 20
30 3B 0A 09 09 20 20 20 20 6C 61 73 74 3B 0A 09 09 7D 0A 09 20 20 20 20
7D 0A 09 20 20 20 20 69 66 28 20 24 64 6F 69 74 20 29 7B 0A 09 09 73 2F
5C 28 5B 5C 77 5C 73 5D 2B 5B 5C 2A 5C 73 5D 2A 5C 29 2F 2F 20 26 26 20
6E 65 78 74 3B 20 20 20 20 20 20 23 20 74 68 65 6E 20 65 6C 69 6D 69 6E
61 74 65 20 74 68 65 6D 2E 0A 09 20 20 20 20 7D 0A 09 7D 3B 0A 09 23 20
73 74 72 75 63 74 2F 75 6E 69 6F 6E 20 6D 65 6D 62 65 72 2C 20 69 6E 63
6C 75 64 69 6E 67 20 61 72 72 61 79 73 3A 0A 09 73 2F 5E 28 5B 5F 41 2D
5A 5D 5C 77 2A 28 5C 5B 5B 5E 5C 5D 5D 2B 5C 5D 29 3F 28 28 5C 2E 7C 2D
3E 29 5B 5F 41 2D 5A 5D 5C 77 2A 28 5C 5B 5B 5E 5C 5D 5D 2B 5C 5D 29 3F
29 2B 29 2F 2F 69 20 26 26 20 64 6F 20 7B 0A 09 20 20 20 20 6D 79 20 24
69 64 20 3D 20 24 31 3B 0A 09 20 20 20 20 24 69 64 20 3D 7E 20 73 2F 28
5C 2E 7C 28 2D 3E 29 29 28 5B 5E 5C 2E 5C 2D 5D 2A 29 2F 2D 3E 5C 7B 24
33 5C 7D 2F 67 3B 0A 09 20 20 20 20 24 69 64 20 3D 7E 20 73 2F 5C 62 28
5B 5E 5C 24 5D 29 28 24 6A 6F 69 6E 65 64 5F 61 72 67 73 29 2F 24 31 5C
24 24 32 2F 67 20 69 66 20 6C 65 6E 67 74 68 28 24 6A 6F 69 6E 65 64 5F
61 72 67 73 29 3B 0A 09 20 20 20 20 77 68 69 6C 65 28 24 69 64 20 3D 7E
20 2F 5C 5B 5C 73 2A 28 5B 5E 5C 24 5C 26 5C 64 5C 5D 5D 2B 29 5C 5D 2F
29 20 7B 0A 09 09 6D 79 28 24 69 6E 64 65 78 29 20 3D 20 24 31 3B 0A 09
09 24 69 6E 64 65 78 20 3D 7E 20 73 2F 5C 73 2F 2F 67 3B 0A 09 09 69 66
28 65 78 69 73 74 73 28 24 63 75 72 61 72 67 73 7B 24 69 6E 64 65 78 7D
29 29 20 7B 0A 09 09 20 20 20 20 24 69 6E 64 65 78 20 3D 20 22 5C 24 24
69 6E 64 65 78 22 3B 0A 09 09 7D 20 65 6C 73 65 20 7B 0A 09 09 20 20 20
20 24 69 6E 64 65 78 20 3D 20 22 26 24 69 6E 64 65 78 22 3B 0A 09 09 7D
0A 09 09 24 69 64 20 3D 7E 20 73 2F 5C 5B 5C 73 2A 28 5B 5E 5C 24 5C 26
5C 64 5C 5D 5D 2B 29 5C 5D 2F 5B 24 69 6E 64 65 78 5D 2F 3B 0A 09 20 20
20 20 7D 0A 09 20 20 20 20 24 6E 65 77 20 2E 3D 20 22 20 28 5C 24 24 69
64 29 22 3B 0A 09 7D 3B 0A 09 73 2F 5E 28 5B 5F 61 2D 7A 41 2D 5A 5D 5C
77 2A 29 2F 2F 09 26 26 20 64 6F 20 7B 0A 09 20 20 20 20 6D 79 20 24 69
64 20 3D 20 24 31 3B 0A 09 20 20 20 20 69 66 20 28 24 69 64 20 65 71 20
27 73 74 72 75 63 74 27 20 7C 7C 20 24 69 64 20 65 71 20 27 75 6E 69 6F
6E 27 29 20 7B 0A 09 09 73 2F 5E 5C 73 2B 28 5C 77 2B 29 2F 2F 3B 0A 09
09 24 69 64 20 2E 3D 20 27 20 27 20 2E 20 24 31 3B 0A 09 09 24 69 73 61
74 79 70 65 7B 24 69 64 7D 20 3D 20 31 3B 0A 09 20 20 20 20 7D 20 65 6C
73 69 66 20 28 24 69 64 20 3D 7E 20 2F 5E 28 28 75 6E 29 3F 73 69 67 6E
65 64 29 7C 28 6C 6F 6E 67 29 7C 28 73 68 6F 72 74 29 24 2F 29 20 7B 0A
09 09 77 68 69 6C 65 20 28 73 2F 5E 5C 73 2B 28 5C 77 2B 29 2F 2F 29 20
7B 20 24 69 64 20 2E 3D 20 27 20 27 20 2E 20 24 31 3B 20 7D 0A 09 09 24
69 73 61 74 79 70 65 7B 24 69 64 7D 20 3D 20 31 3B 0A 09 20 20 20 20 7D
0A 09 20 20 20 20 69 66 20 28 24 63 75 72 61 72 67 73 7B 24 69 64 7D 29
20 7B 0A 09 09 24 6E 65 77 20 2E 3D 20 22 5C 24 24 69 64 22 3B 0A 09 09
24 6E 65 77 20 2E 3D 20 27 2D 3E 27 20 69 66 20 2F 5E 5B 5C 5B 5C 7B 5D
2F 3B 0A 09 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 69 64 20 65 71 20
27 64 65 66 69 6E 65 64 27 29 20 7B 0A 09 09 24 6E 65 77 20 2E 3D 20 27
64 65 66 69 6E 65 64 27 3B 0A 09 20 20 20 20 7D 20 65 6C 73 69 66 20 28
2F 5E 5C 73 2A 5C 28 2F 29 20 7B 0A 09 09 73 2F 5E 5C 73 2A 5C 28 28 5C
77 29 2C 2F 28 22 24 31 22 2C 2F 20 69 66 20 24 69 64 20 3D 7E 20 2F 5E
5F 49 4F 5B 57 52 5D 2A 24 2F 69 3B 09 23 20 63 68 65 61 74 0A 09 09 24
6E 65 77 20 2E 3D 20 22 20 26 24 69 64 22 3B 0A 09 20 20 20 20 7D 20 65
6C 73 69 66 20 28 24 69 73 61 74 79 70 65 7B 24 69 64 7D 29 20 7B 0A 09
09 69 66 20 28 24 6E 65 77 20 3D 7E 20 2F 7B 5C 73 2A 24 2F 29 20 7B 0A
09 09 20 20 20 20 24 6E 65 77 20 2E 3D 20 22 27 24 69 64 27 22 3B 0A 09
09 7D 20 65 6C 73 69 66 20 28 24 6E 65 77 20 3D 7E 20 2F 5C 28 5C 73 2A
24 2F 20 26 26 20 2F 5E 5B 5C 73 2A 5D 2A 5C 29 2F 29 20 7B 0A 09 09 20
20 20 20 24 6E 65 77 20 3D 7E 20 73 2F 5C 28 5C 73 2A 24 2F 2F 3B 0A 09
09 20 20 20 20 73 2F 5E 5B 5C 73 2A 5D 2A 5C 29 2F 2F 3B 0A 09 09 7D 20
65 6C 73 65 20 7B 0A 09 09 20 20 20 20 24 6E 65 77 20 2E 3D 20 71 28 27
29 2E 24 69 64 2E 71 28 27 29 3B 0A 09 09 7D 0A 09 20 20 20 20 7D 20 65
6C 73 65 20 7B 0A 09 09 69 66 20 28 24 69 6E 69 66 20 26 26 20 24 6E 65
77 20 21 7E 20 2F 64 65 66 69 6E 65 64 5C 73 2A 5C 28 24 2F 29 20 7B 0A
09 09 20 20 20 20 24 6E 65 77 20 2E 3D 20 27 28 64 65 66 69 6E 65 64 28
26 27 20 2E 20 24 69 64 20 2E 20 27 29 20 3F 20 26 27 20 2E 20 24 69 64
20 2E 20 27 20 3A 20 75 6E 64 65 66 29 27 3B 0A 09 09 7D 20 65 6C 73 69
66 20 28 2F 5E 5C 5B 2F 29 20 7B 0A 09 09 20 20 20 20 24 6E 65 77 20 2E
3D 20 22 20 5C 24 24 69 64 22 3B 0A 09 09 7D 20 65 6C 73 65 20 7B 0A 09
09 20 20 20 20 24 6E 65 77 20 2E 3D 20 27 20 26 27 20 2E 20 24 69 64 3B
0A 09 09 7D 0A 09 20 20 20 20 7D 0A 09 20 20 20 20 6E 65 78 74 3B 0A 09
7D 3B 0A 09 73 2F 5E 28 2E 29 2F 2F 20 26 26 20 64 6F 20 7B 20 69 66 20
28 24 31 20 6E 65 20 27 23 27 29 20 7B 20 24 6E 65 77 20 2E 3D 20 24 31
3B 20 7D 20 6E 65 78 74 3B 7D 3B 0A 20 20 20 20 7D 0A 7D 0A 0A 0A 73 75
62 20 6E 65 78 74 5F 6C 69 6E 65 0A 7B 0A 20 20 20 20 6D 79 20 24 66 69
6C 65 20 3D 20 73 68 69 66 74 3B 0A 20 20 20 20 6D 79 20 28 24 69 6E 2C
20 24 6F 75 74 29 3B 0A 20 20 20 20 6D 79 20 24 70 72 65 5F 73 75 62 5F
74 72 69 5F 67 72 61 70 68 73 20 3D 20 31 3B 0A 0A 20 20 20 20 52 45 41
44 3A 20 77 68 69 6C 65 20 28 6E 6F 74 20 65 6F 66 20 49 4E 29 20 7B 0A
20 20 20 20 20 20 20 20 24 69 6E 20 20 2E 3D 20 3C 49 4E 3E 3B 0A 20 20
20 20 20 20 20 20 63 68 6F 6D 70 20 24 69 6E 3B 0A 20 20 20 20 20 20 20
20 6E 65 78 74 20 75 6E 6C 65 73 73 20 6C 65 6E 67 74 68 20 24 69 6E 3B
0A 0A 20 20 20 20 20 20 20 20 77 68 69 6C 65 20 28 6C 65 6E 67 74 68 20
24 69 6E 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 24
70 72 65 5F 73 75 62 5F 74 72 69 5F 67 72 61 70 68 73 29 20 7B 0A 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 50 72 65 70 72 6F 63 65
73 73 20 61 6C 6C 20 74 72 69 2D 67 72 61 70 68 73 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 23 20 69 6E 63 6C 75 64 69 6E 67 20 74 68
69 6E 67 73 20 73 74 75 63 6B 20 69 6E 20 71 75 6F 74 65 64 20 73 74 72
69 6E 67 20 63 6F 6E 73 74 61 6E 74 73 2E 0A 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 24 69 6E 20 3D 7E 20 73 2F 5C 3F 5C 3F 3D 2F 23 2F
67 3B 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 23 20 7C 20 3F 3F 3D 7C 20 20 23 7C 0A 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 24 69 6E 20 3D 7E 20 73 2F 5C 3F 5C 3F 5C 21 2F
7C 2F 67 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 23 20 7C 20 3F 3F 21 7C 20 20 7C 7C 0A 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 24 69 6E 20 3D 7E 20 73 2F 5C 3F 5C 3F 27 2F
5E 2F 67 3B 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 23 20 7C 20 3F 3F 27 7C 20 20 5E 7C 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 24 69 6E 20 3D 7E 20 73 2F 5C 3F 5C 3F 5C
28 2F 5B 2F 67 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 23 20 7C 20 3F 3F 28 7C 20 20 5B 7C 0A 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 24 69 6E 20 3D 7E 20 73 2F 5C 3F 5C 3F
5C 29 2F 5D 2F 67 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 23 20 7C 20 3F 3F 29 7C 20 20 5D 7C 0A 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 24 69 6E 20 3D 7E 20 73 2F 5C 3F 5C
3F 5C 2D 2F 7E 2F 67 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 23 20 7C 20 3F 3F 2D 7C 20 20 7E 7C 0A 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 24 69 6E 20 3D 7E 20 73 2F 5C 3F
5C 3F 5C 2F 2F 5C 5C 2F 67 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 23 20 7C 20 3F 3F 2F 7C 20 20 5C 7C 0A 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 69 6E 20 3D 7E 20 73 2F 5C
3F 5C 3F 3C 2F 7B 2F 67 3B 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 23 20 7C 20 3F 3F 3C 7C 20 20 7B 7C 0A 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 69 6E 20 3D 7E 20 73 2F
5C 3F 5C 3F 3E 2F 7D 2F 67 3B 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 23 20 7C 20 3F 3F 3E 7C 20 20 7D 7C 0A
20 20 20 20 20 20 20 20 20 20 20 20 7D 0A 09 20 20 20 20 69 66 20 28 24
69 6E 20 3D 7E 20 2F 5E 5C 23 69 66 64 65 66 20 5F 5F 4C 41 4E 47 55 41
47 45 5F 50 41 53 43 41 4C 5F 5F 2F 29 20 7B 0A 09 09 23 20 54 72 75 36
34 20 64 69 73 61 73 73 65 6D 62 6C 65 72 2E 68 20 65 76 69 6C 6E 65 73
73 3A 20 6D 69 78 65 64 20 43 20 61 6E 64 20 50 61 73 63 61 6C 2E 0A 09
09 77 68 69 6C 65 20 28 3C 49 4E 3E 29 20 7B 0A 09 09 20 20 20 20 6C 61
73 74 20 69 66 20 2F 5E 5C 23 65 6E 64 69 66 2F 3B 0A 09 09 7D 0A 09 09
24 69 6E 20 3D 20 22 22 3B 0A 09 09 6E 65 78 74 20 52 45 41 44 3B 0A 09
20 20 20 20 7D 0A 09 20 20 20 20 69 66 20 28 24 69 6E 20 3D 7E 20 2F 5E
65 78 74 65 72 6E 20 69 6E 6C 69 6E 65 20 2F 20 26 26 20 23 20 49 6E 6C
69 6E 65 64 20 61 73 73 65 6D 62 6C 65 72 2E 0A 09 09 24 5E 4F 20 65 71
20 27 6C 69 6E 75 78 27 20 26 26 20 24 66 69 6C 65 20 3D 7E 20 6D 21 28
3F 3A 5E 7C 2F 29 61 73 6D 2F 5B 5E 2F 5D 2B 5C 2E 68 24 21 29 20 7B 0A
09 09 77 68 69 6C 65 20 28 3C 49 4E 3E 29 20 7B 0A 09 09 20 20 20 20 6C
61 73 74 20 69 66 20 2F 5E 7D 2F 3B 0A 09 09 7D 0A 09 09 24 69 6E 20 3D
20 22 22 3B 0A 09 09 6E 65 78 74 20 52 45 41 44 3B 0A 09 20 20 20 20 7D
0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 24 69 6E 20 3D 7E 20
73 2F 5C 5C 24 2F 2F 29 20 7B 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 23 20 5C 2D 6E 65 77 6C 69 6E 65
0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6F 75 74 20 20 20
20 2E 3D 20 27 20 27 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 6E 65 78 74 20 52 45 41 44 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20
7D 20 65 6C 73 69 66 20 28 24 69 6E 20 3D 7E 20 73 2F 5E 28 5B 5E 22 27
5C 5C 5C 2F 5D 2B 29 2F 2F 29 20 7B 20 20 20 20 20 20 20 20 20 20 20 20
23 20 50 61 73 73 74 68 72 6F 75 67 68 0A 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 24 6F 75 74 20 20 20 20 2E 3D 20 24 31 3B 0A 20 20 20
20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 69 6E 20 3D 7E
20 73 2F 5E 28 5C 5C 2E 29 2F 2F 29 20 7B 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 23 20 5C 2E 2E 2E 0A 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 24 6F 75 74 20 20 20 20 2E 3D 20 24 31 3B 0A 20
20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 69 6E 20
3D 7E 20 2F 5E 27 2F 29 20 7B 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 23 20 27 2E 2E 2E 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 69 66 20 28 24 69 6E 20 3D 7E 20 73 2F 5E
28 27 28 5C 5C 2E 7C 5B 5E 27 5C 5C 5D 29 2A 27 29 2F 2F 29 20 7B 0A 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6F 75 74 20
20 20 20 2E 3D 20 24 31 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 7D 20 65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 6E 65 78 74 20 52 45 41 44 3B 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 20 20 20 20 20 20 20 20
7D 20 65 6C 73 69 66 20 28 24 69 6E 20 3D 7E 20 2F 5E 22 2F 29 20 7B 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
23 20 22 2E 2E 2E 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69
66 20 28 24 69 6E 20 3D 7E 20 73 2F 5E 28 22 28 5C 5C 2E 7C 5B 5E 22 5C
5C 5D 29 2A 22 29 2F 2F 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 24 6F 75 74 20 20 20 20 2E 3D 20 24 31 3B 0A 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 65 78 74
20 52 45 41 44 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D
0A 20 20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 69
6E 20 3D 7E 20 73 2F 5E 5C 2F 5C 2F 2E 2A 2F 2F 29 20 7B 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 2F 2F 2E 2E 2E 0A 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 66 61 6C 6C 20 74 68 72 6F
75 67 68 0A 20 20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 20
28 24 69 6E 20 3D 7E 20 6D 2F 5E 5C 2F 5C 2A 2F 29 20 7B 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 2F 2A 2E 2E 2E 0A
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 43 20 63 6F 6D 6D
65 6E 74 20 72 65 6D 6F 76 61 6C 20 61 64 61 70 74 65 64 20 66 72 6F 6D
20 70 65 72 6C 66 61 71 36 3A 0A 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 69 66 20 28 24 69 6E 20 3D 7E 20 73 2F 5E 5C 2F 5C 2A 5B 5E 2A
5D 2A 5C 2A 2B 28 5B 5E 5C 2F 2A 5D 5B 5E 2A 5D 2A 5C 2A 2B 29 2A 5C 2F
2F 2F 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 24 6F 75 74 20 20 20 20 2E 3D 20 27 20 27 3B 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 65 20 7B 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
20 20 20 20 20 20 23 20 49 6E 63 6F 6D 70 6C 65 74 65 20 2F 2A 20 2A 2F
0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 65 78
74 20 52 45 41 44 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7D 0A 20 20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24
69 6E 20 3D 7E 20 73 2F 5E 28 5C 2F 29 2F 2F 29 20 7B 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 2F 2E 2E 2E 0A 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 24 6F 75 74 20 20 20 20 2E 3D 20
24 31 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 20
28 24 69 6E 20 3D 7E 20 73 2F 5E 28 5B 5E 5C 27 5C 22 5C 5C 5C 2F 5D 2B
29 2F 2F 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24
6F 75 74 20 20 20 20 2E 3D 20 24 31 3B 0A 20 20 20 20 20 20 20 20 20 20
20 20 7D 20 65 6C 73 69 66 20 28 24 5E 4F 20 65 71 20 27 6C 69 6E 75 78
27 20 26 26 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 24 66 69 6C 65 20 3D 7E 20 6D 21 28 3F 3A 5E 7C 2F 29 6C 69 6E 75
78 2F 62 79 74 65 6F 72 64 65 72 2F 70 64 70 5F 65 6E 64 69 61 6E 5C 2E
68 24 21 20 26 26 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 24 69 6E 20 20 20 3D 7E 20 73 21 5C 27 54 20 4B 4E 4F 57 21
21 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6F 75
74 20 20 20 20 3D 7E 20 73 21 49 20 44 4F 4E 24 21 49 5F 44 4F 5F 4E 4F
54 5F 4B 4E 4F 57 21 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 7D 20 65
6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66
20 28 24 6F 70 74 5F 65 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 77 61 72 6E 20 22 43 61 6E 6E 6F 74 20 70 61 72
73 65 20 24 66 69 6C 65 3A 5C 6E 24 69 6E 5C 6E 22 3B 0A 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 62 61 64 5F 66 69 6C 65
7B 24 66 69 6C 65 7D 20 3D 20 31 3B 0A 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 24 69 6E 20 3D 20 27 27 3B 0A 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6F 75 74 20 3D 20 75 6E
64 65 66 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 6C 61 73 74 20 52 45 41 44 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 09 64 69 65 20 22 43 61 6E 6E
6F 74 20 70 61 72 73 65 3A 5C 6E 24 69 6E 5C 6E 22 3B 0A 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 20 20 20 20 20 20 20
20 7D 0A 20 20 20 20 20 20 20 20 7D 0A 0A 20 20 20 20 20 20 20 20 6C 61
73 74 20 52 45 41 44 20 69 66 20 24 6F 75 74 20 3D 7E 20 2F 5C 53 2F 3B
0A 20 20 20 20 7D 0A 0A 20 20 20 20 72 65 74 75 72 6E 20 24 6F 75 74 3B
0A 7D 0A 0A 0A 23 20 48 61 6E 64 6C 65 20 72 65 63 75 72 73 69 76 65 20
73 75 62 64 69 72 65 63 74 6F 72 69 65 73 20 77 69 74 68 6F 75 74 20 67
65 74 74 69 6E 67 20 61 20 67 72 6F 74 65 73 71 75 65 6C 79 20 62 69 67
20 73 74 61 63 6B 2E 0A 23 20 43 6F 75 6C 64 20 74 68 69 73 20 62 65 20
69 6D 70 6C 65 6D 65 6E 74 65 64 20 75 73 69 6E 67 20 46 69 6C 65 3A 3A
46 69 6E 64 3F 0A 73 75 62 20 6E 65 78 74 5F 66 69 6C 65 0A 7B 0A 20 20
20 20 6D 79 20 24 66 69 6C 65 3B 0A 0A 20 20 20 20 77 68 69 6C 65 20 28
40 41 52 47 56 29 20 7B 0A 20 20 20 20 20 20 20 20 24 66 69 6C 65 20 3D
20 73 68 69 66 74 20 40 41 52 47 56 3B 0A 0A 20 20 20 20 20 20 20 20 69
66 20 28 24 66 69 6C 65 20 65 71 20 27 2D 27 20 6F 72 20 2D 66 20 24 66
69 6C 65 20 6F 72 20 2D 6C 20 24 66 69 6C 65 29 20 7B 0A 20 20 20 20 20
20 20 20 20 20 20 20 72 65 74 75 72 6E 20 24 66 69 6C 65 3B 0A 20 20 20
20 20 20 20 20 7D 20 65 6C 73 69 66 20 28 2D 64 20 24 66 69 6C 65 29 20
7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 24 6F 70 74 5F 72
29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 61
6E 64 5F 67 6C 6F 62 28 24 66 69 6C 65 29 3B 0A 20 20 20 20 20 20 20 20
20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 53 6B 69 70 70
69 6E 67 20 64 69 72 65 63 74 6F 72 79 20 60 24 66 69 6C 65 27 5C 6E 22
3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 20 20 20 20
7D 20 65 6C 73 69 66 20 28 24 6F 70 74 5F 61 29 20 7B 0A 20 20 20 20 20
20 20 20 20 20 20 20 72 65 74 75 72 6E 20 24 66 69 6C 65 3B 0A 20 20 20
20 20 20 20 20 7D 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 53 54 44 45 52 52 20 22 53 6B 69 70 70 69 6E 67
20 60 24 66 69 6C 65 27 3A 20 20 6E 6F 74 20 61 20 66 69 6C 65 20 6F 72
20 64 69 72 65 63 74 6F 72 79 5C 6E 22 3B 0A 20 20 20 20 20 20 20 20 7D
0A 20 20 20 20 7D 0A 0A 20 20 20 20 72 65 74 75 72 6E 20 75 6E 64 65 66
3B 0A 7D 0A 0A 0A 23 20 50 75 74 20 61 6C 6C 20 74 68 65 20 66 69 6C 65
73 20 69 6E 20 24 64 69 72 65 63 74 6F 72 79 20 69 6E 74 6F 20 40 41 52
47 56 20 66 6F 72 20 70 72 6F 63 65 73 73 69 6E 67 2E 0A 73 75 62 20 65
78 70 61 6E 64 5F 67 6C 6F 62 0A 7B 0A 20 20 20 20 6D 79 20 28 24 64 69
72 65 63 74 6F 72 79 29 20 20 3D 20 40 5F 3B 0A 0A 20 20 20 20 24 64 69
72 65 63 74 6F 72 79 20 3D 7E 20 73 3A 2F 24 3A 3A 3B 0A 0A 20 20 20 20
6F 70 65 6E 64 69 72 20 44 49 52 2C 20 24 64 69 72 65 63 74 6F 72 79 3B
0A 20 20 20 20 20 20 20 20 66 6F 72 65 61 63 68 20 28 72 65 61 64 64 69
72 20 44 49 52 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 2E 27 20 6F 72 20 24 5F 20 65 71
20 27 2E 2E 27 29 3B 0A 0A 20 20 20 20 20 20 20 20 20 20 20 20 23 20 65
78 70 61 6E 64 5F 67 6C 6F 62 28 29 20 69 73 20 67 6F 69 6E 67 20 74 6F
20 62 65 20 63 61 6C 6C 65 64 20 75 6E 74 69 6C 20 24 41 52 47 56 5B 30
5D 20 69 73 6E 27 74 20 61 0A 20 20 20 20 20 20 20 20 20 20 20 20 23 20
64 69 72 65 63 74 6F 72 79 3B 20 73 6F 20 70 75 73 68 20 64 69 72 65 63
74 6F 72 69 65 73 2C 20 61 6E 64 20 75 6E 73 68 69 66 74 20 65 76 65 72
79 74 68 69 6E 67 20 65 6C 73 65 2E 0A 20 20 20 20 20 20 20 20 20 20 20
20 69 66 20 28 2D 64 20 22 24 64 69 72 65 63 74 6F 72 79 2F 24 5F 22 29
20 7B 20 70 75 73 68 20 20 20 20 40 41 52 47 56 2C 20 22 24 64 69 72 65
63 74 6F 72 79 2F 24 5F 22 20 7D 0A 20 20 20 20 20 20 20 20 20 20 20 20
65 6C 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7B 20 75 6E 73 68 69 66 74 20 40 41 52 47 56 2C 20 22 24 64 69 72 65 63
74 6F 72 79 2F 24 5F 22 20 7D 0A 20 20 20 20 20 20 20 20 7D 0A 20 20 20
20 63 6C 6F 73 65 64 69 72 20 44 49 52 3B 0A 7D 0A 0A 0A 23 20 47 69 76
65 6E 20 24 66 69 6C 65 2C 20 61 20 73 79 6D 62 6F 6C 69 63 20 6C 69 6E
6B 20 74 6F 20 61 20 64 69 72 65 63 74 6F 72 79 20 69 6E 20 74 68 65 20
43 20 69 6E 63 6C 75 64 65 20 64 69 72 65 63 74 6F 72 79 2C 0A 23 20 6D
61 6B 65 20 61 6E 20 65 71 75 69 76 61 6C 65 6E 74 20 73 79 6D 62 6F 6C
69 63 20 6C 69 6E 6B 20 69 6E 20 24 44 65 73 74 5F 64 69 72 2C 20 69 66
20 77 65 20 63 61 6E 20 66 69 67 75 72 65 20 6F 75 74 20 68 6F 77 2E 0A
23 20 4F 74 68 65 72 77 69 73 65 2C 20 6A 75 73 74 20 64 75 70 6C 69 63
61 74 65 20 74 68 65 20 66 69 6C 65 20 6F 72 20 64 69 72 65 63 74 6F 72
79 2E 0A 73 75 62 20 6C 69 6E 6B 5F 69 66 5F 70 6F 73 73 69 62 6C 65 0A
7B 0A 20 20 20 20 6D 79 20 28 24 64 69 72 6C 69 6E 6B 29 20 20 3D 20 40
5F 3B 0A 20 20 20 20 6D 79 20 24 74 61 72 67 65 74 20 20 3D 20 65 76 61
6C 20 27 72 65 61 64 6C 69 6E 6B 28 24 64 69 72 6C 69 6E 6B 29 27 3B 0A
0A 20 20 20 20 69 66 20 28 24 74 61 72 67 65 74 20 3D 7E 20 6D 3A 5E 5C
2E 5C 2E 2F 3A 20 6F 72 20 24 74 61 72 67 65 74 20 3D 7E 20 6D 3A 5E 2F
3A 29 20 7B 0A 20 20 20 20 20 20 20 20 23 20 54 68 65 20 74 61 72 67 65
74 20 6F 66 20 61 20 70 61 72 65 6E 74 20 6F 72 20 61 62 73 6F 6C 75 74
65 20 6C 69 6E 6B 20 63 6F 75 6C 64 20 6C 65 61 76 65 20 74 68 65 20 24
44 65 73 74 5F 64 69 72 0A 20 20 20 20 20 20 20 20 23 20 68 69 65 72 61
72 63 68 79 2C 20 73 6F 20 6C 65 74 27 73 20 70 75 74 20 61 6C 6C 20 6F
66 20 74 68 65 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 24 64 69 72 6C 69
6E 6B 20 28 61 63 74 75 61 6C 6C 79 2C 0A 20 20 20 20 20 20 20 20 23 20
74 68 65 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 24 74 61 72 67 65 74 29
20 69 6E 74 6F 20 40 41 52 47 56 3B 20 61 73 20 61 20 73 69 64 65 20 65
66 66 65 63 74 20 64 6F 77 6E 20 74 68 65 0A 20 20 20 20 20 20 20 20 23
20 6C 69 6E 65 2C 20 24 64 69 72 6C 69 6E 6B 20 77 69 6C 6C 20 67 65 74
20 63 72 65 61 74 65 64 20 61 73 20 61 6E 20 5F 61 63 74 75 61 6C 5F 20
64 69 72 65 63 74 6F 72 79 2E 0A 20 20 20 20 20 20 20 20 65 78 70 61 6E
64 5F 67 6C 6F 62 28 24 64 69 72 6C 69 6E 6B 29 3B 0A 20 20 20 20 7D 20
65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20 69 66 20 28 2D 6C 20 22 24
44 65 73 74 5F 64 69 72 2F 24 64 69 72 6C 69 6E 6B 22 29 20 7B 0A 20 20
20 20 20 20 20 20 20 20 20 20 75 6E 6C 69 6E 6B 20 22 24 44 65 73 74 5F
64 69 72 2F 24 64 69 72 6C 69 6E 6B 22 20 6F 72 0A 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 43
6F 75 6C 64 20 6E 6F 74 20 72 65 6D 6F 76 65 20 6C 69 6E 6B 20 24 44 65
73 74 5F 64 69 72 2F 24 64 69 72 6C 69 6E 6B 3A 20 20 24 21 5C 6E 22 3B
0A 20 20 20 20 20 20 20 20 7D 0A 0A 20 20 20 20 20 20 20 20 69 66 20 28
65 76 61 6C 20 27 73 79 6D 6C 69 6E 6B 28 24 74 61 72 67 65 74 2C 20 22
24 44 65 73 74 5F 64 69 72 2F 24 64 69 72 6C 69 6E 6B 22 29 27 29 20 7B
0A 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 22 4C 69 6E 6B
69 6E 67 20 24 74 61 72 67 65 74 20 2D 3E 20 24 44 65 73 74 5F 64 69 72
2F 24 64 69 72 6C 69 6E 6B 5C 6E 22 3B 0A 0A 20 20 20 20 20 20 20 20 20
20 20 20 23 20 4D 61 6B 65 20 73 75 72 65 20 74 68 61 74 20 74 68 65 20
6C 69 6E 6B 20 5F 6C 69 6E 6B 73 5F 20 74 6F 20 73 6F 6D 65 74 68 69 6E
67 3A 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 21 20 2D 65 20
22 24 44 65 73 74 5F 64 69 72 2F 24 74 61 72 67 65 74 22 29 20 7B 0A 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6D 6B 70 61 74 68 28 22 24
44 65 73 74 5F 64 69 72 2F 24 74 61 72 67 65 74 22 2C 20 30 37 35 35 29
20 6F 72 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70 72 69 6E 74 20 53 54 44 45 52 52 20 22 43 6F 75 6C 64 20 6E 6F 74 20
63 72 65 61 74 65 20 24 44 65 73 74 5F 64 69 72 2F 24 74 61 72 67 65 74
2F 5C 6E 22 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20
20 20 20 20 7D 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 53 54 44 45 52 52 20 22 43 6F 75 6C 64 20 6E 6F 74
20 73 79 6D 6C 69 6E 6B 20 24 74 61 72 67 65 74 20 2D 3E 20 24 44 65 73
74 5F 64 69 72 2F 24 64 69 72 6C 69 6E 6B 3A 20 20 24 21 5C 6E 22 3B 0A
20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 7D 0A 7D 0A 0A 0A 23 20 50 75
73 68 20 61 6C 6C 20 23 69 6E 63 6C 75 64 65 64 20 66 69 6C 65 73 20 69
6E 20 24 66 69 6C 65 20 6F 6E 74 6F 20 6F 75 72 20 73 74 61 63 6B 2C 20
65 78 63 65 70 74 20 66 6F 72 20 53 54 44 49 4E 0A 23 20 61 6E 64 20 66
69 6C 65 73 20 77 65 27 76 65 20 61 6C 72 65 61 64 79 20 70 72 6F 63 65
73 73 65 64 2E 0A 73 75 62 20 71 75 65 75 65 5F 69 6E 63 6C 75 64 65 73
5F 66 72 6F 6D 0A 7B 0A 20 20 20 20 6D 79 20 28 24 66 69 6C 65 29 20 20
20 20 3D 20 40 5F 3B 0A 20 20 20 20 6D 79 20 24 6C 69 6E 65 3B 0A 0A 20
20 20 20 72 65 74 75 72 6E 20 69 66 20 28 24 66 69 6C 65 20 65 71 20 22
2D 22 29 3B 0A 0A 20 20 20 20 6F 70 65 6E 20 48 45 41 44 45 52 2C 20 24
66 69 6C 65 20 6F 72 20 72 65 74 75 72 6E 3B 0A 20 20 20 20 20 20 20 20
77 68 69 6C 65 20 28 64 65 66 69 6E 65 64 28 24 6C 69 6E 65 20 3D 20 3C
48 45 41 44 45 52 3E 29 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20
77 68 69 6C 65 20 28 2F 5C 5C 24 2F 29 20 7B 20 23 20 48 61 6E 64 6C 65
20 63 6F 6E 74 69 6E 75 61 74 69 6F 6E 20 6C 69 6E 65 73 0A 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 63 68 6F 70 20 24 6C 69 6E 65 3B 0A
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6C 69 6E 65 20 2E 3D
20 3C 48 45 41 44 45 52 3E 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 7D
0A 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 24 6C 69 6E 65 20
3D 7E 20 2F 5E 23 5C 73 2A 69 6E 63 6C 75 64 65 5C 73 2B 3C 28 2E 2A 3F
29 3E 2F 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70
75 73 68 28 40 41 52 47 56 2C 20 24 31 29 20 75 6E 6C 65 73 73 20 24 49
73 5F 63 6F 6E 76 65 72 74 65 64 7B 24 31 7D 3B 0A 20 20 20 20 20 20 20
20 20 20 20 20 7D 0A 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 63 6C 6F
73 65 20 48 45 41 44 45 52 3B 0A 7D 0A 0A 0A 23 20 44 65 74 65 72 6D 69
6E 65 20 69 6E 63 6C 75 64 65 20 64 69 72 65 63 74 6F 72 69 65 73 3B 20
24 43 6F 6E 66 69 67 7B 75 73 72 69 6E 63 7D 20 73 68 6F 75 6C 64 20 62
65 20 65 6E 6F 75 67 68 20 66 6F 72 20 28 61 6C 6C 0A 23 20 6E 6F 6E 2D
47 43 43 3F 29 20 43 20 63 6F 6D 70 69 6C 65 72 73 2C 20 62 75 74 20 67
63 63 20 75 73 65 73 20 61 6E 20 61 64 64 69 74 69 6F 6E 61 6C 20 69 6E
63 6C 75 64 65 20 64 69 72 65 63 74 6F 72 79 2E 0A 73 75 62 20 69 6E 63
5F 64 69 72 73 0A 7B 0A 20 20 20 20 6D 79 20 24 66 72 6F 6D 5F 67 63 63
20 20 20 20 3D 20 60 4C 43 5F 41 4C 4C 3D 43 20 24 43 6F 6E 66 69 67 7B
63 63 7D 20 2D 76 20 32 3E 26 31 60 3B 0A 20 20 20 20 69 66 28 20 21 28
20 24 66 72 6F 6D 5F 67 63 63 20 3D 7E 20 73 3A 5E 52 65 61 64 69 6E 67
20 73 70 65 63 73 20 66 72 6F 6D 20 28 2E 2A 3F 29 2F 73 70 65 63 73 5C
62 2E 2A 3A 24 31 2F 69 6E 63 6C 75 64 65 3A 73 20 29 20 29 0A 20 20 20
20 7B 20 23 20 67 63 63 2D 34 2B 20 3A 0A 20 20 20 20 20 20 20 24 66 72
6F 6D 5F 67 63 63 20 20 20 3D 20 60 4C 43 5F 41 4C 4C 3D 43 20 24 43 6F
6E 66 69 67 7B 63 63 7D 20 2D 70 72 69 6E 74 2D 73 65 61 72 63 68 2D 64
69 72 73 20 32 3E 26 31 60 3B 0A 20 20 20 20 20 20 20 69 66 20 28 20 21
28 24 66 72 6F 6D 5F 67 63 63 20 3D 7E 20 73 2F 5E 69 6E 73 74 61 6C 6C
3A 5C 73 2A 28 5B 5E 5C 73 5D 2B 5B 5E 5C 73 5C 2F 5D 29 28 5B 5C 73 5C
2F 5D 2A 29 2E 2A 24 2F 24 31 5C 2F 69 6E 63 6C 75 64 65 2F 73 29 20 29
0A 20 20 20 20 20 20 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 24 66 72
6F 6D 5F 67 63 63 20 3D 20 27 27 3B 0A 20 20 20 20 20 20 20 7D 3B 0A 20
20 20 20 7D 3B 0A 20 20 20 20 6C 65 6E 67 74 68 28 24 66 72 6F 6D 5F 67
63 63 29 20 3F 20 28 24 66 72 6F 6D 5F 67 63 63 2C 20 24 43 6F 6E 66 69
67 7B 75 73 72 69 6E 63 7D 29 20 3A 20 28 24 43 6F 6E 66 69 67 7B 75 73
72 69 6E 63 7D 29 3B 0A 7D 0A 0A 0A 23 20 43 72 65 61 74 65 20 22 5F 68
32 70 68 5F 70 72 65 2E 70 68 22 2C 20 69 66 20 69 74 20 64 6F 65 73 6E
27 74 20 65 78 69 73 74 20 6F 72 20 77 61 73 20 62 75 69 6C 74 20 62 79
20 61 20 64 69 66 66 65 72 65 6E 74 0A 23 20 76 65 72 73 69 6F 6E 20 6F
66 20 68 32 70 68 2E 0A 73 75 62 20 62 75 69 6C 64 5F 70 72 65 61 6D 62
6C 65 5F 69 66 5F 6E 65 63 65 73 73 61 72 79 0A 7B 0A 20 20 20 20 23 20
49 6E 63 72 65 6D 65 6E 74 20 24 56 45 52 53 49 4F 4E 20 65 76 65 72 79
20 74 69 6D 65 20 74 68 69 73 20 66 75 6E 63 74 69 6F 6E 20 69 73 20 6D
6F 64 69 66 69 65 64 3A 0A 20 20 20 20 6D 79 20 24 56 45 52 53 49 4F 4E
20 20 20 20 20 3D 20 32 3B 0A 20 20 20 20 6D 79 20 24 70 72 65 61 6D 62
6C 65 20 20 20 20 3D 20 22 24 44 65 73 74 5F 64 69 72 2F 5F 68 32 70 68
5F 70 72 65 2E 70 68 22 3B 0A 0A 20 20 20 20 23 20 43 61 6E 20 77 65 20
73 6B 69 70 20 62 75 69 6C 64 69 6E 67 20 74 68 65 20 70 72 65 61 6D 62
6C 65 20 66 69 6C 65 3F 0A 20 20 20 20 69 66 20 28 2D 72 20 24 70 72 65
61 6D 62 6C 65 29 20 7B 0A 20 20 20 20 20 20 20 20 23 20 45 78 74 72 61
63 74 20 76 65 72 73 69 6F 6E 20 6E 75 6D 62 65 72 20 66 72 6F 6D 20 66
69 72 73 74 20 6C 69 6E 65 20 6F 66 20 70 72 65 61 6D 62 6C 65 3A 0A 20
20 20 20 20 20 20 20 6F 70 65 6E 20 20 50 52 45 41 4D 42 4C 45 2C 20 24
70 72 65 61 6D 62 6C 65 20 6F 72 20 64 69 65 20 22 43 61 6E 6E 6F 74 20
6F 70 65 6E 20 24 70 72 65 61 6D 62 6C 65 3A 20 20 24 21 22 3B 0A 20 20
20 20 20 20 20 20 20 20 20 20 6D 79 20 24 6C 69 6E 65 20 3D 20 3C 50 52
45 41 4D 42 4C 45 3E 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 24 6C 69
6E 65 20 3D 7E 20 2F 28 5C 62 5C 64 2B 5C 62 29 2F 3B 0A 20 20 20 20 20
20 20 20 63 6C 6F 73 65 20 50 52 45 41 4D 42 4C 45 20 20 20 20 20 20 20
20 20 20 20 20 6F 72 20 64 69 65 20 22 43 61 6E 6E 6F 74 20 63 6C 6F 73
65 20 24 70 72 65 61 6D 62 6C 65 3A 20 20 24 21 22 3B 0A 0A 20 20 20 20
20 20 20 20 23 20 44 6F 6E 27 74 20 62 75 69 6C 64 20 70 72 65 61 6D 62
6C 65 20 69 66 20 61 20 63 6F 6D 70 61 74 69 62 6C 65 20 70 72 65 61 6D
62 6C 65 20 65 78 69 73 74 73 3A 0A 20 20 20 20 20 20 20 20 72 65 74 75
72 6E 20 69 66 20 24 31 20 3D 3D 20 24 56 45 52 53 49 4F 4E 3B 0A 20 20
20 20 7D 0A 0A 20 20 20 20 6D 79 20 28 25 64 65 66 69 6E 65 29 20 3D 20
5F 65 78 74 72 61 63 74 5F 63 63 5F 64 65 66 69 6E 65 73 28 29 3B 0A 0A
20 20 20 20 6F 70 65 6E 20 20 50 52 45 41 4D 42 4C 45 2C 20 22 3E 24 70
72 65 61 6D 62 6C 65 22 20 6F 72 20 64 69 65 20 22 43 61 6E 6E 6F 74 20
6F 70 65 6E 20 24 70 72 65 61 6D 62 6C 65 3A 20 20 24 21 22 3B 0A 20 20
20 20 20 20 20 20 70 72 69 6E 74 20 50 52 45 41 4D 42 4C 45 20 22 23 20
54 68 69 73 20 66 69 6C 65 20 77 61 73 20 63 72 65 61 74 65 64 20 62 79
20 68 32 70 68 20 76 65 72 73 69 6F 6E 20 24 56 45 52 53 49 4F 4E 5C 6E
22 3B 0A 0A 20 20 20 20 20 20 20 20 66 6F 72 65 61 63 68 20 28 73 6F 72
74 20 6B 65 79 73 20 25 64 65 66 69 6E 65 29 20 7B 0A 20 20 20 20 20 20
20 20 20 20 20 20 69 66 20 28 24 6F 70 74 5F 44 29 20 7B 0A 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 50 52 45 41 4D 42
4C 45 20 22 23 20 24 5F 3D 24 64 65 66 69 6E 65 7B 24 5F 7D 5C 6E 22 3B
0A 20 20 20 20 20 20 20 20 20 20 20 20 7D 0A 09 20 20 20 20 69 66 20 28
24 64 65 66 69 6E 65 7B 24 5F 7D 20 3D 7E 20 2F 5E 5C 28 28 2E 2A 29 5C
29 24 2F 29 20 7B 0A 09 20 20 20 20 20 20 23 20 70 61 72 65 6E 74 68 65
73 69 7A 65 64 20 76 61 6C 75 65 3A 20 20 64 3D 28 76 29 0A 09 09 24 64
65 66 69 6E 65 7B 24 5F 7D 20 3D 20 24 31 3B 0A 09 20 20 20 20 7D 3B 0A
09 20 20 20 20 69 66 20 28 24 64 65 66 69 6E 65 7B 24 5F 7D 20 3D 7E 20
2F 5E 28 5B 2B 2D 5D 3F 28 5C 64 2B 29 3F 5C 2E 5C 64 2B 28 5B 65 45 5D
5B 2B 2D 5D 3F 5C 64 2B 29 3F 29 5B 46 4C 5D 3F 24 2F 20 29 20 7B 0A 09
20 20 20 20 20 20 23 20 66 6C 6F 61 74 3A 0A 09 09 70 72 69 6E 74 20 50
52 45 41 4D 42 4C 45 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 22 75 6E 6C 65 73 73 20 28 64 65 66 69 6E 65 64 20 26 24 5F
29 20 7B 20 73 75 62 20 24 5F 28 29 20 7B 20 24 31 20 7D 20 7D 5C 6E 5C
6E 22 3B 0A 09 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 64 65 66 69 6E
65 7B 24 5F 7D 20 3D 7E 20 2F 5E 28 5B 2B 2D 5D 3F 5C 64 2B 29 55 3F 4C
7B 30 2C 32 7D 24 2F 69 29 20 7B 0A 09 20 20 20 20 20 20 23 20 69 6E 74
65 67 65 72 3A 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72
69 6E 74 20 50 52 45 41 4D 42 4C 45 0A 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 22 75 6E 6C 65 73 73 20 28 64 65 66 69 6E 65
64 20 26 24 5F 29 20 7B 20 73 75 62 20 24 5F 28 29 20 7B 20 24 31 20 7D
20 7D 5C 6E 5C 6E 22 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 7D 20 65
6C 73 69 66 20 28 24 64 65 66 69 6E 65 7B 24 5F 7D 20 3D 7E 20 2F 5E 5C
77 2B 24 2F 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70 72 69 6E 74 20 50 52 45 41 4D 42 4C 45 0A 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 22 75 6E 6C 65 73 73 20 28 64 65 66 69
6E 65 64 20 26 24 5F 29 20 7B 20 73 75 62 20 24 5F 28 29 20 7B 20 26 24
64 65 66 69 6E 65 7B 24 5F 7D 20 7D 20 7D 5C 6E 5C 6E 22 3B 0A 20 20 20
20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 50 52 45 41 4D 42 4C 45
0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 6E
6C 65 73 73 20 28 64 65 66 69 6E 65 64 20 26 24 5F 29 20 7B 20 73 75 62
20 24 5F 28 29 20 7B 20 5C 22 22 2C 0A 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 71 75 6F 74 65 6D 65 74 61 28 24 64 65 66 69
6E 65 7B 24 5F 7D 29 2C 20 22 5C 22 20 7D 20 7D 5C 6E 5C 6E 22 3B 0A 20
20 20 20 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 20 20 20 20 7D 0A 20
20 20 20 63 6C 6F 73 65 20 50 52 45 41 4D 42 4C 45 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 6F 72 20 64 69 65 20 22 43 61 6E 6E 6F 74 20 63
6C 6F 73 65 20 24 70 72 65 61 6D 62 6C 65 3A 20 20 24 21 22 3B 0A 7D 0A
0A 0A 23 20 25 43 6F 6E 66 69 67 20 63 6F 6E 74 61 69 6E 73 20 69 6E 66
6F 72 6D 61 74 69 6F 6E 20 6F 6E 20 6D 61 63 72 6F 73 20 74 68 61 74 20
61 72 65 20 70 72 65 2D 64 65 66 69 6E 65 64 20 62 79 20 74 68 65 0A 23
20 73 79 73 74 65 6D 27 73 20 63 6F 6D 70 69 6C 65 72 2E 20 20 57 65 20
6E 65 65 64 20 74 68 69 73 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 74 6F
20 6D 61 6B 65 20 74 68 65 20 2E 70 68 20 66 69 6C 65 73 0A 23 20 66 75
6E 63 74 69 6F 6E 20 77 69 74 68 20 70 65 72 6C 20 61 73 20 74 68 65 20
2E 68 20 66 69 6C 65 73 20 64 6F 20 77 69 74 68 20 63 63 2E 0A 73 75 62
20 5F 65 78 74 72 61 63 74 5F 63 63 5F 64 65 66 69 6E 65 73 0A 7B 0A 20
20 20 20 6D 79 20 25 64 65 66 69 6E 65 3B 0A 20 20 20 20 6D 79 20 24 61
6C 6C 73 79 6D 62 6F 6C 73 20 20 3D 20 6A 6F 69 6E 20 22 20 22 2C 0A 20
20 20 20 20 20 20 20 40 43 6F 6E 66 69 67 7B 27 63 63 73 79 6D 62 6F 6C
73 27 2C 20 27 63 70 70 73 79 6D 62 6F 6C 73 27 2C 20 27 63 70 70 63 63
73 79 6D 62 6F 6C 73 27 7D 3B 0A 0A 20 20 20 20 23 20 53 70 6C 69 74 20
63 6F 6D 70 69 6C 65 72 20 70 72 65 2D 64 65 66 69 6E 69 74 69 6F 6E 73
20 69 6E 74 6F 20 60 6B 65 79 3D 76 61 6C 75 65 27 20 70 61 69 72 73 3A
0A 20 20 20 20 77 68 69 6C 65 28 20 24 61 6C 6C 73 79 6D 62 6F 6C 73 3D
7E 2F 28 5B 5E 5C 73 5D 2B 29 3D 28 28 5C 5C 5C 73 7C 5B 5E 5C 73 5D 29
2B 29 2F 67 20 29 20 7B 0A 20 20 20 20 20 20 20 20 24 64 65 66 69 6E 65
7B 24 31 7D 20 3D 20 24 32 3B 09 0A 20 20 20 20 20 20 20 20 69 66 20 28
24 6F 70 74 5F 44 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 72
69 6E 74 20 53 54 44 45 52 52 20 22 24 5F 3A 20 20 24 31 20 2D 3E 20 24
32 5C 6E 22 3B 0A 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 7D 0A 0A 20
20 20 20 72 65 74 75 72 6E 20 25 64 65 66 69 6E 65 3B 0A 7D 0A 0A 0A 31
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 23 0A 5F 5F 45 4E 44 5F 5F 0A 0A 3D 68 65 61 64
31 20 4E 41 4D 45 0A 0A 68 32 70 68 20 2D 20 63 6F 6E 76 65 72 74 20 2E
68 20 43 20 68 65 61 64 65 72 20 66 69 6C 65 73 20 74 6F 20 2E 70 68 20
50 65 72 6C 20 68 65 61 64 65 72 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 42 3C 68 32 70 68 20 5B 2D 64 20 64
65 73 74 69 6E 61 74 69 6F 6E 20 64 69 72 65 63 74 6F 72 79 5D 20 5B 2D
72 20 7C 20 2D 61 5D 20 5B 2D 6C 5D 20 5B 68 65 61 64 65 72 66 69 6C 65
73 5D 3E 0A 0A 3D 68 65 61 64 31 20 44 45 53 43 52 49 50 54 49 4F 4E 0A
0A 49 3C 68 32 70 68 3E 0A 63 6F 6E 76 65 72 74 73 20 61 6E 79 20 43 20
68 65 61 64 65 72 20 66 69 6C 65 73 20 73 70 65 63 69 66 69 65 64 20 74
6F 20 74 68 65 20 63 6F 72 72 65 73 70 6F 6E 64 69 6E 67 20 50 65 72 6C
20 68 65 61 64 65 72 20 66 69 6C 65 0A 66 6F 72 6D 61 74 2E 0A 49 74 20
69 73 20 6D 6F 73 74 20 65 61 73 69 6C 79 20 72 75 6E 20 77 68 69 6C 65
20 69 6E 20 2F 75 73 72 2F 69 6E 63 6C 75 64 65 3A 0A 0A 09 63 64 20 2F
75 73 72 2F 69 6E 63 6C 75 64 65 3B 20 68 32 70 68 20 2A 20 73 79 73 2F
2A 0A 0A 6F 72 0A 0A 09 63 64 20 2F 75 73 72 2F 69 6E 63 6C 75 64 65 3B
20 68 32 70 68 20 2A 20 73 79 73 2F 2A 20 61 72 70 61 2F 2A 20 6E 65 74
69 6E 65 74 2F 2A 0A 0A 6F 72 0A 0A 09 63 64 20 2F 75 73 72 2F 69 6E 63
6C 75 64 65 3B 20 68 32 70 68 20 2D 72 20 2D 6C 20 2E 0A 0A 54 68 65 20
6F 75 74 70 75 74 20 66 69 6C 65 73 20 61 72 65 20 70 6C 61 63 65 64 20
69 6E 20 74 68 65 20 68 69 65 72 61 72 63 68 79 20 72 6F 6F 74 65 64 20
61 74 20 50 65 72 6C 27 73 0A 61 72 63 68 69 74 65 63 74 75 72 65 20 64
65 70 65 6E 64 65 6E 74 20 6C 69 62 72 61 72 79 20 64 69 72 65 63 74 6F
72 79 2E 20 20 59 6F 75 20 63 61 6E 20 73 70 65 63 69 66 79 20 61 20 64
69 66 66 65 72 65 6E 74 0A 68 69 65 72 61 72 63 68 79 20 77 69 74 68 20
61 20 42 3C 2D 64 3E 20 73 77 69 74 63 68 2E 0A 0A 49 66 20 72 75 6E 20
77 69 74 68 20 6E 6F 20 61 72 67 75 6D 65 6E 74 73 2C 20 66 69 6C 74 65
72 73 20 73 74 61 6E 64 61 72 64 20 69 6E 70 75 74 20 74 6F 20 73 74 61
6E 64 61 72 64 20 6F 75 74 70 75 74 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 34 0A 0A 3D 69 74 65 6D 20 2D 64
20 64 65 73 74 69 6E 61 74 69 6F 6E 5F 64 69 72 0A 0A 50 75 74 20 74 68
65 20 72 65 73 75 6C 74 69 6E 67 20 42 3C 2E 70 68 3E 20 66 69 6C 65 73
20 62 65 6E 65 61 74 68 20 42 3C 64 65 73 74 69 6E 61 74 69 6F 6E 5F 64
69 72 3E 2C 20 69 6E 73 74 65 61 64 20 6F 66 0A 62 65 6E 65 61 74 68 20
74 68 65 20 64 65 66 61 75 6C 74 20 50 65 72 6C 20 6C 69 62 72 61 72 79
20 6C 6F 63 61 74 69 6F 6E 20 28 43 3C 24 43 6F 6E 66 69 67 7B 27 69 6E
73 74 61 6C 6C 73 69 74 73 65 61 72 63 68 27 7D 3E 29 2E 0A 0A 3D 69 74
65 6D 20 2D 72 0A 0A 52 75 6E 20 72 65 63 75 72 73 69 76 65 6C 79 3B 20
69 66 20 61 6E 79 20 6F 66 20 42 3C 68 65 61 64 65 72 66 69 6C 65 73 3E
20 61 72 65 20 64 69 72 65 63 74 6F 72 69 65 73 2C 20 74 68 65 6E 20 72
75 6E 20 49 3C 68 32 70 68 3E 0A 6F 6E 20 61 6C 6C 20 66 69 6C 65 73 20
69 6E 20 74 68 6F 73 65 20 64 69 72 65 63 74 6F 72 69 65 73 20 28 61 6E
64 20 74 68 65 69 72 20 73 75 62 64 69 72 65 63 74 6F 72 69 65 73 2C 20
65 74 63 2E 29 2E 20 20 42 3C 2D 72 3E 0A 61 6E 64 20 42 3C 2D 61 3E 20
61 72 65 20 6D 75 74 75 61 6C 6C 79 20 65 78 63 6C 75 73 69 76 65 2E 0A
0A 3D 69 74 65 6D 20 2D 61 0A 0A 52 75 6E 20 61 75 74 6F 6D 61 67 69 63
61 6C 6C 79 3B 20 63 6F 6E 76 65 72 74 20 42 3C 68 65 61 64 65 72 66 69
6C 65 73 3E 2C 20 61 73 20 77 65 6C 6C 20 61 73 20 61 6E 79 20 42 3C 2E
68 3E 20 66 69 6C 65 73 0A 77 68 69 63 68 20 74 68 65 79 20 69 6E 63 6C
75 64 65 2E 20 20 54 68 69 73 20 6F 70 74 69 6F 6E 20 77 69 6C 6C 20 73
65 61 72 63 68 20 66 6F 72 20 42 3C 2E 68 3E 20 66 69 6C 65 73 20 69 6E
20 61 6C 6C 0A 64 69 72 65 63 74 6F 72 69 65 73 20 77 68 69 63 68 20 79
6F 75 72 20 43 20 63 6F 6D 70 69 6C 65 72 20 6F 72 64 69 6E 61 72 69 6C
79 20 75 73 65 73 2E 20 20 42 3C 2D 61 3E 20 61 6E 64 20 42 3C 2D 72 3E
20 61 72 65 0A 6D 75 74 75 61 6C 6C 79 20 65 78 63 6C 75 73 69 76 65 2E
0A 0A 3D 69 74 65 6D 20 2D 6C 0A 0A 53 79 6D 62 6F 6C 69 63 20 6C 69 6E
6B 73 20 77 69 6C 6C 20 62 65 20 72 65 70 6C 69 63 61 74 65 64 20 69 6E
20 74 68 65 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 64 69 72 65 63 74 6F
72 79 2E 20 20 49 66 20 42 3C 2D 6C 3E 0A 69 73 20 6E 6F 74 20 73 70 65
63 69 66 69 65 64 2C 20 74 68 65 6E 20 6C 69 6E 6B 73 20 61 72 65 20 73
6B 69 70 70 65 64 20 6F 76 65 72 2E 0A 0A 3D 69 74 65 6D 20 2D 68 0A 0A
50 75 74 20 60 60 68 69 6E 74 73 27 27 20 69 6E 20 74 68 65 20 2E 70 68
20 66 69 6C 65 73 20 77 68 69 63 68 20 77 69 6C 6C 20 68 65 6C 70 20 69
6E 20 6C 6F 63 61 74 69 6E 67 20 70 72 6F 62 6C 65 6D 73 20 77 69 74 68
0A 49 3C 68 32 70 68 3E 2E 20 20 49 6E 20 74 68 6F 73 65 20 63 61 73 65
73 20 77 68 65 6E 20 79 6F 75 20 42 3C 72 65 71 75 69 72 65 3E 20 61 20
42 3C 2E 70 68 3E 20 66 69 6C 65 20 63 6F 6E 74 61 69 6E 69 6E 67 20 73
79 6E 74 61 78 0A 65 72 72 6F 72 73 2C 20 69 6E 73 74 65 61 64 20 6F 66
20 74 68 65 20 63 72 79 70 74 69 63 0A 0A 09 5B 20 73 6F 6D 65 20 65 72
72 6F 72 20 63 6F 6E 64 69 74 69 6F 6E 20 5D 20 61 74 20 28 65 76 61 6C
20 6D 6D 6D 29 20 6C 69 6E 65 20 6E 6E 6E 0A 0A 79 6F 75 20 77 69 6C 6C
20 73 65 65 20 74 68 65 20 73 6C 69 67 68 74 6C 79 20 6D 6F 72 65 20 68
65 6C 70 66 75 6C 0A 0A 09 5B 20 73 6F 6D 65 20 65 72 72 6F 72 20 63 6F
6E 64 69 74 69 6F 6E 20 5D 20 61 74 20 66 69 6C 65 6E 61 6D 65 2E 70 68
20 6C 69 6E 65 20 6E 6E 6E 0A 0A 48 6F 77 65 76 65 72 2C 20 74 68 65 20
42 3C 2E 70 68 3E 20 66 69 6C 65 73 20 61 6C 6D 6F 73 74 20 64 6F 75 62
6C 65 20 69 6E 20 73 69 7A 65 20 77 68 65 6E 20 62 75 69 6C 74 20 75 73
69 6E 67 20 42 3C 2D 68 3E 2E 0A 0A 3D 69 74 65 6D 20 2D 44 0A 0A 49 6E
63 6C 75 64 65 20 74 68 65 20 63 6F 64 65 20 66 72 6F 6D 20 74 68 65 20
42 3C 2E 68 3E 20 66 69 6C 65 20 61 73 20 61 20 63 6F 6D 6D 65 6E 74 20
69 6E 20 74 68 65 20 42 3C 2E 70 68 3E 20 66 69 6C 65 2E 0A 54 68 69 73
20 69 73 20 70 72 69 6D 61 72 69 6C 79 20 75 73 65 64 20 66 6F 72 20 64
65 62 75 67 67 69 6E 67 20 49 3C 68 32 70 68 3E 2E 0A 0A 3D 69 74 65 6D
20 2D 51 0A 0A 60 60 51 75 69 65 74 27 27 20 6D 6F 64 65 3B 20 64 6F 6E
27 74 20 70 72 69 6E 74 20 6F 75 74 20 74 68 65 20 6E 61 6D 65 73 20 6F
66 20 74 68 65 20 66 69 6C 65 73 20 62 65 69 6E 67 20 63 6F 6E 76 65 72
74 65 64 2E 0A 0A 3D 62 61 63 6B 0A 0A 3D 68 65 61 64 31 20 45 4E 56 49
52 4F 4E 4D 45 4E 54 0A 0A 4E 6F 20 65 6E 76 69 72 6F 6E 6D 65 6E 74 20
76 61 72 69 61 62 6C 65 73 20 61 72 65 20 75 73 65 64 2E 0A 0A 3D 68 65
61 64 31 20 46 49 4C 45 53 0A 0A 20 2F 75 73 72 2F 69 6E 63 6C 75 64 65
2F 2A 2E 68 0A 20 2F 75 73 72 2F 69 6E 63 6C 75 64 65 2F 73 79 73 2F 2A
2E 68 0A 0A 65 74 63 2E 0A 0A 3D 68 65 61 64 31 20 41 55 54 48 4F 52 0A
0A 4C 61 72 72 79 20 57 61 6C 6C 0A 0A 3D 68 65 61 64 31 20 53 45 45 20
41 4C 53 4F 0A 0A 70 65 72 6C 28 31 29 0A 0A 3D 68 65 61 64 31 20 44 49
41 47 4E 4F 53 54 49 43 53 0A 0A 54 68 65 20 75 73 75 61 6C 20 77 61 72
6E 69 6E 67 73 20 69 66 20 69 74 20 63 61 6E 27 74 20 72 65 61 64 20 6F
72 20 77 72 69 74 65 20 74 68 65 20 66 69 6C 65 73 20 69 6E 76 6F 6C 76
65 64 2E 0A 0A 3D 68 65 61 64 31 20 42 55 47 53 0A 0A 44 6F 65 73 6E 27
74 20 63 6F 6E 73 74 72 75 63 74 20 74 68 65 20 25 73 69 7A 65 6F 66 20
61 72 72 61 79 20 66 6F 72 20 79 6F 75 2E 0A 0A 49 74 20 64 6F 65 73 6E
27 74 20 68 61 6E 64 6C 65 20 61 6C 6C 20 43 20 63 6F 6E 73 74 72 75 63
74 73 2C 20 62 75 74 20 69 74 20 64 6F 65 73 20 61 74 74 65 6D 70 74 20
74 6F 20 69 73 6F 6C 61 74 65 0A 64 65 66 69 6E 69 74 69 6F 6E 73 20 69
6E 73 69 64 65 20 65 76 61 6C 73 20 73 6F 20 74 68 61 74 20 79 6F 75 20
63 61 6E 20 67 65 74 20 61 74 20 74 68 65 20 64 65 66 69 6E 69 74 69 6F
6E 73 0A 74 68 61 74 20 69 74 20 63 61 6E 20 74 72 61 6E 73 6C 61 74 65
2E 0A 0A 49 74 27 73 20 6F 6E 6C 79 20 69 6E 74 65 6E 64 65 64 20 61 73
20 61 20 72 6F 75 67 68 20 74 6F 6F 6C 2E 0A 59 6F 75 20 6D 61 79 20 6E
65 65 64 20 74 6F 20 64 69 63 6B 65 72 20 77 69 74 68 20 74 68 65 20 66
69 6C 65 73 20 70 72 6F 64 75 63 65 64 2E 0A 0A 59 6F 75 20 68 61 76 65
20 74 6F 20 72 75 6E 20 74 68 69 73 20 70 72 6F 67 72 61 6D 20 62 79 20
68 61 6E 64 3B 20 69 74 27 73 20 6E 6F 74 20 72 75 6E 20 61 73 20 70 61
72 74 20 6F 66 20 74 68 65 20 50 65 72 6C 0A 69 6E 73 74 61 6C 6C 61 74
69 6F 6E 2E 0A 0A 44 6F 65 73 6E 27 74 20 68 61 6E 64 6C 65 20 63 6F 6D
70 6C 69 63 61 74 65 64 20 65 78 70 72 65 73 73 69 6F 6E 73 20 62 75 69
6C 74 20 70 69 65 63 65 6D 65 61 6C 2C 20 61 20 6C 61 3A 0A 0A 20 20 20
20 65 6E 75 6D 20 7B 0A 20 20 20 20 20 20 20 20 46 49 52 53 54 5F 56 41
4C 55 45 2C 0A 20 20 20 20 20 20 20 20 53 45 43 4F 4E 44 5F 56 41 4C 55
45 2C 0A 20 20 20 20 23 69 66 64 65 66 20 41 42 43 0A 20 20 20 20 20 20
20 20 54 48 49 52 44 5F 56 41 4C 55 45 0A 20 20 20 20 23 65 6E 64 69 66
0A 20 20 20 20 7D 3B 0A 0A 44 6F 65 73 6E 27 74 20 6E 65 63 65 73 73 61
72 69 6C 79 20 6C 6F 63 61 74 65 20 61 6C 6C 20 6F 66 20 79 6F 75 72 20
43 20 63 6F 6D 70 69 6C 65 72 27 73 20 69 6E 74 65 72 6E 61 6C 6C 79 2D
64 65 66 69 6E 65 64 0A 73 79 6D 62 6F 6C 73 2E 0A 0A 3D 63 75 74 0A 0A
#!/usr/bin/perl     eval
 'exec /usr/bin/perl -S 
$0 ${1+"$@"}'  if $runni
ng_under_some_shell;  us
e strict;  use Config; u
se File::Path qw(mkpath)
; use Getopt::Std;  # Ma
ke sure read permissions
 for all are set: if (de
fined umask && (umask() 
& 0444)) {     umask (um
ask() & ~0444); }  getop
ts('Dd:rlhaQe'); use var
s qw($opt_D $opt_d $opt_
r $opt_l $opt_h $opt_a $
opt_Q $opt_e); die "-r a
nd -a options are mutual
ly exclusive\n" if ($opt
_r and $opt_a); my @inc_
dirs = inc_dirs() if $op
t_a;  my $Exit = 0;  my 
$Dest_dir = $opt_d || $C
onfig{installsitearch}; 
die "Destination directo
ry $Dest_dir doesn't exi
st or isn't a directory\
n"     unless -d $Dest_d
ir;  my @isatype = qw( 
char uchar u_char  short
ushort u_short  int uin
t u_int  long ulong u_lo
ng  FILE key_t caddr_t 
float double size_t );  
my %isatype; @isatype{@i
satype} = (1) x @isatype
; my $inif = 0; my %Is_c
onverted; my %bad_file =
 ();  @ARGV = ('-') unle
ss @ARGV;  build_preambl
e_if_necessary();  sub r
eindent($) {     my($tex
t) = shift;     $text =~
 s/\n/\n    /g;     $tex
t =~ s/        /\t/g;   
  $text; }  my ($t, $tab
, %curargs, $new, $eval_
index, $dir, $name, $arg
s, $outfile); my ($incl,
 $incl_type, $next); whi
le (defined (my $file = 
next_file())) {     if (
-l $file and -d $file) {
         link_if_possibl
e($file) if ($opt_l);   
      next;     }      #
 Recover from header fil
es with unbalanced cpp d
irectives     $t = '';  
   $tab = 0;      # $eva
l_index goes into ``#lin
e'' directives, to help 
locate syntax errors:   
  $eval_index = 1;      
if ($file eq '-') {  ope
n(IN, "-");  open(OUT, "
>-");     } else {  ($ou
tfile = $file) =~ s/\.h$
/.ph/ || next;  print "$
file -> $outfile\n" unle
ss $opt_Q;  if ($file =~
 m|^(.*)/|) {      $dir 
= $1;      mkpath "$Dest
_dir/$dir";  }   if ($op
t_a) { # automagic mode:
  locate header file in 
@inc_dirs      foreach (
@inc_dirs) {  chdir $_;
  last if -f $file;    
  }  }   open(IN,"$file"
) || (($Exit = 1),(warn 
"Can't open $file: $!\n"
),next);  open(OUT,">$De
st_dir/$outfile") || die
 "Can't create $outfile:
 $!\n";     }      print
 OUT         "require '_
h2ph_pre.ph';\n\n",     
    "no warnings 'redefi
ne';\n\n";      while (d
efined (local $_ = next_
line($file))) {  if (s/^
\s*\#\s*//) {      if (s
/^define\s+(\w+)//) { 
$name = $1;  $new = '';
  s/\s+$//;  s/\(\w+\s
*\(\*\)\s*\(\w*\)\)\s*(-
?\d+)/$1/; # (int (*)(fo
o_t))0  if (s/^\(([\w,\
s]*)\)//) {      $args 
= $1;      my $proto = 
'() ';      if ($args n
e '') {  $proto = ''; 
foreach my $arg (spli
t(/,\s*/,$args)) {    
  $arg =~ s/^\s*([^\s].*
[^\s])\s*$/$1/;      $
curargs{$arg} = 1;  } 
$args =~ s/\b(\w)/\$$
1/g;  $args = "my($arg
s) = \@_;\n$t    ";    
  }      s/^\s+//;    
  expr();      $new =~ 
s/(["\\])/\\$1/g;       
#"]);    EMIT:      $n
ew = reindent($new);   
   $args = reindent($arg
s);      if ($t ne '') 
{  $new =~ s/(['\\])/\
\$1/g;   #']);  if ($o
pt_h) {      print OUT
 $t,                    
         "eval \"\\n#lin
e $eval_index $outfile\\
n\" . 'sub $name $proto\
{\n$t    ${args}eval q($
new);\n$t}' unless defin
ed(\&$name);\n";        
                     $ev
al_index++;  } else { 
    print OUT $t,    
                        
 "eval 'sub $name $proto
\{\n$t    ${args}eval q(
$new);\n$t}' unless defi
ned(\&$name);\n";  } 
    } else {           
            print OUT "u
nless(defined(\&$name)) 
{\n    sub $name $proto\
{\n\t${args}eval q($new)
;\n    }\n}\n";      } 
    %curargs = ();  }
 else {      s/^\s+//; 
    expr();      $new
 = 1 if $new eq '';    
  $new = reindent($new);
      $args = reindent(
$args);      if ($t ne 
'') {  $new =~ s/(['\\
])/\\$1/g;        #']); 
  if ($opt_h) {     
 print OUT $t,"eval \"\\
n#line $eval_index $outf
ile\\n\" . 'sub $name ()
 {",$new,";}' unless def
ined(\&$name);\n";    
  $eval_index++;  } el
se {      print OUT $t
,"eval 'sub $name () {",
$new,";}' unless defined
(\&$name);\n";  }    
  } else {       # Shun
t around such directives
 as `#define FOO FOO': 
     next if " \&$name"
 eq $new;               
         print OUT $t,"u
nless(defined(\&$name)) 
{\n    sub $name () {\t"
,$new,";}\n}\n";      }
  }      } elsif (/^(in
clude|import|include_nex
t)\s*[<\"](.*)[>\"]/) { 
                $incl_ty
pe = $1;                
 $incl = $2;            
     if (($incl_type eq 
'include_next') ||      
               ($opt_e &
& exists($bad_file{$incl
}))) {                  
   $incl =~ s/\.h$/.ph/;
  print OUT ($t,     
"eval {\n");            
     $tab += 4;         
        $t = "\t" x ($ta
b / 8) . ' ' x ($tab % 8
);                     p
rint OUT ($t, "my(\@REM)
;\n");                  
   if ($incl_type eq 'in
clude_next') {  print O
UT ($t,     "my(\%INCD
) = map { \$INC{\$_} => 
1 } ",             "(g
rep { \$_ eq \"$incl\" }
 ",                     
               "keys(\%I
NC));\n");  print OUT (
$t,             "\@REM
 = map { \"\$_/$incl\" }
 ",     "(grep { not e
xists(\$INCD{\"\$_/$incl
\"})",             " a
nd -f \"\$_/$incl\" } \@
INC);\n");              
       } else {         
                print OU
T ($t,                  
                  "\@REM
 = map { \"\$_/$incl\" }
 ",                     
               "(grep {-
r \"\$_/$incl\" } \@INC)
;\n");                  
   }  print OUT ($t, 
   "require \"\$REM[0]\
" if \@REM;\n");        
         $tab -= 4;     
            $t = "\t" x 
($tab / 8) . ' ' x ($tab
 % 8);                 p
rint OUT ($t,     "};\
n");  print OUT ($t, 
   "warn(\$\@) if \$\@;
\n");                 } 
else {                  
   $incl =~ s/\.h$/.ph/;
      print OUT $t,"req
uire '$incl';\n";       
          }      } elsif
 (/^ifdef\s+(\w+)/) { 
print OUT $t,"if(defined
(&$1)) {\n";  $tab += 4
;  $t = "\t" x ($tab / 
8) . ' ' x ($tab % 8); 
    } elsif (/^ifndef\s+
(\w+)/) {  print OUT $t
,"unless(defined(&$1)) {
\n";  $tab += 4;  $t =
 "\t" x ($tab / 8) . ' '
 x ($tab % 8);      } el
sif (s/^if\s+//) {  $ne
w = '';  $inif = 1;  e
xpr();  $inif = 0;  pr
int OUT $t,"if($new) {\n
";  $tab += 4;  $t = "
\t" x ($tab / 8) . ' ' x
 ($tab % 8);      } elsi
f (s/^elif\s+//) {  $ne
w = '';  $inif = 1;  e
xpr();  $inif = 0;  $t
ab -= 4;  $t = "\t" x (
$tab / 8) . ' ' x ($tab 
% 8);  print OUT $t,"}\
n elsif($new) {\n";  $t
ab += 4;  $t = "\t" x (
$tab / 8) . ' ' x ($tab 
% 8);      } elsif (/^el
se/) {  $tab -= 4;  $t
 = "\t" x ($tab / 8) . '
 ' x ($tab % 8);  print
 OUT $t,"} else {\n"; 
$tab += 4;  $t = "\t" x
 ($tab / 8) . ' ' x ($ta
b % 8);      } elsif (/^
endif/) {  $tab -= 4; 
$t = "\t" x ($tab / 8) 
. ' ' x ($tab % 8);  pr
int OUT $t,"}\n";      }
 elsif(/^undef\s+(\w+)/)
 {  print OUT $t, "unde
f(&$1) if defined(&$1);\
n";      } elsif(/^error
\s+(".*")/) {  print OU
T $t, "die($1);\n";     
 } elsif(/^error\s+(.*)/
) {  print OUT $t, "die
(\"", quotemeta($1), "\"
);\n";      } elsif(/^wa
rning\s+(.*)/) {  print
 OUT $t, "warn(\"", quot
emeta($1), "\");\n";    
  } elsif(/^ident\s+(.*)
/) {  print OUT $t, "# 
$1\n";      }  } elsif (
/^\s*(typedef\s*)?enum\s
*(\s+[a-zA-Z_]\w*\s*)?/)
 { # { for vi      until
(/\{[^}]*\}.*;/ || /;/) 
{  last unless defined 
($next = next_line($file
));  chomp $next;  # d
rop "#define FOO FOO" in
 enums  $next =~ s/^\s*
#\s*define\s+(\w+)\s+\1\
s*$//;  # #defines in e
nums (aliases)  $next =
~ s/^\s*#\s*define\s+(\w
+)\s+(\w+)\s*$/$1 = $2,/
;  $_ .= $next;  print
 OUT "# $next\n" if $opt
_D;      }      s/#\s*if
.*?#\s*endif//g; # drop 
#ifdefs      s@/\*.*?\*/
@@g;      s/\s+/ /g;    
  next unless /^\s?(type
def\s?)?enum\s?([a-zA-Z_
]\w*)?\s?\{(.*)\}\s?([a-
zA-Z_]\w*)?\s?;/;      (
my $enum_subs = $3) =~ s
/\s//g;      my @enum_su
bs = split(/,/, $enum_su
bs);      my $enum_val =
 -1;      foreach my $en
um (@enum_subs) {  my (
$enum_name, $enum_value)
 = $enum =~ /^([a-zA-Z_]
\w*)(=.+)?$/;  $enum_na
me or next;  $enum_valu
e =~ s/^=//;  $enum_val
 = (length($enum_value) 
? $enum_value : $enum_va
l + 1);  if ($opt_h) { 
    print OUT ($t, 
       "eval(\"\\n#line 
$eval_index $outfile\\n"
,         "sub $enum_n
ame () \{ $enum_val; \}\
") ",         "unless 
defined(\&$enum_name);\n
");      ++ $eval_index
;  } else {      print
 OUT ($t,         "eva
l(\"sub $enum_name () \{
 $enum_val; \}\") ", 
       "unless defined(\
&$enum_name);\n");  } 
    }  } elsif (/^(?:__e
xtension__\s+)?(?:extern
|static)\s+(?:__)?inline
(?:__)?\s+/      and !/;
\s*$/ and !/{\s*}\s*$/) 
{ # { for vi      # Thi
s is a hack to parse the
 inline functions in the
 glibc headers.      # W
arning: massive kludge a
head. We suppose inline 
functions      # are mai
nly constructed like mac
ros.      while (1) { 
last unless defined ($ne
xt = next_line($file)); 
chomp $next;  undef $
_, last if $next =~ /__T
HROW\s*;/         or $
next =~ /^(__extension__
|extern|static)\b/;  $_
 .= " $next";  print OU
T "# $next\n" if $opt_D;
  last if $next =~ /^}|
^{.*}\s*$/;      }      
next if not defined; # b
ecause it's only a proto
type      s/\b(__extensi
on__|extern|static|(?:__
)?inline(?:__)?)\b//g; 
    # violently drop #if
defs      s/#\s*if.*?#\s
*endif//g  and print OU
T "# some #ifdef were dr
opped here -- fill in th
e blanks\n";      if (s/
^(?:\w|\s|\*)*\s(\w+)\s*
//) {  $name = $1;     
 } else {  warn "name n
ot found"; next; # shoul
dn't occur...      }    
  my @args;      if (s/^
\(([^()]*)\)\s*(\w+\s*)*
//) {  for my $arg (spl
it /,/, $1) {      if (
$arg =~ /(\w+)\s*$/) { 
$curargs{$1} = 1;  p
ush @args, $1;      } 
}      }      $args = (
  @args  ? "my(" . (jo
in ',', map "\$$_", @arg
s) . ") = \@_;\n$t    " 
: ""      );      my $
proto = @args ? '' : '()
 ';      $new = '';     
 s/\breturn\b//g; # "ret
urn" doesn't occur in ma
cros usually...      exp
r();      # try to find 
and perlify local C vari
ables      our @local_va
riables = (); # needs to
 be a our(): (?{...}) bu
g workaround      {  us
e re "eval";  my $typel
ist = join '|', keys %is
atype;  $new =~ s['   
 (?:(?:__)?const(?:__)?\
s+)?    (?:(?:un)?signe
d\s+)?    (?:long\s+)? 
  (?:$typelist)\s+   
 (\w+)    (?{ push @loc
al_variables, $1 })    
']   [my \$$1]gx;  $ne
w =~ s['    (?:(?:__)?c
onst(?:__)?\s+)?    (?:
(?:un)?signed\s+)?    (
?:long\s+)?    (?:$type
list)\s+    ' \s+ &(\w+
) \s* ;    (?{ push @lo
cal_variables, $1 })   
 ]   [my \$$1;]gx;     
  }      $new =~ s/&$_\b
/\$$_/g for @local_varia
bles;      $new =~ s/(["
\\])/\\$1/g;       #"]);
      # now that's almos
t like a macro (we hope)
      goto EMIT;  }     
}     $Is_converted{$fil
e} = 1;     if ($opt_e &
& exists($bad_file{$file
})) {         unlink($De
st_dir . '/' . $outfile)
;         $next = '';   
  } else {         print
 OUT "1;\n";  queue_incl
udes_from($file) if $opt
_a;     } }  if ($opt_e 
&& (scalar(keys %bad_fil
e) > 0)) {     warn "Was
 unable to convert the f
ollowing files:\n";     
warn "\t" . join("\n\t",
sort(keys %bad_file)) . 
"\n"; }  exit $Exit;  su
b expr {     $new = '"(a
ssembly code)"' and retu
rn if /\b__asm__\b/; # f
reak out.     my $joined
_args;     if(keys(%cura
rgs)) {  $joined_args = 
join('|', keys(%curargs)
);     }     while ($_ n
e '') {  s/^\&\&// && do
 { $new .= " &&"; next;}
; # handle && operator 
s/^\&([\(a-z\)]+)/$1/i;
# hack for things that t
ake the address of  s/^(
\s+)// && do {$new .= '
 '; next;};  s/^0X([0-9A
-F]+)[UL]*//i      && do
 {my $hex = $1;     $he
x =~ s/^0+//;     if (l
ength $hex > 8 && !$Conf
ig{use64bitint}) {     
    # Croak if nv_preser
ves_uv_bits < 64 ?     
    $new .=         hex(
substr($hex, -8)) +   
      2**32 * hex(substr
($hex,  0, -8));       
  # The above will produ
ce "errorneus" code    
     # if the hex consta
nt was e.g. inside UINT6
4_C         # macro, bu
t then again, h2ph is an
 approximation.     } e
lse {         $new .= l
c("0x$hex");     }    
 next;};  s/^(-?\d+\.\d+
E[-+]?\d+)[FL]?//i && do
 {$new .= $1; next;};  s
/^(\d+)\s*[LU]*//i && do
 {$new .= $1; next;};  s
/^("(\\"|[^"])*")// && d
o {$new .= $1; next;}; 
s/^'((\\"|[^"])*)'// && 
do {      if ($curargs{$
1}) {  $new .= "ord('\$
$1')";      } else {  $
new .= "ord('$1')";     
 }      next;  };       
  # replace "sizeof(foo)
" with "{foo}"         #
 also, remove * (C deref
erence operator) to avoi
d perl syntax         # 
problems.  Where the %si
zeof array comes from is
 anyone's         # gues
s (c2ph?), but this at l
east avoids fatal syntax
 errors.         # Behav
ior is undefined if size
of() delimiters are unba
lanced.         # This c
ode was modified to able
 to handle constructs li
ke this:         #   siz
eof(*(p)), which appear 
in the HP-UX 10.01 heade
r files.         s/^size
of\s*\(// && do {       
      $new .= '$sizeof';
             my $lvl = 1
;  # already saw one ope
n paren             # ta
ck { on the front, and s
kip it in the loop      
       $_ = "{" . "$_"; 
            my $index = 
1;             # find ba
lanced closing paren    
         while ($index <
= length($_) && $lvl > 0
) {                 $lvl
++ if substr($_, $index,
 1) eq "(";             
    $lvl-- if substr($_,
 $index, 1) eq ")";     
            $index++;   
          }             
# tack } on the end, rep
lacing )             sub
str($_, $index - 1, 1) =
 "}";             # remo
ve pesky * operators wit
hin the sizeof argument 
            substr($_, 0
, $index - 1) =~ s/\*//g
;             next;     
    };  # Eliminate type
defs  /\(([\w\s]+)[\*\s]
*\)\s*[\w\(]/ && do {   
   my $doit = 1;      fo
reach (split /\s+/, $1) 
{  # Make sure all the w
ords are types,         
 unless($isatype{$_} or 
$_ eq 'struct' or $_ eq 
'union'){      $doit = 
0;      last;  }      
}      if( $doit ){  s/
\([\w\s]+[\*\s]*\)// && 
next;      # then elimin
ate them.      }  };  # 
struct/union member, inc
luding arrays:  s/^([_A-
Z]\w*(\[[^\]]+\])?((\.|-
>)[_A-Z]\w*(\[[^\]]+\])?
)+)//i && do {      my $
id = $1;      $id =~ s/(
\.|(->))([^\.\-]*)/->\{$
3\}/g;      $id =~ s/\b(
[^\$])($joined_args)/$1\
$$2/g if length($joined_
args);      while($id =~
 /\[\s*([^\$\&\d\]]+)\]/
) {  my($index) = $1; 
$index =~ s/\s//g;  if
(exists($curargs{$index}
)) {      $index = "\$$
index";  } else {     
 $index = "&$index";  }
  $id =~ s/\[\s*([^\$\&
\d\]]+)\]/[$index]/;    
  }      $new .= " (\$$i
d)";  };  s/^([_a-zA-Z]\
w*)// && do {      my $i
d = $1;      if ($id eq 
'struct' || $id eq 'unio
n') {  s/^\s+(\w+)//; 
$id .= ' ' . $1;  $isa
type{$id} = 1;      } el
sif ($id =~ /^((un)?sign
ed)|(long)|(short)$/) { 
while (s/^\s+(\w+)//) 
{ $id .= ' ' . $1; }  $
isatype{$id} = 1;      }
      if ($curargs{$id})
 {  $new .= "\$$id"; 
$new .= '->' if /^[\[\{]
/;      } elsif ($id eq 
'defined') {  $new .= '
defined';      } elsif (
/^\s*\(/) {  s/^\s*\((\
w),/("$1",/ if $id =~ /^
_IO[WR]*$/i; # cheat  $
new .= " &$id";      } e
lsif ($isatype{$id}) { 
if ($new =~ /{\s*$/) { 
    $new .= "'$id'"; 
} elsif ($new =~ /\(\s*
$/ && /^[\s*]*\)/) {   
   $new =~ s/\(\s*$//; 
    s/^[\s*]*\)//;  } 
else {      $new .= q('
).$id.q(');  }      } e
lse {  if ($inif && $ne
w !~ /defined\s*\($/) { 
    $new .= '(defined(
&' . $id . ') ? &' . $id
 . ' : undef)';  } elsi
f (/^\[/) {      $new .
= " \$$id";  } else { 
    $new .= ' &' . $id;
  }      }      next; 
};  s/^(.)// && do { if 
($1 ne '#') { $new .= $1
; } next;};     } }   su
b next_line {     my $fi
le = shift;     my ($in,
 $out);     my $pre_sub_
tri_graphs = 1;      REA
D: while (not eof IN) { 
        $in  .= <IN>;   
      chomp $in;        
 next unless length $in;
          while (length 
$in) {             if ($
pre_sub_tri_graphs) {   
              # Preproce
ss all tri-graphs       
          # including th
ings stuck in quoted str
ing constants.          
       $in =~ s/\?\?=/#/
g;                      
   # | ??=|  #|         
        $in =~ s/\?\?\!/
|/g;                    
    # | ??!|  ||        
         $in =~ s/\?\?'/
^/g;                    
     # | ??'|  ^|       
          $in =~ s/\?\?\
(/[/g;                  
      # | ??(|  [|      
           $in =~ s/\?\?
\)/]/g;                 
       # | ??)|  ]|     
            $in =~ s/\?\
?\-/~/g;                
        # | ??-|  ~|    
             $in =~ s/\?
\?\//\\/g;              
         # | ??/|  \|   
              $in =~ s/\
?\?</{/g;               
          # | ??<|  {|  
               $in =~ s/
\?\?>/}/g;              
           # | ??>|  }| 
            }      if ($
in =~ /^\#ifdef __LANGUA
GE_PASCAL__/) {  # Tru6
4 disassembler.h evilnes
s: mixed C and Pascal. 
while (<IN>) {      la
st if /^\#endif/;  } 
$in = "";  next READ; 
    }      if ($in =~ /^
extern inline / && # Inl
ined assembler.  $^O eq
 'linux' && $file =~ m!(
?:^|/)asm/[^/]+\.h$!) { 
while (<IN>) {      l
ast if /^}/;  }  $in =
 "";  next READ;      }
             if ($in =~ 
s/\\$//) {              
             # \-newline
                 $out   
 .= ' ';                
 next READ;             
} elsif ($in =~ s/^([^"'
\\\/]+)//) {            
# Passthrough           
      $out    .= $1;    
         } elsif ($in =~
 s/^(\\.)//) {          
         # \...         
        $out    .= $1;  
           } elsif ($in 
=~ /^'/) {              
           # '...       
          if ($in =~ s/^
('(\\.|[^'\\])*')//) {  
                   $out 
   .= $1;               
  } else {              
       next READ;       
          }             
} elsif ($in =~ /^"/) { 
                        
# "...                 i
f ($in =~ s/^("(\\.|[^"\
\])*")//) {             
        $out    .= $1;  
               } else { 
                    next
 READ;                 }
             } elsif ($i
n =~ s/^\/\/.*//) {     
             # //...    
             # fall thro
ugh             } elsif 
($in =~ m/^\/\*/) {     
                # /*... 
                # C comm
ent removal adapted from
 perlfaq6:              
   if ($in =~ s/^\/\*[^*
]*\*+([^\/*][^*]*\*+)*\/
//) {                   
  $out    .= ' ';       
          } else {      
                        
      # Incomplete /* */
                     nex
t READ;                 
}             } elsif ($
in =~ s/^(\/)//) {      
              # /...    
             $out    .= 
$1;             } elsif 
($in =~ s/^([^\'\"\\\/]+
)//) {                 $
out    .= $1;           
  } elsif ($^O eq 'linux
' &&                    
  $file =~ m!(?:^|/)linu
x/byteorder/pdp_endian\.
h$! &&                  
    $in   =~ s!\'T KNOW!
!) {                 $ou
t    =~ s!I DON$!I_DO_NO
T_KNOW!;             } e
lse {                 if
 ($opt_e) {             
        warn "Cannot par
se $file:\n$in\n";      
               $bad_file
{$file} = 1;            
         $in = '';      
               $out = un
def;                    
 last READ;             
    } else {  die "Cann
ot parse:\n$in\n";      
           }            
 }         }          la
st READ if $out =~ /\S/;
     }      return $out;
 }   # Handle recursive 
subdirectories without g
etting a grotesquely big
 stack. # Could this be 
implemented using File::
Find? sub next_file {   
  my $file;      while (
@ARGV) {         $file =
 shift @ARGV;          i
f ($file eq '-' or -f $f
ile or -l $file) {      
       return $file;    
     } elsif (-d $file) 
{             if ($opt_r
) {                 expa
nd_glob($file);         
    } else {            
     print STDERR "Skipp
ing directory `$file'\n"
;             }         
} elsif ($opt_a) {      
       return $file;    
     } else {           
  print STDERR "Skipping
 `$file':  not a file or
 directory\n";         }
     }      return undef
; }   # Put all the file
s in $directory into @AR
GV for processing. sub e
xpand_glob {     my ($di
rectory)  = @_;      $di
rectory =~ s:/$::;      
opendir DIR, $directory;
         foreach (readdi
r DIR) {             nex
t if ($_ eq '.' or $_ eq
 '..');              # e
xpand_glob() is going to
 be called until $ARGV[0
] isn't a             # 
directory; so push direc
tories, and unshift ever
ything else.            
 if (-d "$directory/$_")
 { push    @ARGV, "$dire
ctory/$_" }             
else                    
{ unshift @ARGV, "$direc
tory/$_" }         }    
 closedir DIR; }   # Giv
en $file, a symbolic lin
k to a directory in the 
C include directory, # m
ake an equivalent symbol
ic link in $Dest_dir, if
 we can figure out how. 
# Otherwise, just duplic
ate the file or director
y. sub link_if_possible 
{     my ($dirlink)  = @
_;     my $target  = eva
l 'readlink($dirlink)'; 
     if ($target =~ m:^\
.\./: or $target =~ m:^/
:) {         # The targe
t of a parent or absolut
e link could leave the $
Dest_dir         # hiera
rchy, so let's put all o
f the contents of $dirli
nk (actually,         # 
the contents of $target)
 into @ARGV; as a side e
ffect down the         #
 line, $dirlink will get
 created as an _actual_ 
directory.         expan
d_glob($dirlink);     } 
else {         if (-l "$
Dest_dir/$dirlink") {   
          unlink "$Dest_
dir/$dirlink" or        
         print STDERR "C
ould not remove link $De
st_dir/$dirlink:  $!\n";
         }          if (
eval 'symlink($target, "
$Dest_dir/$dirlink")') {
             print "Link
ing $target -> $Dest_dir
/$dirlink\n";           
   # Make sure that the 
link _links_ to somethin
g:             if (! -e 
"$Dest_dir/$target") {  
               mkpath("$
Dest_dir/$target", 0755)
 or                     
print STDERR "Could not 
create $Dest_dir/$target
/\n";             }     
    } else {            
 print STDERR "Could not
 symlink $target -> $Des
t_dir/$dirlink:  $!\n"; 
        }     } }   # Pu
sh all #included files i
n $file onto our stack, 
except for STDIN # and f
iles we've already proce
ssed. sub queue_includes
_from {     my ($file)  
  = @_;     my $line;   
   return if ($file eq "
-");      open HEADER, $
file or return;         
while (defined($line = <
HEADER>)) {             
while (/\\$/) { # Handle
 continuation lines     
            chop $line; 
                $line .=
 <HEADER>;             }
              if ($line 
=~ /^#\s*include\s+<(.*?
)>/) {                 p
ush(@ARGV, $1) unless $I
s_converted{$1};        
     }         }     clo
se HEADER; }   # Determi
ne include directories; 
$Config{usrinc} should b
e enough for (all # non-
GCC?) C compilers, but g
cc uses an additional in
clude directory. sub inc
_dirs {     my $from_gcc
    = `LC_ALL=C $Config{
cc} -v 2>&1`;     if( !(
 $from_gcc =~ s:^Reading
 specs from (.*?)/specs\
b.*:$1/include:s ) )    
 { # gcc-4+ :        $fr
om_gcc   = `LC_ALL=C $Co
nfig{cc} -print-search-d
irs 2>&1`;        if ( !
($from_gcc =~ s/^install
:\s*([^\s]+[^\s\/])([\s\
/]*).*$/$1\/include/s) )
        {            $fr
om_gcc = '';        };  
   };     length($from_g
cc) ? ($from_gcc, $Confi
g{usrinc}) : ($Config{us
rinc}); }   # Create "_h
2ph_pre.ph", if it doesn
't exist or was built by
 a different # version o
f h2ph. sub build_preamb
le_if_necessary {     # 
Increment $VERSION every
 time this function is m
odified:     my $VERSION
     = 2;     my $preamb
le    = "$Dest_dir/_h2ph
_pre.ph";      # Can we 
skip building the preamb
le file?     if (-r $pre
amble) {         # Extra
ct version number from f
irst line of preamble:  
       open  PREAMBLE, $
preamble or die "Cannot 
open $preamble:  $!";   
          my $line = <PR
EAMBLE>;             $li
ne =~ /(\b\d+\b)/;      
   close PREAMBLE       
     or die "Cannot clos
e $preamble:  $!";      
    # Don't build preamb
le if a compatible pream
ble exists:         retu
rn if $1 == $VERSION;   
  }      my (%define) = 
_extract_cc_defines();  
    open  PREAMBLE, ">$p
reamble" or die "Cannot 
open $preamble:  $!";   
      print PREAMBLE "# 
This file was created by
 h2ph version $VERSION\n
";          foreach (sor
t keys %define) {       
      if ($opt_D) {     
            print PREAMB
LE "# $_=$define{$_}\n";
             }      if (
$define{$_} =~ /^\((.*)\
)$/) {        # parenthe
sized value:  d=(v)  $d
efine{$_} = $1;      }; 
    if ($define{$_} =~ 
/^([+-]?(\d+)?\.\d+([eE]
[+-]?\d+)?)[FL]?$/ ) { 
      # float:  print P
REAMBLE                 
    "unless (defined &$_
) { sub $_() { $1 } }\n\
n";      } elsif ($defin
e{$_} =~ /^([+-]?\d+)U?L
{0,2}$/i) {        # int
eger:                 pr
int PREAMBLE            
         "unless (define
d &$_) { sub $_() { $1 }
 }\n\n";             } e
lsif ($define{$_} =~ /^\
w+$/) {                 
print PREAMBLE          
           "unless (defi
ned &$_) { sub $_() { &$
define{$_} } }\n\n";    
         } else {       
          print PREAMBLE
                     "un
less (defined &$_) { sub
 $_() { \"",            
         quotemeta($defi
ne{$_}), "\" } }\n\n";  
           }         }  
   close PREAMBLE       
        or die "Cannot c
lose $preamble:  $!"; } 
  # %Config contains inf
ormation on macros that 
are pre-defined by the #
 system's compiler.  We 
need this information to
 make the .ph files # fu
nction with perl as the 
.h files do with cc. sub
 _extract_cc_defines {  
   my %define;     my $a
llsymbols  = join " ",  
       @Config{'ccsymbol
s', 'cppsymbols', 'cppcc
symbols'};      # Split 
compiler pre-definitions
 into `key=value' pairs:
     while( $allsymbols=
~/([^\s]+)=((\\\s|[^\s])
+)/g ) {         $define
{$1} = $2;          if (
$opt_D) {             pr
int STDERR "$_:  $1 -> $
2\n";         }     }   
   return %define; }   1
;  #####################
########################
########################
######### __END__  =head
1 NAME  h2ph - convert .
h C header files to .ph 
Perl header files  =head
1 SYNOPSIS  B<h2ph [-d d
estination directory] [-
r | -a] [-l] [headerfile
s]>  =head1 DESCRIPTION 
 I<h2ph> converts any C 
header files specified t
o the corresponding Perl
 header file format. It 
is most easily run while
 in /usr/include:   cd /
usr/include; h2ph * sys/
*  or   cd /usr/include;
 h2ph * sys/* arpa/* net
inet/*  or   cd /usr/inc
lude; h2ph -r -l .  The 
output files are placed 
in the hierarchy rooted 
at Perl's architecture d
ependent library directo
ry.  You can specify a d
ifferent hierarchy with 
a B<-d> switch.  If run 
with no arguments, filte
rs standard input to sta
ndard output.  =head1 OP
TIONS  =over 4  =item -d
 destination_dir  Put th
e resulting B<.ph> files
 beneath B<destination_d
ir>, instead of beneath 
the default Perl library
 location (C<$Config{'in
stallsitsearch'}>).  =it
em -r  Run recursively; 
if any of B<headerfiles>
 are directories, then r
un I<h2ph> on all files 
in those directories (an
d their subdirectories, 
etc.).  B<-r> and B<-a> 
are mutually exclusive. 
 =item -a  Run automagic
ally; convert B<headerfi
les>, as well as any B<.
h> files which they incl
ude.  This option will s
earch for B<.h> files in
 all directories which y
our C compiler ordinaril
y uses.  B<-a> and B<-r>
 are mutually exclusive.
  =item -l  Symbolic lin
ks will be replicated in
 the destination directo
ry.  If B<-l> is not spe
cified, then links are s
kipped over.  =item -h  
Put ``hints'' in the .ph
 files which will help i
n locating problems with
 I<h2ph>.  In those case
s when you B<require> a 
B<.ph> file containing s
yntax errors, instead of
 the cryptic   [ some er
ror condition ] at (eval
 mmm) line nnn  you will
 see the slightly more h
elpful   [ some error co
ndition ] at filename.ph
 line nnn  However, the 
B<.ph> files almost doub
le in size when built us
ing B<-h>.  =item -D  In
clude the code from the 
B<.h> file as a comment 
in the B<.ph> file. This
 is primarily used for d
ebugging I<h2ph>.  =item
 -Q  ``Quiet'' mode; don
't print out the names o
f the files being conver
ted.  =back  =head1 ENVI
RONMENT  No environment 
variables are used.  =he
ad1 FILES   /usr/include
/*.h  /usr/include/sys/*
.h  etc.  =head1 AUTHOR 
 Larry Wall  =head1 SEE 
ALSO  perl(1)  =head1 DI
AGNOSTICS  The usual war
nings if it can't read o
r write the files involv
ed.  =head1 BUGS  Doesn'
t construct the %sizeof 
array for you.  It doesn
't handle all C construc
ts, but it does attempt 
to isolate definitions i
nside evals so that you 
can get at the definitio
ns that it can translate
.  It's only intended as
 a rough tool. You may n
eed to dicker with the f
iles produced.  You have
 to run this program by 
hand; it's not run as pa
rt of the Perl installat
ion.  Doesn't handle com
plicated expressions bui
lt piecemeal, a la:     
 enum {         FIRST_VA
LUE,         SECOND_VALU
E,     #ifdef ABC       
  THIRD_VALUE     #endif
     };  Doesn't necessa
rily locate all of your 
C compiler's internally-
defined symbols.  =cut  

HEXDUMP: [Full] [Preview]
Base64: [Encode]  [+chunk]  [+chunk+quotes]  [Decode] 


:: Command execute ::

Enter:
 
Select:
 

:: Shadow's tricks :D ::

Useful Commands
 
Warning. Kernel may be alerted using higher levels
Kernel Info:

:: Preddy's tricks :D ::

Php Safe-Mode Bypass (Read Files)

File:

eg: /etc/passwd
Php Safe-Mode Bypass (List Directories):

Dir:

eg: /etc/

:: Search ::
  - regexp 
:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c999shell v. 1.0 pre-release build #16 Modded by Shadow & Preddy | RootShell Security Group | r57 c99 shell | Generation time: 0.1076 ]--