home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1528 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  2.0 KB
  1. From: news@majestix.ida.liu.se (News Subsystem)
  2. Newsgroups: alt.sources
  3. Subject: TILE Forth Release 2.0, Package 4 of 6
  4. Message-ID: <1935@majestix.ida.liu.se>
  5. Date: 29 Jun 90 15:09:00 GMT
  6.     echo shar: \"COPYING\" unpacked with wrong size!
  7.   echo shar: Will not over-write existing file \"lib/multi-tasking.f83\"
  8. X: .task ( task -- )
  9. X: deactivate ( queue task -- )
  10. X: activate ( task -- )
  11. X: delay ( n -- )
  12. X: join ( task -- )
  13. X: who ( -- )
  14. X: ps ( -- )
  15. X: await ( condition -- )
  16. X: cause ( condition -- )
  17. X: mutex ( -- )
  18. X: signal ( semaphore -- )
  19. X: ?wait ( semaphore -- flag)
  20. X: wait ( semaphore -- )
  21. X: ?avail ( chan -- flag)
  22. X: send ( data chan -- )
  23. X: receive ( chan -- data)
  24. X: accept ( -- rendezvous arg)
  25. X: accept.end ( rendezvous res -- )
  26. X: ?awaiting ( -- boolean)
  27. X: make ( task.type -- task)
  28. X: new-task ( -- task)
  29. X: bytes ( users1 size -- users2)
  30. X: field ( size -- )
  31. X: struct ( -- )
  32. X: task.body ( task.type users3 -- )
  33. X: task.end ( -- )
  34.     echo shar: \"lib/multi-tasking.f83\" unpacked with wrong size!
  35.   echo shar: Will not over-write existing file \"man/man1/tile.1\"
  36. XEmail: mip@ida.liu.se
  37.     echo shar: \"man/man1/tile.1\" unpacked with wrong size!
  38.   echo shar: Will not over-write existing file \"src/io.c\"
  39.     echo shar: \"src/io.c\" unpacked with wrong size!
  40.   echo shar: Will not over-write existing file \"src/kernel.h\"
  41.     echo shar: \"src/kernel.h\" unpacked with wrong size!
  42.     if test ! -f ark${I}isdone ; then
  43.     MISSING="${MISSING} ${I}"
  44.     fi
  45.     echo You have unpacked all 6 archives.
  46.     rm -f ark[1-9]isdone
  47.     echo You still need to unpack the following archives:
  48.     echo "        " ${MISSING}
  49.  
  50. --
  51. Mikael R.K. Patel
  52. Researcher and Lecturer
  53. Computer Aided Design Laboratory (CADLAB)
  54. Department of Computer and Information Science
  55. Linkoping University, S-581 83  LINKOPING, SWEDEN
  56.  
  57. Phone: +46 13281821
  58. Telex: 8155076 LIUIDA S            Telefax: +46 13142231
  59. Internet: mip@ida.liu.se        UUCP: {uunet,mcsun,...}!liuida!mip
  60. Bitnet: MIP@SELIUIDA            SUNET: LIUIDA::MIP
  61.