home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1527 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  3.0 KB
  1. From: news@majestix.ida.liu.se (News Subsystem)
  2. Newsgroups: alt.sources
  3. Subject: TILE Forth Release 2.0, Package 3 of 6
  4. Message-ID: <1934@majestix.ida.liu.se>
  5. Date: 29 Jun 90 15:07:53 GMT
  6.     echo shar: \"PORTING\" unpacked with wrong size!
  7.   echo shar: Will not over-write existing file \"lib/debugger.f83\"
  8. X: [advice] ( advice -- )
  9. X: [colon] ( advice -- )
  10. X: [trace] ( advice -- )
  11. X: [break] ( advice -- )
  12. X: tail-recurse ( -- )
  13. X: ?advice ( entry -- flag)
  14. X: advice ( action -- )
  15. X: colon ( -- )
  16. X: trace ( -- )
  17. X: break ( -- )
  18. X: .profile ( -- )
  19. X: : ( -- )
  20.     echo shar: \"lib/debugger.f83\" unpacked with wrong size!
  21.   echo shar: Will not over-write existing file \"lib/internals.f83\"
  22. X: .entry ( entry -- )
  23. X: .context ( -- )
  24. X: .current ( -- )
  25. X: .entries ( type -- )
  26.     echo shar: \"lib/internals.f83\" unpacked with wrong size!
  27.   echo shar: Will not over-write existing file \"lib/queues.f83\"
  28. X: succ ( queue -- succ)
  29. X: pred ( queue -- pred)
  30. X: ?empty-queue ( queue -- bool)
  31. X: enqueue ( item queue -- )
  32. X: dequeue ( item -- )
  33. X: size-queue ( queue -- int)
  34. X: map-queue ( queue block[item -- ] -- )
  35. X: ?map-queue ( queue block[item -- bool] -- )
  36. X: ?member-queue ( element queue -- bool)
  37. X: .queue ( queue -- )
  38.     echo shar: \"lib/queues.f83\" unpacked with wrong size!
  39.   echo shar: Will not over-write existing file \"lib/structures.f83\"
  40. X: as ( -- struct)
  41. X: this ( -- ptr)
  42. X: initiate ( ptr struct -- )
  43. X: make ( struct -- ptr)
  44. X: new ( -- ptr)
  45. X: sizeof ( -- size)
  46. X: assign ( a b -- )
  47. X: struct.type ( -- struct offset0)
  48. X: bytes ( offset1 n -- offset2)
  49. X: align ( offset1 -- offset2)
  50. X: field ( bytes -- )
  51. X: struct ( -- )
  52. X: struct.init ( struct offset3 -- )
  53. X: struct.does ( -- )
  54. X: struct.end ( [] or [struct offset3] -- )  
  55.     echo shar: \"lib/structures.f83\" unpacked with wrong size!
  56.   echo shar: Will not over-write existing file \"src/compiler.v\"
  57.     echo shar: \"src/compiler.v\" unpacked with wrong size!
  58.   echo shar: Will not over-write existing file \"src/error.c\"
  59.     echo shar: \"src/error.c\" unpacked with wrong size!
  60.   echo shar: Will not over-write existing file \"src/forth.c\"
  61.     echo shar: \"src/forth.c\" unpacked with wrong size!
  62.   echo shar: Will not over-write existing file \"src/locals.v\"
  63.     echo shar: \"src/locals.v\" unpacked with wrong size!
  64.   echo shar: Will not over-write existing file \"src/multi-tasking.v\"
  65.     echo shar: \"src/multi-tasking.v\" unpacked with wrong size!
  66.     if test ! -f ark${I}isdone ; then
  67.     MISSING="${MISSING} ${I}"
  68.     fi
  69.     echo You have unpacked all 6 archives.
  70.     rm -f ark[1-9]isdone
  71.     echo You still need to unpack the following archives:
  72.     echo "        " ${MISSING}
  73.  
  74. --
  75. Mikael R.K. Patel
  76. Researcher and Lecturer
  77. Computer Aided Design Laboratory (CADLAB)
  78. Department of Computer and Information Science
  79. Linkoping University, S-581 83  LINKOPING, SWEDEN
  80.  
  81. Phone: +46 13281821
  82. Telex: 8155076 LIUIDA S            Telefax: +46 13142231
  83. Internet: mip@ida.liu.se        UUCP: {uunet,mcsun,...}!liuida!mip
  84. Bitnet: MIP@SELIUIDA            SUNET: LIUIDA::MIP
  85.