diff options
Diffstat (limited to 'Build/source/utils/asymptote/opsymbols.pl')
-rwxr-xr-x | Build/source/utils/asymptote/opsymbols.pl | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/Build/source/utils/asymptote/opsymbols.pl b/Build/source/utils/asymptote/opsymbols.pl deleted file mode 100755 index 06491ad1c69..00000000000 --- a/Build/source/utils/asymptote/opsymbols.pl +++ /dev/null @@ -1,50 +0,0 @@ -#!/usr/bin/env perl -##### -# opsymbols.pl -# Andy Hammerlindl 2010/06/01 -# -# Extract mapping such as '+' --> SYM_PLUS from camp.l -##### - -open(header, ">opsymbols.h") || - die("Couldn't open opsymbols.h for writing"); - -print header <<END; -/***** - * This file is automatically generated by opsymbols.pl - * Changes will be overwritten. - *****/ - -// If the OPSYMBOL macro is not defined for a specific purpose, define it with -// the default purpose of using SYM_PLUS etc. as external pre-translated -// symbols. - -#ifndef OPSYMBOL -#define OPSYMBOL(str, name) extern sym::symbol name -#endif - -END - -sub add { - print header "OPSYMBOL(\"".$_[0]."\", " . $_[1] . ");\n"; -} - -open(lexer, "camp.l") || - die("Couldn't open camp.l"); - -while (<lexer>) { - if (m/^"(\S+)"\s*{\s*DEFSYMBOL\((\w+)\);/) { - add($1, $2); - } - if (m/^(\w+)\s*{\s*DEFSYMBOL\((\w+)\);/) { - add($1, $2); - } - if (m/^\s*EXTRASYMBOL\(\s*(\w+)\s*,\s*(\w+)\s*\)/) { - add($1, $2); - } -} - -print header <<END - -/* This file is automatically generated. */ -END |