shithub: freetype+ttf2subf

Info  •  Files  •  Log  •  Branches

[afblue.pl]: Minor improvements.

* src/tools/afblue.pl: Allow whitespace before comments.
Ignore whitespace in strings.

git/fs: mount .git/fs: mount/attach disallowed

--- a/ChangeLog

+++ b/ChangeLog

@@ -1,3 +1,10 @@

+2014-04-15  Werner Lemberg  <[email protected]>

+

+	[afblue.pl]: Minor improvements.

+

+	* src/tools/afblue.pl: Allow whitespace before comments.

+	Ignore whitespace in strings.

+

 2014-04-14  Werner Lemberg  <[email protected]>

 	[autofit] Improve coverage handling.

--- a/src/tools/afblue.pl

+++ b/src/tools/afblue.pl

@@ -63,8 +63,8 @@

 # '#' <preprocessor directive> '\n'

 my $preprocessor_re = qr/ ^ \# /x;

-# '/' '/' <comment> '\n'

-my $comment_re = qr| ^ // |x;

+# [<ws>] '/' '/' <comment> '\n'

+my $comment_re = qr| ^ \s* // |x;

 # empty line

 my $whitespace_only_re = qr/ ^ \s* $ /x;

@@ -158,6 +158,9 @@

 {

   # A series of ASCII characters in the printable range.

   my $s = shift;

+

+  # We ignore spaces.

+  $s =~ s/ //g;

   my $count = $s =~ s/\G(.)/'$1', /g;

   $curr_offset += $count;