Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,36 @@
|
|||
#!/usr/bin/hopper
|
||||
|
||||
// Archivo Hopper
|
||||
#include <hopper.h>
|
||||
|
||||
#context-free noargs /* Declare a pseudo-function with no argument */
|
||||
#synon noargs no arguments
|
||||
#context multiargs /* Declare a pseudo-function with multi arguments */
|
||||
#proto twoargs(_X_,_Y_) /* Declare a pseudo-function with two arguments. #PROTO need arguments */
|
||||
|
||||
main:
|
||||
no arguments
|
||||
_two args(2,2) // pseudo-function #proto need "_" sufix
|
||||
println
|
||||
{1,2,3,"hola mundo!","\n"}, multiargs
|
||||
exit(0)
|
||||
|
||||
.locals
|
||||
|
||||
multiargs:
|
||||
_PARAMS_={},pushall(_PARAMS_)
|
||||
[1:3]get(_PARAMS_),stats(SUMMATORY),println
|
||||
{"Mensaje: "}[4:5]get(_PARAMS_),println
|
||||
clear(_PARAMS_)
|
||||
back
|
||||
|
||||
twoargs(a,b)
|
||||
{a}mulby(b)
|
||||
back
|
||||
|
||||
// This function is as useful a s an ashtray on a motorcycle:
|
||||
no args:
|
||||
{0}minus(0),kill
|
||||
back
|
||||
|
||||
{0}return
|
||||
Loading…
Add table
Add a link
Reference in a new issue