[WWcvs] pg: Added missing "step" function that was defined in the AlgParser but

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Added missing "step" function that was defined in the AlgParser but
not in the Parser.

Be sure to copy the updated PGanswermacros.pl to the pg/macros directory.

Modified Files:
--------------
    pg/lib/Parser:
        Legacy.pm
    pg/lib/Parser/Legacy:
        PGanswermacros.pl

Added Files:
-----------
    pg/lib/Parser/Legacy:
        Numeric.pm

Revision Data
-------------
Index: Legacy.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Legacy.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -Llib/Parser/Legacy.pm -Llib/Parser/Legacy.pm -u -r1.1 -r1.2
--- lib/Parser/Legacy.pm
+++ lib/Parser/Legacy.pm
@@ -4,5 +4,6 @@
 
 use Parser::Legacy::NumberWithUnits;
 use Parser::Legacy::LimitedNumeric;
+use Parser::Legacy::Numeric;
 
 1;
Index: PGanswermacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Legacy/PGanswermacros.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -Llib/Parser/Legacy/PGanswermacros.pl -Llib/Parser/Legacy/PGanswermacros.pl -u -r1.6 -r1.7
--- lib/Parser/Legacy/PGanswermacros.pl
+++ lib/Parser/Legacy/PGanswermacros.pl
@@ -1050,7 +1050,7 @@
 	    last;
 	  };
 	  /^arith$/i     and do {
-	    $context = &$Context("Numeric")->copy;
+	    $context = &$Context("LegacyNumeric")->copy;
 	    $context->functions->disable('All');
 	    last;
 	  };
@@ -1060,7 +1060,7 @@
 	  };
 
 	  # default
-	  $context = &$Context("Numeric")->copy;
+	  $context = &$Context("LegacyNumeric")->copy;
 	}
 	$context->{format}{number} = $num_params{'format'};
 	$context->strings->clear;
@@ -1931,7 +1931,7 @@
 	#
 	#  Initialize the context for the formula
 	#
-	my $context = &$Context("Numeric")->copy;
+	my $context = &$Context("LegacyNumeric")->copy;
 	$context->flags->set(
 	  tolerance    => $func_params{'tolerance'},
 	  tolType      => $func_params{'tolType'},
--- /dev/null
+++ lib/Parser/Legacy/Numeric.pm
@@ -0,0 +1,19 @@
+##########################################################
+#
+#  Implements a context in which the "step" function
+#  is defined.  This was defined in the old AlgParser,
+#  but not in the Parser's standard Numeric context.
+#
+#  Warning:  since step is already defined in PGauxiliarymacros.pl
+#  we can't redefine it here, so you can't use step(formula) to
+#  automatically generate Formula objects, as you can with
+#  all the other functions.
+
+package Parser::Legacy::Numeric;
+our @ISA = qw(Parser::Function::numeric);
+sub step {shift; main::step((shift)->value)}
+
+my $context = $Parser::Context::Default::context{Numeric}->copy;
+$Parser::Context::Default::context{LegacyNumeric} = $context;
+$context->functions->add(step => {class => 'Parser::Legacy::Numeric'});
+