lib/amigaos.c

   1 /***************************************************************************
   2  *                                  _   _ ____  _
   3  *  Project                     ___| | | |  _ \| |
   4  *                             / __| | | | |_) | |
   5  *                            | (__| |_| |  _ <| |___
   6  *                             \___|\___/|_| \_\_____|
   7  *
   8  * Copyright (C) 1998 - 2016, Daniel Stenberg, <daniel@haxx.se>, et al.
   9  *
  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 https://curl.haxx.se/docs/copyright.html.
  13  *
  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.
  17  *
  18  * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
  19  * KIND, either express or implied.
  20  *
  21  ***************************************************************************/
  22
  23 #include "curl_setup.h"
  24
  25 #if defined(__AMIGA__) && !defined(__ixemul__)
  26
  27 #include <amitcp/socketbasetags.h>
  28
  29 #include "amigaos.h"
  30
  31 struct Library *SocketBase = NULL;
  32 extern int errno, h_errno;
  33
  34 #ifdef __libnix__
  35 #include <stabs.h>
  36 void __request(const char *msg);
  37 #else
  38 # define __request(msg)       Printf(msg "\n\a")
  39 #endif
  40
  41 void Curl_amiga_cleanup()
  42 {
  43   if(SocketBase) {
  44     CloseLibrary(SocketBase);
  45     SocketBase = NULL;
  46   }
  47 }
  48
  49 bool Curl_amiga_init()
  50 {
  51   if(!SocketBase)
  52     SocketBase = OpenLibrary("bsdsocket.library", 4);
  53
  54   if(!SocketBase) {
  55     __request("No TCP/IP Stack running!");
  56     return FALSE;
  57   }
  58
  59   if(SocketBaseTags(SBTM_SETVAL(SBTC_ERRNOPTR(sizeof(errno))), (ULONG) &errno,
  60                     SBTM_SETVAL(SBTC_LOGTAGPTR), (ULONG) "cURL",
  61                     TAG_DONE)) {
  62     __request("SocketBaseTags ERROR");
  63     return FALSE;
  64   }
  65
  66 #ifndef __libnix__
  67   atexit(Curl_amiga_cleanup);
  68 #endif
  69
  70   return TRUE;
  71 }
  72
  73 #ifdef __libnix__
  74 ADD2EXIT(Curl_amiga_cleanup, -50);
  75 #endif
  76
  77 #endif /* __AMIGA__ && ! __ixemul__ */