Typo corrections and small changes to the implementation documentation

Details matter: the locale_t definition uses an incomplete structure definition, not an anonymous structure.

.codeclimate.yml

@@ -0,0 +1,14 @@
+---
+engines:
+  duplication:
+    enabled: false
+  fixme:
+    enabled: true
+  markdownlint:
+    enabled: true
+ratings:
+  paths:
+  - "**.c"
+  - "**.h"
+  - "**.l"
+  - "**.md"

.gitignore

@@ -0,0 +1,5 @@
+*.o
+*.a
+/library/compiler.log
+/library/netinclude
+*.map

.travis.yml

@@ -0,0 +1,36 @@
+sudo: required
+dist: trusty
+
+language: c
+
+# download and install our required cross compilers
+install:
+  # Make sure we can install i386 packages as some adtools binaries
+  # requires i386 libraries being installed to work in the 64bit env
+  # of Travis
+  - sudo dpkg --add-architecture i386
+  - sudo apt-get -qq update || true
+  - sudo apt-get -qq install libc6:i386
+  # Install all adtools related stuff we need
+  - curl -L https://dl.bintray.com/jens-maus/adtools/adtools-utils.tar.bz2 | sudo tar xj -C /
+  - if [[ ${BUILD} =~ os3|release ]]; then curl -L https://dl.bintray.com/jens-maus/adtools/adtools-m68k-amigaos.tar.bz2 | sudo tar xj -C / ; fi
+  - if [[ ${BUILD} =~ os4|release ]]; then curl -L https://dl.bintray.com/jens-maus/adtools/adtools-ppc-amigaos.tar.bz2 | sudo tar xj -C / ; fi
+  - if [[ ${BUILD} =~ mos|release ]]; then curl -L https://dl.bintray.com/jens-maus/adtools/adtools-ppc-morphos.tar.bz2 | sudo tar xj -C / ; fi
+  - if [[ ${BUILD} =~ aros-ppc|release ]]; then curl -L https://dl.bintray.com/jens-maus/adtools/adtools-ppc-aros.tar.bz2 | sudo tar xj -C / ; fi
+  - if [[ ${BUILD} =~ aros-i386|release ]]; then curl -L https://dl.bintray.com/jens-maus/adtools/adtools-i386-aros.tar.bz2 | sudo tar xj -C / ; fi
+  - if [[ ${BUILD} =~ aros-x86_64|release ]]; then curl -L https://dl.bintray.com/jens-maus/adtools/adtools-x86_64-aros.tar.bz2 | sudo tar xj -C / ; fi
+  - if [[ ${BUILD} =~ mingw32|release ]]; then sudo apt-get -qq install binutils-mingw-w64-i686 gcc-mingw-w64-i686 ; fi
+
+# set the PATH variable to the directories the cross compilers are installed.
+before_script:
+  - export PATH=/usr/local/amiga/bin:/opt/m68k-amigaos/bin:/opt/ppc-amigaos/bin:/opt/ppc-morphos/bin:${PATH}
+
+# specify a list of variables to test (here we test the build for our supported
+# list of operating systems).
+env:
+  - BUILD="-f GNUmakefile.68k OS=os3"
+  - BUILD="-f GNUmakefile.os4 OS=os4"
+
+# the build command to execute for each test
+script:
+  - make -C library -j1 ${BUILD}

LICENSE

@@ -0,0 +1,29 @@
+BSD 3-Clause License
+
+Copyright (c) 2016, Olaf Barthel
+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.
+
+* Redistributions in binary form must reproduce the above copyright notice,
+  this list of conditions and the following disclaimer in the documentation
+  and/or other materials provided with the distribution.
+
+* Neither the name of the copyright holder nor the names of its
+  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 HOLDER 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.

README.md

@@ -0,0 +1,297 @@
+# clib2 – An ISO 'C' (1994) compliant runtime library for AmigaOS
+
+[![Build Status](https://travis-ci.org/adtools/clib2.svg?branch=master)](https://travis-ci.org/adtools/clib2)
+[![Code Climate](https://codeclimate.com/github/adtools/clib2/badges/gpa.svg)](https://codeclimate.com/github/adtools/clib2)
+[![License](https://img.shields.io/badge/License-BSD%203--Clause-blue.svg)](https://opensource.org/licenses/BSD-3-Clause)
+[![Github Issues](http://githubbadges.herokuapp.com/adtools/clib2/issues.svg)](https://github.com/adtools/clib2/issues)
+
+## What is this?
+
+This is my attempt to get Samba 2.2.x ported to the Amiga. My first Amiga port required *SAS/C* and a number of strange tricks had to be pulled to get it to support the kind of environment Samba needed. But with the introduction of Samba 2.2.x many of those tricks did not work any more, which is why I decided to attack the problem at the root, namely the runtime library.
+
+Because it was no longer possible to build Samba with *SAS/C* on the new Amiga platform, the idea came up to move development to the GNU 'C' compiler. This turned out to be a challenge due to its somewhat underdeveloped runtime library and header files. Eventually, I decided to rewrite that library from scratch.
+
+
+## What does it do?
+
+Using *'C' - A reference manual* (4th edition) as a reference I wrote a set of header files, then proceeded to implement each single function referenced in them. With few exceptions in the area of wide character support, the result should be a feature complete implementation of the ISO 'C' (1994) runtime library. The library was subsequently updated to offer functionality defined in *ISO/IEC 9899:1999*, also known as *C99*.
+
+Because Samba needs a few POSIX-like routines to be supported, the library functionality is complemented by a set of routines described in *Advanced programming in the Unix environment*.
+
+This is not a portable implementation of the library in the sense that you could move it from one 'C' compiler on one operating system to another. This is an Amiga specific implementation.
+
+The library supports floating point math, which, for the 68k platform, is limited to IEEE single and double precision or M68881 inline math. There is no support for the fast floating point (FFP) format or exclusive IEEE single precision. You either get double precision (IEEE math) or extended precision (M68881 inline math). What it is that you get is determined at compile time. Use the `IEEE_FLOATING_POINT_SUPPORT` preprocessor symbol to activate IEEE math code and the `M68881_FLOATING_POINT_SUPPORT` symbol for M68881 inline math.
+
+For the PowerPC platform, the library uses code borrowed from <a href="http://www.netlib.org/fdlibm/">fdlibm 5.3</a>, which is a portable library of arithmetic functions developed by Sun Microsystems which, for example, is also used within the Java platform.
+
+## What does it not do?
+
+This library is a departure from the typical 'C' runtime environments of the past which had to run on all AmigaOS releases, down to *Kickstart 1.1*. This very library was designed to take advantage of the routines available since *Kickstart 2.04* was introduced and virtually nobody ever put to use. This helps to cut the code size, and it also helps to keep bugs out of the library by falling back onto well-tested implementations. However, the catch is that the code won't run under *Kickstart 1.3* and below. But then these operating system releases have been obsolete for more than a decade, and you can always go back to a compiler environment which supports them.
+
+There is very little support for `amiga.lib` functionality. There is `NewList()`, `HookEntry()`, `CallHook()`, `CallHookA()`, the `DoMethod()` family, the *RexxVars* family, but that's all. If you need more, you would have to implement it yourself. Put another way, if you absolutely need functionality that is only found in `amiga.lib`, you really shouldn't need it in the first place.
+
+
+## Where does the source code come from?
+
+I originally thought that it might be helpful to piece this library together from various sources, such as the BSD libc. It turned out that this code was so 'portable' that it became much more complex than it ought to be. Also, some side-effects were present which considerably changed the behaviour of the library. For example, the BSD libc uses `bcopy()` as an alias for `memcpy()`, and unlike `memcpy()` is documented to, `bcopy()` supports overlapping copies.
+
+Eventually, I wrote virtually all the code myself, borrowing algorithmic ideas from the BSD libc and the *Manx Aztec 'C'* runtime library. Because I don't know much about the environment *GCC* expects, I borrowed code snippets from *libnix*, which was written by Matthias Fleischer and Gunther Nikl. This in particular concerns the integer and floating point math support, the `setjmp`/`longjmp` routines and the startup code. The M68881 inline math code comes from the `<math-68881.h>` file written by Matthew Self `(self [at] bayes.arc.nasa.gov)`.
+
+
+## Limitations and caveats
+
+There is hardly any documentation on the code I wrote. In part this is due to the fact that the code itself is very simple in design. It should speak for itself. However, to make a usable runtime library you have to have a user documentation as in *man pages* or *AutoDocs*. We will eventually have to have *AutoDocs* for this library.
+
+The exception handling in the math code is not particularly effective. For one part this is due to the fact that there is no exception handler installed by the runtime library when it starts up which could catch and process the error conditions the CPU or FPU generates. The idea was to provide for a portable runtime library with little to no assembly language involved. To make the exception handling complete, such code would be necessary.
+
+The library currently builds under *SAS/C*, but because the 'normal' program startup code is not utilized, the base relative (A4) addressing does not work. If you are going to test it, use the `data=faronly` option to compile the library and the programs.
+
+Different build *Makefiles* are supplied for use with *GCC*. There is a `GNUmakefile.68k` for the 68k platform and a `GNUmakefile.os4` for the AmigaOS4 PowerPC version.
+
+### Floating point math and functions (`scanf()`, `printf()`, etc.)
+
+The plain `libc.a`, which your software would be linked against by default, does not contain any floating point support code. This means, for example, that `printf("%f",...)` will not produce the desired output and that `scanf("%f",...)` may not read any data at all. If your program needs functions such as these or `atod()` then you must link against `libm.a` or the equivalent.
+
+To link the floating point support code with your software, use the `-lm` compiler option. 
+**Careful!** The order in which you specify the libraries to link against is important here. Thus, `gcc -o test test.c -lm -lc` would correctly link the program `test` against the proper floating point math library, but `gcc -o test test.c -lc -lm` would not.
+
+### The thread-safe library
+
+Thread-safety does not imply that you can have multiple callers access and close the same file. There is no resource tracking to that degree yet. All that the thread-safety tries to afford you is not to get into big trouble if simultaneous and overlapping accesses to files, memory allocation and other resources are taking place.
+
+The library code is supposed to be thread-safe if built with the `__THREAD_SAFE` preprocessor symbol defined. Note that 'thread-safe' does **not** mean 'reentrant'. Multiple callers for certain library functions are permitted, but not for all of them. For example, `mkdtemp()` is not thread-safe, and neither is `rand()` or `localtime()`. But as per *POSIX 1003.1c-1995* there are thread-safe variants of `rand()` and `localtime()` called `rand_r()`, `localtime_r()`, and others.
+
+The use of the socket I/O functions is problematic because the underlying `bsdsocket.library` API is not supposed to be used by any process other than the one which opened it. While one TCP/IP stack (my own "Roadshow") allows you to share the library base among different processes, if so configured, it is the exception. No other TCP/IP stack available for the Amiga robustly supports a similar feature. If the TCP/IP stack supports this feature, then the global variable `__can_share_socket_library_base` will be set to a non-zero value.
+
+Errors reported by the socket I/O functions which modify the global variables `errno` and `h_errno` may be directed to call the `__set_errno()` and `__set_h_errno()` functions instead, if the TCP/IP stack supports this feature. The global variable `__thread_safe_errno_h_errno` will be set to a non-zero value if it does.
+
+A much more serious problem resides with the `exit()`, `abort()`, `assert()` and `raise()` functions, and how the `SIGINT` signal is processed. In the thread-safe library only the `main()` function may directly or indirectly call the `exit()` function. No child process may do so, since this would wreck its stack context, crashing it instantly; the main program would be very likely to crash, too, because `exit()` will clean up after all memory allocations and files currently in use. Functions such as `abort()` and `raise()` may call the `exit()` function indirectly. And the `raise()` function may be invoked as part of the `Control+C` checking. You should make sure that the signal handling does not affect any child processes. This can be done by replacing the `__check_abort()` function or by disabling `SIGINT` processing altogether, such as through a `signal(SIGINT,SIG_IGN)` call.
+
+Also take care with file I/O involving the `stdin`/`stdout`/`stderr` streams; read/write operations on these streams will be mapped to the `Input()`/`Output()`/`ErrorOutput()` file handles of the process performing these operations. Since only this small set of operations is mapped, functions such as `fcntl()` or `select()` will not work on the `stdin`/`stdout`/`stderr` streams and the corresponding file descriptors `STDIN_FILENO`/`STDOUT_FILENO`/`STDERR_FILENO`. It is therefore strongly recommended to use the thread-safe library only for applications which can cope with the limitations described above.
+
+### Using gmon (PowerPC only)
+
+To use profiling, two steps are required. First of all, your program must be compiled with the *GCC* command line option `-pg`. This instructs the compiler to generate special profiling code in the prologue and epilogue of each function. Additionally, the program must be linked against `libprofile.a`. To do this, either manually add `-lprofile` to the linker command line, or modify the specs file as follows. Find the lines that look like this (it may actually differ slightly from your specs file, but the important thing is that the line before the line to be modified reads `lib:`):
+
+```
+lib:
+--start-group -lc --end-group
+```
+
+You will have to modify this to look like this:
+
+```
+lib:
+%{pg: -lprofile} --start-group -lc --end-group
+```
+
+Normally, the `specs` file is located at the compiler's installation directory. For cross-compilers, this is `/usr/local/amiga/lib/gcc/ppc-amigaos/*compiler-version*/specs`. For a native compiler, it's in `gcc:lib/gcc/ppc-amigaos/*compiler-version*/specs`. Most likely, your compiler will already have this added to it's `specs` file.
+
+Profiling makes use of a special PowerPC facility called the *Performance Monitor*. It allows to "mark" tasks and count only during while a marked task is running. This allows performance analysis to be made independent of the actual system load. The *Performance Monitor* is available on all PowerPC models supported by AmigaOS 4 except for the *603e*, and embedded versions of the PowerPC like the *405* and *440* series. Consult the manual of the appropriate chip for more information.
+
+### Implementation defined behaviour
+
+#### 'C' language
+
+##### Environment
+
+The `main(int argc,char **argv);` function may be called with an `argc` value of 0, in which case the `argv` variable will contain a pointer to the Amiga Workbench startup message, which is of type `struct WBStartup *`, and is defined in the Amiga system header file `<workbench/startup.h>`.
+
+##### Characters
+
+The current locale is derived from the current Amiga operating system locale settings. The `setlocale("")` function call will choose the current Amiga operating system locale settings. Any other name passed to the `setlocale()` function, with the exception of `"C"`, which selects the 'C' locale, must be a locale name, as used by the Amiga operating system function `OpenLocale()` in `locale.library`.
+
+##### Floating-point
+
+The 68k version of *clib2* supports single and double precision floating point numbers, according to the *IEEE 754* standard. The software floating point number support is built upon the Amiga operating system libraries `mathieeesingbas.library`, `mathieeedoubbas.library` and `mathieeedoubtrans.library`. The hardware floating point number support uses the M68881/M68882/M68040/M68060 floating point unit instead.
+
+The PowerPC version of *clib2* supports only double precision floating point numbers, according to the *IEEE 754* standard, because that is exactly what the PowerPC CPU supports. Single precision numbers may be implicitly converted to double precision numbers. This also means that the *C99* data type `long double` is identical to the `double` data type. Because there is no difference between these two, the library omits support for *C99* functions specifically designed to operate on `long double` data types, such as `rintl()`.
+
+Both the 68k and the PowerPC versions of *clib2* may call software floating point support routines in order to perform double and single precision operations that go beyond simple addition and multiplication, such as `sqrt()`. These functions come from Sun Microsystems <a href="http://www.netlib.org/fdlibm/">fdlibm 5.3</a> library.
+
+Unless your software is linked against `libm.a` no floating point functions will be available to it, possibly causing a linker error. When using the GNU 'C' compiler, you will want to add the option `-lm -lc` to the linker command line.
+
+The exception handling is currently entirely out of control of the developer and solely subject to the rules imposed by the operating system itself.
+
+The `fmod()` function returns the value of the `x` parameter and sets `errno` to `EDOM` if the `y` parameter value is 0.
+
+#### Library functions
+
+##### `NULL`
+
+The `NULL` pointer constant is defined in the `<stddef.h>` header and will expand to `((void *)0L)` if the 'C' compiler is used. For a C++ compiler the constant will expand to `0L` instead.
+
+##### `assert()` diagnostic messages
+
+The diagnostic messages printed by the `assert()` function take the following form:
+
+> `[*program name*] *file*:*line*: failed assertion "*condition*".`
+
+where:
+
+Label | Meaning
+----- | -------
+program name | Optional program name; if the program name is not yet known, then the entire text enclosed in square brackets will be omitted.
+file | The value of the `__FILE__` symbol at the location of the `assert()` call.
+line | The value of the `__LINE__` symbol at the location of the `assert()` call.
+condition | The condition passed to the `assert()` function.
+
+If available, the diagnostic messages will be sent to `stderr`.
+
+If the program was launched from Workbench or if the global variable `__no_standard_io` is set to a non-zero value, then the assertion failure message will not be displayed in the shell window, but in a requester window. The diagnostic message shown in this window will take the following form:
+
+> `Assertion of condition "*condition*" failed in file "*file*", line *line*.`
+
+The name of the program, if it is know at that time, will be displayed in the requester window title.
+
+##### Signal handling
+
+Only the minimum of required signals are supported by this library. These are `SIGABRT`, `SIGFPE`, `SIGILL`, `SIGINT`, `SIGSEGV` and `SIGTERM`.
+
+As of this writing `SIGFPE` is never called by the floating point library functions.
+
+The `Ctrl+C` event is translated into `SIGINT`. Signal delivery may be delayed until a library function which polls for the signal examines it. This means, for example, that a runaway program caught in an infinite loop cannot be aborted by sending it a `Ctrl+C` event unless special code is added which tests for the presence of the signal and calls the `__check_abort()` function on its own accord.
+
+Processing of the `Ctrl+C` event involves the internal `__check_abort()` function which polls for the presence of the event and which will call `raise(SIGINT);`. The `__check_abort()` function may be replaced by user code.
+
+##### Files
+
+No new line characters are written unless specifically requested.
+
+Space characters in a text stream before a new line character are read in and are not discarded.
+
+When data is read from a file, the last character does not have to be a new line character.
+
+No `NUL` byte will be appended to data written to a binary stream.
+
+There is no difference between text and binary streams.
+
+Writing to a text or binary stream does not truncate the associated file. A stream may be truncated by the initial `fopen()` call if the `mode` parameter starts with the letter `w`.
+
+The file position indicator is initially set to the end of an append mode stream.
+
+##### `printf()` family
+
+The `%p` conversion is the hexadecimal representation of the pointer, and it is preceded by the string `0x`.
+
+The `%a`, `%e`, `%f`, `%g`, `%A`, `%E`, `%F` and `%G` specifiers will produce the string `inf` for infinity.
+
+##### `scanf()` family
+
+The input for the `%p` conversion must be a hexadecimal number, preceded by either the string `0x` or `0X`.
+
+In the `%[` conversion a `-` (dash) character that is neither the first nor the last character in the scanset indicates that a subrange of characters should be used. Thus `%[a-d]` is equivalent to `%[abcd]`.
+
+The period (.) is the decimal-point character. The locale specific decimal-point character is accepted as an alternative to the period (.).
+
+##### `malloc()`, `realloc()` and `calloc()`
+
+In the standard `libc.a` implementation any request to allocate 0 (zero) bytes will fail. A result value of `NULL` will be returned and the global `errno` variable will be set to `EINVAL`.
+
+In the `libunix.a` implementation a request to allocate 0 (zero) bytes will result in an allocation of at least 4 bytes, which will be set to zero. Each zero length allocation will return a different memory address.
+
+##### `rename()`
+
+In the standard `libc.a` implementation the `rename()` function will fail if there already is a file or directory by the new name to be used.
+
+In the `libunix.a` implementation the `rename()` function will delete any existing file or directory by the new name.
+
+##### `remove()`
+
+In the standard `libc.a` implementation the `remove()` function will fail if the file is protected by deletion or currently in use.
+
+In the `libunix.a` implementation the `remove()` function will remove the file when the program exits or the file is closed.
+
+##### `abort()`
+
+The `abort()` function will flush all buffered files, close all the files currently open and delete temporary files.
+
+##### `exit()` and `_Exit()`
+
+The value passed to the `exit()` function will be passed to the Amiga operating system. The value of `EXIT_FAILURE` is equivalent to `RETURN_FAIL` as defined in the Amiga system header file `<dos/dos.h>`; this value maps to the number 20. The value of `EXIT_SUCCESS` is equivalent to `RETURN_OK` as defined in the Amiga system header file `<dos/dos.h>`; this value maps to the number 0.
+
+The `_Exit()` function will flush all buffered files, close all the files currently open and delete temporary files.
+
+##### `getenv()`
+
+Environment data is retrieved from the global Amiga operating system environment storage area through the `dos.library/GetEnv()` function. Global variables are stored in files in the `ENV:` directory.
+
+##### `system()`
+
+If the `command` parameter is not NULL and the `system()` function returns, then the result will be equivalent to the exit code of the program invoked, or -1 if the program could not be started. This follows the behaviour of the Amiga operating system function `dos.library/System()`. A return value of 0 typically indicates successful execution and a value > 0  typically indicates failure.
+
+##### Time
+
+The default time zone is derived from the Amiga operating system locale settings and takes the form `GMT+*hh*` or `GMT-*hh*`, respectively, in which *hh* stands for the difference between the local time zone and Greenwich Mean Time (actually, this is not GMT but UTC).
+
+The `clock_t` and `time_t` types are unsigned 32 bit integers. The `time_t` epoch starts with midnight January 1st, 1970.
+
+Daylight savings time is not supported.
+
+The reference point used by the `clock()` function is the time when the program was started.
+
+#### Locale specific behaviour
+
+The direction of printing is from left to right.
+
+The period (.) is the decimal-point character.
+
+The `strftime()` behaviour follows the Amiga operating system locale settings. If the 'C' locale is in effect, then the output generated by the `%Z` takes the form `GMT+*hh*` or `GMT-*hh*`, respectively, in which *hh* stands for the difference between the local time zone and Greenwich Mean Time (this is really UTC).
+
+## Conventions and design issues
+
+You will have noticed the 330+ files in this directory. This is not the best way to organize a runtime library, but at least all the bits and pieces are in plain sight. Each file stands for the one or two routines it contains. The name indicates what routine(s) that might be. Each file name is prefixed by the name of the header file in which the corresponding routine is defined. So, for example, you will find that `unistd_lchown.c` contains the definition of the `lchown()` routine, which has its prototype defined in the `<unistd.h>` header file.
+
+Internal function and variables which need to be visible across several modules have names prefixed with two underscores, as in `__stdio_init()`.
+
+By default all library routines follow the ISO 'C' conventions in that where implementation defined behaviour is permitted, the AmigaOS rules are followed. For example, `unlink()` will by default operate like `DeleteFile()` and `rename()` will return with an error code set if the name of the file/directory to be renamed would collide with an existing directory entry.
+
+
+## The startup code
+
+There are three program startup files provided. The most simplistic is in `startup.c` which I use for *SAS/C*. It just invokes the setup routine which eventually calls `main()` and drops straight into `exit()`.
+
+The `ncrt0.S` file was adapted from the *libnix* startup code which sets up the base relative data area, if necessary (the `SMALL_DATA` preprocessor symbol must be defined).
+
+The `nrcrt0.S` file was adapted from *libnix* startup code, too, and sets up the base relative data area for programs to be made resident. Note that the `geta4()` stub is missing here; it wouldn't work in a resident program anyway.
+
+The `ncrt0.S` and `nrcrt0.S` files are considerably smaller and less complex than the *libnix* code they are based on. This is because in this library design all the more complex tasks are performed in the `stdlib_main.c` file rather than in assembly language.
+
+
+## Documentation
+
+Well, you're reading it. There isn't anything much yet. You can consult the book *'C' - A reference manual* and you could look at the
+<a href="http://www.opengroup.org/onlinepubs/007904975">Open Group's Single Unix
+Specification</a>.
+
+It is recommended to browse the contents of the `include` directory. The header files contain information on library behaviour and not just data type and function prototype definitions. Specifically, the `<dos.h>` header file contains documentation about special libraries and global variables which may be used or replaced by user code.
+
+
+## Legal status
+
+Because this library is in part based upon free software it would be uncourteous not to make it free software itself. The BSD license would probably be appropriate here.
+
+The PowerPC math library is based in part on work by Sun Microsystems:
+
+<pre>
+====================================================
+Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+
+Developed at SunPro, a Sun Microsystems, Inc. business.
+Permission to use, copy, modify, and distribute this
+software is freely granted, provided that this notice
+is preserved.
+====================================================
+</pre>
+
+## Contacting the author
+
+The basic work was done by Olaf Barthel during two weeks in July 2002. You can reach me at:
+
+    Olaf Barthel
+    Gneisenaustr. 43
+    D-31275 Lehrte
+
+Or via e-mail:
+
+    obarthel [at] gmx.net

documentation/BUILDING.html

@@ -0,0 +1,30 @@
+<!DOCTYPE html public "-//W3C//DTD HTML 3.2 Final//EN">
+<html>
+<head>
+<title>Notes on building the library</title>
+<body>
+
+<h1>Notes on building the library</h1>
+
+<p>In order to build the library, you need a 'C' compiler (obvious, isn't it?) and
+a set of header files for the networking API definitions. The networking header
+files go into a directory <tt>netinclude</tt> which has to sit in the same directory as
+the source code and the <tt>include</tt> directory you find in there. I'm not currently
+supplying these header files here. Drop me a line, and I'll take care of that.</p>
+
+<p>The SAS/C flavour (<tt>smakefile</tt>) should get the library built using the "large data"
+model. This rules out the use of residentable programs as the startup code I'm
+using is very primitive (<tt>startup.o</tt>) and doesn't tinker with A4 relative data
+addressing (and how this may be set up).</p>
+
+<p>There are two makefiles for GCC, each a different flavour. There is <tt>GNUmakefile.68k</tt>,
+which will build the library for GCC on the 68k platform ("classic" Amiga). This
+builds all variants of the library, for large data, small data, resident, whatever
+model. It's a lot of work and I don't recommend you do this on a plain 68k machine.
+It will literally (!) take hours. The other makefile flavour is for AmigaOS4 using
+the PowerPC hosted GCC system (<tt>GNUmakefile.os4</tt>). This builds only the large data
+version of the library, but this is usually all you need. Small data support is
+currently not implemented but might follow in the future.</p>
+
+</body>
+</html>

documentation/GCC-68K.html

@@ -0,0 +1,67 @@
+<!DOCTYPE html public "-//W3C//DTD HTML 3.2 Final//EN">
+<html>
+<head>
+<title>Notes on using the library with Amiga GCC (68k)</title>
+<body>
+
+<h1>Notes on using the library with Amiga GCC (68k)</h1>
+
+<p>You can use the 68k build of clib2 with the existing Amiga 68k ports of the
+GNU 'C' compiler. In order to do so, you need to modify the <tt>specs</tt> file which
+controls how the compiler(s) and the linker interact, and where the linker
+will look for the program startup code and library files. Also, you will need
+to copy the header files, startup code and library files to the locations
+where the 'C' compiler and linker expects them.</p>
+
+<p>Please read the following description before you follow the instructions. The
+changes suggested may have unexpected side-effects!</p>
+
+<p>I have provided a working <tt>specs</tt> file with this documentation file. To switch
+over an existing Amiga 68k port of GCC to use clib2, you would proceed as
+follows:</p>
+
+<ul>
+<li> Locate the directory within which GCC is installed. For example, this
+could be within a directory to which the name <tt>ADE:</tt>, <tt>GG:</tt> or <tt>GCC:</tt>
+is assigned. For the sake of simplicity, the following notes assume
+that the assignment name is <tt>GCC:</tt>
+
+<li> Make backup copies of the following directories and files:
+<ol>
+<li> <tt>GCC:lib/gcc-lib/amigaos/2.95.3/specs</tt><br>
+
+<p>(NOTE: Check the directory called <tt>GCC:lib/gcc-lib/amigaos</tt>
+first; the "2.95.3" quoted above refers to the version,
+revision and patch number of the GCC installed and your
+version number may differ!)</p>
+
+<li> <tt>GCC:include</tt>
+<li> <tt>GCC:lib</tt>
+
+</ol>
+
+<li> Now you can proceed to install clib2; just copy the <tt>include</tt> and <tt>lib</tt>
+directories over, like this:
+<ol>
+<li><kbd>Copy include GCC:include all quiet</kbd>
+<li><kbd>Copy lib GCC:lib all quiet</kbd>
+</ol>
+
+<li> Finally, replace the <tt>specs</tt> file with the one provided:
+<ol>
+
+<li> <kbd>Copy specs GCC:lib/gcc-lib/amigaos/2.95.3/specs</kbd><br>
+
+<p>(NOTE: Check the directory called <tt>GCC:lib/gcc-lib/amigaos</tt>
+first; the "2.95.3" quoted above refers to the version,
+revision and patch number of the GCC installed and your
+version number may differ!)</p>
+</ol>
+</ul>
+
+<p>Once you have completed these steps you should be able to build programs using
+the 68k build of clib2 and you currently installed GCC. Note that these
+changes may have the effect of rendering your C++ compiler unusable, so make
+sure that you've made backup copies of all files and directories first!</p>
+</body>
+</html>

documentation/README.html

@@ -0,0 +1,517 @@
+<!DOCTYPE html public "-//W3C//DTD HTML 3.2 Final//EN">
+<html>
+<head>
+<title>An ISO 'C' (1994) compliant runtime library for the Amiga</title>
+<body>
+
+<h1>An ISO 'C' (1994) compliant runtime library for the Amiga</h1>
+
+<h2>1. What is this?</h2>
+
+<p>This is my attempt to get Samba 2.2.x ported to the Amiga. My first Amiga
+port required SAS/C and a number of strange tricks had to be pulled to get
+it to support the kind of environment Samba needed. But with the
+introduction of Samba 2.2.x many of those tricks did not work any more,
+which is why I decided to attack the problem at the root, namely the
+runtime library.</p>
+
+<p>Because it was no longer possible to build Samba with SAS/C on the new
+Amiga platform, the idea came up to move development to the GNU 'C'
+compiler. This turned out to be a challenge due to its somewhat
+underdeveloped runtime library and header files. Eventually, I decided to
+rewrite that library from scratch.</p>
+
+
+<h2>2. What does it do?</h2>
+
+<p>Using <i>'C' - A reference manual</i> (4th edition) as a reference I wrote a set of
+header files, then proceeded to implement each single function referenced in
+them. With few exceptions in the area of wide character support, the result
+should be a feature complete implementation of the ISO 'C' (1994) runtime
+library. The library was subsequently updated to offer functionality defined in
+<i>ISO/IEC 9899:1999</i>, also known as <i>C99</i>.</p>
+
+<p>Because Samba needs a few POSIX-like routines to be supported, the library
+functionality is complemented by a set of routines described in <i>Advanced
+programming in the Unix environent</i>.</p>
+
+<p>This is not a portable implementation of the library in the sense that you
+could move it from one 'C' compiler on one operating system to another.
+This is an Amiga specific implementation.</p>
+
+<p>The library supports floating point math, which, for the 68k platform, is
+limited to IEEE single and double precision or M68881 inline math. There is no
+support for the fast floating point (FFP) format or exclusive IEEE single
+precision. You either get double precision (IEEE math) or extended precision
+(M68881 inline math). What it is that you get is determined at compile time.
+Use the <tt>IEEE_FLOATING_POINT_SUPPORT</tt> preprocessor symbol to activate IEEE math
+code and the <tt>M68881_FLOATING_POINT_SUPPORT</tt> symbol for M68881 inline math.</p>
+
+<p>For the PowerPC platform, the library uses code borrowed from <i>fdlibm 5.3</i>,
+which is a portable library of arithmetic functions developed by Sun
+Microsystems which, for example, is also used within the Java platform.</p>
+
+<h2>3. What does it not do?</h2>
+
+<p>This library is a departure from the typical 'C' runtime environments of the
+past which had to run on all AmigaOS releases, down to Kickstart 1.1. This
+very library was designed to take advantage of the routines available since
+Kickstart 2.04 was introduced and virtually nobody ever put to use. This helps
+to cut the code size, and it also helps to keep bugs out of the library by
+falling back onto well-tested implementations. However, the catch is that the
+code won't run under Kickstart 1.3 and below. But then these operating system
+releases have been obsolete for more than a decade, and you can always go back
+to a compiler environment which supports them.</p>
+
+<p>There is very little support for <tt>amiga.lib</tt> functionality. There is <tt>NewList()</tt>,
+<tt>HookEntry()</tt>, <tt>CallHook()</tt>, <tt>CallHookA()</tt>, the <tt>DoMethod()</tt> family, the RexxVars
+family, but that's all. If you need more, you would have to implement it
+yourself. Put another way, if you absolutely need functionality that is only
+found in <tt>amiga.lib</tt>, you really shouldn't need it in the first place.</p>
+
+
+<h2>4. Where does the source code come from?</h2>
+
+<p>I originally thought that it might be helpful to piece this library together
+from various sources, such as the BSD libc. It turned out that this code was so
+'portable' that it became much more complex than it ought to be. Also, some
+side-effects were present which considerably changed the behaviour of the
+library. For example, the BSD libc uses <tt>bcopy()</tt> as an alias for <tt>memcpy()</tt>, and
+unlike <tt>memcpy()</tt> is documented to, <tt>bcopy()</tt> supports overlapping copies.</p>
+
+<p>Eventually, I wrote virtually all the code myself, borrowing algorithmic ideas
+from the BSD libc and the Manx Aztec 'C' runtime library. Because I don't know
+much about the environment GCC expects, I borrowed code snippets from libnix,
+which was written by Matthias Fleischer and Gunther Nikl. This in particular
+concerns the integer and floating point math support, the <tt>setjmp</tt>/<tt>longjmp</tt>
+routines and the startup code. The M68881 inline math code comes from the
+<tt>&lt;math-68881.h&gt;</tt> file written by Matthew Self <tt>(self [at] bayes&#46;arc&#46;nasa&#46;gov)</tt>.</p>
+
+
+<h2>5. Limitations and caveats</h2>
+
+<p>There is hardly any documentation on the code I wrote. In part this is due to
+the fact that the code itself is very simple in design. It should speak for
+itself. However, to make a usable runtime library you have to have a user
+documentation as in man pages or AutoDocs. We will eventually have to have
+autodocs for this library.</p>
+
+<p>The exception handling in the math code is not particularly effective. For one
+part this is due to the fact that there is no exception handler installed by
+the runtime library when it starts up which could catch and process the error
+conditions the CPU or FPU generates. The idea was to provide for a portable
+runtime library with little to no assembly language involved. To make the
+exception handling complete, such code would be necessary.</p>
+
+<p>The library currently builds under SAS/C, but because the 'normal' program
+startup code is not utilized, the base relative (A4) addressing does not work.
+If you are going to test it, use the <tt>data=faronly</tt> option to compile the
+library and the programs.</p>
+
+<p>Different build makefiles are supplied for use with GCC. There is a
+<tt>GNUmakefile.68k</tt> for the 68k platform and a <tt>GNUmakefile.os4</tt> for the AmigaOS4
+PowerPC version.</p>
+
+<h3>5.1 Floating point math and functions (<tt>scanf()</tt>, <tt>printf()</tt>, etc.) </h3>
+
+<p>The plain <tt>libc.a</tt>, which your software would be linked against by default, does not contain
+any floating point support code. This means, for example, that <tt>printf("%f",...)</tt> will not produce
+the desired output and that <tt>scanf("%f",...)</tt> may not read any data at all. If your
+program needs functions such as these or <tt>atod()</tt> then you must link against <tt>libm.a</tt> or
+the equivalent.</p>
+
+<p>To link the floating point support code with your software, use the <tt>-lm</tt> compiler option. <em>Careful!</em>
+The order in which you specify the libraries to link against is important here. Thus, <tt>gcc -o test test.c -lm -lc</tt>
+would correctly link the program <tt>test</tt> against the proper floating point math library, but
+<tt>gcc -o test test.c -lc -lm</tt> would not.</p>
+
+<h3>5.2 The thread-safe library</h3>
+
+<p>Thread-safety does not imply that you can have multiple callers
+access and close the same file. There is no resource tracking to that degree
+yet. All that the thread-safety tries to afford you is not to get into big trouble
+if simultaneous and overlapping accesses to files, memory allocation and other
+resources are taking place.</p>
+
+<p>The library code is supposed to be thread-safe if built with the <tt>__THREAD_SAFE</tt>
+preprocesssor symbol defined. Note that 'thread-safe' does <em>not</em> mean
+'reentrant'. Multiple callers for certain library functions are permitted, but
+not for all of them. For example, <tt>mkdtemp()</tt> is not thread-safe, and neither is
+<tt>rand()</tt> or <tt>localtime()</tt>. But as per <i>POSIX 1003.1c-1995</i> there are thread-safe
+variants of <tt>rand()</tt> and <tt>localtime()</tt> called <tt>rand_r()</tt>, <tt>localtime_r()</tt>, and others.</p>
+
+<p>The use of the socket I/O functions is problematic because the
+underlying <tt>bsdsocket.library</tt> API is not supposed to be used by any process
+other than the one which opened it. While one TCP/IP stack (my own "Roadshow") allows you
+to share the library base among different processes, if so configured, it is the
+exception. No other TCP/IP stack available for the Amiga robustly supports a similar
+feature. If the TCP/IP stack supports this feature, then the global variable
+<tt>__can_share_socket_library_base</tt> will be set to a non-zero value.</p>
+
+<p>Errors reported by the socket I/O functions which modify the global variables
+<tt>errno</tt> and <tt>h_errno</tt> may be directed to call the <tt>__set_errno()</tt>
+and <tt>__set_h_errno()</tt> functions instead, if the TCP/IP stack supports this feature. The global
+variable <tt>__thread_safe_errno_h_errno</tt> will be set to a non-zero value if it does.</p>
+
+<p>A much more serious problem resides with the <tt>exit()</tt>, <tt>abort()</tt>,
+<tt>assert()</tt> and <tt>raise()</tt> functions, and how the <tt>SIGINT</tt> signal is
+processed. In the thread-safe library only the <tt>main()</tt> function may directly
+or indirectly call the <tt>exit()</tt> function. No child process may do so, since this
+would wreck its stack context, crashing it instantly; the main program would be very
+likely to crash, too, because <tt>exit()</tt> will clean up after all memory allocations
+and files currently in use. Functions such as <tt>abort()</tt> and <tt>raise()</tt> may
+call the <tt>exit()</tt> function indirectly. And the <tt>raise()</tt> function may
+be invoked as part of the <tt>Control+C</tt> checking. You should make sure that the
+signal handling does not affect any child processes. This can be done by replacing the
+<tt>__check_abort()</tt> function or by disabling <tt>SIGINT</tt> processing altogether,
+such as through a <tt>signal(SIGINT,SIG_IGN)</tt> call.</p>
+
+<p> Also take care with file I/O involving the <tt>stdin</tt>/<tt>stdout</tt>/<tt>stderr</tt>
+streams; read/write operations on these streams will be mapped to the <tt>Input()</tt>/<tt>Output()</tt>/<tt>ErrorOutput()</tt>
+file handles of the process performing these operations. Since only this small set of
+operations is mapped, functions such as <tt>fcntl()</tt> or <tt>select()</tt> will not
+work on the <tt>stdin</tt>/<tt>stdout</tt>/<tt>stderr</tt> streams and the corresponding
+file descriptors <tt>STDIN_FILENO</tt>/<tt>STDOUT_FILENO</tt>/<tt>STDERR_FILENO</tt>.
+It is therefore strongly recommended to use the thread-safe library only for applications
+which can cope with the limitations described above.</p>
+
+<h3>5.3 Using gmon (PowerPC only)</h3>
+
+<p>To use profiling, two steps are required. First of all, your program must be compiled with
+the gcc command line option <tt>-pg</tt>. This instructs the compiler to generate special
+profiling code in the prologue and epilogue of each function. Additionally, the program
+must be linked with <tt>libprofile.a</tt>. To do this, either manually add
+<tt>-lprofile</tt> to the linker command line, or modify the specs file as follows.
+Find the lines that look like this (it may actually differ silghtily from your specs file,
+but the important thing is that the line before the line to be modified reads <tt>lib:</tt>):
+<pre>
+lib:
+--start-group -lc --end-group
+</pre>
+You will have to modify this to look like this:
+<pre>
+lib:
+%{pg: -lprofile} --start-group -lc --end-group
+</pre>
+<p>Normally, the specs file is located at the compilers installation directory. For cross-compilers,
+this is <tt>/usr/local/amiga/lib/gcc/ppc-amigaos/<i>compiler-version</i>/specs</tt>. For a native compiler,
+it's in <tt>gcc:lib/gcc/ppc-amigaos/<i>compiler-version</i>/specs</tt>. Most likely, your compiler will already have this added to it's specs file.</p>
+
+<p>Profiling makes use of a special PowerPC facility called the Performance Monitor. It
+allows to "mark" tasks and count only during while a marked task is running. This allows
+performance analysis to be made independant of the actual system load. The Performace Monitor
+is available on all PowerPC models supported by AmigaOS 4 except for the <tt>603e</tt>, and
+embedded versions of the PowerPC like the <tt>405</tt> and <tt>440</tt> series. Consult the manual
+of the appropriate chip for more information.</p>
+
+<h3>5.4 Implementation defined behaviour</h3>
+
+<h4>5.4.1. 'C' language</h4>
+
+<h5>5.4.1.1. Environment</h5>
+
+<p>The <tt>main(int argc,char **argv);</tt> function may be called with an <tt>argc</tt> value of 0,
+in which case the <tt>argv</tt> variable will contain a pointer to the Amiga Workbench startup
+message, which is of type <tt>struct WBStartup *</tt>, and is defined in the Amiga system header
+file <tt>&lt;workbench/startup.h&gt;</tt>.</p>
+
+<h5>5.4.1.2. Characters</h5>
+
+<p>The current locale is derived from the current Amiga operating system locale settings. The
+<tt>setlocale("")</tt> function call will choose the current Amiga operating system locale settings.
+Any other name passed to the <tt>setlocale()</tt> function, with the exception of <tt>"C"</tt>,
+which selects the 'C' locale, must be a locale name, as used by the Amiga operating system
+function <tt>OpenLocale()</tt> in <tt>locale.library</tt>.</p>
+
+<h5>5.4.1.3. Floating-point</h5>
+
+<p>The 68k version of clib2 supports single and double precision floating point numbers,
+according to the <i>IEEE 754</i> standard. The software floating point number support is built upon the Amiga
+operating system libraries <tt>mathieeesingbas.library</tt>, <tt>mathieeedoubbas.library</tt>
+and <tt>mathieeedoubtrans.library</tt>. The hardware floating point number support uses
+the M68881/M68882/M68040/M68060 floating point unit intead.</p>
+
+<p>The PowerPC version of clib2 supports only double precision floating point numbers, according to
+the <i>IEEE 754</i> standard, because that is exactly what the PowerPC CPU supports. Single precision
+numbers may be implicitly converted to double precision numbers. This also means that the <i>C99</i>
+data type <tt>long double</tt> is identical to the <tt>double</tt> data type. Because there is no
+difference between these two, the library omits support for <i>C99</i> functions specifically designed
+to operate on <tt>long double</tt> data types, such as <tt>rintl()</tt>.</p>
+
+<p>Both the 68k and the PowerPC versions of clib2 may call software floating point support
+routines in order to perform double and single precision operations that go beyond
+simple addition and multiplication, such as <tt>sqrt()</tt>. These functions come from
+Sun Microsystems <i>fdlibm 5.3</i> library.</p>
+
+<p>Unless your software is linked against <tt>libm.a</tt> no floating point functions will
+be available to it, possibly causing a linker error. When using the GNU 'C' compiler, you will
+want to add the option <tt>-lm -lc</tt> to the linker command line.</p>
+
+<p>The exception handling is currently entirely out of control of the developer
+and solely subject to the rules imposed by the operating system itself.</p>
+
+<p>The <tt>fmod()</tt> function returns the value of the <tt>x</tt> parameter and
+sets <tt>errno</tt> to <tt>EDOM</tt> if the <tt>y</tt> parameter value is 0.</p>
+
+<h4>5.4.2. Library functions</h4>
+
+<h5>5.4.2.1. <tt>NULL</tt></h5>
+
+<p>The <tt>NULL</tt> pointer constant is defined in the <tt>&lt;stddef.h&gt;</tt> header and
+will expand to <tt>((void *)0L)</tt> if the 'C' compiler is used. For a C++ compiler the constant
+will expand to <tt>0L</tt> instead.</p>
+
+<h5>5.4.2.2. <tt>assert()</tt> diagnostic messages</h5>
+
+<p>The diagnostic messages printed by the <tt>assert()</tt> function take the following form:</p>
+
+<blockquote><tt>[<i>program name</i>] <i>file</i>:<i>line</i>: failed assertion "<i>condition</i>".</tt></blockquote>
+
+<p>where:</p>
+<table border=0>
+<tr><th align=right>program name</th><td>Optional program name; if the program name is not yet known, then the
+entire text enclosed in square brackets will be omitted.</td></tr>
+<tr><th align=right>file</th><td>The value of the <tt>__FILE__</tt> symbol at the location of the <tt>assert()</tt> call.</td></tr>
+<tr><th align=right>line</th><td>The value of the <tt>__LINE__</tt> symbol at the location of the <tt>assert()</tt> call.</td></tr>
+<tr><th align=right>condition</th><td>The condition passed to the <tt>assert()</tt> function.</td></tr>
+</table>
+
+<p>If available, the diagnostic messages will be sent to <tt>stderr</tt>.</p>
+
+<p>If the program was launched from Workbench or if the global variable <tt>__no_standard_io</tt> is set
+to a non-zero value, then the assertion failure message will not be displayed in the shell window, but
+in a requester window. The diagnostic message shown in this window will take the following form:</p>
+
+<blockquote><tt>Assertion of condition "<i>condition</i>" failed in file "<i>file</i>", line <i>line</i>.</tt></blockquote>
+
+<p>The name of the program, if it is know at that time, will be displayed in the requester window title.</p>
+
+<h5>5.4.2.3. Signal handling</h5>
+
+<p>Only the minimum of required signals are supported by this library. These are <tt>SIGABRT</tt>, <tt>SIGFPE</tt>,
+<tt>SIGILL</tt>, <tt>SIGINT</tt>, <tt>SIGSEGV</tt> and <tt>SIGTERM</tt>.</p>
+
+<p>As of this writing <tt>SIGFPE</tt> is never called by the floating point library functions.</p>
+
+<p>The <tt>Ctrl+C</tt> event is translated into <tt>SIGINT</tt>. Signal delivery may be delayed
+until a library function which polls for the signal examines it. This means, for example, that
+a runaway program caught in an infinite loop cannot be aborted by sending it a <tt>Ctrl+C</tt> event unless special code
+is added which tests for the presence of the signal and calls the <tt>__check_abort()</tt> all on its own.</p>
+
+<p>Processing of the <tt>Ctrl+C</tt> event involves the internal <tt>__check_abort()</tt> function which
+polls for the presence of the event and which will call <tt>raise(SIGINT);</tt>. The <tt>__check_abort()</tt>
+function may be replaced by user code.</p>
+
+<h5>5.4.2.4. Files</h5>
+
+<p>No new line characters are written unless specifically requested.</p>
+
+<p>Space characters in a text stream before a new line character are read in and not discarded.</p>
+
+<p>When data is read from a file, the last character does not have to be a new line character.</p>
+
+<p>No NUL byte will be appended to data written to a binary stream.</p>
+
+<p>There is no difference between text and binary streams.</p>
+
+<p>Writing to a text or binary stream does not truncate the associated file. A stream may be
+truncated by the initial <tt>fopen()</tt> call if the <tt>mode</tt> parameter starts with
+the letter <tt>w</tt>.</p>
+
+<p>The file position indicator is initially set to the end of an append mode stream.</p>
+
+<h5>5.4.2.5. <tt>printf()</tt> family</h5>
+
+<p>The <tt>%p</tt> conversion is the hexadecimal representation of the pointer, and
+it is preceded by the string <tt>0x</tt>.</p>
+
+<p>The <tt>%a</tt>, <tt>%e</tt>, <tt>%f</tt>, <tt>%g</tt>, <tt>%A</tt>,
+<tt>%E</tt>, <tt>%F</tt> and <tt>%G</tt> specifiers will produce the string <tt>inf</tt>
+for infinity.</p>
+
+<h5>5.4.2.6. <tt>scanf()</tt> family</h5>
+
+<p>The input for the <tt>%p</tt> conversion must be a hexadecimal number,
+preceded by either the string <tt>0x</tt> or <tt>0X</tt>.</p>
+
+<p>In the <tt>%[</tt> conversion a <tt>-</tt> (dash) character that is neither the
+first nor the last character in the scanset indicates that a subrange of
+characters should be used. Thus <tt>%[a-d]</tt> is equivalent to <tt>%[abcd]</tt>.</p>
+
+<p>The period (.) is the decimal-point character. The locale specific decimal-point
+character is accepted as an alternative to the period (.).</p>
+
+<h5>5.4.2.7. <tt>malloc()</tt>, <tt>realloc()</tt> and <tt>calloc()</tt></h5>
+
+<p>In the standard <tt>libc.a</tt> implementation any request to allocate
+0 (zero) bytes will fail. A result value of <tt>NULL</tt> will be returned and
+the global <tt>errno</tt> variable will be set to <tt>EINVAL</tt>.</p>
+
+<p>In the <tt>libunix.a</tt> implementation a request to allocate
+0 (zero) bytes will result in an allocation of at least 4 bytes, which will
+be set to zero. Each zero length allocation will return a different
+memory address.</p>
+
+<h5>5.4.2.8. <tt>rename()</tt></h5>
+
+<p>In the standard <tt>libc.a</tt> implementation the <tt>rename()</tt> function
+will fail if there already is a file or directory by the new name to be used.</p>
+
+<p>In the <tt>libunix.a</tt> implementation the <tt>rename()</tt> function will
+delete any existing file or directory by the new name.</p>
+
+<h5>5.4.2.9. <tt>remove()</tt></h5>
+
+<p>In the standard <tt>libc.a</tt> implementation the <tt>remove()</tt> function
+will fail if the file is protected by deletion or currently in use.</p>
+
+<p>In the <tt>libunix.a</tt> implementation the <tt>remove()</tt> function
+will remove the file when the program exits or the file is closed.</p>
+
+<h5>5.4.2.10. <tt>abort()</tt></h5>
+
+<p>The <tt>abort()</tt> function will flush all buffered files,
+close all the files currently open and delete temporary files.</p>
+
+<h5>5.4.2.11. <tt>exit()</tt> and <tt>_Exit()</tt></h5>
+
+<p>The value passed to the <tt>exit()</tt> function will be passed to the
+Amiga operating system. The value of <tt>EXIT_FAILURE</tt> is equivalent
+to <tt>RETURN_FAIL</tt> as defined in the Amiga system header file
+<tt>&lt;dos/dos.h&gt;</tt>; this value maps to the number 20. The value
+of <tt>EXIT_SUCCESS</tt> is equivalent to <tt>RETURN_OK</tt> as defined in
+the Amiga system header file <tt>&lt;dos/dos.h&gt;</tt>; this value maps to
+the number 0.</p>
+
+<p>The <tt>_Exit()</tt> function will flush all buffered files,
+close all the files currently open and delete temporary files.</p>
+
+<h5>5.4.2.12. <tt>getenv()</tt></h5>
+
+<p>Environment data is retrieved from the global Amiga operating system environment
+storage area through the <tt>dos.library/GetEnv()</tt> function. Global variables are
+stored in files in the <tt>ENV:</tt> directory.</p>
+
+<h5>5.4.2.13. <tt>system()</tt></h5>
+
+<p>If the <tt>command</tt> parameter is not NULL and the <tt>system()</tt> function returns, then the result will
+be equivalent to the exit code of the program invoked, or -1 if the program could not be started.
+This follows the behaviour of the Amiga operating system function <tt>dos.library/System()</tt>.
+A return value of 0 typically indicates successful execution and a value &gt; 0 
+typically indicates failure.</p>
+
+<h5>5.4.2.14. Time</h5>
+
+<p>The default time zone is derived from the Amiga operating system locale
+settings and takes the form <tt>GMT+<i>hh</i></tt> or <tt>GMT-<i>hh</i></tt>,
+respectively, in which <i>hh</i> stands for the difference between the local
+time zone and Greenwich Mean Time.</p>
+
+<p>The <tt>clock_t</tt> and <tt>time_t</tt> types are unsigned 32 bit integers.
+The <tt>time_t</tt> epoch starts with midnight January 1st, 1970.</p>
+
+<p>Daylight savings time is not supported.</p>
+
+<p>The reference point used by the <tt>clock()</tt> function is the time
+when the program was started.</p>
+
+<h4>5.4.3. Locale specific behaviour</h4>
+
+<p>The direction of printing is from left to right.</p>
+
+<p>The period (.) is the decimal-point character.</p>
+
+<p>The <tt>strftime()</tt> behaviour follows the Amiga operating system locale
+settings. If the 'C' locale is in effect, then the output generated by the
+<tt>%Z</tt> takes the form <tt>GMT+<i>hh</i></tt> or <tt>GMT-<i>hh</i></tt>,
+respectively, in which <i>hh</i> stands for the difference between the local
+time zone and Greenwich Mean Time.</p>
+
+<h2>6. Conventions and design issues</h2>
+
+<p>You will have noticed the 330+ files in this directory. This is not the best
+way to organize a runtime library, but at least all the bits and pieces are in
+plain sight. Each file stands for the one or two routines it contains. The
+name indicates what routine(s) that might be. Each file name is prefixed by
+the name of the header file in which the corresponding routine is defined. So,
+for example, you will find that <tt>unistd_lchown.c</tt> contains the definition of
+the <tt>lchown()</tt> routine, which has its prototype defined in the <tt>&lt;unistd.h&gt;</tt> header
+file.</p>
+
+<p>Internal function and variables which need to be visible across several
+modules have names prefixed with two underscores, as in <tt>__stdio_init()</tt>.</p>
+
+<p>By default all library routines follow the ISO 'C' conventions in that where
+implementation defined behaviour is permitted, the AmigaOS rules are followed.
+For example, <tt>unlink()</tt> will by default operate like <tt>DeleteFile()</tt> and <tt>rename()</tt>
+will return with an error code set if the name of the file/directory to be
+renamed would collide with an existing directory entry.</p>
+
+
+<h2>7. The startup code</h2>
+
+<p>There are three program startup files provided. The most simplistic is in
+<tt>startup.c</tt> which I use for SAS/C. It just invokes the setup routine which
+eventually calls <tt>main()</tt> and drops straight into <tt>exit()</tt>.</p>
+
+<p>The <tt>ncrt0.S</tt> file was adapted from the libnix startup code which sets up the
+base relative data area, if necessary (the <tt>SMALL_DATA</tt> preprocessor symbol must
+be defined).</p>
+
+<p>The <tt>nrcrt0.S</tt> file was adapted from libnix startup code, too, and sets up the
+base relative data area for programs to be made resident. Note that the
+<tt>geta4()</tt> stub is missing here; it wouldn't work in a resident program anyway.</p>
+
+<p>The <tt>ncrt0.S</tt> and <tt>nrcrt0.S</tt> files are considerably smaller and less complex than
+the libnix code they are based on. This is because in this library design all
+the more complex tasks are performed in the <tt>stdlib_main.c</tt> file rather than in
+assembly language.</p>
+
+
+<h2>8. Documentation</h2>
+
+<p>Well, you're reading it. There isn't anything much yet. You can consult the book
+<i>'C' - A reference manual</i> and you could look at the
+<a href="http://www.opengroup.org/onlinepubs/007904975">Open Group's Single Unix
+Specification</a>.</p>
+
+<p>It is recommended to browse the contents of the <tt>include</tt> directory. The
+header files contain information on library behaviour and not just data type and
+function prototype definitions. Specifically, the <tt>&lt;dos.h&gt;</tt> header file
+contains documentation about special libraries and global variables which may be
+used or replaced by user code.</p>
+
+
+<h2>9. Legal status</h2>
+
+<p>Because this library is in part based upon free software it would be
+uncourteous not to make it free software itself. The BSD license would
+probably be appropriate here.</p>
+
+<p>The PowerPC math library is based in part on work by Sun Microsystems:</p>
+
+<pre>
+====================================================
+Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+
+Developed at SunPro, a Sun Microsystems, Inc. business.
+Permission to use, copy, modify, and distribute this
+software is freely granted, provided that this notice
+is preserved.
+====================================================
+</pre>
+
+<h2>10. Contacting the author</h2>
+
+<p>The basic work was done by Olaf Barthel during two weeks in July 2002. You
+can reach me at:</p>
+
+<p>Olaf Barthel<br>
+   Gneisenaustr. 43<br>
+   D-31275 Lehrte<br></p>
+
+<p>Or via e-mail:</p>
+
+<p>obarthel [at] gmx&#46;net</p>
+</body>
+</html>

documentation/specs

@@ -0,0 +1,64 @@
+*asm:
+ %{m68000:-mc68010} %{mc68000:-mc68010} %{m68020:-mc68020} %{mc68020:-mc68020} %{m68030:-mc68030} %{m68040:-mc68040} %{m68060:-mc68060} %{m68020-40:-mc68020} %{m68020-60:-mc68020} %{!mc68000:%{!m68000:%{!mc68020:%{!m68020:%{!m68030:%{!m68040:%{!m68060:%{!m68020-40:%{!m68020-60:-mc68010}}}}}}}}} %{msmall-code:-sc}
+
+*asm_final:
+
+
+*cpp:
+%{m68881:-D__HAVE_68881__} %{!ansi:%{m68020:-Dmc68020} %{mc68020:-Dmc68020} %{m68020-40:-Dmc68020} %{m68020-60:-Dmc68020} %{m68030:-Dmc68030} %{m68040:-Dmc68040} %{m68060:-Dmc68060}} %{m68020:-D__mc68020__ -D__mc68020} %{mc68020:-D__mc68020__ -D__mc68020} %{m68020-40:-D__mc68020__ -D__mc68020} %{m68020-60:-D__mc68020__ -D__mc68020} %{m68030:-D__mc68030__ -D__mc68030} %{m68040:-D__mc68040__ -D__mc68040} %{m68060:-D__mc68060__ -D__mc68060} 
+
+*cc1:
+%{resident:-fbaserel} %{resident32:-fbaserel32} %{msmall-code:-fno-function-cse} 
+
+*cc1plus:
+
+
+*endfile:
+
+
+*link:
+%{fbaserel:%{!resident:-m amiga_bss -fl libb}} %{resident:-m amiga_bss -amiga-datadata-reloc -fl libb} %{fbaserel32:%{!resident32:-m amiga_bss -fl libb32}} %{resident32:-m amiga_bss -amiga-datadata-reloc -fl libb32} %{g:-amiga-debug-hunk} %{m68020:-fl libm020} %{mc68020:-fl libm020} %{m68030:-fl libm020} %{m68040:-fl libm020} %{m68060:-fl libm020} %{m68020-40:-fl libm020} %{m68020-60:-fl libm020} %{noixemul:}
+
+*lib:
+%{mstackextend:-lstack} -lc -lamiga -ldebug -lgcc -lc
+
+*libgcc:
+%{mstackextend:-lstack} -lc -lgcc
+
+*startfile:
+%{resident32:nr32crt0.o%s}%{!resident32:%{fbaserel32:nb32crt0.o%s}%{!fbaserel32:%{resident:nrcrt0.o%s}%{!resident:%{fbaserel:nbcrt0.o%s}%{!fbaserel:ncrt0.o%s}}}}
+
+*switches_need_spaces:
+
+
+*signed_char:
+%{funsigned-char:-D__CHAR_UNSIGNED__}
+
+*predefines:
+-Dmc68000 -Damiga -Damigaos -DMCH_AMIGA -DAMIGA -D__CLIB2__ -D__chip=__attribute__((__chip__)) -D__saveds=__attribute__((__saveds__)) -D__interrupt=__attribute__((__interrupt__)) -D__stackext=__attribute__((__stackext__)) -D__regargs=__attribute__((__regparm__)) -D__stdargs=__attribute__((__stkparm__)) -D__aligned=__attribute__((__aligned__(4))) -Asystem(amigaos) -Acpu(m68k) -Amachine(m68k)
+
+*cross_compile:
+0
+
+*version:
+2.95.3
+
+*multilib:
+. ;
+
+*multilib_defaults:
+
+
+*multilib_extra:
+
+
+*multilib_matches:
+
+
+*linker:
+collect2
+
+*link_command:
+%{!fsyntax-only: %{!c:%{!M:%{!MM:%{!E:%{!S:%(linker) %l %X %{o*} %{A} %{d} %{e*} %{m} %{N} %{n} %{r} %{s} %{t} %{u*} %{x} %{z} %{Z} %{!A:%{!nostdlib:%{!nostartfiles:%S}}} %{static:} %{L*} %D %o %{!nostdlib:%{!nodefaultlibs:%G %L %G}} %{!A:%{!nostdlib:%{!nostartfiles:%E}}} %{T*}
+ }}}}}}
+

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

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga.lib_rev.c,v 1.1.1.1 2004-07-26 16:30:15 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	180
-#define DATE		"23.10.2004"
-#define VERS		"amiga.lib 1.180"
-#define VSTRING		"amiga.lib 1.180 (23.10.2004)\r\n"
-#define VERSTAG		"\0$VER: amiga.lib 1.180 (23.10.2004)"
+#define REVISION	216
+#define DATE		"10.7.2025"
+#define VERS		"amiga.lib 1.216"
+#define VSTRING		"amiga.lib 1.216 (10.7.2025)\r\n"
+#define VERSTAG		"\0$VER: amiga.lib 1.216 (10.7.2025)"

library/amiga.lib_rev.rev

@@ -1 +1 @@
-180
+216

library/amiga_acrypt.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_acrypt.c,v 1.1.1.1 2004-07-26 16:30:16 obarthel Exp $
+ * $Id: amiga_acrypt.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -31,10 +31,14 @@
  * POSSIBILITY OF SUCH DAMAGE.
  */
 
+#define ACrypt __ACrypt
+
 #include <exec/types.h>
 #include <string.h>
 #include <clib/alib_protos.h>
 
+#undef ACrypt
+
 /****************************************************************************/
 
 #include "debug.h"
@@ -45,6 +49,10 @@
 
 /****************************************************************************/
 
+UBYTE * ACrypt(UBYTE * buffer, const UBYTE * password, const UBYTE * user);
+
+/****************************************************************************/
+
 UBYTE *
 ACrypt(UBYTE * buffer, const UBYTE * password, const UBYTE * user)
 {

library/amiga_addtof.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_addtof.c,v 1.1.1.1 2004-07-26 16:30:16 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -57,7 +57,7 @@ typedef LONG (* CFUNC)(APTR arg);
 
 /****************************************************************************/
 
-static LONG INTERRUPT ASM
+STATIC LONG INTERRUPT ASM
 call_routine(REG(a1,struct Isrvstr *i))
 {
 	CFUNC p = (CFUNC)i->ccode;

library/amiga_argarraydone.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_argarraydone.c,v 1.1.1.1 2004-07-26 16:30:16 obarthel Exp $
+ * $Id: amiga_argarraydone.c,v 1.4 2006-09-25 14:05:31 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -48,7 +48,7 @@
 
 /****************************************************************************/
 
-extern char **CXLIB_argarray;
+extern const unsigned char **CXLIB_argarray;
 
 extern struct DiskObject * CXLIB_disko;
 

library/amiga_argarrayinit.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_argarrayinit.c,v 1.1.1.1 2004-07-26 16:30:16 obarthel Exp $
+ * $Id: amiga_argarrayinit.c,v 1.7 2008-09-30 14:09:00 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -52,6 +52,14 @@
 
 /****************************************************************************/
 
+#ifdef __amigaos4__
+#define MEMORY_TYPE MEMF_PRIVATE
+#else
+#define MEMORY_TYPE MEMF_ANY
+#endif /* __amigaos4__ */
+
+/****************************************************************************/
+
 const unsigned char ** CXLIB_argarray;
 
 struct DiskObject * CXLIB_disko;
@@ -61,23 +69,23 @@ struct DiskObject * CXLIB_disko;
 STRPTR *
 ArgArrayInit(LONG argc, CONST_STRPTR * argv)
 {
-	unsigned char ** result = NULL;
+	STRPTR * result = NULL;
 
 	if(argc != 0) /* run from CLI */
 	{
-		int i;
+		LONG i;
 
 		if(argc == 1)
 			goto out; /* skip command name */
 
-		CXLIB_argarray = (const unsigned char **)AllocVec(sizeof(char *) * argc,MEMF_ANY|MEMF_CLEAR);
+		CXLIB_argarray = (const unsigned char **)AllocVec(sizeof(char *) * argc,MEMORY_TYPE|MEMF_CLEAR);
 		if(CXLIB_argarray == NULL)
 			goto out;
 
 		for(i = 1 ; i < argc ; i++)
-			CXLIB_argarray[i-1] = argv[i];
+			CXLIB_argarray[i-1] = (unsigned char *)argv[i];
 
-		result = (unsigned char **)CXLIB_argarray;
+		result = (STRPTR *)CXLIB_argarray;
 	}
 	else if (IconBase != NULL)
 	{
@@ -90,7 +98,7 @@ ArgArrayInit(LONG argc, CONST_STRPTR * argv)
 		if(CXLIB_disko == NULL)
 			goto out;
 
-		result = (unsigned char **)CXLIB_disko->do_ToolTypes;
+		result = (STRPTR *)CXLIB_disko->do_ToolTypes;
 	}
 
  out:

library/amiga_argint.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_argint.c,v 1.1.1.1 2004-07-26 16:30:16 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_argstring.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_argstring.c,v 1.1.1.1 2004-07-26 16:30:16 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_beginio.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_beginio.c,v 1.1.1.1 2004-07-26 16:30:17 obarthel Exp $
+ * $Id: amiga_beginio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -37,6 +37,14 @@
 
 /****************************************************************************/
 
+#include "debug.h"
+
+/****************************************************************************/
+
+#ifndef __PPC__
+
+/****************************************************************************/
+
 #if defined(__SASC)
 
 VOID __begin_io(struct IORequest * ior);
@@ -64,10 +72,6 @@ VOID __begin_io(struct IORequest * ior);
 
 /****************************************************************************/
 
-#include "debug.h"
-
-/****************************************************************************/
-
 VOID
 BeginIO(struct IORequest *ior)
 {
@@ -82,3 +86,39 @@ BeginIO(struct IORequest *ior)
 
 	LEAVE();
 }
+
+/****************************************************************************/
+
+#else
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+
+/****************************************************************************/
+
+#if defined(BeginIO)
+#undef BeginIO
+#endif /* BeginIO */
+
+/****************************************************************************/
+
+VOID BeginIO(struct IORequest *ior);
+
+/****************************************************************************/
+
+VOID
+BeginIO(struct IORequest *ior)
+{
+	ENTER();
+
+	assert( ior != NULL && ior->io_Device != NULL );
+
+	IExec->BeginIO(ior);
+
+	LEAVE();
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_callhook.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_callhook.c,v 1.1.1.1 2004-07-26 16:30:17 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_callhooka.asm

@@ -1,10 +1,10 @@
 *
-*	$Id: amiga_callhooka.asm,v 1.1.1.1 2004-07-26 16:30:17 obarthel Exp $
+*	$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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+*	Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
 *	All rights reserved.
 *
 *	Redistribution and use in source and binary forms, with or without

library/amiga_callhooka.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_callhooka.c,v 1.1.1.1 2004-07-26 16:30:17 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_coercemethod.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_coercemethod.c,v 1.1.1.1 2004-07-26 16:30:17 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_createextio.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_createextio.c,v 1.1.1.1 2004-07-26 16:30:18 obarthel Exp $
+ * $Id: amiga_createextio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -44,6 +44,16 @@
 
 /****************************************************************************/
 
+#if defined(CreateExtIO)
+#undef CreateExtIO
+#endif /* CreateExtIO */
+
+/****************************************************************************/
+
+struct IORequest * CreateExtIO(CONST struct MsgPort * port, LONG io_size);
+
+/****************************************************************************/
+
 struct IORequest *
 CreateExtIO(CONST struct MsgPort * port, LONG io_size)
 {

library/amiga_createport.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_createport.c,v 1.1.1.1 2004-07-26 16:30:18 obarthel Exp $
+ * $Id: amiga_createport.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -44,6 +44,16 @@
 
 /****************************************************************************/
 
+#if defined(CreatePort)
+#undef CreatePort
+#endif /* CreatePort */
+
+/****************************************************************************/
+
+struct MsgPort * CreatePort(CONST_STRPTR name, LONG pri);
+
+/****************************************************************************/
+
 struct MsgPort *
 CreatePort(CONST_STRPTR name, LONG pri)
 {

library/amiga_createstdio.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_createstdio.c,v 1.1.1.1 2004-07-26 16:30:18 obarthel Exp $
+ * $Id: amiga_createstdio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -44,6 +44,16 @@
 
 /****************************************************************************/
 
+#if defined(CreateStdIO)
+#undef CreateStdIO
+#endif /* CreateStdIO */
+
+/****************************************************************************/
+
+struct IOStdReq * CreateStdIO(CONST struct MsgPort * port);
+
+/****************************************************************************/
+
 struct IOStdReq *
 CreateStdIO(CONST struct MsgPort * port)
 {

library/amiga_createtask.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_createtask.c,v 1.1.1.1 2004-07-26 16:30:18 obarthel Exp $
+ * $Id: amiga_createtask.c,v 1.6 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -31,8 +31,6 @@
  * POSSIBILITY OF SUCH DAMAGE.
  */
 
-#ifndef __PPC__
-
 /****************************************************************************/
 
 #include <exec/libraries.h>
@@ -48,11 +46,21 @@
 
 /****************************************************************************/
 
+#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.
@@ -191,4 +199,48 @@ CreateTask(CONST_STRPTR name,LONG pri,CONST APTR init_pc,ULONG stack_size)
 
 /****************************************************************************/
 
+#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 *
+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

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_deleteextio.c,v 1.1.1.1 2004-07-26 16:30:18 obarthel Exp $
+ * $Id: amiga_deleteextio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -44,6 +44,16 @@
 
 /****************************************************************************/
 
+#if defined(DeleteExtIO)
+#undef DeleteExtIO
+#endif /* DeleteExtIO */
+
+/****************************************************************************/
+
+VOID DeleteExtIO(struct IORequest * io);
+
+/****************************************************************************/
+
 VOID
 DeleteExtIO(struct IORequest * io)
 {

library/amiga_deleteport.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_deleteport.c,v 1.1.1.1 2004-07-26 16:30:19 obarthel Exp $
+ * $Id: amiga_deleteport.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -44,6 +44,16 @@
 
 /****************************************************************************/
 
+#if defined(DeletePort)
+#undef DeletePort
+#endif /* DeletePort */
+
+/****************************************************************************/
+
+VOID DeletePort(struct MsgPort * port);
+
+/****************************************************************************/
+
 VOID
 DeletePort(struct MsgPort * port)
 {

library/amiga_deletestdio.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_deletestdio.c,v 1.1.1.1 2004-07-26 16:30:19 obarthel Exp $
+ * $Id: amiga_deletestdio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -44,6 +44,16 @@
 
 /****************************************************************************/
 
+#if defined(DeleteStdIO)
+#undef DeleteStdIO
+#endif /* DeleteStdIO */
+
+/****************************************************************************/
+
+VOID DeleteStdIO(struct IOStdReq * io);
+
+/****************************************************************************/
+
 VOID
 DeleteStdIO(struct IOStdReq * io)
 {

library/amiga_deletetask.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_deletetask.c,v 1.1.1.1 2004-07-26 16:30:19 obarthel Exp $
+ * $Id: amiga_deletetask.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -41,8 +41,38 @@
 
 /****************************************************************************/
 
+#ifndef __PPC__
+
+/****************************************************************************/
+
 VOID
 DeleteTask(struct Task *tc)
 {
 	RemTask(tc);
 }
+
+/****************************************************************************/
+
+#else
+
+/****************************************************************************/
+
+#if defined(DeleteTask)
+#undef DeleteTask
+#endif /* DeleteTask */
+
+/****************************************************************************/
+
+VOID DeleteTask(struct Task *tc);
+
+/****************************************************************************/
+
+VOID
+DeleteTask(struct Task *tc)
+{
+	IExec->DeleteTask(tc);
+}
+
+/****************************************************************************/
+
+#endif /* __PPC__ */

library/amiga_domethod.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_domethod.c,v 1.1.1.1 2004-07-26 16:30:19 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_dosupermethod.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_dosupermethod.c,v 1.1.1.1 2004-07-26 16:30:19 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_dotimer.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_dotimer.c,v 1.1.1.1 2004-07-26 16:30:19 obarthel Exp $
+ * $Id: amiga_dotimer.c,v 1.8 2006-04-05 06:43:56 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -44,11 +44,34 @@
 
 /****************************************************************************/
 
+#ifndef _STDLIB_PROFILE_H
+#include "stdlib_profile.h"
+#endif /* _STDLIB_PROFILE_H */
+
+/****************************************************************************/
+
 #include "macros.h"
 #include "debug.h"
 
 /****************************************************************************/
 
+/* A quick workaround for the timeval/timerequest->TimeVal/TimeRequest
+   change in the recent OS4 header files. */
+
+#if defined(__NEW_TIMEVAL_DEFINITION_USED__)
+
+#define timeval		TimeVal
+#define tv_secs		Seconds
+#define tv_micro	Microseconds
+
+#define timerequest	TimeRequest
+#define tr_node		Request
+#define tr_time		Time
+
+#endif /* __NEW_TIMEVAL_DEFINITION_USED__ */
+
+/****************************************************************************/
+
 LONG
 DoTimer(struct timeval *tv,LONG unit,LONG command)
 {
@@ -56,20 +79,42 @@ DoTimer(struct timeval *tv,LONG unit,LONG command)
 	struct MsgPort * mp;
 	LONG error;
 
+	PROFILE_OFF();
+
 	assert( tv != NULL );
 
-	mp = AllocVec(sizeof(*mp),MEMF_ANY|MEMF_PUBLIC|MEMF_CLEAR);
-	if(mp == NULL)
+	#if defined(__amigaos4__)
 	{
-		error = IOERR_OPENFAIL;
-		goto out;
-	}
+		mp = AllocSysObjectTags(ASOT_PORT,
+			ASOPORT_Action,		PA_SIGNAL,
+			ASOPORT_AllocSig,	FALSE,
+			ASOPORT_Signal,		SIGB_SINGLE,
+			ASOPORT_Target,		FindTask(NULL),
+		TAG_DONE);
 
-	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);
+		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)
@@ -86,14 +131,10 @@ DoTimer(struct timeval *tv,LONG unit,LONG command)
 	tr->tr_time.tv_secs		= tv->tv_secs;
 	tr->tr_time.tv_micro	= tv->tv_micro;
 
-	PROFILE_OFF();
-
-	SetSignal(0,SIGF_SINGLE);
+	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;
 
@@ -107,7 +148,18 @@ DoTimer(struct timeval *tv,LONG unit,LONG command)
 		DeleteIORequest((struct IORequest *)tr);
 	}
 
-	FreeVec(mp);
+	#if defined(__amigaos4__)
+	{
+		if(mp != NULL)
+			FreeSysObject(ASOT_PORT,mp);
+	}
+	#else
+	{
+		FreeVec(mp);
+	}
+	#endif /* __amigaos4__ */
+
+	PROFILE_ON();
 
 	return(error);
 }

library/amiga_fastrand.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_fastrand.c,v 1.1.1.1 2004-07-26 16:30:20 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_freeievents.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_freeievents.c,v 1.1.1.1 2004-07-26 16:30:20 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_hookentry.asm

@@ -1,10 +1,10 @@
 *
-*	$Id: amiga_hookentry.asm,v 1.1.1.1 2004-07-26 16:30:20 obarthel Exp $
+*	$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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+*	Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
 *	All rights reserved.
 *
 *	Redistribution and use in source and binary forms, with or without

library/amiga_hookentry.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_hookentry.c,v 1.1.1.1 2004-07-26 16:30:20 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_hotkey.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_hotkey.c,v 1.1.1.1 2004-07-26 16:30:20 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_invertstring.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_invertstring.c,v 1.1.1.1 2004-07-26 16:30:20 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -49,7 +49,7 @@
 
 /****************************************************************************/
 
-static int
+STATIC int
 do_escape(int cc)
 {
 	int result;
@@ -91,7 +91,7 @@ do_escape(int cc)
 
 /****************************************************************************/
 
-static ULONG
+STATIC ULONG
 do_angle(STRPTR * strp, struct InputEvent *ie)
 {
 	ULONG result;

library/amiga_newlist.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_newlist.c,v 1.1.1.1 2004-07-26 16:30:21 obarthel Exp $
+ * $Id: amiga_newlist.c,v 1.4 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -43,6 +43,10 @@
 
 /****************************************************************************/
 
+VOID NewList(struct List *lh);
+
+/****************************************************************************/
+
 VOID
 NewList(struct List *lh)
 {

library/amiga_pools.c

@@ -0,0 +1,562 @@
+/*
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2021 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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/memory.h>
+#include <exec/alerts.h>
+#include <exec/lists.h>
+
+/****************************************************************************/
+
+#include <string.h>
+
+/****************************************************************************/
+
+#include <proto/exec.h>
+#include <clib/alib_protos.h>
+
+/****************************************************************************/
+
+#include "debug.h"
+
+/****************************************************************************/
+
+/* This signature identifies a large allocation on the list
+ * which contains both puddles and such large memory allocations.
+ */
+#define IS_LARGE_ALLOCATION 0
+
+/****************************************************************************/
+
+/* A private memory pool, as used by this implementation of the
+ * pool memory management functions.
+ */
+struct MemoryPool
+{
+	struct MinList	mp_PuddleMinList;		/* Both puddles and large allocations
+											 * are stored in this list. The puddles
+											 * are stored near the head of the list
+											 * and the large allocations are stored
+											 * near the tail of the list.
+											 */
+
+	ULONG			mp_MemoryFlags;			/* Memory attributes for allocation,
+		 									 * which may also include MEMF_CLEAR.
+											 */
+	ULONG			mp_PuddleSize;			/* Largest allocation which will fit
+											 * into a single puddle.
+											 */
+	ULONG			mp_PuddleSizeThreshold;	/* Allocations which exceed this size
+											 * will be allocated separately and not
+											 * make use of the puddles.
+											 */
+};
+
+/****************************************************************************/
+
+/* The management data structure associated with a separate large memory
+ * allocation. This is distinct from the puddles.
+ */
+struct LargeAllocation
+{
+	struct MinNode	la_MinNode;
+
+	ULONG			la_Signature;	/* Must be set to IS_LARGE_ALLOCATION */
+};
+
+/****************************************************************************/
+
+/* This combines a plain Node, a MemHeader and a LargeAllocation. They
+ * all overlap to some degree. The "puddle" is really a MemHeader from
+ * which the individual memory allocations are made.
+ *
+ * For reference, here is how the individual data structures look like.
+ * The 'struct MinNode' is used by the 'struct LargeAllocation' and you
+ * can see that the LargeAllocation.la_Signature overlaps the
+ * Node.ln_Type and Node.ln_Pri fields. The 'struct MemHeader' begins
+ * with a 'struct Node' and is initialized so that the Node.ln_Type and
+ * Node.ln_Pri are never zero. This is why LargeAllocation.la_Signature
+ * being zero is key to identifying large allocations which along with
+ * the MemHeaders share the same storage list.
+ *
+ * struct MinNode {
+ *     struct MinNode *  mln_Succ;
+ *     struct MinNode *  mln_Pred;
+ * };
+ *
+ * struct LargeAllocation {
+ *     struct MinNode    la_MinNode;
+ *     ULONG             la_Signature;
+ * };
+ *
+ * struct Node {
+ *     struct Node *     ln_Succ;
+ *     struct Node *     ln_Pred;
+ *     UBYTE             ln_Type;
+ *     BYTE              ln_Pri;
+ *     char *            ln_Name;
+ * };
+ *
+ * struct MemHeader {
+ *     struct Node       mh_Node;
+ *     UWORD             mh_Attributes;
+ *     struct MemChunk * mh_First;
+ *     APTR              mh_Lower;
+ *     APTR              mh_Upper;
+ *     ULONG             mh_Free;
+ * };
+ */
+union PuddleUnion
+{
+	struct Node				pu_Node;
+	struct MemHeader		pu_MemHeader;
+	struct LargeAllocation	pu_LargeAllocation;
+};
+
+/****************************************************************************/
+
+/* Our local Kickstart 1.x compatible implementation of FreeVec(). */
+static VOID free_vec(APTR allocation)
+{
+	if (allocation != NULL)
+	{
+		ULONG * mem = allocation;
+
+		FreeMem(&mem[-1], mem[-1]);
+	}
+}
+
+/****************************************************************************/
+
+/* Our local Kickstart 1.x compatible implementation of AllocVec(). */
+static APTR alloc_vec(ULONG size, ULONG flags)
+{
+	ULONG * mem = NULL;
+
+	if (size > 0)
+	{
+		/* Note: no overflow testing is being performed! */
+		size += sizeof(*mem);
+
+		mem = AllocMem(size, flags);
+		if (mem != NULL)
+			(*mem++) = size;
+	}
+
+	return mem;
+}
+
+/****************************************************************************/
+
+VOID LibDeletePool(APTR pool)
+{
+	/* If possible, use the operating system implementation
+	 * instead of this reimplementation.
+	 */
+#if ! defined(__amigaos4__)
+	if (SysBase->LibNode.lib_Version >= 39)
+	{
+		DeletePool(pool);
+		return;
+	}
+#endif /* ! defined(__amigaos4__) */
+
+	if (pool != NULL)
+	{
+		struct MemoryPool * mp = pool;
+		struct MinNode * mln_next;
+		struct MinNode * mln;
+
+		for (mln = mp->mp_PuddleMinList.mlh_Head ;
+		     mln->mln_Succ != NULL ;
+		     mln = mln_next)
+		{
+			mln_next = mln->mln_Succ;
+
+			free_vec(mln);
+		}
+
+		FreeMem(mp, sizeof(*mp));
+	}
+}
+
+/****************************************************************************/
+
+/* Note: puddle size should not be 0 or every single memory allocation
+ *       will result in an AllocVec() call.
+ */
+APTR LibCreatePool(
+	ULONG memory_flags,
+	ULONG puddle_size,
+	ULONG threshold_size)
+{
+	struct MemoryPool * mp = NULL;
+	APTR result = NULL;
+
+	/* If possible, use the operating system implementation
+	 * instead of this reimplementation.
+	 */
+#if ! defined(__amigaos4__)
+	if (SysBase->LibNode.lib_Version >= 39)
+	{
+		return CreatePool(memory_flags, puddle_size, threshold_size);
+	}
+#endif /* ! defined(__amigaos4__) */
+
+	/* The threshold size must be less than or equal
+	 * to the puddle size.
+	 */
+	if (threshold_size > puddle_size)
+		goto out;
+
+	/* Round up the puddle size to the size of a
+	 * memory block, as managed by Allocate().
+	 *
+	 * Note: no overflow checking is performed!
+	 */
+	puddle_size = (puddle_size + MEM_BLOCKMASK) & ~MEM_BLOCKMASK;
+
+	mp = AllocMem(sizeof(*mp), MEMF_ANY);
+	if (mp == NULL)
+		goto out;
+
+	NewList((struct List *)&mp->mp_PuddleMinList);
+
+	mp->mp_MemoryFlags			= memory_flags;
+	mp->mp_PuddleSize			= puddle_size;
+	mp->mp_PuddleSizeThreshold	= threshold_size;
+
+	result = mp;
+	mp = NULL;
+
+ out:
+
+	if (mp != NULL)
+		LibDeletePool(mp);
+
+	return result;
+}
+
+/****************************************************************************/
+
+/* Creates a new puddle from which memory allocations up to a certain size
+ * will be made. Returns the new puddle or NULL for failure.
+ *
+ * Note: No overflow testing is performed when allocating the puddle.
+ */
+static union PuddleUnion * create_new_puddle(struct MemoryPool * mp)
+{
+	ULONG memory_flags = mp->mp_MemoryFlags;
+	ULONG puddle_size = mp->mp_PuddleSize;
+	union PuddleUnion * result = NULL;
+	union PuddleUnion * pu;
+	struct MemHeader * mh;
+	struct MemChunk * mc;
+
+	/* The extra sizeof(APTR) is needed for aligning the
+	 * allocatable memory chunks within the memory header.
+	 *
+	 * Note: no overflow checking is performed!
+	 *
+	 * Also note that the original memory allocation flags are
+	 * being used, which may include MEMF_CLEAR. This means that
+	 * if MEMF_CLEAR is set, the initial allocation will be
+	 * cleared and then the individual puddle allocations made
+	 * through LibAllocPooled() will be cleared, too.
+	 */
+	pu = alloc_vec(sizeof(pu->pu_MemHeader) + sizeof(LONG) + puddle_size, memory_flags);
+	if (pu == NULL)
+		goto out;
+
+	mh = &pu->pu_MemHeader;
+
+	/* The first allocatable memory chunk follows the memory header
+	 * and must be aligned to a 64 bit address. This happens to be
+	 * the smallest allocatable memory unit (MEM_BLOCKSIZE == 8).
+	 */
+	mc = (struct MemChunk *)(((ULONG)&mh[1] + sizeof(LONG)) & ~MEM_BLOCKMASK);
+
+	mc->mc_Next		= NULL;
+	mc->mc_Bytes	= puddle_size;
+
+	/* Both ln_Type and ln_Pri must be non-zero! This allows them to
+	 * be identified as small puddles as compared to the large puddles
+	 * which have the la_Signature member set to IS_LARGE_ALLOCATION.
+	 * The 'struct Node' which introduces the 'struct MemHeader'
+	 * overlaps the 'struct LargeAllocation' in the Node.ln_Type/ln_Pri
+	 * fields. This is why the test for la_Signature == IS_LARGE_ALLOCATION
+	 * works.
+	 */
+	mh->mh_Node.ln_Type	= NT_MEMORY;
+	mh->mh_Node.ln_Pri	= mh->mh_Node.ln_Type;
+
+	mh->mh_Node.ln_Name	= (char *)&"\0Pool"[1]; /* The memory name must be an odd address. */
+	mh->mh_Attributes	= memory_flags;
+	mh->mh_First		= mc;
+	mh->mh_Lower		= mc;
+	mh->mh_Upper		= &((BYTE *)mc)[puddle_size];
+	mh->mh_Free			= puddle_size;
+
+	/* Puddles are always added at the head of the list. */
+	AddHead((struct List *)&mp->mp_PuddleMinList, &pu->pu_Node);
+
+	result = pu;
+
+ out:
+
+	return result;
+}
+
+/****************************************************************************/
+
+/* Note: No overflow testing is performed when making a large allocation. */
+APTR LibAllocPooled(APTR pool, ULONG mem_size)
+{
+	struct MemoryPool * mp;
+	union PuddleUnion * pu;
+	APTR result = NULL;
+
+	/* If possible, use the operating system implementation
+	 * instead of this reimplementation.
+	 */
+#if ! defined(__amigaos4__)
+	if (SysBase->LibNode.lib_Version >= 39)
+	{
+		return AllocPooled(pool, mem_size);
+	}
+#endif /* ! defined(__amigaos4__) */
+
+	/* No pool or no memory to allocate? */
+	if (pool == NULL || mem_size == 0)
+		goto out;
+
+	mp = pool;
+
+	/* Requested allocation size is still within the threshold limit? */
+	if (mem_size <= mp->mp_PuddleSizeThreshold)
+	{
+		/* Search for the first puddle from which memory may be
+		 * allocated. If no such puddle exists, it will have
+		 * to be created. Instead of puddles we might end up
+		 * finding a large memory allocation instead. This is
+		 * also an indication that a new puddle will have to
+		 * be created.
+		 */
+		pu = (union PuddleUnion *)mp->mp_PuddleMinList.mlh_Head;
+
+		while (TRUE)
+		{
+			/* We just reached the end of the puddle list or this
+			 * is a large allocation? We can't use an existing puddle to
+			 * allocate memory, so we have to make a new one.
+			 */
+			if (pu->pu_Node.ln_Succ == NULL || pu->pu_LargeAllocation.la_Signature == IS_LARGE_ALLOCATION)
+			{
+				/* We need to create another puddle, which is added to
+				 * the head of the list. Then the search for allocatable
+				 * memory in the puddle list will resume there.
+				 */
+				pu = create_new_puddle(mp);
+				if (pu == NULL)
+					goto out;
+			}
+
+			/* Try to allocate memory from this puddle.*/
+			result = Allocate(&pu->pu_MemHeader, mem_size);
+			if (result != NULL)
+			{
+				/* If the allocation needs to be zeroed, clear
+				 * the entire allocated memory which Allocate()
+				 * returned. It's been rounded up to be a
+				 * multiple of MEM_BLOCKSIZE.
+				 *
+				 * Note that the puddle will have been allocated
+				 * with MEMF_CLEAR already, which does not render
+				 * the following memset() call redundant, but
+				 * making the initial puddle allocation use
+				 * MEMF_CLEAR is definitely redundant.
+				 */
+				if ((mp->mp_MemoryFlags & MEMF_CLEAR) != 0)
+					memset(result, 0, (mem_size + MEM_BLOCKMASK) & ~MEM_BLOCKMASK);
+
+				/* And we're good. */
+				break;
+			}
+
+			/* Try the next puddle on the list. */
+			pu = (union PuddleUnion *)pu->pu_Node.ln_Succ;
+		}
+	}
+	/* No, we need to allocate this memory chunk separately. */
+	else
+	{
+		struct LargeAllocation * la;
+
+		/* Note: no overflow checking is performed! */
+		pu = alloc_vec(sizeof(pu->pu_LargeAllocation) + mem_size, mp->mp_MemoryFlags);
+		if (pu == NULL)
+			goto out;
+
+		/* This identifies it as a separate large allocation. */
+		pu->pu_LargeAllocation.la_Signature = IS_LARGE_ALLOCATION;
+
+		/* The separate large allocations are stored near the end
+		 * of the list. The puddles are always stored at the beginning
+		 * of the list.
+		 */
+		AddTail((struct List *)&mp->mp_PuddleMinList, &pu->pu_Node);
+
+		la = &pu->pu_LargeAllocation;
+
+		result = &la[1];
+	}
+	
+ out:
+
+	return result;
+}
+
+/****************************************************************************/
+
+/* Note: The size of the allocation to free must match
+ *       exactly or memory will remain unfreed. Furthermore,
+ *       the wrong allocation size may lead to general
+ *       memory corruption.
+ */
+VOID LibFreePooled(APTR pool, APTR memory, ULONG size)
+{
+	/* If possible, use the operating system implementation
+	 * instead of this reimplementation.
+	 */
+#if ! defined(__amigaos4__)
+	if (SysBase->LibNode.lib_Version >= 39)
+	{
+		FreePooled(pool, memory, size);
+		return;
+	}
+#endif /* ! defined(__amigaos4__) */
+
+	if (pool != NULL && memory != NULL)
+	{
+		struct MemoryPool * mp = pool;
+
+		/* This allocation was made from a puddle? */
+		if (size <= mp->mp_PuddleSizeThreshold)
+		{
+			union PuddleUnion * pu_deallocation = NULL;
+			union PuddleUnion * pu;
+
+			/* Try to find the puddle which contains this
+			 * allocation.
+			 */
+			for (pu = (union PuddleUnion *)mp->mp_PuddleMinList.mlh_Head ;
+			     pu->pu_Node.ln_Succ != NULL ;
+			     pu = (union PuddleUnion *)pu->pu_Node.ln_Succ)
+			{
+				/* Did we reach the end of the puddle list? Then
+				 * the given memory address and/or size may be
+				 * invalid...
+				 */
+				if (pu->pu_LargeAllocation.la_Signature == IS_LARGE_ALLOCATION)
+					break;
+
+				/* Is this the memory header which contains the
+				 * memory allocation?
+				 */
+				if (pu->pu_MemHeader.mh_Lower <= memory && memory < pu->pu_MemHeader.mh_Upper)
+				{
+					/* Free the allocation and remember where it
+					 * came from. We will make use of this below to
+					 * free now unused puddles.
+					 */
+					Deallocate(&pu->pu_MemHeader, memory, size);
+
+					pu_deallocation = pu;
+					break;
+				}
+			}
+
+			/* Did we succeed in releasing this memory allocation? */
+			if (pu_deallocation != NULL)
+			{
+				APTR upper;
+
+				/* The more frequently memory is freed from a
+				 * specific puddle, the easier it should become
+				 * to find it on the list again. We try to move it
+				 * closer to the beginning of the list unless it
+				 * is already at the head of the list.
+				 */
+				if (mp->mp_PuddleMinList.mlh_Head != (struct MinNode *)pu)
+				{
+					/* This puddle precedes the one from which we
+					 * just released an allocation.
+					 */
+					struct Node * pred = pu->pu_Node.ln_Pred;
+					struct Node * before;
+
+					/* Put this puddle at the head of the list? */
+					if (pred == (struct Node *)mp->mp_PuddleMinList.mlh_Head)
+						before = NULL;
+					/* No, insert it in front of its predecessor. */
+					else
+						before = pred->ln_Pred;
+
+					Remove(&pu->pu_Node);
+					Insert((struct List *)&mp->mp_PuddleMinList, &pu->pu_Node, before);
+				}
+
+				/* Has this puddle been emptied? */
+				upper = &((BYTE *)pu->pu_MemHeader.mh_Lower)[pu->pu_MemHeader.mh_Free];
+				if (upper == pu->pu_MemHeader.mh_Upper)
+				{
+					/* Then we may remove and free it now. */
+					Remove(&pu->pu_Node);
+
+					free_vec(pu);
+				}
+			}
+			/* Something's wrong :-( */
+			else
+			{
+				Alert(AN_BadFreeAddr);
+			}
+		}
+		/* No, this is a large allocation which must be freed as it is. */
+		else
+		{
+			struct LargeAllocation * la = &((struct LargeAllocation *)memory)[-1];
+
+			Remove((struct Node *)&la->la_MinNode);
+
+			free_vec(la);
+		}
+	}
+}

library/amiga_rangerand.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_rangerand.c,v 1.1.1.1 2004-07-26 16:30:21 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_remtof.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_remtof.c,v 1.1.1.1 2004-07-26 16:30:21 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_rexxvars.c

@@ -0,0 +1,741 @@
+/*
+ * $Id: amiga_rexxvars.c,v 1.19 2008-04-18 10:11:59 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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>
+
+/****************************************************************************/
+
+/* This is used by the stub function prototypes. The ARexx header files
+   do not define it, though. */
+struct Environment;
+
+/****************************************************************************/
+
+#define __NOLIBBASE__
+#include <proto/rexxsyslib.h>
+
+/****************************************************************************/
+
+static struct Library * RexxSysBase;
+
+/****************************************************************************/
+
+#if defined(__amigaos4__)
+static struct RexxSysIFace * IRexxSys;
+#endif /* __amigaos4__ */
+
+/****************************************************************************/
+
+BOOL CheckRexxMsg(struct RexxMsg *message);
+LONG GetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR *buffer_pointer);
+LONG SetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR value,LONG length);
+
+/****************************************************************************/
+
+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);
+}
+
+/****************************************************************************/
+
+#if defined(__amigaos4__)
+
+/****************************************************************************/
+
+#include <exec/emulation.h>
+
+/****************************************************************************/
+
+STATIC VOID
+_FreeSpace(struct Environment * env,APTR mem,LONG size)
+{
+	STATIC CONST UWORD code[] = { 0x4EAE,0xFF88,0x4E75 }; /* jsr -120(a6) ; rts */
+
+	EmulateTags(code,
+		ET_RegisterA0,env,
+		ET_RegisterA1,mem,
+		ET_RegisterD0,size,
+		ET_RegisterA6,RexxSysBase,
+	TAG_END);
+}
+
+STATIC APTR
+_GetSpace(struct Environment * env,LONG size)
+{
+	STATIC CONST UWORD code[] = { 0x4EAE,0xFF8E,0x4E75 }; /* jsr -114(a6) ; rts */
+	APTR result;
+
+	result = (APTR)EmulateTags(code,
+		ET_RegisterA0,env,
+		ET_RegisterD0,size,
+		ET_RegisterA6,RexxSysBase,
+	TAG_END);
+
+	return(result);
+}
+
+STATIC LONG
+_IsSymbol(STRPTR name,LONG * symbol_length_ptr)
+{
+	STATIC CONST UWORD code[] = { 0x4EAE,0xFF9A,0x2481,0x4E75 }; /* jsr -102(a6) ; move.l d1,(a2) ; rts */
+	LONG result;
+
+	result = (LONG)EmulateTags(code,
+		ET_RegisterA0,name,
+		ET_RegisterA2,symbol_length_ptr,
+		ET_RegisterA6,RexxSysBase,
+	TAG_END);
+
+	return(result);
+}
+
+STATIC VOID
+_CurrentEnv(struct RexxTask *task,struct Environment ** environment_ptr)
+{
+	STATIC CONST UWORD code[] = { 0x4EAE,0xFF94,0x2488,0x4E75 }; /* jsr -108(a6) ; move.l a0,(a2) ; rts */
+
+	EmulateTags(code,
+		ET_RegisterA0,task,
+		ET_RegisterA2,environment_ptr,
+		ET_RegisterA6,RexxSysBase,
+	TAG_END);
+}
+
+STATIC struct Node *
+_FetchValue(struct Environment * env,struct NexxStr * stem,struct NexxStr * compound,struct Node *symbol_table_node,LONG * is_literal_ptr,struct NexxStr ** value_ptr)
+{
+	STATIC CONST UWORD code[] = { 0x4EAE,0xFFB8,0x2488,0x2681,0x4E75 };	/* jsr -72(a6) ; move.l a0,(a2) ; move.l d1,(a3) ; rts */
+	struct Node * result;
+
+	result = (struct Node *)EmulateTags(code,
+		ET_RegisterA0,env,
+		ET_RegisterA1,stem,
+		ET_RegisterD0,compound,
+		ET_RegisterD1,symbol_table_node,
+		ET_RegisterA2,is_literal_ptr,
+		ET_RegisterA3,value_ptr,
+		ET_RegisterA6,RexxSysBase,
+	TAG_END);
+
+	return(result);
+}
+
+STATIC struct Node *
+_EnterSymbol(struct Environment * env,struct NexxStr * stem,struct NexxStr * compound)
+{
+	STATIC CONST UWORD code[] = { 0x4EAE,0xFFBE,0x4E75 }; /* jsr -66(a6) ; rts */
+	struct Node * result;
+
+	result = (struct Node *)EmulateTags(code,
+		ET_RegisterA0,env,
+		ET_RegisterA1,stem,
+		ET_RegisterD0,compound,
+		ET_RegisterA6,RexxSysBase,
+	TAG_END);
+
+	return(result);
+}
+
+STATIC VOID
+_SetValue(struct Environment * env,struct NexxStr * value,struct Node * symbol_table_node)
+{
+	STATIC CONST UWORD code[] = { 0x4EAE,0xFFAC,0x4E75 }; /* jsr -84(a6) ; rts */
+
+	EmulateTags(code,
+		ET_RegisterA0,env,
+		ET_RegisterA1,value,
+		ET_RegisterD0,symbol_table_node,
+		ET_RegisterA6,RexxSysBase,
+	TAG_END);
+}
+
+STATIC ULONG
+_StrcpyN(STRPTR destination,STRPTR source,LONG length)
+{
+	STATIC CONST UWORD code[] = { 0x4EAE,0xFEF2,0x4E75 }; /* jsr -270(a6) ; rts */
+	ULONG result;
+
+	result = (ULONG)EmulateTags(code,
+		ET_RegisterA0,destination,
+		ET_RegisterA1,source,
+		ET_RegisterD0,length,
+		ET_RegisterA6,RexxSysBase,
+	TAG_END);
+
+	return(result);
+}
+
+/****************************************************************************/
+
+#elif defined(__GNUC__) && !defined(__amigaos4__)
+
+/****************************************************************************/
+
+/* A selection of lovingly hand-crafted 68k stub functions which call
+   into rexxsyslib.library LVOs that still used to be documented back
+   in 1987. */
+
+/****************************************************************************/
+
+#if defined(SMALL_DATA)
+#define A4(x) "a4@(" #x ":W)"
+#elif defined(SMALL_DATA32)
+#define A4(x) "a4@(" #x ":L)"
+#else
+#define A4(x) #x
+#endif /* SMALL_DATA */
+
+/****************************************************************************/
+
+/* struct Environment * a0,APTR block a1,LONG d0 */
+asm("
+
+	.text
+	.even
+
+	.globl	__FreeSpace
+
+__FreeSpace:
+
+	moveal	sp@(4),a0
+	moveal	sp@(8),a1
+	movel	sp@(12),d0
+
+	movel	a6,sp@-
+	moveal	"A4(_RexxSysBase)",a6
+	jsr		a6@(-120)
+	moveal	sp@+,a6
+
+	rts
+
+");
+
+/****************************************************************************/
+
+/* struct Environment * a0,LONG d0 : APTR d0 */
+asm("
+
+	.text
+	.even
+
+	.globl	__GetSpace
+
+__GetSpace:
+
+	moveal	sp@(4),a0
+	movel	sp@(8),d0
+
+	movel	a6,sp@-
+	moveal	"A4(_RexxSysBase)",a6
+	jsr		a6@(-114)
+	moveal	sp@+,a6
+
+	rts
+
+");
+
+/****************************************************************************/
+
+/* STRPTR a0 : LONG d0, LONG d1 */
+asm("
+
+	.text
+	.even
+
+	.globl	__IsSymbol
+
+__IsSymbol:
+
+	moveal	sp@(4),a0
+
+	movel	a6,sp@-
+	moveal	"A4(_RexxSysBase)",a6
+	jsr		a6@(-102)
+	moveal	sp@+,a6
+
+	moveal	sp@(8),a1
+	movel	d1,a1@
+
+	rts
+
+");
+
+/****************************************************************************/
+
+/* struct RexxTask * a0 : struct Environment * a0 */
+asm("
+
+	.text
+	.even
+
+	.globl	__CurrentEnv
+
+__CurrentEnv:
+
+	moveal	sp@(4),a0
+
+	movel	a6,sp@-
+	moveal	"A4(_RexxSysBase)",a6
+	jsr		a6@(-108)
+	moveal	sp@+,a6
+
+	moveal	sp@(8),a1
+	movel	a0,a1@
+
+	rts
+
+");
+
+/****************************************************************************/
+
+/* struct Environment * a0,struct NexxStr * a1,struct NexxStr * d0,struct Node * d1 : struct NexxStr * a0, LONG d1 */
+asm("
+
+	.text
+	.even
+
+	.globl	__FetchValue
+
+__FetchValue:
+
+	moveal	sp@(4),a0
+	moveal	sp@(8),a1
+	movel	sp@(12),d0
+	movel	sp@(16),d1
+
+	movel	a6,sp@-
+	moveal	"A4(_RexxSysBase)",a6
+	jsr		a6@(-72)
+	moveal	sp@+,a6
+
+	moveal	sp@(20),a1
+	movel	a0,a1@
+	moveal	sp@(24),a1
+	movel	d1,a1@
+
+	rts
+
+");
+
+/****************************************************************************/
+
+/* struct Environment a0, struct NexxStr *a1, struct NexxStr * d0 : struct Node * d0 */
+asm("
+
+	.text
+	.even
+
+	.globl	__EnterSymbol
+
+__EnterSymbol:
+
+	moveal	sp@(4),a0
+	moveal	sp@(8),a1
+	movel	sp@(12),d0
+
+	movel	a6,sp@-
+	moveal	"A4(_RexxSysBase)",a6
+	jsr		a6@(-66)
+	moveal	sp@+,a6
+
+	rts
+
+");
+
+/****************************************************************************/
+
+/* struct Environment *a0, struct NexxStr *a1, struct Node * d0 */
+asm("
+
+	.text
+	.even
+
+	.globl	__SetValue
+
+__SetValue:
+
+	moveal	sp@(4),a0
+	moveal	sp@(8),a1
+	movel	sp@(12),d0
+
+	movel	a6,sp@-
+	moveal	"A4(_RexxSysBase)",a6
+	jsr		a6@(-84)
+	moveal	sp@+,a6
+
+	rts
+
+");
+
+/****************************************************************************/
+
+/* STRPTR a0,STRPTR a1,LONG d0 : ULONG d0 */
+asm("
+
+	.text
+	.even
+
+	.globl	__StrcpyN
+
+__StrcpyN:
+
+	moveal	sp@(4),a0
+	moveal	sp@(8),a1
+	movel	sp@(12),d0
+
+	movel	a6,sp@-
+	moveal	"A4(_RexxSysBase)",a6
+	jsr		a6@(-270)
+	moveal	sp@+,a6
+
+	rts
+
+");
+
+/****************************************************************************/
+
+/* Function prototypes for the 68k stubs. */
+extern VOID _FreeSpace(struct Environment * env,APTR mem,LONG size);
+extern APTR _GetSpace(struct Environment * env,LONG size);
+extern LONG _IsSymbol(STRPTR name,LONG * symbol_length_ptr);
+extern VOID _CurrentEnv(struct RexxTask *task,struct Environment ** environment_ptr);
+extern struct Node * _FetchValue(struct Environment * env,struct NexxStr * stem,struct NexxStr * compound,struct Node *symbol_table_node,LONG * is_literal_ptr,struct NexxStr ** value_ptr);
+extern struct Node * _EnterSymbol(struct Environment * env,struct NexxStr * stem,struct NexxStr * compound);
+extern VOID _SetValue(struct Environment * env,struct NexxStr * value,struct Node * symbol_table_node);
+extern ULONG _StrcpyN(STRPTR destination,STRPTR source,LONG length);
+
+/****************************************************************************/
+
+#endif /* __GNUC__ && !__amigaos4__ */
+
+/****************************************************************************/
+
+/* Releases a string structure, if it's not owned at the time. */
+STATIC VOID
+FreeString(struct Environment * environment,struct NexxStr * ns)
+{
+	/* Not currently owned? */
+	if(!(ns->ns_Flags & NSF_KEEP))
+		_FreeSpace(environment,ns,sizeof(*ns) + ns->ns_Length + 1);
+}
+
+/****************************************************************************/
+
+/* Allocates and initializes a string structure. */
+STATIC struct NexxStr *
+MakeString(struct Environment * environment,STRPTR value,LONG length)
+{
+	struct NexxStr * result = NULL;
+	struct NexxStr * ns;
+
+	/* Allocate memory for the NexxStr and the NUL-terminated string itself. */
+	ns = _GetSpace(environment,sizeof(*ns) + length + 1);
+	if(ns == NULL)
+		goto out;
+
+	/* Fill in the NexxStr structure, copy the string and remember the hash value for it. */
+	ns->ns_Ivalue	= 0;
+	ns->ns_Length	= length;
+	ns->ns_Flags	= NSF_STRING;
+	ns->ns_Hash		= _StrcpyN((STRPTR)ns->ns_Buff,value,length);
+
+	/* Copying the string did not NUL-terminate it. */
+	ns->ns_Buff[length] = '\0';
+
+	result = ns;
+
+out:
+
+	return(result);
+}
+
+/****************************************************************************/
+
+/* Classifies a symbol and returns the stem and compound parts. */
+STATIC LONG
+TypeString(STRPTR variable_name,struct Environment * environment,struct NexxStr ** compound_ptr,struct NexxStr ** stem_ptr)
+{
+	struct NexxStr * compound;
+	struct NexxStr * stem = NULL;
+	LONG error = ERR10_003; /* no memory available */
+	LONG stem_length;
+	LONG symbol_length;
+	STRPTR dot;
+
+	(*compound_ptr)	= NULL;
+	(*stem_ptr)		= NULL;
+
+	/* The 'compound' part is the entire variable name, including all dots and
+	   what's in between them. */
+	compound = MakeString(environment,variable_name,strlen(variable_name));
+	if(compound == NULL)
+		goto out;
+
+	/* Find the first dot in the variable name. Everything in front of it
+	   and including the dot constitutes the 'stem' part. If there is no dot
+	   in the name, then the 'compound' and 'stem' parts are identical. */
+	dot = memchr(compound->ns_Buff,'.',compound->ns_Length);
+	if(dot != NULL)
+		stem_length = ((char *)dot - (char *)compound->ns_Buff) + 1;
+	else
+		stem_length = compound->ns_Length;
+
+	/* Make a copy of the 'stem' part. */
+	stem = MakeString(environment,variable_name,stem_length);
+	if(stem == NULL)
+		goto out;
+
+	/* Figure out if this is a symbol after all. */
+	_IsSymbol((STRPTR)stem->ns_Buff,&symbol_length);
+
+	/* The entire name must match the stem part. */
+	if(symbol_length != stem->ns_Length)
+	{
+		error = ERR10_040; /* invalid variable name */
+		goto out;
+	}
+
+	(*compound_ptr)	= compound;
+	(*stem_ptr)		= stem;
+
+	error = 0;
+
+out:
+
+	if(error != 0)
+	{
+		if(compound != NULL)
+			FreeString(environment,compound);
+
+		if(stem != NULL)
+			FreeString(environment,stem);
+	}
+
+	return(error);
+}
+
+/****************************************************************************/
+
+/* Retrieves the value of a variable from the current storage environment. */
+LONG
+GetRexxVar(struct RexxMsg *context,STRPTR variable_name,STRPTR * return_value)
+{
+	struct Environment * environment;
+	struct NexxStr * ns;
+	struct NexxStr * compound_string;
+	struct NexxStr * stem_string;
+	LONG is_literal;
+	LONG error;
+
+	(*return_value) = NULL;
+
+	if(!CheckRexxMsg(context))
+	{
+		error = ERR10_010; /* invalid message packet */
+		goto out;
+	}
+
+	/* Find the current storage environment. */
+	_CurrentEnv(context->rm_TaskBlock,&environment);
+
+	/* Create the stem and component parts. */
+	error = TypeString(variable_name,environment,&compound_string,&stem_string);
+	if(error != 0)
+		goto out;
+
+	/* Look up the value. NOTE: _FetchValue() will free the two 'struct NexxStr *' provided. */
+	_FetchValue(environment,stem_string,compound_string,NULL,&is_literal,&ns);
+
+	/* If this is not a literal, return a pointer to the string. */
+	if(!is_literal)
+		(*return_value) = (STRPTR)ns->ns_Buff;
+
+	error = 0;
+
+out:
+
+	return(error);
+}
+
+/****************************************************************************/
+
+/* Assigns a value to a variable in the current storage environment. */
+LONG
+SetRexxVar(struct RexxMsg *context,STRPTR variable_name,STRPTR value,LONG length)
+{
+	struct Environment * environment;
+	struct NexxStr * compound_string;
+	struct NexxStr * stem_string;
+	struct Node * symbol_table_node;
+	struct NexxStr *value_string;
+	LONG error;
+
+	/* Make sure the value string is not too long */
+	if(length > 65535)
+	{
+		error = ERR10_009; /* symbol or string too long */
+		goto out;
+	}
+
+	if(!CheckRexxMsg(context))
+	{
+		error = ERR10_010; /* invalid message packet */
+		goto out;
+	}
+
+	/* Find the current storage environment. */
+	_CurrentEnv(context->rm_TaskBlock,&environment);
+
+	/* Create the stem and compound parts */
+	error = TypeString(variable_name,environment,&compound_string,&stem_string);
+	if(error != 0)
+		goto out;
+
+	/* Locate or create the symbol node. NOTE: _EnterSymbol() will put the two 'struct NexxStr *' into
+	   the symbol table. It is not nececessary to free them. */
+	symbol_table_node = _EnterSymbol(environment,stem_string,compound_string);
+	if(symbol_table_node == NULL)
+	{
+		error = ERR10_003; /* no memory available */
+		goto out;
+	}
+
+	/* Create the value string. */
+	value_string = MakeString(environment,value,length);
+	if(value_string == NULL)
+	{
+		error = ERR10_003; /* no memory available */
+		goto out;
+	}
+
+	/* Install the value string. */
+	_SetValue(environment,value_string,symbol_table_node);
+
+	error = 0;
+
+out:
+
+	return(error);
+}

library/amiga_setsuperattrs.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_setsuperattrs.c,v 1.1.1.1 2004-07-26 16:30:21 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/amiga_timedelay.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_timedelay.c,v 1.1.1.1 2004-07-26 16:30:21 obarthel Exp $
+ * $Id: amiga_timedelay.c,v 1.4 2006-04-05 06:43:56 obarthel Exp $
  *
  * :ts=4
  *
  * Portable ISO 'C' (1994) runtime library for the Amiga computer
- * Copyright (c) 2002-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -39,6 +39,19 @@
 
 /****************************************************************************/
 
+/* A quick workaround for the timeval/timerequest->TimeVal/TimeRequest
+   change in the recent OS4 header files. */
+
+#if defined(__NEW_TIMEVAL_DEFINITION_USED__)
+
+#define timeval		TimeVal
+#define tv_secs		Seconds
+#define tv_micro	Microseconds
+
+#endif /* __NEW_TIMEVAL_DEFINITION_USED__ */
+
+/****************************************************************************/
+
 LONG
 TimeDelay(LONG unit,ULONG seconds,ULONG micros)
 {

library/amiga_waitbeam.c

@@ -1,10 +1,10 @@
 /*
- * $Id: amiga_waitbeam.c,v 1.1.1.1 2004-07-26 16:30:22 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

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 -pR lib $dir_name
+cp -pR lib.threadsafe $dir_name
+cp -pR 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

@@ -1,10 +1,10 @@
 /*
- * $Id: c.lib_rev.c,v 1.1.1.1 2004-07-26 16:30:22 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

library/c.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	180
-#define DATE		"23.10.2004"
-#define VERS		"c.lib 1.180"
-#define VSTRING		"c.lib 1.180 (23.10.2004)\r\n"
-#define VERSTAG		"\0$VER: c.lib 1.180 (23.10.2004)"
+#define REVISION	217
+#define DATE		"10.7.2025"
+#define VERS		"c.lib 1.217"
+#define VSTRING		"c.lib 1.217 (10.7.2025)\r\n"
+#define VERSTAG		"\0$VER: c.lib 1.217 (10.7.2025)"

library/c.lib_rev.rev

@@ -1 +1 @@
-180
+217

library/complex_carg.c

@@ -1,10 +1,10 @@
 /*
- * $Id: stdlib_constructor_end.c,v 1.1.1.1 2004-07-26 16:31:52 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -31,14 +31,22 @@
  * POSSIBILITY OF SUCH DAMAGE.
  */
 
-#if defined(__amigaos4__)
+#ifndef _COMPLEX_HEADERS_H
+#include "complex_headers.h"
+#endif /* _COMPLEX_HEADERS_H */
 
 /****************************************************************************/
 
-/* End markers for the CTOR and DTOR list. */
-static volatile void (*__CTOR_LIST__[1]) (void) __attribute__((section(".ctors"))) = { (void *)0 };
-static volatile void (*__DTOR_LIST__[1]) (void) __attribute__((section(".dtors"))) = { (void *)0 };
+#if defined(COMPLEX_SUPPORT)
 
 /****************************************************************************/
 
-#endif /*__amigaos4__ */
+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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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/contrib/README

@@ -0,0 +1,3 @@
+This directory contains contributions which have not yet been integrated
+with the clib2 library build but which should be in the CVS repository
+both for safekeeping and for you to look at and adapt.

library/contrib/byteswap/byteswap.h

@@ -0,0 +1,183 @@
+
+#ifndef	__BYTESWAP_H
+#define	__BYTESWAP_H
+
+#include <sys/types.h>
+#include <stdint.h>
+
+#if defined(__GNUC__)
+#define	__CONST_FUNC	__attribute__((const))
+#else
+#define	__CONST_FUNC	/* Nothing */
+#endif
+
+/* Single value byteswap functions. */
+
+extern __CONST_FUNC uint16_t bswap16(uint16_t);
+extern __CONST_FUNC uint32_t bswap24(uint32_t);
+extern __CONST_FUNC uint32_t bswap32(uint32_t);
+
+#ifdef	INT64_MIN
+extern __CONST_FUNC uint64_t bswap64(uint64_t);
+#endif
+
+/* Block byteswap functions. The swab() function usually resides in unistd.h, so perhaps it should be moved there? */
+/* NOTE: Contrary to the standard swab(), this version returns the "to" pointer and the pointers are not restrict
+ * qualified - so swapping buffer-contents in-place is supported.
+ * Also, swab24(), swab32() and swab64() are non-standard functions.
+ */
+
+extern void *swab(void *from,void *to,ssize_t nbytes);
+extern void *swab24(void *from,void *to,ssize_t nbytes);	/* Same as swab(), but operates on 24-bit words instead. */
+extern void *swab32(void *from,void *to,ssize_t nbytes);	/* Same as swab(), but operates on 32-bit words instead. */
+extern void *swab64(void *from,void *to,ssize_t nbytes);	/* Same as swab(), but operates on 64-bit words instead. */
+
+#define	swab16(x)	swab(x)
+
+/*
+ * Optimized inline-versions for the single-value functions follow.
+ * Only GCC+PPC and GCC+m68k support for now.
+ */
+
+#if defined(__GNUC__)
+
+/* Select implementation. */
+
+#define	bswap16(x)	(__builtin_constant_p(x))?__const_swap16(x):__swap16(x)
+#define	bswap24(x)	(__builtin_constant_p(x))?__const_swap24(x):__swap24(x)
+#define	bswap32(x)	(__builtin_constant_p(x))?__const_swap32(x):__swap32(x)
+#define	bswap64(x)	(__builtin_constant_p(x))?__const_swap64(x):__swap64(x)
+
+/* Assembler implementations */
+
+#if defined(__PPC__)
+
+static __inline__  __CONST_FUNC uint16_t __swap16(uint16_t u16) {
+	uint_fast16_t result;
+	__asm__("\
+		rlwinm	%[result],%[u16],8,16,24\n\
+		rlwimi	%[result],%[u16],24,24,31\n\
+	":[result]"=&r"(result):[u16]"r"(u16));
+	return(result);
+}
+
+static __inline__ __CONST_FUNC uint32_t __swap24(uint32_t u32) {
+	uint_fast32_t result;
+	__asm__("\
+	rlwinm	%[result],%[u32],16,8,31\n\
+	rlwimi	%[result],%[u32],0,16,24\n\
+	":[result]"=&r"(result):[u32]"r"(u32));
+	return(result);
+}
+
+static __inline__ __CONST_FUNC uint32_t __swap32(uint32_t u32) {
+	uint_fast32_t result;
+	__asm__("\
+	rlwinm	%[result],%[u32],8,8,31\n\
+	rlwimi	%[result],%[u32],24,0,7\n\
+	rlwimi	%[result],%[u32],24,16,23\n\
+	":[result]"=&r"(result):[u32]"r"(u32));
+	return(result);
+}
+
+/*
+ * Note: __swap64() might perhaps be optimized a bit more by scheduling the
+ * instructions to alternate register-use, but this instead means there
+ * are two less registers free since "u64" and "result" may no longer overlap.
+ * Decisions, decisions....
+ */
+
+static __inline__ __CONST_FUNC uint64_t __swap64(uint64_t u64) {
+	uint_fast64_t result;
+	uint_fast32_t tmp;
+	__asm__("\
+	rlwinm	%[tmp],%[u64],8,8,31\n\
+	rlwimi	%[tmp],%[u64],24,0,7\n\
+	rlwimi	%[tmp],%[u64],24,16,23\n\
+	rlwinm	%[result],%L[u64],8,8,31\n\
+	rlwimi	%[result],%L[u64],24,0,7\n\
+	rlwimi	%[result],%L[u64],24,16,23\n\
+	or			%L[result],%[tmp],%[tmp]\n\
+	":[result]"=r"(result),[tmp]"=&r"(tmp):[u64]"r"(u64));
+	return(result);
+}
+
+#elif defined(__mc68020__)
+
+static __inline__  __CONST_FUNC uint16_t __swap16(uint16_t u16) {
+	__asm__("\
+		rol.w	#8,%[u16]\n\
+	":[u16]"+d"(u16)::"cc");
+	return(u16);
+}
+
+static __inline__ __CONST_FUNC uint32_t __swap24(uint32_t u32) {
+	__asm__("\
+		rol.w	#8,%[u32]\n\
+		swap	%[u32]\n\
+		rol.w	#8,%[u32]\n\
+		ror.l	#8,%[u32]\n\
+	":[u32]"+d"(u32)::"cc");
+	return(u32);
+}
+
+static __inline__ __CONST_FUNC uint32_t __swap32(uint32_t u32) {
+	__asm__("\
+		rol.w	#8,%[u32]\n\
+		swap	%[u32]\n\
+		rol.w	#8,%[u32]\n\
+	":[u32]"+d"(u32)::"cc");
+	return(u32);
+}
+
+static __inline__ __CONST_FUNC uint64_t __swap64(uint64_t u64) {
+	__asm__("\
+		rol.w	#8,%[u64]\n\
+		rol.w	#8,%L[u64]\n\
+		swap	%[u64]\n\
+		swap	%L[u64]\n\
+		rol.w	#8,%[u64]\n\
+		rol.w	#8,%L[u64]\n\
+		exg	%[u64],L%[u64]\n\
+	":[u64]"+d"(u64)::"cc");
+	return(u64);
+}
+
+#else
+/* Unknown or undefined architecture. Perhaps compiling with "-strict -ansi", but should not use this header then anyway. */
+#undef	bswap16
+#undef	bswap24
+#undef	bswap32
+#undef	bswap64
+#define	bswap16(x)	(__builtin_constant_p(x))?__const_swap16(x):bswap16(x)
+#define	bswap24(x)	(__builtin_constant_p(x))?__const_swap24(x):bswap24(x)
+#define	bswap32(x)	(__builtin_constant_p(x))?__const_swap32(x):bswap32(x)
+#define	bswap64(x)	(__builtin_constant_p(x))?__const_swap64(x):bswap64(x)
+#endif
+
+/* C implementations for constant values */
+
+static __inline__ uint16_t __const_swap16(uint16_t u16) {
+	return(u16>>8|u16<<8);
+}
+
+static __inline__ uint32_t __const_swap24(uint32_t u32) {
+	return(((u32&0xff)<<16)|((u32&0xff00))|((u32&0xff0000)>>16));
+}
+
+static __inline__ uint32_t __const_swap32(uint32_t u32) {
+	return(((u32&0xff)<<24)|((u32&0xff00)<<8)|((u32&0xff0000)>>8)|((u32&0xff000000)>>24));
+}
+
+static __inline__ uint64_t __const_swap64(uint64_t u64) {
+	return(((u64&0xffLL)<<56)|((u64&0xff00LL)<<40)|((u64&0xff0000LL)<<24)|((u64&0xff000000LL)<<8)|
+		((u64&0xff00000000LL)>>8)|((u64&0xff0000000000LL)>>24)|((u64&0xff000000000000LL)>>40)|((u64&0xff00000000000000LL)>>56));
+}
+
+#endif	/* __GNUC__ */
+
+
+#endif	/* __BYTESWAP_H */
+
+/* vi:set ts=3: */
+

library/contrib/byteswap/byteswap_bswap16.c

@@ -0,0 +1,28 @@
+
+#if defined(__PPC__) && defined(__GNUC__)
+
+asm("\
+	.text\n\
+	.align 2\n\
+	.globl bswap16\n\
+	.type	bswap16, @function\n\
+bswap16:\n\
+#	rlwinm	%r4,%r3,8,16,24\n\
+#	rlwimi	%r4,%r3,24,24,31\n\
+#	or			%r3,%r4,%r4\n\
+	rlwimi	%r3,%r3,16,8,15\n\
+	srwi		%r3,%r3,8\n\
+	blr\n\
+");
+
+#else
+
+#include <stdint.h>
+
+uint16_t bswap16(uint16_t u16)
+{
+return(u16>>8|u16<<8);
+}
+
+#endif
+

library/contrib/byteswap/byteswap_bswap24.c

@@ -0,0 +1,29 @@
+
+#if defined(__PPC__) && defined(__GNUC__)
+
+asm("	.text\n\
+	.align 2\n\
+	.globl bswap24\n\
+	.type	bswap24, @function\n\
+bswap32:\n\
+	rlwinm	%r4,%r3,16,8,31\n\
+	rlwimi	%r4,%r3,0,16,24\n\
+	or			%r3,%r4,%r4\n\
+	blr\n\
+");
+
+#else
+
+#include <stdint.h>
+
+uint32_t bswap24(uint32_t u32)
+{
+	return(
+		((u32&0xff)<<16)|
+		((u32&0xff00))|
+		((u32&0xff0000)>>16)
+	);
+}
+
+#endif
+

library/contrib/byteswap/byteswap_bswap32.c

@@ -0,0 +1,31 @@
+
+#if defined(__PPC__) && defined(__GNUC__)
+
+asm("	.text\n\
+	.align 2\n\
+	.globl bswap32\n\
+	.type	bswap32, @function\n\
+bswap32:\n\
+	rlwinm	%r4,%r3,8,8,31\n\
+	rlwimi	%r4,%r3,24,0,7\n\
+	rlwimi	%r4,%r3,24,16,23\n\
+	or			%r3,%r4,%r4\n\
+	blr\n\
+");
+
+#else
+
+#include <stdint.h>
+
+uint32_t bswap32(uint32_t u32)
+{
+	return(
+		((u32&0xff)<<24)|
+		((u32&0xff00)<<8)|
+		((u32&0xff0000)>>8)|
+		((u32&0xff000000)>>24)
+	);
+}
+
+#endif
+

library/contrib/byteswap/byteswap_bswap64.c

@@ -0,0 +1,48 @@
+
+#if defined(USE_64_BIT_INTS)
+
+#if defined(__PPC__) && defined(__GNUC__)
+
+asm("	.text\n\
+	.align 2\n\
+	.globl bswap64\n\
+	.type	bswap64, @function\n\
+bswap64:\n\
+	rlwinm	%r5,%r3,8,8,31\n\
+	rlwimi	%r5,%r3,24,0,7\n\
+	rlwimi	%r5,%r3,24,16,23\n\
+	rlwinm	%r3,%r4,8,8,31\n\
+	rlwimi	%r3,%r4,24,0,7\n\
+	rlwimi	%r3,%r4,24,16,23\n\
+	or			%r4,%r5,%r5\n\
+	blr\n\
+");
+
+#else
+
+#include <stdint.h>
+
+uint64_t bswap64(uint64_t u64)
+{
+union {
+	uint64_t ll;
+	uint32_t l[2];
+} v={.ll=u64};
+uint32_t tmp;
+tmp=v.l[0];
+v.l[0]=((v.l[1]&0xff)<<24)|
+		((v.l[1]&0xff00)<<8)|
+		((v.l[1]&0xff0000)>>8)|
+		((v.l[1]&0xff000000)>>24);
+v.l[1]=((tmp&0xff)<<24)|
+		((tmp&0xff00)<<8)|
+		((tmp&0xff0000)>>8)|
+		((tmp&0xff000000)>>24);
+return(v.ll);
+}
+
+#endif
+
+#endif
+
+

library/contrib/byteswap/byteswap_swab.c

@@ -0,0 +1,70 @@
+
+#if defined(__GNUC__) && defined(__PPC__)
+
+/* r3=from, r4=to, r5=len/count, r6=index, r7=load/store/temp */
+
+asm("\
+	.text\n\
+	.align 2\n\
+	.globl swab\n\
+	.type swab,@function\n\
+swab:\n\
+	dcbt		0,%r3\n\
+	srawi.	%r5,%r5,1\n\
+	bc			4,gt,.exit\n\
+	andi.		%r7,%r3,3		# Check if we start on an address evenly divisible by 4.\n\
+	li			%r6,0\n\
+	bc			4,gt,.preploop\n\
+	lhbrx		%r7,%r6,%r3		# Fix alignment if needed.\n\
+	sthx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,2\n\
+	subi		%r5,%r5,1\n\
+.preploop:\n\
+	andi.		%r7,%r5,1		# Check if even or odd number of 16-bit words.\n\
+	srawi		%r5,%r5,1		# Number of 32-bit words to half-swap.\n\
+	mtctr		%r5\n\
+	bc			12,gt,.oddloop	# Jump to loop for odd number of 16-bit words.\n\
+.loop:							# Loop is 'unrolled' by reading/writing 32-bit words.\n\
+	lwbrx		%r7,%r6,%r3\n\
+	rotlwi	%r7,%r7,16\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	bc			0,lt,.loop\n\
+.exit:\n\
+	or			%r3,%r4,%r4\n\
+	blr\n\
+.oddloop:\n\
+	lwbrx		%r7,%r6,%r3\n\
+	rotlwi	%r7,%r7,16\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	bc			0,lt,.oddloop\n\
+	sub		%r6,%r6,2\n\
+	lhbrx		%r7,%r6,%r3		# Fix last 16-bit word.\n\
+	sthx		%r7,%r6,%r4\n\
+	or			%r3,%r4,%r4\n\
+	blr\n\
+");
+
+#else
+
+#include <sys/types.h>
+#include <stdint.h>
+
+void *swab(void *from,void *to,ssize_t len)
+{
+int i;
+uint16_t u16,*u16in=from,*u16out=to;
+
+for(i=0;i<(len>>1);i++) {
+	u16=u16in[i];
+	u16out[i]=u16>>8|u16<<8;
+}
+
+return(u16out);
+}
+
+#endif
+
+
+

library/contrib/byteswap/byteswap_swab24.c

@@ -0,0 +1,91 @@
+
+#if defined(__GNUC__) && defined(__PPC__)
+
+/* r3=from, r4=to, r5=len/remaining, r6/r7=index & r7=temp, r8/r9/r10=read/write temp */
+
+asm("\
+	.text\n\
+	.align 2\n\
+	.globl swab24\n\
+	.type swab24,@function\n\
+swab24:\n\
+	dcbt		0,%r3\n\
+	li			%r7,3\n\
+	divwu		%r5,%r5,%r7\n\
+	andi.		%r7,%r5,3\n\
+	srawi.	%r5,%r5,2\n\
+	mtctr		%r5\n\
+	or			%r5,%r7,%r7\n\
+	li			%r6,0\n\
+	bc			4,gt,.postfix\n\
+.loop:\n\
+	lwbrx		%r8,%r6,%r3\n\
+	addi		%r7,%r6,4\n\
+	lwzx		%r9,%r7,%r3\n\
+	addi		%r7,%r6,8\n\
+	lwbrx		%r10,%r7,%r3\n\
+	rotlwi	%r8,%r8,8\n\
+	or			%r7,%r9,%r9\n\
+	rlwimi	%r9,%r8,16,8,15\n\
+	rlwimi	%r9,%r10,8,16,23\n\
+	rlwimi	%r8,%r7,16,24,31\n\
+	rotrwi	%r10,%r10,8\n\
+	rlwimi	%r10,%r7,16,0,7\n\
+	stwx		%r8,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	stwx		%r9,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	stwx		%r10,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	bc			0,lt,.loop\n\
+.postfix:	# Fix any remaining 24-bit words (number of remaining words in r5).\n\
+	or.		%r5,%r5,%r5\n\
+	bc			4,gt,.exit\n\
+	mtctr		%r5\n\
+	add		%r3,%r3,%r6\n\
+	add		%r6,%r4,%r6\n\
+	subi		%r3,%r3,1\n\
+.fixloop:\n\
+	lbzu		%r7,1(%r3)\n\
+	lbzu		%r8,1(%r3)\n\
+	lbzu		%r9,1(%r3)\n\
+	stb		%r7,2(%r6)\n\
+	stb		%r8,1(%r6)\n\
+	stb		%r9,0(%r6)\n\
+	addi		%r6,%r6,3\n\
+	bc			0,lt,.fixloop\n\
+.exit:\n\
+	or			%r3,%r4,%r4\n\
+	blr\n\
+");
+
+#else
+
+#include <sys/types.h>
+#include <stdint.h>
+
+/*
+ * Ugh, this is really very, very ineffiecient.
+ * (But simple, understandable and safe)
+ */
+
+void *swab24(void *from,void *to,ssize_t len)
+{
+uint8_t *src=from,B0,B1,B2,*dst=to;
+int i;
+
+for(i=0;i<len;i+=3) {
+	B0=src[i];
+	B1=src[i+1];
+	B2=src[i+2];
+	dst[i]=B2;
+	dst[i+1]=B1;
+	dst[i+2]=B0;
+}
+
+return(to);
+}
+
+#endif
+
+

library/contrib/byteswap/byteswap_swab32.c

@@ -0,0 +1,112 @@
+
+#if defined(__GNUC__) && defined(__PPC__)
+
+/* r3=from, r4=to, r5=len, r6=index, r7=load/store temp */
+
+asm("\
+	.text\n\
+	.align 2\n\
+	.globl swab32\n\
+	.type swab32,@function\n\
+swab32:\n\
+	srawi.	%r5,%r5,2\n\
+	li			%r6,0\n\
+	bc			4,gt,.exit\n\
+	mtctr		%r5\n\
+.loop:\n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	bc			0,lt,.loop\n\
+.exit:\n\
+	or			%r3,%r4,%r4\n\
+	blr\n\
+");
+
+/* r3=from, r4=to, r5=len/temp, r6=index, r7=load/store temp, r8=cache hint
+ *
+ * The unrolled, cache-hinting version appears to be about 4.5% faster, but
+ * in this case I opted for the smaller implementation. swab64() appears to
+ * gain more from cache-hinting - probably because of it using more registers
+ * for intermediate storage.
+asm("\
+	.text\n\
+	.align 2\n\
+	.globl swab32\n\
+	.type swab32,@function\n\
+swab32:\n\
+	dcbt		0,%r3\n\
+	andi.		%r8,%r5,31		# The number of bytes handled in '.pre'. Used for prefetch hint.\n\
+	srawi		%r5,%r5,2		# Convert bytes-># of 32-bit words\n\
+	andi.		%r7,%r5,7\n\
+	li			%r6,0\n\
+	bc			4,gt,.preploop\n\
+	mtctr		%r7\n\
+.pre:								# One 32-bit word at a time until we have (nLeft%8)==0 \n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	bc			0,lt,.pre\n\
+.preploop:\n\
+	srawi.	%r5,%r5,3		# Divide by 8 again to get number of loops.\n\
+	addi		%r8,%r8,32		# Start address for next loop (from r3).\n\
+	bc			4,gt,.exit\n\
+	mtctr		%r5\n\
+.loop:							# Loop unrolled 8 times = 32 bytes = 1 cache-line (except on the 970).\n\
+	dcbt		%r8,%r3			# Cache hint (prefetch) for the next loop\n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	lwbrx		%r7,%r6,%r3\n\
+	stwx		%r7,%r6,%r4\n\
+	addi		%r6,%r6,4\n\
+	addi		%r8,%r8,32		# Update cache-hint offset\n\
+	bc			0,lt,.loop\n\
+.exit:\n\
+	or			%r3,%r4,%r4\n\
+	blr\n\
+");
+*/
+
+#else
+
+#include <sys/types.h>
+#include <stdint.h>
+
+void *swab32(void *from,void *to,ssize_t len)
+{
+int i;
+uint32_t *u32in=from,*u32out=to,tmp;
+
+for(i=0;i<(len>>2);i++) {
+	tmp=u32in[i];
+	u32out[i]=((tmp&0xff)<<24)|
+		((tmp&0xff00)<<8)|
+		((tmp&0xff0000)>>8)|
+		((tmp&0xff000000)>>24);
+}
+
+return(to);
+}
+
+#endif
+
+

library/contrib/byteswap/byteswap_swab64.c

@@ -0,0 +1,101 @@
+
+#if defined(__GNUC__) && defined(__PPC__)
+
+/* r3=from, r4=to, r5=len/temp, r6/r7=index, r8/r9=load/store temp, r10=cache hint */
+
+/* This version is unrolled and uses cache-hinting. It appears to gain about 10%
+ * over a non-unrolled, non-hinting version.
+ */
+
+asm("\
+	.text\n\
+	.align 2\n\
+	.globl swab64\n\
+	.type swab64,@function\n\
+swab64:\n\
+	dcbt		0,%r3\n\
+	andi.		%r10,%r5,31		# The number of bytes handled in '.pre'. Used for prefetch hint.\n\
+	srawi		%r5,%r5,3		# Convert bytes-># of 64-bit words\n\
+	andi.		%r7,%r5,3\n\
+	li			%r6,0\n\
+	bc			4,gt,.preploop\n\
+	mtctr		%r7\n\
+.pre:								# One 64-bit word at a time until we have (nLeft%4)==0 \n\
+	lwbrx		%r8,%r6,%r3\n\
+	addi		%r7,%r6,4\n\
+	lwbrx		%r9,%r7,%r3\n\
+	stwx		%r8,%r7,%r4\n\
+	stwx		%r9,%r6,%r4\n\
+	addi		%r6,%r6,8\n\
+	bc			0,lt,.pre\n\
+.preploop:\n\
+	srawi.	%r5,%r5,2		# Divide by 4 again to get number of loops.\n\
+	addi		%r10,%r10,32	# Start address for next loop.\n\
+	bc			4,gt,.exit\n\
+	mtctr		%r5\n\
+.loop:							# Loop unrolled 4 times = 32 bytes = 1 cache-line (except on the 970).\n\
+	dcbt		%r10,%r3			# Cache hint (prefetch) for the next iteration\n\
+	lwbrx		%r8,%r6,%r3\n\
+	addi		%r7,%r6,4\n\
+	lwbrx		%r9,%r7,%r3\n\
+	stwx		%r8,%r7,%r4\n\
+	stwx		%r9,%r6,%r4\n\
+	addi		%r6,%r6,8\n\
+	lwbrx		%r8,%r6,%r3\n\
+	addi		%r7,%r6,4\n\
+	lwbrx		%r9,%r7,%r3\n\
+	stwx		%r8,%r7,%r4\n\
+	stwx		%r9,%r6,%r4\n\
+	addi		%r6,%r6,8\n\
+	lwbrx		%r8,%r6,%r3\n\
+	addi		%r7,%r6,4\n\
+	lwbrx		%r9,%r7,%r3\n\
+	stwx		%r8,%r7,%r4\n\
+	stwx		%r9,%r6,%r4\n\
+	addi		%r6,%r6,8\n\
+	lwbrx		%r8,%r6,%r3\n\
+	addi		%r7,%r6,4\n\
+	lwbrx		%r9,%r7,%r3\n\
+	stwx		%r8,%r7,%r4\n\
+	stwx		%r9,%r6,%r4\n\
+	addi		%r6,%r6,8\n\
+	addi		%r10,%r10,32		# Update cache-hint offset\n\
+	bc			0,lt,.loop\n\
+.exit:\n\
+	or			%r3,%r4,%r4\n\
+	blr\n\
+");
+
+#else
+
+#include <sys/types.h>
+#include <stdint.h>
+
+void *swab64(void *from,void *to,ssize_t len)
+{
+int i;
+struct {
+	uint32_t	u32[2];
+} *u64in=from,*u64out=to;
+uint32_t tmp1,tmp2;
+
+for(i=0;i<(len>>3);i++) {
+	tmp1=u64in[i].u32[0];
+	tmp2=u64in[i].u32[1];
+	u64out[i].u32[0]=((tmp2&0xff)<<24)|
+		((tmp2&0xff00)<<8)|
+		((tmp2&0xff0000)>>8)|
+		((tmp2&0xff000000)>>24);
+	u64out[i].u32[1]=((tmp1&0xff)<<24)|
+		((tmp1&0xff00)<<8)|
+		((tmp1&0xff0000)>>8)|
+		((tmp1&0xff000000)>>24);
+}
+
+return(to);
+}
+
+#endif
+
+/* vi:set ts=3: */
+

library/crt0.S

@@ -1,11 +1,39 @@
 //
-//	$Id: crt0.S,v 1.1.1.1 2004-07-26 16:30:22 obarthel Exp $
+// $Id: crt0.S,v 1.6 2005-10-11 09:28:29 obarthel Exp $
 //
-//	:ts=4
+// :ts=4
+//
+// Portable ISO 'C' (1994) runtime library for the Amiga computer
+// Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
+// 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.
 //
 
 	.text
 
+	.globl  main	/* This enforces linkage against the main() function */
 	.globl  _main
 	.globl  _start
 
@@ -18,5 +46,10 @@ _start:
 	addi r13, r13, _SDA_BASE_@l
 #endif
 
-	b	_main
+#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

@@ -1,132 +1,86 @@
-/* 
- * $Id: crtbegin.c,v 1.3 2004-09-29 16:54:54 obarthel Exp $
+/*
+ * crtbegin.c
  *
  * :ts=4
  *
- * Handles global constructors and destructors.
+ * Handles global constructors and destructors for the OS4 GCC build.
+ *
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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 <stdlib.h>
-#include <setjmp.h>
-
-/****************************************************************************/
-
 #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
+ * code can find the global constructor/destructor pointers.
+ *
+ * WARNING:
+ * This hack does not work correctly with GCC 5 and higher. The optimizer
+ * will see a one element array and act appropriately. The current workaround
+ * is to use -fno-aggressive-loop-optimizations when compiling this file.
  */
-static void (*__CTOR_LIST__[1]) (void) __attribute__((section(".ctors"))) = { (void *)-1 };
-static void (*__DTOR_LIST__[1]) (void) __attribute__((section(".dtors"))) = { (void *)-1 };
+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))) ));
 
 /****************************************************************************/
 
-static void
-_do_ctors(void)
-{
-	void (**pFuncPtr)(void);
-
-	/* Skip the first entry in the list (it's -1 anyway) */
-	pFuncPtr = __CTOR_LIST__ + 1;
-
-	/* Call all constructors in forward order */
-	while (*pFuncPtr != NULL)
-		(**pFuncPtr++)();
-}
-
-/****************************************************************************/
-
-static void
-_do_dtors(void)
-{
-	ULONG i = (ULONG)__DTOR_LIST__[0];
-	void (**pFuncPtr)(void);
-
-	if (i == ~0UL)
-	{
-		/* Find the end of the destructors list */
-		i = 1;
-
-		while (__DTOR_LIST__[i] != NULL)
-			i++;
-
-		/* We're at the NULL entry now. Go back by one */
-		i--;
-	}
-
-	/* Call all destructors in reverse order */
-	pFuncPtr = __DTOR_LIST__ + i;
-	while (i-- > 0)
-		(**pFuncPtr--)();
-}
-
-/****************************************************************************/
-
-#else
-
-/****************************************************************************/
-
-typedef void (*func_ptr)(void);
-
-/****************************************************************************/
-
-static void
-_do_ctors(void)
-{
-	extern func_ptr __CTOR_LIST__[];
-	ULONG nptrs = (ULONG)__CTOR_LIST__[0];
-	ULONG i;
-
-	for(i = nptrs ; i > 0 ; i--)
-		__CTOR_LIST__[i]();
-}
-
-/****************************************************************************/
-
-static void
-_do_dtors(void)
-{
-	extern func_ptr __DTOR_LIST__[];
-	extern jmp_buf __exit_jmp_buf;
-	ULONG nptrs = (ULONG)__DTOR_LIST__[0];
-	static ULONG i;
-
-	/* If one of the destructors drops into
-	 * exit(), processing will continue with
-	 * the next following destructor.
-	 */
-	(void)setjmp(__exit_jmp_buf);
-
-	while(i++ < nptrs)
-		__DTOR_LIST__[i]();
-}
-
-/****************************************************************************/
-
-#endif /*__amigaos4__ */
-
-/****************************************************************************/
-
-/* FIXME: Do we need to put these in .init/.fini sections? */
-
-//void _init(void) __attribute__((section(".init")));
-//void _fini(void) __attribute__((section(".fini")));
+void _init(void);
+void _fini(void);
 
 /****************************************************************************/
 
 void
 _init(void)
 {
-	_do_ctors();
+	extern void shared_obj_init(void);
+	int num_ctors,i;
+	int j;
+
+	/* The shared objects need to be set up before any local
+	   constructors are invoked. */
+	shared_obj_init();
+
+	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]();
 }
 
 /****************************************************************************/
@@ -134,5 +88,21 @@ _init(void)
 void
 _fini(void)
 {
-	_do_dtors();
+	extern void shared_obj_exit(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]();
+
+	/* The shared objects need to be cleaned up after all local
+	   destructors have been invoked. */
+	shared_obj_exit();
 }
+
+/****************************************************************************/
+
+#endif /*__amigaos4__ */

library/crtend.c

@@ -1,18 +1,47 @@
-/* 
- * $Id: crtend.c,v 1.1.1.1 2004-07-26 16:30:22 obarthel Exp $
+/*
+ * $Id: crtend.c,v 1.2 2005-03-09 21:07:25 obarthel Exp $
  *
  * :ts=4
  *
  * End markers for the CTOR and DTOR list.
+ *
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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(__amigaos4__)
 
 /****************************************************************************/
 
-static volatile void (*__CTOR_LIST__[1]) (void) __attribute__((used,section(".ctors"))) = { (void *)0 };
-static volatile void (*__DTOR_LIST__[1]) (void) __attribute__((used,section(".dtors"))) = { (void *)0 };
+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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_headers.h,v 1.1.1.1 2004-07-26 16:30:22 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -42,18 +42,25 @@
 
 /****************************************************************************/
 
-#ifndef _STDLIB_LOCALE_UTILITY_H
-#include "stdlib_locale_utility.h"
-#endif /* _STDLIB_LOCALE_UTILITY_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>
 
 /****************************************************************************/

library/ctype_isalnum.c

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_isalnum.c,v 1.1.1.1 2004-07-26 16:30:22 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -49,16 +49,26 @@ isalnum(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsAlNum(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_isalpha.c,v 1.1.1.1 2004-07-26 16:30:22 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,11 +47,19 @@ isalpha(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsAlpha(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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
 	{
@@ -59,5 +67,7 @@ isalpha(int c)
 		          ('A' <= c && c <= 'Z'));
 	}
 
+	__locale_unlock();
+
 	return(result);
 }

library/ctype_isascii.c

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_isascii.c,v 1.1.1.1 2004-07-26 16:30:22 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without

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-2015 by Olaf Barthel <obarthel (at) gmx.net>
+ * 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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_iscntrl.c,v 1.1.1.1 2004-07-26 16:30:23 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,16 +47,26 @@ iscntrl(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsCntrl(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_isdigit.c,v 1.1.1.1 2004-07-26 16:30:23 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,16 +47,26 @@ isdigit(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsDigit(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_isgraph.c,v 1.1.1.1 2004-07-26 16:30:23 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,16 +47,26 @@ isgraph(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsGraph(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_islower.c,v 1.1.1.1 2004-07-26 16:30:23 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,16 +47,26 @@ islower(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsLower(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_isprint.c,v 1.1.1.1 2004-07-26 16:30:23 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,16 +47,26 @@ isprint(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsPrint(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_ispunct.c,v 1.1.1.1 2004-07-26 16:30:23 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,11 +47,19 @@ ispunct(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsPunct(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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
 	{
@@ -61,5 +69,7 @@ ispunct(int c)
 		          ('{' <= c && c <= '~'));
 	}
 
+	__locale_unlock();
+
 	return(result);
 }

library/ctype_isspace.c

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_isspace.c,v 1.1.1.1 2004-07-26 16:30:23 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,11 +47,19 @@ isspace(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsSpace(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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
 	{
@@ -63,5 +71,7 @@ isspace(int c)
 		          c == ' ');
 	}
 
+	__locale_unlock();
+
 	return(result);
 }

library/ctype_isupper.c

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_isupper.c,v 1.1.1.1 2004-07-26 16:30:24 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,16 +47,26 @@ isupper(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsUpper(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_isxdigit.c,v 1.1.1.1 2004-07-26 16:30:24 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -47,11 +47,19 @@ isxdigit(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = IsXDigit(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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
 	{
@@ -60,5 +68,7 @@ isxdigit(int c)
 		          ('A' <= c && c <= 'F'));
 	}
 
+	__locale_unlock();
+
 	return(result);
 }

library/ctype_table.c

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_table.c,v 1.1.1.1 2004-07-26 16:30:24 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -36,22 +36,8 @@
 
 /****************************************************************************/
 
-/* The construction of this table is rather peculiar. The assumption is that
-   the table index from which a flag value could be fetched is in the range
-   -128..255 since the character to be tested could be a signed or unsigned
-   8 bit value. The table access pointer (declared below) therefore points
-   to the 128th byte of '__ctype_data[]'. */
-static const unsigned char __ctype_data[3 * 128] =
+const unsigned char __ctype_table[2 * 128] =
 {
-	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,
-
 	/*   0      */ __CTYPE_CONTROL,
 	/*   1      */ __CTYPE_CONTROL,
 	/*   2      */ __CTYPE_CONTROL,
@@ -190,7 +176,3 @@ static const unsigned char __ctype_data[3 * 128] =
 	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
 };
-
-/****************************************************************************/
-
-const unsigned char * const __ctype_table = &__ctype_data[128];

library/ctype_tolower.c

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_tolower.c,v 1.1.1.1 2004-07-26 16:30:25 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -43,16 +43,26 @@ tolower(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = ConvToLower(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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

@@ -1,10 +1,10 @@
 /*
- * $Id: ctype_toupper.c,v 1.1.1.1 2004-07-26 16:30:25 obarthel Exp $
+ * $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-2004 by Olaf Barthel <olsen@sourcery.han.de>
+ * Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -43,16 +43,26 @@ toupper(int c)
 	DECLARE_LOCALEBASE();
 	int result;
 
+	__locale_lock();
+
 	if(__locale_table[LC_CTYPE] != NULL)
 	{
 		assert( LocaleBase != NULL );
 
-		result = ConvToUpper(__locale_table[LC_CTYPE],(ULONG)c);
+		/* 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);
 }