[perl #49358] [PATCH][lolcode] Math support for lolcode.

[via RT]

# New Ticket Created by  Stephen Weeks 
# Please include the string:  [perl #49358]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=49358 >


Add math support to lolcode.

math ops are in src/builtins/math.pir

Index: MANIFEST
===================================================================
--- MANIFEST    (revision 24517)
+++ MANIFEST    (working copy)
@@ -1542,6 +1542,7 @@
 languages/lolcode/config/makefiles/root.in                  [lolcode]
 languages/lolcode/lolcode.pir                               [lolcode]
 languages/lolcode/src/builtins/say.pir                      [lolcode]
+languages/lolcode/src/builtins/math.pir                     [lolcode]
 languages/lolcode/src/builtins/var_or_function.pir          [lolcode]
 languages/lolcode/src/parser/actions.pm                     [lolcode]
 languages/lolcode/src/parser/grammar.pg                     [lolcode]
Index: languages/lolcode/config/makefiles/root.in
===================================================================
--- languages/lolcode/config/makefiles/root.in  (revision 24523)
+++ languages/lolcode/config/makefiles/root.in  (working copy)
@@ -39,6 +39,7 @@
 
 BUILTINS_PIR = \
   src/builtins/say.pir \
+  src/builtins/math.pir \
   src/builtins/var_or_function.pir
 
 # PMCS = lolcode
Index: languages/lolcode/src/builtins/math.pir
===================================================================
--- languages/lolcode/src/builtins/math.pir     (revision 0)
+++ languages/lolcode/src/builtins/math.pir     (revision 0)
@@ -0,0 +1,61 @@
+
+.sub 'SUM'
+    .param pmc x
+    .param pmc y
+    $P0 = n_add x, y
+    .return ($P0)
+.end
+
+.sub 'DIFF'
+    .param pmc x
+    .param pmc y
+    $P0 = n_sub x, y
+    .return ($P0)
+.end
+
+.sub 'PRODUKT'
+    .param pmc x
+    .param pmc y
+    $P0 = n_mul x, y
+    .return ($P0)
+.end
+
+.sub 'QUOSHUNT'
+    .param pmc x
+    .param pmc y
+    $P0 = n_div x, y
+    .return ($P0)
+.end
+
+.sub 'MOD'
+    .param num x
+    .param num y
+    $N0 = mod x, y
+    .return ($N0)
+.end
+
+.sub 'BIGGR'
+    .param pmc x
+    .param pmc y
+    $I0 = islt x, y
+    if $I0 goto y_biggr
+    .return (x)
+  y_biggr:
+    .return (y)
+.end
+
+.sub 'SMALLR'
+    .param pmc x
+    .param pmc y
+    $I0 = isgt x, y
+    if $I0 goto y_smallr
+    .return (x)
+  y_smallr:
+    .return (y)
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lolcode/src/parser/actions.pm
===================================================================
--- languages/lolcode/src/parser/actions.pm     (revision 24523)
+++ languages/lolcode/src/parser/actions.pm     (working copy)
@@ -124,6 +124,12 @@
     make PAST::Val.new( :value( $($<string_literal>) ), :node($/) );
 }
 
+method math($/) {
+    my $past := PAST::Op.new( :name(~$<op>), :node($/) );
+    $past.push( $($<x>) );
+    $past.push( $($<y>) );
+    make $past;
+}
 
 method identifier($/) {
     make PAST::Val.new( :value( ~$/ ), :node($/) );
Index: languages/lolcode/src/parser/grammar.pg
===================================================================
--- languages/lolcode/src/parser/grammar.pg     (revision 24523)
+++ languages/lolcode/src/parser/grammar.pg     (working copy)
@@ -61,6 +61,7 @@
 }
 
 rule value {
+    | <math>     {*}                             #= math
     | <integer>  {*}                             #= integer
     | <quote>    {*}                             #= quote
 }
@@ -70,7 +71,7 @@
 token identifier { <!keyword> $<name>=( <[a..zA..Z]> \w* ) {*} }
 
 token keyword {
-    'HOW' | 'I' | 'SAY' | 'SO' | 'U' | 'YR' | 'R' | 'AN'  | 'IF' | 'KTHXBYE'
+    'HOW' | 'I' | 'SAY' | 'SO' | 'U' | 'YR' | 'R' | 'AN'  | 'IF' | 'KTHXBYE' | 
'OF' | 'AN' | <math_word>
 }
 
 rule integer { \d+ {*} }
@@ -82,6 +83,14 @@
     {*}
 }
 
+rule math {
+    $<op>=<math_word> OF $<x>=<expression> AN $<y>=<expression>       {*}
+}
+
+token math_word {
+    SUM | DIFF | PRODUKT | QUOSHUNT | MOD | BIGGR | SMALLR
+}
+
 token ws { <!ww> [
     | ^^ \h* BTW \h \N* \n+
     | ^^ \h* OBTW .*? ^^ \h* TLDR \n+