source: trunk/essentials/dev-lang/perl/dosish.h@ 3299

Last change on this file since 3299 was 3181, checked in by bird, 19 years ago

perl 5.8.8

File size: 5.6 KB
Line 
1/* dosish.h
2 *
3 * Copyright (C) 1993, 1994, 1996, 1997, 1998, 1999,
4 * 2000, 2001, 2002, by Larry Wall and others
5 *
6 * You may distribute under the terms of either the GNU General Public
7 * License or the Artistic License, as specified in the README file.
8 *
9 */
10#define ABORT() abort();
11
12#ifndef SH_PATH
13#define SH_PATH "/bin/sh"
14#endif
15
16#ifdef DJGPP
17# define BIT_BUCKET "nul"
18# define OP_BINARY O_BINARY
19# define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) Perl_DJGPP_init(c,v)
20# define init_os_extras Perl_init_os_extras
21# include <signal.h>
22# define HAS_UTIME
23# define HAS_KILL
24 char *djgpp_pathexp (const char*);
25 void Perl_DJGPP_init (int *argcp,char ***argvp);
26# if (DJGPP==2 && DJGPP_MINOR < 2)
27# define NO_LOCALECONV_MON_THOUSANDS_SEP
28# endif
29# ifdef USE_5005THREADS
30# define OLD_PTHREADS_API
31# endif
32# define PERL_FS_VER_FMT "%d_%d_%d"
33#else /* DJGPP */
34# ifdef WIN32
35# define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) Perl_win32_init(c,v)
36# define PERL_SYS_TERM() Perl_win32_term()
37# define BIT_BUCKET "nul"
38# else