^{Highley Recommended, Inc.}

CM Home
CM Resources
Getting Started
Config. Spec.
CM Procedures
Scripts
Triggers
CM Plan
ClearCase Best Practices
Merging
ClearCase FAQ

set_version

#!/bin/sh
exec Perl $0.bat $*

set_version.bat

@rem = 'Perl, ccperl read this as an array assignment & skip the goto
@echo off
goto endofperl
@rem ';
#!/usr/atria/bin/Perl
#----------------------------------------------------------------------
#    Copyright (C) 1997 - 2001  Highley Recommended, Inc.
#    Full text of copyright terms can be found in files Copying
#    or gpl.html.
#----------------------------------------------------------------------
  local ($NAME, $PURPOSE, $USAGE, $EXAMPLE, $RETURN, $NOTES);

    $NAME = "set_version";

 $PURPOSE = "Purpose: \n" .
	    "Create a C code function file with a \"what\" string \n" .
	    "with the version label selecting the current \n" .
	    "directory and execution login for printing version \n" .
	    "string.  Should be invoked from a make process.\n";

   $USAGE = "Usage: \n" .
	    "$NAME \n";

 $EXAMPLE = "Example: \n" .
	    "$NAME \n";

  $RETURN = "Return: \n" .
	    "0    - completed sucessfully.\n";

   $NOTES = "Notes: \n" .
	    "void version()\n";
#----------------------------------------------------------------------

# Exit Return Values
  local ($Allow, $DisAllow);
  $Allow    = 0;
  $DisAllow = 1;

# Standard Tools:
  local ($Ctool, $Cprompt);
  $Ctool   = "cleartool ";
  $Cprompt = "clearprompt ";

# Check to see if asking for help.
if ($ARGV[0] eq "-help")
{
    system ("$Cprompt" .
	' proceed' .
	' -type ok' .
	' -default proceed' .
	' -mask proceed' .
	' -prompt' .
	' "' .
	"Name:\n" .
	"$NAME\n\n" .
	"$PURPOSE\n" .
	"$USAGE\n" .
	"$EXAMPLE\n" .
	"$NOTES\n" .
	'"' .
	' -prefer_gui');

    exit $Allow;
}

# Get all labels in VOB.
local (*LABEL, $Label, %Labels);
open(LABEL, "$Ctool lstype " .
    '-obsolete ' .
    '-kind lbtype '.
    '-fmt "%n\n" |');

# Create a hash of the labels.
while($Label = )
{
    chomp($Label);
    $Labels{$Label} = $Label;
}
close(LABEL);

# Get configuration rule selecting current directory.
# Parse for rule selecting directory.
local (*RULE, $Rule, $Line);
open(RULE, "$Ctool ls -d . |");
$Line  = ;
close(RULE);
chomp($Line);
# Correct directory separater character.
$Line =~ s/\\/\//g;
# Parse line for rule selection part.
$Line =~ s/^.*(Rule: )(.*)/$2/;
$Rule = $Line;

# Create version file.
local (*TFILE);
open(TFILE, "> version.tmp");
binmode(TFILE);
print TFILE "#include \"vxWorks.h\"\n";
print TFILE "#include \"version.h\"\n\n";

print TFILE "char * vxWorksVersion = VXWORKS_VERSION;\n";
# Check to see if we are building with a label rule or frozen time.
if(($Labels{$Rule}) || ($Rule =~ '-time'))
{
    # Yes, use label or frozen time as version identification.
    print TFILE "char   Version[]      = \"@(#)$Rule\";\n";
}
else
{
    # No, use compiler preprocessor macros for date and time.
    print TFILE "char   Version[]      = \"@(#)\"__DATE__\", \"__TIME__;\n";
    # Remove version derived object file so we
    # will get a new date and time for build.
    unlink("version.o");
}
print TFILE "char * creationDate   = ∓Version[4];\n\n";

close(TFILE);

# Check for an existing version file.
local(*CFILE);
if(-f "version.c")
{
    open(TFILE, "< version.tmp");
    binmode(TFILE);
    open(CFILE, "< version.c");
    binmode(CFILE);

    # Stat files to get their sizes.
    ($Tdev,$Tino,$Tmode,$Tnlink,$Tuid,$Tgid,$Trdev,$Tsize,$Tatime,
     $Tmtime,$Tctime,$Tblksize,$Tblocks) = stat "version.tmp";
    ($Cdev,$Cino,$Cmode,$Cnlink,$Cuid,$Cgid,$Crdev,$Csize,$Catime,
     $Cmtime,$Cctime,$Cblksize,$Cblocks) = stat "version.c";

    # Are the files the same size?
    if($Tsize != $Csize)
    {
	    close(TFILE);
	    close(CFILE);
	    unlink "version.c";
	    rename "version.tmp", "version.c";
	    exit $Allow;
    }

    # Same size so compare each line in file.
    while( ($TLine = ) && ($CLine = ) )
    {
	chomp($TLine);
	chomp($CLine);
	if( $TLine eq $CLine)
	{
	    next;
	}
	else    # Files are different.
	{
	    close(TFILE);
	    close(CFILE);
	    unlink "version.c";
	    rename "version.tmp", "version.c";
	    exit $Allow;
	}
    }
    close(TFILE);
    close(CFILE);
    unlink "version.tmp";
}
else	# The file version.c did not exist.
{
    rename "version.tmp", "version.c";
}

exit $Allow;



__END__

:endofperl
ccperl -e "$s = shift; $c = $s =~ /.bat$/ ? $s : $s.'.bat'; $p = (-x $c) ? '' : '-S '; system('ccperl '.$p.$c.' '.join(' ',@ARGV)); exit $?;" %0 %1 %2 %3 %4 %5 %6 %7 %8 %9