we want text files as well.
[privoxy.git] / amiga.c
1 const char amiga_rcs[] = "$Id: amiga.c,v 1.2 2001/05/23 00:13:58 joergs Exp $";
2 /*********************************************************************
3  *
4  * File        :  $Source: /cvsroot/ijbswa/current/amiga.c,v $
5  *
6  * Purpose     :  Amiga-specific declarations.
7  *
8  * Copyright   :  Written by and Copyright (C) 2001 the SourceForge
9  *                IJBSWA team.  http://ijbswa.sourceforge.net
10  *
11  *                This program is free software; you can redistribute it 
12  *                and/or modify it under the terms of the GNU General
13  *                Public License as published by the Free Software
14  *                Foundation; either version 2 of the License, or (at
15  *                your option) any later version.
16  *
17  *                This program is distributed in the hope that it will
18  *                be useful, but WITHOUT ANY WARRANTY; without even the
19  *                implied warranty of MERCHANTABILITY or FITNESS FOR A
20  *                PARTICULAR PURPOSE.  See the GNU General Public
21  *                License for more details.
22  *
23  *                The GNU General Public License should be included with
24  *                this file.  If not, you can view it at
25  *                http://www.gnu.org/copyleft/gpl.html
26  *                or write to the Free Software Foundation, Inc., 59
27  *                Temple Place - Suite 330, Boston, MA  02111-1307, USA.
28  *
29  * Revisions   :
30  *    $Log: amiga.c,v $
31  *    Revision 1.2  2001/05/23 00:13:58  joergs
32  *    AmigaOS support fixed.
33  *
34  *    Revision 1.1.1.1  2001/05/15 13:58:46  oes
35  *    Initial import of version 2.9.3 source tree
36  *
37  *
38  *********************************************************************/
39 \f
40
41 #include "config.h"
42
43 #ifdef AMIGA
44
45 #include <stdio.h>
46 #include <signal.h>
47
48 #include "project.h"
49
50 const char amiga_h_rcs[] = AMIGA_H_VERSION;
51
52 unsigned long __stack = 100*1024;
53 static char ver[] = "$VER: junkbuster " __AMIGAVERSION__ " (" __AMIGADATE__ ")";
54 struct Task *main_task = NULL;
55 int childs = 0;
56
57 void serve(struct client_state *csp);
58
59 __saveds ULONG server_thread(void)
60 {
61    struct client_state *local_csp;
62    struct UserData UserData;
63    struct Task *me=FindTask(NULL);
64
65    Wait(SIGF_SINGLE);
66    local_csp=(struct client_state *)(me->tc_UserData);
67    me->tc_UserData=&UserData;
68    SocketBase=(APTR)OpenLibrary("bsdsocket.library",3);
69    if(SocketBase)
70    {
71       SetErrnoPtr(&(UserData.eno),sizeof(int));
72       local_csp->cfd=ObtainSocket(local_csp->cfd, AF_INET, SOCK_STREAM, 0);
73       if(-1!=local_csp->cfd)
74       {
75          Signal(main_task,SIGF_SINGLE);
76          serve((struct client_state *) local_csp);
77       } else {
78          local_csp->active = 0;
79          Signal(main_task,SIGF_SINGLE);
80       }
81       CloseLibrary(SocketBase);
82    } else {
83       local_csp->active = 0;
84       Signal(main_task,SIGF_SINGLE);
85    }
86    childs--;
87    return 0;
88 }
89
90 void amiga_exit(void)
91 {
92    if(SocketBase)
93    {
94       CloseLibrary(SocketBase);
95    }
96 }
97
98 static struct SignalSemaphore memsem;
99 static struct SignalSemaphore *memsemptr = NULL;
100 static struct UserData GlobalUserData;
101
102 void InitAmiga(void)
103 {
104    main_task = FindTask(NULL);
105    main_task->tc_UserData = &GlobalUserData;
106
107    if (((struct Library *)SysBase)->lib_Version < 39)
108    {
109       exit(RETURN_FAIL);
110    }
111
112    signal(SIGINT,SIG_IGN);
113    SocketBase = (APTR)OpenLibrary("bsdsocket.library",3);
114    if (!SocketBase)
115    {
116       fprintf(stderr, "Can't open bsdsocket.library V3+\n");
117       exit(RETURN_ERROR);
118    }
119    SetErrnoPtr(&(GlobalUserData.eno),sizeof(int));
120    InitSemaphore(&memsem);
121    memsemptr = &memsem;
122
123    atexit(amiga_exit);
124 }
125
126 #ifdef __GNUC__
127 #ifdef libnix
128 /* multitaskingsafe libnix replacements */
129 static void *memPool=NULL;
130
131 void *malloc (size_t s)
132 {
133    ULONG *mem;
134    LONG size = s;
135
136    if (size<=0)
137    {
138       return NULL;
139    }
140    if (!memPool)
141    {
142       if (!(memPool=CreatePool(MEMF_ANY,32*1024,8*1024)))
143       {
144          return NULL;
145       }
146    }
147    size += sizeof(ULONG) + MEM_BLOCKMASK;
148    size &= ~MEM_BLOCKMASK;
149    if (memsemptr)
150    {
151       ObtainSemaphore(memsemptr);
152    }
153    if ((mem=AllocPooled(memPool,size)))
154    {
155       *mem++=size;
156    }
157    if (memsemptr)
158    {
159       ReleaseSemaphore(memsemptr);
160    }
161    return mem;
162 }
163
164 void free (void *m)
165 {
166    ULONG *mem = m;
167
168    if(mem && memPool)
169    {
170       ULONG size=*--mem;
171
172       if (memsemptr)
173       {
174          ObtainSemaphore(memsemptr);
175       }
176       FreePooled(memPool,mem,size);
177       if (memsemptr)
178       {
179          ReleaseSemaphore(memsemptr);
180       }
181    }
182 }
183
184 void *realloc (void *old, size_t ns)
185 {
186    void *new;
187    LONG osize, *o = old;
188    LONG nsize = ns;
189
190    if (!old)
191    {
192       return malloc(nsize);
193    }
194    osize = (*(o-1)) - sizeof(ULONG);
195    if (nsize <= osize)
196    {
197       return old;
198    }
199    if ((new = malloc(nsize)))
200    {
201       ULONG *n = new;
202
203       osize >>= 2;
204       while(osize--)
205       {
206          *n++ = *o++;
207       }
208       free(old);
209    }
210    return new;
211 }
212
213 void __memCleanUp (void)
214 {
215    if (memsemptr)
216    {
217       ObtainSemaphore(memsemptr);
218    }
219    if (memPool)
220    {
221       DeletePool(memPool);
222    }
223    if (memsemptr)
224    {
225       ReleaseSemaphore(memsemptr);
226    }
227 }
228
229 #define ADD2LIST(a,b,c) asm(".stabs \"_" #b "\"," #c ",0,0,_" #a )
230 #define ADD2EXIT(a,pri) ADD2LIST(a,__EXIT_LIST__,22); \
231                         asm(".stabs \"___EXIT_LIST__\",20,0,0," #pri "+128")
232 ADD2EXIT(__memCleanUp,-50);
233 #elif !defined(ixemul)
234 #error No libnix and no ixemul!?
235 #endif /* libnix */
236 #else
237 #error Only GCC is supported, multitasking safe malloc/free required.
238 #endif /* __GNUC__ */
239
240 #endif /* def AMIGA */