This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
various tweaks for PERL_OBJECT build & test
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 12 Jul 1998 06:38:27 +0000 (06:38 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 12 Jul 1998 06:38:27 +0000 (06:38 +0000)
p4raw-id: //depot/perl@1450

globals.c
iperlsys.h
win32/GenCAPI.pl
win32/Makefile
win32/makefile.mk
win32/win32.c
win32/win32iop.h

index 451b461..ba4d872 100644 (file)
--- a/globals.c
+++ b/globals.c
@@ -727,6 +727,7 @@ OP * (CPERLscope(*check)[]) _((OP *op)) = {
        ck_null,        /* readline */
        ck_null,        /* rcatline */
        ck_fun,         /* regcmaybe */
+       ck_fun,         /* regcreset */
        ck_null,        /* regcomp */
        ck_match,       /* match */
        ck_null,        /* subst */
@@ -1076,6 +1077,7 @@ OP * (CPERLscope(*ppaddr)[])(ARGSproto) = {
        pp_readline,
        pp_rcatline,
        pp_regcmaybe,
+       pp_regcreset,
        pp_regcomp,
        pp_match,
        pp_subst,
index 2febe6e..ebffcc3 100644 (file)
@@ -473,7 +473,7 @@ public:
                             int pmode, int &err) = 0;  
     virtual int                Read(int handle, void *buffer,
                             unsigned int count, int &err) = 0;
-    virtual int                Rename(const char *oldname,
+    virtual int                Rename(const char *oname,
                               const char *newname, int &err) = 0;
     virtual int                Setmode(int handle, int mode, int &err) = 0;
     virtual int                NameStat(const char *path,
@@ -520,8 +520,8 @@ public:
        piLIO->Open((file), (flag), (perm), ErrorNo())
 #define PerlLIO_read(fd, buf, count)                                   \
        piLIO->Read((fd), (buf), (count), ErrorNo())
-#define PerlLIO_rename(oldname, newname)                               \
-       piLIO->Rename((oldname), (newname), ErrorNo())
+#define PerlLIO_rename(oname, newname)                                 \
+       piLIO->Rename((oname), (newname), ErrorNo())
 #define PerlLIO_setmode(fd, mode)                                      \
        piLIO->Setmode((fd), (mode), ErrorNo())
 #define PerlLIO_stat(name, buf)                                                \
index 8f597a9..e220384 100644 (file)
@@ -870,9 +870,9 @@ int          _win32_stat(const char *name,struct stat *sbufptr)
     return pPerl->piLIO->NameStat(name, sbufptr, ErrorNo());
 }
 
-int          _win32_rename(const char *oldname, const char *newname)
+int          _win32_rename(const char *oname, const char *newname)
 {
-    return pPerl->piLIO->Rename(oldname, newname, ErrorNo());
+    return pPerl->piLIO->Rename(oname, newname, ErrorNo());
 }
 
 int          _win32_setmode(int fd, int mode)
index 4db5414..66d2a33 100644 (file)
@@ -66,8 +66,8 @@ INST_VER      = \5.00471
 
 #
 # if you have the source for des_fcrypt(), uncomment this and make sure the
-# file exists (see README.win32).  File should be located at the perl
-# top level directory.
+# file exists (see README.win32).  File should be located in the same
+# directory as this file.
 #
 #CRYPT_SRC     = des_fcrypt.c
 
@@ -351,10 +351,6 @@ MICROCORE_SRC      =               \
                ..\universal.c  \
                ..\util.c
 
-!IF "$(CRYPT_SRC)" != ""
-MICROCORE_SRC  = $(MICROCORE_SRC) ..\$(CRYPT_SRC)
-!ENDIF
-
 !IF "$(PERL_MALLOC)" == "define"
 EXTRACORE_SRC  = $(EXTRACORE_SRC) ..\malloc.c
 !ENDIF
@@ -371,13 +367,17 @@ WIN32_SRC =               \
 WIN32_SRC      = $(WIN32_SRC) .\win32thread.c 
 !ENDIF
 
+!IF "$(CRYPT_SRC)" != ""
+WIN32_SRC      = $(WIN32_SRC) .\$(CRYPT_SRC)
+!ENDIF
+
 PERL95_SRC     =               \
                perl95.c        \
                win32mt.c       \
                win32sckmt.c
 
 !IF "$(CRYPT_SRC)" != ""
-PERL95_SRC     = $(PERL95_SRC) ..\$(CRYPT_SRC)
+PERL95_SRC     = $(PERL95_SRC) .\$(CRYPT_SRC)
 !ENDIF
 
 DLL_SRC                = $(DYNALOADER).c
index 89477da..32f3a3d 100644 (file)
@@ -73,8 +73,8 @@ CCTYPE                *= BORLAND
 
 #
 # if you have the source for des_fcrypt(), uncomment this and make sure the
-# file exists (see README.win32).  File should be located at the perl
-# top level directory.
+# file exists (see README.win32).  File should be located in the same
+# directory as this file.
 #
 #CRYPT_SRC     *= des_fcrypt.c
 
@@ -465,10 +465,6 @@ MICROCORE_SRC      =               \
                ..\universal.c  \
                ..\util.c
 
-.IF "$(CRYPT_SRC)" != ""
-MICROCORE_SRC  += ..\$(CRYPT_SRC)
-.ENDIF
-
 .IF "$(PERL_MALLOC)" == "define"
 EXTRACORE_SRC  += ..\malloc.c
 .ENDIF
@@ -485,13 +481,17 @@ WIN32_SRC =               \
 WIN32_SRC      += .\win32thread.c 
 .ENDIF
 
+.IF "$(CRYPT_SRC)" != ""
+WIN32_SRC      += .\$(CRYPT_SRC)
+.ENDIF
+
 PERL95_SRC     =               \
                perl95.c        \
                win32mt.c       \
                win32sckmt.c
 
 .IF "$(CRYPT_SRC)" != ""
-PERL95_SRC     += ..\$(CRYPT_SRC)
+PERL95_SRC     += .\$(CRYPT_SRC)
 .ENDIF
 
 DLL_SRC                = $(DYNALOADER).c
index 24f42f7..7418fca 100644 (file)
@@ -1732,18 +1732,18 @@ win32_pclose(FILE *pf)
 }
 
 DllExport int
-win32_rename(const char *oldname, const char *newname)
+win32_rename(const char *oname, const char *newname)
 {
     char szNewWorkName[MAX_PATH+1];
     WIN32_FIND_DATA fdOldFile, fdNewFile;
     HANDLE handle;
     char *ptr;
 
-    if ((strchr(oldname, '\\') || strchr(oldname, '/'))
+    if ((strchr(oname, '\\') || strchr(oname, '/'))
        && strchr(newname, '\\') == NULL
        && strchr(newname, '/') == NULL)
     {
-       strcpy(szNewWorkName, oldname);
+       strcpy(szNewWorkName, oname);
        if ((ptr = strrchr(szNewWorkName, '\\')) == NULL)
            ptr = strrchr(szNewWorkName, '/');
        strcpy(++ptr, newname);
@@ -1751,14 +1751,14 @@ win32_rename(const char *oldname, const char *newname)
     else
        strcpy(szNewWorkName, newname);
 
-    if (stricmp(oldname, szNewWorkName) != 0) {
+    if (stricmp(oname, szNewWorkName) != 0) {
        // check that we're not being fooled by relative paths
        // and only delete the new file
        //  1) if it exists
        //  2) it is not the same file as the old file
        //  3) old file exist
        // GetFullPathName does not return the long file name on some systems
-       handle = FindFirstFile(oldname, &fdOldFile);
+       handle = FindFirstFile(oname, &fdOldFile);
        if (handle != INVALID_HANDLE_VALUE) {
            FindClose(handle);
     
@@ -1778,7 +1778,7 @@ win32_rename(const char *oldname, const char *newname)
            }
        }
     }
-    return rename(oldname, newname);
+    return rename(oname, newname);
 }
 
 DllExport int
index a83ebd5..cf2bd75 100644 (file)
@@ -74,7 +74,7 @@ DllExport  int        win32_stat(const char *name,struct stat *sbufptr);
 DllExport  int         win32_pipe( int *phandles, unsigned int psize, int textmode );
 DllExport  FILE*       win32_popen( const char *command, const char *mode );
 DllExport  int         win32_pclose( FILE *pf);
-DllExport  int         win32_rename( const char *oldname, const char *newname);
+DllExport  int         win32_rename( const char *oname, const char *newname);
 DllExport  int         win32_setmode( int fd, int mode);
 DllExport  long                win32_lseek( int fd, long offset, int origin);
 DllExport  long                win32_tell( int fd);