This commit was manufactured by cvs2svn to create tag 'V1_199'.

git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/tags/V1_199@15087 87f5fb63-7c3d-0410-a384-fd976d0f7a62

library/TODO

@@ -0,0 +1,5 @@
+C99 math functions:
+
+	fma() and fmaf() should be implemented as a true "fused" multiply
+	and add function rather than the sequential operation implied in the
+	current implementation.

library/amiga.lib_rev.c

@@ -0,0 +1,38 @@
+/*
+ * $Id: amiga.lib_rev.c,v 1.3 2006-01-08 12:04:21 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "amiga.lib_rev.h"
+
+/****************************************************************************/
+
+char __amiga_lib_version[] = VERSTAG;

library/amiga.lib_rev.h

@@ -0,0 +1,6 @@
+#define VERSION		1
+#define REVISION	199
+#define DATE		"6.3.2006"
+#define VERS		"amiga.lib 1.199"
+#define VSTRING		"amiga.lib 1.199 (6.3.2006)\r\n"
+#define VERSTAG		"\0$VER: amiga.lib 1.199 (6.3.2006)"

library/amiga.lib_rev.rev

@@ -0,0 +1 @@
+199

library/amiga_acrypt.c

@@ -0,0 +1,106 @@
+/*
+ * $Id: amiga_acrypt.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#define ACrypt __ACrypt
+
+#include <exec/types.h>
+#include <string.h>
+#include <clib/alib_protos.h>
+
+#undef ACrypt
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+#define OSIZE 12
+
+/****************************************************************************/
+
+UBYTE *
+ACrypt(UBYTE * buffer, const UBYTE * password, const UBYTE * user)
+{
+	UBYTE * result = NULL;
+	LONG buf[OSIZE];
+	LONG i,d,k;
+
+	ENTER();
+
+	assert( buffer != NULL && password != NULL && user != NULL );
+
+	SHOWPOINTER(buffer);
+	SHOWSTRING(password);
+	SHOWSTRING(user);
+
+	if(buffer == NULL || password == NULL || user == NULL)
+	{
+		SHOWMSG("invalid parameters");
+		goto out;
+	}
+
+	for(i = 0 ; i < OSIZE ; i++)
+	{
+		if((*password) != '\0')
+			d = (*password++);
+		else
+			d = i;
+
+		if((*user) != '\0')
+			d += (*user++);
+		else
+			d += i;
+
+		buf[i] = 'A' + d;
+	}
+
+	for(i = 0 ; i < OSIZE ; i++)
+	{
+		for(k = 0 ; k < OSIZE ; k++)
+			buf[i] = (buf[i] + buf[OSIZE - k - 1]) % 53;
+
+		buffer[i] = buf[i] + 'A';
+	}
+
+	buffer[OSIZE-1] = '\0';
+
+	SHOWSTRING(buffer);
+
+	result = buffer;
+
+ out:
+
+	RETURN(result);
+	return(result);
+}

library/amiga_addtof.c

@@ -0,0 +1,83 @@
+/*
+ * $Id: amiga_addtof.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <exec/interrupts.h>
+#include <hardware/intbits.h>
+#include <graphics/graphint.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <proto/graphics.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "macros.h"
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+typedef LONG (* CFUNC)(APTR arg);
+
+/****************************************************************************/
+
+STATIC LONG INTERRUPT ASM
+call_routine(REG(a1,struct Isrvstr *i))
+{
+	CFUNC p = (CFUNC)i->ccode;
+
+	(*p)(i->Carg);
+
+	return(0);
+}
+
+/****************************************************************************/
+
+VOID
+AddTOF(struct Isrvstr *i,CFUNC p,APTR arg)
+{
+	assert( i != NULL && p != NULL );
+
+	i->code		= (long (*)())call_routine;
+	i->Iptr		= i;
+	i->ccode	= p;
+	i->Carg		= arg;
+
+	AddIntServer(INTB_VERTB,(struct Interrupt *)i);
+}

library/amiga_argarraydone.c

@@ -0,0 +1,71 @@
+/*
+ * $Id: amiga_argarraydone.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <workbench/workbench.h>
+#include <exec/memory.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <proto/icon.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+extern char **CXLIB_argarray;
+
+extern struct DiskObject * CXLIB_disko;
+
+/****************************************************************************/
+
+VOID
+ArgArrayDone(VOID)
+{
+	if(CXLIB_argarray != NULL)
+	{
+		FreeVec(CXLIB_argarray);
+		CXLIB_argarray = NULL;
+	}
+
+	if(CXLIB_disko != NULL)
+	{
+		FreeDiskObject(CXLIB_disko);
+		CXLIB_disko = NULL;
+	}
+}

library/amiga_argarrayinit.c

@@ -0,0 +1,99 @@
+/*
+ * $Id: amiga_argarrayinit.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <libraries/commodities.h>
+#include <workbench/workbench.h>
+#include <workbench/startup.h>
+#include <exec/memory.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <proto/dos.h>
+#include <proto/icon.h>
+#include <proto/commodities.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+const unsigned char ** CXLIB_argarray;
+
+struct DiskObject * CXLIB_disko;
+
+/****************************************************************************/
+
+STRPTR *
+ArgArrayInit(LONG argc, CONST_STRPTR * argv)
+{
+	STRPTR * result = NULL;
+
+	if(argc != 0) /* run from CLI */
+	{
+		LONG i;
+
+		if(argc == 1)
+			goto out; /* skip command name */
+
+		CXLIB_argarray = (const unsigned char **)AllocVec(sizeof(char *) * argc,MEMF_ANY|MEMF_CLEAR);
+		if(CXLIB_argarray == NULL)
+			goto out;
+
+		for(i = 1 ; i < argc ; i++)
+			CXLIB_argarray[i-1] = argv[i];
+
+		result = (unsigned char **)CXLIB_argarray;
+	}
+	else if (IconBase != NULL)
+	{
+		struct WBStartup * msg;
+
+		/* run from WB */
+		msg = (struct WBStartup *)argv;
+
+		CXLIB_disko = GetDiskObject(msg->sm_ArgList[0].wa_Name);
+		if(CXLIB_disko == NULL)
+			goto out;
+
+		result = (unsigned char **)CXLIB_disko->do_ToolTypes;
+	}
+
+ out:
+
+	return(result);
+}

library/amiga_argint.c

@@ -0,0 +1,60 @@
+/*
+ * $Id: amiga_argint.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <workbench/workbench.h>
+#include <exec/memory.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/dos.h>
+#include <proto/icon.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+LONG
+ArgInt(CONST_STRPTR *tt,CONST_STRPTR entry,LONG default_val)
+{
+	STRPTR str;
+
+	if(tt != NULL && IconBase != NULL && ((str = (STRPTR)FindToolType((STRPTR *)tt,(STRPTR)entry))) != NULL)
+		StrToLong(str,&default_val);
+
+	return(default_val);
+}

library/amiga_argstring.c

@@ -0,0 +1,61 @@
+/*
+ * $Id: amiga_argstring.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <libraries/commodities.h>
+#include <workbench/workbench.h>
+#include <workbench/startup.h>
+#include <exec/memory.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/icon.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+STRPTR
+ArgString(CONST_STRPTR *tt,CONST_STRPTR entry,CONST_STRPTR default_string)
+{
+	STRPTR result;
+
+	if(tt != NULL && IconBase != NULL && ((result = (STRPTR)FindToolType((STRPTR *)tt,(STRPTR)entry))) != NULL)
+		return(result);
+	else
+		return((STRPTR)default_string);
+}

library/amiga_beginio.c

@@ -0,0 +1,120 @@
+/*
+ * $Id: amiga_beginio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <exec/devices.h>
+#include <exec/io.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+#ifndef __PPC__
+
+/****************************************************************************/
+
+#if defined(__SASC)
+
+VOID __begin_io(struct IORequest * ior);
+#pragma libcall DeviceBase __begin_io 01e 901
+
+#endif /* __SASC */
+
+/****************************************************************************/
+
+#if defined(__GNUC__)
+
+#define __begin_io(ior) ({ \
+  struct IORequest * _BeginIO_ior = (ior); \
+  { \
+  register struct Library * const __BeginIO__bn __asm("a6") = (struct Library *) (DeviceBase);\
+  register struct IORequest * __BeginIO_ior __asm("a1") = (_BeginIO_ior); \
+  __asm volatile ("jsr a6@(-30:W)" \
+  : \
+  : "r"(__BeginIO__bn), "r"(__BeginIO_ior)  \
+  : "d0", "d1", "a0", "a1", "fp0", "fp1", "cc", "memory"); \
+  } \
+})
+
+#endif /* __GNUC__ */
+
+/****************************************************************************/
+
+VOID
+BeginIO(struct IORequest *ior)
+{
+	struct Device * DeviceBase;
+
+	ENTER();
+
+	assert( ior != NULL && ior->io_Device != NULL );
+
+	DeviceBase = ior->io_Device;
+	__begin_io(ior);
+
+	LEAVE();
+}
+
+/****************************************************************************/
+
+#else
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+
+/****************************************************************************/
+
+#if defined(BeginIO)
+#undef BeginIO
+#endif /* BeginIO */
+
+/****************************************************************************/
+
+VOID
+BeginIO(struct IORequest *ior)
+{
+	ENTER();
+
+	assert( ior != NULL && ior->io_Device != NULL );
+
+	IExec->BeginIO(ior);
+
+	LEAVE();
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_callhook.c

@@ -0,0 +1,67 @@
+/*
+ * $Id: amiga_callhook.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef __PPC__
+
+/****************************************************************************/
+
+#include <clib/alib_protos.h>
+
+#include <stdarg.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+ULONG
+CallHook(struct Hook *hook_ptr,Object *obj,...)
+{
+	ULONG result;
+	va_list arg;
+
+	assert( hook_ptr != NULL );
+
+	va_start(arg,obj);
+
+	result = CallHookA(hook_ptr,obj,(APTR)arg);
+
+	va_end(arg);
+
+	return(result);
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_callhooka.asm

@@ -0,0 +1,80 @@
+*
+*	$Id: amiga_callhooka.asm,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+*
+*	:ts=8
+*
+*	Portable ISO 'C' (1994) runtime library for the Amiga computer
+*	Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+*	All rights reserved.
+*
+*	Redistribution and use in source and binary forms, with or without
+*	modification, are permitted provided that the following conditions
+*	are met:
+*
+*	  - Redistributions of source code must retain the above copyright
+*	    notice, this list of conditions and the following disclaimer.
+*
+*	  - Neither the name of Olaf Barthel nor the names of contributors
+*	    may be used to endorse or promote products derived from this
+*	    software without specific prior written permission.
+*
+*	THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+*	AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+*	IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+*	ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+*	LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+*	CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+*	SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+*	INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+*	CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+*	ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+*	POSSIBILITY OF SUCH DAMAGE.
+*
+
+	section	text,code
+
+h_Entry equ 8
+
+	xdef	_CallHookA
+
+****************************************************************************
+* new hook standard
+* use struct Hook (with minnode at the top)
+*
+* *** register calling convention: ***
+*       A0 - pointer to hook itself
+*       A1 - pointer to parameter packed ("message")
+*       A2 - Hook specific address data ("object," e.g, gadget )
+*
+* ***  C conventions: ***
+* Note that parameters are in unusual register order: a0, a2, a1.
+* This is to provide a performance boost for assembly language
+* programming (the object in a2 is most frequently untouched).
+* It is also no problem in "register direct" C function parameters.
+*
+* calling through a hook
+*       CallHook( hook, object, msgid, p1, p2, ... );
+*       CallHookA( hook, object, msgpkt );
+*
+* using a C function:   CFunction( hook, object, message );
+*       hook.h_Entry = HookEntry;
+*       hook.h_SubEntry = CFunction;
+*
+****************************************************************************
+
+* C calling hook interface for prepared message packet
+_CallHookA:
+	movem.l	a2/a6,-(sp)
+	move.l	12(sp),a0
+	move.l	16(sp),a2
+	move.l	20(sp),a1
+	pea.l	hook_return(pc)
+	move.l	h_Entry(a0),-(sp)
+	rts
+
+hook_return:
+
+	movem.l	(sp)+,a2/a6
+	rts
+
+	end

library/amiga_callhooka.c

@@ -0,0 +1,93 @@
+/*
+ * $Id: amiga_callhooka.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#if (defined(__GNUC__) && !defined(__PPC__))
+
+/****************************************************************************/
+
+asm("
+
+h_Entry = 8
+
+	.text
+	.even
+
+|---------------------------------------------------------------------------
+| new hook standard
+| use struct Hook (with minnode at the top)
+|
+| *** register calling convention: ***
+|	A0 - pointer to hook itself
+|	A1 - pointer to parameter packed ('message')
+|	A2 - Hook specific address data ('object,' e.g, gadget )
+|
+| ***  C conventions: ***
+| Note that parameters are in unusual register order: a0, a2, a1.
+| This is to provide a performance boost for assembly language
+| programming (the object in a2 is most frequently untouched).
+| It is also no problem in 'register direct' C function parameters.
+|
+| calling through a hook
+|	CallHook( hook, object, msgid, p1, p2, ... );
+|	CallHookA( hook, object, msgpkt );
+|
+| using a C function:	CFunction( hook, object, message );
+|	hook.h_Entry = HookEntry;
+|	hook.h_SubEntry = CFunction;
+|
+|---------------------------------------------------------------------------
+
+| C calling hook interface for prepared message packet
+
+	.globl	_CallHookA
+
+_CallHookA:
+
+	moveml	a2/a6,sp@-
+	moveal	sp@(12),a0
+	moveal	sp@(16),a2
+	moveal	sp@(20),a1
+	pea		callhooka_return
+	movel	a0@(h_Entry),sp@-
+	rts
+
+callhooka_return:
+
+	moveml	sp@+,a2/a6
+	rts
+
+");
+
+/****************************************************************************/
+
+#endif /* __GNUC__ && !__PPC__ */

library/amiga_coercemethod.c

@@ -0,0 +1,93 @@
+/*
+ * $Id: amiga_coercemethod.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef __PPC__
+
+/****************************************************************************/
+
+#include <intuition/intuition.h>
+#include <intuition/classes.h>
+
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+ULONG
+CoerceMethodA(Class * cl,Object * obj,Msg msg)
+{
+	ULONG result = 0;
+
+	ENTER();
+
+	SHOWPOINTER(cl);
+	SHOWPOINTER(obj);
+	SHOWPOINTER(msg);
+
+	assert( cl != NULL && obj != NULL );
+
+	if(cl != NULL && obj != NULL)
+		result = CallHookA(&cl->cl_Dispatcher,obj,msg);
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+ULONG
+CoerceMethod(Class *cl, Object *obj, ULONG method_id, ...)
+{
+	ULONG result = 0;
+
+	ENTER();
+
+	SHOWPOINTER(cl);
+	SHOWPOINTER(obj);
+	SHOWVALUE(method_id);
+
+	assert( cl != NULL && obj != NULL );
+
+	if(cl != NULL && obj != NULL)
+		result = CoerceMethodA(cl,obj,(Msg)&method_id);
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_createextio.c

@@ -0,0 +1,68 @@
+/*
+ * $Id: amiga_createextio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+#if defined(CreateExtIO)
+#undef CreateExtIO
+#endif /* CreateExtIO */
+
+/****************************************************************************/
+
+struct IORequest *
+CreateExtIO(CONST struct MsgPort * port, LONG io_size)
+{
+	struct IORequest * result = NULL;
+
+	assert( port != NULL && io_size > 0 );
+
+	if(port == NULL || io_size < (LONG)sizeof(*result))
+		goto out;
+
+	result = CreateIORequest(port,(ULONG)io_size);
+
+ out:
+
+	return(result);
+}

library/amiga_createport.c

@@ -0,0 +1,75 @@
+/*
+ * $Id: amiga_createport.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+#if defined(CreatePort)
+#undef CreatePort
+#endif /* CreatePort */
+
+/****************************************************************************/
+
+struct MsgPort *
+CreatePort(CONST_STRPTR name, LONG pri)
+{
+	struct MsgPort * result = NULL;
+
+	assert( -128 <= pri && pri <= 127 );
+
+	if(pri < -128 || pri > 127)
+		goto out;
+
+	result = CreateMsgPort();
+	if(result != NULL && name != NULL)
+	{
+		result->mp_Node.ln_Name = (char *)name;
+		result->mp_Node.ln_Pri = pri;
+
+		AddPort(result);
+	}
+
+ out:
+
+	return(result);
+}

library/amiga_createstdio.c

@@ -0,0 +1,68 @@
+/*
+ * $Id: amiga_createstdio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+#if defined(CreateStdIO)
+#undef CreateStdIO
+#endif /* CreateStdIO */
+
+/****************************************************************************/
+
+struct IOStdReq *
+CreateStdIO(CONST struct MsgPort * port)
+{
+	struct IOStdReq * result = NULL;
+
+	assert( port != NULL );
+
+	if(port == NULL)
+		goto out;
+
+	result = (struct IOStdReq *)CreateIORequest((struct MsgPort *)port,sizeof(*result));
+
+ out:
+
+	return(result);
+}

library/amiga_createtask.c

@@ -0,0 +1,242 @@
+/*
+ * $Id: amiga_createtask.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/****************************************************************************/
+
+#include <exec/libraries.h>
+#include <exec/memory.h>
+#include <exec/tasks.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#ifndef _STDLIB_PROFILE_H
+#include "stdlib_profile.h"
+#endif /* _STDLIB_PROFILE_H */
+
+/****************************************************************************/
+
+#include "macros.h"
+#include "debug.h"
+
+/****************************************************************************/
+
+#ifndef __PPC__
+
+/****************************************************************************/
+
+/*
+ *  Create a task with given name, priority, and stack size.
+ *  It will use the default exception and trap handlers for now.
+ */
+
+/****************************************************************************/
+
+/* the template for the mementries.  Unfortunately, this is hard to
+ * do from C: mementries have unions, and they cannot be statically
+ * initialized...
+ *
+ * In the interest of simplicity I recreate the mem entry structures
+ * here with appropriate sizes.  We will copy this to a local
+ * variable and set the stack size to what the user specified,
+ * then attempt to actually allocate the memory.
+ */
+
+#define ME_TASK 	0
+#define ME_STACK	1
+
+#define NUM_MEM_ENTRIES	2
+
+/****************************************************************************/
+
+struct FakeMemEntry
+{
+	ULONG fme_Reqs;
+	ULONG fme_Size;
+};
+
+/****************************************************************************/
+
+struct FakeMemList
+{
+	struct Node			fml_Node;
+	UWORD				fml_NumEntries;
+	struct FakeMemEntry	fml_ME[NUM_MEM_ENTRIES];
+};
+
+/****************************************************************************/
+
+struct Task *
+CreateTask(CONST_STRPTR name,LONG pri,CONST APTR init_pc,ULONG stack_size)
+{
+	struct Task * new_task;
+	struct FakeMemList fake_mem_list;
+	struct MemList * ml = NULL;
+	APTR result = NULL;
+
+	ENTER();
+
+	SHOWSTRING(name);
+	SHOWVALUE(pri);
+	SHOWPOINTER(init_pc);
+	SHOWVALUE(stack_size);
+
+	assert( name != NULL && (-128 <= pri && pri <= 127) && init_pc != NULL && stack_size > 0 );
+
+	if(name == NULL || pri < -128 || pri > 127 || init_pc == NULL || stack_size == 0)
+	{
+		SHOWMSG("invalid parameters");
+		goto out;
+	}
+
+	/* round the stack up to longwords... */
+	stack_size = (stack_size + 3UL) & ~3UL;
+
+	/*
+	 * This will allocate two chunks of memory: task of PUBLIC
+	 * and stack of PRIVATE
+	 */
+	memset(&fake_mem_list,0,sizeof(fake_mem_list));
+
+	fake_mem_list.fml_NumEntries			= NUM_MEM_ENTRIES;
+	fake_mem_list.fml_ME[ME_TASK].fme_Reqs	= MEMF_PUBLIC | MEMF_CLEAR;
+	fake_mem_list.fml_ME[ME_TASK].fme_Size	= sizeof(struct Task);
+	fake_mem_list.fml_ME[ME_STACK].fme_Reqs	= MEMF_ANY | MEMF_CLEAR;
+	fake_mem_list.fml_ME[ME_STACK].fme_Size	= stack_size;
+
+	ml = (struct MemList *)AllocEntry((struct MemList *)&fake_mem_list);
+
+	/* Did the allocation succeed? */
+	if(((LONG)ml) < 0)
+	{
+		SHOWMSG("memory allocation failed");
+
+		/* Note: if AllocEntry() fails, the entire allocation is
+		 *       released before the function returns with bit #31
+		 *       set and the number of the slot that failed being
+		 *       returned. Thus, the return value is not a valid
+		 *       address that would need to be freed.
+		 */
+		ml = NULL;
+		goto out;
+	}
+
+	/* set the stack accounting stuff */
+	new_task = (struct Task *)ml->ml_ME[ME_TASK].me_Addr;
+
+	new_task->tc_SPLower	= ml->ml_ME[ME_STACK].me_Addr;
+	new_task->tc_SPUpper	= (APTR)((ULONG)(new_task->tc_SPLower) + stack_size);
+	new_task->tc_SPReg		= new_task->tc_SPUpper;
+
+	/* misc task data structures */
+	new_task->tc_Node.ln_Type	= NT_TASK;
+	new_task->tc_Node.ln_Pri	= pri;
+	new_task->tc_Node.ln_Name	= (char *)name;
+
+	/* add it to the tasks memory list */
+	NewList(&new_task->tc_MemEntry);
+	AddHead(&new_task->tc_MemEntry,(struct Node *)ml);
+
+	/* add the task to the system -- use the default final PC */
+
+	PROFILE_OFF();
+	result = AddTask(new_task,init_pc,NULL);
+	PROFILE_ON();
+
+	if(result == NULL)
+	{
+		SHOWMSG("could not add task");
+		goto out;
+	}
+
+	/* Gobbled up by task. */
+	ml = NULL;
+
+ out:
+
+	if(ml != NULL)
+		FreeEntry(ml);
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+#else
+
+/****************************************************************************/
+
+#if defined(CreateTask)
+#undef CreateTask
+#endif /* CreateTask */
+
+/****************************************************************************/
+
+struct Task *
+CreateTask(CONST_STRPTR name,LONG pri,CONST APTR init_pc,ULONG stack_size)
+{
+	struct Task * result = NULL;
+
+	ENTER();
+
+	SHOWSTRING(name);
+	SHOWVALUE(pri);
+	SHOWPOINTER(init_pc);
+	SHOWVALUE(stack_size);
+
+	assert( name != NULL && (-128 <= pri && pri <= 127) && init_pc != NULL && stack_size > 0 );
+
+	if(name == NULL || pri < -128 || pri > 127 || init_pc == NULL || stack_size == 0)
+	{
+		SHOWMSG("invalid parameters");
+		goto out;
+	}
+
+	result = IExec->CreateTask(name,pri,init_pc,stack_size,NULL);
+
+ out:
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_deleteextio.c

@@ -0,0 +1,60 @@
+/*
+ * $Id: amiga_deleteextio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+#if defined(DeleteExtIO)
+#undef DeleteExtIO
+#endif /* DeleteExtIO */
+
+/****************************************************************************/
+
+VOID
+DeleteExtIO(struct IORequest * io)
+{
+	assert(io != NULL);
+
+	if(io != NULL)
+		DeleteIORequest((struct IORequest *)io);
+}

library/amiga_deleteport.c

@@ -0,0 +1,62 @@
+/*
+ * $Id: amiga_deleteport.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+#if defined(DeletePort)
+#undef DeletePort
+#endif /* DeletePort */
+
+/****************************************************************************/
+
+VOID
+DeletePort(struct MsgPort * port)
+{
+	assert( port != NULL );
+
+	if(port->mp_Node.ln_Name != NULL)
+		RemPort(port);
+
+	DeleteMsgPort(port);
+}

library/amiga_deletestdio.c

@@ -0,0 +1,58 @@
+/*
+ * $Id: amiga_deletestdio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+#if defined(DeleteStdIO)
+#undef DeleteStdIO
+#endif /* DeleteStdIO */
+
+/****************************************************************************/
+
+VOID
+DeleteStdIO(struct IOStdReq * io)
+{
+	if(io != NULL)
+		DeleteIORequest((struct IORequest *)io);
+}

library/amiga_deletetask.c

@@ -0,0 +1,74 @@
+/*
+ * $Id: amiga_deletetask.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <exec/libraries.h>
+#include <exec/tasks.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#ifndef __PPC__
+
+/****************************************************************************/
+
+VOID
+DeleteTask(struct Task *tc)
+{
+	RemTask(tc);
+}
+
+/****************************************************************************/
+
+#else
+
+/****************************************************************************/
+
+#if defined(DeleteTask)
+#undef DeleteTask
+#endif /* DeleteTask */
+
+/****************************************************************************/
+
+VOID
+DeleteTask(struct Task *tc)
+{
+	IExec->DeleteTask(tc);
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_domethod.c

@@ -0,0 +1,100 @@
+/*
+ * $Id: amiga_domethod.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef __PPC__
+
+/****************************************************************************/
+
+#include <intuition/intuition.h>
+#include <intuition/classes.h>
+
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+ULONG
+DoMethodA(Object * obj,Msg msg)
+{
+	ULONG result = 0;
+
+	ENTER();
+
+	SHOWPOINTER(obj);
+	SHOWPOINTER(msg);
+
+	assert(obj != NULL);
+
+	if(obj != NULL)
+	{
+		Class * cl;
+
+		cl = OCLASS(obj);
+
+		assert( cl != NULL );
+
+		if(cl != NULL)
+			result = CallHookA(&cl->cl_Dispatcher,obj,msg);
+	}
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+ULONG
+DoMethod(Object *obj, ULONG method_id, ...)
+{
+	ULONG result = 0;
+
+	ENTER();
+
+	SHOWPOINTER(obj);
+	SHOWVALUE(method_id);
+
+	assert( obj != NULL );
+
+	if(obj != NULL)
+		result = DoMethodA(obj,(Msg)&method_id);
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_dosupermethod.c

@@ -0,0 +1,93 @@
+/*
+ * $Id: amiga_dosupermethod.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef __PPC__
+
+/****************************************************************************/
+
+#include <intuition/intuition.h>
+#include <intuition/classes.h>
+
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+ULONG
+DoSuperMethodA(Class * cl, Object * obj, Msg msg)
+{
+	ULONG result = 0;
+
+	ENTER();
+
+	SHOWPOINTER(cl);
+	SHOWPOINTER(obj);
+	SHOWPOINTER(msg);
+
+	assert( cl != NULL && obj != NULL );
+
+	if(cl != NULL && obj != NULL)
+		result = CallHookA(&cl->cl_Super->cl_Dispatcher,obj,msg);
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+ULONG
+DoSuperMethod(Class *cl, Object *obj, ULONG method_id, ...)
+{
+	ULONG result = 0;
+
+	ENTER();
+
+	SHOWPOINTER(cl);
+	SHOWPOINTER(obj);
+	SHOWVALUE(method_id);
+
+	assert( cl != NULL && obj != NULL );
+
+	if(cl != NULL && obj != NULL)
+		result = DoSuperMethodA(cl,obj,(Msg)&method_id);
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_dotimer.c

@@ -0,0 +1,148 @@
+/*
+ * $Id: amiga_dotimer.c,v 1.7 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <exec/errors.h>
+
+#include <devices/timer.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#ifndef _STDLIB_PROFILE_H
+#include "stdlib_profile.h"
+#endif /* _STDLIB_PROFILE_H */
+
+/****************************************************************************/
+
+#include "macros.h"
+#include "debug.h"
+
+/****************************************************************************/
+
+LONG
+DoTimer(struct timeval *tv,LONG unit,LONG command)
+{
+	struct timerequest * tr = NULL;
+	struct MsgPort * mp;
+	LONG error;
+
+	assert( tv != NULL );
+
+	#if defined(__amigaos4__)
+	{
+		mp = AllocSysObjectTags(ASOT_PORT,
+			ASOPORT_Action,			PA_SIGNAL,
+			ASOPORT_AllocSig,	FALSE,
+			ASOPORT_Signal,			SIGB_SINGLE,
+			ASOPORT_Target,			FindTask(NULL),
+		TAG_DONE);
+
+		if(mp == NULL)
+		{
+			error = IOERR_OPENFAIL;
+			goto out;
+		}
+	}
+	#else
+	{
+		mp = AllocVec(sizeof(*mp),MEMF_ANY|MEMF_PUBLIC|MEMF_CLEAR);
+		if(mp == NULL)
+		{
+			error = IOERR_OPENFAIL;
+			goto out;
+		}
+
+		mp->mp_Node.ln_Type	= NT_MSGPORT;
+		mp->mp_Flags		= PA_SIGNAL;
+		mp->mp_SigBit		= SIGB_SINGLE;
+		mp->mp_SigTask		= FindTask(NULL);
+
+		NewList(&mp->mp_MsgList);
+	}
+	#endif /* __amigaos4__ */
+
+	tr = (struct timerequest *)CreateIORequest(mp,sizeof(*tr));
+	if(tr == NULL)
+	{
+		error = IOERR_OPENFAIL;
+		goto out;
+	}
+
+	error = OpenDevice(TIMERNAME,(ULONG)unit,(struct IORequest *)tr,0);
+	if(error != 0)
+		goto out;
+
+	tr->tr_node.io_Command	= command;
+	tr->tr_time.tv_secs		= tv->tv_secs;
+	tr->tr_time.tv_micro	= tv->tv_micro;
+
+	PROFILE_OFF();
+
+	SetSignal(0,(1UL << mp->mp_SigBit));
+
+	error = DoIO((struct IORequest *)tr);
+
+	PROFILE_ON();
+
+	tv->tv_secs		= tr->tr_time.tv_secs;
+	tv->tv_micro	= tr->tr_time.tv_micro;
+
+ out:
+
+	if(tr != NULL)
+	{
+		if(tr->tr_node.io_Device != NULL)
+			CloseDevice((struct IORequest *)tr);
+
+		DeleteIORequest((struct IORequest *)tr);
+	}
+
+	#if defined(__amigaos4__)
+	{
+		if(mp != NULL)
+			FreeSysObject(ASOT_PORT,mp);
+	}
+	#else
+	{
+		FreeVec(mp);
+	}
+	#endif /* __amigaos4__ */
+
+	return(error);
+}

library/amiga_fastrand.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: amiga_fastrand.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <exec/types.h>
+
+/****************************************************************************/
+
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+ULONG
+FastRand(ULONG seed)
+{
+	ULONG value;
+
+	value = seed + seed;
+	if(value < seed)
+		value ^= 0x1D872B41;
+
+	return(value);
+}

library/amiga_freeievents.c

@@ -0,0 +1,62 @@
+/*
+ * $Id: amiga_freeievents.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <devices/inputevent.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+VOID
+FreeIEvents(struct InputEvent * ie)
+{
+	struct InputEvent * next;
+
+	while(ie != NULL)
+    {
+		next = ie->ie_NextEvent;
+
+		FreeVec(ie);
+
+		ie = next;
+	}
+}

library/amiga_hookentry.asm

@@ -0,0 +1,51 @@
+*
+*	$Id: amiga_hookentry.asm,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+*
+*	:ts=8
+*
+*	Portable ISO 'C' (1994) runtime library for the Amiga computer
+*	Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+*	All rights reserved.
+*
+*	Redistribution and use in source and binary forms, with or without
+*	modification, are permitted provided that the following conditions
+*	are met:
+*
+*	  - Redistributions of source code must retain the above copyright
+*	    notice, this list of conditions and the following disclaimer.
+*
+*	  - Neither the name of Olaf Barthel nor the names of contributors
+*	    may be used to endorse or promote products derived from this
+*	    software without specific prior written permission.
+*
+*	THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+*	AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+*	IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+*	ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+*	LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+*	CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+*	SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+*	INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+*	CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+*	ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+*	POSSIBILITY OF SUCH DAMAGE.
+*
+
+	section	text,code
+
+h_SubEntry equ 12
+
+	xdef	_HookEntry
+
+_HookEntry:
+
+	move.l   a1,-(sp)
+	move.l   a2,-(sp)
+	move.l   a0,-(sp)
+	move.l   h_SubEntry(a0),a0
+	jsr      (a0)
+	lea      12(sp),sp
+
+	rts
+
+	end

library/amiga_hookentry.c

@@ -0,0 +1,61 @@
+/*
+ * $Id: amiga_hookentry.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#if (defined(__GNUC__) && !defined(__PPC__))
+
+/****************************************************************************/
+
+asm("
+
+h_SubEntry = 12
+
+	.text
+	.even
+
+	.globl	_HookEntry
+
+_HookEntry:
+
+	movel	a1,sp@-
+	movel	a2,sp@-
+	movel	a0,sp@-
+	movel	a0@(h_SubEntry:W),a0
+	jsr		a0@
+	lea		sp@(12:W),sp
+	rts
+
+");
+
+/****************************************************************************/
+
+#endif /* __GNUC__ && !__PPC__ */

library/amiga_hotkey.c

@@ -0,0 +1,78 @@
+/*
+ * $Id: amiga_hotkey.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <libraries/commodities.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/commodities.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+CxObj *
+HotKey(CONST_STRPTR descr,struct MsgPort * port,LONG ID)
+{
+	CxObj * result = NULL;
+	CxObj * filter = NULL;
+
+	assert( descr != NULL && port != NULL );
+
+	if(CxBase == NULL)
+		goto out;
+
+	filter = CxFilter(descr);
+	if(filter == NULL)
+		goto out;
+
+	AttachCxObj(filter,CxSender(port,ID));
+	AttachCxObj(filter,CxTranslate(NULL));
+
+	if(CxObjError(filter))
+		goto out;
+
+	result = filter;
+
+ out:
+
+	if(result == NULL && filter != NULL)
+		DeleteCxObjAll(filter);
+
+	return(result);
+}

library/amiga_invertstring.c

@@ -0,0 +1,208 @@
+/*
+ * $Id: amiga_invertstring.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <libraries/commodities.h>
+#include <devices/keymap.h>
+#include <exec/memory.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <proto/commodities.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+STATIC int
+do_escape(int cc)
+{
+	int result;
+
+	switch(cc)
+	{
+		case 'n':
+        case 'r':
+
+			result = '\r';
+			break;
+
+        case 't':
+
+			result = '\t';
+			break;
+
+        case '0':
+
+			result = '\0';
+			break;
+
+        case '\\':
+        case '\"':
+        case '\'':
+        case '<':
+
+			result = cc;
+			break;
+
+        default:
+
+			result = -1;
+			break;
+    }
+
+    return(result);
+}
+
+/****************************************************************************/
+
+STATIC ULONG
+do_angle(STRPTR * strp, struct InputEvent *ie)
+{
+	ULONG result;
+	char * cp;
+	IX ix;
+
+	/* find closing angle '>', put a null there   */
+	for(cp = (*strp) ; (*cp) ; cp++)
+	{
+		if((*cp) == '>')
+		{
+			(*cp) = '\0';
+			break;
+		}
+	}
+
+	result = ParseIX((*strp),&ix);
+
+	if(cp != NULL)
+	{
+		(*cp)	= '>';	/* fix it */
+		(*strp)	= cp;	/* point to char following '>' */
+	}
+	else
+	{
+		(*strp) = cp - 1;   /* ++will point to terminating null */
+	}
+
+	if(result == 0)
+	{
+		/* use IX to describe a suitable InputEvent */
+		ie->ie_Class		= ix.ix_Class;
+		ie->ie_Code			= ix.ix_Code;
+		ie->ie_Qualifier	= ix.ix_Qualifier;
+	}
+
+	return(result);
+}
+
+/****************************************************************************/
+
+extern VOID FreeIEvents(struct InputEvent *ie);
+
+/****************************************************************************/
+
+struct InputEvent *
+InvertString(CONST_STRPTR str, CONST struct KeyMap *km)
+{
+	/* bugs:
+	   can't escape '>'
+	   puts '\0' on closing angles */
+
+	/* allocate input event for each character in string   */
+
+	struct InputEvent * result = NULL;
+	struct InputEvent * chain = NULL;
+	struct InputEvent * ie;
+	int cc;
+
+	if(CxBase == NULL || str == NULL || (*str) == '\0')
+		goto out;
+
+	do /* have checked that str is not null    */
+	{
+		/* allocate the next ie and link it in */
+		ie = AllocVec(sizeof(*ie),MEMF_ANY|MEMF_CLEAR|MEMF_PUBLIC);
+		if(ie == NULL)
+			goto out;
+
+		ie->ie_NextEvent = chain;
+		chain = ie;
+
+		/* now fill in the input event   */
+		cc = (*str);
+		switch(cc)
+		{
+			case '<':
+
+		        str++;
+
+				if(do_angle((STRPTR*)&str, ie) != 0)
+					goto out;
+
+				break;
+
+			case '\\':
+
+		        str++;
+
+				cc = do_escape(*str); /* get escaped character */
+				if(cc < 0)
+					goto out;
+
+				/* fall through  */
+
+			default:
+
+				InvertKeyMap((ULONG) cc, ie, (struct KeyMap *)km);
+				break;
+		}
+
+		str++;
+	}
+	while((*str) != '\0');
+
+	result = chain;
+
+ out:
+
+	if(result == NULL && chain != NULL)
+		FreeIEvents(chain);
+
+	return(result);
+}

library/amiga_newlist.c

@@ -0,0 +1,60 @@
+/*
+ * $Id: amiga_newlist.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <exec/lists.h>
+
+/****************************************************************************/
+
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+VOID
+NewList(struct List *lh)
+{
+	ENTER();
+
+	SHOWPOINTER(lh);
+
+	assert( lh != NULL );
+
+	lh->lh_Head		= (struct Node *)&lh->lh_Tail;
+	lh->lh_Tail		= NULL;
+	lh->lh_TailPred	= (struct Node *)&lh->lh_Head;
+
+	LEAVE();
+}

library/amiga_rangerand.c

@@ -0,0 +1,80 @@
+/*
+ * $Id: amiga_rangerand.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <exec/types.h>
+
+/****************************************************************************/
+
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+ULONG RangeSeed;
+
+/****************************************************************************/
+
+UWORD
+RangeRand(ULONG max_value)
+{
+	ULONG next_value;
+	ULONG result;
+	ULONG value;
+	UWORD range;
+	UWORD bits;
+
+	range = (max_value & 0xFFFF);
+	bits = range - 1;
+
+	value = RangeSeed;
+
+	do
+	{
+		next_value = value + value;
+		if(next_value <= value)
+			next_value ^= 0x1D872B41;
+
+		value = next_value;
+
+		bits = bits >> 1;
+	}
+	while(bits != 0);
+
+	RangeSeed = value;
+
+	if(range == 0)
+		result = value & 0xFFFF;
+	else
+		result = (range * (value & 0xFFFF)) >> 16;
+
+	return((UWORD)result);
+}

library/amiga_remtof.c

@@ -0,0 +1,57 @@
+/*
+ * $Id: amiga_remtof.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <exec/interrupts.h>
+#include <hardware/intbits.h>
+#include <graphics/graphint.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+VOID
+RemTOF(struct Isrvstr *i)
+{
+	assert( i != NULL );
+
+	RemIntServer(INTB_VERTB,(struct Interrupt *)i);
+}

library/amiga_rexxvars.c

@@ -0,0 +1,203 @@
+/*
+ * $Id: amiga_rexxvars.c,v 1.7 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/* We don't want to pull in <clib/alib_protos.h> */
+#define CLIB_ALIB_PROTOS_H
+
+/****************************************************************************/
+
+#ifndef _STDLIB_HEADERS_H
+#include "stdlib_headers.h"
+#endif /* _STDLIB_HEADERS_H */
+
+/****************************************************************************/
+
+#ifndef _STDLIB_CONSTRUCTOR_H
+#include "stdlib_constructor.h"
+#endif /* _STDLIB_CONSTRUCTOR_H */
+
+/****************************************************************************/
+
+#include <rexx/rxslib.h>
+#include <rexx/errors.h>
+
+/****************************************************************************/
+
+#define __NOLIBBASE__
+#include <proto/rexxsyslib.h>
+
+/****************************************************************************/
+
+static struct Library * RexxSysBase;
+
+/****************************************************************************/
+
+#if defined(__amigaos4__)
+static struct RexxSysIFace * IRexxSys;
+#endif /* __amigaos4__ */
+
+/****************************************************************************/
+
+CLIB_CONSTRUCTOR(rexxvars_init)
+{
+	ENTER();
+
+	RexxSysBase = OpenLibrary(RXSNAME,0);
+
+	#if defined(__amigaos4__)
+	{
+		if(RexxSysBase != NULL)
+		{
+			IRexxSys = (struct RexxSysIFace *)GetInterface(RexxSysBase, "main", 1, 0);
+			if(IRexxSys == NULL)
+			{
+				CloseLibrary(RexxSysBase);
+				RexxSysBase = NULL;
+			}
+		}
+	}
+	#endif /* __amigaos4__ */
+
+	LEAVE();
+
+	CONSTRUCTOR_SUCCEED();
+}
+
+/****************************************************************************/
+
+CLIB_DESTRUCTOR(rexxvars_exit)
+{
+	ENTER();
+
+	#if defined(__amigaos4__)
+	{
+		if(IRexxSys != NULL)
+			DropInterface((struct Interface *)IRexxSys);
+
+		IRexxSys = NULL;
+	}
+	#endif /* __amigaos4__ */
+
+	if(RexxSysBase != NULL)
+	{
+		CloseLibrary(RexxSysBase);
+		RexxSysBase = NULL;
+	}
+
+	LEAVE();
+}
+
+/****************************************************************************/
+
+/* This is modeled after the original assembly language code. Except for the
+   fact that we compare the library base against a local, static variable
+   rather then opening the library for each check. */
+BOOL
+CheckRexxMsg(struct RexxMsg *message)
+{
+	BOOL result = FALSE;
+
+	if(RexxSysBase == NULL)
+		goto out;
+
+	if(message->rm_LibBase != RexxSysBase)
+		goto out;
+
+	if(message->rm_TaskBlock == NULL)
+		goto out;
+
+	if(NOT IsRexxMsg(message))
+		goto out;
+
+	result = TRUE;
+
+ out:
+
+	return(result);
+}
+
+/****************************************************************************/
+
+/* The following function works in about like the original, except that it's
+   not reentrant, does not fill in a pointer to the variable itself and
+   requires rexxsyslib.library V45. */
+LONG
+GetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR *buffer_pointer)
+{
+	static UBYTE buffer[256];
+	LONG result;
+
+	/* The following uses a function which was added to rexxsyslib.library V45.
+	   We therefore have a minimum library version requirement. */
+	if(RexxSysBase == NULL || RexxSysBase->lib_Version < 45 || NOT IsRexxMsg(message))
+	{
+		result = ERR10_010; /* invalid message packet */
+		goto out;
+	}
+
+	/* The 256 character limit isn't good. This should be done differently. */
+	result = GetRexxVarFromMsg(variable_name,buffer,message);
+	if(result != 0)
+		goto out;
+
+	(*buffer_pointer) = buffer;
+
+ out:
+
+	return(result);
+}
+
+/****************************************************************************/
+
+/* The following function works in about like the original, except that it
+   ignores the length parameter (the value needs to be a NUL-terminated string)
+   and requires rexxsyslib.library V45. */
+LONG
+SetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR value,ULONG length)
+{
+	LONG result;
+
+	/* The following uses a function which was added to rexxsyslib.library V45.
+	   We therefore have a minimum library version requirement. */
+	if(RexxSysBase == NULL || RexxSysBase->lib_Version < 45 || NOT IsRexxMsg(message))
+	{
+		result = ERR10_010; /* invalid message packet */
+		goto out;
+	}
+
+	result = SetRexxVarFromMsg(variable_name,value,message);
+
+ out:
+
+	return(result);
+}

library/amiga_setsuperattrs.c

@@ -0,0 +1,101 @@
+/*
+ * $Id: amiga_setsuperattrs.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef __PPC__
+
+/****************************************************************************/
+
+#include <intuition/intuition.h>
+#include <intuition/classes.h>
+
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+STATIC ULONG
+SetSuperAttrsA(Class * cl,Object * obj,struct TagItem * tags)
+{
+	ULONG result = 0;
+
+	ENTER();
+
+	SHOWPOINTER(cl);
+	SHOWPOINTER(obj);
+	SHOWPOINTER(tags);
+
+	assert( cl != NULL && obj != NULL );
+
+	if(cl != NULL && obj != NULL)
+	{
+		struct opSet ops;
+
+		ops.MethodID		= OM_SET;
+		ops.ops_AttrList	= tags;
+		ops.ops_GInfo		= NULL;
+
+		result = CallHookA(&cl->cl_Super->cl_Dispatcher,obj,&ops);
+	}
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+ULONG
+SetSuperAttrs(Class * cl,Object * obj,ULONG tag1,...)
+{
+	ULONG result = 0;
+
+	ENTER();
+
+	SHOWPOINTER(cl);
+	SHOWPOINTER(obj);
+	SHOWVALUE(tag1);
+
+	assert( cl != NULL && obj != NULL );
+
+	if(cl != NULL && obj != NULL)
+		result = SetSuperAttrsA(cl,obj,(struct TagItem *)&tag1);
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_timedelay.c

@@ -0,0 +1,54 @@
+/*
+ * $Id: amiga_timedelay.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <devices/timer.h>
+
+/****************************************************************************/
+
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+LONG
+TimeDelay(LONG unit,ULONG seconds,ULONG micros)
+{
+	struct timeval tv;
+	LONG error;
+
+	tv.tv_secs	= seconds;
+	tv.tv_micro	= micros;
+
+	error = DoTimer(&tv,unit,TR_ADDREQUEST);
+
+	return(error);
+}

library/amiga_waitbeam.c

@@ -0,0 +1,60 @@
+/*
+ * $Id: amiga_waitbeam.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <exec/interrupts.h>
+#include <hardware/intbits.h>
+#include <graphics/graphint.h>
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/graphics.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+#define DO_NOTHING ((void)0)
+
+/****************************************************************************/
+
+VOID
+waitbeam(LONG position)
+{
+	while(position > VBeamPos())
+		DO_NOTHING;
+}

library/build_archive_amiga

@@ -0,0 +1,31 @@
+; Simple release archive build script for Amiga systems.
+
+; Set the name of the archive and the directory the
+; files go into
+set dir_name clib2-1.`type c.lib_rev.rev`
+
+; Start with a clean slate
+delete all quiet ram:$dir_name
+
+; Create the directory, copy all the libraries, header files
+; and release note files inside.
+makedir ram:$dir_name
+copy lib ram:${dir_name}/lib all clone quiet
+copy include ram:${dir_name}/include all clone quiet
+copy changes ram:$dir_name clone
+
+; Delete the CVS data from the include directory
+delete ram:${dir_name}/include/CVS ram:${dir_name}/include/sys/CVS ram:${dir_name}/include/arpa/CVS ram:${dir_name}/include/netinet/CVS all quiet
+
+; Finally, create an lha archive in RAM:
+pushcd ram:
+lha -r -x -a a ${dir_name}-gcc-68k.lha ${dir_name}
+popcd
+
+; Move the archive back to this directory
+copy ram:${dir_name}-gcc-68k.lha "" clone
+
+; Clean up...
+delete ram:$dir_name all quiet
+unset dir_name
+

library/build_archive_unix.sh

@@ -0,0 +1,27 @@
+#!/bin/sh
+
+# Simple release archive build script for Unix systems.
+# I typically build the library with a cross compiler.
+
+# Set the name of the archive and the directory the
+# files go into
+export dir_name=clib2-1.`cat c.lib_rev.rev`
+
+# Start with a clean slate
+rm -rf $dir_name
+
+# Create the directory, copy all the libraries, header files
+# and release note files inside.
+mkdir $dir_name
+cp -a lib $dir_name
+cp -a lib.threadsafe $dir_name
+cp -a include $dir_name
+cp changes $dir_name
+
+# Delete the CVS data from the include directory
+rm -rf ${dir_name}/include/CVS ${dir_name}/include/sys/CVS ${dir_name}/include/arpa/CVS ${dir_name}/include/netinet/CVS
+
+# Finally, create an lha type 5 archive; the Amiga LhA port
+# can unpack it.
+lha ao5q ${dir_name}-gcc-os4.lha ${dir_name}
+

library/c.lib_rev.c

@@ -0,0 +1,38 @@
+/*
+ * $Id: c.lib_rev.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "c.lib_rev.h"
+
+/****************************************************************************/
+
+char __c_lib_version[] = VERSTAG;

library/c.lib_rev.h

@@ -0,0 +1,6 @@
+#define VERSION		1
+#define REVISION	199
+#define DATE		"6.3.2006"
+#define VERS		"c.lib 1.199"
+#define VSTRING		"c.lib 1.199 (6.3.2006)\r\n"
+#define VERSTAG		"\0$VER: c.lib 1.199 (6.3.2006)"

library/c.lib_rev.rev

@@ -0,0 +1 @@
+199

library/complex_carg.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_carg.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+double
+carg(double complex z)
+{
+	return(atan2(IMAG(z),REAL(z)));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_cargf.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_cargf.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+float
+cargf(float complex z)
+{
+	return(atan2(IMAG(z),REAL(z))); /* ZZZ this really needs to call ata2f(). */
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_cargl.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_cargl.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+long double
+cargl(long double complex z)
+{
+	return(atan2(IMAG(z),REAL(z))); /* ZZZ this really needs to call atan2l(). */
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_cimag.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_cimag.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+double
+cimag(double complex z)
+{
+	return(IMAG(z));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_cimagf.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_cimagf.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+float
+cimagf(float complex z)
+{
+	return(IMAG(z));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_cimagl.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_cimagl.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+long double
+cimagl(long double complex z)
+{
+	return(IMAG(z));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_conj.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_conj.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+double complex
+conj(double complex z)
+{
+	return(CONJ(z));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_conjf.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_conjf.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+float complex
+conjf(float complex z)
+{
+	return(CONJ(z));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_conjl.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_conjl.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+long double complex
+conjl(long double complex z)
+{
+	return(CONJ(z));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_creal.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_creal.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+double
+creal(double complex z)
+{
+	return(REAL(z));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_crealf.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_crealf.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+float
+crealf(float complex z)
+{
+	return(REAL(z));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_creall.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: complex_creall.c,v 1.2 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
+
+/****************************************************************************/
+
+#if defined(COMPLEX_SUPPORT)
+
+/****************************************************************************/
+
+long double
+creall(long double complex z)
+{
+	return(REAL(z));
+}
+
+/****************************************************************************/
+
+#endif /* COMPLEX_SUPPORT */

library/complex_headers.h

@@ -0,0 +1,68 @@
+/*
+ * $Id: complex_headers.h,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_HEADERS_H
+#define _COMPLEX_HEADERS_H
+
+/****************************************************************************/
+
+#ifndef _MATH_FP_SUPPORT_H
+#include "math_fp_support.h"
+#endif /* _MATH_FP_SUPPORT_H */
+
+/****************************************************************************/
+
+#if defined(FLOATING_POINT_SUPPORT) && defined(__GNUC__) && defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L)
+
+/****************************************************************************/
+
+#include <complex.h>
+#include <math.h>
+
+/****************************************************************************/
+
+#define COMPLEX_SUPPORT
+
+/****************************************************************************/
+
+#define	REAL(z)	(__real__ (z))
+#define	IMAG(z)	(__imag__ (z))
+#define	CONJ(z)	(~(z))
+
+/****************************************************************************/
+
+#endif /* FLOATING_POINT_SUPPORT && __GNUC__ && __STDC_VERSION__ */
+
+/****************************************************************************/
+
+#endif /* _COMPLEX_HEADERS_H */

library/crt0.S

@@ -0,0 +1,28 @@
+//
+//	$Id: crt0.S,v 1.6 2005-10-11 09:28:29 obarthel Exp $
+//
+//	:ts=4
+//
+
+	.text
+
+	.globl  main	/* This enforces linkage against the main() function */
+	.globl  _main
+	.globl  _start
+
+_start:
+
+#if defined(SMALL_DATA)
+	/* Don't do a function call here, since that
+	   means LR has to be saved */
+	lis r13, _SDA_BASE_@ha
+	addi r13, r13, _SDA_BASE_@l
+#endif
+
+#if defined(BASEREL_DATA)
+	/* We also need to set up the data segment pointer */
+	lis r2, _DATA_BASE_@ha
+	addi r2, r2, _DATA_BASE_@l
+#endif
+
+	b	_main

library/crtbegin.c

@@ -0,0 +1,60 @@
+/* 
+ * $Id: crtbegin.c,v 1.10 2005-03-18 12:38:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Handles global constructors and destructors for the OS4 GCC build.
+ */
+
+#if defined(__amigaos4__)
+
+/****************************************************************************/
+
+#ifndef EXEC_TYPES_H
+#include <exec/types.h>
+#endif /* EXEC_TYPES_H */
+
+/****************************************************************************/
+
+/*
+ * Dummy constructor and destructor array. The linker script will put these at the
+ * very beginning of section ".ctors" and ".dtors". crtend.o contains a similar entry
+ * with a NULL pointer entry and is put at the end of the sections. This way, the init
+ * code can find the global constructor/destructor pointers
+ */
+static void (*__CTOR_LIST__[1]) (void) __attribute__(( used, section(".ctors"), aligned(sizeof(void (*)(void))) ));
+static void (*__DTOR_LIST__[1]) (void) __attribute__(( used, section(".dtors"), aligned(sizeof(void (*)(void))) ));
+
+/****************************************************************************/
+
+void
+_init(void)
+{
+	int num_ctors,i;
+	int j;
+
+	for(i = 1, num_ctors = 0 ; __CTOR_LIST__[i] != NULL ; i++)
+		num_ctors++;
+
+	for(j = 0 ; j < num_ctors ; j++)
+		__CTOR_LIST__[num_ctors - j]();
+}
+
+/****************************************************************************/
+
+void
+_fini(void)
+{
+	int num_dtors,i;
+	static int j;
+
+	for(i = 1, num_dtors = 0 ; __DTOR_LIST__[i] != NULL ; i++)
+		num_dtors++;
+
+	while(j++ < num_dtors)
+		__DTOR_LIST__[j]();
+}
+
+/****************************************************************************/
+
+#endif /*__amigaos4__ */

library/crtend.c

@@ -0,0 +1,19 @@
+/* 
+ * $Id: crtend.c,v 1.2 2005-03-09 21:07:25 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * End markers for the CTOR and DTOR list.
+ */
+
+#if defined(__amigaos4__)
+
+/****************************************************************************/
+
+static void (*__CTOR_LIST__[1]) (void) __attribute__((used, section(".ctors"), aligned(sizeof(void (*)(void))) ));
+static void (*__DTOR_LIST__[1]) (void) __attribute__((used, section(".dtors"), aligned(sizeof(void (*)(void))) ));
+
+/****************************************************************************/
+
+#endif /*__amigaos4__ */
+

library/ctype_headers.h

@@ -0,0 +1,68 @@
+/*
+ * $Id: ctype_headers.h,v 1.6 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#define _CTYPE_HEADERS_H
+
+/****************************************************************************/
+
+#ifndef _LOCALE_HEADERS_H
+#include "locale_headers.h"
+#endif /* _LOCALE_HEADERS_H */
+
+/****************************************************************************/
+
+#ifndef _STDLIB_LOCALEBASE_H
+#include "stdlib_localebase.h"
+#endif /* _STDLIB_LOCALEBASE_H */
+
+#ifndef _STDLIB_UTILITYBASE_H
+#include "stdlib_utilitybase.h"
+#endif /* _STDLIB_UTILITYBASE_H */
+
+/****************************************************************************/
+
+#ifndef _MACROS_H
+#include "macros.h"
+#endif /* _MACROS_H */
+
+/****************************************************************************/
+
+#include <locale.h>
+#include <assert.h>
+#include <limits.h>
+#include <ctype.h>
+
+/****************************************************************************/
+
+#endif /* _CTYPE_HEADERS_H */

library/ctype_isalnum.c

@@ -0,0 +1,74 @@
+/*
+ * $Id: ctype_isalnum.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isalnum
+#undef isalpha
+#undef isdigit
+
+/****************************************************************************/
+
+int
+isalnum(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsAlNum(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = isalpha(c) || isdigit(c);
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_isalpha.c

@@ -0,0 +1,73 @@
+/*
+ * $Id: ctype_isalpha.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isalpha
+
+/****************************************************************************/
+
+int
+isalpha(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsAlpha(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = (('a' <= c && c <= 'z') ||
+		          ('A' <= c && c <= 'Z'));
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_isascii.c

@@ -0,0 +1,56 @@
+/*
+ * $Id: ctype_isascii.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isascii
+
+/****************************************************************************/
+
+int isascii(int c);
+
+/****************************************************************************/
+
+int
+isascii(int c)
+{
+	int result;
+
+	result = (0 <= c && c <= 127);
+
+	return(result);
+}

library/ctype_isblank.c

@@ -0,0 +1,52 @@
+/*
+ * $Id: ctype_isblank.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isblank
+
+/****************************************************************************/
+
+int
+isblank(int c)
+{
+	int result;
+
+	result = (c == '\t' || c == ' ');
+
+	return(result);
+}

library/ctype_iscntrl.c

@@ -0,0 +1,72 @@
+/*
+ * $Id: ctype_iscntrl.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef iscntrl
+
+/****************************************************************************/
+
+int
+iscntrl(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsCntrl(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = (('\0' <= c && c < ' ') || (c == 127));
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_isdigit.c

@@ -0,0 +1,72 @@
+/*
+ * $Id: ctype_isdigit.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isdigit
+
+/****************************************************************************/
+
+int
+isdigit(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsDigit(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = ('0' <= c && c <= '9');
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_isgraph.c

@@ -0,0 +1,72 @@
+/*
+ * $Id: ctype_isgraph.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isgraph
+
+/****************************************************************************/
+
+int
+isgraph(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsGraph(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = (' ' < c && c < 127);
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_islower.c

@@ -0,0 +1,72 @@
+/*
+ * $Id: ctype_islower.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef islower
+
+/****************************************************************************/
+
+int
+islower(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsLower(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = ('a' <= c && c <= 'z');
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_isprint.c

@@ -0,0 +1,72 @@
+/*
+ * $Id: ctype_isprint.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isprint
+
+/****************************************************************************/
+
+int
+isprint(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsPrint(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = (' ' <= c && c <= '~');
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_ispunct.c

@@ -0,0 +1,75 @@
+/*
+ * $Id: ctype_ispunct.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef ispunct
+
+/****************************************************************************/
+
+int
+ispunct(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsPunct(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = (('!' <= c && c <= '/') ||
+		          (':' <= c && c <= '@') ||
+		          ('[' <= c && c <= '`') ||
+		          ('{' <= c && c <= '~'));
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_isspace.c

@@ -0,0 +1,77 @@
+/*
+ * $Id: ctype_isspace.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isspace
+
+/****************************************************************************/
+
+int
+isspace(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsSpace(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = (c == '\t' ||
+		          c == '\r' ||
+		          c == '\n' ||
+		          c == '\v' ||
+		          c == '\f' ||
+		          c == ' ');
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_isupper.c

@@ -0,0 +1,72 @@
+/*
+ * $Id: ctype_isupper.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isupper
+
+/****************************************************************************/
+
+int
+isupper(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsUpper(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = ('A' <= c && c <= 'Z');
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_isxdigit.c

@@ -0,0 +1,74 @@
+/*
+ * $Id: ctype_isxdigit.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+#undef isxdigit
+
+/****************************************************************************/
+
+int
+isxdigit(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = IsXDigit(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = FALSE;
+	}
+	else
+	{
+		result = (('0' <= c && c <= '9') ||
+		          ('a' <= c && c <= 'f') ||
+		          ('A' <= c && c <= 'F'));
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_table.c

@@ -0,0 +1,178 @@
+/*
+ * $Id: ctype_table.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#define __C_MACROS__
+#include <ctype.h>
+
+/****************************************************************************/
+
+const unsigned char __ctype_table[2 * 128] =
+{
+	/*   0      */ __CTYPE_CONTROL,
+	/*   1      */ __CTYPE_CONTROL,
+	/*   2      */ __CTYPE_CONTROL,
+	/*   3      */ __CTYPE_CONTROL,
+	/*   4      */ __CTYPE_CONTROL,
+	/*   5      */ __CTYPE_CONTROL,
+	/*   6      */ __CTYPE_CONTROL,
+	/*   7      */ __CTYPE_CONTROL,
+	/*   8      */ __CTYPE_CONTROL,
+	/*   9      */ __CTYPE_CONTROL|__CTYPE_WHITE_SPACE,
+	/*  10      */ __CTYPE_CONTROL|__CTYPE_WHITE_SPACE,
+	/*  11      */ __CTYPE_CONTROL|__CTYPE_WHITE_SPACE,
+	/*  12      */ __CTYPE_CONTROL|__CTYPE_WHITE_SPACE,
+	/*  13      */ __CTYPE_CONTROL|__CTYPE_WHITE_SPACE,
+	/*  14      */ __CTYPE_CONTROL,
+	/*  15      */ __CTYPE_CONTROL,
+	/*  16      */ __CTYPE_CONTROL,
+	/*  17      */ __CTYPE_CONTROL,
+	/*  18      */ __CTYPE_CONTROL,
+	/*  19      */ __CTYPE_CONTROL,
+	/*  20      */ __CTYPE_CONTROL,
+	/*  21      */ __CTYPE_CONTROL,
+	/*  22      */ __CTYPE_CONTROL,
+	/*  23      */ __CTYPE_CONTROL,
+	/*  24      */ __CTYPE_CONTROL,
+	/*  25      */ __CTYPE_CONTROL,
+	/*  26      */ __CTYPE_CONTROL,
+	/*  27      */ __CTYPE_CONTROL,
+	/*  28      */ __CTYPE_CONTROL,
+	/*  29      */ __CTYPE_CONTROL,
+	/*  30      */ __CTYPE_CONTROL,
+	/*  31      */ __CTYPE_CONTROL,
+	/*  32, ' ' */ __CTYPE_PRINTABLE|__CTYPE_WHITE_SPACE,
+	/*  33, '!' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  34, '"' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  35, '#' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  36, '$' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  37, '%' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  38, '&' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  39, ''' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  40, '(' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  41, ')' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  42, '*' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  43, '+' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  44, ',' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  45, '-' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  46, '.' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  47, '/' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  48, '0' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  49, '1' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  50, '2' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  51, '3' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  52, '4' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  53, '5' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  54, '6' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  55, '7' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  56, '8' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  57, '9' */ __CTYPE_DIGIT|__CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE,
+	/*  58, ':' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  59, ';' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  60, '<' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  61, '=' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  62, '>' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  63, '?' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  64, '@' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  65, 'A' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  66, 'B' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  67, 'C' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  68, 'D' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  69, 'E' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  70, 'F' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  71, 'G' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  72, 'H' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  73, 'I' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  74, 'J' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  75, 'K' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  76, 'L' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  77, 'M' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  78, 'N' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  79, 'O' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  80, 'P' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  81, 'Q' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  82, 'R' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  83, 'S' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  84, 'T' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  85, 'U' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  86, 'V' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  87, 'W' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  88, 'X' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  89, 'Y' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  90, 'Z' */ __CTYPE_PRINTABLE|__CTYPE_UPPER_CASE,
+	/*  91, '[' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  92, '\' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  93, ']' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  94, '^' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  95, '_' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  96, '`' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/*  97, 'a' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/*  98, 'b' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/*  99, 'c' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 100, 'd' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 101, 'e' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 102, 'f' */ __CTYPE_HEX_DIGIT|__CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 103, 'g' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 104, 'h' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 105, 'i' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 106, 'j' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 107, 'k' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 108, 'l' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 109, 'm' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 110, 'n' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 111, 'o' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 112, 'p' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 113, 'q' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 114, 'r' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 115, 's' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 116, 't' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 117, 'u' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 118, 'v' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 119, 'w' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 120, 'x' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 121, 'y' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 122, 'z' */ __CTYPE_PRINTABLE|__CTYPE_LOWER_CASE,
+	/* 123, '{' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/* 124, '|' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/* 125, '}' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/* 126, '~' */ __CTYPE_PUNCTUATION|__CTYPE_PRINTABLE,
+	/* 127      */ __CTYPE_CONTROL,
+
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
+};

library/ctype_tolower.c

@@ -0,0 +1,68 @@
+/*
+ * $Id: ctype_tolower.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+int
+tolower(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = ConvToLower(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = c;
+	}
+	else
+	{
+		result = ('A' <= c && c <= 'Z') ? (c + ('a' - 'A')) : c;
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/ctype_toupper.c

@@ -0,0 +1,68 @@
+/*
+ * $Id: ctype_toupper.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _CTYPE_HEADERS_H
+#include "ctype_headers.h"
+#endif /* _CTYPE_HEADERS_H */
+
+/****************************************************************************/
+
+int
+toupper(int c)
+{
+	DECLARE_LOCALEBASE();
+	int result;
+
+	__locale_lock();
+
+	if(__locale_table[LC_CTYPE] != NULL)
+	{
+		assert( LocaleBase != NULL );
+
+		/* The parameter must be either EOF or in the range of an
+		   'unsigned char'. If it's not, then the behaviour is
+		   undefined. */
+		if(c != EOF && ((0 <= c && c <= UCHAR_MAX) || ((c + 256) <= UCHAR_MAX)))
+			result = ConvToUpper(__locale_table[LC_CTYPE],(ULONG)(c & 255));
+		else
+			result = c;
+	}
+	else
+	{
+		result = ('a' <= c && c <= 'z') ? (c - ('a' - 'A')) : c;
+	}
+
+	__locale_unlock();
+
+	return(result);
+}

library/debug.c

@@ -0,0 +1,342 @@
+/*
+ * $Id: debug.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=8
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/****************************************************************************/
+
+#define NULL ((void *)0L)
+
+#include <string.h>
+#include <stdarg.h>
+
+/****************************************************************************/
+
+#ifndef DEBUG
+#define DEBUG 1
+#endif
+
+#include "debug.h"
+
+/****************************************************************************/
+
+extern void KPrintF(const char * format,...);
+extern void KPutFmt(const char * format,va_list arg);
+
+/****************************************************************************/
+
+#define DEBUGLEVEL_OnlyAsserts	0
+#define DEBUGLEVEL_Reports	1
+#define DEBUGLEVEL_CallTracing	2
+
+/****************************************************************************/
+
+extern int __debug_level;
+
+/****************************************************************************/
+
+static int indent_level = 0;
+
+static char program_name[40];
+static int program_name_len = 0;
+
+/****************************************************************************/
+
+void
+_SETPROGRAMNAME(char *name)
+{
+	if(name != NULL && name[0] != '\0')
+	{
+		int i;
+
+		for(i = 0 ; name[i] != '\0' && i < (int)sizeof(program_name)-1 ; i++)
+			program_name[i] = name[i];
+
+		program_name[i] = '\0';
+
+		program_name_len = i;
+	}
+	else
+	{
+		program_name_len = 0;
+	}
+}
+
+/****************************************************************************/
+
+int
+_SETDEBUGLEVEL(int level)
+{
+	int old_level = __debug_level;
+
+	__debug_level = level;
+
+	return(old_level);
+}
+
+/****************************************************************************/
+
+int
+_GETDEBUGLEVEL(void)
+{
+	return(__debug_level);
+}
+
+/****************************************************************************/
+
+static int previous_debug_level = -1;
+
+void
+_PUSHDEBUGLEVEL(int level)
+{
+	previous_debug_level = _SETDEBUGLEVEL(level);
+}
+
+void
+_POPDEBUGLEVEL(void)
+{
+	if(previous_debug_level != -1)
+	{
+		_SETDEBUGLEVEL(previous_debug_level);
+
+		previous_debug_level = -1;
+	}
+}
+
+/****************************************************************************/
+
+STATIC VOID
+_INDENT(void)
+{
+	if(program_name_len > 0)
+		KPrintF("(%s) ",program_name);
+
+	if(__debug_level >= DEBUGLEVEL_CallTracing)
+	{
+		int i;
+
+		for(i = 0 ; i < indent_level ; i++)
+			KPrintF("   ");
+	}
+}
+
+/****************************************************************************/
+
+void
+_SHOWVALUE(
+	unsigned long value,
+	int size,
+	const char *name,
+	const char *file,
+	int line)
+{
+	if(__debug_level >= DEBUGLEVEL_Reports)
+	{
+		char *fmt;
+
+		switch(size)
+		{
+			case 1:
+
+				fmt = "%s:%ld:%s = %ld, 0x%02lx";
+				break;
+
+			case 2:
+
+				fmt = "%s:%ld:%s = %ld, 0x%04lx";
+				break;
+
+			default:
+
+				fmt = "%s:%ld:%s = %ld, 0x%08lx";
+				break;
+		}
+
+		_INDENT();
+
+		KPrintF(fmt,file,line,name,value,value);
+
+		if(size == 1 && value < 256)
+		{
+			if(value < ' ' || (value >= 127 && value < 160))
+				KPrintF(", '\\x%02lx'",value);
+			else
+				KPrintF(", '%lc'",value);
+		}
+
+		KPrintF("\n");
+	}
+}
+
+/****************************************************************************/
+
+void
+_SHOWPOINTER(
+	const void *pointer,
+	const char *name,
+	const char *file,
+	int line)
+{
+	if(__debug_level >= DEBUGLEVEL_Reports)
+	{
+		char *fmt;
+
+		_INDENT();
+
+		if(pointer != NULL)
+			fmt = "%s:%ld:%s = 0x%08lx\n";
+		else
+			fmt = "%s:%ld:%s = NULL\n";
+
+		KPrintF(fmt,file,line,name,pointer);
+	}
+}
+
+/****************************************************************************/
+
+void
+_SHOWSTRING(
+	const char *string,
+	const char *name,
+	const char *file,
+	int line)
+{
+	if(__debug_level >= DEBUGLEVEL_Reports)
+	{
+		_INDENT();
+		KPrintF("%s:%ld:%s = 0x%08lx \"%s\"\n",file,line,name,string,string);
+	}
+}
+
+/****************************************************************************/
+
+void
+_SHOWMSG(
+	const char *string,
+	const char *file,
+	int line)
+{
+	if(__debug_level >= DEBUGLEVEL_Reports)
+	{
+		_INDENT();
+		KPrintF("%s:%ld:%s\n",file,line,string);
+	}
+}
+
+/****************************************************************************/
+
+void
+_DPRINTF_HEADER(
+	const char *file,
+	int line)
+{
+	if(__debug_level >= DEBUGLEVEL_Reports)
+	{
+		_INDENT();
+		KPrintF("%s:%ld:",file,line);
+	}
+}
+
+void
+_DPRINTF(const char *fmt,...)
+{
+	if(__debug_level >= DEBUGLEVEL_Reports)
+	{
+		va_list args;
+
+		va_start(args,fmt);
+		KPutFmt((char *)fmt,args);
+		va_end(args);
+
+		KPrintF("\n");
+	}
+}
+
+void
+_DLOG(const char *fmt,...)
+{
+	if(__debug_level >= DEBUGLEVEL_Reports)
+	{
+		va_list args;
+
+		va_start(args,fmt);
+		KPutFmt((char *)fmt,args);
+		va_end(args);
+	}
+}
+
+/****************************************************************************/
+
+void
+_ENTER(
+	const char *file,
+	int line,
+	const char *function)
+{
+	if(__debug_level >= DEBUGLEVEL_CallTracing)
+	{
+		_INDENT();
+		KPrintF("%s:%ld:Entering %s\n",file,line,function);
+	}
+
+	indent_level++;
+}
+
+void
+_LEAVE(
+	const char *file,
+	int line,
+	const char *function)
+{
+	indent_level--;
+
+	if(__debug_level >= DEBUGLEVEL_CallTracing)
+	{
+		_INDENT();
+		KPrintF("%s:%ld: Leaving %s\n",file,line,function);
+	}
+}
+
+void
+_RETURN(
+	const char *file,
+	int line,
+	const char *function,
+	unsigned long result)
+{
+	indent_level--;
+
+	if(__debug_level >= DEBUGLEVEL_CallTracing)
+	{
+		_INDENT();
+		KPrintF("%s:%ld: Leaving %s (result 0x%08lx, %ld)\n",file,line,function,result,result);
+	}
+}

library/debug.h

@@ -0,0 +1,199 @@
+/*
+ * $Id: debug.h,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=8
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _DEBUG_H
+#define _DEBUG_H
+
+/****************************************************************************/
+
+/* IMPORTANT: If DEBUG is redefined, it must happen only here. This
+ *            will cause all modules to depend upon it to be rebuilt
+ *            by the smakefile (that is, provided the smakefile has
+ *            all the necessary dependency lines in place).
+ */
+
+/*#define DEBUG*/
+
+/****************************************************************************/
+
+#define PUSH_REPORTS()	PUSHDEBUGLEVEL(1)
+#define PUSH_CALLS()	PUSHDEBUGLEVEL(2)
+#define PUSH_ALL()	PUSHDEBUGLEVEL(2)
+#define POP()		POPDEBUGLEVEL()
+
+/****************************************************************************/
+
+#if defined(DEBUG)
+
+/****************************************************************************/
+
+#ifndef _STDLIB_H
+#include <stdlib.h>
+#endif /* _STDLIB_H */
+
+#ifndef _DOS_H
+#include <dos.h>
+#endif /* _DOS_H */
+
+/****************************************************************************/
+
+extern void kprintf(const char *format,...);
+
+/****************************************************************************/
+
+ void _SHOWVALUE(unsigned long value,int size,const char *name,const char *file,int line);
+ void _SHOWPOINTER(const void *p,const char *name,const char *file,int line);
+ void _SHOWSTRING(const char *string,const char *name,const char *file,int line);
+ void _SHOWMSG(const char *msg,const char *file,int line);
+ void _ENTER(const char *file,int line,const char *function);
+ void _LEAVE(const char *file,int line,const char *function);
+ void _RETURN(const char *file,int line,const char *function,unsigned long result);
+ void _DPRINTF_HEADER(const char *file,int line);
+ void _DPRINTF(const char *format,...);
+ void _DLOG(const char *format,...);
+ int  _SETDEBUGLEVEL(int level);
+ void _PUSHDEBUGLEVEL(int level);
+ void _POPDEBUGLEVEL(void);
+ int  _GETDEBUGLEVEL(void);
+ void _SETPROGRAMNAME(char *name);
+
+ #if defined(__SASC)
+  #define ENTER()		_ENTER(__FILE__,__LINE__,__FUNC__)
+  #define LEAVE()		_LEAVE(__FILE__,__LINE__,__FUNC__)
+  #define RETURN(r)		_RETURN(__FILE__,__LINE__,__FUNC__,(unsigned long)r)
+  #define SHOWVALUE(v)		_SHOWVALUE((unsigned long)v,sizeof(v),#v,__FILE__,__LINE__)
+  #define SHOWPOINTER(p)	_SHOWPOINTER(p,#p,__FILE__,__LINE__)
+  #define SHOWSTRING(s)		_SHOWSTRING(s,#s,__FILE__,__LINE__)
+  #define SHOWMSG(s)		_SHOWMSG(s,__FILE__,__LINE__)
+  #define D(s)			do { _DPRINTF_HEADER(__FILE__,__LINE__); _DPRINTF s; } while(0)
+  #define PRINTHEADER()		_DPRINTF_HEADER(__FILE__,__LINE__)
+  #define PRINTF(s)		_DLOG s
+  #define LOG(s)		do { _DPRINTF_HEADER(__FILE__,__LINE__); _DLOG("<%s()>:",__FUNC__); _DLOG s; } while(0)
+  #define SETDEBUGLEVEL(l)	_SETDEBUGLEVEL(l)
+  #define PUSHDEBUGLEVEL(l)	_PUSHDEBUGLEVEL(l)
+  #define POPDEBUGLEVEL()	_POPDEBUGLEVEL()
+  #define SETPROGRAMNAME(n)	_SETPROGRAMNAME(n)
+  #define GETDEBUGLEVEL()	_GETDEBUGLEVEL()
+ #elif defined(__GNUC__)
+  #define ENTER()		_ENTER(__FILE__,__LINE__,__FUNCTION__)
+  #define LEAVE()		_LEAVE(__FILE__,__LINE__,__FUNCTION__)
+  #define RETURN(r)		_RETURN(__FILE__,__LINE__,__FUNCTION__,(unsigned long)r)
+  #define SHOWVALUE(v)		_SHOWVALUE((unsigned long)v,sizeof(v),#v,__FILE__,__LINE__)
+  #define SHOWPOINTER(p)	_SHOWPOINTER(p,#p,__FILE__,__LINE__)
+  #define SHOWSTRING(s)		_SHOWSTRING(s,#s,__FILE__,__LINE__)
+  #define SHOWMSG(s)		_SHOWMSG(s,__FILE__,__LINE__)
+  #define D(s)			do { _DPRINTF_HEADER(__FILE__,__LINE__); _DPRINTF s; } while(0)
+  #define PRINTHEADER()		_DPRINTF_HEADER(__FILE__,__LINE__)
+  #define PRINTF(s)		_DLOG s
+  #define LOG(s)		do { _DPRINTF_HEADER(__FILE__,__LINE__); _DLOG("<%s()>:",__FUNCTION__); _DLOG s; } while(0)
+  #define SETDEBUGLEVEL(l)	_SETDEBUGLEVEL(l)
+  #define PUSHDEBUGLEVEL(l)	_PUSHDEBUGLEVEL(l)
+  #define POPDEBUGLEVEL()	_POPDEBUGLEVEL()
+  #define SETPROGRAMNAME(n)	_SETPROGRAMNAME(n)
+  #define GETDEBUGLEVEL()	_GETDEBUGLEVEL()
+ #else
+  #define __FUNC__ ""
+  #define ENTER()		_ENTER(__FILE__,__LINE__,__FUNC__)
+  #define LEAVE()		_LEAVE(__FILE__,__LINE__,__FUNC__)
+  #define RETURN(r)		_RETURN(__FILE__,__LINE__,__FUNC__,(unsigned long)r)
+  #define SHOWVALUE(v)		_SHOWVALUE((unsigned long)v,sizeof(v),#v,__FILE__,__LINE__)
+  #define SHOWPOINTER(p)	_SHOWPOINTER(p,#p,__FILE__,__LINE__)
+  #define SHOWSTRING(s)		_SHOWSTRING(s,#s,__FILE__,__LINE__)
+  #define SHOWMSG(s)		_SHOWMSG(s,__FILE__,__LINE__)
+  #define D(s)			do { _DPRINTF_HEADER(__FILE__,__LINE__); _DPRINTF s; } while(0)
+  #define PRINTHEADER()		_DPRINTF_HEADER(__FILE__,__LINE__)
+  #define PRINTF(s)		_DLOG s
+  #define LOG(s)		do { _DPRINTF_HEADER(__FILE__,__LINE__); _DLOG("<%s()>:",__FUNC__); _DLOG s; } while(0)
+  #define SETDEBUGLEVEL(l)	_SETDEBUGLEVEL(l)
+  #define PUSHDEBUGLEVEL(l)	_PUSHDEBUGLEVEL(l)
+  #define POPDEBUGLEVEL()	_POPDEBUGLEVEL()
+  #define SETPROGRAMNAME(n)	_SETPROGRAMNAME(n)
+  #define GETDEBUGLEVEL()	_GETDEBUGLEVEL()
+ #endif
+
+ #undef DEBUG
+ #define DEBUG 1
+
+ #define assert(expression)                     \
+	((void)                                \
+	 ((expression) ? 0 :                   \
+	  (                                    \
+	   *(char *)0 = 0, /* Enforcer hit */  \
+	   _SETDEBUGLEVEL(2),                  \
+	   kprintf("[%s] "                     \
+	    "%s:%ld: failed assertion '%s'\n", \
+	    __program_name,                    \
+	    __FILE__,                          \
+	    __LINE__,                          \
+	    #expression),                      \
+	   abort(),                            \
+	   0                                   \
+	  )                                    \
+	 )                                     \
+	)
+
+#else
+
+/****************************************************************************/
+
+#ifdef NDEBUG
+#define assert(expression) ((void)0)
+#else
+#include <assert.h>
+#endif /* NDEBUG */
+
+/****************************************************************************/
+
+ #define ENTER()		((void)0)
+ #define LEAVE()		((void)0)
+ #define RETURN(r)		((void)0)
+ #define SHOWVALUE(v)		((void)0)
+ #define SHOWPOINTER(p)		((void)0)
+ #define SHOWSTRING(s)		((void)0)
+ #define SHOWMSG(s)		((void)0)
+ #define D(s)			((void)0)
+ #define PRINTHEADER()		((void)0)
+ #define PRINTF(s)		((void)0)
+ #define LOG(s)			((void)0)
+ #define SETDEBUGLEVEL(l)	((void)0)
+ #define PUSHDEBUGLEVEL(l)	((void)0)
+ #define POPDEBUGLEVEL()	((void)0)
+ #define SETPROGRAMNAME(n)	((void)0)
+ #define GETDEBUGLEVEL()	(0)
+
+ #define DEBUG 0
+#endif /* DEBUG */
+
+/****************************************************************************/
+
+#endif /* _DEBUG_H */

library/debug.lib_rev.c

@@ -0,0 +1,38 @@
+/*
+ * $Id: debug.lib_rev.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug.lib_rev.h"
+
+/****************************************************************************/
+
+char __debug_lib_version[] = VERSTAG;

library/debug.lib_rev.h

@@ -0,0 +1,6 @@
+#define VERSION		1
+#define REVISION	199
+#define DATE		"6.3.2006"
+#define VERS		"debug.lib 1.199"
+#define VSTRING		"debug.lib 1.199 (6.3.2006)\r\n"
+#define VERSTAG		"\0$VER: debug.lib 1.199 (6.3.2006)"

library/debug.lib_rev.rev

@@ -0,0 +1 @@
+199

library/debug_cmpstrexec.c

@@ -0,0 +1,62 @@
+/*
+ * $Id: debug_cmpstrexec.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+cmpstrexec(const char * source1,const char * source2)
+{
+	LONG result = 0;
+
+	assert( source1 != NULL && source2 != NULL );
+
+	if(source1 != NULL && source2 != NULL)
+	{
+		while((*source1) == (*source2))
+		{
+			if((*source1) == '\0')
+				goto out;
+
+			source1++;
+			source2++;
+		}
+
+		result = (*source1) - (*source2);
+	}
+
+ out:
+
+	return(result);
+}

library/debug_headers.h

@@ -0,0 +1,158 @@
+/*
+ * $Id: debug_headers.h,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _DEBUG_HEADERS_H
+#define _DEBUG_HEADERS_H
+
+/****************************************************************************/
+
+#ifndef EXEC_LIBRARIES_H
+#include <exec/libraries.h>
+#endif /* EXEC_LIBRARIES_H */
+
+/****************************************************************************/
+
+#if defined(__SASC)
+
+#include <clib/exec_protos.h>
+#include <pragmas/exec_pragmas.h>
+
+LONG RawMayGetChar(VOID);
+VOID RawPutChar(UBYTE c);
+
+#pragma libcall SysBase RawMayGetChar 1fe 00
+#pragma libcall SysBase RawPutChar 204 001
+
+#endif /* __SASC */
+
+/****************************************************************************/
+
+#if defined(__amigaos4__)
+
+#ifndef EXEC_EMULATION_H
+#include <exec/emulation.h>
+#endif /* EXEC_EMULATION_H */
+
+#endif /* __amigaos4__ */
+
+/****************************************************************************/
+
+#if defined(__GNUC__)
+
+#define __NOLIBBASE__
+#include <proto/exec.h>
+
+#ifndef __PPC__
+
+#define RawMayGetChar() ({ \
+  UBYTE _RawMayGetChar__re = \
+  ({ \
+  register struct Library * const __RawMayGetChar__bn __asm("a6") = SysBase;\
+  register UBYTE __RawMayGetChar__re __asm("d0"); \
+  __asm volatile ("jsr a6@(-510:W)" \
+  : "=r"(__RawMayGetChar__re) \
+  : "r"(__RawMayGetChar__bn) \
+  : "d1", "a0", "a1", "fp0", "fp1", "cc", "memory"); \
+  __RawMayGetChar__re; \
+  }); \
+  _RawMayGetChar__re; \
+})
+
+#define RawPutChar(c) ({ \
+  ULONG _RawPutChar_c = (c); \
+  { \
+  register struct Library * const __RawPutChar__bn __asm("a6") = SysBase;\
+  register ULONG __RawPutChar_c __asm("d0") = (_RawPutChar_c); \
+  __asm volatile ("jsr a6@(-516:W)" \
+  : \
+  : "r"(__RawPutChar__bn), "r"(__RawPutChar_c) \
+  : "d0", "d1", "a0", "a1", "fp0", "fp1", "cc", "memory"); \
+  } \
+})
+
+#endif /* __PPC___ */
+
+#endif /* __GNUC__ */
+
+/****************************************************************************/
+
+#define SysBase (*(struct Library **)4)
+#define IExec ((struct ExecIFace *)((struct ExecBase *)SysBase)->MainInterface)
+
+/****************************************************************************/
+
+#ifndef _MACROS_H
+#include "macros.h"
+#endif /* _MACROS_H */
+
+#ifndef _DEBUG_H
+#include "debug.h"
+#endif /* _DEBUG_H */
+
+/****************************************************************************/
+
+#include <string.h>
+#include <stdarg.h>
+
+/****************************************************************************/
+
+extern LONG cmpstrexec(const char *source1, const char *source2);
+extern LONG KCmpStr(const char *source1, const char *source2);
+extern LONG KMayGetCh(VOID);
+extern LONG KMayGetChar(VOID);
+extern LONG kgetc(VOID);
+extern LONG kgetchar(VOID);
+extern LONG kgetch(VOID);
+extern LONG KGetCh(VOID);
+extern LONG KGetChar(VOID);
+extern LONG kgetnum(VOID);
+extern LONG KGetNum(void);
+extern VOID KDoFmt(const char *format_string, APTR data_stream, APTR put_char_routine, APTR put_char_data);
+extern VOID KPutFmt(const char *format, va_list arg);
+extern VOID KVPrintF(const char * format, va_list arg);
+extern VOID kvprintf(const char *format, va_list arg);
+extern VOID kprintf(const char *format, ...);
+extern VOID KPrintF(const char *format, ...);
+extern VOID kputc(UBYTE c);
+extern VOID kputchar(UBYTE c);
+extern VOID kputch(UBYTE c);
+extern VOID KPutCh(UBYTE c);
+extern VOID KPutChar(UBYTE c);
+extern VOID kputstr(const UBYTE *s);
+extern VOID KPutS(const UBYTE *s);
+extern VOID kputs(const UBYTE *s);
+extern VOID KPutStr(const UBYTE *s);
+
+/****************************************************************************/
+
+#endif /* _DEBUG_HEADERS_H */

library/debug_kcmpstr.c

@@ -0,0 +1,46 @@
+/*
+ * $Id: debug_kcmpstr.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+KCmpStr(const char * source1,const char * source2)
+{
+	LONG result;
+
+	result = cmpstrexec(source1,source2);
+
+	return(result);
+}

library/debug_kdofmt.c

@@ -0,0 +1,45 @@
+/*
+ * $Id: debug_kdofmt.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+VOID
+KDoFmt(const char * format_string,APTR data_stream,APTR put_char_routine,APTR put_char_data)
+{
+	assert( format_string != NULL );
+
+	if(format_string != NULL)
+		RawDoFmt((STRPTR)format_string,data_stream,(VOID (*)())put_char_routine,put_char_data);
+}

library/debug_kgetc.c

@@ -0,0 +1,48 @@
+/*
+ * $Id: debug_kgetc.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+kgetc(VOID)
+{
+	LONG result;
+
+	do
+		result = KMayGetChar();
+	while(result < 0);
+
+	return(result);
+}

library/debug_kgetch1.c

@@ -0,0 +1,46 @@
+/*
+ * $Id: debug_kgetch1.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+kgetch(VOID)
+{
+	LONG result;
+
+	result = kgetc();
+
+	return(result);
+}

library/debug_kgetch2.c

@@ -0,0 +1,46 @@
+/*
+ * $Id: debug_kgetch2.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+KGetCh(VOID)
+{
+	LONG result;
+
+	result = kgetc();
+
+	return(result);
+}

library/debug_kgetchar1.c

@@ -0,0 +1,46 @@
+/*
+ * $Id: debug_kgetchar1.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+kgetchar(VOID)
+{
+	LONG result;
+
+	result = kgetc();
+
+	return(result);
+}

library/debug_kgetchar2.c

@@ -0,0 +1,46 @@
+/*
+ * $Id: debug_kgetchar2.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+KGetChar(VOID)
+{
+	LONG result;
+
+	result = kgetc();
+
+	return(result);
+}

library/debug_kgetnum1.c

@@ -0,0 +1,110 @@
+/*
+ * $Id: debug_kgetnum1.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+kgetnum(VOID)
+{
+	LONG sum = 0;
+	LONG result;
+	BOOL is_negative = FALSE;
+	LONG position = 0;
+	LONG c;
+
+	while(TRUE)
+	{
+		c = kgetc();
+
+		if(c == '-')
+		{
+			if(position == 0)
+			{
+				is_negative = TRUE;
+
+				kputc(c);
+
+				position++;
+			}
+		}
+		else if (c == '\b')
+		{
+			if(position > 0)
+			{
+				position--;
+				if(position == 0)
+				{
+					is_negative = FALSE;
+
+					sum = 0;
+				}
+				else
+				{
+					sum = sum / 10;
+				}
+
+				kputc(c);
+				kputc(' ');
+				kputc(c);
+			}
+		}
+		else if (c == '\r')
+		{
+			kputc('\n');
+			break;
+		}
+		else if ('0' <= c && c <= '9')
+		{
+			LONG new_sum;
+
+			new_sum = sum * 10 + (c - '0');
+			if(new_sum >= sum)
+			{
+				sum = new_sum;
+
+				kputc(c);
+
+				position++;
+			}
+		}
+	}
+
+	if(is_negative)
+		result = (-sum);
+	else
+		result = sum;
+
+	return(result);
+}

library/debug_kgetnum2.c

@@ -0,0 +1,46 @@
+/*
+ * $Id: debug_kgetnum2.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+KGetNum(void)
+{
+	LONG result;
+
+	result = kgetnum();
+
+	return(result);
+}

library/debug_kmaygetch.c

@@ -0,0 +1,46 @@
+/*
+ * $Id: debug_kmaygetch.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+KMayGetCh(VOID)
+{
+	LONG result;
+
+	result = KMayGetChar();
+
+	return(result);
+}

library/debug_kmaygetchar.c

@@ -0,0 +1,55 @@
+/*
+ * $Id: debug_kmaygetchar.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+LONG
+KMayGetChar(VOID)
+{
+	LONG result;
+
+	#if defined(__amigaos4__)
+	{
+		/* Call RawMayGetChar() through the 68k LVO. */
+		result = EmulateTags(SysBase, ET_Offset, -510, TAG_DONE);
+	}
+	#else
+	{
+		result = RawMayGetChar();
+	}
+	#endif /* __amigaos4__ */
+
+	return(result);
+}

library/debug_kprintf1.c

@@ -0,0 +1,51 @@
+/*
+ * $Id: debug_kprintf1.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+VOID
+kprintf(const char * format,...)
+{
+	assert( format != NULL );
+
+	if(format != NULL)
+	{
+		va_list arg;
+
+		va_start(arg,format);
+		KPutFmt(format,arg);
+		va_end(arg);
+	}
+}

library/debug_kprintf2.c

@@ -0,0 +1,51 @@
+/*
+ * $Id: debug_kprintf2.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "debug_headers.h"
+
+/****************************************************************************/
+
+VOID
+KPrintF(const char * format,...)
+{
+	assert( format != NULL );
+
+	if(format != NULL)
+	{
+		va_list arg;
+
+		va_start(arg,format);
+		KPutFmt(format,arg);
+		va_end(arg);
+	}
+}