summaryrefslogtreecommitdiff
path: root/contrib/extract-strings-and-comments
diff options
context:
space:
mode:
authorMathias Preiner <mathias.preiner@gmail.com>2018-10-19 14:45:42 -0700
committerGitHub <noreply@github.com>2018-10-19 14:45:42 -0700
commitce8c429281fd1f7e4ac4d2b7133152c1d370df0c (patch)
tree407400e728621cc9a5262e7112a93bd6acd0835a /contrib/extract-strings-and-comments
parent7de0540252b62080ee9f98617f5718cb1ae08579 (diff)
Remove autotools build system. (#2639)
Diffstat (limited to 'contrib/extract-strings-and-comments')
-rwxr-xr-xcontrib/extract-strings-and-comments52
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";
-
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback