aniani/nasm
0
0
Fork 1
mirror of https://github.com/netwide-assembler/nasm.git synced 2025-07-24 10:25:42 -04:00
Code

rdsrc.pl: handle tabs in the input

Browse Source 
It is just to painful to keep the source files tab-free.  Handle tabs
in the input as required.

Signed-off-by: H. Peter Anvin <hpa@zytor.com>
This commit is contained in:
H. Peter Anvin 2008-09-30 17:12:19 -07:00
parent e232d9a6bf
commit 2aa72b64a6
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
doc/rdsrc.pl
View File

@ -104,6 +104,7 @@ $pname = "para000000";
@pnames = @pflags = ();
$para = undef;
while (defined($_ = <STDIN>)) {
$_ = &untabify($_);
&check_include($_);
}
&got_para($para);
@ -151,6 +152,26 @@ if ($out_format eq 'txt') {
die "$0: unknown output format: $out_format\n";
}
sub untabify($) {
my($s) = @_;
my $o = '';
my($c, $i, $p);
$p = 0;
for ($i = 0; $i < length($s); $i++) {
$c = substr($s, $i, 1);
if ($c eq "\t") {
do {
$o .= ' ';
$p++;
} while ($p & 7);
} else {
$o .= $c;
$p++;
}
}
return $o;
}
sub check_include {
local $_ = shift;
if (/\\& (\S+)/) {