Subversion Repositories Vertical

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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";
  47.