1 /***************************************************************************
2 * *
3 * Squish Developers Kit Source, Extended Version 2.00 *
4 * Copyright 1989-1994 by SCI Communications. All rights reserved. *
5 * *
6 * USE OF THIS FILE IS SUBJECT TO THE RESTRICTIONS CONTAINED IN THE *
7 * SQUISH DEVELOPERS KIT LICENSING AGREEMENT IN SQDEV.PRN. IF YOU DO NOT *
8 * FIND THE TEXT OF THIS AGREEMENT IN THE AFOREMENTIONED FILE, OR IF YOU *
9 * DO NOT HAVE THIS FILE, YOU SHOULD IMMEDIATELY CONTACT THE AUTHOR AT *
10 * ONE OF THE ADDRESSES LISTED BELOW. IN NO EVENT SHOULD YOU PROCEED TO *
11 * USE THIS FILE WITHOUT HAVING ACCEPTED THE TERMS OF THE SQUISH *
12 * DEVELOPERS KIT LICENSING AGREEMENT, OR SUCH OTHER AGREEMENT AS YOU ARE *
13 * ABLE TO REACH WITH THE AUTHOR. *
14 * *
15 * You can contact the author at one of the address listed below: *
16 * *
17 * Scott Dudley FidoNet 1:249/106 *
18 * 777 Downing St. Internet sjd@f106.n249.z1.fidonet.org *
19 * Kingston, Ont. CompuServe >INTERNET:sjd@f106.n249.z1.fidonet.org *
20 * Canada K7M 5N3 BBS 1-613-634-3058, V.32bis *
21 * *
22 ***************************************************************************/
23 /*
24 #pragma off(unreferenced)
25 static char rcs_id[]="$Id$";
26 #pragma on(unreferenced)
27 */
28
29 #define MSGAPI_HANDLERS
30 #define MSGAPI_NO_OLD_TYPES
31
32 #include <sys/types.h>
33 #include <sys/stat.h>
34 #include <fcntl.h>
35
36
37 #include <huskylib/compiler.h>
38
39 #ifdef HAS_IO_H
40 # include <io.h>
41 #endif
42 #ifdef HAS_SHARE_H
43 #include <share.h>
44 #endif
45
46 #ifdef HAS_MALLOC_H
47 #include <malloc.h>
48 #endif
49
50 #include <huskylib/huskylib.h>
51
52 /* Swith for build DLL */
53 #define DLLEXPORT
54 #include <huskylib/huskyext.h>
55
56 #include "old_msg.h"
57 #include "msgapi.h"
58 #include "api_sq.h"
59 #include "api_sqp.h"
60 #include "apidebug.h"
61
apiSquishGetHash(HAREA ha,dword dwMsg)62 dword _XPENTRY apiSquishGetHash(HAREA ha, dword dwMsg)
63 {
64 SQIDX sqi;
65
66 if (!SidxGet(Sqd->hix, dwMsg, &sqi))
67 {
68 return (dword)0L;
69 }
70
71 msgapierr=MERR_NONE;
72 return sqi.hash;
73 }
74
75