kreed@telesys.cts.com (Kevin W. Reed) (01/12/91)
Submitted-by: kreed@telesys.cts.com
Archive-name: Patches for mbase3.1 SCO Xenix/part01
Below are the changes I had to make to get MetalBase 3.1
to compile and execute properly under SCO Xenix 386
---- Cut Here and unpack ----
#!/bin/sh
# This is Patches for mbase3.1 SCO Xenix, a shell archive (shar 3.20-a)
# made 01/09/1991 18:47 UTC by kreed@telesys.cts.com
# Source directory /u/kreed/mbase.orig
#
# existing files WILL be overwritten
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 7012 -rw-r--r-- mbaseXEN.pat01
#
if touch 2>&1 | fgrep '[-amc]' > /dev/null
then TOUCH=touch
else TOUCH=true
fi
# ============= mbaseXEN.pat01 ==============
echo "x - extracting mbaseXEN.pat01 (Text)"
sed 's/^X//' << 'SHAR_EOF' > mbaseXEN.pat01 &&
X*** Makefile Wed Jan 9 09:55:59 1991
X--- new/Makefile Wed Jan 9 10:13:45 1991
X***************
X*** 1,3
X # NOT FOR USE WITH AMIGA SYSTEMS! This Makefile is for, obviously,
X # Unix only. See the ReadMe for instructions on installing/
X # compiling on an Amiga.
X
X--- 1,6 -----
X+ # Modified for use with SCO Xenix 386
X+ # by kreed@telesys Wed Jan 9 1991
X+ #
X # NOT FOR USE WITH AMIGA SYSTEMS! This Makefile is for, obviously,
X # Unix only. See the ReadMe for instructions on installing/
X # compiling on an Amiga.
X***************
X*** 2,8
X # Unix only. See the ReadMe for instructions on installing/
X # compiling on an Amiga.
X
X! # Replace LIBDIR with a period to put libmb.a in the current directory,
X # or make it /usr/lib/ or wherever it is you'd like your new library.
X
X LIBDIR = .
X
X--- 5,11 -----
X # Unix only. See the ReadMe for instructions on installing/
X # compiling on an Amiga.
X
X! # Replace LIBDIR with a period to put Slibmbase.a in the current directory,
X # or make it /usr/lib/ or wherever it is you'd like your new library.
X
X LIBDIR = /lib/386/.
X***************
X*** 5,11
X # Replace LIBDIR with a period to put libmb.a in the current directory,
X # or make it /usr/lib/ or wherever it is you'd like your new library.
X
X! LIBDIR = .
X
X all: libmb.a build sample enctest
X build: build.c stdinc.h
X
X--- 8,14 -----
X # Replace LIBDIR with a period to put Slibmbase.a in the current directory,
X # or make it /usr/lib/ or wherever it is you'd like your new library.
X
X! LIBDIR = /lib/386/.
X
X all: Slibmbase.a build sample
X
X***************
X*** 7,13
X
X LIBDIR = .
X
X! all: libmb.a build sample enctest
X build: build.c stdinc.h
X cc -o build -O build.c
X libmb.a: mbase.c stdinc.h mbase.h
X
X--- 10,17 -----
X
X LIBDIR = /lib/386/.
X
X! all: Slibmbase.a build sample
X!
X build: build.c stdinc.h
X cc -o build -O build.c
X
X***************
X*** 10,16
X all: libmb.a build sample enctest
X build: build.c stdinc.h
X cc -o build -O build.c
X! libmb.a: mbase.c stdinc.h mbase.h
X cc -c -O mbase.c
X ar r ${LIBDIR}/libmb.a mbase.o
X ranlib ${LIBDIR}/libmb.a
X
X--- 14,21 -----
X
X build: build.c stdinc.h
X cc -o build -O build.c
X!
X! Slibmbase.a: mbase.c stdinc.h mbase.h
X cc -c -O mbase.c
X ar r Slibmbase.a mbase.o
X ranlib Slibmbase.a
X***************
X*** 12,20
X cc -o build -O build.c
X libmb.a: mbase.c stdinc.h mbase.h
X cc -c -O mbase.c
X! ar r ${LIBDIR}/libmb.a mbase.o
X! ranlib ${LIBDIR}/libmb.a
X! sample: stdinc.h mbase.h sample.c libmb.a
X! cc -L ${LIBDIR} -o sample sample.c -lmb
X! enctest: enctest.c
X! cc -o enctest enctest.c
X
X--- 17,29 -----
X
X Slibmbase.a: mbase.c stdinc.h mbase.h
X cc -c -O mbase.c
X! ar r Slibmbase.a mbase.o
X! ranlib Slibmbase.a
X! cp Slibmbase.a ${LIBDIR}
X!
X! sample: stdinc.h mbase.h sample.c Slibmbase.a
X! cc -o sample sample.c -lmbase
X!
X! install: Slibmbase.a
X! cp Slibmbase.a ${LIBDIR}
X!
X*** build.c Wed Jan 9 09:56:03 1991
X--- new/build.c Wed Jan 9 10:08:34 1991
X***************
X*** 1,3
X #include "stdinc.h"
X
X #define cr(x) ((x) == 0) ? "\n\n" : "\n"
X
X--- 1,6 -----
X+ /* Modified for use with SCO Xenix 386
X+ by kreed@telesys Wed Jan 9 1991 */
X+
X #include "stdinc.h"
X
X #define cr(x) ((x) == 0) ? "\n\n" : "\n"
X***************
X*** 31,37
X char *repeat (ch, nm)
X int ch, nm;
X {
X! char buf [MAX_RPT];
X
X buf[(nm = (nm < 0) ? 0 : nm)] = 0;
X
X
X--- 34,40 -----
X char *repeat (ch, nm)
X int ch, nm;
X {
X! static char buf [MAX_RPT];
X
X buf[(nm = (nm < 0) ? 0 : nm)] = 0;
X
X***************
X*** 343,348
X
X if (i == 'n' || i == 'N' || i == 'q' || i == 'Q') exit (0);
X
X remove (rel);
X
X if ((R = open (rel, O_RDWR | O_CREAT)) == -1)
X
X--- 346,358 -----
X
X if (i == 'n' || i == 'N' || i == 'q' || i == 'Q') exit (0);
X
X+ #ifdef UNIX
X+ unlink (rel);
X+ if ((R = open (rel, O_RDWR | O_CREAT,0755)) == -1)
X+ { fprintf (stderr, "\n\nCannot open relation -- Aborted\n");
X+ exit (-1);
X+ };
X+ #else
X remove (rel);
X if ((R = open (rel, O_RDWR | O_CREAT)) == -1)
X { fprintf (stderr, "\n\nCannot open relation -- Aborted\n");
X***************
X*** 344,350
X if (i == 'n' || i == 'N' || i == 'q' || i == 'Q') exit (0);
X
X remove (rel);
X-
X if ((R = open (rel, O_RDWR | O_CREAT)) == -1)
X { fprintf (stderr, "\n\nCannot open relation -- Aborted\n");
X exit (-1);
X
X--- 354,359 -----
X };
X #else
X remove (rel);
X if ((R = open (rel, O_RDWR | O_CREAT)) == -1)
X { fprintf (stderr, "\n\nCannot open relation -- Aborted\n");
X exit (-1);
X***************
X*** 349,358
X { fprintf (stderr, "\n\nCannot open relation -- Aborted\n");
X exit (-1);
X };
X-
X- #ifdef UNIX
X- sprintf (temp, "chmod 755 %s", rel);
X- system (temp);
X #endif
X
X write (R, _encode (0, 1), 1);
X
X--- 358,363 -----
X { fprintf (stderr, "\n\nCannot open relation -- Aborted\n");
X exit (-1);
X };
X #endif
X
X write (R, _encode (0, 1), 1);
X*** mbase.c Wed Jan 9 09:56:04 1991
X--- new/mbase.c Wed Jan 9 10:10:31 1991
X***************
X*** 355,360
X return j;
X }
X
X char *_encode (num, len)
X long int num;
X int len;
X
X--- 355,371 -----
X return j;
X }
X
X+ long _find_top (file, index)
X+ int file, index;
X+ {
X+ char temp [5];
X+
X+ lseek (_list[file].relcode, _t_top (file, index), 0);
X+ read (_list[file].relcode, temp, 4);
X+
X+ return (_eval (temp, 4));
X+ }
X+
X char *_encode (num, len)
X long int num;
X int len;
X***************
X*** 645,661
X _clr_lck (acc);
X
X return OKAY;
X- }
X-
X- long _find_top (file, index)
X- int file, index;
X- {
X- char temp [5];
X-
X- lseek (_list[file].relcode, _t_top (file, index), 0);
X- read (_list[file].relcode, temp, 4);
X-
X- return (_eval (temp, 4));
X }
X
X _drop (file, index, rec)
X
X--- 656,661 -----
X _clr_lck (acc);
X
X return OKAY;
X }
X
X _drop (file, index, rec)
X*** sample.c Wed Jan 9 09:56:05 1991
X--- new/sample.c Wed Jan 9 10:08:37 1991
X***************
X*** 1,3
X #include "stdinc.h"
X #include "mbase.h"
X
X
X--- 1,6 -----
X+ /* Modified for use with SCO Xenix 386
X+ by kreed@telesys Wed Jan 9 1991 */
X+
X #include "stdinc.h"
X #include "mbase.h"
X
X*** stdinc.h Wed Jan 9 09:56:07 1991
X--- new/stdinc.h Wed Jan 9 10:08:07 1991
X***************
X*** 1,3
X #ifndef STDINC_H
X #define STDINC_H
X
X
X--- 1,6 -----
X+ /* Modified for use with SCO Xenix 386
X+ by kreed@telesys Wed Jan 9 1991 */
X+
X #ifndef STDINC_H
X #define STDINC_H
X
X***************
X*** 14,20
X #define ANSI "\033["
X #define NORM "\033[0m"
X #define BOLD "\033[1m"
X! #define SUBD "\033[2m"
X #define ITAL "\033[3m"
X #define UNDR "\033[4m"
X #define INVR "\033[7m"
X
X--- 17,23 -----
X #define ANSI "\033["
X #define NORM "\033[0m"
X #define BOLD "\033[1m"
X! #define SUBD ""
X #define ITAL "\033[3m"
X #define UNDR "\033[4m"
X #define INVR "\033[7m"
SHAR_EOF
$TOUCH -am 0109104691 mbaseXEN.pat01 &&
chmod 0644 mbaseXEN.pat01 ||
echo "restore of mbaseXEN.pat01 failed"
set `wc -c mbaseXEN.pat01`;Wc_c=$1
if test "$Wc_c" != "7012"; then
echo original size 7012, current size $Wc_c
fi
exit 0
--
Kevin W. Reed --- TeleSys Development Systems -- PO 17821, San Diego, CA 92177
TeleSys-II BBS & telesys.UUCP 619-483-3890 ----- Telebit PEP Line 619 483 0965
UUCP: {nosc,ucsd}!crash!telesys!kreed -------- Internet: kreed@telesys.cts.com