keithe@tekgvs.LABS.TEK.COM (Keith Ericson) (07/21/90)
The first shar file of the recently posted TILE Forth system has a screw up in it (at least as it reached the Pacific Northwest of the US) which prevents one from properly extracting the files. It appears that a section of the shar file got dropped somewhere: when attempting to extract error.h the shar runs into the io.h file. The result is that the here-file scheme ("cat << END_OF_error.h") fails (because because the next "END_OF..." line to be found is "END_OF_io.h"), and the shell poops out with a failure to write the file. In the mean time, all the remaining files in the first posting get discarded. A temporary fix is to comment out a section of lines to circumvent the error.h/io.h problem. You'll then be able to get the _rest_ of the files, and we'll have to wait for a re-post of error.h and io.h (hint, hint). Here's where to do the changes. It's 40 or 41 lines that have to be excluded. Comment out (as shown) the lines marked below with a + as the first character in the line: if test ! -d src ; then echo shar: Creating directory \"src\" mkdir src fi + # if test -f src/error.h -a "${1}" != "-c" ; then + # echo shar: Will not over-write existing file \"src/error.h\" + # else + # echo shar: Extracting \"src/error.h\" \(396 characters\) + # sed "s/^X//" >src/error.h <<'END_OF_src/error.h' + # X/* + # X C BASED FORTH-83 MULTI-TASKING KERNEL ERROR MANAGEMENT DEFINITIONS + # X + # X Copyright (c) 1989-1990 by Mikael R.K. Patel + # X + # X*/ + # X + # X + # X/* INCLUDE FILES: SETJUMinfstack[io_infsp] -> bufp++] & CMASK : \ + # X (long) io_fillbuf()) + # X + # X#define io_eof() (io_infsp == -1) + # X#define io_not_eof() (io_infsp > -1) + # X + # X#define io_source() (io_infstack[io_infsp] -> fn) + # X#define io_line() (io_infstack[io_infsp] -> ln) + # X#define io_newline() (++io_line()) + # X + # XINT io_path(); + # XINT io_infile(); + # XINT io_fillbuf(); + # X + # XVOID io_flush(); + # X + # XVOID io_skip(); + # XVOID io_scan(); + # XVOID io_skipspace(); + # X + # XVOID io_initiate(); + # XVOID io_finish(); + # END_OF_src/io.h + # if test 1693 -ne `wc -c <src/io.h`; then + # echo shar: \"src/io.h\" unpacked with wrong size! + # fi + # # end of overwriting check + # fi if test -f src/memory.c -a "${1}" != "-c" ; then echo shar: Will not over-write existing file \"src/memory.c\" else Hope this helps! kEITHe