This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert some files from Latin-1 to UTF-8
[perl5.git] / NetWare / nwtinfo.h
1
2 /*
3  * Copyright © 2001 Novell, Inc. All Rights Reserved.
4  *
5  * You may distribute under the terms of either the GNU General Public
6  * License or the Artistic License, as specified in the README file.
7  *
8  */
9
10 /*
11  * FILENAME     :   NWTInfo.h
12  * DESCRIPTION  :   Thread-local storage for Perl.
13  * Author       :   SGP, HYAK
14  * Date Created :   January 2001.
15  * Date Modified:   July 2nd 2001.
16  */
17
18
19
20 #ifndef __NWTInfo_H__
21 #define __NWTInfo_H__
22
23
24 #include "win32ish.h"           // For "BOOL", "TRUE" and "FALSE"
25
26 typedef struct tagThreadInfo
27 {
28         int tid;
29         struct tagThreadInfo *next;
30         BOOL    m_dontTouchHashLists;
31         void*   m_allocList;
32 }ThreadInfo;
33
34 void fnInitializeThreadInfo(void);
35 BOOL fnTerminateThreadInfo(void);
36
37 ThreadInfo* fnAddThreadInfo(int tid);
38 BOOL fnRemoveThreadInfo(int tid);
39 ThreadInfo* fnGetThreadInfo(int tid);
40
41 #ifdef __cplusplus
42         //For storing and retrieving Watcom Hash list address
43         extern "C" BOOL fnInsertHashListAddrs(void *addrs, BOOL dontTouchHashList);
44         //Registering with the Thread table
45         extern "C" BOOL fnRegisterWithThreadTable(void);
46         extern "C" BOOL fnUnregisterWithThreadTable(void);
47 #else
48         //For storing and retrieving Watcom Hash list address
49         BOOL fnInsertHashListAddrs(void *addrs, BOOL dontTouchHashList);
50         //Registering with the Thread table
51         BOOL fnRegisterWithThreadTable(void);
52         BOOL fnUnregisterWithThreadTable(void);
53 #endif
54
55 BOOL fnGetHashListAddrs(void **addrs, BOOL *dontTouchHashList);
56
57 //New TLS to set and get the thread contex - may be redundant,
58 //or see if the above portion can be removed once this works properly
59 typedef struct tagThreadCtx
60 {
61         long tid;
62         void *tInfo;
63         struct tagThreadCtx *next;
64 }ThreadContext;
65
66
67 long fnInitializeThreadCtx(void);
68 ThreadContext* fnAddThreadCtx(long lTLSIndex, void *t);
69 BOOL fnRemoveThreadCtx(long lTLSIndex);
70 void* fnGetThreadCtx(long lTLSIndex);
71
72 #endif  // __NWTInfo_H__
73