diff options
Diffstat (limited to 'NetWare')
-rw-r--r-- | NetWare/Makefile | 7 | ||||
-rw-r--r-- | NetWare/interface.c | 24 | ||||
-rw-r--r-- | NetWare/interface.h | 13 | ||||
-rw-r--r-- | NetWare/iperlhost.h | 13 | ||||
-rw-r--r-- | NetWare/nwtinfo.h | 22 | ||||
-rw-r--r-- | NetWare/perlsdio.h | 18 |
6 files changed, 51 insertions, 46 deletions
diff --git a/NetWare/Makefile b/NetWare/Makefile index 4ac2091d10..10b3d23b82 100644 --- a/NetWare/Makefile +++ b/NetWare/Makefile @@ -15,7 +15,7 @@ ## This file is created by using the makefile that creates Windows Perl as the reference ## Author: sgp ## Date Created: 13th July 2000 -## Date Modified: 30th June 2001 +## Date Modified: 2nd July 2001 # Name of the NLM NLM_NAME = perl.nlm @@ -1479,8 +1479,11 @@ distclean: clean nwclean cd ..\netware !if "$(NW_EXTNS)"=="yes" cd cgi2perl - -del *.obj *.bs Makefile *$(o) *.c pm_to_blib *.xdc *.err + -del *.obj *.bs Makefile *$(o) *.c pm_to_blib *.xdc *.err *.sym *.map cd .. + cd $(EXTDIR)\Perl2UCS + -del *.obj *.bs Makefile *$(o) *.c pm_to_blib *.xdc *.err *.sym *.map *.c + cd ..\..\netware !endif -rmdir /s /q $(AUTODIR) || rmdir /s $(AUTODIR) -rmdir /s /q $(COREDIR) || rmdir /s $(COREDIR) diff --git a/NetWare/interface.c b/NetWare/interface.c index 3525dccd1c..c526fbd6be 100644 --- a/NetWare/interface.c +++ b/NetWare/interface.c @@ -8,17 +8,17 @@ */ /* - * FILENAME : interface.c - * DESCRIPTION : Perl parsing and running functions. - * Author : SGP - * Date : January 2001. - * + * FILENAME : interface.c + * DESCRIPTION : Calling Perl APIs. + * Author : SGP + * Date Created : January 2001. + * Date Modified: July 2nd 2001. */ #include "interface.h" - +#include "nwtinfo.h" static void xs_init(pTHX); @@ -42,6 +42,18 @@ ClsPerlHost::VersionNumber() return 0; } +bool +ClsPerlHost::RegisterWithThreadTable() +{ + return(fnRegisterWithThreadTable()); +} + +bool +ClsPerlHost::UnregisterWithThreadTable() +{ + return(fnUnregisterWithThreadTable()); +} + int ClsPerlHost::PerlCreate(PerlInterpreter *my_perl) { diff --git a/NetWare/interface.h b/NetWare/interface.h index f574166b2a..ab24e5c325 100644 --- a/NetWare/interface.h +++ b/NetWare/interface.h @@ -8,11 +8,11 @@ */ /* - * FILENAME : interface.c - * DESCRIPTION : Perl parsing and running functions. - * Author : SGP - * Date : January 2001. - * + * FILENAME : interface.c + * DESCRIPTION : Perl parsing and running functions. + * Author : SGP + * Date Created : January 2001. + * Date Modified: July 2nd 2001. */ @@ -36,7 +36,8 @@ public: int PerlParse(PerlInterpreter *my_perl, int argc, char** argv, char** env); int PerlRun(PerlInterpreter *my_perl); void PerlDestroy(PerlInterpreter *my_perl); - + bool RegisterWithThreadTable(void); + bool UnregisterWithThreadTable(void); }; diff --git a/NetWare/iperlhost.h b/NetWare/iperlhost.h index e07a14f44e..4079a6e309 100644 --- a/NetWare/iperlhost.h +++ b/NetWare/iperlhost.h @@ -8,11 +8,11 @@ */ /* - * FILENAME : iperlhost.h - * DESCRIPTION : IPerlHost class file. - * Author : SGP - * Date : January 2001. - * + * FILENAME : iperlhost.h + * DESCRIPTION : IPerlHost class file. + * Author : SGP + * Date Created : January 2001. + * Date Modified: July 2nd 2001. */ @@ -34,7 +34,8 @@ public: virtual int PerlParse(PerlInterpreter *my_perl,int argc, char** argv, char** env) = 0; virtual int PerlRun(PerlInterpreter *my_perl) = 0; virtual void PerlDestroy(PerlInterpreter *my_perl) = 0; - + virtual bool RegisterWithThreadTable(void)=0; + virtual bool UnregisterWithThreadTable(void)=0; }; extern "C" IPerlHost* AllocStdPerl(); diff --git a/NetWare/nwtinfo.h b/NetWare/nwtinfo.h index fd004bc62e..25d78a720f 100644 --- a/NetWare/nwtinfo.h +++ b/NetWare/nwtinfo.h @@ -8,11 +8,11 @@ */ /* - * FILENAME : NWTInfo.h - * DESCRIPTION : Thread-local storage for Perl. - * Author : SGP, HYAK - * Date : January 2001. - * + * FILENAME : NWTInfo.h + * DESCRIPTION : Thread-local storage for Perl. + * Author : SGP, HYAK + * Date Created : January 2001. + * Date Modified: July 2nd 2001. */ @@ -33,19 +33,25 @@ typedef struct tagThreadInfo void fnInitializeThreadInfo(void); BOOL fnTerminateThreadInfo(void); -BOOL fnRegisterWithThreadTable(void); -BOOL fnUnregisterWithThreadTable(void); ThreadInfo* fnAddThreadInfo(int tid); BOOL fnRemoveThreadInfo(int tid); ThreadInfo* fnGetThreadInfo(int tid); -//For storing and retrieving Watcom Hash list address #ifdef __cplusplus + //For storing and retrieving Watcom Hash list address extern "C" BOOL fnInsertHashListAddrs(void *addrs, BOOL dontTouchHashList); + //Registering with the Thread table + extern "C" BOOL fnRegisterWithThreadTable(void); + extern "C" BOOL fnUnregisterWithThreadTable(void); #else + //For storing and retrieving Watcom Hash list address BOOL fnInsertHashListAddrs(void *addrs, BOOL dontTouchHashList); + //Registering with the Thread table + BOOL fnRegisterWithThreadTable(void); + BOOL fnUnregisterWithThreadTable(void); #endif + BOOL fnGetHashListAddrs(void **addrs, BOOL *dontTouchHashList); //New TLS to set and get the thread contex - may be redundant, diff --git a/NetWare/perlsdio.h b/NetWare/perlsdio.h deleted file mode 100644 index fad4277e8e..0000000000 --- a/NetWare/perlsdio.h +++ /dev/null @@ -1,18 +0,0 @@ ---- perlsdio.h.old Sat Jun 30 14:42:22 2001 -+++ perlsdio.h Sat Jun 30 14:59:49 2001 -@@ -1,4 +1,9 @@ - #ifdef PERLIO_IS_STDIO -+ -+#ifdef NETWARE -+ #include "nwstdio.h" -+#else -+ - /* - * This file #define-s the PerlIO_xxx abstraction onto stdio functions. - * Make this as close to original stdio as possible. -@@ -136,4 +141,5 @@ - #define PerlIO_get_bufsiz(f) (abort(),0) - #endif - -+#endif /* NETWARE */ - #endif /* PERLIO_IS_STDIO */ |