diff options
Diffstat (limited to 'atari/gawkmisc.atr')
-rw-r--r-- | atari/gawkmisc.atr | 124 |
1 files changed, 0 insertions, 124 deletions
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 == '\\'); -} |