Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/altsrcs/1/1524

Internet Message Format | 1990-12-28 | 3.2 KB

From: [e-mail] (News Subsystem)
Newsgroups: alt.sources
Subject: TILE Forth Release 2.0, Packages 2 of 6
Message-ID: <[e-mail]>
Date: 29 Jun 90 15:06:34 GMT
    echo shar: \"INSTALL\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"Makefile\"
X#    Email: [e-mail]
    echo shar: \"Makefile\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"bin/forthicon\"
    echo shar: \"bin/forthicon\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"lib/bitfields.f83\"
X: b@ ( x pos -- bool)
X: b! ( x y pos -- z)
X: f@ ( x pos width -- y)
X: <f@ ( x pos width -- y)
X: f! ( x y pos width -- z)
X: bitfield.type ( -- pos0)
X: bits ( pos1 width -- pos2)
X: field ( width -- )
X: bitfield.end ( pos3 -- )
    echo shar: \"lib/bitfields.f83\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"lib/blocks.f83\"
X: block[ ( -- )
X: ]; ( -- block)
X: call ( block -- )
    echo shar: \"lib/blocks.f83\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"lib/double.f83\"
X: double ( low high -- )
X: .double ( addr -- )
X: 2>r ( a b -- ) >r >r ; macro compilation
X: 2r> ( -- a b) r> r> swap ; macro compilation
X: 2drop ( a b - ) drop drop ; macro
X: 2swap ( a b c d -- c d a b) rot >r rot r> ; macro
X: 2rot ( a b c d e f -- c d e f a b) 2>r 2swap 2r> 2swap ;
X: 2dup ( a b -- a b a b) over over ; macro
X: 2over ( a b c d -- a b c d a b) 3 pick 3 pick ; macro
X: 2@f ( addr -- a b) dup +low @ swap +high @ ; macro
X: 2! ( a b addr -- ) tuck +high ! +low ! ; macro
    echo shar: \"lib/double.f83\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"lib/enumerates.f83\"
X: enum.type ( -- id0)
X: enum.null ( id1 -- id2)
X: >enum ( value -- )
X: enum ( id1 -- id2)
X: enum.end ( id3 -- )
    echo shar: \"lib/enumerates.f83\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"lib/lists.f83\"
X: list ( n -- )
X: empty-list ( list -- )
X: search-list ( element list -- [element last] or [false])
X: append-list ( element list -- )
X: insert-list ( element list -- )
X: size-list ( list -- int)
X: map-list ( list block[element -- ] -- )
X: ?map-list ( list block[element -- bool] -- )
X: apply-list ( offset list -- )
X: ?member-list ( element list -- bool)
X: ?empty-list ( list -- bool)
    echo shar: \"lib/lists.f83\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"lib/macros.f83\"
X: [macro] ( macro -- )
X: macro ( -- )
X: .macro ( -- )
    echo shar: \"lib/macros.f83\" unpacked with wrong size!
  echo shar: Will not over-write existing file \"lib/ranges.f83\"
X: range ( from to -- )
X: ?member-range ( x from to -- bool)
X: ?intersection-range ( from1 to1 from2 to2 -- bool)
X: size-range ( from to -- int)
X: union-range ( from1 to1 from2 to2 -- from3 to3)
X: intersection-range ( from1 to1 from2 to2 -- from3 to3)

--
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: [phone]
Telex: 8155076 LIUIDA S            Telefax: [phone]
Internet: [e-mail]        UUCP: {uunet,mcsun,...}!liuida!mip
Bitnet: MIP@SELIUIDA            SUNET: LIUIDA::MIP