Reverted comment changes

Author: pstaabp

macros/contexts/contextAlternateDecimal.pl

@@ -145,10 +145,14 @@ =head2 SETTING THE ALTERNATE FORM AS THE DEFAULT
 
 =cut
 
+###########################################################
+
 loadMacros("MathObjects.pl");
 
 sub _contextAlternateDecimal_init { context::AlternateDecimal->Init }
 
+###########################################################
+
 package context::AlternateDecimal;
 
 #

macros/contexts/contextAlternateIntervals.pl

@@ -118,10 +118,14 @@ =head2 Setting the alternate form as the default
 
 =cut
 
+##########################################################################
+
 loadMacros("MathObjects.pl");
 
 sub _contextAlternateIntervals_init { context::AlternateIntervals->Init }
 
+##########################################################################
+
 package context::AlternateIntervals;
 
 #  Create the AlternateIntervals contexts
@@ -168,22 +172,23 @@ sub Enable {
 	$context->lists->set("Interval" => { class => "context::AlternateIntervals::Parser::Interval" });
 }
 
+#
 #  Sets the default Interval context to use alternate decimals.  The
 #  two arguments determine the values for the enterIntervals and
 #  displayIntervals flags.  If enterIntervals is "alternate", then
 #  student answers must use the alternate format for entering
 #  intervals (though professors can use either).
-
+#
 sub Default {
 	my $self    = shift;
 	my $enter   = shift || "either";
 	my $display = shift || "either";
 	my $cmp     = ($enter eq "alternate");
 	$enter = "either" if $cmp;
-
+	#
 	#  This adds the names from InequalitySetBuilder, but we need a better way to
 	#  link into contexts as they are created and copied.
-
+	#
 	my @InequalitySetBuilder = (
 		"SetBuilder::",                   "InequalitySetBuilder::",
 		"InequalitySetBuilderInterval::", "InequalitySetBuilderUnion::",
@@ -202,6 +207,8 @@ sub Default {
 	main::Context(main::Context()->{name});
 }
 
+##########################################################################
+
 package context::AlternateIntervals::Formula;
 our @ISA = ('Value::Formula');
 
@@ -234,12 +241,13 @@ sub Open {
 	$self->push($item);
 }
 
+#
 #  We need to modify the test for formInterval to NOT check the number
 #  of entries so that better error messages are produced, and to handle
 #  multiple close delimiters.  These are both in teh "operand" branch,
 #  so do the original for all the choices, and copy that branch here,
 #  with our modifications.
-
+#
 sub Close {
 	my ($self, $type, $ref) = @_;
 	$self->{ref} = $ref;
@@ -294,6 +302,8 @@ sub Close {
 
 sub class {'Formula'}
 
+##########################################################################
+
 package context::AlternateIntervals::Interval;
 our @ISA = ('Value::Interval');
 

macros/contexts/contextArbitraryString.pl

@@ -81,14 +81,16 @@ sub _contextArbitraryString_init {
 	$context->update;
 }
 
+#
 #  Handle creating String() constants
-
+#
 package context::ArbitraryString;
 sub new { shift; main::Compute(@_) }
 
+#
 #  Replacement for Parser::String that uses the original string verbatim
 #  (but replaces \r and \r\n by \n to handle different browser multiline input)
-
+#
 package context::ArbitraryString::Parser::String;
 our @ISA = ('Parser::String');
 
@@ -100,14 +102,16 @@ sub new {
 	$self->SUPER::new($equation, $value, $ref);
 }
 
+#
 #  Replacement for Value::String that creates preview strings
 #  that work for multiline input
-
+#
 package context::ArbitraryString::Value::String;
 our @ISA = ("Value::String");
 
+#
 #  Mark a multi-line string to be displayed verbatim in TeX
-
+#
 sub quoteTeX {
 	my $self = shift;
 	my $s    = shift;
@@ -117,8 +121,9 @@ sub quoteTeX {
 	"\\begin{array}{l}" . join("\\\\ ", @tex) . "\\end{array}";
 }
 
+#
 #  Quote HTML special characters
-
+#
 sub quoteHTML {
 	my $self = shift;
 	my $s    = $self->SUPER::quoteHTML(shift);
@@ -127,8 +132,9 @@ sub quoteHTML {
 	return $s;
 }
 
+#
 #  Adjust preview and strings so they display multiline answers properly.
-
+#
 sub cmp_preprocess {
 	my $self = shift;
 	my $ans  = shift;

macros/contexts/contextBaseN.pl

@@ -302,8 +302,9 @@ sub eval {
 package context::BaseN::BOP::modulo;
 our @ISA = ('Parser::BOP::divide');
 
+#
 #  Do the division.
-
+#
 sub _eval { $_[1] % $_[2] }
 
 #  A replacement for Value::Real that handles non-decimal integers

macros/contexts/contextComplexExtras.pl

@@ -97,22 +97,27 @@ sub _contextComplexExtras_init {
 	);
 }
 
+####################################################
+#
 #  Base UOP class that checks for matrix arguments
-
+#
 package context::ComplexExtras::UOP;
 our @ISA = ("Parser::UOP");
 
+#
 #  Check that the operand is a Matrix
-
+#
 sub _check {
 	my $self = shift;
 	$self->Error("'%s' is only defined for Matrices", $self->{def}{string})
 		unless $self->{op}->type eq "Matrix";
 }
 
+####################################################
+#
 #  Implements the ~ operation on matrices and complex numbers
 #    (as a left-associative unary operator)
-
+#
 package context::ComplexExtras::UOP::conjugate;
 our @ISA = ("context::ComplexExtras::UOP");
 
@@ -124,9 +129,11 @@ sub _check {
 
 sub _eval { shift; $_[0]->conj }
 
+####################################################
+#
 #  Implements the ^T operation on matrices and complex numbers
 #    (as a right-associative unary operator)
-
+#
 package context::ComplexExtras::UOP::transpose;
 our @ISA = ("context::ComplexExtras::UOP");
 
@@ -137,9 +144,11 @@ sub perl {
 	return '(' . $self->{op}->perl . '->transpose)';
 }
 
+####################################################
+#
 #  Implements the ^* operation on matrices and complex numbers
 #    (as a right-associative unary operator)
-
+#
 package context::ComplexExtras::UOP::conjtrans;
 our @ISA = ("context::ComplexExtras::UOP");
 
@@ -150,27 +159,32 @@ sub perl {
 	return '(' . $self->{op}->perl . '->transpose->conj)';
 }
 
+####################################################
+#
 #  Implement functions with one matrix input and complex output
-
+#
 package context::ComplexExtras::Function::matrix;
 our @ISA = ("Parser::Function");
 
+#
 #  Check for a single Matrix-valued input
-
+#
 sub _check { (shift)->checkMatrix("complex") }
 
+#
 #  Evaluate by promoting to a Matrix
 #    and then calling the routine from the Value package
-
+#
 sub _eval {
 	my $self = shift;
 	my $name = $self->{def}{method} || $self->{name};
 	$self->Package("Matrix")->promote($self->context, $_[0])->$name;
 }
 
+#
 #  Check for a single Matrix-valued argument. Then promote it to a Matrix (does error checking)
 #    and call the routine from Value package (after converting "tr" to "trace")
-
+#
 sub _call {
 	my $self = shift;
 	my $name = shift;

macros/contexts/contextComplexJ.pl

@@ -103,17 +103,22 @@ =head2 SETTING THE ALTERNATE FORM AS THE DEFAULT
 
 =cut
 
+##########################################################################
+
 loadMacros("MathObjects.pl");
 
 sub _contextComplexJ_init {
 	my $context = $main::context{Complex} = Parser::Context->getCopy("Complex");
 	context::ComplexJ->Enable($context);
 }
 
+###############################################################
+
 package context::ComplexJ;
 
+#
 #  Enables complex j notation in the given context
-
+#
 sub Enable {
 	my $self    = shift;
 	my $context = shift || main::Context();
@@ -136,12 +141,13 @@ sub Enable {
 	$context->update;
 }
 
+#
 #  Sets all the complex-based default contexts to use ComplexJ
 #  notation.  The two arguments determine the values for the
 #  enterComplex and displayComplex flags.  If enterComplex is "j",
 #  then student answers must use the j notation (though
 #  professors can use either).
-
+#
 sub Default {
 	my $self    = shift;
 	my $enter   = shift || "either";
@@ -162,7 +168,11 @@ sub Default {
 	main::Context(main::Context()->{name});
 }
 
-#  Handle Complex numbers so that they are displayed with the proper i or j value.
+###############################################################
+#
+#  Handle Complex numbers so that they are displayed
+#  with the proper i or j value.
+#
 
 package context::ComplexJ::Value::Complex;
 our @ISA = ('Value::Complex');
@@ -183,7 +193,11 @@ sub TeX {
 	return $z;
 }
 
-#  Make Parser Value object maintain the indicator for which notation was used for a complex number.
+###############################################################
+#
+#  Make Parser Value object maintain the indicator for
+#  which notation was used for a complex number.
+#
 
 package context::ComplexJ::Parser::Value;
 our @ISA = ('Parser::Value');
@@ -201,7 +215,11 @@ sub new {
 
 sub class {'Value'}
 
-#  Make sure complex numbers maintain their flag for which format was used to create them.
+###############################################################
+#
+#  Make sure complex numbers maintain their flag for
+#  which format was used to create them.
+#
 
 package context::ComplexJ::Parser::Complex;
 our @ISA = ('Parser::Complex');
@@ -215,9 +233,14 @@ sub eval {
 
 sub class {'Complex'}
 
-#  Produce error messages when the wrong notation is used for complex numbers.
-
-#  Swap i and j when required by the displayComplex flag in the output of constants.
+###############################################################
+#
+#  Produce error messages when the wrong notation
+#  is used for complex numbers.
+#
+#  Swap i and j when required by the displayComplex flag
+#  in the output of constants.
+#
 
 package context::ComplexJ::Parser::Constant;
 our @ISA = ('Parser::Constant');
@@ -259,4 +282,6 @@ sub TeX {
 
 sub class {'Constant'}
 
+###############################################################
+
 1;