diff options
Diffstat (limited to 'inc/bf_sw/poolfmt.awk')
-rw-r--r-- | inc/bf_sw/poolfmt.awk | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/inc/bf_sw/poolfmt.awk b/inc/bf_sw/poolfmt.awk new file mode 100644 index 000000000..8ce5a76f2 --- /dev/null +++ b/inc/bf_sw/poolfmt.awk @@ -0,0 +1,71 @@ +#************************************************************************* +#* +#* $Workfile: dbgxtor.awk +#* +#* $Revision: 1.1.1.1 $ +#* +#* $Logfile: T:/sw/inc/poolfmt.awv $ +#* +#* Copyright (c) 1990-1996, STAR DIVISION +#* +#************************************************************************* + +# +# Dieses awk-script generiert ein cxx-file, das alle PoolIds der Vorlage dumpt. +# wird fuer den HelpPI gebraucht. +# Aufruf: awk -f poolid.awk poolfmt.hxx > poolid.cxx +# cl poolid.cxx +# poolid.exe > ???.hrc +# + +function Header() { + print "// This is an outputfile of an awk-script: $Workfile: poolfmt.awk $" + print "#include <solar.h> " + print + print "#include <stdio.h>" + print "#include <stdlib.h>" + print + print "#pragma hdrstop" + print + print "#include <iostream.hxx> " + print "#include \"poolfmt.hxx\"" + print +} + +function Main() { + print + print "void main( int , char *[] ) {" + sStr = "#define" + print " int nSize = (sizeof(ppPoolIds) / sizeof(PoolFmtIds)) - 1;" + print " for( int n = 0; n < nSize; n++ )" + print " printf( \"" sStr " %s\\t%8d\\n\", ppPoolIds[ n ].pStr, ppPoolIds[ n ].nId );" + print "}" +} + +function TableHead() { + print + print "struct PoolFmtIds { int nId; const char* pStr; };" + print "static PoolFmtIds ppPoolIds[] = {" +} + +function TableTail() { + print " 0, \"\" };" + print +} + +BEGIN { + Header(); + TableHead(); +} + +/^[ \t]*RES_/ && !index( $1, "_BEGIN" ) && !index( $1, "_END" ) && !index( $1, "_POOL_" ) { + sStr = $1; + split( $1, sStr, "," ); + print " " sStr[1] ", \"" sStr[1] "\"," +} + +END { + TableTail(); + Main(); +} + |