Subversion Repositories Vertical

#!/usr/local/bin/perl 

#

# $Id: extract_versions.pl,v 1.1.1.1 2003/11/04 23:34:58 mjames Exp $

#

# $Log: extract_versions.pl,v $

# Revision 1.1.1.1  2003/11/04 23:34:58  mjames

# Imported into local repositrory

#

# Revision 1.7  2002/09/30 13:28:37  MJAMES

# Tidy up

#

# Revision 1.1.1.1  2002/09/09 15:06:16  mjames

# no message

#

# Revision 1.6  2002/01/16 11:22:43  mjames

# database.h header file is read in first as it undefined DLL stuff irrelevant

# to HPUX

#

# Revision 1.5  2001/10/31 22:20:05  mjames

# Tidying up problematical comments caused by CVS

# 'intelligent' comment guessing

#

#

#This program uses an escaped form of the word 'Header' in the expression below

# because CVS mangles it otherwise

open OUT ,">versionlib/versions.c";

print OUT "\#include \<stdio.h\>\n";

print OUT "\#include \"expression.h\"\n";

print OUT "\#include \"generic.h\"\n";

print OUT "\#include \"database.h\"\n";

print OUT "\#include \"version.h\"\n";

print OUT "\#include \"cmdparse.h\"\n";

print OUT "\#include \"cmdlog.h\"\n";

print OUT "void list_versions(FILE * f) {\n";

print OUT "  Log(LOG_GENERAL,\"Modules in use in Vertical %s\\n\",Vertical_Version);";

while  ( <> ) {

  if ( s/\@\(\#\)\$[I]d:([^\$]*)/(\1)/ ) {

    print OUT "  Log(LOG_GENERAL,\"$1\\n\");\n";

    }

  if ( s/\@\(\#\)\$[H]eader:([^\$]*)/(\1)/ ) {

    print OUT "  Log(LOG_GENERAL,\"_$1\\n\");\n";

    }

  }

print OUT "}\n\n";