*/
#define HAS_UTIME /**/
+/* BIG_TIME:
+ * This symbol is defined if Time_t is an unsigned type on this system.
+ */
+#define BIG_TIME
+
#define HAS_KILL
#define HAS_WAIT
#define HAS_DLERROR
*/
#undef USEMYBINMODE
+#define SOCKET_OPEN_MODE "b"
+
/* Stat_t:
* This symbol holds the type used to declare buffers for information
* returned by stat(). It's usually just struct stat. It may be necessary
/* These ones should be in the same block as PERL_SYS_TERM() */
#ifdef PERL_CORE
-# define PERL_SYS_INIT3(argcp, argvp, envp) \
+# define PERL_SYS_INIT3_BODY(argcp, argvp, envp) \
{ void *xreg[2]; \
MALLOC_CHECK_TAINT(*argcp, *argvp, *envp) \
_response(argcp, argvp); \
_wildcard(argcp, argvp); \
- Perl_OS2_init3(*envp, xreg, 0)
+ Perl_OS2_init3(*envp, xreg, 0); \
+ PERLIO_INIT
-# define PERL_SYS_INIT(argcp, argvp) { \
+# define PERL_SYS_INIT_BODY(argcp, argvp) { \
{ void *xreg[2]; \
_response(argcp, argvp); \
_wildcard(argcp, argvp); \
- Perl_OS2_init3(NULL, xreg, 0)
+ Perl_OS2_init3(NULL, xreg, 0); \
+ PERLIO_INIT
#else /* Compiling embedded Perl or Perl extension */
-# define PERL_SYS_INIT3(argcp, argvp, envp) \
+# define PERL_SYS_INIT3_BODY(argcp, argvp, envp) \
{ void *xreg[2]; \
- Perl_OS2_init3(*envp, xreg, 0)
-# define PERL_SYS_INIT(argcp, argvp) { \
+ Perl_OS2_init3(*envp, xreg, 0); \
+ PERLIO_INIT
+# define PERL_SYS_INIT_BODY(argcp, argvp) { \
{ void *xreg[2]; \
- Perl_OS2_init3(NULL, xreg, 0)
+ Perl_OS2_init3(NULL, xreg, 0); \
+ PERLIO_INIT
#endif
#define FORCE_EMX_DEINIT_EXIT 1
#define PERL_SYS_TERM2(xreg,flags) \
Perl_OS2_term(xreg, 0, flags); \
+ PERLIO_TERM; \
MALLOC_TERM
#define PERL_SYS_TERM1(xreg) \
Perl_OS2_term(xreg, 0, FORCE_EMX_DEINIT_RUN_ATEXIT)
-/* This one should come in pair with PERL_SYS_INIT() and in the same block */
-#define PERL_SYS_TERM() \
+/* This one should come in pair with PERL_SYS_INIT_BODY() and in the same block */
+#define PERL_SYS_TERM_BODY() \
PERL_SYS_TERM1(xreg); \
}
# define PERL_CALLCONV _System
#endif
-/* #define PERL_SYS_TERM() STMT_START { \
+/* #define PERL_SYS_TERM_BODY() STMT_START { \
if (Perl_HAB_set) WinTerminate(Perl_hab); } STMT_END */
#define dXSUB_SYS OS2_XS_init()
#define TMPPATH1 "plXXXXXX"
extern const char *tmppath;
PerlIO *my_syspopen(pTHX_ char *cmd, char *mode);
-/* Cannot prototype with I32 at this point. */
+#ifdef PERL_CORE
+/* Cannot prototype with I32, SV at this point (used in x2p too). */
+PerlIO *my_syspopen4(pTHX_ char *cmd, char *mode, I32 cnt, SV** args);
+#endif
int my_syspclose(PerlIO *f);
FILE *my_tmpfile (void);
char *my_tmpnam (char *);
void my_endpwent (void);
char *gcvt_os2(double value, int digits, char *buffer);
+extern int async_mssleep(unsigned long ms, int switch_priority);
+extern unsigned long msCounter(void);
+extern unsigned long InfoTable(int local);
+extern unsigned long find_myself(void);
+
#define MAX_SLEEP (((1<30) / (1000/4))-1) /* 1<32 msec */
static __inline__ unsigned
#define strtoll _strtoll
#define strtoull _strtoull
-#define usleep(usec) ((void)_sleep2(((usec)+500)/1000))
+#define usleep(usec) ((void)async_mssleep(((usec)+500)/1000, 500))
/*
/* The expressions below return true on error. */
/* INCL_DOSERRORS needed. rc should be declared outside. */
-#define CheckOSError(expr) (!(rc = (expr)) ? 0 : (FillOSError(rc), 1))
+#define CheckOSError(expr) ((rc = (expr)) ? (FillOSError(rc), rc) : 0)
/* INCL_WINERRORS needed. */
#define CheckWinError(expr) ((expr) ? 0: (FillWinError, 1))
ORD_WinFlashWindow,
ORD_WinLoadPointer,
ORD_WinQuerySysPointer,
+ ORD_DosReplaceModule,
+ ORD_DosPerfSysCall,
+ ORD_RexxRegisterSubcomExe,
ORD_NENTRIES
};
#define DeclVoidFuncByORD(name,o,at,args) \
void name at { CallORD(void,o,at,args); }
-/* These functions return false on error, and save the error info in $^E */
+/* This function returns error code on error, and saves the error info in $^E and Perl_rc */
+#define DeclOSFuncByORD_native(ret,name,o,at,args) \
+ ret name at { unsigned long rc; return CheckOSError(CallORD(ret,o,at,args)); }
+
+/* These functions return false on error, and save the error info in $^E and Perl_rc */
#define DeclOSFuncByORD(ret,name,o,at,args) \
ret name at { unsigned long rc; return !CheckOSError(CallORD(ret,o,at,args)); }
#define DeclWinFuncByORD(ret,name,o,at,args) \
void ResetWinError(void);
void CroakWinError(int die, char *name);
+enum Perlos2_handler {
+ Perlos2_handler_mangle = 1,
+ Perlos2_handler_perl_sh,
+ Perlos2_handler_perllib_from,
+ Perlos2_handler_perllib_to,
+};
+enum dir_subst_e {
+ dir_subst_fatal = 1,
+ dir_subst_pathlike = 2
+};
+
+extern int Perl_OS2_handler_install(void *handler, enum Perlos2_handler how);
+extern char *dir_subst(char *s, unsigned int l, char *b, unsigned int bl, enum dir_subst_e flags, char *msg);
+extern unsigned long fill_extLibpath(int type, char *pre, char *post, int replace, char *msg);
+
#define PERLLIB_MANGLE(s, n) perllib_mangle((s), (n))
char *perllib_mangle(char *, unsigned int);
my_select(int nfds, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout)
{
if (nfds == 0 && timeout && (_emx_env & 0x200)) {
- if (DosSleep(1000 * timeout->tv_sec + (timeout->tv_usec + 500)/1000) == 0)
+ if (async_mssleep(1000 * timeout->tv_sec + (timeout->tv_usec + 500)/1000, 500))
return 0;
errno = EINTR;
return -1;
void croak_with_os2error(char *s) __attribute__((noreturn));
+/* void return value */
+#define os2cp_croak(rc,msg) (CheckOSError(rc) && (croak_with_os2error(msg),0))
+
+/* propagates rc */
+#define os2win_croak(rc,msg) \
+ SaveCroakWinError((expr), 1 /* die */, /* no prefix */, (msg))
+
+/* propagates rc; use with functions which may return 0 on success */
+#define os2win_croak_0OK(rc,msg) \
+ SaveCroakWinError((ResetWinError, (expr)), \
+ 1 /* die */, /* no prefix */, (msg))
+
#ifdef PERL_CORE
int os2_do_spawn(pTHX_ char *cmd);
int os2_do_aspawn(pTHX_ SV *really, SV **vmark, SV **vsp);
#endif
+/* ************************************************* */
+#ifndef MAKEPLINFOSEG
+
+/* From $DDK\base32\rel\os2c\include\base\os2\16bit\infoseg.h + typedefs */
+
+/*
+ * The structure below defines the content and organization of the system
+ * information segment (InfoSeg). The actual table is statically defined in
+ * SDATA.ASM. Ring 0, read/write access is obtained by the clock device
+ * driver using the DevHlp GetDOSVar function. (GetDOSVar returns a ring 0,
+ * read-only selector to all other requestors.)
+ *
+ * In order to prevent an errant process from destroying the infoseg, two
+ * identical global infosegs are maintained. One is in the tiled shared
+ * arena and is accessible in user mode (and therefore can potentially be
+ * overwritten from ring 2), and the other is in the system arena and is
+ * accessible only in kernel mode. All kernel code (except the clock driver)
+ * is responsible for updating BOTH copies of the infoseg. The copy kept
+ * in the system arena is addressable as DOSGROUP:SISData, and the copy
+ * in the shared arena is addressable via a system arena alias. 16:16 and
+ * 0:32 pointers to the alias are stored in _Sis2.
+ */
+
+typedef struct InfoSegGDT {
+
+/* Time (offset 0x00) */
+
+unsigned long SIS_BigTime; /* Time from 1-1-1970 in seconds */
+unsigned long SIS_MsCount; /* Freerunning milliseconds counter */
+unsigned char SIS_HrsTime; /* Hours */
+unsigned char SIS_MinTime; /* Minutes */
+unsigned char SIS_SecTime; /* Seconds */
+unsigned char SIS_HunTime; /* Hundredths of seconds */
+unsigned short SIS_TimeZone; /* Timezone in min from GMT (Set to EST) */
+unsigned short SIS_ClkIntrvl; /* Timer interval (units=0.0001 secs) */
+
+/* Date (offset 0x10) */
+
+unsigned char SIS_DayDate; /* Day-of-month (1-31) */
+unsigned char SIS_MonDate; /* Month (1-12) */
+unsigned short SIS_YrsDate; /* Year (>= 1980) */
+unsigned char SIS_DOWDate; /* Day-of-week (1-1-80 = Tues = 3) */
+
+/* Version (offset 0x15) */
+
+unsigned char SIS_VerMajor; /* Major version number */
+unsigned char SIS_VerMinor; /* Minor version number */
+unsigned char SIS_RevLettr; /* Revision letter */
+
+/* System Status (offset 0x18) */
+
+unsigned char SIS_CurScrnGrp; /* Fgnd screen group # */
+unsigned char SIS_MaxScrnGrp; /* Maximum number of screen groups */
+unsigned char SIS_HugeShfCnt; /* Shift count for huge segments */
+unsigned char SIS_ProtMdOnly; /* Protect-mode-only indicator */
+unsigned short SIS_FgndPID; /* Foreground process ID */
+
+/* Scheduler Parms (offset 0x1E) */
+
+unsigned char SIS_Dynamic; /* Dynamic variation flag (1=enabled) */
+unsigned char SIS_MaxWait; /* Maxwait (seconds) */
+unsigned short SIS_MinSlice; /* Minimum timeslice (milliseconds) */
+unsigned short SIS_MaxSlice; /* Maximum timeslice (milliseconds) */
+
+/* Boot Drive (offset 0x24) */
+
+unsigned short SIS_BootDrv; /* Drive from which system was booted */
+
+/* RAS Major Event Code Table (offset 0x26) */
+
+unsigned char SIS_mec_table[32]; /* Table of RAS Major Event Codes (MECs) */
+
+/* Additional Session Data (offset 0x46) */
+
+unsigned char SIS_MaxVioWinSG; /* Max. no. of VIO windowable SG's */
+unsigned char SIS_MaxPresMgrSG; /* Max. no. of Presentation Manager SG's */
+
+/* Error logging Information (offset 0x48) */
+
+unsigned short SIS_SysLog; /* Error Logging Status */
+
+/* Additional RAS Information (offset 0x4A) */
+
+unsigned short SIS_MMIOBase; /* Memory mapped I/O selector */
+unsigned long SIS_MMIOAddr; /* Memory mapped I/O address */
+
+/* Additional 2.0 Data (offset 0x50) */
+
+unsigned char SIS_MaxVDMs; /* Max. no. of Virtual DOS machines */
+unsigned char SIS_Reserved;
+
+unsigned char SIS_perf_mec_table[32]; /* varga 6/5/97 Table of Performance Major Event Codes (MECS) varga*/
+} GINFOSEG, *PGINFOSEG;
+
+#define SIS_LEN sizeof(struct InfoSegGDT)
+
+/*
+ * InfoSeg LDT Data Segment Structure
+ *
+ * The structure below defines the content and organization of the system
+ * information in a special per-process segment to be accessible by the
+ * process through the LDT (read-only).
+ *
+ * As in the global infoseg, two copies of the current processes local
+ * infoseg exist, one accessible in both user and kernel mode, the other
+ * only in kernel mode. Kernel code is responsible for updating BOTH copies.
+ * Pointers to the local infoseg copy are stored in _Lis2.
+ *
+ * Note that only the currently running process has an extra copy of the
+ * local infoseg. The copy is done at context switch time.
+ */
+
+typedef struct InfoSegLDT {
+unsigned short LIS_CurProcID; /* Current process ID */
+unsigned short LIS_ParProcID; /* Process ID of parent */
+unsigned short LIS_CurThrdPri; /* Current thread priority */
+unsigned short LIS_CurThrdID; /* Current thread ID */
+unsigned short LIS_CurScrnGrp; /* Screengroup */
+unsigned char LIS_ProcStatus; /* Process status bits */
+unsigned char LIS_fillbyte1; /* filler byte */
+unsigned short LIS_Fgnd; /* Current process is in foreground */
+unsigned char LIS_ProcType; /* Current process type */
+unsigned char LIS_fillbyte2; /* filler byte */
+
+unsigned short LIS_AX; /* @@V1 Environment selector */
+unsigned short LIS_BX; /* @@V1 Offset of command line start */
+unsigned short LIS_CX; /* @@V1 Length of Data Segment */
+unsigned short LIS_DX; /* @@V1 STACKSIZE from the .EXE file */
+unsigned short LIS_SI; /* @@V1 HEAPSIZE from the .EXE file */
+unsigned short LIS_DI; /* @@V1 Module handle of the application */
+unsigned short LIS_DS; /* @@V1 Data Segment Handle of application */
+
+unsigned short LIS_PackSel; /* First tiled selector in this EXE */
+unsigned short LIS_PackShrSel; /* First selector above shared arena */
+unsigned short LIS_PackPckSel; /* First selector above packed arena */
+/* #ifdef SMP */
+unsigned long LIS_pTIB; /* Pointer to TIB */
+unsigned long LIS_pPIB; /* Pointer to PIB */
+/* #endif */
+} LINFOSEG, *PLINFOSEG;
+
+#define LIS_LEN sizeof(struct InfoSegLDT)
+
+
+/*
+ * Process Type codes
+ *
+ * These are the definitions for the codes stored
+ * in the LIS_ProcType field in the local infoseg.
+ */
+
+#define LIS_PT_FULLSCRN 0 /* Full screen app. */
+#define LIS_PT_REALMODE 1 /* Real mode process */
+#define LIS_PT_VIOWIN 2 /* VIO windowable app. */
+#define LIS_PT_PRESMGR 3 /* Presentation Manager app. */
+#define LIS_PT_DETACHED 4 /* Detached app. */
+
+
+/*
+ *
+ * Process Status Bit Definitions
+ *
+ */
+
+#define LIS_PS_EXITLIST 0x01 /* In exitlist handler */
+
+
+/*
+ * Flags equates for the Global Info Segment
+ * SIS_SysLog WORD in Global Info Segment
+ *
+ * xxxx xxxx xxxx xxx0 Error Logging Disabled
+ * xxxx xxxx xxxx xxx1 Error Logging Enabled
+ *
+ * xxxx xxxx xxxx xx0x Error Logging not available
+ * xxxx xxxx xxxx xx1x Error Logging available
+ */
+
+#define LF_LOGENABLE 0x0001 /* Logging enabled */
+#define LF_LOGAVAILABLE 0x0002 /* Logging available */
+
+#define MAKEPGINFOSEG(sel) ((PGINFOSEG)MAKEP(sel, 0))
+#define MAKEPLINFOSEG(sel) ((PLINFOSEG)MAKEP(sel, 0))
+
+#endif /* ndef(MAKEPLINFOSEG) */
+
/* ************************************************************ */
#define Dos32QuerySysState DosQuerySysState
#define QuerySysState(flags, pid, buf, bufsz) \
https://perl5.git.perl.org / perl5.git / blobdiff