This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
backout change 22606 (make gv_fullname() include a literal '^')
[perl5.git] / iperlsys.h
diff --git a/iperlsys.h b/iperlsys.h
index 97a9a70..5bb0f05 100644 (file)
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -88,13 +88,19 @@ typedef void                (*LPSetBuf)(struct IPerlStdIO*, FILE*, char*);
 typedef int            (*LPSetVBuf)(struct IPerlStdIO*, FILE*, char*, int,
                            Size_t);
 typedef void           (*LPSetCnt)(struct IPerlStdIO*, FILE*, int);
+
+#ifndef NETWARE
 typedef void           (*LPSetPtr)(struct IPerlStdIO*, FILE*, char*);
+#elif defined(NETWARE)
+typedef void           (*LPSetPtr)(struct IPerlStdIO*, FILE*, char*, int);
+#endif
+
 typedef void           (*LPSetlinebuf)(struct IPerlStdIO*, FILE*);
 typedef int            (*LPPrintf)(struct IPerlStdIO*, FILE*, const char*,
                            ...);
 typedef int            (*LPVprintf)(struct IPerlStdIO*, FILE*, const char*,
                            va_list);
-typedef long           (*LPTell)(struct IPerlStdIO*, FILE*);
+typedef Off_t          (*LPTell)(struct IPerlStdIO*, FILE*);
 typedef int            (*LPSeek)(struct IPerlStdIO*, FILE*, Off_t, int);
 typedef void           (*LPRewind)(struct IPerlStdIO*, FILE*);
 typedef FILE*          (*LPTmpfile)(struct IPerlStdIO*);
@@ -275,9 +281,16 @@ struct IPerlStdIOInfo
 #define PerlSIO_stdout                 stdout
 #define PerlSIO_stderr                 stderr
 #define PerlSIO_fopen(x,y)             fopen(x,y)
+#ifdef __VOS__
+/* Work around VOS bug posix-979, wrongly setting errno when at end of file. */
+#define PerlSIO_fclose(f)              (((errno==1025)?errno=0:0),fclose(f))
+#define PerlSIO_feof(f)                        (((errno==1025)?errno=0:0),feof(f))
+#define PerlSIO_ferror(f)              (((errno==1025)?errno=0:0),ferror(f))
+#else
 #define PerlSIO_fclose(f)              fclose(f)
 #define PerlSIO_feof(f)                        feof(f)
 #define PerlSIO_ferror(f)              ferror(f)
+#endif
 #define PerlSIO_clearerr(f)            clearerr(f)
 #define PerlSIO_fgetc(f)                       fgetc(f)
 #ifdef FILE_base
@@ -327,9 +340,9 @@ struct IPerlStdIOInfo
 #define PerlSIO_set_ptr(f,p)           PerlIOProc_abort()
 #endif
 #define PerlSIO_setlinebuf(f)          setlinebuf(f)
-#define PerlSIO_printf                 Perl_fprintf_nocontext
-#define PerlSIO_stdoutf                        *PL_StdIO->pPrintf
-#define PerlSIO_vprintf(f,fmt,a)       
+#define PerlSIO_printf                 fprintf
+#define PerlSIO_stdoutf                        printf
+#define PerlSIO_vprintf(f,fmt,a)       vfprintf(f,fmt,a)
 #define PerlSIO_ftell(f)               ftell(f)
 #define PerlSIO_fseek(f,o,w)           fseek(f,o,w)
 #define PerlSIO_fgetpos(f,p)           fgetpos(f,p)
@@ -585,20 +598,20 @@ typedef int               (*LPLIOAccess)(struct IPerlLIO*, const char*, int);
 typedef int            (*LPLIOChmod)(struct IPerlLIO*, const char*, int);
 typedef int            (*LPLIOChown)(struct IPerlLIO*, const char*, uid_t,
                            gid_t);
-typedef int            (*LPLIOChsize)(struct IPerlLIO*, int, long);
+typedef int            (*LPLIOChsize)(struct IPerlLIO*, int, Off_t);
 typedef int            (*LPLIOClose)(struct IPerlLIO*, int);
 typedef int            (*LPLIODup)(struct IPerlLIO*, int);
 typedef int            (*LPLIODup2)(struct IPerlLIO*, int, int);
 typedef int            (*LPLIOFlock)(struct IPerlLIO*, int, int);
-typedef int            (*LPLIOFileStat)(struct IPerlLIO*, int, struct stat*);
+typedef int            (*LPLIOFileStat)(struct IPerlLIO*, int, Stat_t*);
 typedef int            (*LPLIOIOCtl)(struct IPerlLIO*, int, unsigned int,
                            char*);
 typedef int            (*LPLIOIsatty)(struct IPerlLIO*, int);
 typedef int            (*LPLIOLink)(struct IPerlLIO*, const char*,
                                     const char *);
-typedef long           (*LPLIOLseek)(struct IPerlLIO*, int, long, int);
+typedef Off_t          (*LPLIOLseek)(struct IPerlLIO*, int, Off_t, int);
 typedef int            (*LPLIOLstat)(struct IPerlLIO*, const char*,
-                           struct stat*);
+                           Stat_t*);
 typedef char*          (*LPLIOMktemp)(struct IPerlLIO*, char*);
 typedef int            (*LPLIOOpen)(struct IPerlLIO*, const char*, int);       
 typedef int            (*LPLIOOpen3)(struct IPerlLIO*, const char*, int, int); 
@@ -611,7 +624,7 @@ typedef int         (*LPLIOSetmode)(struct IPerlLIO*, FILE*, int);
 typedef int            (*LPLIOSetmode)(struct IPerlLIO*, int, int);
 #endif /* NETWARE */
 typedef int            (*LPLIONameStat)(struct IPerlLIO*, const char*,
-                           struct stat*);
+                           Stat_t*);
 typedef char*          (*LPLIOTmpnam)(struct IPerlLIO*, char*);
 typedef int            (*LPLIOUmask)(struct IPerlLIO*, int);
 typedef int            (*LPLIOUnlink)(struct IPerlLIO*, const char*);
@@ -795,6 +808,25 @@ struct IPerlMemInfo
        (*PL_Mem->pIsLocked)(PL_Mem)
 
 /* Shared memory macros */
+#ifdef NETWARE
+
+#define PerlMemShared_malloc(size)                         \
+       (*PL_Mem->pMalloc)(PL_Mem, (size))
+#define PerlMemShared_realloc(buf, size)                   \
+       (*PL_Mem->pRealloc)(PL_Mem, (buf), (size))
+#define PerlMemShared_free(buf)                                    \
+       (*PL_Mem->pFree)(PL_Mem, (buf))
+#define PerlMemShared_calloc(num, size)                            \
+       (*PL_Mem->pCalloc)(PL_Mem, (num), (size))
+#define PerlMemShared_get_lock()                           \
+       (*PL_Mem->pGetLock)(PL_Mem)
+#define PerlMemShared_free_lock()                          \
+       (*PL_Mem->pFreeLock)(PL_Mem)
+#define PerlMemShared_is_locked()                          \
+       (*PL_Mem->pIsLocked)(PL_Mem)
+
+#else
+
 #define PerlMemShared_malloc(size)                         \
        (*PL_MemShared->pMalloc)(PL_MemShared, (size))
 #define PerlMemShared_realloc(buf, size)                   \
@@ -810,6 +842,7 @@ struct IPerlMemInfo
 #define PerlMemShared_is_locked()                          \
        (*PL_MemShared->pIsLocked)(PL_MemShared)
 
+#endif
 
 /* Parse tree memory macros */
 #define PerlMemParse_malloc(size)                          \
@@ -912,14 +945,12 @@ typedef int               (*LPProcGetpid)(struct IPerlProc*);
 typedef void*          (*LPProcDynaLoader)(struct IPerlProc*, const char*);
 typedef void           (*LPProcGetOSError)(struct IPerlProc*,
                            SV* sv, DWORD dwErr);
-typedef void           (*LPProcFreeBuf)(struct IPerlProc*, char*);
-typedef BOOL           (*LPProcDoCmd)(struct IPerlProc*, char*);
-typedef int            (*LPProcSpawn)(struct IPerlProc*, char*);
 typedef int            (*LPProcSpawnvp)(struct IPerlProc*, int, const char*,
                            const char*const*);
-typedef int            (*LPProcASpawn)(struct IPerlProc*, void*, void**, void**);
 #endif
 typedef int            (*LPProcLastHost)(struct IPerlProc*);
+typedef int            (*LPProcGetTimeOfDay)(struct IPerlProc*,
+                                             struct timeval*, void*);
 
 struct IPerlProc
 {
@@ -953,13 +984,11 @@ struct IPerlProc
 #ifdef WIN32
     LPProcDynaLoader   pDynaLoader;
     LPProcGetOSError   pGetOSError;
-    LPProcDoCmd                pDoCmd;
-    LPProcSpawn                pSpawn;
     LPProcSpawnvp      pSpawnvp;
-    LPProcASpawn       pASpawn;
 #endif
     LPProcLastHost      pLastHost;
     LPProcPopenList    pPopenList;
+    LPProcGetTimeOfDay pGetTimeOfDay;
 };
 
 struct IPerlProcInfo
@@ -1032,17 +1061,13 @@ struct IPerlProcInfo
        (*PL_Proc->pDynaLoader)(PL_Proc, (f))
 #define PerlProc_GetOSError(s,e)                                       \
        (*PL_Proc->pGetOSError)(PL_Proc, (s), (e))
-#define PerlProc_Cmd(s)                                                        \
-       (*PL_Proc->pDoCmd)(PL_Proc, (s))
-#define do_spawn(s)                                                    \
-       (*PL_Proc->pSpawn)(PL_Proc, (s))
-#define do_spawnvp(m, c, a)                                            \
+#define PerlProc_spawnvp(m, c, a)                                      \
        (*PL_Proc->pSpawnvp)(PL_Proc, (m), (c), (a))
-#define PerlProc_aspawn(m,c,a)                                         \
-       (*PL_Proc->pASpawn)(PL_Proc, (m), (c), (a))
 #endif
 #define PerlProc_lasthost()                                            \
        (*PL_Proc->pLastHost)(PL_Proc)
+#define PerlProc_gettimeofday(t,z)                                     \
+       (*PL_Proc->pGetTimeOfDay)(PL_Proc,(t),(z))
 
 #else  /* PERL_IMPLICIT_SYS */
 
@@ -1077,12 +1102,17 @@ struct IPerlProcInfo
 #define PerlProc_signal(n, h)  signal((n), (h))
 #define PerlProc_fork()                my_fork()
 #define PerlProc_getpid()      getpid()
+#define PerlProc_gettimeofday(t,z)     gettimeofday((t),(z))
 
 #ifdef WIN32
 #define PerlProc_DynaLoad(f)                                           \
        win32_dynaload((f))
 #define PerlProc_GetOSError(s,e)                                       \
        win32_str_os_error((s), (e))
+#define PerlProc_spawnvp(m, c, a)                                      \
+       win32_spawnvp((m), (c), (a))
+#undef PerlProc_signal
+#define PerlProc_signal(n, h) win32_signal((n), (h))
 #endif
 #endif /* PERL_IMPLICIT_SYS */
 
Unnamed repository; edit this file 'description' to name the repository.