Commit-ID: f9f8017ea1fab40bf0fcd3da63d3eae2f9b43a94
Gitweb: http://repo.or.cz/w/nasm.git?a=commitdiff;h=f9f8017ea1fab40bf0fcd3da63d3eae2f9b43a94
Author: H. Peter Anvin <hp...@li...>
AuthorDate: Sat, 19 Oct 2013 12:20:28 -0700
Committer: H. Peter Anvin <hp...@li...>
CommitDate: Sat, 19 Oct 2013 12:20:28 -0700
macros.pl: Remove superfluous whitespace
Squeeze multiple whitespace characters together, since they have no
semantic function.
Signed-off-by: H. Peter Anvin <hp...@li...>
---
macros.pl | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/macros.pl b/macros.pl
index 14524ec..48d1948 100755
--- a/macros.pl
+++ b/macros.pl
@@ -52,8 +52,30 @@ my $tasm_count = 0;
sub charcify(@) {
my $l = '';
my $c, $o;
+ my $space = 1;
+ my $quote = 0;
+
foreach $o (unpack("C*", join('',@_))) {
$c = pack("C", $o);
+ if ($quote) {
+ if ($o == $quote) {
+ $quote = 0;
+ }
+ } elsif ($c =~ /^[\'\"\`]$/) {
+ $quote = $o;
+ } else {
+ if ($c =~ /\s/) {
+ next if ($space);
+ $o = 32;
+ $c = ' ';
+ $space = 1;
+ } elsif ($o > 126) {
+ $space = 1; # Implicit space after compacted directive
+ } else {
+ $space = 0;
+ }
+ }
+
if ($o < 32 || $o > 126 || $c eq '"' || $c eq "\\") {
$l .= sprintf("%3d,", $o);
} else {
|
