diff options
| author | Benjamin Dauvergne <bdauvergne@entrouvert.com> | 2010-07-21 13:56:51 +0000 |
|---|---|---|
| committer | Benjamin Dauvergne <bdauvergne@entrouvert.com> | 2010-07-21 13:56:51 +0000 |
| commit | 191e6a970a4f86208a3a290a248f33194b8876fb (patch) | |
| tree | ada141b519bd5a0e20853d63bdf7dbc388047f18 | |
| parent | ec435d244abd92a983d815512462aab1191aa62f (diff) | |
[Core] remove unused build-strerror.pl
| -rw-r--r-- | lasso/build-strerror.pl | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/lasso/build-strerror.pl b/lasso/build-strerror.pl deleted file mode 100644 index 43bf7582..00000000 --- a/lasso/build-strerror.pl +++ /dev/null @@ -1,24 +0,0 @@ -open(H,"<errors.h"); -while (<H>) { - if (/#define (LASSO_\w+).*\/\*\s*(.*?)\s*\*\//) { - $messages{$1} = $2; - } elsif (/#define (LASSO_\w+)/) { - $messages{$1} = $1; - } -} -close(H); -open(C_IN,"<errors.c.in"); -#open(C,">errors.c"); -while (<C_IN>) { - if (/@ERROR_CASE\@/) { - foreach $k (sort (keys %messages)) { - $msg = $messages{$k}; - print "\t\tcase $k:\n"; - print "\t\t\treturn \"$msg\";\n\n"; - } - } else { - print ; - } -} -close(C_IN); -#close(C); |
