home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1523 < prev    next >
Internet Message Format  |  1990-12-28  |  4KB
  1. From: mip@IDA.LiU.SE (Mikael Patel)
  2. Newsgroups: alt.sources
  3. Subject: TILE Forth Release 2.0, Package 1 of 6
  4. Message-ID: <1932@majestix.ida.liu.se>
  5. Date: 29 Jun 90 15:05:25 GMT
  6.     echo shar: \"README\" unpacked with wrong size!
  7.     echo shar: Creating directory \"bin\"
  8.     mkdir bin
  9.   echo shar: Will not over-write existing file \"bin/forthtool\"
  10. X#    Email: mip@ida.liu.se
  11.     echo shar: \"bin/forthtool\" unpacked with wrong size!
  12.   echo shar: Will not over-write existing file \"bin/mkdoc\"
  13. X#    Email: mip@ida.liu.se
  14.     echo shar: \"bin/mkdoc\" unpacked with wrong size!
  15.   echo shar: Will not over-write existing file \"bin/short\"
  16. X#    Email: mip@ida.liu.se
  17.     echo shar: \"bin/short\" unpacked with wrong size!
  18.   echo shar: Will not over-write existing file \"bin/sop\"
  19. X#    Email: mip@ida.liu.se
  20.     echo shar: \"bin/sop\" unpacked with wrong size!
  21.     echo shar: Creating directory \"doc\"
  22.     mkdir doc
  23.     echo shar: Creating directory \"lib\"
  24.     mkdir lib
  25.     echo shar: Creating directory \"man\"
  26.     mkdir man
  27.     echo shar: Creating directory \"man/man1\"
  28.     mkdir man/man1
  29.     echo shar: Creating directory \"man/man3\"
  30.     mkdir man/man3
  31.     echo shar: Creating directory \"src\"
  32.     mkdir src
  33.   echo shar: Will not over-write existing file \"src/error.h\"
  34.     echo shar: \"src/error.h\" unpacked with wrong size!
  35.   echo shar: Will not over-write existing file \"src/io.h\"
  36.     echo shar: \"src/io.h\" unpacked with wrong size!
  37.   echo shar: Will not over-write existing file \"src/memory.c\"
  38.     echo shar: \"src/memory.c\" unpacked with wrong size!
  39.   echo shar: Will not over-write existing file \"src/memory.h\"
  40.     echo shar: \"src/memory.h\" unpacked with wrong size!
  41.   echo shar: Will not over-write existing file \"src/memory.v\"
  42.     echo shar: \"src/memory.v\" unpacked with
  43. X: foo ( x -- int)
  44. X: fie ( flag -- block[ x -- int])
  45. X: fac ( n -- n! )
  46.     echo shar: \"tst/blocks.tst\" unpacked with wrong size!
  47.   echo shar: Will not over-write existing file \"tst/bubble-sort.tst\"
  48. X: initiate-seed ( -- )  74755 seed ! ;
  49. X: random  ( -- n )  seed @ 1309 * 13849 + 65535 and dup seed ! ;
  50. X: initiate-list ( -- )
  51. X: dump-list ( -- )
  52. X: verify-list ( -- )
  53. X: bubble ( -- )
  54. X: bubble-sort ( -- )
  55. X: bubble-with-flag
  56. X: bubble-sort-with-flag ( -- )
  57.     echo shar: \"tst/bubble-sort.tst\" unpacked with wrong size!
  58.   echo shar: Will not over-write existing file \"tst/byte-sieve.tst\"
  59. X: do-prime ( -- )
  60. X: byte-sieve ( -- )
  61.     echo shar: \"tst/byte-sieve.tst\" unpacked with wrong size!
  62.   echo shar: Will not over-write existing file \"tst/channels.tst\"
  63. X: bind ( x -- )  binding receive swap ! ;
  64. X: wire ( x -- )  binding send ;
  65. X: WIRE ( -- )    ONE-TO-ONE CHAN this wire ;
  66. X: * ( x y -- z)  w1 send w2 send w3 receive ;
  67. X: fac ( n -- n!)
  68.     echo shar: \"tst/channels.tst\" unpacked with wrong size!
  69.   echo shar: Will not over-write existing file \"tst/colburn-sieve.tst\"
  70. X: do-prime ( -- )
  71. X: colburn-sieve ( -- )
  72.     echo shar: \"tst/colburn-sieve.tst\" unpacked with wrong size!
  73.   echo shar: Will not over-write existing file \"tst/debugger.tst\"
  74. X: foo ( n -- )
  75. X: fie ( n -- )
  76. X: fib ( n -- m)
  77. X: fib-tail ( a b c -- m)
  78. X: fib-iter ( n -- m)
  79.     echo shar: \"tst/debugger.tst\" unpacked with wrong size!
  80.   echo shar: Will not over-write existing file \"tst/double.tst\"
  81.     echo shar: \"tst/double.tst\" unpacked with wrong size!
  82.   echo shar: Will not over-write existing file \"tst/enumerates.tst\"
  83.     echo shar: \"tst/enumerates.tst\" unpacked with wrong size!
  84.   echo shar: Will not over-write existing file \"tst/fibonacci.tst\"
  85. X: fib ( n -- m)
  86. X: recursive-fib ( -- )
  87. X: fib-tail ( a b c -- m)
  88. X: fib-iter ( n -- m) 1 0 rot fib-tail ;
  89. X: tail-recursive-fib ( -- )
  90.     echo shar: \"tst/fibonacci.tst\" unpacked with wrong size!
  91.   echo shar: Will not over-write existing file \"tst/locals.tst\"
  92. X: swap { a b } b a ;
  93. X: dup { a } a a ;
  94. X: drop { a } ;
  95. X: rot { a b c } b c a ;
  96.  
  97. --
  98. Mikael R.K. Patel
  99. Researcher and Lecturer
  100. Computer Aided Design Laboratory (CADLAB)
  101. Department of Computer and Information Science
  102. Linkoping University, S-581 83  LINKOPING, SWEDEN
  103.  
  104. Phone: +46 13281821
  105. Telex: 8155076 LIUIDA S            Telefax: +46 13142231
  106. Internet: mip@ida.liu.se        UUCP: {uunet,mcsun,...}!liuida!mip
  107. Bitnet: MIP@SELIUIDA            SUNET: LIUIDA::MIP
  108.