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
| 23 21 20 2F 62 69 6E 2F 73 68 20 2D 65 0A 23 20 2D 2A 2D 20 6B 73 68 20
2D 2A 2D 0A 0A 23 20 70 73 73 65 74 20 2D 2D 2D 20 50 75 74 20 70 61 67
65 20 64 65 76 69 63 65 20 64 65 66 69 6E 69 74 69 6F 6E 20 73 6F 6D 65
77 68 65 72 65 20 69 6E 20 61 20 50 53 20 64 6F 63 75 6D 65 6E 74 2E 0A
0A 23 20 43 6F 70 79 72 69 67 68 74 20 28 63 29 20 31 39 39 39 20 41 6B
69 6D 20 44 65 6D 61 69 6C 6C 65 2C 20 4D 69 67 75 65 6C 20 53 61 6E 74
61 6E 61 0A 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 69 66 20 6E 6F 74 2C 20 79 6F 75 20 63 61 6E 20 65 69 74 68 65
72 20 73 65 6E 64 20 65 6D 61 69 6C 20 74 6F 20 74 68 69 73 0A 23 20 70
72 6F 67 72 61 6D 27 73 20 6D 61 69 6E 74 61 69 6E 65 72 20 6F 72 20 77
72 69 74 65 20 74 6F 3A 20 54 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 0A 23 20 49 6E 63 2E 3B 20 35
39 20 54 65 6D 70 6C 65 20 50 6C 61 63 65 2C 20 53 75 69 74 65 20 33 33
30 3B 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 0A 23 20 41 75 74 68 6F 72 3A 20 41 6B 69 6D 20 44
65 6D 61 69 6C 6C 65 20 3C 41 6B 69 6D 2E 44 65 6D 61 69 6C 6C 65 40 66
72 65 65 66 72 69 65 6E 64 73 2E 6F 72 67 3E 0A 0A 23 20 47 65 74 20 74
68 65 20 6E 61 6D 65 20 6F 66 20 74 68 65 20 70 72 6F 67 72 61 6D 0A 70
72 6F 67 72 61 6D 3D 60 65 63 68 6F 20 24 30 20 7C 20 73 65 64 20 27 73
23 2E 2A 2F 23 23 67 27 60 0A 0A 23 20 4C 6F 63 61 6C 20 76 61 72 73 0A
61 74 3D 30 09 23 20 49 6E 73 65 72 74 20 63 61 6C 6C 20 69 6E 20 74 68
65 20 64 6F 63 75 6D 65 6E 74 27 73 20 53 65 74 75 70 20 73 65 63 74 69
6F 6E 2E 0A 64 65 62 75 67 3D 0A 66 69 6C 65 3D 0A 66 69 78 70 73 3D 24
7B 46 49 58 50 53 3A 2D 66 69 78 70 73 7D 0A 6F 75 74 70 75 74 3D 2D 0A
70 61 67 65 64 65 76 69 63 65 73 3D 09 23 20 60 3B 27 20 73 65 70 61 72
61 74 65 64 20 6C 69 73 74 20 6F 66 20 60 6B 65 79 3A 76 61 6C 75 65 27
0A 71 75 69 65 74 3D 3A 20 20 20 20 20 20 20 20 20 23 20 69 2E 65 2E 2C
20 76 65 72 62 6F 73 65 0A 74 6D 70 64 69 72 3D 24 7B 54 4D 50 44 49 52
3A 2D 2F 74 6D 70 7D 2F 24 70 72 6F 67 72 61 6D 2E 24 24 0A 73 65 64 73
63 72 69 70 74 3D 24 74 6D 70 64 69 72 2F 70 73 73 65 74 2E 73 65 64 0A
0A 23 20 54 68 65 20 76 65 72 73 69 6F 6E 2F 75 73 61 67 65 20 73 74 72
69 6E 67 73 0A 76 65 72 73 69 6F 6E 3D 22 24 70 72 6F 67 72 61 6D 20 31
2E 33 20 28 47 4E 55 20 61 32 70 73 20 34 2E 31 33 29 0A 57 72 69 74 74
65 6E 20 62 79 20 41 6B 69 6D 20 44 65 6D 61 69 6C 6C 65 2E 0A 0A 43 6F
70 79 72 69 67 68 74 20 28 63 29 20 31 39 39 38 2D 31 39 39 39 20 41 6B
69 6D 20 44 65 6D 61 69 6C 6C 65 2C 20 4D 69 67 75 65 6C 20 53 61 6E 74
61 6E 61 0A 54 68 69 73 20 69 73 20 66 72 65 65 20 73 6F 66 74 77 61 72
65 3B 20 73 65 65 20 74 68 65 20 73 6F 75 72 63 65 20 66 6F 72 20 63 6F
70 79 69 6E 67 20 63 6F 6E 64 69 74 69 6F 6E 73 2E 20 20 54 68 65 72 65
20 69 73 20 4E 4F 0A 77 61 72 72 61 6E 74 79 3B 20 6E 6F 74 20 65 76 65
6E 20 66 6F 72 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 22 0A 0A 75 73 61 67 65 3D 22 5C 0A 55 73
61 67 65 3A 20 24 70 72 6F 67 72 61 6D 20 46 49 4C 45 0A 0A 50 72 6F 64
75 63 65 20 61 20 76 65 72 73 69 6F 6E 20 6F 66 20 74 68 65 20 50 6F 73
74 53 63 72 69 70 74 20 46 49 4C 45 20 77 69 74 68 20 61 20 70 72 6F 74
65 63 74 65 64 20 63 61 6C 6C 20 74 6F 20 74 68 65 0A 50 6F 73 74 53 63
72 69 70 74 20 6F 70 65 72 61 74 6F 72 20 5C 60 73 65 74 70 61 67 65 64
65 76 69 63 65 27 2E 20 20 54 79 70 69 63 61 6C 20 75 73 65 20 69 73 20
6D 61 6B 69 6E 67 20 46 49 4C 45 0A 70 72 69 6E 74 20 64 75 70 6C 65 78
2C 20 6F 72 20 6F 6E 20 74 68 65 20 6D 61 6E 75 61 6C 20 74 72 61 79 20
65 74 63 2E 0A 0A 4F 70 74 69 6F 6E 73 3A 0A 20 2D 68 2C 20 2D 2D 68 65
6C 70 20 20 20 20 20 20 20 20 20 20 20 64 69 73 70 6C 61 79 20 74 68 69
73 20 68 65 6C 70 20 61 6E 64 20 65 78 69 74 0A 20 2D 76 2C 20 2D 2D 76
65 72 73 69 6F 6E 20 20 20 20 20 20 20 20 64 69 73 70 6C 61 79 20 76 65
72 73 69 6F 6E 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 61 6E 64 20 65 78
69 74 0A 20 2D 71 2C 20 2D 2D 71 75 69 65 74 20 20 20 20 20 20 20 20 20
20 64 6F 6E 27 74 20 70 72 69 6E 74 20 69 6E 66 6F 72 6D 61 74 69 6F 6E
61 6C 20 6D 65 73 73 61 67 65 73 0A 20 2D 6F 2C 20 2D 2D 6F 75 74 70 75
74 3D 46 49 4C 45 20 20 20 20 73 61 76 65 20 72 65 73 75 6C 74 20 69 6E
20 46 49 4C 45 2E 20 20 49 66 20 46 49 4C 45 20 69 73 20 5C 60 2D 27 2C
20 73 65 6E 64 20 74 6F 20 73 74 64 6F 75 74 0A 20 2D 6E 2C 20 2D 2D 6E
6F 2D 66 69 78 20 20 20 20 20 20 20 20 20 64 6F 6E 27 74 20 72 75 6E 20
5C 60 66 69 78 70 73 27 20 74 6F 20 66 69 78 20 50 53 20 70 72 6F 62 6C
65 6D 73 20 69 6E 20 46 49 4C 45 0A 20 2D 53 2C 20 2D 2D 73 65 74 70 61
67 65 64 65 76 69 63 65 3D 4B 45 59 5B 3A 56 41 4C 55 45 5D 20 20 70 61
73 73 20 61 20 70 61 67 65 20 64 65 76 69 63 65 20 64 65 66 69 6E 69 74
69 6F 6E 20 74 6F 20 6F 75 74 70 75 74 2E 0A 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 4D 75 6C 74 69 70 6C 65 20 76 61
6C 75 65 73 20 61 63 63 75 6D 75 6C 61 74 65 0A 20 2D 61 2C 20 2D 2D 61
74 3D 50 41 47 45 20 20 20 20 20 20 20 20 69 6E 73 65 72 74 20 74 68 65
20 70 61 67 65 20 64 65 76 69 63 65 20 64 65 66 69 6E 69 74 69 6F 6E 73
20 61 74 20 50 41 47 45 2E 20 20 44 65 66 61 75 6C 74 0A 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 20 50 41 47 45
3D 30 2C 20 73 74 61 6E 64 69 6E 67 20 66 6F 72 20 74 68 65 20 44 6F 63
75 6D 65 6E 74 27 73 20 53 65 74 75 70 20 73 65 63 74 69 6F 6E 0A 0A 53
68 6F 72 74 63 75 74 73 3A 0A 20 2D 6D 2C 20 2D 2D 6D 61 6E 75 61 6C 66
65 65 64 20 20 20 20 20 61 6C 69 61 73 20 66 6F 72 20 2D 53 4D 61 6E 75
61 6C 46 65 65 64 3A 74 72 75 65 0A 20 2D 73 2C 20 2D 2D 73 69 6D 70 6C
65 78 20 20 20 20 20 20 20 20 61 6C 69 61 73 20 66 6F 72 20 2D 53 44 75
70 6C 65 78 3A 66 61 6C 73 65 0A 20 2D 64 2C 20 2D 2D 64 75 70 6C 65 78
20 20 20 20 20 20 20 20 20 61 6C 69 61 73 20 66 6F 72 20 2D 53 44 75 70
6C 65 78 3A 74 72 75 65 20 2D 53 54 75 6D 62 6C 65 3A 66 61 6C 73 65 0A
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6F
72 72 65 73 70 6F 6E 64 73 20 74 6F 20 44 75 70 6C 65 78 2C 20 62 69 6E
64 69 6E 67 20 61 6C 6F 6E 67 20 74 68 65 20 6C 6F 6E 67 20 65 64 67 65
0A 20 2D 74 2C 20 2D 2D 74 75 6D 62 6C 65 20 20 20 20 20 20 20 20 20 61
6C 69 61 73 20 66 6F 72 20 2D 53 44 75 70 6C 65 78 3A 74 72 75 65 20 2D
53 54 75 6D 62 6C 65 3A 74 72 75 65 0A 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 63 6F 72 72 65 73 70 6F 6E 64 73 20 74
6F 20 44 75 70 6C 65 78 2C 20 62 69 6E 64 69 6E 67 20 61 6C 6F 6E 67 20
74 68 65 20 73 68 6F 72 74 20 65 64 67 65 0A 0A 50 72 6F 64 75 63 65 64
20 6F 75 74 70 75 74 20 69 73 20 6D 65 61 6E 74 20 66 6F 72 20 50 53 20
6C 65 76 65 6C 20 32 20 70 72 69 6E 74 65 72 73 2E 0A 0A 4E 65 77 73 2C
20 75 70 64 61 74 65 73 20 61 6E 64 20 64 6F 63 75 6D 65 6E 74 61 74 69
6F 6E 3A 20 76 69 73 69 74 20 68 74 74 70 3A 2F 2F 77 77 77 2E 69 6E 66
2E 65 6E 73 74 2E 66 72 2F 7E 64 65 6D 61 69 6C 6C 65 2F 61 32 70 73 2F
0A 52 65 70 6F 72 74 20 62 75 67 73 20 74 6F 20 3C 62 75 67 2D 61 32 70
73 40 67 6E 75 2E 6F 72 67 3E 22 0A 0A 68 65 6C 70 3D 22 54 72 79 20 5C
60 24 70 72 6F 67 72 61 6D 20 2D 2D 68 65 6C 70 27 20 66 6F 72 20 6D 6F
72 65 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 2E 22 0A 0A 23 20 50 61 72 73
65 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 61 72 67 75 6D 65 6E 74 73
2E 0A 6F 70 74 69 6F 6E 5F 77 69 74 68 6F 75 74 5F 61 72 67 75 6D 65 6E
74 73 3D 27 76 68 71 6E 44 6D 64 74 73 27 0A 0A 23 20 50 75 73 68 20 61
20 74 6F 6B 65 6E 20 61 6D 6F 6E 67 20 74 68 65 20 61 72 67 75 6D 65 6E
74 73 20 74 68 61 74 20 77 69 6C 6C 20 62 65 20 75 73 65 64 20 74 6F 20
6E 6F 74 69 63 65 20 77 68 65 6E 0A 23 20 77 65 20 65 6E 64 65 64 20 6F
70 74 69 6F 6E 73 2F 61 72 67 75 6D 65 6E 74 73 20 70 61 72 73 69 6E 67
2E 0A 61 72 67 5F 73 65 70 3D 22 24 24 2D 2D 24 24 22 0A 73 65 74 20 64
75 6D 6D 79 20 22 24 7B 31 2B 22 24 40 22 7D 22 20 22 24 61 72 67 5F 73
65 70 22 0A 73 68 69 66 74 0A 77 68 69 6C 65 20 74 65 73 74 20 22 78 24
31 22 20 21 3D 20 22 78 24 61 72 67 5F 73 65 70 22 3B 20 64 6F 0A 0A 20
20 23 20 48 61 6E 64 6C 65 20 2D 2D 6F 70 74 69 6F 6E 3D 76 61 6C 75 65
20 62 79 20 73 70 6C 69 74 74 69 6E 67 20 61 70 61 72 74 20 61 6E 64 20
70 75 74 74 69 6E 67 20 62 61 63 6B 20 6F 6E 20 61 72 67 76 2E 0A 20 20
63 61 73 65 20 22 24 31 22 20 69 6E 0A 20 20 20 20 2D 2D 2A 3D 2A 29 0A
20 20 20 20 20 20 6F 70 74 3D 60 65 63 68 6F 20 22 24 31 22 20 7C 20 73
65 64 20 2D 65 20 27 73 2F 3D 2E 2A 2F 2F 27 60 0A 20 20 20 20 20 20 76
61 6C 3D 60 65 63 68 6F 20 22 24 31 22 20 7C 20 73 65 64 20 2D 65 20 27
73 2F 5B 5E 3D 5D 2A 3D 2F 2F 27 60 0A 20 20 20 20 20 20 73 68 69 66 74
0A 20 20 20 20 20 20 73 65 74 20 64 75 6D 6D 79 20 22 24 6F 70 74 22 20
22 24 76 61 6C 22 20 22 24 7B 31 2B 22 24 40 22 7D 22 0A 20 20 20 20 20
20 73 68 69 66 74 0A 20 20 20 20 20 20 3B 3B 0A 0A 20 20 20 20 2D 5B 24
6F 70 74 69 6F 6E 5F 77 69 74 68 6F 75 74 5F 61 72 67 75 6D 65 6E 74 73
5D 3F 2A 29 0A 20 20 20 20 20 20 23 20 50 72 65 66 69 78 20 24 31 20 77
69 74 68 20 78 20 74 6F 20 61 76 6F 69 64 20 72 75 6E 6E 69 6E 67 20 60
65 63 68 6F 20 2D 6E 61 27 20 66 6F 72 20 69 6E 73 74 61 6E 63 65 2E 0A
20 20 20 20 20 20 6F 70 74 3D 60 65 63 68 6F 20 22 78 24 31 22 20 7C 20
73 65 64 20 2D 65 20 27 73 2F 78 2D 5C 28 2E 5C 29 2E 2A 2F 2D 5C 31 2F
27 60 0A 20 20 20 20 20 20 72 65 73 74 3D 60 65 63 68 6F 20 22 78 24 31
22 20 7C 20 73 65 64 20 2D 65 20 27 73 2F 78 2D 2E 5C 28 2E 2A 5C 29 2F
2D 5C 31 2F 27 60 0A 20 20 20 20 20 20 73 68 69 66 74 0A 20 20 20 20 20
20 73 65 74 20 64 75 6D 6D 79 20 22 24 6F 70 74 22 20 22 24 72 65 73 74
22 20 22 24 7B 31 2B 22 24 40 22 7D 22 0A 20 20 20 20 20 20 73 68 69 66
74 0A 20 20 20 20 20 20 3B 3B 0A 0A 20 20 20 20 23 20 54 68 69 73 20 63
61 73 65 20 6E 65 65 64 73 20 74 6F 20 62 65 20 70 72 6F 74 65 63 74 65
64 20 73 6F 20 74 68 61 74 20 74 68 65 20 63 61 73 65 20 60 2D 3F 3F 2A
27 20 64 6F 65 73 0A 20 20 20 20 23 20 6E 6F 74 20 73 70 6C 69 74 20 6C
6F 6E 67 20 6F 70 74 69 6F 6E 73 20 77 69 74 68 6F 75 74 20 61 72 67 75
6D 65 6E 74 73 0A 20 20 20 20 2D 2D 2A 29 0A 20 20 20 20 20 20 3B 3B 0A
0A 20 20 20 20 23 20 54 68 69 73 20 69 73 20 61 6E 20 6F 70 74 69 6F 6E
20 77 69 74 68 20 61 72 67 75 6D 65 6E 74 2E 20 20 53 70 6C 69 74 20 61
70 61 72 74 20 61 6E 64 20 70 75 74 20 62 61 63 6B 20 6F 6E 20 61 72 67
76 2E 0A 20 20 20 20 2D 3F 3F 2A 29 0A 20 20 20 20 20 20 6F 70 74 3D 60
65 63 68 6F 20 22 78 24 31 22 20 7C 20 73 65 64 20 2D 65 20 27 73 2F 78
2D 5C 28 2E 5C 29 2E 2A 2F 2D 5C 31 2F 27 60 0A 20 20 20 20 20 20 61 72
67 3D 60 65 63 68 6F 20 22 78 24 31 22 20 7C 20 73 65 64 20 2D 65 20 27
73 2F 78 2D 2E 5C 28 2E 2A 5C 29 2F 5C 31 2F 27 60 0A 20 20 20 20 20 20
73 68 69 66 74 0A 20 20 20 20 20 20 73 65 74 20 64 75 6D 6D 79 20 22 24
6F 70 74 22 20 22 24 61 72 67 22 20 22 24 7B 31 2B 22 24 40 22 7D 22 0A
20 20 20 20 20 20 73 68 69 66 74 0A 20 20 20 20 20 20 3B 3B 0A 20 20 65
73 61 63 0A 0A 20 20 23 20 4E 6F 77 2C 20 68 61 6E 64 6C 65 20 74 68 65
20 6F 70 74 69 6F 6E 73 2E 20 20 24 31 20 69 73 20 74 68 65 20 6F 70 74
69 6F 6E 20 2A 6F 6E 6C 79 2A 2E 20 20 49 66 20 69 74 20 68 61 73 20 61
6E 0A 20 20 23 20 61 72 67 75 6D 65 6E 74 2C 20 69 74 20 69 73 20 6E 6F
77 20 6E 65 63 65 73 73 61 72 69 6C 79 20 69 6E 20 24 32 20 65 74 63 2E
20 20 52 65 6D 65 6D 62 65 72 20 74 6F 20 73 68 69 66 74 0A 20 20 23 20
77 68 65 6E 20 66 65 74 63 68 69 6E 67 20 61 6E 20 61 72 67 75 6D 65 6E
74 2E 0A 20 20 63 61 73 65 20 22 24 31 22 20 69 6E 0A 20 20 20 20 2D 76
20 7C 20 2D 2D 76 2A 29 20 65 63 68 6F 20 22 24 76 65 72 73 69 6F 6E 22
3B 20 65 78 69 74 20 30 3B 3B 0A 20 20 20 20 2D 68 20 7C 20 2D 2D 68 2A
29 20 65 63 68 6F 20 22 24 75 73 61 67 65 22 3B 20 65 78 69 74 20 30 3B
3B 0A 20 20 20 20 2D 71 20 7C 20 2D 2D 73 69 6C 2A 20 7C 20 2D 2D 71 2A
29 20 71 75 69 65 74 3D 65 63 68 6F 3B 3B 0A 20 20 20 20 23 20 44 65 6C
61 79 20 64 65 62 75 67 67 69 6E 67 20 73 6F 20 74 68 61 74 20 6F 70 74
69 6F 6E 73 20 70 61 72 73 69 6E 67 20 64 6F 65 73 20 6E 6F 74 20 61 70
70 65 61 72 0A 20 20 20 20 2D 44 20 7C 20 2D 2D 64 65 62 75 67 29 20 64
65 62 75 67 3D 3A 20 3B 3B 0A 20 20 20 20 2D 6F 20 7C 20 2D 2D 6F 75 74
70 75 74 29 20 73 68 69 66 74 20 3B 20 6F 75 74 70 75 74 3D 24 31 20 3B
3B 0A 20 20 20 20 2D 61 20 7C 20 2D 2D 61 74 29 20 20 20 20 20 73 68 69
66 74 20 3B 20 61 74 3D 24 31 20 3B 3B 0A 20 20 20 20 2D 53 20 7C 20 2D
2D 73 65 74 2A 29 20 20 20 73 68 69 66 74 0A 20 20 20 20 20 20 20 63 61
73 65 20 24 31 20 69 6E 0A 20 20 20 20 20 20 20 20 20 2A 3A 2A 29 20 70
61 67 65 64 65 76 69 63 65 73 3D 22 24 7B 70 61 67 65 64 65 76 69 63 65
73 7D 24 31 3B 22 20 3B 3B 0A 20 20 20 20 20 20 20 20 20 2A 29 20 20 20
65 63 68 6F 20 22 24 70 72 6F 67 72 61 6D 3A 20 69 6E 76 61 6C 69 64 20
61 72 67 75 6D 65 6E 74 20 66 6F 72 20 2D 53 3A 20 24 31 22 20 31 3E 26
32 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 69 74 20 31 20 3B
3B 0A 20 20 20 20 20 20 20 65 73 61 63 0A 20 20 20 20 20 20 20 3B 3B 0A
20 20 20 20 2D 6D 20 7C 20 2D 2D 6D 61 6E 2A 20 29 20 70 61 67 65 64 65
76 69 63 65 73 3D 22 24 7B 70 61 67 65 64 65 76 69 63 65 73 7D 4D 61 6E
75 61 6C 46 65 65 64 3A 74 72 75 65 3B 22 20 3B 3B 0A 20 20 20 20 2D 64
20 7C 20 2D 2D 64 75 70 2A 20 29 20 70 61 67 65 64 65 76 69 63 65 73 3D
22 24 7B 70 61 67 65 64 65 76 69 63 65 73 7D 44 75 70 6C 65 78 3A 74 72
75 65 3B 54 75 6D 62 6C 65 3A 66 61 6C 73 65 3B 22 20 3B 3B 0A 20 20 20
20 2D 74 20 7C 20 2D 2D 74 75 6D 2A 20 29 20 70 61 67 65 64 65 76 69 63
65 73 3D 22 24 7B 70 61 67 65 64 65 76 69 63 65 73 7D 44 75 70 6C 65 78
3A 74 72 75 65 3B 54 75 6D 62 6C 65 3A 74 72 75 65 3B 22 20 3B 3B 0A 20
20 20 20 2D 73 20 7C 20 2D 2D 73 69 6D 2A 20 29 20 70 61 67 65 64 65 76
69 63 65 73 3D 22 24 7B 70 61 67 65 64 65 76 69 63 65 73 7D 44 75 70 6C
65 78 3A 66 61 6C 73 65 3B 22 20 3B 3B 0A 20 20 20 20 2D 29 20 23 20 57
65 20 61 72 65 20 77 6F 72 6B 69 6E 67 20 77 69 74 68 20 73 74 64 69 6E
20 3B 3B 0A 20 20 20 20 20 20 73 65 74 20 64 75 6D 6D 79 20 22 24 40 22
20 22 24 31 22 0A 20 20 20 20 20 20 73 68 69 66 74 20 3B 3B 0A 20 20 20
20 2D 6E 7C 2D 2D 6E 6F 2D 66 69 78 29 20 66 69 78 70 73 3D 22 24 66 69
78 70 73 20 2D 6E 22 20 3B 3B 0A 0A 20 20 20 20 2D 2D 29 20 23 20 57 68
61 74 20 72 65 6D 61 69 6E 73 20 61 72 65 20 6E 6F 74 20 6F 70 74 69 6F
6E 73 2E 0A 20 20 20 20 20 20 73 68 69 66 74 0A 20 20 20 20 20 20 77 68
69 6C 65 20 74 65 73 74 20 22 78 24 31 22 20 21 3D 20 22 78 24 61 72 67
5F 73 65 70 22 3B 20 64 6F 0A 20 20 20 20 20 20 20 20 73 65 74 20 64 75
6D 6D 79 20 22 24 7B 31 2B 22 24 40 22 7D 22 20 22 24 31 22 0A 20 20 20
20 20 20 20 20 73 68 69 66 74 0A 09 73 68 69 66 74 0A 20 20 20 20 20 20
64 6F 6E 65 0A 20 20 20 20 20 20 62 72 65 61 6B 3B 3B 0A 0A 20 20 20 20
2D 2A 29 0A 20 20 20 20 20 20 65 63 68 6F 20 22 24 70 72 6F 67 72 61 6D
3A 20 55 6E 6B 6E 6F 77 6E 20 6F 72 20 61 6D 62 69 67 75 6F 75 73 20 6F
70 74 69 6F 6E 20 5C 60 24 31 27 2E 22 20 3E 26 32 0A 20 20 20 20 20 20
65 63 68 6F 20 22 24 70 72 6F 67 72 61 6D 3A 20 54 72 79 20 5C 60 2D 2D
68 65 6C 70 27 20 66 6F 72 20 6D 6F 72 65 20 69 6E 66 6F 72 6D 61 74 69
6F 6E 2E 22 20 3E 26 32 0A 20 20 20 20 20 20 65 78 69 74 20 31 3B 3B 0A
20 20 20 20 2A 29 20 73 65 74 20 64 75 6D 6D 79 20 22 24 7B 31 2B 22 24
40 22 7D 22 20 22 24 31 22 0A 20 20 20 20 20 20 20 73 68 69 66 74 0A 20
20 20 20 20 20 20 3B 3B 0A 20 20 20 65 73 61 63 0A 20 20 20 73 68 69 66
74 0A 64 6F 6E 65 0A 23 20 50 6F 70 20 74 68 65 20 74 6F 6B 65 6E 0A 73
68 69 66 74 0A 0A 0A 23 20 43 68 65 63 6B 20 74 68 65 20 6E 75 6D 62 65
72 20 6F 66 20 61 72 67 75 6D 65 6E 74 73 2E 0A 63 61 73 65 20 24 23 20
69 6E 0A 20 20 30 29 20 20 66 69 6C 65 3D 3B 3B 0A 20 20 31 29 20 20 23
20 57 65 20 77 61 6E 74 20 24 66 69 6C 65 20 74 6F 20 62 65 20 65 6D 70
74 79 20 74 6F 20 6D 65 61 6E 20 73 74 64 69 6E 0A 20 20 20 20 20 20 69
66 20 74 65 73 74 20 22 78 24 66 69 6C 65 22 20 3D 20 22 78 2D 22 3B 20
74 68 65 6E 0A 20 20 20 20 20 20 20 20 66 69 6C 65 3D 0A 20 20 20 20 20
20 65 6C 73 65 0A 20 20 20 20 20 20 20 20 66 69 6C 65 3D 24 31 0A 20 20
20 20 20 20 66 69 0A 20 20 20 20 20 20 3B 3B 0A 20 20 2A 29 20 20 65 63
68 6F 20 22 24 70 72 6F 67 72 61 6D 3A 20 74 6F 6F 20 6D 61 6E 79 20 61
72 67 75 6D 65 6E 74 73 22 20 31 3E 26 32 0A 20 20 20 20 20 20 65 63 68
6F 20 22 24 68 65 6C 70 22 20 20 31 3E 26 32 0A 20 20 20 20 20 20 65 78
69 74 20 31 3B 3B 0A 65 73 61 63 0A 0A 6D 6B 64 69 72 20 24 74 6D 70 64
69 72 0A 0A 69 66 20 74 65 73 74 20 2D 6E 20 22 24 64 65 62 75 67 22 3B
20 74 68 65 6E 0A 20 20 23 20 53 65 74 20 2D 78 20 6E 6F 77 20 69 66 20
64 65 62 75 67 67 69 6E 67 0A 20 20 73 65 74 20 2D 78 0A 65 6C 73 65 0A
20 20 23 20 54 65 6D 70 20 64 69 72 2E 20 20 47 65 74 20 72 65 61 64 79
20 6E 6F 74 20 74 6F 20 6C 65 61 76 65 20 6A 75 6E 6B 20 28 69 66 20 6E
6F 74 20 64 65 62 75 67 67 69 6E 67 29 0A 20 20 74 72 61 70 20 22 2F 62
69 6E 2F 72 6D 20 2D 72 66 20 24 74 6D 70 64 69 72 22 20 30 20 31 20 32
20 33 20 31 33 20 31 35 0A 66 69 0A 0A 23 20 57 65 6C 6C 2C 20 69 66 20
74 68 65 72 65 20 69 73 20 6E 6F 74 68 69 6E 67 20 74 6F 20 64 6F 2C 20
6A 75 73 74 20 64 6F 20 6E 6F 74 68 69 6E 67 2E 0A 69 66 20 74 65 73 74
20 2D 7A 20 22 24 70 61 67 65 64 65 76 69 63 65 73 22 3B 20 74 68 65 6E
0A 20 20 65 78 65 63 20 24 66 69 78 70 73 20 60 24 71 75 69 65 74 20 2D
71 60 20 24 66 69 6C 65 20 2D 6F 20 22 24 6F 75 74 70 75 74 22 0A 66 69
0A 0A 23 20 50 72 65 70 61 72 65 20 74 68 65 20 50 6F 73 74 53 63 72 69
70 74 20 73 6E 69 70 70 65 74 20 77 65 20 70 6C 61 6E 20 74 6F 20 69 6E
73 65 72 74 20 69 66 20 6E 65 65 64 65 64 0A 70 73 70 61 67 65 64 65 76
69 63 65 3D 0A 73 61 76 65 64 5F 49 46 53 3D 24 49 46 53 0A 49 46 53 3D
22 3B 22 0A 66 6F 72 20 70 61 67 65 64 65 76 69 63 65 20 69 6E 20 24 70
61 67 65 64 65 76 69 63 65 73 0A 64 6F 0A 20 20 49 46 53 3D 24 73 61 76
65 64 5F 49 46 53 0A 20 20 6B 65 79 3D 60 65 63 68 6F 20 24 70 61 67 65
64 65 76 69 63 65 20 7C 20 73 65 64 20 2D 65 20 27 73 2F 3A 2E 2A 2F 2F
67 27 60 0A 20 20 76 61 6C 75 65 3D 60 65 63 68 6F 20 24 70 61 67 65 64
65 76 69 63 65 20 7C 20 73 65 64 20 2D 65 20 27 73 2F 2E 2A 3A 2F 2F 67
27 60 0A 20 20 23 20 49 20 75 73 65 20 60 63 76 78 20 65 78 65 63 27 20
69 6E 20 6F 72 64 65 72 20 74 6F 20 6C 65 74 20 74 68 65 20 73 74 6F 70
70 65 64 20 65 6E 76 69 72 6F 6E 6D 65 6E 74 20 63 61 74 63 68 20 74 68
65 0A 20 20 23 20 65 72 72 6F 72 73 2E 20 20 54 68 69 73 20 77 61 79 2C
20 74 68 65 20 75 73 65 72 20 63 61 6E 20 64 6F 20 2D 53 44 75 70 6C 65
78 3A 66 75 75 62 61 72 20 61 6E 64 20 68 61 76 65 20 61 0A 20 20 23 20
50 53 20 66 69 6C 65 20 74 68 61 74 20 62 65 68 61 76 65 73 20 77 65 6C
6C 2E 0A 20 20 70 73 70 61 67 65 64 65 76 69 63 65 3D 22 24 70 73 70 61
67 65 64 65 76 69 63 65 0A 25 25 42 65 67 69 6E 46 65 61 74 75 72 65 3A
20 2A 24 6B 65 79 20 24 76 61 6C 75 65 0A 20 20 28 3C 3C 29 20 63 76 78
20 65 78 65 63 20 2F 24 6B 65 79 20 28 24 76 61 6C 75 65 29 20 63 76 78
20 65 78 65 63 20 28 3E 3E 29 20 63 76 78 20 65 78 65 63 0A 20 20 73 79
73 74 65 6D 64 69 63 74 20 2F 73 65 74 70 61 67 65 64 65 76 69 63 65 20
67 65 74 20 65 78 65 63 0A 25 25 45 6E 64 46 65 61 74 75 72 65 22 0A 64
6F 6E 65 0A 0A 70 73 70 61 67 65 64 65 76 69 63 65 3D 22 25 20 50 61 67
65 64 65 76 69 63 65 20 64 65 66 69 6E 69 74 69 6F 6E 73 3A 0A 63 6F 75
6E 74 64 69 63 74 73 74 61 63 6B 0A 25 20 50 75 73 68 20 6F 75 72 20 6F
77 6E 20 6D 61 72 6B 2C 20 73 69 6E 63 65 20 74 68 65 72 65 20 63 61 6E
20 62 65 20 73 65 76 65 72 61 6C 20 50 53 20 6D 61 72 6B 73 20 70 75 73
68 65 64 20 64 65 70 65 6E 64 69 6E 67 0A 25 20 77 68 65 72 65 20 74 68
65 20 66 61 69 6C 75 72 65 20 72 65 61 6C 6C 79 20 6F 63 63 75 72 65 64
2E 0A 2F 70 73 73 65 74 5F 6D 61 72 6B 0A 7B 24 70 73 70 61 67 65 64 65
76 69 63 65 0A 7D 20 73 74 6F 70 70 65 64 0A 25 20 4D 79 20 63 6C 65 61
72 74 6F 6D 61 72 6B 0A 7B 20 2F 70 73 73 65 74 5F 6D 61 72 6B 20 65 71
20 7B 20 65 78 69 74 20 7D 20 69 66 20 7D 20 6C 6F 6F 70 0A 63 6F 75 6E
74 64 69 63 74 73 74 61 63 6B 20 65 78 63 68 20 73 75 62 20 64 75 70 20
30 20 67 74 0A 7B 0A 20 20 7B 20 65 6E 64 20 7D 20 72 65 70 65 61 74 0A
7D 7B 0A 20 20 70 6F 70 0A 7D 20 69 66 65 6C 73 65 22 0A 0A 23 20 50 72
65 70 61 72 65 20 74 68 65 20 73 65 64 20 63 6F 6D 6D 61 6E 64 20 77 65
20 77 61 6E 74 20 74 6F 20 72 75 6E 2E 0A 23 20 45 6E 64 20 6F 66 20 6C
69 6E 65 73 20 6D 75 73 74 20 62 65 20 70 72 6F 74 65 63 74 65 64 20 62
79 20 60 5C 27 20 62 75 74 20 74 68 65 20 6C 61 73 74 20 6F 6E 65 2C 20
61 6E 64 20 6C 65 61 64 69 6E 67 0A 23 20 73 70 61 63 65 73 20 77 69 74
68 20 61 20 60 5C 27 20 74 6F 6F 2E 2E 2E 0A 70 73 70 61 67 65 64 65 76
69 63 65 6C 65 6E 3D 60 65 63 68 6F 20 22 24 70 73 70 61 67 65 64 65 76
69 63 65 22 20 7C 20 77 63 20 2D 6C 60 0A 70 73 70 61 67 65 64 65 76 69
63 65 3D 60 65 63 68 6F 20 22 24 70 73 70 61 67 65 64 65 76 69 63 65 22
20 7C 20 5C 0A 20 73 65 64 20 2D 65 20 22 24 70 73 70 61 67 65 64 65 76
69 63 65 6C 65 6E 21 73 2F 5C 24 2F 5C 5C 5C 5C 5C 5C 2F 3B 73 2F 5E 20
2F 5C 5C 5C 5C 5C 5C 20 2F 22 60 0A 0A 63 61 73 65 20 24 61 74 20 69 6E
0A 20 20 30 29 20 23 20 49 6E 73 65 72 74 20 6C 61 73 74 20 69 6E 20 74
68 65 20 53 65 74 75 70 2C 20 73 6F 20 74 68 61 74 20 77 65 20 77 69 6E
20 6F 76 65 72 20 6F 74 68 65 72 20 72 65 71 75 65 73 74 73 2E 0A 20 20
20 20 20 61 64 64 72 65 73 73 3D 22 5E 25 25 45 6E 64 53 65 74 75 70 24
22 0A 20 20 20 20 20 69 6E 73 65 72 74 3D 22 69 22 0A 20 20 20 20 20 3B
3B 0A 20 20 2A 29 20 23 20 49 6E 73 65 72 74 20 72 69 67 68 74 20 61 66
74 65 72 20 74 68 65 20 62 65 67 69 6E 6E 69 6E 67 20 6F 66 20 74 68 65
20 70 61 67 65 2E 20 20 54 72 79 69 6E 67 20 74 6F 20 66 69 6E 64 20 61
0A 20 20 20 20 20 23 20 62 65 74 74 65 72 20 70 6C 61 63 65 20 74 68 61
6E 20 72 69 67 68 74 20 61 66 74 65 72 20 25 25 50 61 67 65 3A 20 69 73
20 61 6E 20 6F 76 65 72 6B 69 6C 6C 2E 0A 20 20 20 20 20 61 64 64 72 65
73 73 3D 22 5E 25 25 50 61 67 65 3A 20 2E 2A 24 61 74 24 22 0A 20 20 20
20 20 69 6E 73 65 72 74 3D 22 61 22 0A 20 20 20 20 20 3B 3B 0A 65 73 61
63 0A 0A 23 20 54 68 65 20 73 63 72 69 70 74 20 69 73 20 63 6F 6D 70 6C
69 63 61 74 65 64 20 62 79 20 74 68 65 20 66 61 63 74 20 74 68 61 74 20
77 65 20 64 6F 6E 27 74 20 77 61 6E 74 20 74 6F 20 69 73 73 75 65 0A 23
20 74 77 69 63 65 20 74 68 65 20 73 65 74 70 61 67 65 64 65 76 69 63 65
2E 20 20 41 6E 64 20 69 74 20 69 73 20 63 6F 72 72 65 63 74 20 66 6F 72
20 61 6E 20 69 6E 63 6C 75 64 65 64 20 64 6F 63 75 6D 65 6E 74 0A 23 20
74 6F 20 68 61 76 65 20 61 20 53 65 74 75 70 20 73 65 63 74 69 6F 6E 2E
0A 63 61 74 20 3E 24 73 65 64 73 63 72 69 70 74 20 3C 3C 45 4F 46 0A 3A
73 74 61 72 74 0A 2F 24 61 64 64 72 65 73 73 2F 7B 0A 20 20 24 69 6E 73
65 72 74 5C 5C 0A 24 70 73 70 61 67 65 64 65 76 69 63 65 0A 20 20 62 20
65 6E 64 0A 7D 0A 6E 0A 62 20 73 74 61 72 74 0A 3A 65 6E 64 0A 6E 0A 62
20 65 6E 64 0A 45 4F 46 0A 0A 23 20 4F 4B 2C 20 49 27 6D 20 74 69 72 65
64 20 6F 66 20 70 72 65 70 61 72 69 6E 67 20 70 6C 65 6E 74 79 20 61 6E
64 20 64 6F 69 6E 67 20 6E 6F 74 68 69 6E 67 2E 20 4C 65 74 27 73 20 67
6F 20 6E 6F 77 21 0A 23 20 49 6E 73 65 72 74 20 74 68 65 20 70 61 67 65
20 64 65 76 69 63 65 20 64 65 66 69 6E 69 74 69 6F 6E 20 72 69 67 68 74
20 61 66 74 65 72 20 74 68 65 20 50 72 6F 6C 6F 67 2E 0A 74 65 73 74 20
22 24 6F 75 74 70 75 74 22 20 21 3D 20 27 2D 27 20 26 26 20 65 78 65 63
20 3E 24 6F 75 74 70 75 74 0A 24 66 69 78 70 73 20 60 24 71 75 69 65 74
20 2D 71 60 20 24 66 69 6C 65 20 7C 20 73 65 64 20 2D 66 20 24 73 65 64
73 63 72 69 70 74 0A 0A 23 20 57 65 20 64 6F 6E 27 74 20 72 65 6D 6F 76
65 20 74 68 65 20 74 6D 70 20 64 69 72 65 63 74 6F 72 79 3A 20 74 72 61
70 20 64 6F 65 73 20 69 74 2E 0A 65 78 69 74 20 30 0A | #! /bin/sh -e # -*- ksh
-*- # psset --- Put pag
e device definition some
where in a PS document.
# Copyright (c) 1999 Ak
im Demaille, Miguel Sant
ana # This program is f
ree software; you can re
distribute it and/or mod
ify # it under the terms
of the GNU General Publ
ic License as published
by # the Free Software F
oundation; either versio
n 2, or (at your option)
# any later version. #
# This program is distri
buted in the hope that i
t will be useful, # but
WITHOUT ANY WARRANTY; wi
thout even the implied w
arranty of # MERCHANTABI
LITY or FITNESS FOR A PA
RTICULAR PURPOSE. See t
he # GNU General Public
License for more details
. # # You should have re
ceived a copy of the GNU
General Public License
# along with this progra
m; if not, you can eithe
r send email to this # p
rogram's maintainer or w
rite to: The Free Softwa
re Foundation, # Inc.; 5
9 Temple Place, Suite 33
0; Boston, MA 02111-1307
, USA. # Author: Akim D
emaille <Akim.Demaille@f
reefriends.org> # Get t
he name of the program p
rogram=`echo $0 | sed 's
#.*/##g'` # Local vars
at=0 # Insert call in th
e document's Setup secti
on. debug= file= fixps=$
{FIXPS:-fixps} output=-
pagedevices= # `;' separ
ated list of `key:value'
quiet=: # i.e.,
verbose tmpdir=${TMPDIR
:-/tmp}/$program.$$ seds
cript=$tmpdir/psset.sed
# The version/usage str
ings version="$program 1
.3 (GNU a2ps 4.13) Writt
en by Akim Demaille. Co
pyright (c) 1998-1999 Ak
im Demaille, Miguel Sant
ana This is free softwar
e; see the source for co
pying conditions. There
is NO warranty; not eve
n for MERCHANTABILITY or
FITNESS FOR A PARTICULA
R PURPOSE." usage="\ Us
age: $program FILE Prod
uce a version of the Pos
tScript FILE with a prot
ected call to the PostSc
ript operator \`setpaged
evice'. Typical use is
making FILE print duplex
, or on the manual tray
etc. Options: -h, --he
lp display thi
s help and exit -v, --v
ersion display ve
rsion information and ex
it -q, --quiet
don't print information
al messages -o, --outpu
t=FILE save result in
FILE. If FILE is \`-',
send to stdout -n, --n
o-fix don't run
\`fixps' to fix PS probl
ems in FILE -S, --setpa
gedevice=KEY[:VALUE] pa
ss a page device definit
ion to output.
Multiple va
lues accumulate -a, --a
t=PAGE insert the
page device definitions
at PAGE. Default
is PAGE
=0, standing for the Doc
ument's Setup section S
hortcuts: -m, --manualf
eed alias for -SManu
alFeed:true -s, --simpl
ex alias for -SDu
plex:false -d, --duplex
alias for -SDup
lex:true -STumble:false
co
rresponds to Duplex, bin
ding along the long edge
-t, --tumble a
lias for -SDuplex:true -
STumble:true
corresponds t
o Duplex, binding along
the short edge Produced
output is meant for PS
level 2 printers. News,
updates and documentati
on: visit http://www.inf
.enst.fr/~demaille/a2ps/
Report bugs to <bug-a2p
s@gnu.org>" help="Try \
`$program --help' for mo
re information." # Pars
e command line arguments
. option_without_argumen
ts='vhqnDmdts' # Push a
token among the argumen
ts that will be used to
notice when # we ended o
ptions/arguments parsing
. arg_sep="$$--$$" set d
ummy "${1+"$@"}" "$arg_s
ep" shift while test "x$
1" != "x$arg_sep"; do
# Handle --option=value
by splitting apart and
putting back on argv.
case "$1" in --*=*)
opt=`echo "$1" | s
ed -e 's/=.*//'` v
al=`echo "$1" | sed -e '
s/[^=]*=//'` shift
set dummy "$opt"
"$val" "${1+"$@"}"
shift ;; -[$
option_without_arguments
]?*) # Prefix $1 w
ith x to avoid running `
echo -na' for instance.
opt=`echo "x$1" |
sed -e 's/x-\(.\).*/-\1/
'` rest=`echo "x$1
" | sed -e 's/x-.\(.*\)/
-\1/'` shift
set dummy "$opt" "$rest
" "${1+"$@"}" shif
t ;; # This c
ase needs to be protecte
d so that the case `-??*
' does # not split l
ong options without argu
ments --*) ;;
# This is an option
with argument. Split a
part and put back on arg
v. -??*) opt=`
echo "x$1" | sed -e 's/x
-\(.\).*/-\1/'` ar
g=`echo "x$1" | sed -e '
s/x-.\(.*\)/\1/'`
shift set dummy "$
opt" "$arg" "${1+"$@"}"
shift ;; e
sac # Now, handle the
options. $1 is the opt
ion *only*. If it has a
n # argument, it is no
w necessarily in $2 etc.
Remember to shift #
when fetching an argumen
t. case "$1" in -v
| --v*) echo "$version"
; exit 0;; -h | --h*
) echo "$usage"; exit 0;
; -q | --sil* | --q*
) quiet=echo;; # Del
ay debugging so that opt
ions parsing does not ap
pear -D | --debug) d
ebug=: ;; -o | --out
put) shift ; output=$1 ;
; -a | --at) shi
ft ; at=$1 ;; -S | -
-set*) shift ca
se $1 in *:*) p
agedevices="${pagedevice
s}$1;" ;; *)
echo "$program: invalid
argument for -S: $1" 1>&
2 exit 1 ;
; esac ;;
-m | --man* ) pagede
vices="${pagedevices}Man
ualFeed:true;" ;; -d
| --dup* ) pagedevices=
"${pagedevices}Duplex:tr
ue;Tumble:false;" ;;
-t | --tum* ) pagedevic
es="${pagedevices}Duplex
:true;Tumble:true;" ;;
-s | --sim* ) pagedev
ices="${pagedevices}Dupl
ex:false;" ;; -) # W
e are working with stdin
;; set dummy "$@"
"$1" shift ;;
-n|--no-fix) fixps="$fi
xps -n" ;; --) # Wh
at remains are not optio
ns. shift wh
ile test "x$1" != "x$arg
_sep"; do set du
mmy "${1+"$@"}" "$1"
shift shift
done break;;
-*) echo "$program
: Unknown or ambiguous o
ption \`$1'." >&2
echo "$program: Try \`--
help' for more informati
on." >&2 exit 1;;
*) set dummy "${1+"$
@"}" "$1" shift
;; esac shif
t done # Pop the token s
hift # Check the numbe
r of arguments. case $#
in 0) file=;; 1) #
We want $file to be emp
ty to mean stdin i
f test "x$file" = "x-";
then file=
else file=$1
fi ;; *) ec
ho "$program: too many a
rguments" 1>&2 ech
o "$help" 1>&2 ex
it 1;; esac mkdir $tmpd
ir if test -n "$debug";
then # Set -x now if
debugging set -x else
# Temp dir. Get ready
not to leave junk (if n
ot debugging) trap "/b
in/rm -rf $tmpdir" 0 1 2
3 13 15 fi # Well, if
there is nothing to do,
just do nothing. if test
-z "$pagedevices"; then
exec $fixps `$quiet -
q` $file -o "$output" fi
# Prepare the PostScri
pt snippet we plan to in
sert if needed pspagedev
ice= saved_IFS=$IFS IFS=
";" for pagedevice in $p
agedevices do IFS=$sav
ed_IFS key=`echo $page
device | sed -e 's/:.*//
g'` value=`echo $paged
evice | sed -e 's/.*://g
'` # I use `cvx exec'
in order to let the stop
ped environment catch th
e # errors. This way,
the user can do -SDuple
x:fuubar and have a #
PS file that behaves wel
l. pspagedevice="$pspa
gedevice %%BeginFeature:
*$key $value (<<) cvx
exec /$key ($value) cvx
exec (>>) cvx exec sy
stemdict /setpagedevice
get exec %%EndFeature" d
one pspagedevice="% Pag
edevice definitions: cou
ntdictstack % Push our o
wn mark, since there can
be several PS marks pus
hed depending % where th
e failure really occured
. /psset_mark {$pspagede
vice } stopped % My clea
rtomark { /psset_mark eq
{ exit } if } loop coun
tdictstack exch sub dup
0 gt { { end } repeat
}{ pop } ifelse" # Pr
epare the sed command we
want to run. # End of l
ines must be protected b
y `\' but the last one,
and leading # spaces wit
h a `\' too... pspagedev
icelen=`echo "$pspagedev
ice" | wc -l` pspagedevi
ce=`echo "$pspagedevice"
| \ sed -e "$pspagedev
icelen!s/\$/\\\\\\/;s/^
/\\\\\\ /"` case $at in
0) # Insert last in t
he Setup, so that we win
over other requests.
address="^%%EndSetup$
" insert="i" ;
; *) # Insert right af
ter the beginning of the
page. Trying to find a
# better place tha
n right after %%Page: is
an overkill. addre
ss="^%%Page: .*$at$"
insert="a" ;; esa
c # The script is compl
icated by the fact that
we don't want to issue #
twice the setpagedevice
. And it is correct for
an included document #
to have a Setup section.
cat >$sedscript <<EOF :
start /$address/{ $ins
ert\\ $pspagedevice b
end } n b start :end n b
end EOF # OK, I'm tire
d of preparing plenty an
d doing nothing. Let's g
o now! # Insert the page
device definition right
after the Prolog. test
"$output" != '-' && exec
>$output $fixps `$quiet
-q` $file | sed -f $sed
script # We don't remov
e the tmp directory: tra
p does it. exit 0 |