Data update

Task/Function-definition/Amazing-Hopper/function-definition.hopper

@@ -0,0 +1,62 @@
+/* this need data into stack */
+#context  Multiplication
+    mul
+    Return \\
+#synon Multiplication   *getproduct
+
+#context-free anothermul
+    /* #defn Args(*)  #GENCODE $$$*$$$ #REVLIST=0,mov(#REVLIST);#ENDGEN, */
+    Args 'a,b'
+    Return ( #(a*b) )\\
+#synon anothermul    *getanotherproduct
+
+#include <jambo.h>
+
+#prototype _multiply(_X_,_Y_)
+#synon  __multiply   Multiply
+
+Main
+    /* "prototipos" of functions and procedures.
+       Solves internaly */
+    Printnl ( Multiply ( 10, 4 ) )
+    Printnl ( __multiply ( 10, 4 ) )
+
+    /* definición alternativa 1 */
+    Printnl ( Set' 10,4 ', Gosub ' Multiply2 ')
+
+    /* aseembler Hopper 1 */
+    {10,4} jsub( Multiply3 ), {"\n"} print
+
+    /* assembler Hopper 2 */
+    {10,4} jsub( Multiply4 ), {"\n"} print
+
+    /* context */
+    Set '10,4', now get product, and print with newline
+
+    /* context-free */
+    Set '10,4', and get another product; then print with newline
+
+End
+
+.locals  /* Subrutines */
+
+_multiply(a,b)
+Return ( Mul(a,b) )
+
+/* Define is macro. Others macros: Function, Procedure:
+#defn    Define(_F_,*)       _F_:,#GENCODE $$$*$$$ #REVLIST=0;mov(#REVLIST);#ENDGEN;
+#defn    Function(_F_,*)     _F_:,#GENCODE $$$*$$$ #REVLIST=0;mov(#REVLIST);#ENDGEN;
+#defn    Procedure(_F_,*)    _F_:,#GENCODE $$$*$$$ #REVLIST=0;mov(#REVLIST);#ENDGEN;
+*/
+Define 'Multiply2, a,b'
+Return ( Mul(a,b) )
+
+Multiply3:
+   b=0, mov(b), a=0, mov(a)
+   {a,b}mul  /* result into stack */
+Return
+
+Multiply4:
+   mul   /* get values from stack,
+            and put result into stack */
+back  /* Return */