home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume33 / mbase / part08 < prev    next >
Encoding:
Text File  |  1992-11-23  |  8.9 KB  |  266 lines
  1. Newsgroups: comp.sources.misc
  2. From: richid@owlnet.rice.edu (Richard Parvin Jernigan)
  3. Subject:  v33i126:  mbase - MetalBase 5.0, Portable database engine, Part08/08
  4. Message-ID: <1992Nov23.233106.9779@sparky.imd.sterling.com>
  5. X-Md4-Signature: 573d2d7ad9a676da48548e96cf1e5ceb
  6. Date: Mon, 23 Nov 1992 23:31:06 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: richid@owlnet.rice.edu (Richard Parvin Jernigan)
  10. Posting-number: Volume 33, Issue 126
  11. Archive-name: mbase/part08
  12. Environment: AMIGA, MS-DOS, HP-UX, XENIX, UNIX, ULTRIX, SGI, SU, Curses
  13. Supersedes: mbase: Volume 28, Issue 40-44
  14.  
  15. #! /bin/sh
  16. # This is a shell archive.  Remove anything before this line, then feed it
  17. # into a shell via "sh file" or similar.  To overwrite existing files,
  18. # type "sh file -c".
  19. # Contents:  dox/author.dox dox/curses.dox sample/makefile.dos
  20. #   src/mailscr
  21. # Wrapped by kent@sparky on Mon Nov 23 16:33:15 1992
  22. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  23. echo If this archive is complete, you will see the following message:
  24. echo '          "shar: End of archive 8 (of 8)."'
  25. if test -f 'dox/author.dox' -a "${1}" != "-c" ; then 
  26.   echo shar: Will not clobber existing file \"'dox/author.dox'\"
  27. else
  28.   echo shar: Extracting \"'dox/author.dox'\" \(1557 characters\)
  29.   sed "s/^X//" >'dox/author.dox' <<'END_OF_FILE'
  30. XAuthor                                                            MetalBase 5.0
  31. X-------------------------------------------------------------------------------
  32. X
  33. XI'm not around on the Internet as much as I'd like--my address keeps shifting
  34. Xaround.  I know one guy had a problem with this (granted, he flew off all
  35. Xkindsa shit my way about it, but...), so I decided to throw in a file about
  36. Xhow to get ahold of me.
  37. X
  38. XMy name is Richard Jernigan... and I _do_ do support for MetalBase.  Once you
  39. Xreach me anyway... the aforementioned guy seemed to think I should've read his
  40. Xmind and written him.  Reach me, and I'll fix it.  With 4.0+, there've been
  41. Xvery few requests for service... and all those that were have turned out to
  42. Xjust be implementation problems (ie, _my_ code worked.  Nya nya nya).  If
  43. Xyou're just dying to get a hold of me, and everything else fails, write me:
  44. X
  45. X            Richid Jernigan
  46. X            PO Box 827
  47. X            Norris TN 37828
  48. X
  49. XOkay, so you don't wanna do that.  Well, you've got a lot of options with
  50. Xregard to getting me on the Internet... if you're looking for me over the
  51. X
  52. Xsummer of '92, I'll be at.....................t-richj@microsoft.com
  53. XNice, eh?  Otherwise, try the default.........virtual!richid@owlnet.rice.edu
  54. XAnd, if that's gone, odds are this is too.....richid@owlnet.rice.edu
  55. XHummm... then you're in trouble.  How about...uunet!mwcbbs!virtual!richid
  56. X
  57. XOne of those should work.  Look for me on rec.games.programmer or sci.
  58. Xvirtual-worlds... when I've got an active net account, I usually post there.
  59. X
  60. XGood luck.  :)
  61. X
  62. END_OF_FILE
  63.   if test 1557 -ne `wc -c <'dox/author.dox'`; then
  64.     echo shar: \"'dox/author.dox'\" unpacked with wrong size!
  65.   fi
  66.   # end of 'dox/author.dox'
  67. fi
  68. if test -f 'dox/curses.dox' -a "${1}" != "-c" ; then 
  69.   echo shar: Will not clobber existing file \"'dox/curses.dox'\"
  70. else
  71.   echo shar: Extracting \"'dox/curses.dox'\" \(1650 characters\)
  72.   sed "s/^X//" >'dox/curses.dox' <<'END_OF_FILE'
  73. XCurses                                                            MetalBase 5.0
  74. X-------------------------------------------------------------------------------
  75. X
  76. X                                   Curses
  77. X
  78. XVR and SAMPLE require a curses package to run; MS-DOS users can get a public
  79. Xdomain curses package for VR and SAMPLE via anonymous ftp from
  80. X
  81. X   archive.umich.edu     as   /msdos/screen/pccurses.arc
  82. X   wuarchive.wustl.edu   as   /systems/msdos/umich.edu/screen/pccurses.arc
  83. X
  84. Xif you cannot reach either domain, contact me and I'll forward my copy to you.
  85. XThese people have no idea I'm using their address, so do be kind to the sites
  86. Xand don't call until it's late local time.  The package is rather nice; a bit
  87. Xof a bitch to set up initially, but it's a good implementation of curses. Only
  88. Xthing I've had a problem with is its standout()/standend() commands; they
  89. Xdon't work right for me.  Better luck to you.
  90. X
  91. X [  If you get the package from wolfen, you may need to change <alloc.h>     ]
  92. X [  to <malloc.h> in curses.h... for some god-forsaken reason, they use      ]
  93. X [  the old name for the thing.  The package comes with sources as well as   ]
  94. X [  Xcurses.lib, for every model, but DON'T USE THE PRE-BUILD LIBRARIES!     ]
  95. X [  Recompile 'em first or you'll get a problem with "@F_LDIV is undefined". ]
  96. X [  Nasty.  I don't know -what- compiler they were made with... if you can   ]
  97. X [  find out, lemme know.                                                    ]
  98. X
  99. XIf you're using MS-DOS to access a Unix-style server, ANSI.SYS may not cut
  100. Xit for you.  Try replacing it with VT52.SYS and using term type vt52 on your
  101. Xunix platform; that may help.
  102. X
  103. END_OF_FILE
  104.   if test 1650 -ne `wc -c <'dox/curses.dox'`; then
  105.     echo shar: \"'dox/curses.dox'\" unpacked with wrong size!
  106.   fi
  107.   # end of 'dox/curses.dox'
  108. fi
  109. if test -f 'sample/makefile.dos' -a "${1}" != "-c" ; then 
  110.   echo shar: Will not clobber existing file \"'sample/makefile.dos'\"
  111. else
  112.   echo shar: Extracting \"'sample/makefile.dos'\" \(892 characters\)
  113.   sed "s/^X//" >'sample/makefile.dos' <<'END_OF_FILE'
  114. X#
  115. X#  METALBASE 5.0
  116. X#
  117. X#  Released October 1st, 1992 by Huan-Ti [ richid@owlnet.rice.edu ]
  118. X#                                        [ t-richj@microsoft.com ]
  119. X#
  120. X#  Makefile for demonstration program  -- Microsoft C6 expected
  121. X#
  122. X#
  123. X#  If mbase.h and stdinc.h aren't in \include, put them there or add
  124. X#  -Idirectory to CFLAGS=.
  125. X
  126. XCFLAGS = -nologo -c -W3 -AL -DNEED_USHORT -DNEED_ULONG
  127. X
  128. XCC     = CL $(CFLAGS)
  129. X
  130. X###############################################################################
  131. X
  132. Xall : sample.exe bench.exe
  133. X
  134. X
  135. Xbench.exe : bench.obj
  136. X    link/nologo bench.obj, bench.exe,, mbase.lib lcurses;
  137. X
  138. Xbench.obj : bench.c bench.h
  139. X    $(CC) $*.c
  140. X
  141. Xbench.h : bench.s
  142. X    .\build -qh bench.s
  143. X
  144. X
  145. Xsample.exe : sample.obj
  146. X    link/nologo sample.obj, sample.exe,, mbase.lib lcurses;
  147. X
  148. Xsample.obj : sample.c sample.h sample_f.h
  149. X    $(CC) $*.c
  150. X
  151. Xsample.h : sample.s
  152. X    .\build -qh sample.s
  153. X
  154. Xsample_f.h : sample.frm
  155. X    .\form sample
  156. X
  157. END_OF_FILE
  158.   if test 892 -ne `wc -c <'sample/makefile.dos'`; then
  159.     echo shar: \"'sample/makefile.dos'\" unpacked with wrong size!
  160.   fi
  161.   # end of 'sample/makefile.dos'
  162. fi
  163. if test -f 'src/mailscr' -a "${1}" != "-c" ; then 
  164.   echo shar: Will not clobber existing file \"'src/mailscr'\"
  165. else
  166.   echo shar: Extracting \"'src/mailscr'\" \(1719 characters\)
  167.   sed "s/^X//" >'src/mailscr' <<'END_OF_FILE'
  168. X#!/bin/sh
  169. X#
  170. X
  171. Xif [ -r /coherent ]
  172. Xthen
  173. X   if [ ":`cat /etc/domain 2> /dev/null`" = ":virtual" ]
  174. X   then
  175. X      richid="richid"
  176. X   else
  177. X      richid="mwcbbs!virtual!richid"
  178. X   fi
  179. Xelse
  180. X   richid="richid@owlnet.rice.edu"
  181. Xfi
  182. X
  183. Xecho
  184. Xecho "MetalBase 5.0 is now installed.  Move to the directory ../sample and"
  185. Xecho "continue with the ../ReadMe file for a test run."
  186. Xecho
  187. Xecho "In order to see how much time I should spend developing this code, it"
  188. Xecho "would be helpful for me to know how many people got it.  There's also"
  189. Xecho "been talk of a mailing list, though I'm not sure I'm gonna start one."
  190. Xecho "May I send a message to $richid, telling him you've installed"
  191. Xecho -n "this code? [Yn] "
  192. Xans=x
  193. Xwhile [ ":$ans" != ":yes" -a ":$ans" != ":no" ]
  194. Xdo
  195. X   read ans
  196. X   if [ ":$ans" = ":Y" -o ":$ans" = ":y" -o ":$ans" = ":" ]; then
  197. X      ans="yes"
  198. X   fi
  199. X   if [ ":$ans" = ":N" -o ":$ans" = ":n" ]; then
  200. X      ans="no"
  201. X   fi
  202. Xdone
  203. X
  204. Xif [ ":$ans" = ":no" ]
  205. Xthen
  206. X   echo "Thanks anyway.  Enjoy the package."
  207. Xelse
  208. X   echo
  209. X   echo "Thank you.  Just a moment..."
  210. X
  211. X   if [ -r /usr/ucb/mail ]
  212. X   then
  213. X      /usr/ucb/mail -s "MetalBase 5.0 Installed" $richid << END
  214. XMetalBase Version 5.0
  215. X---------------------
  216. XPackage installed on `date 2> /dev/null`:
  217. X
  218. X   User         - $USER / $LOGNAME / `logname 2> /dev/null`
  219. X   Architecture - `arch 2> /dev/null`
  220. X   Uname/UUname - `uname -a 2> /dev/null`
  221. X
  222. XEND
  223. X   else
  224. X      opt=""
  225. X
  226. X      mail $richid << END
  227. XMetalBase Version 5.0
  228. X---------------------
  229. XPackage installed on `date 2> /dev/null`:
  230. X
  231. X   User         - $USER / $LOGNAME / `logname 2> /dev/null`
  232. X   Architecture - `arch 2> /dev/null`
  233. X   Uname/UUname - `uname -a 2> /dev/null`
  234. X
  235. XEND
  236. X   fi
  237. X
  238. X   echo
  239. X   echo "Mail sent.  Enjoy the package."
  240. Xfi
  241. X
  242. END_OF_FILE
  243.   if test 1719 -ne `wc -c <'src/mailscr'`; then
  244.     echo shar: \"'src/mailscr'\" unpacked with wrong size!
  245.   fi
  246.   chmod +x 'src/mailscr'
  247.   # end of 'src/mailscr'
  248. fi
  249. echo shar: End of archive 8 \(of 8\).
  250. cp /dev/null ark8isdone
  251. MISSING=""
  252. for I in 1 2 3 4 5 6 7 8 ; do
  253.     if test ! -f ark${I}isdone ; then
  254.     MISSING="${MISSING} ${I}"
  255.     fi
  256. done
  257. if test "${MISSING}" = "" ; then
  258.     echo You have unpacked all 8 archives.
  259.     rm -f ark[1-9]isdone
  260. else
  261.     echo You still must unpack the following archives:
  262.     echo "        " ${MISSING}
  263. fi
  264. exit 0
  265. exit 0 # Just in case...
  266.