Resync
[CMakeLuaTailorHgBridge.git] / CMakeLua / Utilities / cmcurl / amigaos.c
blobc77d7a1e91ff49ef4ac227358101eaf4b101d337
1 /***************************************************************************
2 * _ _ ____ _
3 * Project ___| | | | _ \| |
4 * / __| | | | |_) | |
5 * | (__| |_| | _ <| |___
6 * \___|\___/|_| \_\_____|
8 * Copyright (C) 1998 - 2005, Daniel Stenberg, <daniel@haxx.se>, et al.
10 * This software is licensed as described in the file COPYING, which
11 * you should have received as part of this distribution. The terms
12 * are also available at http://curl.haxx.se/docs/copyright.html.
14 * You may opt to use, copy, modify, merge, publish, distribute and/or sell
15 * copies of the Software, and permit persons to whom the Software is
16 * furnished to do so, under the terms of the COPYING file.
18 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19 * KIND, either express or implied.
21 * $Id: amigaos.c,v 1.2 2007/03/15 19:22:13 andy Exp $
22 ***************************************************************************/
24 #include "amigaos.h"
25 #include <amitcp/socketbasetags.h>
27 struct Library *SocketBase = NULL;
28 extern int errno, h_errno;
30 #ifdef __libnix__
31 #include <stabs.h>
32 void __request(const char *msg);
33 #else
34 # define __request( msg ) Printf( msg "\n\a")
35 #endif
37 void amiga_cleanup()
39 if(SocketBase) {
40 CloseLibrary(SocketBase);
41 SocketBase = NULL;
45 BOOL amiga_init()
47 if(!SocketBase)
48 SocketBase = OpenLibrary("bsdsocket.library", 4);
50 if(!SocketBase) {
51 __request("No TCP/IP Stack running!");
52 return FALSE;
55 if(SocketBaseTags(
56 SBTM_SETVAL(SBTC_ERRNOPTR(sizeof(errno))), (ULONG) &errno,
57 // SBTM_SETVAL(SBTC_HERRNOLONGPTR), (ULONG) &h_errno,
58 SBTM_SETVAL(SBTC_LOGTAGPTR), (ULONG) "cURL",
59 TAG_DONE)) {
61 __request("SocketBaseTags ERROR");
62 return FALSE;
65 #ifndef __libnix__
66 atexit(amiga_cleanup);
67 #endif
69 return TRUE;
72 #ifdef __libnix__
73 ADD2EXIT(amiga_cleanup,-50);
74 #endif