Addieren

Ein Addierer in Wurst.xs


 int addor( eins, zwei )
         int eins
         int zwei
 CODE:
       RETVAL = ( eins + zwei );
 OUTPUT:
         RETVAL

Und Testcode in test.pl


 my ($links, $rechts) = ( 1, 2 );
 print "n jetzt wird plusgerechnet... $links + $rechts  = ",
       addor($links, $rechts), "n";

Ausgabe


 jetzt wird plusgerechnet... 1 + 2  = 3