head	1.2;
access;
symbols;
locks; strict;
comment	@# @;


1.2
date	2001.06.28.13.58.07;	author david;	state Exp;
branches;
next	1.1;

1.1
date	2001.05.23.13.11.13;	author david;	state Exp;
branches;
next	;


desc
@@


1.2
log
@*** empty log message ***
@
text
@#!/usr/bin/perl
#
# Makes CGIF graphs compatible with the 1999 dpANS document since at the
# time of writing, pCG was not yet fully CGIF compliant with respect to the 
# June 2001 CGIF specification.
#
# Reads from standard input or the specified files. Writes to standard output.
#
# Also need to fix single bare "Situation:" occurrence manually. This should 
# be within '[' and ']'.
#
# dbenn, May 2001

while (<>) {
  my $line = $_;

  if (m/\:lambda/) {
    $line =~ s/:lambda//g; # replace "lambda" with nothing; can't use!
  }
  
  print $line;
}
@


1.1
log
@Initial revision
@
text
@d3 3
a5 2
# Makes CGIF graphs compatible with the dpANS document since pCG is not yet
# fully CGIF compliant with respect to the December 2000 CGIf specification.
@
