Select Code to Download

sub demacro($)
{
...
    }
    return $text;
}

    macrodef : '#define' /[a-z]\w*/i
        '(' <leftop: /[a-z]+/i ',' /[a-z]+/i> ')'  /.*/
            { $::macro{$item[2]} = [ $item[-1], $item[4] ]; }
         | '#define' /[a-z]\w*/i  /.*/
            { $::macro{$item[2]} = [ $item[-1] ]; }

#define        add(a,b,c)        (a+b+c)
#define        mult(d,e)        (d*e)
...
    mult(4,5);
    float p = pi;
}