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
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 23 20 2D 2A 2D 20 70 65
72 6C 20 2D 2A 2D 0A 23 0A 23 20 50 72 65 74 74 79 2D 70 72 69 6E 74 20
64 69 66 66 20 6F 75 74 70 75 74 73 20 77 69 74 68 20 47 4E 55 20 65 6E
73 63 72 69 70 74 2E 0A 23 20 43 6F 70 79 72 69 67 68 74 20 28 63 29 20
31 39 39 36 2D 31 39 39 38 20 4D 61 72 6B 6B 75 20 52 6F 73 73 69 0A 23
0A 23 20 41 75 74 68 6F 72 3A 20 4D 61 72 6B 6B 75 20 52 6F 73 73 69 20
3C 6D 74 72 40 69 6B 69 2E 66 69 3E 0A 23 0A 0A 23 0A 23 20 54 68 69 73
20 66 69 6C 65 20 69 73 20 70 61 72 74 20 6F 66 20 47 4E 55 20 65 6E 73
63 72 69 70 74 2E 0A 23 0A 23 20 54 68 69 73 20 70 72 6F 67 72 61 6D 20
69 73 20 66 72 65 65 20 73 6F 66 74 77 61 72 65 3B 20 79 6F 75 20 63 61
6E 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6E 64 2F 6F 72
20 6D 6F 64 69 66 79 0A 23 20 69 74 20 75 6E 64 65 72 20 74 68 65 20 74
65 72 6D 73 20 6F 66 20 74 68 65 20 47 4E 55 20 47 65 6E 65 72 61 6C 20
50 75 62 6C 69 63 20 4C 69 63 65 6E 73 65 20 61 73 20 70 75 62 6C 69 73
68 65 64 20 62 79 0A 23 20 74 68 65 20 46 72 65 65 20 53 6F 66 74 77 61
72 65 20 46 6F 75 6E 64 61 74 69 6F 6E 3B 20 65 69 74 68 65 72 20 76 65
72 73 69 6F 6E 20 32 2C 20 6F 72 20 28 61 74 20 79 6F 75 72 20 6F 70 74
69 6F 6E 29 0A 23 20 61 6E 79 20 6C 61 74 65 72 20 76 65 72 73 69 6F 6E
2E 0A 23 0A 23 20 54 68 69 73 20 70 72 6F 67 72 61 6D 20 69 73 20 64 69
73 74 72 69 62 75 74 65 64 20 69 6E 20 74 68 65 20 68 6F 70 65 20 74 68
61 74 20 69 74 20 77 69 6C 6C 20 62 65 20 75 73 65 66 75 6C 2C 0A 23 20
62 75 74 20 57 49 54 48 4F 55 54 20 41 4E 59 20 57 41 52 52 41 4E 54 59
3B 20 77 69 74 68 6F 75 74 20 65 76 65 6E 20 74 68 65 20 69 6D 70 6C 69
65 64 20 77 61 72 72 61 6E 74 79 20 6F 66 0A 23 20 4D 45 52 43 48 41 4E
54 41 42 49 4C 49 54 59 20 6F 72 20 46 49 54 4E 45 53 53 20 46 4F 52 20
41 20 50 41 52 54 49 43 55 4C 41 52 20 50 55 52 50 4F 53 45 2E 20 20 53
65 65 20 74 68 65 0A 23 20 47 4E 55 20 47 65 6E 65 72 61 6C 20 50 75 62
6C 69 63 20 4C 69 63 65 6E 73 65 20 66 6F 72 20 6D 6F 72 65 20 64 65 74
61 69 6C 73 2E 0A 23 0A 23 20 59 6F 75 20 73 68 6F 75 6C 64 20 68 61 76
65 20 72 65 63 65 69 76 65 64 20 61 20 63 6F 70 79 20 6F 66 20 74 68 65
20 47 4E 55 20 47 65 6E 65 72 61 6C 20 50 75 62 6C 69 63 20 4C 69 63 65
6E 73 65 0A 23 20 61 6C 6F 6E 67 20 77 69 74 68 20 74 68 69 73 20 70 72
6F 67 72 61 6D 3B 20 73 65 65 20 74 68 65 20 66 69 6C 65 20 43 4F 50 59
49 4E 47 2E 20 20 49 66 20 6E 6F 74 2C 20 77 72 69 74 65 20 74 6F 0A 23
20 74 68 65 20 46 72 65 65 20 53 6F 66 74 77 61 72 65 20 46 6F 75 6E 64
61 74 69 6F 6E 2C 20 35 39 20 54 65 6D 70 6C 65 20 50 6C 61 63 65 20 2D
20 53 75 69 74 65 20 33 33 30 2C 0A 23 20 42 6F 73 74 6F 6E 2C 20 4D 41
20 30 32 31 31 31 2D 31 33 30 37 2C 20 55 53 41 2E 0A 23 0A 0A 23 0A 23
20 4F 72 69 67 69 6E 61 6C 20 69 64 65 61 20 62 79 20 54 72 65 6E 74 20
46 69 73 68 65 72 20 3C 74 72 65 6E 74 40 69 6E 66 6F 72 6D 69 78 2E 63
6F 6D 3E 0A 23 20 54 68 61 6E 6B 73 20 74 6F 3A 0A 23 20 20 2D 20 54 65
72 6F 20 4B 69 76 69 6E 65 6E 20 3C 6B 69 76 69 6E 65 6E 40 69 6B 69 2E
66 69 3E 20 66 6F 72 20 74 68 65 20 66 69 72 73 74 20 70 72 6F 74 6F 74
79 70 65 0A 23 20 20 2D 20 54 61 69 74 20 43 79 72 75 73 20 3C 74 61 69
74 2E 63 79 72 75 73 40 6D 63 69 2E 63 6F 6D 3E 20 66 6F 72 20 66 69 78
65 73 20 61 6E 64 20 63 6C 65 61 6E 75 70 73 0A 23 0A 0A 24 66 69 6C 65
20 3D 20 73 68 69 66 74 28 40 41 52 47 56 29 3B 0A 24 61 64 64 5F 67 72
61 79 20 3D 20 22 2E 38 30 22 3B 0A 24 64 65 6C 5F 67 72 61 79 20 3D 20
22 2E 36 30 22 3B 0A 0A 24 70 72 6F 67 72 61 6D 20 3D 20 24 30 3B 0A 24
70 72 6F 67 72 61 6D 20 3D 7E 20 73 2F 2E 2A 5C 2F 2F 2F 67 3B 0A 0A 73
75 62 20 75 73 61 67 65 20 7B 0A 20 20 20 20 77 61 72 6E 20 22 55 73 61
67 65 3A 20 24 70 72 6F 67 72 61 6D 20 4F 52 49 47 49 4E 41 4C 5F 46 49
4C 45 20 3C 20 44 49 46 46 5C 6E 5C 6E 22 3B 0A 20 20 20 20 77 61 72 6E
20 22 50 72 6F 67 72 61 6D 20 72 65 61 64 73 20 61 20 64 69 66 66 20 66
69 6C 65 20 66 72 6F 6D 20 69 74 73 20 73 74 61 6E 64 61 72 64 20 69 6E
70 75 74 20 61 6E 64 20 61 6E 6E 6F 74 61 74 65 73 0A 4F 52 49 47 49 4E
41 4C 5F 46 49 4C 45 20 74 6F 20 73 68 6F 77 20 74 68 65 20 63 68 61 6E
67 65 73 20 6D 61 64 65 20 74 6F 20 74 68 65 20 66 69 6C 65 2E 20 20 54
68 65 20 65 61 73 69 65 73 74 20 77 61 79 20 74 6F 20 75 73 65 0A 74 68
69 73 20 70 72 6F 67 72 61 6D 20 69 73 20 74 6F 20 75 73 65 20 69 74 20
61 73 20 61 6E 20 69 6E 70 75 74 20 66 69 6C 74 65 72 20 66 6F 72 20 47
4E 55 20 65 6E 73 63 72 69 70 74 3A 0A 0A 20 20 5C 24 20 65 6E 73 63 72
69 70 74 20 2D 47 32 72 65 20 2D 2D 66 69 6C 74 65 72 3D 27 72 63 73 64
69 66 66 20 25 73 20 7C 20 64 69 66 66 70 70 20 25 73 27 20 2A 2E 63 20
2A 2E 68 0A 20 20 5C 24 20 65 6E 73 63 72 69 70 74 20 2D 47 32 72 65 20
2D 2D 66 69 6C 74 65 72 3D 27 64 69 66 66 20 25 73 7E 20 25 73 20 7C 20
64 69 66 66 70 70 20 25 73 27 20 2A 2E 63 20 2A 2E 68 0A 0A 22 3B 0A 7D
0A 0A 69 66 20 28 21 64 65 66 69 6E 65 64 28 24 66 69 6C 65 29 20 7C 7C
20 64 65 66 69 6E 65 64 28 24 41 52 47 56 5B 30 5D 29 29 20 7B 0A 20 20
20 20 26 75 73 61 67 65 3B 0A 20 20 20 20 65 78 69 74 20 31 3B 0A 7D 0A
0A 69 66 20 28 24 66 69 6C 65 20 65 71 20 22 2D 2D 68 65 6C 70 22 29 20
7B 0A 20 20 20 20 26 75 73 61 67 65 3B 0A 20 20 20 20 65 78 69 74 20 30
3B 0A 7D 0A 0A 69 66 20 28 24 66 69 6C 65 20 65 71 20 22 2D 2D 76 65 72
73 69 6F 6E 22 29 20 7B 0A 20 20 20 20 77 61 72 6E 20 22 64 69 66 66 70
70 20 31 2E 30 5C 6E 22 3B 0A 20 20 20 20 65 78 69 74 20 30 3B 0A 7D 0A
0A 23 20 52 65 61 64 20 69 6E 20 6F 72 69 67 69 6E 61 6C 20 66 69 6C 65
20 69 6E 74 6F 20 69 6E 74 65 72 6E 61 6C 20 61 72 72 61 79 2E 0A 6F 70
65 6E 28 46 50 2C 20 24 66 69 6C 65 29 20 7C 7C 20 64 69 65 20 22 24 70
72 6F 67 72 61 6D 3A 20 63 6F 75 6C 64 6E 27 74 20 6F 70 65 6E 20 66 69
6C 65 20 60 24 66 69 6C 65 27 20 66 6F 72 20 69 6E 70 75 74 3A 20 24 21
5C 6E 22 3B 0A 40 6F 72 69 67 5F 66 69 6C 65 20 3D 20 3C 46 50 3E 3B 0A
63 6C 6F 73 65 28 46 50 29 3B 0A 24 5B 20 3D 20 31 3B 0A 24 6F 72 69 67
5F 6C 69 6E 65 5F 6E 75 6D 20 3D 20 31 3B 0A 24 6F 72 69 67 5F 6E 75 6D
5F 6C 69 6E 65 73 20 3D 20 40 6F 72 69 67 5F 66 69 6C 65 3B 0A 0A 23 20
4E 6F 77 20 72 65 61 64 20 69 6E 20 66 69 6C 65 20 6F 66 20 64 69 66 66
73 20 69 6E 74 6F 20 69 6E 74 65 72 6E 61 6C 20 61 72 72 61 79 2E 0A 40
64 69 66 66 73 20 3D 20 3C 53 54 44 49 4E 3E 3B 0A 24 64 69 66 66 5F 6C
69 6E 65 5F 6E 75 6D 20 3D 20 31 3B 0A 24 64 69 66 66 5F 6E 75 6D 5F 6C
69 6E 65 73 20 3D 20 40 64 69 66 66 73 3B 0A 0A 77 68 69 6C 65 20 28 24
64 69 66 66 5F 6C 69 6E 65 5F 6E 75 6D 20 3C 3D 20 24 64 69 66 66 5F 6E
75 6D 5F 6C 69 6E 65 73 29 20 7B 0A 20 20 20 20 24 5F 20 3D 20 24 64 69
66 66 73 5B 24 64 69 66 66 5F 6C 69 6E 65 5F 6E 75 6D 5D 3B 0A 20 20 20
20 69 66 20 28 2F 61 2F 29 20 7B 0A 09 64 6F 5F 61 64 64 28 24 5F 29 3B
0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 2F 64 2F 29 20 7B 0A 09 64 6F
5F 64 65 6C 65 74 65 28 24 5F 29 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66
20 28 2F 63 2F 29 20 7B 0A 09 64 6F 5F 63 68 61 6E 67 65 28 24 5F 29 3B
0A 20 20 20 20 7D 0A 7D 0A 0A 77 68 69 6C 65 20 28 24 6F 72 69 67 5F 6C
69 6E 65 5F 6E 75 6D 20 3C 3D 20 24 6F 72 69 67 5F 6E 75 6D 5F 6C 69 6E
65 73 29 20 7B 0A 20 20 20 20 70 72 69 6E 74 20 24 6F 72 69 67 5F 66 69
6C 65 5B 24 6F 72 69 67 5F 6C 69 6E 65 5F 6E 75 6D 2B 2B 5D 3B 0A 7D 0A
0A 23 20 48 61 6E 64 6C 65 20 6E 65 77 2F 61 64 64 65 64 20 6C 69 6E 65
73 0A 23 0A 23 20 46 6F 72 6D 61 74 73 20 75 73 65 64 3A 0A 23 09 23 61
23 0A 23 09 23 61 23 2C 23 0A 73 75 62 20 64 6F 5F 61 64 64 20 7B 0A 20
20 20 20 28 24 6C 69 6E 65 29 20 3D 20 40 5F 3B 0A 20 20 20 20 69 66 20
28 24 6C 69 6E 65 20 3D 7E 20 2F 28 5C 64 2B 29 61 28 5C 64 2B 29 2C 28
5C 64 2B 29 2F 29 20 7B 0A 09 24 69 6E 73 65 72 74 5F 61 74 5F 6C 69 6E
65 20 3D 20 24 31 3B 0A 09 24 6E 75 6D 5F 6E 65 77 5F 6C 69 6E 65 73 20
3D 20 24 33 20 2D 20 24 32 20 2B 20 31 3B 0A 20 20 20 20 7D 20 65 6C 73
69 66 20 28 24 6C 69 6E 65 20 3D 7E 20 2F 28 5C 64 2B 29 61 28 5C 64 2B
29 2F 29 20 7B 0A 09 24 69 6E 73 65 72 74 5F 61 74 5F 6C 69 6E 65 20 3D
20 24 31 3B 0A 09 24 6E 75 6D 5F 6E 65 77 5F 6C 69 6E 65 73 20 3D 20 31
3B 0A 20 20 20 20 7D 0A 20 20 20 20 26 73 6B 69 70 5F 74 6F 5F 6C 69 6E
65 28 24 69 6E 73 65 72 74 5F 61 74 5F 6C 69 6E 65 29 3B 0A 20 20 20 20
70 72 69 6E 74 66 28 22 5C 30 30 30 73 68 61 64 65 7B 24 61 64 64 5F 67
72 61 79 7D 22 29 3B 0A 20 20 20 20 26 6D 61 72 6B 5F 74 6F 5F 6C 69 6E
65 28 24 6E 75 6D 5F 6E 65 77 5F 6C 69 6E 65 73 2C 20 22 2B 22 29 3B 0A
20 20 20 20 70 72 69 6E 74 66 28 22 5C 30 30 30 73 68 61 64 65 7B 31 2E
30 7D 22 29 3B 0A 7D 0A 0A 23 20 48 61 6E 64 6C 65 20 64 65 6C 65 74 65
64 2F 72 65 6D 6F 76 65 64 20 6C 69 6E 65 73 0A 23 0A 23 20 46 6F 72 6D
61 74 73 20 75 73 65 64 3A 0A 23 09 23 64 23 0A 23 09 23 2C 23 64 23 0A
73 75 62 20 64 6F 5F 64 65 6C 65 74 65 20 7B 0A 20 20 20 20 28 24 6C 69
6E 65 29 20 3D 20 40 5F 3B 0A 20 20 20 20 69 66 20 28 24 6C 69 6E 65 20
3D 7E 20 2F 28 5C 64 2B 29 2C 28 5C 64 2B 29 64 28 5C 64 2B 29 2F 29 20
7B 0A 09 24 6E 75 6D 5F 64 65 6C 5F 6C 69 6E 65 73 20 3D 20 24 32 20 2D
20 24 31 20 2B 20 31 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 6C
69 6E 65 20 3D 7E 20 2F 28 5C 64 2B 29 64 28 5C 64 2B 29 2F 29 20 7B 0A
09 24 6E 75 6D 5F 64 65 6C 5F 6C 69 6E 65 73 20 3D 20 31 3B 0A 20 20 20
20 7D 0A 20 20 20 20 24 64 65 6C 5F 66 72 6F 6D 20 3D 20 24 31 3B 0A 20
20 20 20 26 73 6B 69 70 5F 74 6F 5F 6C 69 6E 65 28 24 64 65 6C 5F 66 72
6F 6D 20 2D 20 31 29 3B 0A 20 20 20 20 70 72 69 6E 74 66 28 22 5C 30 30
30 73 68 61 64 65 7B 24 64 65 6C 5F 67 72 61 79 7D 22 29 3B 0A 20 20 20
20 26 6D 61 72 6B 5F 74 6F 5F 6C 69 6E 65 28 24 6E 75 6D 5F 64 65 6C 5F
6C 69 6E 65 73 2C 20 22 2D 22 29 3B 0A 20 20 20 20 70 72 69 6E 74 66 28
22 5C 30 30 30 73 68 61 64 65 7B 31 2E 30 7D 22 29 3B 0A 20 20 20 20 24
6F 72 69 67 5F 6C 69 6E 65 5F 6E 75 6D 20 2B 3D 20 24 6E 75 6D 5F 64 65
6C 5F 6C 69 6E 65 73 3B 0A 7D 0A 0A 23 20 48 61 6E 64 6C 65 20 63 68 61
6E 67 65 64 2F 6D 6F 64 69 66 69 65 64 20 6C 69 6E 65 73 0A 23 0A 23 20
46 6F 72 6D 61 74 73 20 75 73 65 64 3A 0A 23 09 23 2C 23 63 23 2C 23 0A
23 09 23 2C 23 63 23 0A 23 09 23 63 23 2C 23 0A 23 09 23 63 23 0A 73 75
62 20 64 6F 5F 63 68 61 6E 67 65 20 7B 0A 20 20 20 20 28 24 6C 69 6E 65
29 20 3D 20 40 5F 3B 0A 20 20 20 20 69 66 20 28 24 6C 69 6E 65 20 3D 7E
20 2F 28 5C 64 2B 29 2C 28 5C 64 2B 29 63 28 5C 64 2B 29 2C 28 5C 64 2B
29 2F 29 20 7B 0A 09 24 6E 75 6D 5F 6F 6C 64 5F 6C 69 6E 65 73 20 3D 20
24 32 20 2D 20 24 31 20 2B 20 31 3B 0A 09 24 6E 75 6D 5F 6E 65 77 5F 6C
69 6E 65 73 20 3D 20 24 34 20 2D 20 24 33 20 2B 20 31 3B 0A 09 24 63 68
61 6E 67 65 5F 61 74 5F 6C 69 6E 65 20 3D 20 24 31 3B 0A 20 20 20 20 7D
20 65 6C 73 69 66 20 28 24 6C 69 6E 65 20 3D 7E 20 2F 28 5C 64 2B 29 2C
28 5C 64 2B 29 63 28 5C 64 2B 29 2F 29 20 7B 0A 09 24 6E 75 6D 5F 6F 6C
64 5F 6C 69 6E 65 73 20 3D 20 24 32 20 2D 20 24 31 20 2B 20 31 3B 0A 09
24 6E 75 6D 5F 6E 65 77 5F 6C 69 6E 65 73 20 3D 20 31 3B 0A 09 24 63 68
61 6E 67 65 5F 61 74 5F 6C 69 6E 65 20 3D 20 24 31 3B 0A 20 20 20 20 7D
20 65 6C 73 69 66 20 28 24 6C 69 6E 65 20 3D 7E 20 2F 28 5C 64 2B 29 63
28 5C 64 2B 29 2C 28 5C 64 2B 29 2F 29 20 7B 0A 09 24 6E 75 6D 5F 6F 6C
64 5F 6C 69 6E 65 73 20 3D 20 31 3B 0A 09 24 6E 75 6D 5F 6E 65 77 5F 6C
69 6E 65 73 20 3D 20 24 33 20 2D 20 24 32 20 2B 20 31 3B 0A 09 24 63 68
61 6E 67 65 5F 61 74 5F 6C 69 6E 65 20 3D 20 24 31 3B 0A 20 20 20 20 7D
20 65 6C 73 69 66 20 28 24 6C 69 6E 65 20 3D 7E 20 2F 28 5C 64 2B 29 63
28 5C 64 2B 29 2F 29 20 7B 0A 09 24 6E 75 6D 5F 6F 6C 64 5F 6C 69 6E 65
73 20 3D 20 31 3B 0A 09 24 6E 75 6D 5F 6E 65 77 5F 6C 69 6E 65 73 20 3D
20 31 3B 0A 09 24 63 68 61 6E 67 65 5F 61 74 5F 6C 69 6E 65 20 3D 20 24
31 3B 0A 20 20 20 20 7D 0A 20 20 20 20 23 20 4D 61 72 6B 20 6F 6C 64 20
6C 69 6E 65 73 0A 20 20 20 20 26 73 6B 69 70 5F 74 6F 5F 6C 69 6E 65 28
24 63 68 61 6E 67 65 5F 61 74 5F 6C 69 6E 65 20 2D 20 31 29 3B 0A 20 20
20 20 24 6F 72 69 67 5F 6C 69 6E 65 5F 6E 75 6D 20 2B 3D 20 24 6E 75 6D
5F 6F 6C 64 5F 6C 69 6E 65 73 3B 09 23 20 73 6B 69 70 20 6F 76 65 72 20
63 68 61 6E 67 65 64 20 6C 69 6E 65 73 0A 20 20 20 20 70 72 69 6E 74 66
28 22 5C 30 30 30 73 68 61 64 65 7B 24 64 65 6C 5F 67 72 61 79 7D 22 29
3B 0A 20 20 20 20 26 6D 61 72 6B 5F 74 6F 5F 6C 69 6E 65 28 24 6E 75 6D
5F 6F 6C 64 5F 6C 69 6E 65 73 2C 20 22 2D 22 29 3B 0A 20 20 20 20 70 72
69 6E 74 66 28 22 5C 30 30 30 73 68 61 64 65 7B 31 2E 30 7D 22 29 3B 0A
20 20 20 20 23 20 4D 61 72 6B 20 6E 65 77 20 6C 69 6E 65 73 0A 20 20 20
20 70 72 69 6E 74 66 28 22 5C 30 30 30 73 68 61 64 65 7B 24 61 64 64 5F
67 72 61 79 7D 22 29 3B 0A 20 20 20 20 26 6D 61 72 6B 5F 74 6F 5F 6C 69
6E 65 28 24 6E 75 6D 5F 6E 65 77 5F 6C 69 6E 65 73 2C 20 22 2B 22 29 3B
0A 20 20 20 20 70 72 69 6E 74 66 28 22 5C 30 30 30 73 68 61 64 65 7B 31
2E 30 7D 22 29 3B 0A 7D 0A 0A 73 75 62 20 73 6B 69 70 5F 74 6F 5F 6C 69
6E 65 20 7B 0A 20 20 20 20 28 24 6C 69 6E 65 29 20 3D 20 40 5F 3B 0A 0A
20 20 20 20 77 68 69 6C 65 20 28 24 6F 72 69 67 5F 6C 69 6E 65 5F 6E 75
6D 20 3C 3D 20 24 6C 69 6E 65 29 20 7B 0A 09 70 72 69 6E 74 20 24 6F 72
69 67 5F 66 69 6C 65 5B 24 6F 72 69 67 5F 6C 69 6E 65 5F 6E 75 6D 5D 3B
0A 09 24 6F 72 69 67 5F 6C 69 6E 65 5F 6E 75 6D 2B 2B 3B 0A 20 20 20 20
7D 0A 7D 0A 0A 73 75 62 20 6D 61 72 6B 5F 74 6F 5F 6C 69 6E 65 20 7B 0A
20 20 20 20 28 24 6E 75 6D 5F 6C 69 6E 65 73 2C 20 24 6D 61 72 6B 65 72
29 20 3D 20 40 5F 3B 0A 0A 20 20 20 20 24 64 69 66 66 5F 6C 69 6E 65 5F
6E 75 6D 2B 2B 3B 09 09 23 20 73 6B 69 70 20 6F 76 65 72 20 64 69 66 66
20 63 6F 6D 6D 61 6E 64 0A 20 20 20 20 77 68 69 6C 65 20 28 24 6E 75 6D
5F 6C 69 6E 65 73 20 3E 20 30 29 20 7B 0A 09 24 64 69 66 66 5F 6C 69 6E
65 20 3D 20 73 75 62 73 74 72 28 24 64 69 66 66 73 5B 24 64 69 66 66 5F
6C 69 6E 65 5F 6E 75 6D 2B 2B 5D 2C 33 29 3B 0A 09 70 72 69 6E 74 20 22
5C 30 30 30 70 73 7B 67 73 61 76 65 20 2D 35 20 30 20 72 6D 6F 76 65 74
6F 20 28 24 6D 61 72 6B 65 72 29 20 73 68 6F 77 20 67 72 65 73 74 6F 72
65 7D 22 3B 0A 09 70 72 69 6E 74 20 24 64 69 66 66 5F 6C 69 6E 65 3B 0A
09 24 6E 75 6D 5F 6C 69 6E 65 73 2D 2D 3B 0A 20 20 20 20 7D 0A 7D 0A | #!/usr/bin/perl # -*- pe
rl -*- # # Pretty-print
diff outputs with GNU en
script. # Copyright (c)
1996-1998 Markku Rossi #
# Author: Markku Rossi
<mtr@iki.fi> # # # This
file is part of GNU ens
cript. # # This program
is free software; you ca
n redistribute it and/or
modify # it under the t
erms of the GNU General
Public License as publis
hed by # the Free Softwa
re Foundation; either ve
rsion 2, or (at your opt
ion) # any later version
. # # This program is di
stributed in the hope th
at it will be useful, #
but WITHOUT ANY WARRANTY
; without even the impli
ed warranty of # MERCHAN
TABILITY or FITNESS FOR
A PARTICULAR PURPOSE. S
ee the # GNU General Pub
lic License for more det
ails. # # You should hav
e received a copy of the
GNU General Public Lice
nse # along with this pr
ogram; see the file COPY
ING. If not, write to #
the Free Software Found
ation, 59 Temple Place -
Suite 330, # Boston, MA
02111-1307, USA. # # #
Original idea by Trent
Fisher <trent@informix.c
om> # Thanks to: # - Te
ro Kivinen <kivinen@iki.
fi> for the first protot
ype # - Tait Cyrus <tai
t.cyrus@mci.com> for fix
es and cleanups # $file
= shift(@ARGV); $add_gr
ay = ".80"; $del_gray =
".60"; $program = $0; $
program =~ s/.*\///g; s
ub usage { warn "Usa
ge: $program ORIGINAL_FI
LE < DIFF\n\n"; warn
"Program reads a diff f
ile from its standard in
put and annotates ORIGIN
AL_FILE to show the chan
ges made to the file. T
he easiest way to use th
is program is to use it
as an input filter for G
NU enscript: \$ enscr
ipt -G2re --filter='rcsd
iff %s | diffpp %s' *.c
*.h \$ enscript -G2re
--filter='diff %s~ %s |
diffpp %s' *.c *.h "; }
if (!defined($file) ||
defined($ARGV[0])) {
&usage; exit 1; }
if ($file eq "--help")
{ &usage; exit 0
; } if ($file eq "--ver
sion") { warn "diffp
p 1.0\n"; exit 0; }
# Read in original file
into internal array. op
en(FP, $file) || die "$p
rogram: couldn't open fi
le `$file' for input: $!
\n"; @orig_file = <FP>;
close(FP); $[ = 1; $orig
_line_num = 1; $orig_num
_lines = @orig_file; #
Now read in file of diff
s into internal array. @
diffs = <STDIN>; $diff_l
ine_num = 1; $diff_num_l
ines = @diffs; while ($
diff_line_num <= $diff_n
um_lines) { $_ = $di
ffs[$diff_line_num];
if (/a/) { do_add($_);
} elsif (/d/) { do
_delete($_); } elsif
(/c/) { do_change($_);
} } while ($orig_l
ine_num <= $orig_num_lin
es) { print $orig_fi
le[$orig_line_num++]; }
# Handle new/added line
s # # Formats used: # #a
# # #a#,# sub do_add {
($line) = @_; if
($line =~ /(\d+)a(\d+),(
\d+)/) { $insert_at_lin
e = $1; $num_new_lines
= $3 - $2 + 1; } els
if ($line =~ /(\d+)a(\d+
)/) { $insert_at_line =
$1; $num_new_lines = 1
; } &skip_to_lin
e($insert_at_line);
printf("\000shade{$add_g
ray}"); &mark_to_lin
e($num_new_lines, "+");
printf("\000shade{1.
0}"); } # Handle delete
d/removed lines # # Form
ats used: # #d# # #,#d#
sub do_delete { ($li
ne) = @_; if ($line
=~ /(\d+),(\d+)d(\d+)/)
{ $num_del_lines = $2 -
$1 + 1; } elsif ($l
ine =~ /(\d+)d(\d+)/) {
$num_del_lines = 1;
} $del_from = $1;
&skip_to_line($del_fr
om - 1); printf("\00
0shade{$del_gray}");
&mark_to_line($num_del_
lines, "-"); printf(
"\000shade{1.0}"); $
orig_line_num += $num_de
l_lines; } # Handle cha
nged/modified lines # #
Formats used: # #,#c#,#
# #,#c# # #c#,# # #c# su
b do_change { ($line
) = @_; if ($line =~
/(\d+),(\d+)c(\d+),(\d+
)/) { $num_old_lines =
$2 - $1 + 1; $num_new_l
ines = $4 - $3 + 1; $ch
ange_at_line = $1; }
elsif ($line =~ /(\d+),
(\d+)c(\d+)/) { $num_ol
d_lines = $2 - $1 + 1;
$num_new_lines = 1; $ch
ange_at_line = $1; }
elsif ($line =~ /(\d+)c
(\d+),(\d+)/) { $num_ol
d_lines = 1; $num_new_l
ines = $3 - $2 + 1; $ch
ange_at_line = $1; }
elsif ($line =~ /(\d+)c
(\d+)/) { $num_old_line
s = 1; $num_new_lines =
1; $change_at_line = $
1; } # Mark old
lines &skip_to_line(
$change_at_line - 1);
$orig_line_num += $num
_old_lines; # skip over
changed lines printf
("\000shade{$del_gray}")
; &mark_to_line($num
_old_lines, "-"); pr
intf("\000shade{1.0}");
# Mark new lines
printf("\000shade{$add_
gray}"); &mark_to_li
ne($num_new_lines, "+");
printf("\000shade{1
.0}"); } sub skip_to_li
ne { ($line) = @_;
while ($orig_line_nu
m <= $line) { print $or
ig_file[$orig_line_num];
$orig_line_num++;
} } sub mark_to_line {
($num_lines, $marker
) = @_; $diff_line_
num++; # skip over diff
command while ($num
_lines > 0) { $diff_lin
e = substr($diffs[$diff_
line_num++],3); print "
\000ps{gsave -5 0 rmovet
o ($marker) show grestor
e}"; print $diff_line;
$num_lines--; } } |