6 |
use isis_sf; |
use isis_sf; |
7 |
|
|
8 |
sub parse_format { |
sub parse_format { |
9 |
my $format = shift; |
my $format = shift || die "parse_format must be called with format!"; |
10 |
my $row = shift; |
my $row = shift || die "parse_format must be called with row!"; |
11 |
my $i = shift || 0; # isis repeatable number |
my $i = shift || 0; # isis repeatable number |
12 |
my $codepage = shift || die; |
my $codepage = shift || die "parse_format must be called with codepage!"; |
13 |
|
|
14 |
my $out; |
my $out; |
15 |
my $out_swish; |
my $out_swish; |