fork.mu - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log tree commit diff stats

path: root/fork.mu

blob: af414cf2040c2a9cb20096e31e4c8e1c0575e4b6 (plain) (blame)

# example program: running multiple routines

def main [
  start-running thread2
  {
    $print 34
    loop
  }
]

def thread2 [
  {
    $print 35
    loop
  }
]

pan class="w"> break; } :(before "End Primitive Recipe Implementations") case REAL_RANDOM: { // todo: limited range of numbers, might be imperfectly random // todo: thread state in extra ingredients and products products.resize(1); products.at(0).push_back(rand()); break; } :(before "End Primitive Recipe Declarations") MAKE_RANDOM_NONDETERMINISTIC, :(before "End Primitive Recipe Numbers") put(Recipe_ordinal, "make-random-nondeterministic", MAKE_RANDOM_NONDETERMINISTIC); :(before "End Primitive Recipe Checks") case MAKE_RANDOM_NONDETERMINISTIC: { break; } :(before "End Primitive Recipe Implementations") case MAKE_RANDOM_NONDETERMINISTIC: { srand(time(NULL)); break; } // undo non-determinism in later tests :(before "End Reset") srand(0);