| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
# $URL: //local/member/autrijus/Parse-AFP/lib/Parse/AFP/PTX/ControlSequence.pm $ $Author: autrijus $ |
|
2
|
|
|
|
|
|
|
# $Rev: 1130 $ $Date: 2004-02-17T15:40:29.640821Z $ |
|
3
|
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
package Parse::AFP::PTX::ControlSequence; |
|
5
|
1
|
|
|
1
|
|
1704
|
use base 'Parse::AFP::Base'; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
93
|
|
|
6
|
|
|
|
|
|
|
|
|
7
|
1
|
|
|
|
|
74
|
use constant FORMAT => ( |
|
8
|
|
|
|
|
|
|
Length => 'C', |
|
9
|
|
|
|
|
|
|
ControlCode => 'H2', |
|
10
|
|
|
|
|
|
|
Data => 'a*', |
|
11
|
1
|
|
|
1
|
|
6
|
); |
|
|
1
|
|
|
|
|
3
|
|
|
12
|
1
|
|
|
1
|
|
6
|
use constant DISPATCH_FIELD => 'ControlCode'; |
|
|
1
|
|
|
|
|
10
|
|
|
|
1
|
|
|
|
|
144
|
|
|
13
|
1
|
|
|
|
|
97
|
use constant DISPATCH_TABLE => ( |
|
14
|
|
|
|
|
|
|
74 => 'PTX::STC', 75 => 'PTX::STC', # Set Text Color |
|
15
|
|
|
|
|
|
|
c0 => 'PTX::SIM', c1 => 'PTX::SIM', # Set Inline Margin |
|
16
|
|
|
|
|
|
|
c2 => 'PTX::SIA', c3 => 'PTX::SIA', # Set Intercharacter Adjustment |
|
17
|
|
|
|
|
|
|
c4 => 'PTX::SVI', c5 => 'PTX::SVI', # Set Variable-Space Character Increment |
|
18
|
|
|
|
|
|
|
c6 => 'PTX::AMI', c7 => 'PTX::AMI', # Absolute Move Inline |
|
19
|
|
|
|
|
|
|
c8 => 'PTX::RMI', c9 => 'PTX::RMI', # Relative Move Inline |
|
20
|
|
|
|
|
|
|
d0 => 'PTX::SBI', d1 => 'PTX::SBI', # Set Baseline Increment |
|
21
|
|
|
|
|
|
|
d2 => 'PTX::AMB', d3 => 'PTX::AMB', # Absolute Move Baseline |
|
22
|
|
|
|
|
|
|
d4 => 'PTX::RMB', d5 => 'PTX::RMB', # Relative Move Baseline |
|
23
|
|
|
|
|
|
|
d8 => 'PTX::BLN', d9 => 'PTX::BLN', # Begin Line Next |
|
24
|
|
|
|
|
|
|
e4 => 'PTX::DIR', e5 => 'PTX::DIR', # Draw I-Axis Rule |
|
25
|
|
|
|
|
|
|
e6 => 'PTX::DBR', e7 => 'PTX::DBR', # Draw B-Axis Rule |
|
26
|
|
|
|
|
|
|
ee => 'PTX::RPS', ef => 'PTX::RPS', # Repeat String |
|
27
|
|
|
|
|
|
|
f0 => 'PTX::SCFL', f1 => 'PTX::SCFL', # Set Coded Font Local |
|
28
|
|
|
|
|
|
|
f2 => 'PTX::BSU', f3 => 'PTX::BSU', # Begin Suppression |
|
29
|
|
|
|
|
|
|
f4 => 'PTX::ESU', f5 => 'PTX::ESU', # Begin Suppression |
|
30
|
|
|
|
|
|
|
f6 => 'PTX::STO', f7 => 'PTX::STO', # Set Text Orientation |
|
31
|
|
|
|
|
|
|
f8 => 'PTX::NOP', f9 => 'PTX::NOP', # No Operation |
|
32
|
|
|
|
|
|
|
da => 'PTX::TRN', db => 'PTX::TRN', # Transparent Data |
|
33
|
1
|
|
|
1
|
|
7
|
); |
|
|
1
|
|
|
|
|
8
|
|
|
34
|
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
1; |