blob: 80da80910709258ec27e57b537d62685b3bd6c03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
sub out3
{
local($name,$p1,$p2,$p3)=@_;
push(@out,"\t$name\t");
$l=length($p1)+1;
push(@out,$p1.",");
$ll=4-($l+9)/8;
$tmp1=sprintf("\t" x $ll);
push(@out,$tmp1);
$l=length($p2)+1;
push(@out,$p2.",");
$ll=4-($l+9)/8;
$tmp1=sprintf("\t" x $ll);
push(@out,$tmp1);
push(@out,&conv($p3)."\n");
}
|
