TILE Forth Release 2.0, Package 1 of 6

[Mikael Patel]

X	: 2drop { a b } ;
X	: 2swap { a b c d } c d a b  ;
X	: fac { n } n 0> if n 1- recurse n * else 1 then ;
X	: div ( x y -- z)
X	: apply ( ... ) ... eval ... ;
X	: eval ( ... ) ... apply ... ;
X	: if ( -- ) compile (?branch) >mark ; compilation immediate
X	: someGlobalDefinitions ( -- ) ... ;
X	: somePrivateDefinitions ( -- ) ... ; private
X	: someDefinitions ( -- ) ... ; 
    echo shar: \"README\" unpacked with wrong size!
    echo shar: Creating directory \"bin\"
    mkdir bin
  echo shar: Will not over-write existing file \"bin/forthtool\"
X#	Email: mip at ida.liu.se
    echo shar: \"bin/forthtool\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"bin/mkdoc\"
X#	Email: mip at ida.liu.se
    echo shar: \"bin/mkdoc\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"bin/short\"
X#	Email: mip at ida.liu.se
    echo shar: \"bin/short\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"bin/sop\"
X#	Email: mip at ida.liu.se
    echo shar: \"bin/sop\" unpacked with wrong size!
    echo shar: Creating directory \"doc\"
    mkdir doc
    echo shar: Creating directory \"lib\"
    mkdir lib
    echo shar: Creating directory \"man\"
    mkdir man
    echo shar: Creating directory \"man/man1\"
    mkdir man/man1
    echo shar: Creating directory \"man/man3\"
    mkdir man/man3
    echo shar: Creating directory \"src\"
    mkdir src
  echo shar: Will not over-write existing file \"src/error.h\"
    echo shar: \"src/error.h\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"src/io.h\"
    echo shar: \"src/io.h\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"src/memory.c\"
    echo shar: \"src/memory.c\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"src/memory.h\"
    echo shar: \"src/memory.h\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"src/memory.v\"
    echo shar: \"src/memory.v\" unpacked with
X: foo ( x -- int)
X: fie ( flag -- block[ x -- int])
X: fac ( n -- n! )
    echo shar: \"tst/blocks.tst\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"tst/bubble-sort.tst\"
X: initiate-seed ( -- )  74755 seed ! ;
X: random  ( -- n )  seed @ 1309 * 13849 + 65535 and dup seed ! ;
X: initiate-list ( -- )
X: dump-list ( -- )
X: verify-list ( -- )
X: bubble ( -- )
X: bubble-sort ( -- )
X: bubble-with-flag
X: bubble-sort-with-flag ( -- )
    echo shar: \"tst/bubble-sort.tst\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"tst/byte-sieve.tst\"
X: do-prime ( -- )
X: byte-sieve ( -- )
    echo shar: \"tst/byte-sieve.tst\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"tst/channels.tst\"
X: bind ( x -- )  binding receive swap ! ;
X: wire ( x -- )  binding send ;
X: WIRE ( -- )    ONE-TO-ONE CHAN this wire ;
X: * ( x y -- z)  w1 send w2 send w3 receive ;
X: fac ( n -- n!)
    echo shar: \"tst/channels.tst\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"tst/colburn-sieve.tst\"
X: do-prime ( -- )
X: colburn-sieve ( -- )
    echo shar: \"tst/colburn-sieve.tst\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"tst/debugger.tst\"
X: foo ( n -- )
X: fie ( n -- )
X: fib ( n -- m)
X: fib-tail ( a b c -- m)
X: fib-iter ( n -- m)
    echo shar: \"tst/debugger.tst\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"tst/double.tst\"
    echo shar: \"tst/double.tst\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"tst/enumerates.tst\"
    echo shar: \"tst/enumerates.tst\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"tst/fibonacci.tst\"
X: fib ( n -- m)
X: recursive-fib ( -- )
X: fib-tail ( a b c -- m)
X: fib-iter ( n -- m) 1 0 rot fib-tail ;
X: tail-recursive-fib ( -- )
    echo shar: \"tst/fibonacci.tst\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"tst/locals.tst\"
X: swap { a b } b a ;
X: dup { a } a a ;
X: drop { a } ;
X: rot { a b c } b c a ;

--
Mikael R.K. Patel
Researcher and Lecturer
Computer Aided Design Laboratory (CADLAB)
Department of Computer and Information Science
Linkoping University, S-581 83  LINKOPING, SWEDEN

Phone: +46 13281821
Telex: 8155076 LIUIDA S			Telefax: +46 13142231
Internet: mip at ida.liu.se		UUCP: {uunet,mcsun,...}!liuida!mip
Bitnet: MIP at SELIUIDA			SUNET: LIUIDA::MIP