ext/Time/Piece/README Time::Piece extension
ext/Time/Piece/Seconds.pm Time::Piece extension
ext/util/make_ext Used by Makefile to execute extension Makefiles
-ext/util/mkbootstrap Turns ext/*/*_BS into bootstrap info
ext/XS/Typemap/Makefile.PL XS::Typemap extension
ext/XS/Typemap/README XS::Typemap extension
ext/XS/Typemap/stdio.c XS::Typemap extension
NetWare/nwtinfo.h Netware port
NetWare/NWUtil.c Netware port
NetWare/nwutil.h Netware port
-NetWare/perlsdio.h Netware port
NetWare/t/NWModify.pl Netware port
NetWare/t/NWScripts.pl Netware port
NetWare/t/Readme.txt Netware port
## 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
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)
*/
/*
- * 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);
return 0;
}
+bool
+ClsPerlHost::RegisterWithThreadTable()
+{
+ return(fnRegisterWithThreadTable());
+}
+
+bool
+ClsPerlHost::UnregisterWithThreadTable()
+{
+ return(fnUnregisterWithThreadTable());
+}
+
int
ClsPerlHost::PerlCreate(PerlInterpreter *my_perl)
{
*/
/*
- * 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.
*/
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);
};
*/
/*
- * 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.
*/
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();
*/
/*
- * 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.
*/
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,
+++ /dev/null
---- 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 */
#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.
#define PerlIO_get_bufsiz(f) (abort(),0)
#endif
+#endif /* NETWARE */
#endif /* PERLIO_IS_STDIO */