diff options
Diffstat (limited to 'atari')
| -rw-r--r-- | atari/ChangeLog | 40 | ||||
| -rw-r--r-- | atari/Makefile.awklib | 109 | ||||
| -rw-r--r-- | atari/Makefile.st | 282 | ||||
| -rw-r--r-- | atari/README.1st | 6 | ||||
| -rw-r--r-- | atari/config.h | 190 | ||||
| -rw-r--r-- | atari/gawkmisc.atr | 124 | ||||
| -rw-r--r-- | atari/redirect.h | 32 | ||||
| -rw-r--r-- | atari/stack.c | 6 | ||||
| -rw-r--r-- | atari/system.c | 112 | ||||
| -rw-r--r-- | atari/tmpnam.c | 47 |
10 files changed, 0 insertions, 948 deletions
diff --git a/atari/ChangeLog b/atari/ChangeLog deleted file mode 100644 index 0e2de7af..00000000 --- a/atari/ChangeLog +++ /dev/null @@ -1,40 +0,0 @@ -Mon Aug 7 15:23:00 2000 Arnold D. Robbins <arnold@skeeve.com> - - * Release 3.0.6: Release tar file made. - -Sun Jun 25 15:08:19 2000 Arnold D. Robbins <arnold@skeeve.com> - - * Release 3.0.5: Release tar file made. - -Wed Jun 30 16:14:36 1999 Arnold D. Robbins <arnold@gnu.org> - - * Release 3.0.4: Release tar file made. This time for sure. - -Thu May 15 12:49:08 1997 Arnold D. Robbins <arnold@skeeve.atl.ga.us> - - * Release 3.0.3: Release tar file made. - -Fri Apr 18 07:55:47 1997 Arnold D. Robbins <arnold@skeeve.atl.ga.us> - - * BETA Release 3.0.34: Release tar file made. - -Wed Dec 25 11:25:22 1996 Arnold D. Robbins <arnold@skeeve.atl.ga.us> - - * Release 3.0.2: Release tar file made. - -Tue Dec 10 23:09:26 1996 Arnold D. Robbins <arnold@skeeve.atl.ga.us> - - * Release 3.0.1: Release tar file made. - -Thu Nov 21 13:11:20 1996 Michal Jaegermann <michal@phys.ualberta.ca> - - * Makefile.st: Once again Makefile.st and config.h chase - moving targets from the main directory. - -Thu Nov 7 21:02:01 1996 Michal Jaegermann <michal@phys.ualberta.ca> - - * Makefile.st, Makefile.awklib: sync'ed with ones in main tree. - -Wed Jan 10 22:58:55 1996 Arnold D. Robbins <arnold@skeeve.atl.ga.us> - - * ChangeLog created. diff --git a/atari/Makefile.awklib b/atari/Makefile.awklib deleted file mode 100644 index abdc1649..00000000 --- a/atari/Makefile.awklib +++ /dev/null @@ -1,109 +0,0 @@ -# Makefile for GNU Awk support library -# Copy this file to 'awklib' subdirectory of main directory -# and execute via relevant targets in your top Makefile -# -# This Makefile actually will work for awklib even when NOT -# compiling with Atari Makefile!!! -# -# Copyright (C) 1995, 96 the Free Software Foundation, Inc. -# -# This file is part of GAWK, the GNU implementation of the -# AWK Programming Language. -# -# GAWK is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# GAWK is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA - -SHELL = /bin/sh - -srcdir = . - -INSTALL = /usr/bin/install -c -INSTALL_PROGRAM = ${INSTALL} -INSTALL_DATA = ${INSTALL} -m 644 - -CC = gcc -CFLAGS = -g -O - -prefix = /usr/local -exec_prefix = ${prefix} -binprefix = -manprefix = - -bindir = ${exec_prefix}/bin -libdir = ${exec_prefix}/lib -mandir = ${prefix}/man/man1 -manext = .1 -infodir = ${prefix}/info -datadir = ${prefix}/share/awk -libexecdir = ${exec_prefix}/libexec/awk - -# default names of library utilities; on some systems they may require -# names with extenstions -PWCAT = pwcat -GRCAT = grcat -# the following command used, when necessary, for edits when -# creating igawk from igawk.sh -GCOM = '{print}' -GAWK = gawk -# $(AWK) is a by default freshly compiled gawk or installed awk when -# cross-compiling; it is used for edits, since we may compile not on -# Unix machine and an utility like 'sed' may NOT exist there -AWK = $(srcdir)/../$(GAWK) -AUXPROGS = $(PWCAT) $(GRCAT) -AUXAWK = passwd.awk group.awk - -all: stamp-eg $(AUXPROGS) igawk $(AUXAWK) - -stamp-eg: $(srcdir)/../doc/gawk.texi - rm -fr eg stamp-eg - $(AWK) -f $(srcdir)/extract.awk $(srcdir)/../doc/gawk.texi - @echo 'some makes are stupid and will not check a directory' > stamp-eg - @echo 'against a file, so this file is a place holder. gack.' >> stamp-eg - -$(PWCAT): $(srcdir)/eg/lib/pwcat.c - $(CC) $(CFLAGS) $(srcdir)/eg/lib/pwcat.c $(LDFLAGS) -o $@ - -$(GRCAT): $(srcdir)/eg/lib/grcat.c - $(CC) $(CFLAGS) $(srcdir)/eg/lib/grcat.c $(LDFLAGS) -o $@ - -igawk: $(srcdir)/eg/prog/igawk.sh - $(AWK) $(GCOM) $(srcdir)/eg/prog/igawk.sh > $@ ; chmod 755 $@ - -passwd.awk: $(srcdir)/eg/lib/passwdawk.in - $(AWK) '{gsub(/\/usr\/local\/libexec\/awk/, "$(libexecdir)"); print}' \ - $? > $@ - -group.awk: $(srcdir)/eg/lib/groupawk.in - $(AWK) '{gsub(/\/usr\/local\/libexec\/awk/, "$(libexecdir)"); print}' \ - $? > $@ - -install: igawk $(AUXPROGS) $(AUXAWK) - $(INSTALL_PROGRAM) igawk $(bindir)/igawk && chmod 755 $(bindir)/igawk - for i in $(AUXPROGS) ; do \ - $(INSTALL_PROGRAM) $$i $(libexecdir)/$$i ; \ - done - for i in $(AUXAWK) $(srcdir)/eg/lib/*.awk ; do \ - $(INSTALL_DATA) $$i $(datadir)/$$i ; \ - done - -# libexecdir and bindir are removed in the top level Makefile's uninstall -uninstall: - rm -fr $(libexecdir)/* $(datadir)/* - rm -f $(bindir)/igawk - -clean: - rm -f $(AUXPROGS) $(AUXAWK) igawk *~ - -distclean: clean - rm -f Makefile diff --git a/atari/Makefile.st b/atari/Makefile.st deleted file mode 100644 index 20664a48..00000000 --- a/atari/Makefile.st +++ /dev/null @@ -1,282 +0,0 @@ -# Makefile for GNU Awk - ST version. -# -# This makefile hand edited from Makefile automatically generated -# by configure - gcc 2.x.x compiler with TOS version of libraries -# and modified system(). -# Check comments in this Makefile and adjust to your needs!! -# -# This Makefile assumes that you are using Bourne compatible shell -# (like bash). If this is not the case you will have to edit various -# targets or perform some actions by hand. -# -# Copyright (C) 1986, 1988-1996 the Free Software Foundation, Inc. -# -# This file is part of GAWK, the GNU implementation of the -# AWK Programming Language. -# -# GAWK is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# GAWK is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA - - -MAKEINFO = makeinfo --no-split - -srcdir = . - -# native compiler with freshly compiled gawk.ttp to fix awklib -GAWK = gawk.ttp -CC = gcc - -# cross-compiler and gawk already installed on the system (any awk will do) -# GAWK = gawk -# CC = cgcc - -# WIDTH and EXT have to be both defined or both undefined -# WIDTH = -mshort -DINT_IS_16BIT -# EXT = 16 - -OFLAGS = -O2 -Wall -fomit-frame-pointer $(WIDTH) -LDFLAGS = $(WIDTH) -YACC = bison -y - -# xstrip -k in target gawk.ttp removes all symbols but _stksize -# allowing for stack size manipulations without recompiling (with fixstk) -INSTALL = xstrip -k ; cp -p -INSTALL_PROGRAM = ${INSTALL} -#INSTALL_DATA = ${INSTALL} -m 644 -INSTALL_DATA = ${INSTALL} - -LIBS = -lpml$(EXT) - -ALLOCA = - -#all these definitions likely require changes -exec_prefix = ${prefix} -prefix = /usr/local -binprefix = -manprefix = - -bindir = ${exec_prefix}/bin -libdir = ${exec_prefix}/lib -manexta = l -mandir = ${prefix}/man/man$(manexta) -manext = .$(manexta) -infodir = ${prefix}/info -#datadir = ${prefix}/share/awk -datadir = ${prefix}/lib/awk -libexecdir = ${exec_prefix}/lib/awk - -#DEFPATH = ".:$(datadir)" -# datadir is passed to the next Makefile level and through sed -# you may need many more backslashes than that if you have to use -# them at all - sigh... -DEFPATH = ".,c:\\lib\\awk,c:\\gnu\\lib\\awk" - -SHELL = /bin/sh - -SHELL = /bin/sh -#CFLAGS = -g -O -CFLAGS = $(OFLAGS) -COMPFLAGS = $(CFLAGS) -DGAWK -I. -I$(srcdir) -DHAVE_CONFIG_H - -MFLAGS = "CC=$(CC)" \ - "CFLAGS=$(CFLAGS)" \ - GAWK=../$(GAWK) \ - AWK=awk \ - PWCAT=pwcat.ttp GRCAT=grcat.ttp \ - "GCOM='{sub(/\":\"/, \"\\\",\\\"\"); print}'" \ - "COMPFLAGS=$(COMPFLAGS)" \ - "LDFLAGS=$(LDFLAGS)" \ - "INSTALL=$(INSTALL)" \ - "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ - "INSTALL_DATA=$(INSTALL_DATA)" \ - "bindir=$(bindir)" \ - "libdir=$(libdir)" \ - "mandir=$(mandir)" \ - "manext=$(manext)" \ - "infodir=$(infodir)" \ - "datadir=$(datadir)" \ - "libexecdir=$(libexecdir)" - -MMAKE = $(MAKE) $(MFLAGS) - -# object files -AWKOBJS = array.o builtin.o eval.o field.o gawkmisc.o io.o main.o \ - missing.o msg.o node.o re.o version.o - -ALLOBJS = $(AWKOBJS) awktab.o - -# LIBOBJS -# GNU and other stuff that gawk uses as library routines. -LIBOBJS= getopt.o getopt1.o regex.o dfa.o random.o $(ALLOCA) - -# source and documentation files -SRC = array.c builtin.c eval.c field.c gawkmisc.c io.c main.c \ - missing.c msg.c node.c re.c version.c - -ALLSRC= $(SRC) awktab.c - -AWKSRC= awk.h awk.y custom.h $(ALLSRC) patchlevel.h protos.h random.h - -LIBSRC = alloca.c dfa.c dfa.h regex.c regex.h getopt.h getopt.c getopt1.c random.c - -COPIES = missing/system.c missing/tzset.c \ - missing/memcmp.c missing/memcpy.c missing/memset.c \ - missing/strncasecmp.c missing/strchr.c \ - missing/strerror.c missing/strtod.c \ - missing/strftime.c missing/strftime.3 - -DOCS= doc/gawk.1 doc/gawk.texi doc/texinfo.tex - -TEXFILES= doc/gawk.aux doc/gawk.cp doc/gawk.cps doc/gawk.fn doc/gawk.fns \ - doc/gawk.ky doc/gawk.kys doc/gawk.pg doc/gawk.pgs doc/gawk.toc \ - doc/gawk.tp doc/gawk.tps doc/gawk.vr doc/gawk.vrs - -MISC = NEWS COPYING FUTURES Makefile.in PROBLEMS README PORTS POSIX.STD \ - configure configure.in acconfig.h configh.in ACKNOWLEDGMENT \ - ChangeLog INSTALL LIMITATIONS install-sh mkinstalldirs aclocal.m4 \ - stamp-h.in - -OTHERS= amiga doc pc atari vms README_d posix awklib - -ALLDOC= doc/gawk.dvi $(TEXFILES) doc/gawk.info* - -MAKEFILEIN = Makefile.in awklib/Makefile.in doc/Makefile.in test/Makefile.in - -# Release of gawk. There can be no leading or trailing white space here! -REL=3.0 - -# clear out suffixes list -.SUFFIXES: -.SUFFIXES: .c .o - -.c.o: - $(CC) -c $(COMPFLAGS) $< - -# rules to build gawk -all: $(GAWK) awklib/all - -alldoc: all doc/all - -$(GAWK): $(ALLOBJS) $(LIBOBJS) $(REOBJS) - $(CC) -o $(GAWK) $(COMPFLAGS) $(LDFLAGS) $(ALLOBJS) $(LIBOBJS) \ - $(REOBJS) $(LIBS) - -$(ALLOBJS): awk.h dfa.h regex.h config.h custom.h - -$(LIBOBJS): config.h custom.h - -gawkmisc.o: $(srcdir)/atari/gawkmisc.atr - $(CC) -c $(COMPFLAGS) -DDEFPATH='$(DEFPATH)' $(srcdir)/gawkmisc.c - -# this rule needed or not - depending on your library -missing.o io.o: - $(CC) -c $(COMPFLAGS) -DPIPES_SIMULATED $(srcdir)/$< - -# cheat with defines to force an inclusion of a proper code -getopt.o: getopt.h - $(CC) $(CFLAGS) -D_LIBC -D__alloca=__builtin_alloca -c getopt.c - -getopt.o: getopt.h - -getopt1.o: getopt.h - -random.o: random.h - -main.o: patchlevel.h - -awktab.c: awk.y - $(YACC) -v $(srcdir)/awk.y && \ - if test -f y.tab.c ; then mv y.tab.c ytab.c ; else true ; fi && \ - sed '/^extern char .malloc(), .realloc();$$/d' ytab.c >awktab.c && \ - rm ytab.c - -# VMS POSIX make won't apply the default .c.o rule to awktab.o for some reason -awktab.o: awktab.c awk.h - $(CC) -c $(COMPFLAGS) $(srcdir)/awktab.c - -alloca.o: alloca.c - -install: $(GAWK) info installdirs - $(INSTALL_PROGRAM) $(GAWK) $(bindir) && chmod 755 $(bindir)/$(GAWK) - cd awklib && $(MMAKE) install - -installdirs: mkinstalldirs - $(srcdir)/mkinstalldirs $(bindir) $(datadir) \ - $(libdir) $(infodir) $(mandir) $(libexecdir) - -installdoc: info - cd doc && $(MMAKE) install - -# -#installtotal: installdirs install installdoc - -uninstall: - rm -f $(bindir)/$(GAWK) - cd awklib && $(MMAKE) uninstall - -rmdir $(datadir) $(libexecdir) -# cd doc && $(MMAKE) uninstall - -clean: - rm -rf $(GAWK) *.o core y.output - cd awklib && $(MMAKE) clean -# the following does not always make sense (when crosscompiling) -# cd test && $(MAKE) $(MFLAGS) clean -# cd doc && $(MAKE) $(MFLAGS) clean - -local-distclean: - rm -f Makefile *.orig *.rej */*.orig */*.rej awk.output \ - gmon.out make.out config.h config.status config.cache \ - config.log stamp-h *~ - -distclean: clean local-distclean - cd doc && $(MMAKE) distclean - cd awklib && $(MMAKE) distclean - cd test && $(MMAKE) distclean - -maintainer-clean: clean local-distclean - @echo "This command is intended for maintainers to use; it" - @echo "deletes files that may require special tools to rebuild." - rm -f awktab.c TAGS tags - cd doc && $(MMAKE) maintainer-clean -# cd test && $(MMAKE) maintainer-clean -# cd awklib && $(MMAKE) maintainer-clean - -clobber: maintainer-clean - -TAGS: - etags $(AWKSRC) - -tags: - ctags $(AWKSRC) - -dvi: $(srcdir)/doc/gawk.texi - cd doc && $(MMAKE) dvi - -info: $(srcdir)/doc/gawk.texi - cd doc && $(MMAKE) info - -doc/all: - cd doc && $(MMAKE) all - -awklib/all: - cd awklib && $(MMAKE) all - -# to run this target you have to adjust test/Makefile quite a bit -# in order to make it palatable to your shell -# -check: $(GAWK) - cd test; $(MMAKE) -k - -test: check - diff --git a/atari/README.1st b/atari/README.1st deleted file mode 100644 index 3483cb0c..00000000 --- a/atari/README.1st +++ /dev/null @@ -1,6 +0,0 @@ -Sun Nov 29 10:34:01 EST 1998 - -The atari port is no longer supported. In 3.1 this directory will -be moved into a new `unsupported' directory. If you have an atari, -you are welcome to try and use the port here, but we no longer have -the hardware to test gawk on. diff --git a/atari/config.h b/atari/config.h deleted file mode 100644 index 1e40b132..00000000 --- a/atari/config.h +++ /dev/null @@ -1,190 +0,0 @@ -/* - * Sample configuration file for ST - works with gcc and TOS libraries; - * revise for your configuration if configure script does not work - */ -/* - * config.h -- configuration definitions for gawk. - */ - -/* - * Copyright (C) 1995, 96 the Free Software Foundation, Inc. - * - * This file is part of GAWK, the GNU implementation of the - * AWK Programming Language. - * - * GAWK is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * GAWK is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA - */ - -/* Define if using alloca.c. */ -/* #undef C_ALLOCA */ - -/* Define if type char is unsigned and you are not using gcc. */ -#ifndef __CHAR_UNSIGNED__ -/* #undef __CHAR_UNSIGNED__ */ -#endif - -/* Define to empty if the keyword does not work. */ -/* #undef const */ - -/* Define to the type of elements in the array set by `getgroups'. - Usually this is either `int' or `gid_t'. */ -#define GETGROUPS_T gid_t - -/* Define if the `getpgrp' function takes no argument. */ -#define GETPGRP_VOID 1 - -/* Define to `int' if <sys/types.h> doesn't define. */ -/* #undef gid_t */ - -/* Define if you have alloca, as a function or macro. */ -#define HAVE_ALLOCA 1 - -/* Define if you have <alloca.h> and it should be used (not on Ultrix). */ -/* #undef HAVE_ALLOCA_H */ - -/* Define if you don't have vprintf but do have _doprnt. */ -/* #undef HAVE_DOPRNT */ - -/* Define if you have a working `mmap' system call. */ -/* #undef HAVE_MMAP */ - -/* Define if your struct stat has st_blksize. */ -#define HAVE_ST_BLKSIZE 1 - -/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */ -#define HAVE_SYS_WAIT_H 1 - -/* Define if your struct tm has tm_zone. */ -/* #undef HAVE_TM_ZONE */ - -/* Define if you don't have tm_zone but do have the external array - tzname. */ -/* #undef HAVE_TZNAME */ - -/* Define if you have the vprintf function. */ -#define HAVE_VPRINTF 1 - -/* Define if on MINIX. */ -/* #undef _MINIX */ - -/* Define to `int' if <sys/types.h> doesn't define. */ -/* #undef pid_t */ - -/* Define if the system does not provide POSIX.1 features except - with this defined. */ -/* #undef _POSIX_1_SOURCE */ - -/* Define if you need to in order for stat and other things to work. */ -/* #undef _POSIX_SOURCE */ - -/* Define as the return type of signal handlers (int or void). */ -#define RETSIGTYPE void - -/* Define to `unsigned' if <sys/types.h> doesn't define. */ -/* #undef size_t */ - -/* If using the C implementation of alloca, define if you know the - direction of stack growth for your system; otherwise it will be - automatically deduced at run-time. - STACK_DIRECTION > 0 => grows toward higher addresses - STACK_DIRECTION < 0 => grows toward lower addresses - STACK_DIRECTION = 0 => direction of growth unknown - */ -/* #undef STACK_DIRECTION */ - -/* Define if you have the ANSI C header files. */ -#define STDC_HEADERS 1 - -/* Define if you can safely include both <sys/time.h> and <time.h>. */ -#define TIME_WITH_SYS_TIME 1 - -/* Define if your <sys/time.h> declares struct tm. */ -#define TM_IN_SYS_TIME 1 - -/* Define to `int' if <sys/types.h> doesn't define. */ -/* #undef uid_t */ - -#define HAVE_STRINGIZE 1 /* can use ANSI # operator in cpp */ -/* #undef REGEX_MALLOC */ /* use malloc instead of alloca in regex.c */ -#define SPRINTF_RET int /* return type of sprintf */ - -/* Define if you have the fmod function. */ -#define HAVE_FMOD 1 - -/* Define if you have the getpagesize function. */ -#define HAVE_GETPAGESIZE 1 - -/* Define if you have the madvise function. */ -/* #undef HAVE_MADVISE */ - -/* Define if you have the memcmp function. */ -#define HAVE_MEMCMP 1 - -/* Define if you have the memcpy function. */ -#define HAVE_MEMCPY 1 - -/* Define if you have the memset function. */ -#define HAVE_MEMSET 1 - -/* Define if you have the strchr function. */ -#define HAVE_STRCHR 1 - -/* Define if you have the strerror function. */ -#define HAVE_STRERROR 1 - -/* Define if you have the strftime function. */ -#define HAVE_STRFTIME 1 - -/* Define if you have the strncasecmp function. */ -/* #undef HAVE_STRNCASECMP */ - -/* Define if you have the strtod function. */ -#define HAVE_STRTOD 1 - -/* Define if you have the system function. */ -/* This is a white lie - but you may or may not prefer this way */ -/* #define HAVE_SYSTEM 1 */ - -/* Define if you have the tzset function. */ -#define HAVE_TZSET 1 - -/* Define if you have the valloc function. */ -/* #undef HAVE_VALLOC */ - -/* Define if you have the <limits.h> header file. */ -#define HAVE_LIMITS_H 1 - -/* Define if you have the <memory.h> header file. */ -#define HAVE_MEMORY_H 1 - -/* Define if you have the <signum.h> header file. */ -/* #undef HAVE_SIGNUM_H */ - -/* Define if you have the <stdarg.h> header file. */ -#define HAVE_STDARG_H 1 - -/* Define if you have the <string.h> header file. */ -#define HAVE_STRING_H 1 - -/* Define if you have the <strings.h> header file. */ -/* #undef HAVE_STRINGS_H */ - -/* Define if you have the <sys/param.h> header file. */ -#define HAVE_SYS_PARAM_H 1 - -/* Define if you have the <unistd.h> header file. */ -#define HAVE_UNISTD_H 1 - -#include <custom.h> /* overrides for stuff autoconf can't deal with */ diff --git a/atari/gawkmisc.atr b/atari/gawkmisc.atr deleted file mode 100644 index 2a9fcb27..00000000 --- a/atari/gawkmisc.atr +++ /dev/null @@ -1,124 +0,0 @@ -/* - * gawkmisc.atr --- miscellanious gawk routines that are OS specific. - */ - -/* - * Copyright (C) 1986, 1988, 1989, 1991-1996 the Free Software Foundation, Inc. - * - * This file is part of GAWK, the GNU implementation of the - * AWK Progamming Language. - * - * GAWK is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * GAWK is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA - */ - -#include <string.h> - -char quote = '\''; -#ifndef DEFPATH -char *defpath = ".,c:\\lib\\awk,c:\\gnu\\lib\\awk"; -#else -char *defpath = DEFPATH; -#endif -char envsep = ','; - - -/* gawk_name --- pull out the "gawk" part from how the OS called us */ - -char * -gawk_name(filespec) -const char *filespec; -{ - char *p, *q; - - p = (char *)filespec; - - if ((q = strrchr(p, '\\')) != NULL) - p = q + 1; - if ((q = strrchr(p, '/')) != NULL) - p = q + 1; - if ((q = strchr(p, '.')) != NULL) - *q = '\0'; - strlwr(p); - - return (p == NULL ? (char *)filespec : (char *)p); -} - -/* os_arg_fixup --- fixup the command line */ - -void -os_arg_fixup(argcp, argvp) -int *argcp; -char ***argvp; -{ - /* no-op */ - return; -} - -/* os_devopen --- open special per-OS devices */ - -int -os_devopen(name, flag) -const char *name; -int flag; -{ - /* no-op */ - return INVALID_HANDLE; -} - -/* optimal_bufsize --- determine optimal buffer size */ - -int -optimal_bufsize(fd, stb) -int fd; -struct stat *stb; -{ - /* force all members to zero in case OS doesn't use all of them. */ - memset(stb, '\0', sizeof(struct stat)); - - /* The atari has the st_blksize structure, so we just use it. */ -#define DEFBLKSIZE (stb->st_blksize ? stb->st_blksize : BUFSIZ) - - /* - * On ST redirected stdin does not have a name attached - * (this could be hard to do to) and fstat would fail - */ - if (fd == 0 || isatty(fd)) - return BUFSIZ; - if (fstat(fd, stb) == -1) - fatal("can't stat fd %d (%s)", fd, strerror(errno)); - if (lseek(fd, (off_t)0, 0) == -1) /* not a regular file */ - return DEFBLKSIZE; - if (stb->st_size > 0 && stb->st_size < DEFBLKSIZE) /* small file */ - return stb->st_size; - return DEFBLKSIZE; -} - -/* ispath --- return true if path has directory components */ - -int -ispath(file) -const char *file; -{ - return (strchr(file, '/') != NULL || strchr(file, '\\') != NULL); -} - -/* isdirpunct --- return true if char is a directory separator */ - -int -isdirpunct(c) -int c; -{ - return (c == '/' || c == '\\'); -} diff --git a/atari/redirect.h b/atari/redirect.h deleted file mode 100644 index 6452778f..00000000 --- a/atari/redirect.h +++ /dev/null @@ -1,32 +0,0 @@ -/* - * redirect.h --- definitions for functions that are OS specific. - */ - -/* - * Copyright (C) 1986, 1988, 1989, 1991-1993 the Free Software Foundation, Inc. - * - * This file is part of GAWK, the GNU implementation of the - * AWK Programming Language. - * - * GAWK is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * GAWK is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA - */ - -/* This file is already conditioned on atarist in awk.h */ - -#define read _text_read /* we do not want all these CR's to mess our input */ -extern int _text_read(int, char *, int); -#ifndef __MINT__ -#undef NGROUPS_MAX -#endif /* __MINT__ */ diff --git a/atari/stack.c b/atari/stack.c deleted file mode 100644 index c57880da..00000000 --- a/atari/stack.c +++ /dev/null @@ -1,6 +0,0 @@ -/* - * This value indicates an amount of reserved memory for a stack - * in executables - see source of a startup code for details. - * It can be changed without recompilation with fixstk.ttp utility. - */ -long _stksize = 2L; /* keep half of memory */ diff --git a/atari/system.c b/atari/system.c deleted file mode 100644 index b74ae92f..00000000 --- a/atari/system.c +++ /dev/null @@ -1,112 +0,0 @@ -/* - * function system() - slightly modified from sources dLibs 1.2 - * - a freely distributable C library for Atari ST. - * Authors: Dale Schumacher and John Stanley, I believe. - * Changes for gcc compiler and gnulib.olb - Michal Jaegermann - */ - -#include <osbind.h> -#include <stdio.h> -#include <string.h> -#include <basepage.h> -#ifdef __GNUC__ -#include <process.h> -#define ERROR 2 -#endif - -/* #define DEBUG */ -#ifdef DEBUG -#define _COOKIE(x) puts(x);putchar('\n') -#endif - -static void -parse_args(char *cmdln, register char **argv) -{ - register char *p; - static char delim[] = " \t\r\n"; - - if(NULL != (p = strtok(cmdln, delim))) { - do { - *argv++ = p; - } while(NULL != (p = strtok(NULL, delim))); - } -} - -#ifdef __GNUC__ -/* this is used by assembler statement to keep a copy of registers */ -static volatile long savearea[16]; -#endif - -int -system(const char *command) -{ - register char *p; - register int (*shell)(); -#ifndef __GNUC__ - char rv[2]; -#endif - char cmdln[1024]; - char *args[64]; - char *getenv(const char *); - - if(!command) - return(ERROR); - - /* get _shell_p value */ - p = (char *) Super(0L); /* supervisor mode */ - shell = (int (*)()) *((long *) 0x4F6L); - (void) Super(p); /* restore user mode */ - - /* validate _shell_p */ - if((shell) && /* Shell available. */ - (((long) shell) < ((long) _base)) && /* Reasonable shell pointer. */ - (strncmp((char *)shell, "PATH", 4))) /* Not corrupted */ - { -#ifdef __GNUC__ - int ret; -#endif - /* execute the command */ -#ifdef DEBUG -_COOKIE("system: using _shell_p"); -printf("'shell' got value 0x%08lx\n", (long)shell); -#endif -/* a bit of paranoia caused by some misbehaving programs */ -#ifdef __GNUC__ -asm("moveml d1-d7/a0-a7,_savearea"); - ret = (*shell)(command); -asm("moveml _savearea,d1-d7/a0-a7"); - return (ret); -#else - return ((*shell)(command)); -#endif - } - - strcpy(cmdln, command); /* copy the command line for parsing */ - - if((p = getenv("SHELL")) && (*p)) /* SHELL= variable? */ - { - args[0] = p; - parse_args(cmdln, (args + 1)); -#ifdef DEBUG -_COOKIE("system: executing SHELL"); -_COOKIE(p); -#endif - } - else /* attempt to find first token as a program on the path */ - { - parse_args(cmdln, args); - p = args[0]; -#ifdef DEBUG -_COOKIE("system: directly executing program"); -_COOKIE(p); -#endif - } - -#ifdef __GNUC__ - return(spawnvp(0, p, args)); -#else /* original from dLibs */ - forkvpe(p, args, NULL); - wait(rv); - return((rv[1] == 0) ? rv[0] : rv[1]); -#endif -} diff --git a/atari/tmpnam.c b/atari/tmpnam.c deleted file mode 100644 index 92bf751b..00000000 --- a/atari/tmpnam.c +++ /dev/null @@ -1,47 +0,0 @@ -#ifdef PIPES_SIMULATED -/* tmpnam.c : return a temporary file name */ -/* written by Eric R. Smith and placed in the public domain */ -/** - * - modified for gawk needs - pattern /$$XXXXXX from the original - * code creates names which are hard to remove when somethig - * goes wrong - * - returned name can be passed outside via system(); other programs - * may not dig '/' as a path separator - * - somehow more frugal in a memory use - * (mj - October 1990) - **/ -#include <stdio.h> -#include <stdlib.h> -#include <string.h> - -extern char * getenv(const char *); -extern char * mktemp(char *); -char * tempnam(const char *path, const char *base); -static char pattern[] = "\\gwkXXXXX"; - -char *tmpnam(buf) - char *buf; -{ - char *tmpdir; - - if (!(tmpdir = getenv("TEMP")) && !(tmpdir = getenv("TMPDIR"))) - tmpdir = "."; - - if (!buf) { - size_t blen; - - blen = strlen (tmpdir) + sizeof(pattern); - if (NULL == (buf = malloc(blen))) - return NULL; - } - (void) strcat(strcpy(buf, tmpdir), pattern); - return(mktemp(buf)); -} - -/* used by gawk_popen() */ -char *tempnam(path, base) -const char *path, *base; /* ignored */ -{ - return tmpnam(NULL); -} -#endif /* PIPES_SIMULATED */ |