Menu
▾
▴
Re: [WWdevel] [WWcvs] pg: put parserOrientation.pl in pg/macros since it is used in many courses
|
From: Michael G. <ga...@ma...> - 2008-06-26 23:56:52
|
Hi Davide,
I see your point. The counter argument is that
setOrientation.pg is being put in modelCourse and is likely
to be available on every course on the server.
(It's the one set I build for each new user on our hosted and hosted2
servers. I use
it instead of set 0. )
There is no space crunch, but duplicating setOrientation.pl
everywhere seems
inelegant.
Another argument (on the other side) is that including it in every
template directory
would give them an opportunity to modify macros -- much as they can
modify the questions in setOrientation.
Your thoughts?
Take care,
Mike
On Jun 26, 2008, at 7:49 PM, Davide P. Cervone wrote:
> parserOrientation.pl should only be used by the problems in the
> parserOrientation set, and they will find the .pl file there
> automatically (provided "." is in the path, which it is by default).
> So there is no need to add it to pg/macros, and I'd prefer you
> didn't, as that makes it look like it is a general macro file for use
> in other situations.
>
> Davide
>
>
> On Jun 26, 2008, at 1:16 PM, Mike Gage via activitymail wrote:
>
>> Log Message:
>> -----------
>> put parserOrientation.pl in pg/macros since it is used
>> in many courses
>>
>> Tags:
>> ----
>> rel-2-4-patches
>>
>> Added Files:
>> -----------
>> pg/macros:
>> parserOrientation.pl
>>
>> Revision Data
>> -------------
>> --- /dev/null
>> +++ macros/parserOrientation.pl
>> @@ -0,0 +1,229 @@
>> +#!/usr/local/bin/perl
>> +
>> +####################################################################
>> #
>> #
>> +#
>> +# Macros used by the orientation problem set
>> +#
>> +####################################################################
>> #
>> #
>> +
>> +
>> +#loadMacros("PGcourse.pl");
>> +
>> +#
>> +# Special use of CARET to have it work in non-math mode
>> +#
>> +$CARET = MODES(
>> + TeX => '\hbox{\texttt{\char`\^}}',
>> + Latex2HTML => '^',
>> + HTML => '^'
>> +);
>> +
>> +#
>> +# Functions to display student input and computer output
>> +# (written as functions so that we change the style without
>> +# recoding the problems themselves).
>> +#
>> +sub student {
>> + my $message = shift;
>> + MODES(
>> + TeX => '\leavevmode\hbox{\texttt{'.$message.'}}',
>> + Latex2HTML =>
>> + $bHTML.'<NOBR><TT>'.$eHTML.$message.$bHTML.'</TT></NOBR>'.
>> $eHTML,
>> + HTML => '<NOBR><TT>'.$message.'</TT></NOBR>'
>> + );
>> +}
>> +
>> +sub computer {
>> + my $message = shift;
>> + MODES(
>> + TeX => '\hbox{\texttt{'.$message.'}}',
>> + Latex2HTML =>
>> + $bHTML.'<NOBR><TT>'.$eHTML.$message.$bHTML.'</TT></NOBR>'.
>> $eHTML,
>> + HTML => '<NOBR><TT>'.$message.'</TT></NOBR>'
>> + );
>> +}
>> +
>> +#
>> +# This prints things we need to fill in yet in red
>> +#
>> +sub moreWork {
>> + my $message = shift;
>> + MODES(
>> + TeX => '{\sl ' . $message . '}',
>> + Latex2HTML => $bHTML . '<FONT COLOR="#A00000">' . $eHTML .
>> + $message . $bHTML . '</FONT>' . $eHTML,
>> + HTML => '<FONT COLOR="#A00000">' . $message . '</FONT>'
>> + );
>> +}
>> +
>> +#
>> +# Temporary macros to mark comments in areas that we are
>> +# working on.
>> +#
>> +$BCOMMENT = MODES(
>> + TeX => '{\footnotesize\it',
>> + Latex2HTML => $bHTML.'<BLOCKQUOTE><SMALL><I><FONT
>> COLOR="#A00000">'.$eHTML,
>> + HTML => '<BLOCKQUOTE><SMALL><I><FONT COLOR="#A00000">'
>> +);
>> +
>> +$ECOMMENT = MODES(
>> + TeX => '}',
>> + Latex2HTML => $bHTML.'</FONT></I></SMALL></BLOCKQUOTE>'.$eHTML,
>> + HTML => '</FONT></I></SMALL></BLOCKQUOTE>'
>> +);
>> +
>> +# $BCOMMENT = MODES(
>> +# TeX => '\iffalse',
>> +# Latex2HTML => $bHTML.'<!-- '.$eHTML,
>> +# HTML => '<!-- '
>> +# );
>> +#
>> +# $ECOMMENT = MODES(
>> +# TeX => '\fi',
>> +# Latex2HTML => $bHTML.' -->'.$eHTML,
>> +# HTML => ' -->'
>> +# );
>> +
>> +
>> +#
>> +# Hack to get better spacing in HTML_tth math mode but without
>> +# messing up the spacing in other modes.
>> +#
>> +$SP = MODES(
>> + TeX => ' ', Latex2HTML => ' ',
>> + HTML => ' ', HTML_tth => '\ ',
>> + HTML_jsMath => ' ', HTML_dpng => ' ',
>> +);
>> +
>> +
>> +#
>> +# Special table macros for questions that have
>> +# displayed math expressions equal to an answer rule,
>> +# with an accompanying explanation on a separate line.
>> +#
>> +
>> +sub BeginExamples {
>> + return "" if ($displayMode eq "TeX");
>> + BeginTable(@_);
>> +}
>> +
>> +sub EndExamples {
>> + return "" if ($displayMode eq "TeX");
>> + EndTable();
>> +}
>> +
>> +@ExampleDefaults = (ans_rule_len => 40, ans_rule_height => 1);
>> +
>> +sub BeginExample {
>> + my $math = shift;
>> + my $ans = shift;
>> + my %options = (@ExampleDefaults, @_);
>> + my ($cols,$rows) = ($options{ans_rule_len},$options
>> {ans_rule_height});
>> + my $rule;
>> +
>> + if ($rows == 1) {$rule = ans_rule($cols)}
>> + else {$rule = ans_box($rows,$cols)}
>> + ANS($ans);
>> +
>> + #
>> + # HTML_tth puts an unwanted <BR> at the beginning,
>> + # and uses a centered table. Remove the <BR> and
>> + # align the table to the right.
>> + #
>> + if ($displayMode eq "HTML_tth") {
>> + $math = trimString(EV2('\['.$math.'\]'));
>> + $math =~ s!<br clear="all" />!!;
>> + $math =~ s!table align="center"!table align="right"!;
>> + } elsif ($displayMode eq "HTML") {
>> + $math = '\('.$math.'\)'
>> + } elsif ($displayMode =~ m/^HTML/) {
>> + $math = '\(\displaystyle '.$math.'\)'
>> + }
>> +
>> + MODES(
>> + TeX => "\n".'\['.$math.'=\hbox to 8em{'.$rule.'}\]',
>> + Latex2HTML => $bHTML.'<TR><TD ALIGN="RIGHT">'.$eHTML.
>> + '\(\displaystyle '.$math.'\)'.$bHTML.'</
>> TD><TD> = </TD>'.
>> + '<TD>'.$eHTML.$rule.$bHTML.'</TD></TR>'.
>> + '<TR><TD></TD><TD></TD><TD>'.$eHTML,
>> + HTML =>
>> + '<TR><TD ALIGN="RIGHT">'.$math.'</
>> TD><TD> = </TD>'.
>> + '<TD>'.$rule.'</TD></TR><TR><TD COLSPAN="2"></TD><TD>'
>> + );
>> +}
>> +
>> +sub EndExample {
>> + MODES(
>> + TeX => "\n",
>> + Latex2HTML => $bHTML.'<BR><BR></TD></TR>'.$eHTML,
>> + HTML => '<BR><BR></TD></TR>'
>> + );
>> +}
>> +
>> +sub ExampleRule {
>> + MODES(
>> + TeX => '\par',
>> + Latex2HTML => $bHTML.'<TR><TD COLSPAN="3"><HR></TD></TR>'.
>> $eHTML,
>> + HTML => '<TR><TD COLSPAN="3"><HR></TD></TR>'
>> + );
>> +}
>> +
>> +#
>> +# Produce a TeX version and an answer checker for the formula
>> +#
>> +sub DisplayQA {my $f = shift; return (DMATH($f->TeX),$f->cmp)}
>> +sub QA {my $f = shift; return ($f->TeX,$f->cmp)}
>> +
>> +##################################################
>> +#
>> +# Insert an image of an equation (but use the equation
>> +# in TeX mode).
>> +#
>> +
>> +sub MathIMG {
>> + my ($img,$text,$tex) = @_;
>> + my $useTeX = MODES(TeX => 1, Latex2HTML => 0, HTML => 0,
>> HTML_tth => 0, HTML_dpng => 1);
>> + return '\('.$tex.'\)' if $useTeX;
>> + $img = alias($img);
>> + return qq{<IMG SRC="$img" BORDER="0" ALIGN="MIDDLE" ALT="$text">};
>> +}
>> +
>> +
>> +##################################################
>> +#
>> +# A simple grader that always returns a score of 1.
>> +# This is used in the tutorial to give students
>> +# credit for reading a problem (even if it doesn't
>> +# ask any questions).
>> +#
>> +sub forgiving_grader {
>> + my $rh_evaluated_answers = shift;
>> + my $rh_problem_state = shift;
>> + my %form_options = @_;
>> + my %evaluated_answers = %{$rh_evaluated_answers};
>> + my %problem_state = %{$rh_problem_state};
>> +
>> + my %problem_result = (
>> + score => 1, # always return 1
>> + errors => '',
>> + type => 'forgiving_grader',
>> + msg => '',
>> + );
>> +
>> + return(\%problem_result,\%problem_state)
>> + if (!$form_options{answers_submitted});
>> +
>> + $problem_state{recorded_score} = $problem_result{score};
>> + $problem_state{num_of_correct_ans}++;
>> +
>> + (\%problem_result, \%problem_state);
>> +}
>> +
>> +##################################################
>> +#
>> +# Syntactic sugar to avoid ugly ~~& construct in PG.
>> +#
>> +sub install_forgiving_grader {install_problem_grader
>> (\&forgiving_grader)}
>> +
>> +
>> +1;
>>
>> ---------------------------------------------------------------------
>> -
>> ---
>> Check out the new SourceForge.net Marketplace.
>> It's the best place to buy or sell services for
>> just about anything Open Source.
>> http://sourceforge.net/services/buy/index.php
>> _______________________________________________
>> OpenWeBWorK-CVS mailing list
>> Ope...@li...
>> https://lists.sf.net/lists/listinfo/openwebwork-cvs
>>
>>
>
>
> ----------------------------------------------------------------------
> ---
> Check out the new SourceForge.net Marketplace.
> It's the best place to buy or sell services for
> just about anything Open Source.
> http://sourceforge.net/services/buy/index.php
> _______________________________________________
> OpenWeBWorK-Devel mailing list
> Ope...@li...
> https://lists.sf.net/lists/listinfo/openwebwork-devel
>
|
