Edit File by line

/* dosish.h

[0] Fix | Delete

[1] Fix | Delete

[2] Fix | Delete

* 2000, 2001, 2002, 2007, by Larry Wall and others

[3] Fix | Delete

[4] Fix | Delete

* You may distribute under the terms of either the GNU General Public

[5] Fix | Delete

* License or the Artistic License, as specified in the README file.

[6] Fix | Delete

[7] Fix | Delete

[8] Fix | Delete

#define ABORT() abort();

[9] Fix | Delete

[10] Fix | Delete

#ifndef SH_PATH

[11] Fix | Delete

#define SH_PATH "/bin/sh"

[12] Fix | Delete

#endif

[13] Fix | Delete

[14] Fix | Delete

#ifdef DJGPP

[15] Fix | Delete

# define BIT_BUCKET "nul"

[16] Fix | Delete

# define OP_BINARY O_BINARY

[17] Fix | Delete

# define PERL_SYS_INIT_BODY(c,v) \

[18] Fix | Delete

MALLOC_CHECK_TAINT2(*c,*v) Perl_DJGPP_init(c,v); PERLIO_INIT

[19] Fix | Delete

# define init_os_extras Perl_init_os_extras

[20] Fix | Delete

# define HAS_UTIME

[21] Fix | Delete

# define HAS_KILL

[22] Fix | Delete

char *djgpp_pathexp (const char*);

[23] Fix | Delete

void Perl_DJGPP_init (int *argcp,char ***argvp);

[24] Fix | Delete

# if (DJGPP==2 && DJGPP_MINOR < 2)

[25] Fix | Delete

# define NO_LOCALECONV_MON_THOUSANDS_SEP

[26] Fix | Delete

# endif

[27] Fix | Delete

# ifndef PERL_CORE

[28] Fix | Delete

# define PERL_FS_VER_FMT "%d_%d_%d"

[29] Fix | Delete

# endif

[30] Fix | Delete

# define PERL_FS_VERSION STRINGIFY(PERL_REVISION) "_" \

[31] Fix | Delete

STRINGIFY(PERL_VERSION) "_" \

[32] Fix | Delete

STRINGIFY(PERL_SUBVERSION)

[33] Fix | Delete

#else /* DJGPP */

[34] Fix | Delete

# ifdef WIN32

[35] Fix | Delete

# define PERL_SYS_INIT_BODY(c,v) \

[36] Fix | Delete

MALLOC_CHECK_TAINT2(*c,*v) Perl_win32_init(c,v); PERLIO_INIT

[37] Fix | Delete

# define PERL_SYS_TERM_BODY() Perl_win32_term()

[38] Fix | Delete

# define BIT_BUCKET "nul"

[39] Fix | Delete

# else

[40] Fix | Delete

# ifdef NETWARE

[41] Fix | Delete

# define PERL_SYS_INIT_BODY(c,v) \

[42] Fix | Delete

MALLOC_CHECK_TAINT2(*c,*v) Perl_nw5_init(c,v); PERLIO_INIT

[43] Fix | Delete

# define BIT_BUCKET "nwnul"

[44] Fix | Delete

# else

[45] Fix | Delete

# define PERL_SYS_INIT_BODY(c,v) \

[46] Fix | Delete

MALLOC_CHECK_TAINT2(*c,*v); PERLIO_INIT

[47] Fix | Delete

# define BIT_BUCKET "\\dev\\nul" /* "wanna be like, umm, Newlined, or somethin?" */

[48] Fix | Delete

# endif /* NETWARE */

[49] Fix | Delete

# endif

[50] Fix | Delete

#endif /* DJGPP */

[51] Fix | Delete

[52] Fix | Delete

#ifndef PERL_SYS_TERM_BODY

[53] Fix | Delete

# define PERL_SYS_TERM_BODY() \

[54] Fix | Delete

HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM; \

[55] Fix | Delete

OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; LOCALE_TERM;

[56] Fix | Delete

#endif

[57] Fix | Delete

#define dXSUB_SYS dNOOP

[58] Fix | Delete

[59] Fix | Delete

/* USEMYBINMODE

[60] Fix | Delete

* This symbol, if defined, indicates that the program should

[61] Fix | Delete

* use the routine my_binmode(FILE *fp, char iotype, int mode) to insure

[62] Fix | Delete

* that a file is in "binary" mode -- that is, that no translation

[63] Fix | Delete

* of bytes occurs on read or write operations.

[64] Fix | Delete

[65] Fix | Delete

#undef USEMYBINMODE

[66] Fix | Delete

[67] Fix | Delete

/* Stat_t:

[68] Fix | Delete

* This symbol holds the type used to declare buffers for information

[69] Fix | Delete

* returned by stat(). It's usually just struct stat. It may be necessary

[70] Fix | Delete

* to include <sys/stat.h> and <sys/types.h> to get any typedef'ed

[71] Fix | Delete

* information.

[72] Fix | Delete

[73] Fix | Delete

#if defined(WIN64) || defined(USE_LARGE_FILES)

[74] Fix | Delete

#define Stat_t struct _stati64

[75] Fix | Delete

#else

[76] Fix | Delete

#if defined(UNDER_CE)

[77] Fix | Delete

#define Stat_t struct xcestat

[78] Fix | Delete

#else

[79] Fix | Delete

#define Stat_t struct stat

[80] Fix | Delete

#endif

[81] Fix | Delete

#endif

[82] Fix | Delete

[83] Fix | Delete

/* USE_STAT_RDEV:

[84] Fix | Delete

* This symbol is defined if this system has a stat structure declaring

[85] Fix | Delete

* st_rdev

[86] Fix | Delete

[87] Fix | Delete

#define USE_STAT_RDEV /**/

[88] Fix | Delete

[89] Fix | Delete

/* ACME_MESS:

[90] Fix | Delete

* This symbol, if defined, indicates that error messages should be

[91] Fix | Delete

* should be generated in a format that allows the use of the Acme

[92] Fix | Delete

* GUI/editor's autofind feature.

[93] Fix | Delete

[94] Fix | Delete

#undef ACME_MESS /**/

[95] Fix | Delete

[96] Fix | Delete

/* ALTERNATE_SHEBANG:

[97] Fix | Delete

* This symbol, if defined, contains a "magic" string which may be used

[98] Fix | Delete

* as the first line of a Perl program designed to be executed directly

[99] Fix | Delete

* by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG

[100] Fix | Delete

* begins with a character other then #, then Perl will only treat

[101] Fix | Delete

* it as a command line if it finds the string "perl" in the first

[102] Fix | Delete

* word; otherwise it's treated as the first line of code in the script.

[103] Fix | Delete

* (IOW, Perl won't hand off to another interpreter via an alternate

[104] Fix | Delete

* shebang sequence that might be legal Perl code.)

[105] Fix | Delete

[106] Fix | Delete

/* #define ALTERNATE_SHEBANG "#!" / **/

[107] Fix | Delete

[108] Fix | Delete

#include <signal.h>

[109] Fix | Delete

[110] Fix | Delete

[111] Fix | Delete

* fwrite1() should be a routine with the same calling sequence as fwrite(),

[112] Fix | Delete

* but which outputs all of the bytes requested as a single stream (unlike

[113] Fix | Delete

* fwrite() itself, which on some systems outputs several distinct records

[114] Fix | Delete

* if the number_of_items parameter is >1).

[115] Fix | Delete

[116] Fix | Delete

#define fwrite1 fwrite

[117] Fix | Delete

[118] Fix | Delete

#define Fstat(fd,bufptr) fstat((fd),(bufptr))

[119] Fix | Delete

#ifdef DJGPP

[120] Fix | Delete

# define Fflush(fp) djgpp_fflush(fp)

[121] Fix | Delete

#else

[122] Fix | Delete

# define Fflush(fp) fflush(fp)

[123] Fix | Delete

#endif

[124] Fix | Delete

#define Mkdir(path,mode) mkdir((path),(mode))

[125] Fix | Delete

[126] Fix | Delete

#ifndef WIN32

[127] Fix | Delete

# define Stat(fname,bufptr) stat((fname),(bufptr))

[128] Fix | Delete

#else

[129] Fix | Delete

# define HAS_IOCTL

[130] Fix | Delete

# define HAS_UTIME

[131] Fix | Delete

# define HAS_KILL

[132] Fix | Delete

# define HAS_WAIT

[133] Fix | Delete

# define HAS_CHOWN

[134] Fix | Delete

#endif /* WIN32 */

[135] Fix | Delete

[136] Fix | Delete

[137] Fix | Delete

* <rich@phekda.freeserve.co.uk>: The DJGPP port has code that converts

[138] Fix | Delete

* the return code of system() into the form that Unixy wait usually

[139] Fix | Delete

* returns:

[140] Fix | Delete

[141] Fix | Delete

* - signal number in bits 0-6;

[142] Fix | Delete

* - core dump flag in bit 7;

[143] Fix | Delete

* - exit code in bits 8-15.

[144] Fix | Delete

[145] Fix | Delete

* Bits 0-7 are always zero for DJGPP, because it uses system().

[146] Fix | Delete

* See djgpp.c.

[147] Fix | Delete

[148] Fix | Delete

* POSIX::W* use the W* macros from <sys/wait.h> to decode

[149] Fix | Delete

* the return code. Unfortunately the W* macros for DJGPP use

[150] Fix | Delete

* a different format than Unixy wait does. So there's a mismatch

[151] Fix | Delete

* and, say, WEXITSTATUS($?) will return bogus values.

[152] Fix | Delete

[153] Fix | Delete

* So here we add hack to redefine the W* macros from DJGPP's <sys/wait.h>

[154] Fix | Delete

* to work with our return-code conversion.

[155] Fix | Delete

[156] Fix | Delete

[157] Fix | Delete

#ifdef DJGPP

[158] Fix | Delete

[159] Fix | Delete

#include <sys/wait.h>

[160] Fix | Delete

[161] Fix | Delete

#undef WEXITSTATUS

[162] Fix | Delete

#undef WIFEXITED

[163] Fix | Delete

#undef WIFSIGNALED

[164] Fix | Delete

#undef WIFSTOPPED

[165] Fix | Delete

#undef WNOHANG

[166] Fix | Delete

#undef WSTOPSIG

[167] Fix | Delete

#undef WTERMSIG

[168] Fix | Delete

#undef WUNTRACED

[169] Fix | Delete

[170] Fix | Delete

#define WEXITSTATUS(stat_val) ((stat_val) >> 8)

[171] Fix | Delete

#define WIFEXITED(stat_val) 0

[172] Fix | Delete

#define WIFSIGNALED(stat_val) 0

[173] Fix | Delete

#define WIFSTOPPED(stat_val) 0

[174] Fix | Delete

#define WNOHANG 0

[175] Fix | Delete

#define WSTOPSIG(stat_val) 0

[176] Fix | Delete

#define WTERMSIG(stat_val) 0

[177] Fix | Delete

#define WUNTRACED 0

[178] Fix | Delete

[179] Fix | Delete

#endif

[180] Fix | Delete

[181] Fix | Delete

/* Don't go reading from /dev/urandom */

[182] Fix | Delete

#define PERL_NO_DEV_RANDOM

[183] Fix | Delete

[184] Fix | Delete

[185] Fix | Delete

* ex: set ts=8 sts=4 sw=4 et:

[186] Fix | Delete

[187] Fix | Delete

[188] Fix | Delete