diff options
author | Mathias Preiner <mathias.preiner@gmail.com> | 2018-10-19 14:45:42 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-10-19 14:45:42 -0700 |
commit | ce8c429281fd1f7e4ac4d2b7133152c1d370df0c (patch) | |
tree | 407400e728621cc9a5262e7112a93bd6acd0835a /contrib/extract-strings-and-comments | |
parent | 7de0540252b62080ee9f98617f5718cb1ae08579 (diff) |
Remove autotools build system. (#2639)
Diffstat (limited to 'contrib/extract-strings-and-comments')
-rwxr-xr-x | contrib/extract-strings-and-comments | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/contrib/extract-strings-and-comments b/contrib/extract-strings-and-comments deleted file mode 100755 index a6670c1e9..000000000 --- a/contrib/extract-strings-and-comments +++ /dev/null @@ -1,52 +0,0 @@ -#!/usr/bin/perl -0777 - -my $debug = 0; - -$_ = <>; -my $comments = ""; -my $code = ""; - -# ignore strings and comments appearing in preprocessor directives -s/^#.*//mg; - -for(;;) { - s,^([^"/]+),,; - $code .= "$1\n"; - - if(m,^([^"]*)"",) { - s,^([^"]*)"",,s; - $code .= "$1\n"; - next; - } - if(m,^([^"]*)"([^"]*)",) { - s,^([^"]*)"(([^\\"]*?([^\\"]|(\\.)))+)",,s; - print STDERR "quote: $2\n" if $debug; - $code .= "$1\n"; - $comments .= "$2\n"; - next; - } - if(m,/\*.*?\*/,) { - s,/\*(.*?)\*/,,s; - print STDERR "c-style comment: $1\n" if $debug; - $comments .= "$1\n"; - print STDERR "REMAINDER:\n===========================\n$_\n=========================\n" if $debug; - next; - } - if(m,//,) { - s,//([^\n]*),,s; - print STDERR "c++-style comment: $1\n" if $debug; - $comments .= "$1\n"; - print STDERR "REMAINDER:\n===========================\n$_\n=========================\n" if $debug; - next; - } - last; -} - -$code .= "$_\n"; -$code =~ s,\W+,\n,g; -$code =~ s,^,@,gm; -print "$code\n"; - -$comments =~ s,^,^,gm; -print "$comments\n"; - |