Path: utzoo!attcan!uunet!mailrus!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!rpi!uupsi!sunic!liuida!news
From: news@majestix.ida.liu.se (News Subsystem)
Newsgroups: alt.sources
Subject: TILE Forth Release 2.0, Package 4 of 6
Keywords: echo shar: Will not over-write existing file \"COPYING\"
Message-ID: <1935@majestix.ida.liu.se>
Date: 29 Jun 90 15:09:00 GMT
Organization: CIS Dept, Univ of Linkoping, Sweden
Lines: 11
X	Appendix: How to Apply These Terms to Your New Programs
    echo shar: \"COPYING\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"lib/multi-tasking.f83\"
X: .task ( task -- )
X: deactivate ( queue task -- )
X: activate ( task -- )
X: delay ( n -- )
X: join ( task -- )
X: who ( -- )
X: ps ( -- )
X: await ( condition -- )
X: cause ( condition -- )
X: mutex ( -- )
X: signal ( semaphore -- )
X: ?wait ( semaphore -- flag)
X: wait ( semaphore -- )
X: ?avail ( chan -- flag)
X: send ( data chan -- )
X: receive ( chan -- data)
X: accept ( -- rendezvous arg)
X: accept.end ( rendezvous res -- )
X: ?awaiting ( -- boolean)
X: make ( task.type -- task)
X: new-task ( -- task)
X: bytes ( users1 size -- users2)
X: field ( size -- )
X: struct ( -- )
X: task.body ( task.type users3 -- )
X: task.end ( -- )
    echo shar: \"lib/multi-tasking.f83\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"man/man1/tile.1\"
XEmail: mip@ida.liu.se
    echo shar: \"man/man1/tile.1\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"src/io.c\"
    echo shar: \"src/io.c\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"src/kernel.h\"
    echo shar: \"src/kernel.h\" unpacked with wrong size!
    if test ! -f ark${I}isdone ; then
	MISSING="${MISSING} ${I}"
    fi
    echo You have unpacked all 6 archives.
    rm -f ark[1-9]isdone
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}

--
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@ida.liu.se		UUCP: {uunet,mcsun,...}!liuida!mip
Bitnet: MIP@SELIUIDA			SUNET: LIUIDA::MIP