Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | mjames | 1 | #!/usr/local/bin/perl |
| 2 | # |
||
| 3 | # $Id: extract_versions.pl,v 1.1.1.1 2003/11/04 23:34:58 mjames Exp $ |
||
| 4 | # |
||
| 5 | # $Log: extract_versions.pl,v $ |
||
| 6 | # Revision 1.1.1.1 2003/11/04 23:34:58 mjames |
||
| 7 | # Imported into local repositrory |
||
| 8 | # |
||
| 9 | # Revision 1.7 2002/09/30 13:28:37 MJAMES |
||
| 10 | # Tidy up |
||
| 11 | # |
||
| 12 | # Revision 1.1.1.1 2002/09/09 15:06:16 mjames |
||
| 13 | # no message |
||
| 14 | # |
||
| 15 | # Revision 1.6 2002/01/16 11:22:43 mjames |
||
| 16 | # database.h header file is read in first as it undefined DLL stuff irrelevant |
||
| 17 | # to HPUX |
||
| 18 | # |
||
| 19 | # Revision 1.5 2001/10/31 22:20:05 mjames |
||
| 20 | # Tidying up problematical comments caused by CVS |
||
| 21 | # 'intelligent' comment guessing |
||
| 22 | # |
||
| 23 | # |
||
| 24 | #This program uses an escaped form of the word 'Header' in the expression below |
||
| 25 | # because CVS mangles it otherwise |
||
| 26 | open OUT ,">versionlib/versions.c"; |
||
| 27 | print OUT "\#include \<stdio.h\>\n"; |
||
| 28 | print OUT "\#include \"expression.h\"\n"; |
||
| 29 | print OUT "\#include \"generic.h\"\n"; |
||
| 30 | print OUT "\#include \"database.h\"\n"; |
||
| 31 | print OUT "\#include \"version.h\"\n"; |
||
| 32 | print OUT "\#include \"cmdparse.h\"\n"; |
||
| 33 | print OUT "\#include \"cmdlog.h\"\n"; |
||
| 34 | |||
| 35 | print OUT "void list_versions(FILE * f) {\n"; |
||
| 36 | print OUT " Log(LOG_GENERAL,\"Modules in use in Vertical %s\\n\",Vertical_Version);"; |
||
| 37 | while ( <> ) { |
||
| 38 | |||
| 39 | if ( s/\@\(\#\)\$[I]d:([^\$]*)/(\1)/ ) { |
||
| 40 | print OUT " Log(LOG_GENERAL,\"$1\\n\");\n"; |
||
| 41 | } |
||
| 42 | if ( s/\@\(\#\)\$[H]eader:([^\$]*)/(\1)/ ) { |
||
| 43 | print OUT " Log(LOG_GENERAL,\"_$1\\n\");\n"; |
||
| 44 | } |
||
| 45 | } |
||
| 46 | print OUT "}\n\n"; |