OSDev.org

Code: Select all

< x , "text" >                    # match the value of x followed by the string "text"
< x / y , "text" >                # match x or y followed by text
< 2 * x , "text" >                # match x 2 times followed by text
< 2 + 2 * x, "text" >             # match x 2-4 times followed by text
< 4 - 1 * x, "text" >             # match x 3-4 times followed by text
< 1 - . * x , "text" >            # match x zero or one times followed by text
< 1 + . * x , "text" >            # match x one or more times followed by text
< 0 + . * x , "text" >            # match x zero or more times followed by text
< (x+8) >                         # match the value of the expression x + 8
< < x , y > / z >                 # match x followed by y or z

Code: Select all

if:    `('
then:  `)?:{'
end:   `}'

let:;
be: `:';

Code: Select all

x : 5;
(x = 5)?:{
  print "hi";
}

Code: Select all

let x be 5;

if x = 5 then
  print "hi";
end

Code: Select all

#* Main entry point function (fake) *#
main: argc argv
  {
    s: "Hello World!\n";
    x, y: 5, 6;

    (x = 5)?
      print s;

    # This is a 'do' block piping "Hello World!" to magic.
    :
      {
        s >> magic;
      }

    # This is an 'on' statement for receiving signals
    !error
      print "Error: Invalid input stream.\n";

    # Run a program...literally...
    $ `cc -o example example.c'
  }

#* This is a magic pattern function! *#
magic:<"Worl">
  {
    print "It's magic!";
  }

Code: Select all

/* Main entry point function */
main(argc, argv)
{
	s = "Hello World!\n";
	x = 5;
	y = 6;

	if (x == 5)
	{
		print(s);
	}

	//This is a block to output Hello World! to magic
	{
		magic(s);
	}

	//This checks for an error signal
	if (was_error())
	{
		print("Error: Invalid input stream.\n");
	}

	//run an external program
	run("cc -o example example.c");
}

/* Not even sure what this is supposed to do? */
magic(value)
{
	print("It's magic!");
}