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

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

CVSROOT/checkoutlist

@@ -1,13 +0,0 @@
-# The "checkoutlist" file is used to support additional version controlled
-# administrative files in $CVSROOT/CVSROOT, such as template files.
-#
-# The first entry on a line is a filename which will be checked out from
-# the corresponding RCS file in the $CVSROOT/CVSROOT directory.
-# The remainder of the line is an error message to use if the file cannot
-# be checked out.
-#
-# File format:
-#
-#	[<whitespace>]<filename>[<whitespace><error message>]<end-of-line>
-#
-# comment lines begin with '#'

CVSROOT/commitinfo

@@ -1,15 +0,0 @@
-# The "commitinfo" file is used to control pre-commit checks.
-# The filter on the right is invoked with the repository and a list 
-# of files to check.  A non-zero exit of the filter program will 
-# cause the commit to be aborted.
-#
-# The first entry on a line is a regular expression which is tested
-# against the directory that the change is being committed to, relative
-# to the $CVSROOT.  For the first match that is found, then the remainder
-# of the line is the name of the filter to run.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".

CVSROOT/config

@@ -1,21 +0,0 @@
-# Set this to "no" if pserver shouldn't check system users/passwords
-#SystemAuth=no
-
-# Put CVS lock files in this directory rather than directly in the repository.
-#LockDir=/var/lock/cvs
-
-# Set `TopLevelAdmin' to `yes' to create a CVS directory at the top
-# level of the new working directory when using the `cvs checkout'
-# command.
-#TopLevelAdmin=no
-
-# Set `LogHistory' to `all' or `TOEFWUPCGMAR' to log all transactions to the
-# history file, or a subset as needed (ie `TMAR' logs all write operations)
-#LogHistory=TOEFWUPCGMAR
-
-# Set `RereadLogAfterVerify' to `always' (the default) to allow the verifymsg
-# script to change the log message.  Set it to `stat' to force CVS to verify# that the file has changed before reading it (this can take up to an extra
-# second per directory being committed, so it is not recommended for large
-# repositories.  Set it to `never' (the previous CVS behavior) to prevent
-# verifymsg scripts from changing the log message.
-#RereadLogAfterVerify=always

CVSROOT/cvswrappers

@@ -1,19 +0,0 @@
-# This file affects handling of files based on their names.
-#
-# The -m option specifies whether CVS attempts to merge files.
-#
-# The -k option specifies keyword expansion (e.g. -kb for binary).
-#
-# Format of wrapper file ($CVSROOT/CVSROOT/cvswrappers or .cvswrappers)
-#
-#  wildcard	[option value][option value]...
-#
-#  where option is one of
-#  -f		from cvs filter		value: path to filter
-#  -t		to cvs filter		value: path to filter
-#  -m		update methodology	value: MERGE or COPY
-#  -k		expansion mode		value: b, o, kkv, &c
-#
-#  and value is a single-quote delimited value.
-# For example:
-#*.gif -k 'b'

CVSROOT/editinfo

@@ -1,21 +0,0 @@
-# The "editinfo" file is used to allow verification of logging
-# information.  It works best when a template (as specified in the
-# rcsinfo file) is provided for the logging procedure.  Given a
-# template with locations for, a bug-id number, a list of people who
-# reviewed the code before it can be checked in, and an external
-# process to catalog the differences that were code reviewed, the
-# following test can be applied to the code:
-#
-#   Making sure that the entered bug-id number is correct.
-#   Validating that the code that was reviewed is indeed the code being
-#       checked in (using the bug-id number or a seperate review
-#       number to identify this particular code set.).
-#
-# If any of the above test failed, then the commit would be aborted.
-#
-# Actions such as mailing a copy of the report to each reviewer are
-# better handled by an entry in the loginfo file.
-#
-# One thing that should be noted is the the ALL keyword is not
-# supported.  There can be only one entry that matches a given
-# repository.

CVSROOT/loginfo

@@ -1,27 +0,0 @@
-# The "loginfo" file controls where "cvs commit" log information
-# is sent.  The first entry on a line is a regular expression which must match
-# the directory that the change is being made to, relative to the
-# $CVSROOT.  If a match is found, then the remainder of the line is a filter
-# program that should expect log information on its standard input.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name ALL appears as a regular expression it is always used
-# in addition to the first matching regex or DEFAULT.
-#
-# You may specify a format string as part of the
-# filter.  The string is composed of a `%' followed
-# by a single format character, or followed by a set of format
-# characters surrounded by `{' and `}' as separators.  The format
-# characters are:
-#
-#   s = file name
-#   V = old version number (pre-checkin)
-#   v = new version number (post-checkin)
-#   t = tag or branch name
-#
-# For example:
-#DEFAULT (echo ""; id; echo %s; date; cat) >> $CVSROOT/CVSROOT/commitlog
-# or
-#DEFAULT (echo ""; id; echo %{sVv}; date; cat) >> $CVSROOT/CVSROOT/commitlog

CVSROOT/modules

@@ -1,26 +0,0 @@
-# Three different line formats are valid:
-#	key	-a    aliases...
-#	key [options] directory
-#	key [options] directory files...
-#
-# Where "options" are composed of:
-#	-i prog		Run "prog" on "cvs commit" from top-level of module.
-#	-o prog		Run "prog" on "cvs checkout" of module.
-#	-e prog		Run "prog" on "cvs export" of module.
-#	-t prog		Run "prog" on "cvs rtag" of module.
-#	-u prog		Run "prog" on "cvs update" of module.
-#	-d dir		Place module in directory "dir" instead of module name.
-#	-l		Top-level directory only -- do not recurse.
-#
-# NOTE:  If you change any of the "Run" options above, you'll have to
-# release and re-checkout any working directories of these modules.
-#
-# And "directory" is a path to a directory relative to $CVSROOT.
-#
-# The "-a" option specifies an alias.  An alias is interpreted as if
-# everything on the right of the "-a" had been typed on the command line.
-#
-# You can encode a module within a module by using the special '&'
-# character to interpose another module into the current module.  This
-# can be useful for creating a module that consists of many directories
-# spread out over the entire source repository.

CVSROOT/notify

@@ -1,12 +0,0 @@
-# The "notify" file controls where notifications from watches set by
-# "cvs watch add" or "cvs edit" are sent.  The first entry on a line is
-# a regular expression which is tested against the directory that the
-# change is being made to, relative to the $CVSROOT.  If it matches,
-# then the remainder of the line is a filter program that should contain
-# one occurrence of %s for the user to notify, and information on its
-# standard input.
-#
-# "ALL" or "DEFAULT" can be used in place of the regular expression.
-#
-# For example:
-#ALL mail -s "CVS notification" %s

CVSROOT/rcsinfo

@@ -1,13 +0,0 @@
-# The "rcsinfo" file is used to control templates with which the editor
-# is invoked on commit and import.
-#
-# The first entry on a line is a regular expression which is tested
-# against the directory that the change is being made to, relative to the
-# $CVSROOT.  For the first match that is found, then the remainder of the
-# line is the name of the file that contains the template.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".

CVSROOT/taginfo

@@ -1,20 +0,0 @@
-# The "taginfo" file is used to control pre-tag checks.
-# The filter on the right is invoked with the following arguments:
-#
-# $1 -- tagname
-# $2 -- operation "add" for tag, "mov" for tag -F, and "del" for tag -d
-# $3 -- repository
-# $4->  file revision [file revision ...]
-#
-# A non-zero exit of the filter program will cause the tag to be aborted.
-#
-# The first entry on a line is a regular expression which is tested
-# against the directory that the change is being committed to, relative
-# to the $CVSROOT.  For the first match that is found, then the remainder
-# of the line is the name of the filter to run.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".

CVSROOT/verifymsg

@@ -1,21 +0,0 @@
-# The "verifymsg" file is used to allow verification of logging
-# information.  It works best when a template (as specified in the
-# rcsinfo file) is provided for the logging procedure.  Given a
-# template with locations for, a bug-id number, a list of people who
-# reviewed the code before it can be checked in, and an external
-# process to catalog the differences that were code reviewed, the
-# following test can be applied to the code:
-#
-#   Making sure that the entered bug-id number is correct.
-#   Validating that the code that was reviewed is indeed the code being
-#       checked in (using the bug-id number or a seperate review
-#       number to identify this particular code set.).
-#
-# If any of the above test failed, then the commit would be aborted.
-#
-# Actions such as mailing a copy of the report to each reviewer are
-# better handled by an entry in the loginfo file.
-#
-# One thing that should be noted is the the ALL keyword is not
-# supported.  There can be only one entry that matches a given
-# repository.

documentation/BUILDING

@@ -1,19 +0,0 @@
-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 "netinclude" which has to sit in the same directory as
-the source code and the "include" 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.
-
-The SAS/C flavour (smakefile) 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 (startup.o) and doesn't tinker with A4 relative data
-addressing (and how this may be set up).
-
-There are two makefiles for GCC, each a different flavour. There is "GNUmakefile.68k",
-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 ("GNUmakefile.os4"). 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.

documentation/README

@@ -1,235 +0,0 @@
-An ISO 'C' (1994) compliant runtime library for the Amiga
-=========================================================
-
-1. 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.
-
-
-2. What does it do?
-
-Using "'C' - A reference manual" 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.
-
-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 environent". This set is not complete, however. It
-will have to grow even further to accomodate for Samba's needs, but this is
-a good start. I specifically added hooks for integrating socket I/O at a
-later point of time.
-
-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 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.
-
-Not unlike SAS/C, you can configure a minimum stack size the program is to
-use when it starts up. This is controlled via the '__stack_size' variable
-(see "stdlib_main.c").
-
-I added some amiga.lib and debug.lib functionality to the library, but
-don't count on it to be complete.
-
-
-3. 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.
-
-Practically all library routines are implemented in a sort of naïve
-fashion. That is, they contain virtually no optimizations whatsoever. This
-is particularly apparent in workhorses such as memset() or memmove(). But
-then, the issue is easy testability and Amiga platform portability.
-
-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 in
-in the first place.
-
-
-4. 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. 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@bayes.arc.nasa.gov).
-
-
-5. 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 code is currently plastered with assertions and debug code. It is
-therefore much larger than it ought to be and runs much slower than it
-ought to be. For example, the malloc() routine will set the contents of the
-memory allocated to a 'dirty' bit pattern which is likely to break software
-which makes assumptions about its contents. Likewise, the free() routine
-will trash the memory to deallocate with a different 'dirty' bit pattern to
-turn up reuse of memory after deallocation. All these debugging features
-can be disabled by defining the NDEBUG preprocessor symbol at compile time
-(see <assert.h>).
-
-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.
-
-If you are going to rebuild the library with SAS/C you will need to
-reassign INCLUDE: to point to the local 'include' directory or things won't
-work.
-
-
-6. 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 variable names are prefixed with two underscores, as
-in '__stdio_init()'.
-
-All routines attempt to do error checking on their parameters. They will
-either drop into an assert() or set an errno value and refuse to go any
-further. This cuts performance but should help to catch the simple bugs
-quite easily (NULL pointers).
-
-Just like any halfway sane Amiga 'C' runtime library, this one performs its
-^C checking in the I/O routines. Typically once upon entry and in every
-iteration of the loop there might be it will quickly poll the ^C signal and
-drop into raise(SIGINT) in case the signal is set. This is just about the
-safest method to solve the problem and should be much more robust than the
-ixemul approach of 'interrupt anywhere - crash anywhere' using the task
-switch/launch hooks to test for signals.
-
-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. However, your program can set a global variable '__unix_semantics'
-which will cause some routines to perform like their Unix counterparts.
-This is necessary for Samba to work but not a generally desirable feature.
-You have some Unix-like behaviour, but the environment itself is not
-completely Unix- or POSIX-compliant. And it shouldn't be. Don't make the
-mistake of trying to mold the environment into a POSIX emulation. It
-doesn't work; AmigaOS is not Unix.
-
-
-7. 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.
-
-
-8. 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 Open Group's Single Unix
-Specification at <http://www.opengroup.org/onlinepubs/007904975>.
-
-
-9. 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:
-
-====================================================
-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.
-====================================================
-
-
-
-10. 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:
-
-   olsen@sourcery.han.de

library/GNUmakefile.68k

@@ -1,5 +1,5 @@
 #
-# $Id: GNUmakefile.68k,v 1.19 2004-12-26 10:28:56 obarthel Exp $
+# $Id: GNUmakefile.68k,v 1.73 2005-10-20 07:19:15 obarthel Exp $
 #
 # :ts=8
 #
@@ -12,7 +12,7 @@ RANLIB = ranlib
 COPY = copy clone buf=0
 DELETE = delete all quiet
 MAKEDIR = makedir
-MAKE = make -f GNUmakefile.68k
+MAKE = $(MAKE_COMMAND) -f GNUmakefile.68k
 
 ##############################################################################
 
@@ -77,40 +77,50 @@ $(LIBAMIGA_OBJS)/%.o : %.c
 ##############################################################################
 
 ifeq (small_data_020,$(TYPE))
-CODE_TYPE := -fbaserel -DSMALL_DATA -m68020-60 -DM68020
+CODE_TYPE	:= -m68020-60
+CODE_FLAGS	:= -fbaserel -DSMALL_DATA -DM68020 -DUSE_64_BIT_INTS
 endif
 
 ifeq (small_data,$(TYPE))
-CODE_TYPE := -fbaserel -DSMALL_DATA -m68000
+CODE_TYPE	:= -m68000
+CODE_FLAGS	:= -fbaserel -DSMALL_DATA
 endif
 
 ifeq (small_data32,$(TYPE))
-CODE_TYPE := -fbaserel32 -DSMALL_DATA32 -m68020-60 -DM68020
+CODE_TYPE	:= -m68020-60
+CODE_FLAGS	:= -fbaserel32 -DSMALL_DATA32 -DM68020 -DUSE_64_BIT_INTS
 endif
 
 ifeq (large_data_020,$(TYPE))
-CODE_TYPE := -m68020-60 -DM68020
+CODE_TYPE	:= -m68020-60
+CODE_FLAGS	:= -DM68020 -DUSE_64_BIT_INTS
 endif
 
 ifeq (large_data,$(TYPE))
 CODE_TYPE	:= -m68000
+CODE_FLAGS	:=
 endif
 
 ##############################################################################
 
 WARNINGS = \
-	-Wall -W -Wshadow -Wpointer-arith -Wsign-compare -Wmissing-prototypes \
+	-Wall -W -Wpointer-arith -Wsign-compare -Wmissing-prototypes \
-	-Wundef -Wbad-function-cast -Wmissing-declarations -Wconversion
+	-Wundef -Wbad-function-cast -Wmissing-declarations -Wunused
+
+#	-Wconversion -Wshadow
 
 INCLUDES = -Iinclude -I. -Inetinclude
- OPTIONS = -DNDEBUG -fno-builtin
+#OPTIONS = -fno-builtin -fno-common -DDEBUG
-#OPTIONS = -D__MEM_DEBUG -fno-builtin
+ OPTIONS = -fno-builtin -fno-common -DNDEBUG
-#OPTIONS = -DDEBUG -D__MEM_DEBUG -DNO_INLINE_STDARG -fno-builtin
+#OPTIONS = -fno-builtin -fno-common -D__MEM_DEBUG
-#OPTIMIZE = -O -fomit-frame-pointer -fstrength-reduce -finline-functions
+#OPTIONS = -fno-builtin -fno-common -DDEBUG -D__MEM_DEBUG -DNO_INLINE_STDARG
+ OPTIMIZE = -O -fomit-frame-pointer -fstrength-reduce -finline-functions
 #OPTIMIZE = -O2 -fomit-frame-pointer
-#DEBUG = -g2
+#DEBUG = -g
 
-CFLAGS = $(WARNINGS) $(OPTIMIZE) $(DEBUG) $(OPTIONS) $(CODE_TYPE) $(INCLUDES)
+CFLAGS = \
+	$(WARNINGS) $(OPTIMIZE) $(DEBUG) $(OPTIONS) \
+	$(CODE_FLAGS) $(CODE_TYPE) $(INCLUDES)
 
 ##############################################################################
 
@@ -119,6 +129,7 @@ C_LIB = \
 	ctype_isalnum.o \
 	ctype_isalpha.o \
 	ctype_isascii.o \
+	ctype_isblank.o \
 	ctype_iscntrl.o \
 	ctype_isdigit.o \
 	ctype_isgraph.o \
@@ -128,27 +139,34 @@ C_LIB = \
 	ctype_isspace.o \
 	ctype_isupper.o \
 	ctype_isxdigit.o \
+	ctype_table.o \
 	ctype_tolower.o \
 	ctype_toupper.o \
-	ctype_table.o \
 	dirent_closedir.o \
-	dirent_data.o \
-	dirent_rewinddir.o \
 	dirent_opendir.o \
 	dirent_readdir.o \
+	dirent_rewinddir.o \
 	errno_data.o \
 	fcntl_close.o \
 	fcntl_creat.o \
 	fcntl_fcntl.o \
+	fcntl_get_default_file.o \
+	fcntl_lock.o \
 	fcntl_lseek.o \
 	fcntl_open.o \
 	fcntl_read.o \
 	fcntl_write.o \
-	fcntl_get_default_file.o \
+	ftw_ftw.o \
+	ftw_nftw.o \
+	inttypes_imaxdiv.o \
+	inttypes_imaxabs.o \
+	inttypes_strtoimax.o \
+	inttypes_strtoumax.o \
 	libgen_basename.o \
 	libgen_dirname.o \
 	locale_init_exit.o \
 	locale_localeconv.o \
+	locale_open_locale.o \
 	locale_setlocale.o \
 	mount_convertinfo.o \
 	mount_fstatfs.o \
@@ -166,7 +184,6 @@ C_LIB = \
 	signal_sigsetmask.o \
 	stat_chmod.o \
 	stat_convertfileinfo.o \
-	stat_data.o \
 	stat_fchmod.o \
 	stat_fstat.o \
 	stat_lstat.o \
@@ -176,21 +193,23 @@ C_LIB = \
 	stat_umask.o \
 	stdio_asprintf.o \
 	stdio_clearerr.o \
-	stdio_data.o \
 	stdio_dropiobreadbuffer.o \
 	stdio_duplicate_fd.o \
+	stdio_examine_fh.o \
 	stdio_fclose.o \
 	stdio_fdhookentry.o \
 	stdio_feof.o \
 	stdio_ferror.o \
 	stdio_fflush.o \
-	stdio_flush.o \
 	stdio_fgetc.o \
 	stdio_fgetpos.o \
 	stdio_fgets.o \
 	stdio_filliobreadbuffer.o \
 	stdio_findvacantfdentry.o \
 	stdio_findvacantiobentry.o \
+	stdio_flockfile.o \
+	stdio_flush.o \
+	stdio_flush_all_files.o \
 	stdio_flushiobwritebuffer.o \
 	stdio_fopen.o \
 	stdio_fprintf.o \
@@ -200,29 +219,42 @@ C_LIB = \
 	stdio_freopen.o \
 	stdio_fscanf.o \
 	stdio_fseek.o \
+	stdio_fseeko.o \
 	stdio_fsetpos.o \
 	stdio_ftell.o \
+	stdio_ftello.o \
+	stdio_ftrylockfile.o \
+	stdio_funlockfile.o \
 	stdio_fwrite.o \
 	stdio_getc.o \
+	stdio_getc_unlocked.o \
 	stdio_getchar.o \
-	stdio_get_file_descriptor.o \
+	stdio_getchar_unlocked.o \
 	stdio_gets.o \
+	stdio_get_file_descriptor.o \
 	stdio_growfdtable.o \
 	stdio_growiobtable.o \
+	stdio_grow_file.o \
 	stdio_initializefd.o \
 	stdio_initializeiob.o \
 	stdio_init_exit.o \
+	stdio_file_init.o \
 	stdio_iobhookentry.o \
+	stdio_lock.o \
 	stdio_locksemaphorename.o \
 	stdio_nostdio.o \
 	stdio_openiob.o \
+	stdio_parent_of_fh.o \
 	stdio_perror.o \
 	stdio_popen.o \
 	stdio_printf.o \
 	stdio_putc.o \
+	stdio_putc_unlocked.o \
 	stdio_putchar.o \
+	stdio_putchar_unlocked.o \
 	stdio_puts.o \
 	stdio_remove.o \
+	stdio_remove_fd_alias.o \
 	stdio_rename.o \
 	stdio_rewind.o \
 	stdio_scanf.o \
@@ -236,6 +268,7 @@ C_LIB = \
 	stdio_tmpnam.o \
 	stdio_translateioerror.o \
 	stdio_ungetc.o \
+	stdio_unlockfile.o \
 	stdio_vasprintf.o \
 	stdio_vasprintf_hook_entry.o \
 	stdio_vfprintf.o \
@@ -245,6 +278,8 @@ C_LIB = \
 	stdio_vsnprintf_hook_entry.o \
 	stdio_vsprintf.o \
 	stdio_vsprintf_hook_entry.o \
+	stdio_vsscanf.o \
+	stdio_vscanf.o \
 	stdlib_abort.o \
 	stdlib_abs.o \
 	stdlib_alloca.o \
@@ -252,13 +287,12 @@ C_LIB = \
 	stdlib_atexit.o \
 	stdlib_atoi.o \
 	stdlib_atol.o \
+	stdlib_atoll.o \
 	stdlib_bsearch.o \
 	stdlib_calloc.o \
 	stdlib_checkdetach.o \
 	stdlib_constructor.o \
 	stdlib_constructor_begin.o \
-	stdlib_constructor_end.o \
-	stdlib_data.o \
 	stdlib_default_pool_size.o \
 	stdlib_default_puddle_size.o \
 	stdlib_destructor.o \
@@ -273,11 +307,16 @@ C_LIB = \
 	stdlib_getdefstacksize.o \
 	stdlib_getenv.o \
 	stdlib_getsp.o \
-	stdlib_init_exit.o \
+	stdlib_get_errno.o \
 	stdlib_isresident.o \
 	stdlib_labs.o \
+	stdlib_llabs.o \
 	stdlib_ldiv.o \
+	stdlib_lldiv.o \
+	stdlib_lib_main.o \
+	stdlib_lib_startup.o \
 	stdlib_machine_test.o \
+	stdlib_main.o \
 	stdlib_malloc.o \
 	stdlib_math.o \
 	stdlib_mkdtemp.o \
@@ -290,17 +329,20 @@ C_LIB = \
 	stdlib_oslibversion.o \
 	stdlib_priority.o \
 	stdlib_process_name.o \
+	stdlib_program_name.o \
 	stdlib_putenv.o \
 	stdlib_qsort.o \
 	stdlib_rand.o \
+	stdlib_rand_r.o \
 	stdlib_realloc.o \
 	stdlib_red_black.o \
+	stdlib_semaphore.o \
 	stdlib_setenv.o \
 	stdlib_setjmp.o \
+	stdlib_set_errno.o \
 	stdlib_set_process_window.o \
 	stdlib_shell_escape.o \
 	stdlib_showerror.o \
-	stdlib_socket.o \
 	stdlib_srand.o \
 	stdlib_stackargbytes.o \
 	stdlib_stackcheck.o \
@@ -308,22 +350,23 @@ C_LIB = \
 	stdlib_stacksafezone.o \
 	stdlib_stacksize.o \
 	stdlib_stack_usage.o \
-	stdlib_startup.o \
+	stdlib_arg.o \
+	stdlib_stdio_window_spec.o \
 	stdlib_strtol.o \
-	stdlib_strtoul.o \
 	stdlib_strtoll.o \
+	stdlib_strtoul.o \
 	stdlib_strtoull.o \
 	stdlib_swapstack.o \
 	stdlib_sysbase.o \
 	stdlib_system.o \
 	stdlib_termination_message.o \
 	stdlib_threshold.o \
+	stdlib_utilitybase.o \
 	stdlib_udivsi3.o \
 	stdlib_udivsi4.o \
 	stdlib_umodsi3.o \
 	stdlib_unsetenv.o \
-	stdlib_wildcard_expand.o \
+	strings_ffs.o \
-	stdlib_stdio_window_spec.o \
 	strings_strcasecmp.o \
 	strings_strncasecmp.o \
 	string_bcmp.o \
@@ -361,9 +404,12 @@ C_LIB = \
 	time_asctime_r.o \
 	time_clock.o \
 	time_converttime.o \
+	time_convert_datestamp.o \
+	time_convert_time.o \
 	time_ctime.o \
 	time_ctime_r.o \
 	time_data.o \
+	time_days_per_date.o \
 	time_gettimeofday.o \
 	time_gmtime.o \
 	time_gmtime_r.o \
@@ -373,6 +419,9 @@ C_LIB = \
 	time_numbertostring.o \
 	time_strftime.o \
 	time_time.o \
+	time_weekday.o \
+	uio_readv.o \
+	uio_writev.o \
 	unistd_access.o \
 	unistd_chdir.o \
 	unistd_chdir_exit.o \
@@ -381,8 +430,10 @@ C_LIB = \
 	unistd_dup.o \
 	unistd_dup2.o \
 	unistd_fchown.o \
+	unistd_fdatasync.o \
 	unistd_fdopen.o \
 	unistd_fileno.o \
+	unistd_fsync.o \
 	unistd_ftruncate.o \
 	unistd_getcwd.o \
 	unistd_getopt.o \
@@ -395,17 +446,18 @@ C_LIB = \
 	unistd_realpath.o \
 	unistd_sleep.o \
 	unistd_symlink.o \
+	unistd_sync_fd.o \
 	unistd_timer.o \
 	unistd_time_delay.o \
 	unistd_truncate.o \
 	unistd_unlink.o \
 	unistd_usleep.o \
-	utime_utime.o
+	utime_utime.o \
+	utsname_uname.o
 
 UNIX_LIB = \
 	unix.lib_rev.o \
 	dirent_closedir.o \
-	dirent_data.o \
 	dirent_rewinddir.o \
 	dirent_opendir.o \
 	dirent_readdir.o \
@@ -413,6 +465,7 @@ UNIX_LIB = \
 	fcntl_fcntl.o \
 	fcntl_open.o \
 	fcntl_get_default_file.o \
+	getopt_getopt_long.o \
 	mount_convertinfo.o \
 	mount_statfs.o \
 	stat_chmod.o \
@@ -421,19 +474,38 @@ UNIX_LIB = \
 	stat_mkdir.o \
 	stat_rmdir.o \
 	stat_stat.o \
+	stdio_ctermid.o \
 	stdio_fdhookentry.o \
 	stdio_fflush.o \
 	stdio_fopen.o \
 	stdio_init_exit.o \
+	stdio_file_init.o \
 	stdio_locksemaphorename.o \
 	stdio_openiob.o \
 	stdio_popen.o \
+	stdio_record_locking.o \
 	stdio_remove.o \
 	stdio_rename.o \
+	stdlib_arg.o \
+	stdlib_main.o \
 	stdlib_mkdtemp.o \
 	stdlib_mkstemp.o \
 	stdlib_mktemp.o \
 	stdlib_system.o \
+	termios_cfgetispeed.o \
+	termios_cfgetospeed.o \
+	termios_cfmakeraw.o \
+	termios_cfsetispeed.o \
+	termios_cfsetospeed.o \
+	termios_console_fdhookentry.o \
+	termios_tcdrain.o \
+	termios_tcflow.o \
+	termios_tcflush.o \
+	termios_tcgetattr.o \
+	termios_tcsendbreak.o \
+	termios_tcsetattr.o \
+	uio_readv.o \
+	uio_writev.o \
 	unistd_access.o \
 	unistd_chdir.o \
 	unistd_chdir_exit.o \
@@ -450,44 +522,142 @@ UNIX_LIB = \
 	unistd_translaterel.o \
 	unistd_translateu2a.o \
 	unistd_truncate.o \
+	unistd_ttyname.o \
+	unistd_ttyname_r.o \
 	unistd_unix_path_semantics.o \
 	unistd_unlink.o \
 	unistd_wildcard_expand.o \
 	utime_utime.o
 
 MATH_LIB = \
+	complex_carg.o \
+	complex_cargf.o \
+	complex_cargl.o \
+	complex_cimag.o \
+	complex_cimagf.o \
+	complex_cimagl.o \
+	complex_conj.o \
+	complex_conjf.o \
+	complex_conjl.o \
+	complex_creal.o \
+	complex_crealf.o \
+	complex_creall.o \
 	math_acos.o \
+	math_acosf.o \
+	math_acosh.o \
+	math_acoshf.o \
 	math_asin.o \
+	math_asinf.o \
+	math_asinh.o \
+	math_asinhf.o \
 	math_atan.o \
 	math_atan2.o \
+	math_atan2f.o \
+	math_atanf.o \
+	math_atanh.o \
+	math_atanhf.o \
+	math_cbrt.o \
+	math_cbrtf.o \
 	math_ceil.o \
+	math_ceilf.o \
+	math_copysign.o \
+	math_copysignf.o \
 	math_cos.o \
+	math_cosf.o \
 	math_cosh.o \
-	math_data.o \
+	math_coshf.o \
+	math_erf.o \
+	math_erfc.o \
+	math_erfcf.o \
+	math_erff.o \
 	math_exp.o \
+	math_exp2.o \
+	math_exp2f.o \
+	math_expf.o \
+	math_expm1.o \
+	math_expm1f.o \
 	math_fabs.o \
+	math_fabsf.o \
 	math_floor.o \
+	math_floorf.o \
+	math_fma.o \
+	math_fmaf.o \
 	math_fmod.o \
+	math_fmodf.o \
+	math_fpclassify.o \
 	math_frexp.o \
+	math_frexpf.o \
+	math_huge_val.o \
+	math_huge_valf.o \
 	math_hypot.o \
+	math_hypotf.o \
+	math_ilogb.o \
+	math_ilogbf.o \
+	math_inf.o \
+	math_inff.o \
 	math_init_exit.o \
-	math_isinf.o \
+	math_isfinite.o \
-	math_isnan.o \
+	math_isunordered.o \
+	math_kernel_cosf.o \
+	math_kernel_sinf.o \
+	math_kernel_tanf.o \
 	math_ldexp.o \
+	math_ldexpf.o \
+	math_lgamma.o \
+	math_lgammaf.o \
 	math_log.o \
 	math_log10.o \
+	math_log10f.o \
+	math_log1p.o \
+	math_log1pf.o \
+	math_log2.o \
+	math_log2f.o \
 	math_logb.o \
+	math_logbf.o \
+	math_logf.o \
+	math_lrint.o \
+	math_lrintf.o \
+	math_lround.o \
+	math_lroundf.o \
 	math_modf.o \
+	math_modff.o \
+	math_nan.o \
+	math_nanf.o \
+	math_nearbyint.o \
+	math_nearbyintf.o \
+	math_nextafter.o \
+	math_nextafterf.o \
 	math_pow.o \
+	math_powf.o \
+	math_remainder.o \
+	math_remainderf.o \
+	math_remquo.o \
+	math_remquof.o \
+	math_rem_pio2f.o \
 	math_rint.o \
 	math_rintf.o \
+	math_round.o \
+	math_roundf.o \
+	math_scalbn.o \
+	math_scalbnf.o \
+	math_signbit.o \
 	math_sin.o \
+	math_sinf.o \
 	math_sinh.o \
+	math_sinhf.o \
 	math_sqrt.o \
+	math_sqrtf.o \
 	math_tan.o \
+	math_tanf.o \
 	math_tanh.o \
+	math_tanhf.o \
+	math_tgamma.o \
+	math_tgammaf.o \
+	math_trunc.o \
+	math_truncf.o \
 	stdio_asprintf.o \
 	stdio_flush.o \
+	stdio_flush_all_files.o \
 	stdio_fprintf.o \
 	stdio_fscanf.o \
 	stdio_printf.o \
@@ -498,12 +668,14 @@ MATH_LIB = \
 	stdio_vasprintf.o \
 	stdio_vfprintf.o \
 	stdio_vfscanf.o \
+	stdio_vsscanf.o \
+	stdio_vscanf.o \
 	stdio_vprintf.o \
 	stdio_vsnprintf.o \
 	stdio_vsprintf.o \
 	stdlib_atof.o \
-	stdlib_machine_test.o \
 	stdlib_strtod.o \
+	stdlib_strtof.o \
 	time_difftime.o
 
 MATH_LIB_881 = \
@@ -556,8 +728,8 @@ NET_LIB = \
 	net.lib_rev.o \
 	socket_accept.o \
 	socket_bind.o \
+	socket_check_daemon.o \
 	socket_connect.o \
-	socket_data.o \
 	socket_gethostbyaddr.o \
 	socket_gethostbyname.o \
 	socket_gethostid.o \
@@ -583,6 +755,7 @@ NET_LIB = \
 	socket_ioctl.o \
 	socket_isdaemon.o \
 	socket_listen.o \
+	socket_obtain_daemon.o \
 	socket_recv.o \
 	socket_recvfrom.o \
 	socket_recvmsg.o \
@@ -595,6 +768,8 @@ NET_LIB = \
 	socket_socket.o \
 	socket_hook_entry.o \
 	socket_hstrerror.o \
+	socket_get_h_errno.o \
+	socket_set_h_errno.o \
 	stat_umask.o \
 	usergroup_crypt.o \
 	usergroup_data.o \
@@ -624,7 +799,8 @@ NET_LIB = \
 	usergroup_setregid.o \
 	usergroup_setreuid.o \
 	usergroup_setsid.o \
-	usergroup_setuid.o
+	usergroup_setuid.o \
+	utsname_uname.o
 
 DEBUG_LIB = \
 	debug.lib_rev.o \
@@ -714,7 +890,7 @@ LIBS_020 := $(LIBM881_OBJS)/libm881.a $(LIBS_68K)
 ##############################################################################
 
 # The 881 math library won't build in plain 68k mode
-ifneq (,$(findstring 68020,$(CODE_TYPE)))
+ifneq (,$(findstring 68020,$(CODE_FLAGS)))
 LIBS := $(LIBS_020)
 else
 LIBS := $(LIBS_68K)
@@ -722,7 +898,7 @@ endif
 
 ##############################################################################
 
-STARTUPS := nrcrt0.o nbcrt0.o nr32crt0.o nb32crt0.o ncrt0.o mainnb.o mainb.o mainb32.o
+STARTUPS := nrcrt0.o nbcrt0.o nr32crt0.o nb32crt0.o ncrt0.o
 
 ##############################################################################
 
@@ -732,9 +908,6 @@ all: \
 	lib/ncrt0.o \
 	lib/n32bcrt0.o \
 	lib/n32rcrt0.o \
-	lib/mainnb.o \
-	lib/mainb.o \
-	lib/mainb32.o \
 	lib/libm020/libm.a \
 	lib/libm.a \
 	lib/libb/libm.a \
@@ -811,47 +984,38 @@ lib/libm020 : lib
 
 lib/libb/libm020/libm.a: lib lib/libb/libm020
 	$(MAKE) TYPE=small_data_020 kitchen_sink
-	$(COPY) $(foreach file,$(LIBS_020),small_data_020/$(file)) lib/libb/libm020
+	@$(COPY) $(foreach file,$(LIBS_020),small_data_020/$(file)) lib/libb/libm020
 
 lib/libb/libm.a: lib lib/libb
 	$(MAKE) TYPE=small_data kitchen_sink
-	$(COPY) $(foreach file,$(LIBS_68K),small_data/$(file)) lib/libb
+	@$(COPY) $(foreach file,$(LIBS_68K),small_data/$(file)) lib/libb
 
 lib/libb32/libm020/libm.a: lib lib/libb32 lib/libb32/libm020
 	$(MAKE) TYPE=small_data32 kitchen_sink
-	$(COPY) $(foreach file,$(LIBS_020),small_data32/$(file)) lib/libb32/libm020
+	@$(COPY) $(foreach file,$(LIBS_020),small_data32/$(file)) lib/libb32/libm020
 
 lib/libm020/libm.a: lib lib/libm020
 	$(MAKE) TYPE=large_data_020 kitchen_sink
-	$(COPY) $(foreach file,$(LIBS_020),large_data_020/$(file)) lib/libm020
+	@$(COPY) $(foreach file,$(LIBS_020),large_data_020/$(file)) lib/libm020
 
 lib/libm.a: lib
 	$(MAKE) TYPE=large_data kitchen_sink
-	$(COPY) $(foreach file,$(LIBS_68K),large_data/$(file)) lib
+	@$(COPY) $(foreach file,$(LIBS_68K),large_data/$(file)) lib
 
 lib/nrcrt0.o : lib nrcrt0.o
-	$(COPY) nrcrt0.o lib
+	@$(COPY) nrcrt0.o lib
 
 lib/nbcrt0.o : lib nbcrt0.o
-	$(COPY) nbcrt0.o lib
+	@$(COPY) nbcrt0.o lib
 
 lib/ncrt0.o : lib ncrt0.o
-	$(COPY) ncrt0.o lib
+	@$(COPY) ncrt0.o lib
 
 lib/n32bcrt0.o : lib nb32crt0.o
-	$(COPY) nb32crt0.o lib
+	@$(COPY) nb32crt0.o lib
 
 lib/n32rcrt0.o : lib nr32crt0.o
-	$(COPY) nr32crt0.o lib
+	@$(COPY) nr32crt0.o lib
-
-lib/mainnb.o : lib mainnb.o
-	$(COPY) mainnb.o lib
-
-lib/mainb.o : lib mainb.o
-	$(COPY) mainb.o lib
-
-lib/mainb32.o : lib mainb32.o
-	$(COPY) mainb32.o lib
 
 ##############################################################################
 
@@ -887,21 +1051,46 @@ $(LIBAMIGA_OBJS)/amiga.lib_rev.o : amiga.lib_rev.c amiga.lib_rev.h
 
 $(LIBC_OBJS)/stdlib_stacksize.o : stdlib_stacksize.c stdlib_gcc_help.h
 
+$(LIBC_OBJS)/stdlib_getdefstacksize.o : stdlib_getdefstacksize.c stdlib_gcc_help.h
+
 $(LIBC_OBJS)/stdlib_shell_escape.o : stdlib_shell_escape.c stdlib_gcc_help.h
 
-$(LIBC_OBJS)/stdlib_alloca.o : stdlib_alloca.c stdlib_mem_debug.h
+$(LIBC_OBJS)/stdlib_alloca.o : stdlib_alloca.c stdlib_memory.h
 
-$(LIBC_OBJS)/stdlib_calloc.o : stdlib_calloc.c stdlib_mem_debug.h
+$(LIBC_OBJS)/stdlib_calloc.o : stdlib_calloc.c stdlib_memory.h
 
-$(LIBC_OBJS)/stdlib_free.o : stdlib_free.c stdlib_mem_debug.h
+$(LIBC_OBJS)/stdlib_free.o : stdlib_free.c stdlib_memory.h
 
-$(LIBC_OBJS)/stdlib_init_exit.o : stdlib_init_exit.c stdlib_mem_debug.h
+$(LIBC_OBJS)/stdlib_malloc.o : stdlib_malloc.c stdlib_memory.h
 
-$(LIBC_OBJS)/stdlib_malloc.o : stdlib_malloc.c stdlib_mem_debug.h
+$(LIBC_OBJS)/stdlib_realloc.o : stdlib_realloc.c stdlib_memory.h
 
-$(LIBC_OBJS)/stdlib_realloc.o : stdlib_realloc.c stdlib_mem_debug.h
+$(LIBC_OBJS)/stdlib_red_black.o : stdlib_red_black.c stdlib_memory.h
 
-$(LIBC_OBJS)/stdlib_red_black.o : stdlib_red_black.c stdlib_mem_debug.h
+##############################################################################
+
+# The -fbaserel32 option requires the CPU type to be 68020, too.
+ifneq (,$(findstring fbaserel32,$(CODE_FLAGS)))
+LOCAL_CODE_FLAGS := $(CODE_FLAGS) $(CODE_TYPE)
+else
+LOCAL_CODE_FLAGS := $(CODE_FLAGS)
+endif
+
+$(LIBM881_OBJS)/math_init_exit.o : math_init_exit.c
+	@echo "Compiling $< [$(TYPE):m881]"
+	@$(CC) -o $(LIBM881_OBJS)/math_init_exit.o -c $(WARNINGS) $(OPTIMIZE) $(DEBUG) $(OPTIONS) $(LOCAL_CODE_FLAGS) -DM68881_FLOATING_POINT_SUPPORT $(INCLUDES) $<
+
+$(LIBC_OBJS)/stdlib_machine_test.o : stdlib_machine_test.c
+	@echo "Compiling $< [$(TYPE):c]"
+	@$(CC) -o $(LIBC_OBJS)/stdlib_machine_test.o -c $(WARNINGS) $(OPTIMIZE) $(DEBUG) $(OPTIONS) $(LOCAL_CODE_FLAGS) $(INCLUDES) $<
+
+$(LIBC_OBJS)/stdlib_showerror.o : stdlib_showerror.c
+	@echo "Compiling $< [$(TYPE):c]"
+	@$(CC) -o $(LIBC_OBJS)/stdlib_showerror.o -c $(WARNINGS) $(OPTIMIZE) $(DEBUG) $(OPTIONS) $(LOCAL_CODE_FLAGS) $(INCLUDES) $<
+
+$(LIBC_OBJS)/stdlib_main.o : stdlib_main.c
+	@echo "Compiling $< [$(TYPE):c]"
+	@$(CC) -o $(LIBC_OBJS)/stdlib_main.o -c $(WARNINGS) $(OPTIMIZE) $(DEBUG) $(OPTIONS) $(LOCAL_CODE_FLAGS) $(INCLUDES) stdlib_main.c
 
 ##############################################################################
 
@@ -1032,25 +1221,49 @@ $(LIBAMIGA_OBJS)/libamiga.a : $(LIBAMIGA_OBJS) $(foreach file,$(AMIGA_LIB),$(LIB
 ##############################################################################
 
 nrcrt0.o : nrcrt0.S
-	$(CC) -traditional -o $@ -c nrcrt0.S
+	@echo "Assembling $< [resident]"
+	@$(CC) -traditional -o $@ -c nrcrt0.S
 
 nr32crt0.o : nrcrt0.S
-	$(CC) -traditional -m68020 -DSMALL_DATA32 -o $@ -c nrcrt0.S
+	@echo "Assembling $< [resident32]"
+	@$(CC) -traditional -m68020 -DSMALL_DATA32 -o $@ -c nrcrt0.S
 
 nbcrt0.o : ncrt0.S
-	$(CC) -traditional -DSMALL_DATA -o $@ -c ncrt0.S
+	@echo "Assembling $< [small_data]"
+	@$(CC) -traditional -DSMALL_DATA -o $@ -c ncrt0.S
 
 nb32crt0.o : ncrt0.S
-	$(CC) -traditional -m68020 -DSMALL_DATA32 -o $@ -c ncrt0.S
+	@echo "Assembling $< [small_data32]"
+	@$(CC) -traditional -m68020 -DSMALL_DATA32 -o $@ -c ncrt0.S
 
 ncrt0.o : ncrt0.S
-	$(CC) -traditional -o $@ -c ncrt0.S
+	@echo "Assembling $< [large_data]"
+	@$(CC) -traditional -o $@ -c ncrt0.S
 
-mainb32.o : stdlib_main.c
+##############################################################################
-	$(CC) -o mainb32.o -c $(WARNINGS) $(OPTIMIZE) $(DEBUG) $(OPTIONS) $(INCLUDES) -fbaserel32 -DSMALL_DATA32 -m68020-60 -DM68020 stdlib_main.c
 
-mainb.o : stdlib_main.c
+CONSTRUCTOR_FILES = \
-	$(CC) -o mainb.o -c $(WARNINGS) $(OPTIMIZE) $(DEBUG) $(OPTIONS) $(INCLUDES) -fbaserel -DSMALL_DATA -m68000 stdlib_main.c
+	amiga_rexxvars.c \
+	dirent_closedir.c \
+	locale_init_exit.c \
+	math_init_exit.c \
+	sas_profile.c \
+	socket_init_exit.c \
+	stdio_file_init.c \
+	stdio_init_exit.c \
+	stdlib_alloca.c \
+	stdlib_arg.c \
+	stdlib_malloc.c \
+	stdlib_program_name.c \
+	stdlib_setenv.c \
+	stdlib_stackcheck.c \
+	stdlib_stackextension.c \
+	time_clock.c \
+	unistd_chdir_exit.c \
+	unistd_init_exit.c \
+	unistd_timer.c \
+	unistd_wildcard_expand.c \
+	usergroup_init_exit.c
 
-mainnb.o : stdlib_main.c
+touch_constructor_files:
-	$(CC) -o mainnb.o -c $(WARNINGS) $(OPTIMIZE) $(DEBUG) $(OPTIONS) $(INCLUDES) -m68000 stdlib_main.c
+	touch $(CONSTRUCTOR_FILES)

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.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	185
+#define REVISION	197
-#define DATE		"2.1.2005"
+#define DATE		"4.11.2005"
-#define VERS		"amiga.lib 1.185"
+#define VERS		"amiga.lib 1.197"
-#define VSTRING		"amiga.lib 1.185 (2.1.2005)\r\n"
+#define VSTRING		"amiga.lib 1.197 (4.11.2005)\r\n"
-#define VERSTAG		"\0$VER: amiga.lib 1.185 (2.1.2005)"
+#define VERSTAG		"\0$VER: amiga.lib 1.197 (4.11.2005)"

library/amiga.lib_rev.rev

@@ -1 +1 @@
-185
+197

library/amiga_acrypt.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_acrypt.c,v 1.2 2005-01-02 09:07:06 obarthel Exp $
+ * $Id: amiga_acrypt.c,v 1.3 2005-05-30 14:01:20 obarthel Exp $
  *
  * :ts=4
  *
@@ -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"

library/amiga_addtof.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_addtof.c,v 1.2 2005-01-02 09:07:06 obarthel Exp $
+ * $Id: amiga_addtof.c,v 1.3 2005-02-25 10:14:20 obarthel Exp $
  *
  * :ts=4
  *
@@ -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_argarrayinit.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_argarrayinit.c,v 1.2 2005-01-02 09:07:06 obarthel Exp $
+ * $Id: amiga_argarrayinit.c,v 1.3 2005-10-27 08:58:41 obarthel Exp $
  *
  * :ts=4
  *
@@ -61,11 +61,11 @@ 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 */

library/amiga_createtask.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_createtask.c,v 1.3 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: amiga_createtask.c,v 1.4 2005-03-18 12:38:21 obarthel Exp $
  *
  * :ts=4
  *
@@ -46,6 +46,12 @@
 
 /****************************************************************************/
 
+#ifndef _STDLIB_PROFILE_H
+#include "stdlib_profile.h"
+#endif /* _STDLIB_PROFILE_H */
+
+/****************************************************************************/
+
 #include "macros.h"
 #include "debug.h"
 

library/amiga_dotimer.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_dotimer.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: amiga_dotimer.c,v 1.6 2005-09-03 14:45:14 obarthel Exp $
  *
  * :ts=4
  *
@@ -44,6 +44,12 @@
 
 /****************************************************************************/
 
+#ifndef _STDLIB_PROFILE_H
+#include "stdlib_profile.h"
+#endif /* _STDLIB_PROFILE_H */
+
+/****************************************************************************/
+
 #include "macros.h"
 #include "debug.h"
 
@@ -58,6 +64,23 @@ DoTimer(struct timeval *tv,LONG unit,LONG command)
 
 	assert( tv != NULL );
 
+	#if defined(__amigaos4__)
+	{
+		mp = AllocSysObjectTags(ASOT_PORT,
+			ASOPORT_Action,			PA_SIGNAL,
+			ASOPORT_AllocSig,	FALSE,
+			ASOPORT_Signal,			SIGB_SINGLE,
+			ASOPORT_Target,			FindTask(NULL),
+		TAG_DONE);
+
+		if(mp == NULL)
+		{
+			error = IOERR_OPENFAIL;
+			goto out;
+		}
+	}
+	#else
+	{
 		mp = AllocVec(sizeof(*mp),MEMF_ANY|MEMF_PUBLIC|MEMF_CLEAR);
 		if(mp == NULL)
 		{
@@ -69,7 +92,10 @@ DoTimer(struct timeval *tv,LONG unit,LONG command)
 		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)
@@ -88,7 +114,7 @@ DoTimer(struct timeval *tv,LONG unit,LONG command)
 
 	PROFILE_OFF();
 
-	SetSignal(0,SIGF_SINGLE);
+	SetSignal(0,(1UL << mp->mp_SigBit));
 
 	error = DoIO((struct IORequest *)tr);
 
@@ -107,7 +133,16 @@ DoTimer(struct timeval *tv,LONG unit,LONG command)
 		DeleteIORequest((struct IORequest *)tr);
 	}
 
+	#if defined(__amigaos4__)
+	{
+		if(mp != NULL)
+			FreeSysObject(ASOT_PORT,mp);
+	}
+	#else
+	{
 		FreeVec(mp);
+	}
+	#endif /* __amigaos4__ */
 
 	return(error);
 }

library/amiga_invertstring.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_invertstring.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: amiga_invertstring.c,v 1.3 2005-02-25 10:14:20 obarthel Exp $
  *
  * :ts=4
  *
@@ -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_rexxvars.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_rexxvars.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: amiga_rexxvars.c,v 1.6 2005-03-18 12:38:21 obarthel Exp $
  *
  * :ts=4
  *
@@ -34,12 +34,20 @@
 /* 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>
 
@@ -50,17 +58,17 @@
 
 /****************************************************************************/
 
-STATIC struct Library * RexxSysBase;
+static struct Library * RexxSysBase;
 
 /****************************************************************************/
 
 #if defined(__amigaos4__)
-STATIC struct RexxSysIFace * IRexxSys;
+static struct RexxSysIFace * IRexxSys;
 #endif /* __amigaos4__ */
 
 /****************************************************************************/
 
-CLIB_CONSTRUCTOR(__rexxvars_init)
+CLIB_CONSTRUCTOR(rexxvars_init)
 {
 	ENTER();
 
@@ -80,12 +88,14 @@ CLIB_CONSTRUCTOR(__rexxvars_init)
 	}
 	#endif /* __amigaos4__ */
 
+	LEAVE();
+
 	CONSTRUCTOR_SUCCEED();
 }
 
 /****************************************************************************/
 
-CLIB_DESTRUCTOR(__rexxvars_exit)
+CLIB_DESTRUCTOR(rexxvars_exit)
 {
 	ENTER();
 
@@ -144,7 +154,7 @@ CheckRexxMsg(struct RexxMsg *message)
 LONG
 GetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR *buffer_pointer)
 {
-	STATIC TEXT buffer[256];
+	static UBYTE buffer[256];
 	LONG result;
 
 	/* The following uses a function which was added to rexxsyslib.library V45.

library/amiga_setsuperattrs.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_setsuperattrs.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: amiga_setsuperattrs.c,v 1.4 2005-02-25 10:14:20 obarthel Exp $
  *
  * :ts=4
  *

library/build_archive_amiga

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

library/build_archive_unix.sh

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

library/c.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	185
+#define REVISION	197
-#define DATE		"2.1.2005"
+#define DATE		"4.11.2005"
-#define VERS		"c.lib 1.185"
+#define VERS		"c.lib 1.197"
-#define VSTRING		"c.lib 1.185 (2.1.2005)\r\n"
+#define VSTRING		"c.lib 1.197 (4.11.2005)\r\n"
-#define VERSTAG		"\0$VER: c.lib 1.185 (2.1.2005)"
+#define VERSTAG		"\0$VER: c.lib 1.197 (4.11.2005)"

library/c.lib_rev.rev

@@ -1 +1 @@
-185
+197

library/changes

@@ -1,3 +1,884 @@
+c.lib 1.197 (4.11.2005)
+
+- Updated math_hypot.c to a newer (e_hypot.c 1.3 95/01/18) version from
+  fdlibm which uses macros for manipulating the high and low words of a
+  double, like the rest of fdlibm functions in clib2. The previous version
+  would give bogus results when compiled with -O3 in clib2 which lead to
+  "interesting" results (and lots of fun while searching for the problem)
+  in Ghostscript. Wish I managed to track this down yesterday for 1.196
+  release... <aantonijevic>
+
+- Implemented atanh() and atanhf() which were not listed in the TODO
+  file but were still unimplemented up until now.
+
+- Replaced ldexp() and modf().
+
+- Added __set_h_errno() and __get_h_errno() functions.
+
+- The thread-safe library now tries to enable bsdsocket.library base
+  sharing and attempts to make the TCP/IP stack call the local
+  __set_errno() and __set_h_errno(), so that any Process calling
+  the library functions will get a chance to see proper error
+  codes. Whether any of these features could be enabled can be tested
+  through two global variables __can_share_socket_library_base and
+  __thread_safe_errno_h_errno which are defined in <dos.h>. Note that
+  for both features to work you will need the Roadshow bsdsocket.library
+  version 4.275 or higher.
+
+- In <stdbool.h> the preprocessor definition should read
+  "__bool_true_false_are_defined" rather than "__bool_true_and_false_are_defined".
+  Thanks go to Peter Bengtsson for finding and fixing it.
+
+- The network startup code no longer checks for the presence of a possible
+  daemon startup message by default. You now have to enable this feature
+  by declaring a global variable called "__check_daemon_startup" which is
+  described in <dos.h>.
+
+- Moved the code which rebinds the standard I/O streams to the server
+  socket into a separate function which can be overridden by user code.
+
+- Updated the new __obtain_daemon_message() function to call a
+  bsdsocket.library API function to determine if what appears to be
+  a valid daemon startup message is sound.
+
+- Replaced the OS4 specific build makefile with an updated version
+  prepared by Steven Solie. Thank you very much!
+
+
+c.lib 1.196 (11.10.2005)
+
+- Removed the various workarounds associated with <unistd.h>, required
+  for building code that references the networking API. It is now possible,
+  provided you build your code with an existing TCP/IP API header file
+  set (such as from the "Roadshow" SDK) without running into data type
+  or function prototype declaration conflicts. I have added local versions
+  of <arpa/inet.h>, <netinet/in.h>, <netdb.h>, <sys/filio.h>, <sys/ioccom.h>,
+  <sys/ioctl.h>, <sys/select.h> and <sys/socket.h> and updated <unistd.h>,
+  <pwd.h> and <grp.h> accordingly. Note that some of the function prototypes
+  will conflict with the bsdsocket.library/usergroup.library API, which is
+  why you can disable the declarations through the __NO_NET_API preprocessor
+  symbol: if defined, none of the function prototypes will be defined.
+
+- Implemented lrintf(), lrint(), lroundf(), lround(), nearbyintf(),
+  nearbyint(), remquof(), remquo(), roundf(), round(), tgammaf(),
+  tgamma(), truncf(), trunc(). Sort of implemented fmaf() and fma(),
+  which really ought to be done in "SIMD" fashion.
+
+  This completes the "real" floating point math library (ignoring
+  for a moment that the floating point environment code is still
+  not implemented).
+
+- accept() now calls the bsdsocket.library accept() function first
+  and then hooks up the socket with the clib2 data structures. This
+  makes it possible to have several Processes calling the accept()
+  stub at the same time.
+
+- When the main() function returns directly or indirectly by way of
+  calling exit(), the IoErr() value set at this time will now be
+  preserved until the program really returns control to the shell.
+  This turned out to be easier to implement than I had originally
+  thought, thanks to the fact that the atexit() functions are all
+  invoked straight after the exit() call.
+
+- strtoimax(), strtoumax(), strtod(), strtof(), strtol(), strtoll(),
+  strtoul() and strtoull() now count how many digits were converted.
+  If that number is zero, then the conversion is considered to have
+  failed: 0 is returned and the 'ptr' parameter reference is initialized
+  with a pointer to the string to be converted. This has two consequences:
+
+     1) A floating point number that has no digits in the significand
+        is no longer converted to zero. For example ".e10" can no longer
+        result in a successful conversion.
+
+     2) You can detect if a conversion is successful by comparing pointers
+        after the conversion function has returned:
+
+           char * str;
+           char * ptr;
+           long n;
+
+           n = strtol(str,&ptr,10);
+           if(n == 0 && str == ptr)
+              printf("conversion has failed");
+
+- Following detection of a stack overflow, the startup code eventually
+  called _exit(). It should have called exit() instead.
+
+- tmpnam() wrote more than L_tmpnam bytes to the name buffer. Also, the
+  TMP_MAX value was off by one.
+
+
+c.lib 1.195 (3.9.2005)
+
+- In __time_delay() the CheckIO() test was wrong and should have
+  tested for a request still in progress. Fixed.
+
+- Modified select() to support plain files, too. The new code now
+  compares the current file position against the current file size,
+  if that file is on a file system, or simply checks if there is
+  any data in the file (which works for the default PIPE: device).
+
+- The raw file descriptor structure member fd_Position is now
+  always updated, regardless of whether the file supports random
+  access or not.
+
+- The wildcard escape character used in __wildcard_expand_init() was
+  wrong. It should have been "'" but it was "`". Fixed.
+
+- The startup code now references the linker symbol generated for
+  the user-supplied main() function.
+
+- log(+/-0), logb(+/-0), log10(+/-0) now return -infinity.
+
+- getcwd() now considers a buffer size of 0 an error, and it sets
+  the errno code to ERANGE if the buffer is too small.
+
+- With Unix path semantics enabled, rename() now fails if either
+  the old or the new name are empty strings. Same thing for
+  opendir(), utime(), unlink(), chown(), link(), readlink(),
+  realpath(), chdir(), access(), stat(), rmdir(), lstat(),
+  chmod(), statfs() and open()/fopen().
+
+- Fixed several issues with the formatted output of strftime()
+  for the "C" locale: "%p" could return " PM", "%c" is now
+  equivalent to "%a %b %e %T %Y", "%x" is equivalent to "%m/%d/%y"
+  and "%X" is now equivalent to "%T".
+
+- The 68020/030/040/060 versions of the library now include the
+  64 bit integer conversion code. The plain 68000 version does not.
+
+- The 64 bit integer conversion code used in by the scanf() family
+  was broken due to a misplaced overflow check, which had the cruel
+  effect of triggering for 32 bit integers as well. Fixed.
+
+- DoTimer() did not allocate the local MsgPort correctly. Fixed.
+
+
+c.lib 1.194 (15.7.2005)
+
+- Added getopt_long to libunix.a <tfrieden>
+
+- Added new libprofile.a which implements gprof gmon.out output <tfrieden>
+
+- Added the function profil() to libc.a <tfrieden>
+
+- Added ftello() and fseeko() which both merely call the equivalent (at
+  least for clib2) ftell() and fseek() functions, respectively.
+
+- statfs() never stated that a disk was mounted for read-only access
+  because the wrong InfoData structure member was tested. Fixed.
+
+- lstat would overwrite the name parameter via ReadLink(..., name, ...)
+  instead of ReadLink(..., new_name, ...) <tfrieden>
+
+- Implemented exp2()/exp2f() and log2()/log2f() as suggested by
+  Henning Nielsen Lund. Thank you very much!
+
+- The pattern matching code which expands command line arguments, as part
+  of libunix.a, now translates the "*" wildcard into "#?" unless you prefix
+  it with a backtick ("'"), which is the wildcard pattern escape character
+  used on AmigaOS.
+
+- Repaired the pattern matching code which expands command line arguments:
+  it no longer requires that any parameters are quoted and it is automatically
+  enabled if you link against libunix.a, without libc.a standing a chance to
+  accidentally override it.
+
+- Fixed a bug in vfprintf that would surface when the buffer was enlarged
+  if the pattern was too large to fit the static internal buffer <tfrieden>
+
+- Added file system names to statfs <tfrieden>
+
+- Moved all the constructor code out of "stdlib_init_exit.c" and into the
+  files which initialize global data, such as the new "stdlib_program_name.c"
+  and "stdlib_malloc.c".
+
+- Until I can find a way to invoke it from within the library, the
+  __machine_test() function is no longer invoked.
+
+- Tagged global data with NOCOMMON attributes.
+
+- Added the __lib_init() and __lib_exit() functions, which are part of the
+  thread-safe library and which can be used to hook up clib2 with standard
+  Amiga shared library/device code. Some documentation on how to use them
+  can be found in the <dos.h> header file.
+
+- Added a complete shared library skeleton example to demonstrate how the
+  clib2 shared library initialization/cleanup functions should be used.
+  This is a dual-build library which will both work with the plain 68k
+  AmigaOS and the PowerPC native AmigaOS4. The example source code can be
+  found in the "skeleton_library" subdirectory.
+
+- The thread-safe version of isatty() should now work for stdio
+  file descriptors, too.
+
+- Retrofitted thread-safety into the termios code.
+
+- The socket/usergroup API function and data type definitions that used to
+  be defined in <unistd.h> have been moved into a separate header file
+  <sys/clib2_net.h> which, for backwards compatibility, can be include
+  from within <unistd.h> if the preprocessor symbol __USE_CLIB2_NETLIB
+  is defined early on. Eventually, <sys/clib2_net.h> should be removed
+  from the general header files and become a local library build header
+  file altogether. Note that in this case you would have to build your
+  own software using common TCP/IP SDK header files.
+
+- <sys/types.h> now also includes <time.h> and <stddef.h>.
+
+
+c.lib 1.193 (4.6.2005)
+
+- fpclassify() now returns FP_ZERO both for 0 and -0.
+
+- nan() and nanf() now return quiet NaNs.
+
+- Added internal __inf() and __inff() functions.
+
+- strtof() now calls nanf() and __inff(), respectively, to produce
+  the special floating point values for nan/inf/infinity.
+
+- strtod() now calls nan() and __inf(), respectively, to produce
+  the special floating point values for nan/inf/infinity.
+
+- The scanf() family now calls nan() and __inf(), respectively, to
+  produce the special floating point values for nan/inf/infinity.
+
+- Added %D, %e, %F, %g, %G and %h for strftime(); repaired %I.
+
+- Documented __strip_double_slash() and plugged in a memmove()
+  in place of the copying loop.
+
+- Modified __translate_unix_to_amiga_path_name() and
+  __translate_amiga_to_unix_path_name() to not to call strlen()
+  on the results of __strip_double_slash().
+
+- For %C strtime() should return the century number, not the
+  year number mod 100.
+
+- The record locking code in fcntl() is no longer part of the
+  regular libc.a, but only of libunix.a.
+
+- Changed the definition of the D_S() macro to cast the pointer
+  address to an unsigned 32 bit integer.
+
+- Modified the locale-aware isalnum(), isalpha(), iscntrl(),
+  isdigit(), isgraph(), islower(), isprint(), ispunct(), isspace(),
+  isupper(), isxdigit(), tolower() and toupper() functions
+  to clamp the input parameter to the "unsigned char" range before
+  it is submitted to the respective locale.library function. This
+  should be in sync with what the specs demand, which state that
+  if the input parameter is neither EOF nor in the range of an
+  "unsigned char" variable, then the results are undefined.
+
+- ungetc() now returns the input character, clamped to an unsigned
+  char value, upon success. Previously, if the input parameter was
+  negative and not EOF, the result was identical to the input, which
+  could have had negative side-effects.
+
+- Added NAN, INFINITY, FLT_EVAL_METHOD, float_t and double_t to
+  <math.h> (C99).
+
+- Added skeleton code for acosf(), acosh(), acoshf(), asinf(), asinh(),
+  asinhf(), atan2f(), atanf(), atanh(), atanhf(), cbrt(), cbrtf(),
+  ceilf(), cosf(), coshf(), erf(), erfc(), erfcf(), erff(),
+  exp2(), exp2f(), expf(), expm1(), expm1f(), fdim(), fdimf(),
+  floorf(), fma(), fmaf(), fmax(), fmaxf(), fmin(), fminf(),
+  fmodf(), frexpf(), hypotf(), ilogb(), ilogbf(), ldexpf(), lgamma(),
+  lgammaf(), log10f(), log1p(), log1pf(), log2(), log2f(), logbf(),
+  logf(), lrint(), lrintf(), lround(), lroundf(), modff(), nearbyint(),
+  nearbyintf(), powf(), remainder(), remainderf(), remquo(), remquof(), round(),
+  roundf(), scalbn(), scalbnf(), sinf(), sinhf(), sqrtf(), tanf(),
+  tanhf(), tgamma(), tgammaf(), trunc() and truncf(), to be filled in
+  later...
+
+- Implemented fmin()/fminf(), fmax()/fmaxf(), fdim()/fdimf() for C99.
+
+- Ported acosf(), asinf(), atan2f(), atanf(), ceilf(), expf(), floorf(),
+  fmodf(), frexpf(), ldexpf(), log10f(), logbf(), logf(), modff(), powf(), sqrtf(),
+  scalbn() and scalbnf() for C99.
+
+- Ported cbrt(), cbrtf(), erf(), erff(), erfc(), erfcf(), expm1(),
+  expm1f(), ilogb(), ilogbf(), log1p() and log1pf() for C99.
+
+- Ported cosf(), coshf(), sinf(), sinhf(), tanf(), tanhf()
+  and hypotf() for C99.
+
+- Ported acosh(), acoshf(), asinh(), asinhf(), lgamma(), lgammaf(),
+  remainder() and remainderf() for C99.
+
+- The scanf() family now supports character ranges for the %[
+  conversion. Note that this is a non-standard feature!
+
+- Integrated Peter Bengtsson's termios code. Thank you very much! I chose
+  to add it to libunix.a rather than keeping it in a separate libtermios.a
+  library.
+
+
+c.lib 1.192 (12.5.2005)
+
+- Changed how errors are detected, as returned by Write(), Read() and
+  Seek(). Seek() is particularly challenging because the value it
+  returns might be a valid file position and not an error.
+
+- Replaced numeric function return codes of 0 and -1 with macros OK,
+  SEEK_ERROR/ERROR to clarify the respective purposes.
+
+- Changed how ftell() and fseek() are used, double-checking the return
+  value and the errno code.
+
+- The record locking semaphore could wind up getting added to the public
+  list twice. Fixed.
+
+- Fixed two linker errors which were caused by duplicate symbol definitions.
+
+- Added code to the startup routine which allows you to monitor where a command
+  was started from and which parameters it was invoked with.
+
+- If fread()/fwrite() fail to read/write any data because either the number
+  of records or the size of each record is zero, both now call clearerr() to
+  avoid giving the caller the wrong impression that an EOF or error occured.
+
+- The libunix.a flavour of system() no longer attempts to translate the name
+  of a command unless it contains path separator characters.
+
+- Added strtof(), llabs(), lldiv(), vsscanf() and vscanf() for C99.
+
+- strftime() now supports %C, %n, %r, %R, %t, %T, %u, %V, and %z for C99.
+  And it ignores the E and O modifiers.
+
+- The printf() family now supports the %hh, %j, %t and %z modifiers and the
+  %a/%A conversions for C99. The %j is treated like %ll; %t and %z are treated
+  like %l. Also, the "infinity"/"not a number" signals now come out as the
+  strings "inf" and "nan".
+
+- Added HUGE_VALF to <math.h>.
+
+- For the printf() "%a" conversion the exponent now comes out as a binary
+  number rather than a decimal one. Now how odd is that?
+
+- strtod() and strtof() now support "inf"/"infinity"/"nan"/"nan(..)" and
+  hexadecimal floating point numbers, for C99.
+
+- Added the fpclassify(), isfinite(), isnormal() and signbit() macros for C99.
+
+- Reimplemented isnan() and isinf() as macros for C99. The corresponding
+  functions will be dropped from the library. Note that the isinf() macro
+  does not return -1, 0 or 1 like the old function did, but only 0 or 1
+  depending upon whether the parameter represents +/- infinity or not.
+
+- Added fabsf() for C99.
+
+- The scanf() family now supports the %hh, %j, %t and %z modifiers and the
+  %a/%A conversions for C99. The %j is treated like %ll; %t and %z are treated
+  like %l. Also, the "inf"/"infinity"/"nan"/"nan()" keywords are processed.
+
+- The strftime() %z conversion now prints the time zone difference as a
+  "decimal" number. That is, if the difference is 5 hours and 30 minutes,
+  then %z will now print "530" rather than "330".
+
+- mktime() now handles one leap second gracefully.
+
+- Added isblank().
+
+- Added isunordered(), isgreater(), isgreaterequal(), isless(),
+  islessequal() and islessgreater() to <math.h> for C99.
+
+- The wchar_t type is now an 'unsigned short' integer (16 bits wide).
+
+- Added PTRDIFF_MIN/PTRDIFF_MAX, WCHAR_MIN/WCHAR_MAX and
+  WINT_MIN/WINT_MAX to <stdint.h> for C99.
+
+- Added imaxdiv() and imaxabs() for C99.
+
+- Added strtoimax() and strtoumax() for C99.
+
+- Added nextafter() and nextafterf() for C99.
+
+- Added copysign() and copysignf() for C99.
+
+- Unless I missed something, clib2 should now be functionally complete
+  with regard to C99, except for the floating point operations covered.
+  These are a major challenge all by themselves, and I wonder both
+  whether they are worth the effort and how one could implement them
+  correctly.
+
+- fflush() now consistently supports a NULL parameter, causing all
+  streams to be flushed for which this behaviour is defined.
+
+- The printf() family can now produce output for floating point
+  numbers with more than about 77 characters, provided sufficient
+  memory is available. C99 calls for a minimum of 4095 characters,
+  but we're trying to allocate the space required dynamically.
+
+
+c.lib 1.191 (9.4.2005)
+
+- The name of the public record locking semaphore has to be preallocated
+  for OS4 if the AllocSysObject() function is used to create it.
+
+- Moved the signal block mask and the signal function table out of
+  signal_data.c and into signal_raise.c where they are actually used.
+  This makes it possible to override the default definition of the
+  __check_abort_enabled variable in your own programs.
+
+- raise() no longer resets the signal handler before it invokes the one
+  currently configured. It merely blocks the delivery of the respective
+  signal to prevent recursion.
+
+- raise() now drops into abort() if a signal handler is set to
+  SIG_DFL. The exception is in SIGINT delivery, which has the
+  effect of printing a different termination message but otherwise
+  program flow takes the same path as abort().
+
+- Moved the __UtilityBase/__IUtility variable declarations into
+  a separate file.
+
+- Simplified the library/open close code in "stdlib_main.c".
+
+- File descriptors produced by dup() or dup2() now work exactly like
+  the original file descriptors they are duplicates of. I modified the
+  function which maps file descriptor numbers to file descriptor
+  table entries to return the table entries of the original files.
+
+- In the thread-safe library, duplicated stdin/stdout/stderr
+  descriptors now work like the "real" ones. This is true even if
+  the "real" ones were closed and only their former aliases remain.
+
+- Invoking fstat() on what maps to a con-handler stream now produces
+  information identifying it as a character special file.
+
+- Added more code and changes contributed by Peter Bengtsson, thank you
+  very much! This includes the following:
+
+  - Added SSIZE_MAX to <limits.h>.
+
+  - Added <sys/uio.h>, readv() and writev().
+
+  - Cut back the soft link resolution code in lstat().
+
+  - In <fcntl.h> O_NDELAY is now an alias for O_NONBLOCK.
+
+  - Added <complex.h>, carg(), cargf(), cargl(), cimag(), cimagf(),
+    cimagl(), conj(), conjf(), conjl(), creal(), crealf() and creall().
+
+  Note that the C99 support for the complex floating point data
+  types is limited to GCC 3.x for now.
+
+- Added va_copy() to <stdarg.h>.
+
+- Added _Exit() to <stdlib.h>.
+
+- Added <stdbool.h>.
+
+- Added vfscanf() to <stdio.h>.
+
+- The stdio locking in fcntl() wasn't working correctly. Fixed.
+
+- Made the clearerr(), feof() and ferror() macros thread-safe.
+
+
+c.lib 1.190 (25.3.2005)
+
+- DoTimer() now calls AllocSysObject() rather than making up
+  a MsgPort locally.
+
+- The record locking semaphore code now builds a semaphore to add
+  before it tries to find the public one in memory. That way, the
+  code can spend less time in Forbid() state and, heaven forbid,
+  refrain from allocating memory while in that state.
+
+- Split the general stdio initialization/cleanup code from the
+  initialization of the stdin/stdout/stderr streams.
+
+- Moved the Workbench console stream initialization into the
+  initialization code for the stdin/stdout/stderr streams and
+  out of the program parameter setup.
+
+- The current program name is now set up in the stdlib
+  initialization function.
+
+- Simplified the machine test code; moved the FPU check into
+  the math initialization code.
+
+- Added more safety checks to verify that file descriptor
+  file handles are valid.
+
+- Made the file descriptor checks in the fsync() and fdatasync()
+  functions more robust.
+
+- Cleaned up the 68k build makefile, so that the CPU and FPU
+  tests and the error message display can run safely even
+  on plain 68000 machines. This won't work for the 32 bit small
+  data model, which implies 68020 code, but so there...
+
+- Moved the CPU/FPU type tests into the respective linker
+  libraries.
+
+- Moved the data declarations out of math_data.c, stat_data.c,
+  socket_data.c, dirent_data.c and stdio_data.c and into the
+  code that initializes them.
+
+- Moved a few __delete_semaphore() calls into conditional compilation
+  sections where they should have been in the first place.
+
+- Thanks to Jörg Strohmayer, the GCC library build now manages to
+  invoke the library's constructor/destructor functions in a
+  very particular order. That way, you can use constructor/destructor
+  functions in your own code and not have them clash with the library's
+  own functions.
+
+- Reimplemented the constructor/destructor invocation code for GCC.
+  Both the 68k and PowerPC platform now invoke them in the same order
+  and the 68k code uses the designated invocation priorities. The
+  PowerPC destructor function now sets up the exit() jmp_buf before
+  the destructor functions are called.
+
+- Added S_IREAD, S_IWRITE and S_IEXEC aliases to <sys/stat.h>.
+
+- Moved data out of stdlib_data.c and into the code that references
+  or initializes it.
+
+- The stdlib constructor now performs the CPU/FPU compatibility test.
+
+- Introduced new constructor types and changed the overall priority
+  order.
+
+- Switched over the startup code and the library itself to use
+  constructor/destructor functions for initialization and cleanup
+  purposes.
+
+- The destructor function invocation code no longer calls
+  setjmp(). This is now done within stdlib_main.c prior to
+  calling the destructor function invocation code.
+
+- Fixed the SAS/C destructor function prototypes and verified
+  that the constructors/destructors are called in the proper
+  order, too.
+
+- Aliases of file descriptors are now using the signal semaphore
+  of the original file descriptor.
+
+- close() did not return 0 if the file descriptor in question
+  was really just an alias. Fixed.
+
+- Added a feature which makes it possible to have several clients
+  use the standard I/O streams (stdin/stdout/stderr) and have these
+  referring to their process' Input()/Output()/ErrorOutput()
+  streams. This is intended to support the upcoming shared
+  library feature.
+
+- Turns out that the 68k GCC port does not sort constructor and
+  destructor functions in any way at all. I reimplemented the
+  entire library constructor/destructor functionality to use the
+  same approach as libnix.
+
+- ftruncate() ended up changing the current file position, contrary
+  to what it is supposed to do. Fixed.
+
+- fcntl() did not work for sockets. Fixed.
+
+- Reorganized the local header files, removing redundancies.
+
+- Dropped unused stub code which is now redundant because of
+  the constructor/destructor mechanism.
+
+- Moved the call chain printing out of stdlib_main.c and into
+  separate files.
+
+- Removed some more redundant data from stdlib_main.c.
+
+- Added the first "real" C99 function: _Exit() ;-)
+
+- assertion failures early on during program initialization
+  should no longer spell big trouble on account of the stdio
+  data structures possibly not being in a well-defined and
+  initialized state.
+
+- Turns out that the constructor/destructor calling sequence
+  was still wrongish for the OS4 library. So I had to change
+  it *again*. Which probably means that the 68k library will
+  need further changes...
+
+- Moved stdlib_main.o into the regular libc.a, at least for
+  the 68k build. The PowerPC build may follow later, provided
+  I manage to get the specs file fixed. Actually, stdlib_main.o
+  is in the libc.a library already. Now about that specs file...
+
+- Moved the check for the presence of an FPU into the
+  math_init.c code. I am far from certain whether this will
+  have the desired effect, though. Due to how the GNU ld linker
+  works, libraries are scanned once only. And the FPU check will
+  be pulled in only if something references the HUGE_VAL
+  constant.
+
+- Activated the dormant thread-safe standard input/output/error
+  handling code.
+
+- Small fixes to fcntl() and select() to cover the thread-safe
+  fd->fd_DefaultFile == ZERO case.
+
+
+c.lib 1.189 (5.3.2005)
+
+- Rewrote the __translate_unix_to_amiga_path_name() function to
+  translate patterns such as "foo/bar/../../baz" properly, and to
+  use strlen() a lot less.
+
+- Major, major changes! Moved most of the monolithic code out of
+  the file descriptor hook and into the respective functions,
+  such as dup2(), fchmod(), fchown(), fcntl(), fdatasync(), fstatfs(),
+  fsync(), ftruncate() and lseek(). Code which is not strictly
+  required will no longer find its way into your programs if you
+  link with the updated library.
+
+  NOTE: these changes require that the entire library is rebuilt!
+
+- The buffered and unbuffered file hook code is now invoked through
+  function pointers alone. The utility.library/CallHookPkt mechanism
+  is no longer required.
+
+- Moved the entire lseek() code relevant for files into the hook
+  function.
+
+- Simplified the close() function which now just calls into the
+  hook code to perform whatever is necessary. The hook code is
+  responsible for cleaning up after aliases, etc. This change in
+  turn made it possible to greatly simplify the hook code for
+  buffered files which now bypasses close/read/write/lseek and
+  directly invokes the hook code for unbuffered files.
+
+- Added various floating point constants to <math.h>, courtesy
+  of Henning Nielsen Lund. Thank you very much!
+
+- When using the wildcard expansion code for command line
+  parameters (which is by default linked in with libunix.a),
+  regular expressions can no longer prompt dos.library requesters
+  to appear. However, to be on the safe side, if you are expecting
+  to pass regular expressions on the command line, do not use
+  the wildcard expansion code such as by overriding the library
+  symbols with dummy functions such as are used in the file
+  "stdlib_wildcard_expand.c".
+
+- Added a new variable '__open_locale' which can be used to
+  restrict all library functions to use the "C" language locale
+  rather than the current system locale settings. In addition
+  to that, two new functions __locale_exit() and __locale_init()
+  can be used to close and (re-)open the system locale at a
+  later time.
+
+- Local ("static") functions are now identified by the STATIC
+  qualifier. This was done in preparation for changes that will
+  deal with global and local data and the issue of thread safety.
+
+- Added stdio thread locking functions flockfile(), funlockfile(),
+  and ftrylockfile().
+
+- Modified the internal FILE structure to allow for thread locking.
+  Note that this again requires that the library is rebuilt!
+
+- Added or modified macros for getc_unlocked(), getchar_unlocked(),
+  putc_unlocked() and putchar_unlocked().
+
+- Added rand_r().
+
+- Added flockfile()/funlockfile() wrappers around all stdio
+  functions.
+
+- Added more semaphore locking around the basic stdio, memory, locale
+  and dirent data operations. That should do it! While the library is
+  not reentrant (this is not ixemul.library) it should be thread-safe
+  now. Thread-safe in the sense of POSIX 1003.1c-1995.
+
+- The thread-safety code is now subject to conditional compilation.
+  Both the library and the user code need to be rebuilt with the
+  preprocessor symbol __THREAD_SAFE defined to get thread-safe
+  code.
+
+- Extended the thread-safety locking to the file descriptors.
+
+  NOTE: these changes require that the entire library is rebuilt!
+
+- The translation of Unix to Amiga path names now silently accepts
+  absolute Amiga path names passed to it and will use them without
+  changing them.
+
+- Added atoll(), ffs(), ftw(), nftw(), lstat() and uname() code
+  contributed by Peter Bengtsson. Thank you very much!
+
+- Reworked the code that handles quoting for the wildcard expansion
+  routine. We no longer allocate memory and then modify it, but
+  call a function for each quoted parameter which does whatever is
+  necessary.
+
+- The shell command parameter parser now considers the non-breaking
+  space character (ISO code 160) to be a blank space character, too.
+
+- Moved the signal semaphore allocation/initialization/deallocation
+  into a dedicated module. This also has the advantage that it's
+  harder to break code by accidentally forgetting to call
+  InitSemaphore() after having allocated the memory for it.
+
+- Rewrote the code that allocates the file descriptor and file
+  buffer tables so that all the memory allocations are in one
+  place and it's possible to specify exactly how many table
+  entries are required at a time.
+
+- Creation and initialization of semaphores now uses the AmigaOS4
+  specific functions for this purpose, if available.
+
+- In the thread-safe variant, the library now tries to allow
+  multiple concurrent callers to use the socket functions. Note
+  that this works only with the Roadshow TCP/IP stack, and the
+  results with other TCP/IP stacks are rather unpredictable.
+
+
+c.lib 1.188 (7.2.2005)
+
+- Folded duplicate code in "stdio_init_exit.c" into a common function.
+
+- Simplified the code in "time_asctime_r.c" which builds the time
+  string. It gracefully handles buffer sizes which are too short
+  by returning an empty string.
+
+- Moved the "tm->tm_wday" initialization out of the hook function
+  in "time_strftime.c" since it was to be called only once anyway.
+
+- Lost a few compiler warnings in "unistd_time_delay.c" and
+  "time_gettimeofday.c".
+
+- Folded duplicate code in "time_mktime.c"; also, errno is no longer
+  modified unless the library is built with the "CHECK_FOR_NULL_POINTERS"
+  option.
+
+- We now allocate the AnchorPath used in the unistd_wildcard_expand.c
+  code. Also, the contents of the AnchorPath structure are no longer
+  modified between calls. MatchEnd() has to be sufficient.
+
+- Moved redundant code out of the readdir()/opendir()/closedir()
+  functions which is not required unless the code is built for
+  Unix compatibility mode.
+
+- Lost the __not_a_number and __infinity variables, including the
+  code which initialized them.
+
+- Reading/changing the errno variable is no longer done directly, but
+  involves accessor functions.
+
+- References to the HUGE_VAL quantity now involve an accessor function, too.
+
+- Changed the manner in which the __huge_val constant is initialized by
+  the __math_init() function. The new approach should be more portable.
+
+- The library no longer sends ACTION_DISK_INFO packets to the console
+  handler. The side-effects were too varied and irritating after all.
+
+- Added the fsync() and fdatasync() functions and the <stdint.h> and
+  <inttypes.h> header files contributed by Peter Bengtsson. Thank
+  you very much!
+
+- Tweaked the build makefiles to produce fewer meaningless warnings.
+
+
+c.lib 1.187 (29.1.2005)
+
+- The default console output window opened when a program is launched
+  from Workbench would open and stay open. This was not intended to
+  happen and is a side-effect of the new stdio initialization code which
+  checks if the stdio streams are in non-blocking mode. Fixed.
+
+- Moved the common DateStamp to time_t conversion code into a shared
+  function.
+
+- The fall-back function for converting time into a string in strftime()
+  now calls itself for the "%c", "%x" and "%X" format specifiers.
+
+- mktime() is supposed to convert the time specification, given as local
+  time, into the number of seconds since January 1st, 1970, relative to
+  UTC. This didn't really work up until now since the time value returned
+  was given as local time.
+
+- Plugged in a different algorithm for calculating the day of the week in
+  strftime() and asctime_r(). This one isn't sensitive to the effects of
+  adding/subtracting the local time zone.
+
+- Changed the algorithm that calculates the number of days that have passed
+  so far as used by the the __convert_time() function and the conversion
+  code in strftime().
+
+- Also changed the algorithm used by strftime() to produce the week numbers
+  (the '%U' and '%W' format specifiers). The new method is much simpler
+  than the old one.
+
+- Made the code that converts a 'time_t' value into the 'struct DateStamp',
+  as used by strftime() and utime(), into its own function. This also
+  fixes a bug in the code strftime() would use which was completely
+  unaware of the local time zone settings.
+
+
+c.lib 1.186 (14.1.2005)
+
+- Redirecting stderr to a file no longer has the effect of showing error
+  messages and assertion failure notifications as requesters. The exception
+  is in redirecting stderr to NIL: which will prompt the requester use.
+
+- gettimeofday() now calls GetSysTime() rather than DateStamp() to obtain
+  the current system time. This resolves granularity issues since the
+  DateStamp() result was only accurate by 1/50 of a second.
+
+- The "ptrdiff_t" definition in <stddef.h> now defaults to type 'int' rather
+  than 'long int'.
+
+- The "char" limits in <limits.h> are now set up according to the current
+  compiler settings, which can either default to an unsigned or
+  signed definition.
+
+- Changed the rules again for the use of stderr/stdout redirection when
+  printing error messages. It is always safe to redirect them now and
+  no requester will appear unless you specifically set the value of the
+  "__no_standard_io" variable to TRUE in your program.
+
+- Removed a misplaced IsInteractive() from the stdio initialization
+  function. Now this could have been big trouble...
+
+- Removed tests for FileHandle->fh_Type != NULL which used to precede
+  all IsInterative() tests. I verified that IsInteractive() will always
+  return FALSE for NIL: type file handles.
+
+- Dropped the special flag variable used by the abort() function that
+  tracks whether or not console output is possible. We now use the
+  global "__no_standard_io" instead.
+
+- Made the <ctype.h> macros more robust.
+
+- Removed the "NIL:" file handle tests preceding the Open("CONSOLE:",..)
+  calls. As of Kickstart 2.x and beyond these are no longer a source of
+  trouble.
+
+- The V37/V40 compatibility code is no longer built for the AmigaOS4
+  version of the library.
+
+- Switched over the last use of DeviceProc() to GetDeviceProc(), etc.
+
+- open() no longer examines a file after opening it in order to figure
+  out whether read/write accesses are permitted. This decision is now
+  for the file system to make.
+
+- Whether or not stdio console streams are blocking or non-blocking
+  is now determined at initialization time. The I/O mode is restored before
+  the program exits. Previously, any changes to the I/O mode would persist.
+
+- Lost some more code that is not required for AmigaOS 4.x and can be
+  handled conveniently through conditional compilation.
+
+- close() did not reset the non-blocking file property, as it should
+  have. This only worked for files which were closed anyway, but not
+  for the stdio streams. Fixed.
+
+- Added a missing definition to stdio_init_exit.c which is part of
+  the OS4 header files, but not of the older header file distributions.
+
+
+
 c.lib 1.185 (2.1.2005)
 
 - Moved the environment variable cleanup code into a destructor function.

library/complex_carg.c

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

library/complex_cargl.c

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

library/complex_cimag.c

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

library/complex_cimagf.c

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

library/complex_cimagl.c

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

library/complex_conj.c

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

library/complex_conjf.c

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

library/complex_conjl.c

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

library/complex_creal.c

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

library/complex_crealf.c

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

library/complex_creall.c

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

library/complex_headers.h

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

library/crt0.S

@@ -1,11 +1,12 @@
 //
-//	$Id: crt0.S,v 1.2 2004-11-28 12:31:27 tfrieden Exp $
+//	$Id: crt0.S,v 1.6 2005-10-11 09:28:29 obarthel Exp $
 //
 //	:ts=4
 //
 
 	.text
 
+	.globl  main	/* This enforces linkage against the main() function */
 	.globl  _main
 	.globl  _start
 
@@ -25,16 +26,3 @@ _start:
 #endif
 
 	b	_main
-
-#if defined(BASEREL_DATA)
-	.section .rodata
-
-	.globl __data_segment_descriptor
-__data_segment_descriptor:
-	.long __data_start
-	.long __data_end
-	.long _DATA_BASE_
-
-	.section .dend, "wa", @nobits
-	.space 	4
-#endif

library/crtbegin.c

@@ -1,132 +1,43 @@
 /* 
- * $Id: crtbegin.c,v 1.3 2004-09-29 16:54:54 obarthel Exp $
+ * $Id: crtbegin.c,v 1.10 2005-03-18 12:38:22 obarthel Exp $
  *
  * :ts=4
  *
- * Handles global constructors and destructors.
+ * Handles global constructors and destructors for the OS4 GCC build.
  */
 
-#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
  */
-static void (*__CTOR_LIST__[1]) (void) __attribute__((section(".ctors"))) = { (void *)-1 };
+static void (*__CTOR_LIST__[1]) (void) __attribute__(( used, section(".ctors"), aligned(sizeof(void (*)(void))) ));
-static void (*__DTOR_LIST__[1]) (void) __attribute__((section(".dtors"))) = { (void *)-1 };
+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)
 {
-	_do_ctors();
+	int num_ctors,i;
+	int j;
+
+	for(i = 1, num_ctors = 0 ; __CTOR_LIST__[i] != NULL ; i++)
+		num_ctors++;
+
+	for(j = 0 ; j < num_ctors ; j++)
+		__CTOR_LIST__[num_ctors - j]();
 }
 
 /****************************************************************************/
@@ -134,5 +45,16 @@ _init(void)
 void
 _fini(void)
 {
-	_do_dtors();
+	int num_dtors,i;
+	static int j;
+
+	for(i = 1, num_dtors = 0 ; __DTOR_LIST__[i] != NULL ; i++)
+		num_dtors++;
+
+	while(j++ < num_dtors)
+		__DTOR_LIST__[j]();
 }
+
+/****************************************************************************/
+
+#endif /*__amigaos4__ */

library/crtend.c

@@ -1,5 +1,5 @@
 /* 
- * $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
  *
@@ -10,9 +10,10 @@
 
 /****************************************************************************/
 
-static volatile void (*__CTOR_LIST__[1]) (void) __attribute__((used,section(".ctors"))) = { (void *)0 };
+static void (*__CTOR_LIST__[1]) (void) __attribute__((used, section(".ctors"), aligned(sizeof(void (*)(void))) ));
-static volatile void (*__DTOR_LIST__[1]) (void) __attribute__((used,section(".dtors"))) = { (void *)0 };
+static void (*__DTOR_LIST__[1]) (void) __attribute__((used, section(".dtors"), aligned(sizeof(void (*)(void))) ));
 
 /****************************************************************************/
 
 #endif /*__amigaos4__ */
+

library/ctype_headers.h

@@ -1,5 +1,5 @@
 /*
- * $Id: ctype_headers.h,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_headers.h,v 1.5 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -42,18 +42,25 @@
 
 /****************************************************************************/
 
-#ifndef _STDLIB_LOCALE_UTILITY_H
+#ifndef _STDLIB_LOCALEBASE_H
-#include "stdlib_locale_utility.h"
+#include "stdlib_localebase.h"
-#endif /* _STDLIB_LOCALE_UTILITY_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,5 +1,5 @@
 /*
- * $Id: ctype_isalnum.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_isalnum.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_isalpha.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_isalpha.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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_isblank.c

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

library/ctype_iscntrl.c

@@ -1,5 +1,5 @@
 /*
- * $Id: ctype_iscntrl.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_iscntrl.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_isdigit.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_isdigit.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_isgraph.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_isgraph.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_islower.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_islower.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_isprint.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_isprint.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_ispunct.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_ispunct.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_isspace.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_isspace.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_isupper.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_isupper.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_isxdigit.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_isxdigit.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_table.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_table.c,v 1.3 2005-01-09 15:20:31 obarthel Exp $
  *
  * :ts=4
  *
@@ -36,22 +36,8 @@
 
 /****************************************************************************/
 
-/* The construction of this table is rather peculiar. The assumption is that
+const unsigned char __ctype_table[2 * 128] =
-   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] =
 {
-	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,5 +1,5 @@
 /*
- * $Id: ctype_tolower.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_tolower.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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,5 +1,5 @@
 /*
- * $Id: ctype_toupper.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: ctype_toupper.c,v 1.4 2005-05-29 09:56:09 obarthel Exp $
  *
  * :ts=4
  *
@@ -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);
 }

library/debug.c

@@ -1,5 +1,5 @@
 /*
- * $Id: debug.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: debug.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
  *
  * :ts=8
  *
@@ -133,7 +133,7 @@ _POPDEBUGLEVEL(void)
 
 /****************************************************************************/
 
-static void
+STATIC VOID
 _INDENT(void)
 {
 	if(program_name_len > 0)

library/debug.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	185
+#define REVISION	197
-#define DATE		"2.1.2005"
+#define DATE		"4.11.2005"
-#define VERS		"debug.lib 1.185"
+#define VERS		"debug.lib 1.197"
-#define VSTRING		"debug.lib 1.185 (2.1.2005)\r\n"
+#define VSTRING		"debug.lib 1.197 (4.11.2005)\r\n"
-#define VERSTAG		"\0$VER: debug.lib 1.185 (2.1.2005)"
+#define VERSTAG		"\0$VER: debug.lib 1.197 (4.11.2005)"

library/debug.lib_rev.rev

@@ -1 +1 @@
-185
+197

library/debug_headers.h

@@ -1,5 +1,5 @@
 /*
- * $Id: debug_headers.h,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: debug_headers.h,v 1.3 2005-03-18 12:38:22 obarthel Exp $
  *
  * :ts=4
  *
@@ -36,14 +36,15 @@
 
 /****************************************************************************/
 
+#ifndef EXEC_LIBRARIES_H
 #include <exec/libraries.h>
+#endif /* EXEC_LIBRARIES_H */
 
 /****************************************************************************/
 
 #if defined(__SASC)
 
 #include <clib/exec_protos.h>
-/*#include <pragmas/exec_sysbase_pragmas.h>*/
 #include <pragmas/exec_pragmas.h>
 
 LONG RawMayGetChar(VOID);
@@ -57,7 +58,11 @@ VOID RawPutChar(UBYTE c);
 /****************************************************************************/
 
 #if defined(__amigaos4__)
+
+#ifndef EXEC_EMULATION_H
 #include <exec/emulation.h>
+#endif /* EXEC_EMULATION_H */
+
 #endif /* __amigaos4__ */
 
 /****************************************************************************/
@@ -106,11 +111,13 @@ VOID RawPutChar(UBYTE c);
 
 /****************************************************************************/
 
-#include "debug.h"
+#ifndef _MACROS_H
-
-/****************************************************************************/
-
 #include "macros.h"
+#endif /* _MACROS_H */
+
+#ifndef _DEBUG_H
+#include "debug.h"
+#endif /* _DEBUG_H */
 
 /****************************************************************************/
 

library/debug_kputfmt.c

@@ -1,5 +1,5 @@
 /*
- * $Id: debug_kputfmt.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: debug_kputfmt.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
  *
  * :ts=4
  *
@@ -43,7 +43,7 @@
    parameter table is provided, pick up the parameters and store them in
    the table. The table layout follows the format string and can include
    both 16 and 32 bit data. */
-static size_t
+STATIC size_t
 process_var_args(char *format_string,va_list argument_list,unsigned short * table)
 {
 	size_t num_args = 0;
@@ -150,7 +150,7 @@ process_var_args(char *format_string,va_list argument_list,unsigned short * tabl
 
 /****************************************************************************/
 
-static VOID ASM
+STATIC VOID ASM
 raw_put_char(REG(d0,UBYTE c))
 {
 	kputc(c); 

library/dirent_closedir.c

@@ -1,5 +1,5 @@
 /*
- * $Id: dirent_closedir.c,v 1.3 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: dirent_closedir.c,v 1.14 2005-07-03 10:36:46 obarthel Exp $
  *
  * :ts=4
  *
@@ -31,28 +31,121 @@
  * POSSIBILITY OF SUCH DAMAGE.
  */
 
-#ifndef _STDLIB_MEM_DEBUG_H
-#include "stdlib_mem_debug.h"
-#endif /* _STDLIB_MEM_DEBUG_H */
-
-/****************************************************************************/
-
 #ifndef _DIRENT_HEADERS_H
 #include "dirent_headers.h"
 #endif /* _DIRENT_HEADERS_H */
 
 /****************************************************************************/
 
+#ifndef _STDLIB_MEMORY_H
+#include "stdlib_memory.h"
+#endif /* _STDLIB_MEMORY_H */
+
+/****************************************************************************/
+
+#ifndef _STDLIB_CONSTRUCTOR_H
+#include "stdlib_constructor.h"
+#endif /* _STDLIB_CONSTRUCTOR_H */
+
+/****************************************************************************/
+
 /* The following is not part of the ISO 'C' (1994) standard. */
 
 /****************************************************************************/
 
+/* Directories being scanned whose locks need to be freed when shutting down. */
+struct MinList NOCOMMON __directory_list;
+
+/****************************************************************************/
+
+#if defined(__THREAD_SAFE)
+
+/****************************************************************************/
+
+static struct SignalSemaphore * dirent_lock;
+
+/****************************************************************************/
+
+void
+__dirent_lock(void)
+{
+	if(dirent_lock != NULL)
+		ObtainSemaphore(dirent_lock);
+}
+
+/****************************************************************************/
+
+void
+__dirent_unlock(void)
+{
+	if(dirent_lock != NULL)
+		ReleaseSemaphore(dirent_lock);
+}
+
+/****************************************************************************/
+
+#endif /* __THREAD_SAFE */
+
+/****************************************************************************/
+
+CLIB_CONSTRUCTOR(dirent_init)
+{
+	BOOL success = FALSE;
+
+	ENTER();
+
+	NewList((struct List *)&__directory_list);
+
+	#if defined(__THREAD_SAFE)
+	{
+		dirent_lock = __create_semaphore();
+		if(dirent_lock == NULL)
+			goto out;
+	}
+	#endif /* __THREAD_SAFE */
+
+	success = TRUE;
+
+ out:
+
+	SHOWVALUE(success);
+	LEAVE();
+
+	if(success)
+		CONSTRUCTOR_SUCCEED();
+	else
+		CONSTRUCTOR_FAIL();
+}
+
+/****************************************************************************/
+
+CLIB_DESTRUCTOR(dirent_exit)
+{
+	ENTER();
+
+	if(__directory_list.mlh_Head != NULL)
+	{
+		while(NOT IsListEmpty((struct List *)&__directory_list))
+			closedir((DIR *)__directory_list.mlh_Head);
+	}
+
+	#if defined(__THREAD_SAFE)
+	{
+		__delete_semaphore(dirent_lock);
+		dirent_lock = NULL;
+	}
+	#endif /* __THREAD_SAFE */
+
+	LEAVE();
+}
+
+/****************************************************************************/
+
 int
 closedir(DIR * directory_pointer)
 {
 	struct DirectoryHandle * dh;
-	struct Node * node;
+	int result = ERROR;
-	int result = -1;
 
 	ENTER();
 
@@ -61,9 +154,11 @@ closedir(DIR * directory_pointer)
 	if(__check_abort_enabled)
 		__check_abort();
 
+	__dirent_lock();
+
 	if(directory_pointer == NULL)
 	{
-		errno = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 
@@ -84,7 +179,7 @@ closedir(DIR * directory_pointer)
 
 		if(NOT directory_pointer_is_valid)
 		{
-			errno = EBADF;
+			__set_errno(EBADF);
 			goto out;
 		}
 	}
@@ -94,8 +189,14 @@ closedir(DIR * directory_pointer)
 
 	Remove((struct Node *)dh);
 
-	while((node = RemHead(&dh->dh_VolumeList)) != NULL)
+	#if defined(UNIX_PATH_SEMANTICS)
+	{
+		struct Node * node;
+
+		while((node = RemHead((struct List *)&dh->dh_VolumeList)) != NULL)
 			free(node);
+	}
+	#endif /* UNIX_PATH_SEMANTICS */
 
 	PROFILE_OFF();
 	UnLock(dh->dh_DirLock);
@@ -103,10 +204,12 @@ closedir(DIR * directory_pointer)
 
 	free(dh);
 
-	result = 0;
+	result = OK;
 
  out:
 
+	__dirent_unlock();
+
 	RETURN(result);
 	return(result);
 }

library/dirent_headers.h

@@ -1,5 +1,5 @@
 /*
- * $Id: dirent_headers.h,v 1.3 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: dirent_headers.h,v 1.8 2005-03-18 12:38:22 obarthel Exp $
  *
  * :ts=4
  *
@@ -42,6 +42,18 @@
 
 /****************************************************************************/
 
+#ifndef _STDLIB_HEADERS_H
+#include "stdlib_headers.h"
+#endif /* _STDLIB_HEADERS_H */
+
+/****************************************************************************/
+
+#ifndef _STDLIB_PROFILE_H
+#include "stdlib_profile.h"
+#endif /* _STDLIB_PROFILE_H */
+
+/****************************************************************************/
+
 #ifndef _MACROS_H
 #include "macros.h"
 #endif /* _MACROS_H */
@@ -54,9 +66,10 @@ struct DirectoryHandle
 	BPTR					dh_DirLock;
 	struct FileInfoBlock	dh_FileInfo;
 	struct dirent			dh_DirectoryEntry;
+
 	int						dh_Position;
 	struct Node *			dh_VolumeNode;
-	struct List				dh_VolumeList;
+	struct MinList			dh_VolumeList;
 	BOOL					dh_ScanVolumeList;
 };
 
@@ -66,4 +79,26 @@ extern struct MinList NOCOMMON __directory_list;
 
 /****************************************************************************/
 
+#if defined(__THREAD_SAFE)
+
+/****************************************************************************/
+
+extern void __dirent_lock(void);
+extern void __dirent_unlock(void);
+
+/****************************************************************************/
+
+#else
+
+/****************************************************************************/
+
+#define __dirent_lock()		((void)0)
+#define __dirent_unlock()	((void)0)
+
+/****************************************************************************/
+
+#endif /* __THREAD_SAFE */
+
+/****************************************************************************/
+
 #endif /* _DIRENT_HEADERS_H */

library/dirent_opendir.c

@@ -1,5 +1,5 @@
 /*
- * $Id: dirent_opendir.c,v 1.3 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: dirent_opendir.c,v 1.10 2005-08-26 12:39:33 obarthel Exp $
  *
  * :ts=4
  *
@@ -37,18 +37,18 @@
 
 /****************************************************************************/
 
-#ifndef _STDLIB_MEM_DEBUG_H
-#include "stdlib_mem_debug.h"
-#endif /* _STDLIB_MEM_DEBUG_H */
-
-/****************************************************************************/
-
 #ifndef _DIRENT_HEADERS_H
 #include "dirent_headers.h"
 #endif /* _DIRENT_HEADERS_H */
 
 /****************************************************************************/
 
+#ifndef _STDLIB_MEMORY_H
+#include "stdlib_memory.h"
+#endif /* _STDLIB_MEMORY_H */
+
+/****************************************************************************/
+
 /* The following is not part of the ISO 'C' (1994) standard. */
 
 /****************************************************************************/
@@ -57,7 +57,7 @@
 
 /****************************************************************************/
 
-static struct Node *
+STATIC struct Node *
 find_by_name(struct List * list,const char * name)
 {
 	struct Node * result = NULL;
@@ -89,7 +89,6 @@ opendir(const char * path_name)
 	#endif /* UNIX_PATH_SEMANTICS */
 	struct DirectoryHandle * dh = NULL;
 	DIR * result = NULL;
-	struct Node * node;
 
 	ENTER();
 
@@ -106,7 +105,7 @@ opendir(const char * path_name)
 		{
 			SHOWMSG("invalid parameter");
 
-			errno = EFAULT;
+			__set_errno(EFAULT);
 			goto out;
 		}
 	}
@@ -121,12 +120,22 @@ opendir(const char * path_name)
 
 	memset(dh,0,sizeof(*dh));
 
-	NewList(&dh->dh_VolumeList);
-
 	#if defined(UNIX_PATH_SEMANTICS)
 	{
+		struct Node * node;
+
+		NewList((struct List *)&dh->dh_VolumeList);
+
 		if(__unix_path_semantics)
 		{
+			if(path_name[0] == '\0')
+			{
+				SHOWMSG("no name given");
+
+				__set_errno(ENOENT);
+				goto out;
+			}
+
 			if(__translate_unix_to_amiga_path_name(&path_name,&path_name_nti) != 0)
 				goto out;
 
@@ -159,7 +168,7 @@ opendir(const char * path_name)
 						{
 							UnLockDosList(LDF_VOLUMES|LDF_READ);
 
-							errno = ENOMEM;
+							__set_errno(ENOMEM);
 							goto out;
 						}
 
@@ -172,7 +181,7 @@ opendir(const char * path_name)
 						/* Check if the name is already on the list. Mind you,
 						   this is not the most sophisticated algorithm but then
 						   the number of volumes should be small. */
-						if(find_by_name(&dh->dh_VolumeList,node->ln_Name) != NULL)
+						if(find_by_name((struct List *)&dh->dh_VolumeList,node->ln_Name) != NULL)
 						{
 							free(node);
 							continue;
@@ -180,16 +189,16 @@ opendir(const char * path_name)
 
 						D(("adding '%s'",node->ln_Name));
 
-						AddTail(&dh->dh_VolumeList,node);
+						AddTail((struct List *)&dh->dh_VolumeList,node);
 					}
 				}
 
 				UnLockDosList(LDF_VOLUMES|LDF_READ);
 
 				/* Bail out if we cannot present anything. */
-				if(IsListEmpty(&dh->dh_VolumeList))
+				if(IsListEmpty((struct List *)&dh->dh_VolumeList))
 				{
-					errno = ENOMEM;
+					__set_errno(ENOMEM);
 					goto out;
 				}
 			}
@@ -212,7 +221,7 @@ opendir(const char * path_name)
 		{
 			SHOWMSG("couldn't get a lock on it");
 
-			__translate_access_io_error_to_errno(IoErr(),&errno);
+			__set_errno(__translate_access_io_error_to_errno(IoErr()));
 			goto out;
 		}
 
@@ -226,7 +235,7 @@ opendir(const char * path_name)
 		{
 			SHOWMSG("couldn't examine it");
 
-			__translate_io_error_to_errno(IoErr(),&errno);
+			__set_errno(__translate_io_error_to_errno(IoErr()));
 			goto out;
 		}
 
@@ -234,7 +243,7 @@ opendir(const char * path_name)
 		{
 			SHOWMSG("this isn't a directory");
 
-			errno = ENOTDIR;
+			__set_errno(ENOTDIR);
 			goto out;
 		}
 	}
@@ -243,8 +252,12 @@ opendir(const char * path_name)
 
 	assert( __directory_list.mlh_Head != NULL );
 
+	__dirent_lock();
+
 	AddTail((struct List *)&__directory_list,(struct Node *)dh);
 
+	__dirent_unlock();
+
 	result = (DIR *)dh;
 	dh = NULL;
 
@@ -254,8 +267,14 @@ opendir(const char * path_name)
 	{
 		SHOWMSG("ouch. cleaning up");
 
-		while((node = RemHead(&dh->dh_VolumeList)) != NULL)
+		#if defined(UNIX_PATH_SEMANTICS)
+		{
+			struct Node * node;
+
+			while((node = RemHead((struct List *)&dh->dh_VolumeList)) != NULL)
 				free(node);
+		}
+		#endif /* UNIX_PATH_SEMANTICS */
 
 		PROFILE_OFF();
 		UnLock(dh->dh_DirLock);

library/dirent_readdir.c

@@ -1,5 +1,5 @@
 /*
- * $Id: dirent_readdir.c,v 1.4 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: dirent_readdir.c,v 1.8 2005-10-27 08:58:41 obarthel Exp $
  *
  * :ts=4
  *
@@ -61,7 +61,7 @@ readdir(DIR * directory_pointer)
 	{
 		SHOWMSG("ouch. invalid parameter");
 
-		errno = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 
@@ -89,24 +89,25 @@ readdir(DIR * directory_pointer)
 				D_S(struct FileInfoBlock,fib);
 				D_S(struct bcpl_name,bcpl_name);
 				UBYTE * name = bcpl_name->name;
-				struct MsgPort * port;
 				BPTR dir_lock;
 
 				assert( (((ULONG)name) & 3) == 0 );
 
-				if(dh->dh_VolumeNode == NULL && NOT IsListEmpty(&dh->dh_VolumeList))
+				if(dh->dh_VolumeNode == NULL && NOT IsListEmpty((struct List *)&dh->dh_VolumeList))
-					dh->dh_VolumeNode = dh->dh_VolumeList.lh_Head;
+					dh->dh_VolumeNode = (struct Node *)dh->dh_VolumeList.mlh_Head;
 
-				strcpy(name,"\1:"); /* BSTR for ":" */
+				strcpy((char *)name,"\1:"); /* BSTR for ":" */
 
 				while(result == NULL && dh->dh_VolumeNode != NULL && dh->dh_VolumeNode->ln_Succ != NULL)
 				{
 					if(IsFileSystem(dh->dh_VolumeNode->ln_Name))
 					{
-						port = DeviceProc(dh->dh_VolumeNode->ln_Name);
+						struct DevProc * dvp;
-						if(port != NULL)
+
+						dvp = GetDeviceProc(dh->dh_VolumeNode->ln_Name,NULL);
+						if(dvp != NULL)
 						{
-							dir_lock = DoPkt(port,ACTION_LOCATE_OBJECT,ZERO,MKBADDR(name),SHARED_LOCK,	0,0);
+							dir_lock = DoPkt(dvp->dvp_Port,ACTION_LOCATE_OBJECT,ZERO,MKBADDR(name),SHARED_LOCK,	0,0);
 							if(dir_lock != ZERO)
 							{
 								if(Examine(dir_lock,fib))
@@ -122,6 +123,8 @@ readdir(DIR * directory_pointer)
 
 								UnLock(dir_lock);
 							}
+
+							FreeDeviceProc(dvp);
 						}
 					}
 
@@ -161,7 +164,7 @@ readdir(DIR * directory_pointer)
 					{
 						if(CANNOT Examine(parent_directory,fib))
 						{
-							__translate_io_error_to_errno(IoErr(),&errno);
+							__set_errno(__translate_io_error_to_errno(IoErr()));
 							goto out;
 						}
 					}
@@ -203,7 +206,7 @@ readdir(DIR * directory_pointer)
 				{
 					SHOWMSG("error scanning directory");
 
-					__translate_io_error_to_errno(IoErr(),&errno);
+					__set_errno(__translate_io_error_to_errno(IoErr()));
 					goto out;
 				}
 

library/dirent_rewinddir.c

@@ -1,5 +1,5 @@
 /*
- * $Id: dirent_rewinddir.c,v 1.3 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: dirent_rewinddir.c,v 1.4 2005-02-03 16:56:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -76,7 +76,7 @@ rewinddir(DIR * directory_pointer)
 			if(CANNOT Examine(dh->dh_DirLock,&dh->dh_FileInfo))
 			{
 				SHOWMSG("ouch. that didn't work");
-				__translate_io_error_to_errno(IoErr(),&errno);
+				__set_errno(__translate_io_error_to_errno(IoErr()));
 			}
 		}
 	}

library/fcntl_close.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_close.c,v 1.4 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: fcntl_close.c,v 1.12 2005-04-24 08:46:37 obarthel Exp $
  *
  * :ts=4
  *
@@ -42,20 +42,16 @@
 /****************************************************************************/
 
 int
-__close(int file_descriptor,int * error_ptr)
+close(int file_descriptor)
 {
-	DECLARE_UTILITYBASE();
+	struct file_action_message fam;
 	struct fd * fd;
-	int result = -1;
+	int result = ERROR;
-	BOOL no_close;
 
 	ENTER();
 
 	SHOWVALUE(file_descriptor);
 
-	assert( UtilityBase != NULL );
-
-	assert( error_ptr != NULL );
 	assert( file_descriptor >= 0 && file_descriptor < __num_fd );
 	assert( __fd[file_descriptor] != NULL );
 	assert( FLAG_IS_SET(__fd[file_descriptor]->fd_Flags,FDF_IN_USE) );
@@ -63,117 +59,29 @@ __close(int file_descriptor,int * error_ptr)
 	if(__check_abort_enabled)
 		__check_abort();
 
-	fd = __get_file_descriptor(file_descriptor);
+	/* We want to affect this very file descriptor and not the
+	   original one associated with an alias of it. */
+	fd = __get_file_descriptor_dont_resolve(file_descriptor);
 	if(fd == NULL)
 	{
-		(*error_ptr) = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 
-	result = 0;
+	fam.fam_Action = file_action_close;
 
-	SHOWMSG("last customer; cleaning up");
+	assert( fd->fd_Action != NULL );
 
-	if(fd->fd_Original != NULL) /* this is an alias */
+	if((*fd->fd_Action)(fd,&fam) < 0)
 	{
-		struct fd * list_fd;
+		__set_errno(fam.fam_Error);
-
+		goto out;
-		SHOWMSG("taking out the alias");
-
-		assert( fd->fd_Original != fd );
-		assert( fd->fd_Original->fd_Original == NULL );
-
-		/* Remove this alias from the list. */
-		for(list_fd = fd->fd_Original ;
-		    list_fd != NULL ;
-		    list_fd = list_fd->fd_NextLink)
-		{
-			if(list_fd->fd_NextLink == fd)
-			{
-				list_fd->fd_NextLink = fd->fd_NextLink;
-				break;
-			}
 	}
 
-		no_close = TRUE;
+	result = OK;
-	}
-	else if (fd->fd_NextLink != NULL) /* this one has aliases attached; it is the 'original' resource */
-	{
-		struct fd * first_alias;
-		struct fd * list_fd;
-
-		SHOWMSG("closing original descriptor; migrating it to first alias");
-
-		/* The first link now becomes the original resource */
-		first_alias = fd->fd_NextLink;
-		first_alias->fd_Original = NULL;
-
-		/* The resources are migrated to the first link. */
-		for(list_fd = first_alias->fd_NextLink ;
-		    list_fd != NULL ;
-		    list_fd = list_fd->fd_NextLink)
-		{
-			list_fd->fd_Original = first_alias;
-		}
-
-		no_close = TRUE;
-	}
-	else
-	{
-		no_close = FLAG_IS_SET(fd->fd_Flags,FDF_NO_CLOSE);
-	}
-
-	(*error_ptr) = OK;
-
-	if(NOT no_close)
-	{
-		struct file_hook_message message;
-
-		/* Reset the console to regular buffered input. */
-		if(FLAG_IS_SET(fd->fd_Flags,FDF_NON_BLOCKING))
-		{
-			SHOWMSG("resetting non-blocking access mode");
-
-			message.action	= file_hook_action_set_blocking;
-			message.arg		= 1;
-
-			assert( fd->fd_Hook != NULL );
-
-			CallHookPkt(fd->fd_Hook,fd,&message);
-		}
-
-		SHOWMSG("shutting down");
-
-		message.action = file_hook_action_close;
-
-		assert( fd->fd_Hook != NULL );
-
-		CallHookPkt(fd->fd_Hook,fd,&message);
-
-		result = message.result;
-
-		(*error_ptr) = message.error;
-	}
-
-	memset(fd,0,sizeof(*fd));
 
  out:
 
 	RETURN(result);
 	return(result);
 }
-
-/****************************************************************************/
-
-int
-close(int file_descriptor)
-{
-	int result;
-
-	ENTER();
-
-	result = __close(file_descriptor,&errno);
-
-	RETURN(result);
-	return(result);
-}

library/fcntl_creat.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_creat.c,v 1.3 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: fcntl_creat.c,v 1.5 2005-04-24 08:46:37 obarthel Exp $
  *
  * :ts=4
  *
@@ -50,7 +50,7 @@
 int
 creat(const char * path_name, mode_t mode)
 {
-	int result = -1;
+	int result = ERROR;
 
 	ENTER();
 
@@ -66,7 +66,7 @@ creat(const char * path_name, mode_t mode)
 	{
 		if(path_name == NULL)
 		{
-			errno = EFAULT;
+			__set_errno(EFAULT);
 			goto out;
 		}
 	}

library/fcntl_fcntl.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_fcntl.c,v 1.5 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: fcntl_fcntl.c,v 1.18 2005-05-27 13:19:30 obarthel Exp $
  *
  * :ts=4
  *
@@ -44,12 +44,13 @@
 int
 fcntl(int file_descriptor, int cmd, ... /* int arg */ )
 {
-	DECLARE_UTILITYBASE();
+	struct file_action_message fam;
-	struct file_hook_message message;
 	struct flock * l;
-	int result = -1;
+	int vacant_slot;
-	struct fd * fd;
+	int result = ERROR;
+	struct fd * fd = NULL;
 	va_list arg;
+	int error;
 	int flags;
 	int fdbase;
 	int i;
@@ -59,8 +60,6 @@ fcntl(int file_descriptor, int cmd, ... /* int arg */ )
 	SHOWVALUE(file_descriptor);
 	SHOWVALUE(cmd);
 
-	assert( UtilityBase != NULL );
-
 	assert( file_descriptor >= 0 && file_descriptor < __num_fd );
 	assert( __fd[file_descriptor] != NULL );
 	assert( FLAG_IS_SET(__fd[file_descriptor]->fd_Flags,FDF_IN_USE) );
@@ -68,100 +67,116 @@ fcntl(int file_descriptor, int cmd, ... /* int arg */ )
 	if(__check_abort_enabled)
 		__check_abort();
 
+	/* F_DUPFD will need to modify the file descriptor table, which is why
+	   the stdio lock needs to be obtained here, before the individual
+	   file descriptor lock is held. */
+	if(cmd == F_DUPFD)
+		__stdio_lock();
+
 	fd = __get_file_descriptor(file_descriptor);
 	if(fd == NULL)
 	{
-		errno = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 
+	__fd_lock(fd);
+
 	switch(cmd)
 	{
+#if defined(UNIX_PATH_SEMANTICS)
 		case F_GETLK:
 		case F_SETLK:
 		case F_SETLKW:
 
 			SHOWMSG("cmd=F_GETLK/F_SETLK/F_SETLKW");
 
-			va_start(arg,cmd);
+			if(FLAG_IS_SET(fd->fd_Flags,FDF_IS_SOCKET))
+			{
+				__set_errno(EINVAL);
+				goto out;
+			}
 
+			if(fd->fd_DefaultFile == ZERO)
+			{
+				__set_errno(EBADF);
+				goto out;
+			}
+
+			va_start(arg,cmd);
 			l = va_arg(arg,struct flock *);
+			va_end(arg);
 
 			assert( l != NULL );
 
 			if(l->l_type < F_RDLCK || l->l_type > F_WRLCK)
 			{
 				SHOWMSG("invalid flock type");
-				va_end(arg);
 
-				errno = EINVAL;
+				__set_errno(EINVAL);
 				break;
 			}
 
 			if(l->l_whence < SEEK_SET || l->l_whence > SEEK_END)
 			{
 				SHOWMSG("invalid flock offset");
-				va_end(arg);
 
-				errno = EINVAL;
+				__set_errno(EINVAL);
 				break;
 			}
 
-			message.action	= file_hook_action_lock_record;
+			if(__handle_record_locking(cmd,l,fd,&error) < 0)
-			message.lock	= l;
+			{
-			message.command	= cmd;
+				__set_errno(error);
+				goto out;
+			}
 
-			assert( fd->fd_Hook != NULL );
+			result = OK;
-
-			CallHookPkt(fd->fd_Hook,fd,&message);
-
-			result = message.result;
-			errno = message.error;
-
-			va_end(arg);
 
 			break;
+#endif /* UNIX_PATH_SEMANTICS */
 
 		case F_GETFL:
 
 			SHOWMSG("cmd=F_GETFL");
 
-			result = 0;
-
 			if(FLAG_IS_SET(fd->fd_Flags,FDF_NON_BLOCKING))
 				SET_FLAG(result,O_NONBLOCK);
 
 			if(FLAG_IS_SET(fd->fd_Flags,FDF_ASYNC_IO))
 				SET_FLAG(result,O_ASYNC);
 
+			result = OK;
+
 			break;
 
 		case F_SETFL:
 
 			SHOWMSG("cmd=F_SETFL");
 
-			result = 0;
+			/* If this is a file, make sure that we don't hit a zero file handle. */
+			if(FLAG_IS_CLEAR(fd->fd_Flags,FDF_IS_SOCKET) && fd->fd_DefaultFile == ZERO)
+			{
+				__set_errno(EBADF);
+				goto out;
+			}
 
 			va_start(arg,cmd);
-
 			flags = va_arg(arg,int);
+			va_end(arg);
 
 			if((FLAG_IS_SET(flags,O_NONBLOCK) && FLAG_IS_CLEAR(fd->fd_Flags,FDF_NON_BLOCKING)) ||
 			   (FLAG_IS_CLEAR(flags,O_NONBLOCK) && FLAG_IS_SET(fd->fd_Flags,FDF_NON_BLOCKING)))
 			{
-				message.action	= file_hook_action_set_blocking;
+				fam.fam_Action	= file_action_set_blocking;
-				message.arg		= FLAG_IS_CLEAR(flags,O_NONBLOCK);
+				fam.fam_Arg		= FLAG_IS_CLEAR(flags,O_NONBLOCK);
 
-				assert( fd->fd_Hook != NULL );
+				assert( fd->fd_Action != NULL );
 
-				CallHookPkt(fd->fd_Hook,fd,&message);
+				if((*fd->fd_Action)(fd,&fam) < 0)
-
-				result = message.result;
-				if(result < 0)
 				{
-					errno = message.error;
+					__set_errno(fam.fam_Error);
 
-					va_end(arg);
 					goto out;
 				}
 
@@ -174,19 +189,15 @@ fcntl(int file_descriptor, int cmd, ... /* int arg */ )
 			if((FLAG_IS_SET(flags,O_ASYNC) && FLAG_IS_CLEAR(fd->fd_Flags,FDF_ASYNC_IO)) ||
 			   (FLAG_IS_CLEAR(flags,O_ASYNC) && FLAG_IS_SET(fd->fd_Flags,FDF_ASYNC_IO)))
 			{
-				message.action	= file_hook_action_set_async;
+				fam.fam_Action	= file_action_set_async;
-				message.arg		= FLAG_IS_SET(flags,O_ASYNC);
+				fam.fam_Arg		= FLAG_IS_SET(flags,O_ASYNC);
 
-				assert( fd->fd_Hook != NULL );
+				assert( fd->fd_Action != NULL );
 
-				CallHookPkt(fd->fd_Hook,fd,&message);
+				if((*fd->fd_Action)(fd,&fam) < 0)
-
-				result = message.result;
-				if(result < 0)
 				{
-					errno = message.error;
+					__set_errno(fam.fam_Error);
 
-					va_end(arg);
 					goto out;
 				}
 
@@ -196,7 +207,7 @@ fcntl(int file_descriptor, int cmd, ... /* int arg */ )
 					CLEAR_FLAG(fd->fd_Flags,FDF_ASYNC_IO);
 			}
 
-			va_end(arg);
+			result = OK;
 
 			break;
 
@@ -210,66 +221,64 @@ fcntl(int file_descriptor, int cmd, ... /* int arg */ )
 
 			if(fdbase < 0)
 			{
-				errno = EINVAL;
+				__set_errno(EINVAL);
 				goto out;
 			}
 
-			/* Check if we have that many fd's already */
+			/* Make sure that we have the required number of file
-			while(fdbase >= __num_fd)
+			   descriptors available. */
-			{
+			if(__grow_fd_table(fdbase + 1) < 0)
-				if(__check_abort_enabled)
-					__check_abort();
-
-				/* No; enlarge it */
-				if(__grow_fd_table() < 0)
 				goto out;
-			}
+
+			vacant_slot = -1;
 
 			/* Guaranteed to have enough here */
-			while(TRUE)
+			do
 			{
+				__stdio_unlock();
+
 				if(__check_abort_enabled)
 					__check_abort();
 
+				__stdio_lock();
+
 				for(i = fdbase ; i < __num_fd ; i++)
 				{
 					if(FLAG_IS_CLEAR(__fd[i]->fd_Flags,FDF_IN_USE))
 					{
-						/* Got a file descriptor, duplicate it */
+						vacant_slot = i;
-						message.action = file_hook_action_duplicate_fd;
+						break;
-						message.duplicate_fd = __fd[i];
-
-						assert( fd->fd_Hook != NULL );
-
-						CallHookPkt(fd->fd_Hook,fd,&message);
-
-						/* If it worked, leave */
-						if (message.result == 0)
-						{
-							result = i;
-							goto out;
-						}
 					}
 				}
 
 				/* Didn't really find any, grow the table further */
-				if (__grow_fd_table() < 0)
+				if(vacant_slot < 0 && __grow_fd_table(0) < 0)
 					goto out;
 			}
+			while(vacant_slot < 0);
+
+			/* Got a file descriptor, duplicate it */
+			__duplicate_fd(__fd[vacant_slot],fd);
+
+			result = vacant_slot;
 
-			errno = EMFILE;
 			break;
 
 		default:
 
 			SHOWMSG("something else");
 
-			errno = ENOSYS;
+			__set_errno(ENOSYS);
 			break;
 	}
 
  out:
 
+	__fd_unlock(fd);
+
+	if(cmd == F_DUPFD)
+		__stdio_unlock();
+
 	RETURN(result);
 	return(result);
 }

library/fcntl_get_default_file.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_get_default_file.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: fcntl_get_default_file.c,v 1.4 2005-04-24 08:46:37 obarthel Exp $
  *
  * :ts=4
  *
@@ -45,7 +45,7 @@ int
 __get_default_file(int file_descriptor,long * file_ptr)
 {
 	struct fd * fd;
-	int result = -1;
+	int result = ERROR;
 
 	assert( file_descriptor >= 0 && file_descriptor < __num_fd );
 	assert( __fd[file_descriptor] != NULL );
@@ -55,7 +55,7 @@ __get_default_file(int file_descriptor,long * file_ptr)
 	fd = __get_file_descriptor(file_descriptor);
 	if(fd == NULL)
 	{
-		errno = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 

library/fcntl_headers.h

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_headers.h,v 1.2 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: fcntl_headers.h,v 1.4 2005-03-18 12:38:22 obarthel Exp $
  *
  * :ts=4
  *
@@ -42,4 +42,16 @@
 
 /****************************************************************************/
 
+#ifndef _STDLIB_HEADERS_H
+#include "stdlib_headers.h"
+#endif /* _STDLIB_HEADERS_H */
+
+/****************************************************************************/
+
+#ifndef _STDLIB_PROFILE_H
+#include "stdlib_profile.h"
+#endif /* _STDLIB_PROFILE_H */
+
+/****************************************************************************/
+
 #endif /* _FCNTL_HEADERS_H */

library/fcntl_lock.c

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

library/fcntl_lseek.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_lseek.c,v 1.3 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: fcntl_lseek.c,v 1.10 2005-07-06 18:48:53 obarthel Exp $
  *
  * :ts=4
  *
@@ -42,12 +42,12 @@
 /****************************************************************************/
 
 off_t
-__lseek(int file_descriptor, off_t offset, int mode, int * error_ptr)
+lseek(int file_descriptor, off_t offset, int mode)
 {
-	DECLARE_UTILITYBASE();
+	struct file_action_message fam;
-	struct file_hook_message message;
+	off_t result = SEEK_ERROR;
-	off_t result = -1;
+	struct fd * fd = NULL;
-	struct fd * fd;
+	off_t position;
 
 	ENTER();
 
@@ -55,9 +55,6 @@ __lseek(int file_descriptor, off_t offset, int mode, int * error_ptr)
 	SHOWVALUE(offset);
 	SHOWVALUE(mode);
 
-	assert( UtilityBase != NULL );
-
-	assert( error_ptr != NULL );
 	assert( file_descriptor >= 0 && file_descriptor < __num_fd );
 	assert( __fd[file_descriptor] != NULL );
 	assert( FLAG_IS_SET(__fd[file_descriptor]->fd_Flags,FDF_IN_USE) );
@@ -65,60 +62,55 @@ __lseek(int file_descriptor, off_t offset, int mode, int * error_ptr)
 	if(__check_abort_enabled)
 		__check_abort();
 
+	__stdio_lock();
+
 	fd = __get_file_descriptor(file_descriptor);
 	if(fd == NULL)
 	{
-		(*error_ptr) = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 
+	__fd_lock(fd);
+
 	if(mode < SEEK_SET || mode > SEEK_END)
 	{
 		SHOWMSG("seek mode is invalid");
 
-		(*error_ptr) = EINVAL;
+		__set_errno(EINVAL);
 		goto out;
 	}
 
-	SHOWMSG("calling the hook");
+	fam.fam_Action	= file_action_seek;
+	fam.fam_Offset	= offset;
+	fam.fam_Mode	= mode;
 
-	#if defined(UNIX_PATH_SEMANTICS)
+	assert( fd->fd_Action != NULL );
+
+	/* Note that a return value of -1 (= SEEK_ERROR) may be a
+	   valid file position in files larger than 2 GBytes. Just
+	   to be sure, we therefore also check the secondary error
+	   to verify that what could be a file position is really
+	   an error indication. */
+	position = (*fd->fd_Action)(fd,&fam);
+	if(position == SEEK_ERROR && fam.fam_Error != OK)
 	{
-		message.action = file_hook_action_seek_and_extend;
+		__set_errno(fam.fam_Error);
+		goto out;
 	}
-	#else
-	{
-		message.action = file_hook_action_seek;
-	}
-	#endif /* UNIX_PATH_SEMANTICS */
 
-	message.position	= offset;
+	/* If this is a valid file position, clear 'errno' so that
-	message.mode		= mode;
+	   it cannot be mistaken for an error. */
+	if(position < 0)
+		__set_errno(OK);
 
-	assert( fd->fd_Hook != NULL );
+	result = position;
-
-	CallHookPkt(fd->fd_Hook,fd,&message);
-
-	(*error_ptr) = message.error;
-
-	result = message.result;
 
  out:
 
-	RETURN(result);
+	__fd_unlock(fd);
-	return(result);
-}
 
-/****************************************************************************/
+	__stdio_unlock();
-
-off_t
-lseek(int file_descriptor, off_t offset, int mode)
-{
-	off_t result;
-
-	ENTER();
-
-	result = __lseek(file_descriptor,offset,mode,&errno);
 
 	RETURN(result);
 	return(result);

library/fcntl_open.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_open.c,v 1.4 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: fcntl_open.c,v 1.17 2005-08-26 12:39:33 obarthel Exp $
  *
  * :ts=4
  *
@@ -37,22 +37,55 @@
 
 /****************************************************************************/
 
-#ifndef _STDLIB_MEM_DEBUG_H
-#include "stdlib_mem_debug.h"
-#endif /* _STDLIB_MEM_DEBUG_H */
-
-/****************************************************************************/
-
 #ifndef _FCNTL_HEADERS_H
 #include "fcntl_headers.h"
 #endif /* _FCNTL_HEADERS_H */
 
 /****************************************************************************/
 
+#ifndef _STDLIB_MEMORY_H
+#include "stdlib_memory.h"
+#endif /* _STDLIB_MEMORY_H */
+
+/****************************************************************************/
+
 /* The following is not part of the ISO 'C' (1994) standard. */
 
 /****************************************************************************/
 
+/* This is used in place of ChangeMode() in order to work around a bug in
+   dos.library V40 and below: a "NIL:" file handle will crash the
+   caller of the ChangeMode() function. */
+STATIC LONG
+safe_change_mode(LONG type,BPTR file_handle,LONG mode)
+{
+	LONG result = DOSFALSE;
+
+	#ifndef __amigaos4__
+	{
+		struct FileHandle * fh = (struct FileHandle *)BADDR(file_handle);
+
+		assert( type == CHANGE_FH );
+
+		if(fh == NULL || fh->fh_Type == NULL)
+		{
+			SetIoErr(ERROR_OBJECT_WRONG_TYPE);
+			goto out;
+		}
+	}
+	#endif /* __amigaos4__ */
+
+	PROFILE_OFF();
+	result = ChangeMode(type,file_handle,mode);
+	PROFILE_ON();
+
+ out:
+
+	return(result);
+}
+
+/****************************************************************************/
+
 int
 open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 {
@@ -61,17 +94,17 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 	struct name_translation_info path_name_nti;
 	#endif /* UNIX_PATH_SEMANTICS */
 	D_S(struct FileInfoBlock,fib);
+	struct SignalSemaphore * fd_lock;
 	LONG is_file_system = FALSE;
 	LONG open_mode;
 	BPTR lock = ZERO;
-	struct FileHandle * file_handle;
 	BPTR handle = ZERO;
 	BOOL create_new_file = FALSE;
-	LONG is_interactive = FALSE;
+	LONG is_interactive;
 	int fd_slot_number;
 	struct fd * fd;
 	int access_mode;
-	int result = -1;
+	int result = ERROR;
 	int i;
 
 	ENTER();
@@ -85,13 +118,15 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 	if(__check_abort_enabled)
 		__check_abort();
 
+	__stdio_lock();
+
 	#if defined(CHECK_FOR_NULL_POINTERS)
 	{
 		if(path_name == NULL)
 		{
 			SHOWMSG("path name is invalid");
 
-			errno = EFAULT;
+			__set_errno(EFAULT);
 			goto out;
 		}
 	}
@@ -102,14 +137,14 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 	{
 		SHOWMSG("access mode is invalid");
 
-		errno = EINVAL;
+		__set_errno(EINVAL);
 		goto out;
 	}
 
 	fd_slot_number = __find_vacant_fd_entry();
 	if(fd_slot_number < 0)
 	{
-		if(__grow_fd_table() < 0)
+		if(__grow_fd_table(0) < 0)
 		{
 			SHOWMSG("couldn't find a vacant file descriptor, and couldn't allocate one either");
 			goto out;
@@ -123,12 +158,20 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 	{
 		if(__unix_path_semantics)
 		{
+			if(path_name[0] == '\0')
+			{
+				SHOWMSG("no name given");
+
+				__set_errno(ENOENT);
+				goto out;
+			}
+
 			if(__translate_unix_to_amiga_path_name(&path_name,&path_name_nti) != 0)
 				goto out;
 
 			if(path_name_nti.is_root)
 			{
-				errno = EACCES;
+				__set_errno(EACCES);
 				goto out;
 			}
 		}
@@ -155,7 +198,7 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 			{
 				SHOWMSG("the file already exists");
 
-				errno = EEXIST;
+				__set_errno(EEXIST);
 				goto out;
 			}
 
@@ -165,14 +208,14 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 			{
 				SHOWMSG("there's something not a directory on the path");
 
-				errno = ENOTDIR;
+				__set_errno(ENOTDIR);
 				goto out;
 			}
 			else if (error != ERROR_OBJECT_NOT_FOUND && error != ERROR_ACTION_NOT_KNOWN)
 			{
 				SHOWMSG("error accessing the object");
 
-				__translate_io_error_to_errno(IoErr(),&errno);
+				__set_errno(__translate_io_error_to_errno(IoErr()));
 				goto out;
 			}
 
@@ -201,7 +244,7 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 				{
 					SHOWMSG("could not examine the object");
 
-					__translate_io_error_to_errno(IoErr(),&errno);
+					__set_errno(__translate_io_error_to_errno(IoErr()));
 					goto out;
 				}
 
@@ -210,7 +253,7 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 				{
 					SHOWMSG("can't open a directory");
 
-					errno = EISDIR;
+					__set_errno(EISDIR);
 					goto out;
 				}
 
@@ -219,7 +262,7 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 				{
 					SHOWMSG("this object is not write enabled");
 
-					errno = EACCES;
+					__set_errno(EACCES);
 					goto out;
 				}
 
@@ -242,14 +285,14 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 				{
 					SHOWMSG("there's something not a directory on the path");
 
-					errno = ENOTDIR;
+					__set_errno(ENOTDIR);
 					goto out;
 				}
 				else if (error != ERROR_OBJECT_NOT_FOUND && error != ERROR_ACTION_NOT_KNOWN)
 				{
 					SHOWMSG("error accessing the object");
 
-					__translate_io_error_to_errno(IoErr(),&errno);
+					__set_errno(__translate_io_error_to_errno(IoErr()));
 					goto out;
 				}
 			}
@@ -273,7 +316,7 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 		LONG io_err = IoErr();
 
 		D(("the file '%s' didn't open in mode %ld",path_name,open_mode));
-		__translate_access_io_error_to_errno(IoErr(),&errno);
+		__set_errno(__translate_access_io_error_to_errno(io_err));
 
 		/* Check if ended up trying to open a directory as if
 		   it were a plain file. */
@@ -285,7 +328,7 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 			if(lock != ZERO)
 			{
 				if(Examine(lock,fib) && fib->fib_DirEntryType >= 0)
-					errno = EISDIR;
+					__set_errno(EISDIR);
 			}
 
 			PROFILE_ON();
@@ -294,60 +337,28 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 		goto out;
 	}
 
-	file_handle = BADDR(handle);
+	#if defined(__THREAD_SAFE)
-
-	/* NOTE: workaround for a bug in dos.library V40 and below which will
-	 *       crash the caller if the file handle refers to "NIL:".
-	 */
-	if(file_handle->fh_Type != NULL)
 	{
-		LONG status;
+		fd_lock = __create_semaphore();
-
+		if(fd_lock == NULL)
-		PROFILE_OFF();
-		status = ExamineFH(handle,fib);
-		PROFILE_ON();
-
-		if(status != DOSFALSE)
 		{
-			BOOL operation_permitted = TRUE;
+			__set_errno(ENOMEM);
-
-			/* Check if the file is readable. */
-			if(FLAG_IS_SET(fib->fib_Protection,FIBF_READ))
-			{
-				if(access_mode == O_RDONLY ||
-				   access_mode == O_RDWR)
-				{
-					operation_permitted = FALSE;
-				}
-			}
-
-			/* Check if the file can be written to. */
-			if(FLAG_IS_SET(fib->fib_Protection,FIBF_WRITE))
-			{
-				if(access_mode == O_WRONLY)
-					operation_permitted = FALSE;
-			}
-
-			if(NOT operation_permitted)
-			{
-				SHOWMSG("this object must not be opened");
-
-				errno = EACCES;
 			goto out;
 		}
 	}
+	#else
+	{
+		fd_lock = NULL;
 	}
+	#endif /* __THREAD_SAFE */
 
 	fd = __fd[fd_slot_number];
 
-	__initialize_fd(fd,(HOOKFUNC)__fd_hook_entry,handle,0);
+	__initialize_fd(fd,__fd_hook_entry,handle,0,fd_lock);
 
 	/* Figure out if this stream is attached to a console. */
 	PROFILE_OFF();
-
-	if(file_handle->fh_Type != NULL)
 	is_interactive = IsInteractive(handle);
-
 	PROFILE_ON();
 
 	if(is_interactive)
@@ -358,7 +369,7 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 		{
 			SHOWMSG("enabling non-blocking mode");
 
-			if(SetMode(handle,1)) /* single character mode */
+			if(SetMode(handle,DOSTRUE)) /* single character mode */
 				SET_FLAG(fd->fd_Flags,FDF_NON_BLOCKING);
 		}
 	}
@@ -368,7 +379,7 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 
 		len = 0;
 
-		for(i = 0 ; i < (int)strlen(path_name) ; i++)
+		for(i = 0 ; path_name[i] != '\0' ; i++)
 		{
 			if(path_name[i] == ':')
 			{
@@ -402,22 +413,12 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 		}
 
 		if(is_file_system)
-		{
-			/* NOTE: workaround for a bug in dos.library V40 and below which will
-			 *       crash the caller if the file handle refers to "NIL:".
-			 */
-			if(file_handle->fh_Type != NULL)
 		{
 			/* We opened the file in exclusive access mode. Switch it back
 			   into shared access mode so that its contents can be read
 			   while it's still open. */
 			if(open_mode == MODE_NEWFILE)
-				{
+				safe_change_mode(CHANGE_FH,handle,SHARED_LOCK);
-					PROFILE_OFF();
-					ChangeMode(CHANGE_FH,handle,SHARED_LOCK);
-					PROFILE_ON();
-				}
-			}
 
 			/* We should be able to seek in this file. */
 			SET_FLAG(fd->fd_Flags,FDF_CACHE_POSITION);
@@ -463,7 +464,7 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 
 	handle = ZERO;
 
-	assert( result != -1 );
+	assert( result != ERROR );
 
  out:
 
@@ -474,6 +475,8 @@ open(const char *path_name, int open_flag, ... /* mode_t mode */ )
 
 	UnLock(lock);
 
+	__stdio_unlock();
+
 	PROFILE_ON();
 
 	RETURN(result);

library/fcntl_read.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_read.c,v 1.3 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: fcntl_read.c,v 1.9 2005-07-06 18:48:53 obarthel Exp $
  *
  * :ts=4
  *
@@ -48,11 +48,11 @@
 /****************************************************************************/
 
 ssize_t
-__read(int file_descriptor, void * buffer, size_t num_bytes, int * error_ptr)
+read(int file_descriptor, void * buffer, size_t num_bytes)
 {
-	DECLARE_UTILITYBASE();
+	ssize_t num_bytes_read;
-	struct fd * fd;
+	struct fd * fd = NULL;
-	off_t result = -1;
+	ssize_t result = EOF;
 
 	ENTER();
 
@@ -60,10 +60,13 @@ __read(int file_descriptor, void * buffer, size_t num_bytes, int * error_ptr)
 	SHOWPOINTER(buffer);
 	SHOWVALUE(num_bytes);
 
-	assert( error_ptr != NULL );
 	assert( buffer != NULL );
 	assert( (int)num_bytes >= 0);
-	assert( UtilityBase != NULL );
+
+	if(__check_abort_enabled)
+		__check_abort();
+
+	__stdio_lock();
 
 	#if defined(CHECK_FOR_NULL_POINTERS)
 	{
@@ -71,7 +74,7 @@ __read(int file_descriptor, void * buffer, size_t num_bytes, int * error_ptr)
 		{
 			SHOWMSG("invalid buffer");
 
-			(*error_ptr) = EFAULT;
+			__set_errno(EFAULT);
 			goto out;
 		}
 	}
@@ -81,65 +84,54 @@ __read(int file_descriptor, void * buffer, size_t num_bytes, int * error_ptr)
 	assert( __fd[file_descriptor] != NULL );
 	assert( FLAG_IS_SET(__fd[file_descriptor]->fd_Flags,FDF_IN_USE) );
 
-	if(__check_abort_enabled)
-		__check_abort();
-
 	fd = __get_file_descriptor(file_descriptor);
 	if(fd == NULL)
 	{
-		(*error_ptr) = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 
+	__fd_lock(fd);
+
 	if(FLAG_IS_CLEAR(fd->fd_Flags,FDF_READ))
 	{
 		SHOWMSG("this descriptor is not read-enabled");
 
-		(*error_ptr) = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 
 	if(num_bytes > 0)
 	{
-		struct file_hook_message message;
+		struct file_action_message fam;
 
 		SHOWMSG("calling the hook");
 
-		message.action	= file_hook_action_read;
+		fam.fam_Action	= file_action_read;
-		message.data	= buffer;
+		fam.fam_Data	= buffer;
-		message.size	= num_bytes;
+		fam.fam_Size	= num_bytes;
 
-		assert( fd->fd_Hook != NULL );
+		assert( fd->fd_Action != NULL );
 
-		CallHookPkt(fd->fd_Hook,fd,&message);
+		num_bytes_read = (*fd->fd_Action)(fd,&fam);
-
+		if(num_bytes_read == EOF)
-		(*error_ptr) = message.error;
+		{
-
+			__set_errno(fam.fam_Error);
-		result = message.result;
+			goto out;
+		}
 	}
 	else
 	{
-		(*error_ptr) = 0;
+		num_bytes_read = 0;
-
-		result = 0;
 	}
 
+	result = num_bytes_read;
+
  out:
 
-	RETURN(result);
+	__fd_unlock(fd);
-	return(result);
-}
 
-/****************************************************************************/
+	__stdio_unlock();
-
-ssize_t
-read(int file_descriptor, void * buffer, size_t num_bytes)
-{
-	ssize_t result;
-
-	ENTER();
-
-	result = __read(file_descriptor,buffer,num_bytes,&errno);
 
 	RETURN(result);
 	return(result);

library/fcntl_write.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_write.c,v 1.3 2005-01-02 09:07:07 obarthel Exp $
+ * $Id: fcntl_write.c,v 1.9 2005-07-06 18:48:53 obarthel Exp $
  *
  * :ts=4
  *
@@ -48,11 +48,11 @@
 /****************************************************************************/
 
 ssize_t
-__write(int file_descriptor, const void * buffer, size_t num_bytes, int * error_ptr)
+write(int file_descriptor, const void * buffer, size_t num_bytes)
 {
-	DECLARE_UTILITYBASE();
+	ssize_t num_bytes_written;
-	struct fd * fd;
+	struct fd * fd = NULL;
-	off_t result = -1;
+	ssize_t result = EOF;
 
 	ENTER();
 
@@ -60,10 +60,13 @@ __write(int file_descriptor, const void * buffer, size_t num_bytes, int * error_
 	SHOWPOINTER(buffer);
 	SHOWVALUE(num_bytes);
 
-	assert( error_ptr != NULL );
 	assert( buffer != NULL );
 	assert( (int)num_bytes >= 0 );
-	assert( UtilityBase != NULL );
+
+	if(__check_abort_enabled)
+		__check_abort();
+
+	__stdio_lock();
 
 	#if defined(CHECK_FOR_NULL_POINTERS)
 	{
@@ -71,7 +74,7 @@ __write(int file_descriptor, const void * buffer, size_t num_bytes, int * error_
 		{
 			SHOWMSG("invalid buffer address");
 
-			(*error_ptr) = EFAULT;
+			__set_errno(EFAULT);
 			goto out;
 		}
 	}
@@ -81,65 +84,54 @@ __write(int file_descriptor, const void * buffer, size_t num_bytes, int * error_
 	assert( __fd[file_descriptor] != NULL );
 	assert( FLAG_IS_SET(__fd[file_descriptor]->fd_Flags,FDF_IN_USE) );
 
-	if(__check_abort_enabled)
-		__check_abort();
-
 	fd = __get_file_descriptor(file_descriptor);
 	if(fd == NULL)
 	{
-		(*error_ptr) = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 
+	__fd_lock(fd);
+
 	if(FLAG_IS_CLEAR(fd->fd_Flags,FDF_WRITE))
 	{
 		SHOWMSG("file descriptor is not write-enabled");
 
-		(*error_ptr) = EBADF;
+		__set_errno(EBADF);
 		goto out;
 	}
 
 	if(num_bytes > 0)
 	{
-		struct file_hook_message message;
+		struct file_action_message fam;
 
 		SHOWMSG("calling the hook");
 
-		message.action	= file_hook_action_write;
+		fam.fam_Action	= file_action_write;
-		message.data	= (void *)buffer;
+		fam.fam_Data	= (void *)buffer;
-		message.size	= num_bytes;
+		fam.fam_Size	= num_bytes;
 
-		assert( fd->fd_Hook != NULL );
+		assert( fd->fd_Action != NULL );
 
-		CallHookPkt(fd->fd_Hook,fd,&message);
+		num_bytes_written = (*fd->fd_Action)(fd,&fam);
-
+		if(num_bytes_written == EOF)
-		(*error_ptr) = message.error;
+		{
-
+			__set_errno(fam.fam_Error);
-		result = message.result;
+			goto out;
+		}
 	}
 	else
 	{
-		(*error_ptr) = 0;
+		num_bytes_written = 0;
-
-		result = 0;
 	}
 
+	result = num_bytes_written;
+
  out:
 
-	RETURN(result);
+	__fd_unlock(fd);
-	return(result);
-}
 
-/****************************************************************************/
+	__stdio_unlock();
-
-ssize_t
-write(int file_descriptor, const void * buffer, size_t num_bytes)
-{
-	ssize_t result;
-
-	ENTER();
-
-	result = __write(file_descriptor,buffer,num_bytes,&errno);
 
 	RETURN(result);
 	return(result);

library/ftw_ftw.c

@@ -0,0 +1,222 @@
+/*
+ * $Id: ftw_ftw.c,v 1.4 2005-04-24 08:46:37 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+/*
+ * This ftw() implementation builds heavily on existing functionality and could certainly
+ * be made more efficient (e.g. by combining  walk & stat using ExAll()/ExNext()) but this
+ * way the Unix pathname translation is free.
+ */
+
+/****************************************************************************/
+
+#ifndef	_FTW_HEADERS_H
+#include "ftw_headers.h"
+#endif /* _FTW_HEADERS_H */
+
+/****************************************************************************/
+
+static int
+walk(const char *path,int (*func)(const char *,const struct stat *,int),int depth,int level)
+{
+	int result = OK;
+	DIR *dp;
+	struct dirent *de;
+	struct stat st;
+	char *next_name;
+	int type;
+	int old_length;
+	int errtmp;
+
+	ENTER();
+
+	SHOWSTRING(path);
+	SHOWPOINTER(func);
+	SHOWVALUE(depth);
+	SHOWVALUE(level);
+
+	if(__check_abort_enabled)
+		__check_abort();
+
+	if(level > depth)
+		goto out;
+
+	if(stat(path,&st) == OK)
+	{
+		if (S_ISDIR(st.st_mode))
+		{
+			if(FLAG_IS_SET(st.st_mode,S_IRUSR))
+				type = FTW_D;	/* Directory */
+			else
+				type = FTW_DNR;	/* Directory No Read-permission */
+		}
+		else if (S_ISREG(st.st_mode))
+		{
+			type = FTW_F; /* File */
+		}
+		else
+		{
+			/* Skip */
+			goto out;
+		}
+	}
+	else
+	{
+		type = FTW_NS; /* No Stat */
+	}
+
+	result = (*func)(path,&st,type);
+	if(result != 0)
+		goto out;
+
+	if(type == FTW_D)
+	{
+		dp = opendir(path);	/* Also takes care of Unix->Amiga pathname conversion. */
+		if(dp == NULL)
+		{
+			result = ERROR; /* Pass errno from opendir() */
+			goto out;
+		}
+
+		old_length = strlen(path);
+
+		next_name = malloc(old_length + NAME_MAX + 2); /* Allocate new for each recursive step to handle extremely long path names. */
+		if(next_name == NULL)
+		{
+			__set_errno(ENOMEM);
+
+			result = ERROR;
+			goto out;
+		}
+
+		strcpy(next_name,path);
+
+		if(old_length > 0 && next_name[old_length - 1] != ':' && next_name[old_length-1] != '/')
+			next_name[old_length++] = '/';
+
+		while((result == 0) && (de = readdir(dp)) != NULL)
+		{
+			strlcpy(&next_name[old_length],de->d_name,NAME_MAX + 2);
+
+			result = walk(next_name,func,depth,level+1);
+		}
+
+		errtmp = __get_errno();
+
+		closedir(dp);
+		free(next_name);
+
+		__set_errno(errtmp);
+	}
+
+ out:
+
+	RETURN(result);
+	return(result);
+}
+
+int
+ftw(const char *path,int (*func)(const char *,const struct stat *,int),int depth)
+{
+	int result = ERROR;
+	char *base;
+	int len;
+
+	ENTER();
+
+	SHOWSTRING(path);
+	SHOWPOINTER(func);
+	SHOWVALUE(depth);
+	
+	if(path == NULL)
+	{
+		SHOWMSG("NULL pathname to ftw().");
+
+		__set_errno(EFAULT);
+		goto out;
+	}
+
+	if(func == NULL)
+	{
+		SHOWMSG("No function supplied.");
+
+		__set_errno(EFAULT);
+		goto out;
+	}
+
+	if(depth < 0)
+	{
+		SHOWMSG("Invalid depth.\n");
+
+		__set_errno(EINVAL);
+		goto out;
+	}
+
+	/* Make sure the path never ends with '/' unless used to indicate parent directory. */
+	len = strlen(path);
+	if(len > 1 && path[len - 1] == '/' && path[len - 2] != '/')
+	{
+		int error;
+
+		base = strdup(path);
+		if(base == NULL)
+		{
+			__set_errno(ENOMEM);
+			goto out;
+		}
+
+		base[len - 1] = '\0';
+
+		result = walk(base,func,depth,0);
+
+		error = __get_errno();
+
+		free(base);
+
+		__set_errno(error);
+	}
+	else
+	{
+		result = walk(path,func,depth,0);
+	}
+
+ out:
+
+	RETURN(result);
+	return(result);
+}

library/ftw_headers.h

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

library/ftw_nftw.c

@@ -0,0 +1,317 @@
+/*
+ * $Id: ftw_nftw.c,v 1.4 2005-04-24 08:46:37 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+/*
+ * This nftw() implementation builds heavily on existing functionality and could certainly
+ * be made more efficient.
+ */
+
+/****************************************************************************/
+
+#ifndef	_FTW_HEADERS_H
+#include "ftw_headers.h"
+#endif /* _FTW_HEADERS_H */
+
+/****************************************************************************/
+
+static int
+walk(const char *path,int (*func)(const char *,const struct stat *,int,struct FTW *),const int depth,int level,const int flags,const int base,int * const prune)
+{
+	int result = OK;
+	DIR *dp;
+	struct dirent *de;
+	struct stat st;
+	char *next_name;
+	char *old_cwd = 0;
+	int type;
+	int old_length;
+	int errtmp;
+	struct FTW extra_info;
+	int stat_result;
+
+	ENTER();
+
+	SHOWSTRING(path);
+	SHOWPOINTER(func);
+	SHOWVALUE(depth);
+	SHOWVALUE(level);
+	SHOWVALUE(flags);
+
+	if(__check_abort_enabled)
+		__check_abort();
+
+	if(level > depth)
+		goto out;
+
+	if(FLAG_IS_SET(flags,FTW_PHYS))
+		stat_result = lstat(path,&st);
+	else
+		stat_result = stat(path,&st);
+
+	if(stat_result == OK)
+	{
+		if (S_ISLNK(st.st_mode)) /* Should only be possible if lstat() is used. */
+		{
+			type = FTW_SL;
+		}
+		else if (S_ISDIR(st.st_mode))
+		{
+			if(FLAG_IS_SET(st.st_mode,S_IRUSR))
+				type = FTW_D;	/* Directory */
+			else
+				type = FTW_DNR;	/* Directory No Read-permission */
+		}
+		else if (S_ISREG(st.st_mode))
+		{
+			type = FTW_F; /* File */
+		}
+		else
+		{
+			/* Skip */
+			goto out;
+		}
+	}
+	else
+	{
+		if(FLAG_IS_CLEAR(flags,FTW_PHYS) && lstat(path,&st) == OK)
+			type = FTW_SLN;	/* Broken link. */
+		else
+			type = FTW_NS;	/* No Stat */
+	}
+
+	extra_info.quit		= 0;
+	extra_info.base		= base;
+	extra_info.level	= level;
+
+	if(type == FTW_D)
+	{
+		old_length = strlen(path);
+
+		if(FLAG_IS_CLEAR(flags,FTW_DEPTH))
+			result = (*func)(path,&st,type,&extra_info);
+
+		if(extra_info.quit == 0)
+		{
+			dp = opendir(path);	/* Also takes care of Unix->Amiga pathname conversion. */
+			if(dp == NULL)
+			{
+				result = ERROR;
+				goto out;
+			}
+
+			if(FLAG_IS_SET(flags,FTW_CHDIR)) /* Change to directory before traversing. */
+			{
+				old_cwd = malloc(old_length + NAME_MAX);
+				if(old_cwd == NULL)
+				{
+					__set_errno(ENOMEM);
+
+					result = ERROR;
+					goto out;
+				}
+
+				getcwd(old_cwd,old_length + NAME_MAX);
+				chdir(path);
+			}
+
+			next_name = malloc(old_length + NAME_MAX + 2); /* Allocate new for each recursive step to handle extremely long path names. */
+			if(next_name == NULL)
+			{
+				__set_errno(ENOMEM);
+
+				result = ERROR;
+				goto out;
+			}
+
+			strcpy(next_name,path);
+			if(old_length > 0 && next_name[old_length - 1] != ':' && next_name[old_length - 1] != '/')
+				next_name[old_length++] = '/';
+
+			while((result == 0) && (de = readdir(dp)) != NULL)
+			{
+				strlcpy(&next_name[old_length],de->d_name,NAME_MAX + 2);
+
+				result = walk(next_name,func,depth,level + 1,flags,old_length,prune);
+				if((*prune) != 0)
+				{
+					(*prune) = 0;
+					break;
+				}
+			}
+
+			errtmp = __get_errno();
+
+			closedir(dp);
+
+			__set_errno(errtmp);
+
+			free(next_name);
+
+			if((result == 0) && FLAG_IS_SET(flags,FTW_DEPTH))
+				result = (*func)(path,&st,FTW_DP,&extra_info);
+		}
+
+		if(extra_info.quit == FTW_PRUNE) /* Abort traversal of current directory. */
+			(*prune) = 1;
+	}
+	else
+	{
+		result = (*func)(path,&st,type,&extra_info);
+	}
+
+ out:
+
+	if(old_cwd != NULL)
+	{
+		errtmp = __get_errno();
+
+		chdir(old_cwd); /* Restore (pop) old directory. */
+		free(old_cwd);
+
+		__set_errno(errtmp);
+	}
+
+	RETURN(result);
+	return(result);
+}
+
+/****************************************************************/
+
+static int
+index_of_end_part(const char *path)
+{
+	int result = OK;
+	int i;
+
+	i = strlen(path) - 1;
+	while(i-- > 0)
+	{
+		if(path[i] == '/' || path[i] == ':')
+		{
+			result = i + 1;
+			break;
+		}
+	}
+
+	return(result);
+}
+
+/****************************************************************/
+
+int
+nftw(const char *path,int (*func)(const char *,const struct stat *,int,struct FTW *),int depth,int flags)
+{
+	char *base;
+	int len;
+	int base_index;
+	int prune = 0;
+	int result = ERROR;
+
+	ENTER();
+
+	SHOWSTRING(path);
+	SHOWPOINTER(func);
+	SHOWVALUE(depth);
+	SHOWVALUE(flags);
+
+	if(path == NULL)
+	{
+		SHOWMSG("NULL pathname to nftw().");
+		__set_errno(EFAULT);
+		goto out;
+	}
+
+	if(func == NULL)
+	{
+		SHOWMSG("No function supplied.");
+		__set_errno(EFAULT);
+		goto out;
+	}
+
+	if(depth < 0)
+	{
+		SHOWMSG("Invalid depth.\n");
+		__set_errno(EINVAL);
+		goto out;
+	}
+
+	if((flags & ~FTW_ALL_FLAGS) != 0)
+	{
+		SHOWMSG("Bogus flags.");
+
+		__set_errno(EINVAL);
+		goto out;
+	}
+
+	/* Make sure the path never ends with '/' unless used to indicate parent directory. */
+
+	len = strlen(path);
+	if(len > 1 && path[len - 1] == '/' && path[len - 2] != '/')
+	{
+		int error;
+
+		base = strdup(path);
+		if(base == NULL)
+		{
+			__set_errno(ENOMEM);
+			goto out;
+		}
+
+		base[len - 1] = '\0';
+
+		base_index = index_of_end_part(base);
+
+		result = walk(base,func,depth,0,flags,base_index,&prune);
+
+		error = __get_errno();
+		free(base);
+		__set_errno(error);
+	}
+	else
+	{
+		base_index = index_of_end_part(path);
+
+		result = walk(path,func,depth,0,flags,base_index,&prune);
+	}
+
+ out:
+
+	RETURN(result);
+	return(result);
+}

library/getopt_getopt_long.c

@@ -0,0 +1,408 @@
+/*
+ * $Id: getopt_getopt_long.c,v 1.3 2005-06-26 12:01:50 tfrieden Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _STDLIB_NULL_POINTER_CHECK_H
+#include "stdlib_null_pointer_check.h"
+#endif /* _STDLIB_NULL_POINTER_CHECK_H */
+
+/****************************************************************************/
+
+#ifndef _UNISTD_HEADERS_H
+#include "unistd_headers.h"
+#endif /* _UNISTD_HEADERS_H */
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+#include <getopt.h>
+
+extern int		opterr;
+extern int		optind;
+extern int		optopt;
+extern char *	optarg;
+int optreset = 0;
+
+#define GETOPTF_LONG_ONLY		(1L << 0)	/* Operate in getopt_long_only more */
+#define GETOPTF_GNUEXT			(1L << 1)	/* Allow -W extension */
+#define GETOPTF_POSIX			(1L << 2)	/* Will disallow permutation */
+#define GETOPTF_ONE_ARG			(1L << 3)	/* Non-option argv will be handled as -\1 */
+
+static int getopt_long_internal(int argc, const char **argv, const char *optstring,
+		const struct option *longopts, int *longindex, int flags);
+
+
+int getopt_long(int argc, const char **argv, const char *optstring,
+		const struct option *longopts, int *longindex)
+{
+	return getopt_long_internal(argc, argv, optstring, longopts, longindex, 0);
+}
+
+#if 0
+int getopt_long_only(int argc, const char **argv, const char *optstring,
+		const struct option *longopts, int *longindex)
+{
+	return getopt_long_internal(argc, argv, optstring, longopts, longindex,
+		GETOPTF_LONG_ONLY);
+}
+#endif
+
+
+static int parse_long_option(int argc, char **argv, const struct option *longopts,
+	int *longindex, int flags)
+{
+	char *current = argv[optind] + 2;	/* Skip the '--' */
+	char *argument;
+	int keylen = 0;
+	int i;
+	int idx = -1;
+	int result = '?';
+
+	(void)flags;
+
+	optind ++;
+
+	/* If there's an equals sign in the option, the actual word to check is
+	 * between the -- and = characters. Otherwise, it's the length of the
+	 * remainder (without --)
+	 */
+	argument = strchr(current, '=');
+	if (argument)
+	{
+		keylen = (int)(argument - current);
+		/* Skip the '=' sign */
+		argument++;
+	}
+	else
+		keylen = strlen(current);
+
+	for (i = 0; longopts[i].name; i++)
+	{
+		if (strncmp(longopts[i].name, current, keylen))
+			continue;
+
+		if (strlen(longopts[i].name) == (size_t)keylen)
+		{
+			/* Exact match */
+			idx = i;
+			break;
+		}
+
+		/* Partial match. Check if we already found another partial match, in
+		 * which case the match is ambigous.
+		 */
+		if (idx == -1)
+		{
+			idx = i;
+		}
+		else
+		{
+			*longindex = -1;
+			return '?';
+		}
+	}
+
+	*longindex = idx;
+
+	if (idx != -1)
+	{
+		/* Found a match. Check if it needs an argument */
+		if (longopts[idx].has_arg == optional_argument)
+		{
+			/* Optional arguments must be given as --foo=bar, it will not
+			 * advance to the next argv element
+			 */
+			if (argument)
+				optarg = argument;
+			else
+				optarg = 0;
+		}
+		else if (longopts[idx].has_arg == required_argument)
+		{
+			/* Either argument was given as --foo=bar, or the next argv element
+			 * (if present) will be returned
+			 */
+			if (argument)
+				optarg = argument;
+			else
+			{
+				if (optind < argc)
+				{
+					optarg = argv[optind];
+					optind++;
+				}
+				else
+				{
+					if (opterr)
+						fprintf(stderr, "%s: option requires an argument -- %s\n",
+							argv[0], longopts[idx].name);
+
+					optarg = 0;
+
+					return '?';
+				}
+			}
+		}
+		else
+		{
+			/* No argument */
+			optarg = 0;
+
+			if (argument)
+			{
+				if (opterr)
+					fprintf(stderr, "%s: option does not take an argument -- %s\n",
+						argv[0], longopts[idx].name);
+
+				return '?';
+			}
+		}
+
+		if (longopts[idx].flag)
+		{
+			*longopts[idx].flag = longopts[idx].val;
+			optopt = 0;
+			result = 0;
+		}
+		else
+		{
+			result = optopt = longopts[idx].val;
+		}
+
+		return result;
+	}
+
+	optopt = 0;
+
+	return '?';
+}
+
+
+
+/* Note: This implementation currently does not permute argv vectors, and will
+ * stop parsing input on the first non-option argument
+ */
+
+static int getopt_long_internal(int argc, const char **argv, const char *optstring,
+		const struct option *longopts, int *longindex, int flags)
+{
+	static char *nextchar = 0;
+	int result = EOF;
+	int c;
+	char *optp;
+	int longidx_subst;
+
+	ENTER();
+	SHOWVALUE(argc);
+	SHOWPOINTER(argv);
+	SHOWSTRING(optstring);
+	SHOWPOINTER(longopts);
+	SHOWPOINTER(longindex);
+	SHOWVALUE(flags);
+
+	if(__check_abort_enabled)
+		__check_abort();
+
+	if (NULL == optstring)
+		goto out;
+
+	if (!longindex)
+		longindex = &longidx_subst;
+
+	/* Check options */
+	/* FIXME: Should probably also check environment variable */
+	if (*optstring == '+')
+	{
+		flags |= GETOPTF_POSIX;
+		optstring++;
+	}
+
+	if (*optstring == '-')
+	{
+		flags |= GETOPTF_ONE_ARG;
+		optstring++;
+	}
+
+	/* Check for reset */
+	if (optreset || optind == 0)
+	{
+		optind = 1;
+		optreset = 0;
+		nextchar = 0;
+	}
+
+	if (optind >= argc)
+		goto out;
+
+	/* Begin or continue scanning
+	 * First off, check for a short option and set nextchar, if present.
+	 * if nextchar is not 0, there's a compound option waiting or just begun.
+	 */
+	if (!nextchar
+		&& argv[optind][0] == '-'
+		&& argv[optind][1] != '\0'
+		&& argv[optind][1] != '-')
+	{
+		/* It's a short option. */
+		nextchar = (char *)&argv[optind][1];
+	}
+
+	if (nextchar)
+	{
+		c = *nextchar ++;
+
+		/* Advancing nextchar. If it points to a 0 character now, it's reached
+		 * the end of the current argv string, so set it to 0 and advance optind
+		 * to the next argv element.
+		 */
+		if (0 == *nextchar)
+		{
+			nextchar = 0;
+			optind ++;
+		}
+
+		optp = strchr(optstring, c);
+
+		/* We never find a long option in a compound option */
+		*longindex = 0;
+
+		/* Check if it's legal */
+		if (c == ':' || (optp == NULL))
+		{
+			/* Illegal option */
+			if (opterr)
+				fprintf(stderr, "%s: illegal option -- %c\n", argv[0], c);
+
+			result = '?';
+
+			goto out;
+		}
+		else
+		{
+			/* It is legal. Three possibilities here:
+			 * 1. It doesn't have arguments. Return the character.
+			 * 2. It has an argument. Return the character, and point optarg
+			 *    to the rest of the argv entry.
+			 * 3. It has an optional argument. If there are non-0 characters
+			 *    following, point optarg there, otherwise, clear optarg.
+			 */
+			if (optp[1] != ':')
+			{
+				/* Case 1 (no argument). */
+				result = c;
+				goto out;
+			}
+			else
+			{
+				/* Argument may follow */
+				if (optp[2] == ':')
+				{
+					/* Optional argument. nextchar is 0 if there's no further
+					 * stuff following, which means the option is without
+					 * argument
+					 */
+					if (nextchar)
+					{
+						optarg = nextchar;
+						nextchar = 0;
+						optind++;
+					}
+					else
+						optarg = 0;
+				}
+				else
+				{
+					/* Mandatory argument. Either nextchar points to the rest
+					 * of this argv element, or we use the next argv element
+					 */
+					if (nextchar)
+					{
+						optarg = nextchar;
+						nextchar = 0;
+						optind++;
+					}
+					else
+					{
+						if (optind >= argc)
+						{
+							if (opterr)
+								fprintf(stderr, "%s: option requires an argument -- %c\n",
+									argv[0], c);
+
+							result = '?';
+
+							goto out;
+						}
+
+						optarg = (char *)argv[optind++];
+					}
+				}
+
+				result = c;
+				goto out;
+			}
+		}
+	} /* if (nextchar) */
+
+	/* Start checking an argv element for an option.
+	 * There are different possibilities here:
+	 * 1. We ran out of argv elements
+	 * 2. We have an argv element that's just "-" or not an option
+	 * 3. We have an argv element that's just "--"
+	 * 4. we habe a long option (--xxx pr -W xxx)
+	 */
+
+	/* Check case 3 and 1*/
+	if ((strcmp(argv[optind], "--") == 0) || optind >= argc)
+	{
+		result = EOF;
+		goto out;
+	}
+
+	/* Check case 4 */
+	if (argv[optind][0] == '-' && argv[optind][1] == '-' && longopts)
+	{
+		/* It is a long option */
+		result = parse_long_option(argc, (char **)argv, longopts, longindex, flags);
+		goto out;
+	}
+
+	/* Case 2 */
+
+
+ out:
+ 	RETURN(result);
+ 	return result;
+}

library/include/arpa/inet.h

@@ -0,0 +1,80 @@
+/*
+ * $Id: inet.h,v 1.1 2005-10-09 12:32:18 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef	_ARPA_INET_H
+#define	_ARPA_INET_H
+
+/****************************************************************************/
+
+#ifndef _NETINET_IN_H
+#include <netinet/in.h>
+#endif /* _NETINET_IN_H */
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+/*
+ * The following prototypes may clash with the bsdsocket.library or
+ * usergroup.library API definitions.
+ */
+
+#ifndef __NO_NET_API
+
+extern in_addr_t inet_addr(const char *cp);
+extern int inet_aton(const char *cp, struct in_addr *pin);
+extern in_addr_t inet_lnaof(struct in_addr in);
+extern struct in_addr inet_makeaddr(in_addr_t net, in_addr_t lna);
+extern in_addr_t inet_netof(struct in_addr in);
+extern in_addr_t inet_network(const char *cp);
+extern char *inet_ntoa(struct in_addr in);
+
+#endif /* __NO_NET_API */
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#endif /* _ARPA_INET_H */

library/include/complex.h

@@ -0,0 +1,185 @@
+/*
+ * $Id: complex.h,v 1.3 2005-05-12 13:21:47 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _COMPLEX_H
+#define _COMPLEX_H
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard, but it should
+   be part of ISO/IEC 9899:1999, also known as "C99". */
+
+/****************************************************************************/
+
+#ifndef	__GNUC__
+#error Unsupported compiler.
+#endif /* __GNUC__ */
+
+/****************************************************************************/
+
+#if defined(__cplusplus)
+#warning C99 header file used in C++.
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#if !defined(__STDC_VERSION__) || (__GNUC__ < 3 && __STDC_VERSION__ < 199901L)
+#error Complex numbers are not supported by/for this compiler.
+#endif /* __GNUC__ && __STDC_VERSION__ */
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+/* Basic types; imaginary is assumed not to be implemented yet. */
+#define complex _Complex
+
+/****************************************************************************/
+
+/* Constants */
+#define _Complex_I (__extension__ 0.0+1.0fi)
+#define I _Complex_I
+
+/****************************************************************************/
+
+extern double creal(double complex z);
+extern float crealf(float complex z);
+extern long double creall(long double complex z);
+
+extern double cimag(double complex z);
+extern float cimagf(float complex z);
+extern long double cimagl(long double complex z);
+
+extern double complex conj(double complex z);
+extern float complex conjf(float complex z);
+extern long double complex conjl(long double complex z);
+
+extern double carg(double complex z);
+extern float cargf(float complex z);
+extern long double cargl(long double complex z);
+
+/****************************************************************************/
+
+/* Unimplemented functions (so far)... */
+
+/****************************************************************************/
+
+#if 0
+
+extern double complex cacos(double complex z);
+extern float complex cacosf(float complex z);
+extern long double complex cacosl(long double complex z);
+
+extern double complex casin(double complex z);
+extern float complex casinf(float complex z);
+extern long double complex casinl(long double complex z);
+
+extern double complex catan(double complex z);
+extern float complex catanf(float complex z);
+extern long double complex catanl(long double complex z);
+
+extern double complex ccos(double complex z);
+extern float complex ccosf(float complex z);
+extern long double complex ccosl(long double complex z);
+
+extern double complex csin(double complex z);
+extern float complex csinf(float complex z);
+extern long double complex csinl(long double complex z);
+
+extern double complex ctan(double complex z);
+extern float complex ctanf(float complex z);
+extern long double complex ctanl(long double complex z);
+
+extern double complex cacosh(double complex z);
+extern float complex cacoshf(float complex z);
+extern long double complex cacoshl(long double complex z);
+
+extern double complex casinh(double complex z);
+extern float complex casinhf(float complex z);
+extern long double complex casinhl(long double complex z);
+
+extern double complex catanh(double complex z);
+extern float complex catanhf(float complex z);
+extern long double complex catanhl(long double complex z);
+
+extern double complex ccosh(double complex z);
+extern float complex ccoshf(float complex z);
+extern long double complex ccoshl(long double complex z);
+
+extern double complex csinh(double complex z);
+extern float complex csinhf(float complex z);
+extern long double complex csinhl(long double complex z);
+
+extern double complex ctanh(double complex z);
+extern float complex ctanhf(float complex z);
+extern long double complex ctanhl(long double complex z);
+
+extern double complex cexp(double complex z);
+extern float complex cexpf(float complex z);
+extern long double complex cexpl(long double complex z);
+
+extern double complex clog(double complex z);
+extern float complex clogf(float complex z);
+extern long double complex clogl(long double complex z);
+
+extern double cabs(double complex z);
+extern float cabsf(float complex z);
+extern long double cabsl(long double complex z);
+
+extern double complex cpow(double complex z);
+extern float complex cpowf(float complex z);
+extern long double complex cpowl(long double complex z);
+
+extern double complex csqrt(double complex z);
+extern float complex csqrtf(float complex z);
+extern long double complex csqrtl(long double complex z);
+
+extern double complex cproj(double complex z);
+extern float complex cprojf(float complex z);
+extern long double complex cprojl(long double complex z);
+
+#endif
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#endif /* _COMPLEX_H */

library/include/ctype.h

@@ -1,5 +1,5 @@
 /*
- * $Id: ctype.h,v 1.4 2005-01-02 09:07:21 obarthel Exp $
+ * $Id: ctype.h,v 1.7 2005-10-16 08:34:52 obarthel Exp $
  *
  * :ts=4
  *
@@ -31,8 +31,8 @@
  * POSSIBILITY OF SUCH DAMAGE.
  */
 
-#ifndef _CYTPE_H
+#ifndef _CTYPE_H
-#define _CYTPE_H
+#define _CTYPE_H
 
 /****************************************************************************/
 
@@ -57,6 +57,7 @@ extern int islower(int c);
 extern int isupper(int c);
 
 extern int isspace(int c);
+extern int isblank(int c);
 
 extern int tolower(int c);
 extern int toupper(int c);
@@ -66,15 +67,14 @@ extern int toupper(int c);
 /*
  * If requested, reimplement the character classification functions as macros;
  * note that the macro variants ignore the current locale and default to the
- * 'C' locale rules. Note that the characters to be tested must be either
+ * 'C' locale rules.
- * signed or unsigned 8 bit values.
  */
 
 #ifdef __C_MACROS__
 
 /****************************************************************************/
 
-extern const unsigned char * const __ctype_table;
+extern const unsigned char __ctype_table[];
 
 /****************************************************************************/
 
@@ -89,17 +89,18 @@ extern const unsigned char * const __ctype_table;
 
 /****************************************************************************/
 
-#define isalnum(c)	((__ctype_table[c] & (__CTYPE_DIGIT|__CTYPE_LOWER_CASE|__CTYPE_UPPER_CASE)) != 0)
+#define isalnum(c)	((__ctype_table[(c) & 255] & (__CTYPE_DIGIT|__CTYPE_LOWER_CASE|__CTYPE_UPPER_CASE)) != 0)
-#define isalpha(c)	((__ctype_table[c] & (__CTYPE_LOWER_CASE|__CTYPE_UPPER_CASE)) != 0)
+#define isalpha(c)	((__ctype_table[(c) & 255] & (__CTYPE_LOWER_CASE|__CTYPE_UPPER_CASE)) != 0)
-#define iscntrl(c)	((__ctype_table[c] & __CTYPE_CONTROL) != 0)
+#define iscntrl(c)	((__ctype_table[(c) & 255] & __CTYPE_CONTROL) != 0)
-#define isdigit(c)	((__ctype_table[c] & __CTYPE_DIGIT) != 0)
+#define isdigit(c)	((__ctype_table[(c) & 255] & __CTYPE_DIGIT) != 0)
-#define isxdigit(c)	((__ctype_table[c] & __CTYPE_HEX_DIGIT) != 0)
+#define isxdigit(c)	((__ctype_table[(c) & 255] & __CTYPE_HEX_DIGIT) != 0)
-#define isgraph(c)	((__ctype_table[c] & (__CTYPE_DIGIT|__CTYPE_PUNCTUATION|__CTYPE_LOWER_CASE|__CTYPE_UPPER_CASE)) != 0)
+#define isgraph(c)	((__ctype_table[(c) & 255] & (__CTYPE_DIGIT|__CTYPE_PUNCTUATION|__CTYPE_LOWER_CASE|__CTYPE_UPPER_CASE)) != 0)
-#define ispunct(c)	((__ctype_table[c] & __CTYPE_PUNCTUATION) != 0)
+#define ispunct(c)	((__ctype_table[(c) & 255] & __CTYPE_PUNCTUATION) != 0)
-#define isprint(c)	((__ctype_table[c] & __CTYPE_PRINTABLE) != 0)
+#define isprint(c)	((__ctype_table[(c) & 255] & __CTYPE_PRINTABLE) != 0)
-#define islower(c)	((__ctype_table[c] & __CTYPE_LOWER_CASE) != 0)
+#define islower(c)	((__ctype_table[(c) & 255] & __CTYPE_LOWER_CASE) != 0)
-#define isupper(c)	((__ctype_table[c] & __CTYPE_UPPER_CASE) != 0)
+#define isupper(c)	((__ctype_table[(c) & 255] & __CTYPE_UPPER_CASE) != 0)
-#define isspace(c)	((__ctype_table[c] & __CTYPE_WHITE_SPACE) != 0)
+#define isspace(c)	((__ctype_table[(c) & 255] & __CTYPE_WHITE_SPACE) != 0)
+#define isblank(c)	((c) == ' ' || (c) == '\t')
 
 /****************************************************************************/
 
@@ -119,4 +120,4 @@ extern const unsigned char * const __ctype_table;
 
 /****************************************************************************/
 
-#endif /* _CYTPE_H */
+#endif /* _CTYPE_H */

library/include/dirent.h

@@ -1,5 +1,5 @@
 /*
- * $Id: dirent.h,v 1.3 2005-01-02 09:07:21 obarthel Exp $
+ * $Id: dirent.h,v 1.4 2005-10-09 12:32:18 obarthel Exp $
  *
  * :ts=4
  *
@@ -40,12 +40,6 @@
 
 /****************************************************************************/
 
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-/****************************************************************************/
-
 #ifndef _SYS_TYPES_H
 #include <sys/types.h>
 #endif /* _SYS_TYPES_H */
@@ -56,6 +50,12 @@ extern "C" {
 
 /****************************************************************************/
 
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
 #define NAME_MAX FILENAME_MAX
 
 /****************************************************************************/

library/include/dos.h

@@ -1,5 +1,5 @@
 /*
- * $Id: dos.h,v 1.5 2005-01-02 09:07:21 obarthel Exp $
+ * $Id: dos.h,v 1.13 2005-10-20 06:50:32 obarthel Exp $
  *
  * :ts=4
  *
@@ -40,24 +40,28 @@
 
 /****************************************************************************/
 
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-/****************************************************************************/
-
 #ifndef _STDIO_H
 #include <stdio.h>
 #endif /* _STDIO_H */
 
 /****************************************************************************/
 
+#ifndef EXEC_LIBRARIES_H
+#include <exec/libraries.h>
+#endif /* EXEC_LIBRARIES_H */
+
 #ifndef WORKBENCH_STARTUP_H
 #include <workbench/startup.h>
 #endif /* WORKBENCH_STARTUP_H */
 
 /****************************************************************************/
 
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
 /*
  * The Workbench startup message passed to this program; this may be NULL
  * if the program was started from shell instead.
@@ -66,6 +70,26 @@ extern "C" {
  * ISO 'C' standard context. It is redefined to WBenchMsg to make it
  * compatible with the original Amiga program startup code which would
  * refer to the variable under that name.
+ *
+ * It is recommended to access the Workbench startup message as part of your
+ * program's main() function, like this:
+ *
+ *    int
+ *    main(int argc,char ** argv)
+ *    {
+ *       struct WBStartup * wb_startup_message;
+ *
+ *       if(argc == 0)
+ *          wb_startup_message = (struct WBStartup *)argv;
+ *       else
+ *          wb_startup_message = NULL;
+ *
+ *       ...
+ *    }
+ *
+ * This approach has the advantage that your program does not rely upon a
+ * global variable initialized by the startup code, whose name you might
+ * not even know exactly.
  */
 extern struct WBStartup * __WBenchMsg;
 #define WBenchMsg __WBenchMsg
@@ -124,9 +148,24 @@ extern int __get_default_file(int file_descriptor,long * file_ptr);
 
 /****************************************************************************/
 
+/*
+ * If your program is intended to be launched by the Internet superserver
+ * (inetd) to run as a daemon, receiving and sending data through a network
+ * connection set up for it, declare the following variable in your program
+ * and set it to TRUE. This will make the program's network startup code
+ * link the stdin/stdout/stderr streams with the daemon socket passed to it.
+ * Whether or not your program is running as a daemon can be tested by
+ * checking the global __is_daemon variable described below.
+ */
+extern BOOL __check_daemon_startup;
+
+/****************************************************************************/
+
 /*
  * This will be set to TRUE if the current program was launched from
- * the internet superserver ('inetd') or an equivalent facility.
+ * the internet superserver ('inetd') or an equivalent facility. Note
+ * that you need to have set __check_daemon_startup to TRUE before
+ * you can rely upon __is_daemon to be initialized correctly.
  */
 extern BOOL __is_daemon;
 
@@ -252,6 +291,32 @@ extern unsigned int (* __get_default_stack_size)(void);
 
 /****************************************************************************/
 
+/*
+ * This library falls back onto locale.library to perform string collation
+ * in strcoll(), character conversion in toupper() and various other
+ * functions. This may not your intention. To restrict the library to use
+ * only the "C" language locale, declare the following variable in your
+ * code and set it to FALSE, so that it overrides the default settings.
+ * The variable value is checked during program startup and, if set to
+ * TRUE, has the effect of opening locale.library and obtaining the
+ * default locale.
+ */
+extern BOOL __open_locale;
+
+/*
+ * Two functions control how this library uses the locale.library API to
+ * perform string collation, character and time conversion, etc.
+ *
+ * __locale_init() opens locale.library and attempts to open the default
+ * locale. If it succeeds, it will return 0 and -1 otherwise.
+ *
+ * __locale_exit() releases the default locale and closes locale.library.
+ */
+extern int __locale_init(void);
+extern void __locale_exit(void);
+
+/****************************************************************************/
+
 /*
  * If linked with -lunix, Unix path names are translated to Amiga path
  * names (and the other way round). If you wish to disable this, set the
@@ -278,7 +343,65 @@ extern int __translate_relative_path_name(char const ** name_ptr,char *replace,s
 extern void __restore_path_name(char const ** name_ptr,struct name_translation_info * nti);
 extern int __translate_amiga_to_unix_path_name(char const ** name_ptr,struct name_translation_info * nti);
 extern int __translate_unix_to_amiga_path_name(char const ** name_ptr,struct name_translation_info * nti);
-extern void __translate_io_error_to_errno(LONG io_error,int * errno_ptr);
+extern int __translate_io_error_to_errno(LONG io_error);
+
+/****************************************************************************/
+
+/*
+ * Routines for use with shared libraries: invoke __lib_init() in your own
+ * shared library initialization function and __lib_exit() in your shared
+ * library cleanup function.
+ *
+ * __lib_init() will initialize the global SysBase/DOSBase variables
+ * (and the IExec/IDOS variables for OS4) and invoke the constructor
+ * functions required by your library code. It returns FALSE upon
+ * failure and TRUE otherwise. Make this the very first function you
+ * call in your shared library initialization function. The __lib_init()
+ * function expects to be called with a pointer to the exec.library
+ * base, which is normally passed to your shared library as part of the
+ * library startup code initialization performed by the operating
+ * system.
+ *
+ * __lib_exit() will undo all the initializations performed by the
+ * __lib_init() function, but leave the global SysBase variable
+ * (and the IExec variable for OS4) intact. Make this the very last
+ * function you call in your shared library cleanup function.
+ *
+ * Note that neither __lib_init() nor __lib_exit() are reentrant. You must
+ * make sure that while you are calling them no other library user can
+ * call them by accident.
+ *
+ * Both functions are only available as part of the thread-safe clib2
+ * linker library.
+ */
+extern VOID __lib_exit(VOID);
+extern BOOL __lib_init(struct Library * SysBase);
+
+/****************************************************************************/
+
+/*
+ * The following variables are part of libnet.a, which provides for
+ * a BSD-Unix-like socket networking API. Traditionally, only one process
+ * at a time may use the underlying bsdsocket.library base, but with a
+ * multithreaded application you may want all of them to share the same
+ * library base. As of this writing there is one single TCP/IP stack which
+ * supports this feature (Roadshow) and it must be enabled early on. If
+ * this worked out well you can test through the following variable which
+ * will be set to TRUE:
+ */
+extern BOOL __can_share_socket_library_base;
+
+/*
+ * The next global variable is also part of the thread-safe libnet.a and
+ * indicates that the TCP/IP stack will call the functions __set_errno()
+ * and __set_h_errno() when it modifies the global errno and h_errno
+ * variables, respectively. If you want to save the error codes for each
+ * of the Processes in your multithreaded application then you should
+ * override these functions with your. The following variable will be
+ * set to TRUE if the __set_errno() and __set_h_errno() functions will
+ * be used to change the corresponding variables:
+ */
+extern BOOL __thread_safe_errno_h_errno;
 
 /****************************************************************************/
 

library/include/fcntl.h

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl.h,v 1.4 2005-01-02 09:07:21 obarthel Exp $
+ * $Id: fcntl.h,v 1.6 2005-10-09 12:32:18 obarthel Exp $
  *
  * :ts=4
  *
@@ -40,12 +40,6 @@
 
 /****************************************************************************/
 
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-/****************************************************************************/
-
 #ifndef _SYS_TYPES_H
 #include <sys/types.h>
 #endif /* _SYS_TYPES_H */
@@ -56,6 +50,12 @@ extern "C" {
 
 /****************************************************************************/
 
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
 #define O_RDONLY	0
 #define O_WRONLY	1
 #define O_RDWR		2
@@ -65,6 +65,7 @@ extern "C" {
 #define O_EXCL		(1<<4)
 #define O_TRUNC		(1<<5)
 #define O_NONBLOCK	(1<<6)
+#define O_NDELAY	O_NONBLOCK
 #define O_SYNC		(0)
 #define O_NOCTTY	(0)
 #define O_ASYNC		(1<<7)

library/include/ftw.h

@@ -0,0 +1,102 @@
+/*
+ * $Id: ftw.h,v 1.2 2005-10-09 12:32:18 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef	_FTW_H
+#define	_FTW_H
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+#include <sys/stat.h>
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+/* Values passed to the user function (argument #3). */
+enum
+{
+	FTW_F,		/* Regular file. */
+	FTW_D,		/* Directory. */
+	FTW_DP,		/* Directory, already visited. (nftw() only) */
+	FTW_SL,		/* Symlink. (nftw() only) */
+	FTW_SLN,	/* Broken Symlink. (does not point to an existing file, nftw() only) */
+	FTW_DNR,	/* Directory which can not be read (e.g. not enough permissions) */
+	FTW_NS		/* Stat failed. */
+};
+
+/****************************************************************************/
+
+/* Flags for FTW.quit */
+#define	FTW_SKD		(1L<<0)	/* Skip directory. */
+#define	FTW_PRUNE	(1L<<1)	/* Prune traversal. (skip up) */
+
+/****************************************************************************/
+
+/* Flags for nftw() */
+#define	FTW_PHYS		(1L<<0)
+#define	FTW_MOUNT		(1L<<1)		/* Currently unsupported. */
+#define	FTW_DEPTH		(1L<<2)
+#define	FTW_CHDIR		(1L<<3)
+#define	FTW_ALL_FLAGS	(0x0000000f)
+
+/****************************************************************************/
+
+struct FTW
+{
+	int quit;	/* Flags passed out from the user function to ftw()/nftw() */
+	int base;	/* Index of current item from start of string. e.g. 4 for "foo/bar" */
+	int level;	/* Current depth. (counted from 0) */
+};
+
+/****************************************************************************/
+
+extern int ftw(const char *path,int (*func)(const char *,const struct stat *,int),int depth);
+extern int nftw(const char *path,int (*func)(const char *,const struct stat *,int,struct FTW *),int depth,int flags);
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#endif /* _FTW_H */

library/include/getopt.h

@@ -0,0 +1,83 @@
+/*
+ * $Id: getopt.h,v 1.2 2005-06-26 09:06:12 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _GETOPT_H
+#define _GETOPT_H
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+#include <unistd.h>
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#define no_argument 		0
+#define required_argument	1
+#define optional_argument	2
+
+struct option 
+{
+	const char *	name;
+	int 			has_arg;
+	int *			flag;
+	int 			val;
+};
+
+/****************************************************************************/
+
+extern int getopt_long(int argc, const char **argv, const char *optstring,
+		const struct option *longopts, int *longindex);
+
+/*extern int getopt_long_only(int argc, const char **argv, const char *optstring,
+		const struct option *longopts, int *longindex);
+*/
+extern int optreset;
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#endif /* _GETOPT_H */

library/include/grp.h

@@ -1,5 +1,5 @@
 /*
- * $Id: grp.h,v 1.3 2005-01-02 09:07:21 obarthel Exp $
+ * $Id: grp.h,v 1.4 2005-10-09 12:32:18 obarthel Exp $
  *
  * :ts=4
  *
@@ -40,15 +40,25 @@
 
 /****************************************************************************/
 
+#ifndef _SYS_TYPES_H
+#include <sys/types.h>
+#endif /* _SYS_TYPES_H */
+
+/****************************************************************************/
+
 #ifdef __cplusplus
 extern "C" {
 #endif /* __cplusplus */
 
 /****************************************************************************/
 
-#ifndef _SYS_TYPES_H
+#ifdef __GNUC__
-#include <sys/types.h>
+ #ifdef __PPC__
-#endif /* _SYS_TYPES_H */
+  #pragma pack(2)
+ #endif
+#elif defined(__VBCC__)
+ #pragma amiga-align
+#endif
 
 /****************************************************************************/
 
@@ -62,6 +72,33 @@ struct group
 
 /****************************************************************************/
 
+/*
+ * The following prototypes may clash with the bsdsocket.library or
+ * usergroup.library API definitions.
+ */
+
+#ifndef __NO_NET_API
+
+extern void endgrent(void);
+extern struct group *getgrent(void);
+extern struct group *getgrgid(gid_t gid);
+extern struct group *getgrnam(const char *name);
+extern void setgrent(void);
+
+#endif /* __NO_NET_API */
+
+/****************************************************************************/
+
+#ifdef __GNUC__
+ #ifdef __PPC__
+  #pragma pack()
+ #endif
+#elif defined(__VBCC__)
+ #pragma default-align
+#endif
+
+/****************************************************************************/
+
 #ifdef __cplusplus
 }
 #endif /* __cplusplus */

library/include/inttypes.h

@@ -0,0 +1,330 @@
+/*
+ * $Id: inttypes.h,v 1.3 2005-10-09 12:32:18 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef	_INTTYPES_H
+#define	_INTTYPES_H
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+/* Integral types with specified size; contributed by Peter Bengtsson */
+
+/****************************************************************************/
+
+#ifndef	_STDINT_H
+#include <stdint.h>
+#endif /* _STDINT_H */
+
+/****************************************************************************/
+
+#ifndef _STDDEF_H
+#include <stddef.h>
+#endif /* _STDDEF_H */
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+/* printf() format specifications for different types. */
+
+/* "Decimal" */
+#define	PRId8			"d"
+#define	PRId16			"d"
+#define	PRId32			"d"
+#define	PRId64			"lld"
+
+#define	PRIdLEAST8		"d"
+#define	PRIdLEAST16		"d"
+#define	PRIdLEAST32		"d"
+#define	PRIdLEAST64		"lld"
+
+#define	PRIdFAST8		"d"
+#define	PRIdFAST16		"d"
+#define	PRIdFAST32		"d"
+#define	PRIdFAST64		"lld"
+
+#define	PRIdPTR			"ld"
+
+/* "Integer" */
+#define	PRIi8			"i"
+#define	PRIi16			"i"
+#define	PRIi32			"i"
+#define	PRIi64			"lli"
+
+#define	PRIiLEAST8		"i"
+#define	PRIiLEAST16		"i"
+#define	PRIiLEAST32		"i"
+#define	PRIiLEAST64		"lli"
+
+#define	PRIiFAST8		"i"
+#define	PRIiFAST16		"i"
+#define	PRIiFAST32		"i"
+#define	PRIiFAST64		"lli"
+
+#define	PRIiPTR			"li"
+
+/* "Unsigned" */
+#define	PRIu8			"u"
+#define	PRIu16			"u"
+#define	PRIu32			"u"
+#define	PRIu64			"llu"
+
+#define	PRIuLEAST8		"u"
+#define	PRIuLEAST16		"u"
+#define	PRIuLEAST32		"u"
+#define	PRIuLEAST64		"llu"
+
+#define	PRIuFAST8		"u"
+#define	PRIuFAST16		"u"
+#define	PRIuFAST32		"u"
+#define	PRIuFAST64		"llu"
+
+#define	PRIuPTR			"lu"
+
+/* "Hexadecimal - lowercase " */
+#define	PRIx8			"x"
+#define	PRIx16			"x"
+#define	PRIx32			"x"
+#define	PRIx64			"llx"
+
+#define	PRIxLEAST8		"x"
+#define	PRIxLEAST16		"x"
+#define	PRIxLEAST32		"x"
+#define	PRIxLEAST64		"llx"
+
+#define	PRIxFAST8		"x"
+#define	PRIxFAST16		"x"
+#define	PRIxFAST32		"x"
+#define	PRIxFAST64		"llx"
+
+#define	PRIxPTR			"lx"
+
+/* "Hexadecimal - Uppercase" */
+#define	PRIX8			"X"
+#define	PRIX16			"X"
+#define	PRIX32			"X"
+#define	PRIX64			"llX"
+
+#define	PRIXLEAST8		"X"
+#define	PRIXLEAST16		"X"
+#define	PRIXLEAST32		"X"
+#define	PRIXLEAST64		"llX"
+
+#define	PRIXFAST8		"X"
+#define	PRIXFAST16		"X"
+#define	PRIXFAST32		"X"
+#define	PRIXFAST64		"llX"
+
+#define	PRIXPTR			"lX"
+
+/* "Octal" */
+#define	PRIo8			"o"
+#define	PRIo16			"o"
+#define	PRIo32			"o"
+#define	PRIo64			"llo"
+
+#define	PRIoLEAST8		"o"
+#define	PRIoLEAST16		"o"
+#define	PRIoLEAST32		"o"
+#define	PRIoLEAST64		"llo"
+
+#define	PRIoFAST8		"o"
+#define	PRIoFAST16		"o"
+#define	PRIoFAST32		"o"
+#define	PRIoFAST64		"llo"
+
+#define	PRIoPTR			"lo"
+
+/* intmax_t is 32 bits for SAS/C, 64-bits for GCC or if using a conforming C99 compiler. */
+
+#if defined(__GNUC__) || (defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L))
+#define	PRIdMAX			"lld"
+#define	PRIiMAX			"lli"
+#define	PRIuMAX			"llu"
+#define	PRIxMAX			"llx"
+#define	PRIXMAX			"llX"
+#define	PRIoMAX			"llo"
+#else
+#define	PRIdMAX			"ld"
+#define	PRIiMAX			"li"
+#define	PRIuMAX			"lu"
+#define	PRIxMAX			"lx"
+#define	PRIXMAX			"lX"
+#define	PRIoMAX			"lo"
+#endif /* __GNUC__ || (__STDC_VERSION__ && __STDC_VERSION__ >= 199901L) */
+
+/* scanf() format specifiers. */
+
+/* "Decimal" */
+#define	SCNd8			"hhd"
+#define	SCNd16			"hd"
+#define	SCNd32			"d"
+#define	SCNd64			"lld"
+
+#define	SCNdLEAST8		"hhd"
+#define	SCNdLEAST16		"hd"
+#define	SCNdLEAST32		"d"
+#define	SCNdLEAST64		"lld"
+
+#define	SCNdFAST8		"hhd"
+#define	SCNdFAST16		"d"
+#define	SCNdFAST32		"d"
+#define	SCNdFAST64		"lld"
+
+#define	SCNdPTR			"d"
+
+/* "Integer" */
+#define	SCNi8			"hhi"
+#define	SCNi16			"hi"
+#define	SCNi32			"i"
+#define	SCNi64			"lli"
+
+#define	SCNiLEAST8		"hhi"
+#define	SCNiLEAST16		"hi"
+#define	SCNiLEAST32		"i"
+#define	SCNiLEAST64		"lli"
+
+#define	SCNiFAST8		"hhi"
+#define	SCNiFAST16		"i"
+#define	SCNiFAST32		"i"
+#define	SCNiFAST64		"lli"
+
+#define	SCNiPTR			"i"
+
+/* "Unsigned" */
+#define	SCNu8			"hhu"
+#define	SCNu16			"hu"
+#define	SCNu32			"u"
+#define	SCNu64			"llu"
+
+#define	SCNuLEAST8		"hhu"
+#define	SCNuLEAST16		"hu"
+#define	SCNuLEAST32		"u"
+#define	SCNuLEAST64		"llu"
+
+#define	SCNuFAST8		"hhu"
+#define	SCNuFAST16		"u"
+#define	SCNuFAST32		"u"
+#define	SCNuFAST64		"llu"
+
+#define	SCNuPTR			"u"
+
+/* "Hexadecimal" */
+#define	SCNx8			"hhx"
+#define	SCNx16			"hx"
+#define	SCNx32			"x"
+#define	SCNx64			"llx"
+
+#define	SCNxLEAST8		"hhx"
+#define	SCNxLEAST16		"hx"
+#define	SCNxLEAST32		"x"
+#define	SCNxLEAST64		"llx"
+
+#define	SCNxFAST8		"hhx"
+#define	SCNxFAST16		"x"
+#define	SCNxFAST32		"x"
+#define	SCNxFAST64		"llx"
+
+#define	SCNxPTR			"x"
+
+/* "Octal" */
+#define	SCNo8			"hho"
+#define	SCNo16			"ho"
+#define	SCNo32			"o"
+#define	SCNo64			"llo"
+
+#define	SCNoLEAST8		"hho"
+#define	SCNoLEAST16		"ho"
+#define	SCNoLEAST32		"o"
+#define	SCNoLEAST64		"llo"
+
+#define	SCNoFAST8		"hho"
+#define	SCNoFAST16		"o"
+#define	SCNoFAST32		"o"
+#define	SCNoFAST64		"llo"
+
+#define	SCNoPTR			"o"
+
+#if defined(__GNUC__) || (defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L))
+#define	SCNdMAX			"lld"
+#define	SCNiMAX			"lli"
+#define	SCNuMAX			"llu"
+#define	SCNxMAX			"llx"
+#define	SCNoMAX			"llo"
+#else
+#define	SCNdMAX			"ld"
+#define	SCNiMAX			"li"
+#define	SCNuMAX			"lu"
+#define	SCNxMAX			"lx"
+#define	SCNoMAX			"lo"
+#endif /* __GNUC__ || (__STDC_VERSION__ && __STDC_VERSION__ >= 199901L) */
+
+/****************************************************************************/
+
+#if defined(__GNUC__) || (defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L))
+typedef struct { long long quot; long long rem; } imaxdiv_t;
+#else
+typedef struct { long quot; long rem; } imaxdiv_t;
+#endif /* __GNUC__ || (__STDC_VERSION__ && __STDC_VERSION__ >= 199901L) */
+
+/****************************************************************************/
+
+extern intmax_t imaxabs(intmax_t x);
+extern imaxdiv_t imaxdiv(intmax_t n,intmax_t d);
+
+/****************************************************************************/
+
+extern intmax_t strtoimax(const char *str, char **ptr, int base);
+extern uintmax_t strtoumax(const char *str, char **ptr, int base);
+
+/****************************************************************************/
+
+extern intmax_t wcstoimax(const wchar_t *str, char **ptr, int base);
+extern uintmax_t wcstoumax(const wchar_t *str, char **ptr, int base);
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#endif /* _INTTYPES_H */

library/include/limits.h

@@ -1,5 +1,5 @@
 /*
- * $Id: limits.h,v 1.4 2005-01-02 09:07:21 obarthel Exp $
+ * $Id: limits.h,v 1.8 2005-06-04 10:46:23 obarthel Exp $
  *
  * :ts=4
  *
@@ -37,24 +37,54 @@
 /****************************************************************************/
 
 #define CHAR_BIT 8
-#define CHAR_MAX	127
+
-#define CHAR_MIN	-128
+/****************************************************************************/
-#define INT_MAX		2147483647L
+
-#define INT_MIN		(-2147483647L - 1)
-#define LONG_MAX	2147483647L
-#define LONG_MIN	(-2147483647L - 1)
-#define SCHAR_MAX	127
 #define SCHAR_MIN -128
-#define SHRT_MAX	32767
+#define SCHAR_MAX 127
-#define SHRT_MIN	-32768
 #define UCHAR_MAX 255
-#define UINT_MAX	4294967295UL
+
-#define ULONG_MAX	4294967295UL
+/****************************************************************************/
+
+/*
+ * The following defines the range a 'char' can cover by checking a
+ * preprocessor symbol; we support both SAS/C and GCC here.
+ */
+
+#if (defined(__GNUC__) && defined(__CHAR_UNSIGNED__)) || (defined(__SASC) && defined(_UNSCHAR))
+
+#define CHAR_MIN 0
+#define CHAR_MAX 255
+
+#else
+
+#define CHAR_MIN -128
+#define CHAR_MAX 127
+
+#endif /* (__GNUC__ && __CHAR_UNSIGNED) || (__SASC && _UNSCHAR) */
+
+/****************************************************************************/
+
+#define SHRT_MIN	-32768
+#define SHRT_MAX	32767
 #define USHRT_MAX	65535
 
 /****************************************************************************/
 
-/* The following is not part of the ISO 'C' (1994) standard. */
+#define INT_MIN		(-2147483647L - 1)
+#define INT_MAX		2147483647L
+#define UINT_MAX	4294967295UL
+
+/****************************************************************************/
+
+#define LONG_MIN	(-2147483647L - 1)
+#define LONG_MAX	2147483647L
+#define ULONG_MAX	4294967295UL
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard, but it should
+   be part of ISO/IEC 9899:1999, also known as "C99". */
 
 /****************************************************************************/
 
@@ -64,8 +94,79 @@
 
 /****************************************************************************/
 
+#define MB_LEN_MAX 1
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+#define SSIZE_MAX 2147483647L
+
+/****************************************************************************/
+
 #define PATH_MAX 1024
 
 /****************************************************************************/
 
+#define WORD_BIT 32
+#define LONG_BIT 32	/* For now, at least. */
+
+/****************************************************************************/
+
+/*
+ * POSIX, POSIX... These are minimum maximum values. I.e. the maximum must be
+ * at least this large. I am not sure all of these make much sense on the Amiga
+ * (yet), but here they are anyway.
+ *
+ * Actually, these symbols should be defined only if the preprocessor symbol
+ * _POSIX_SOURCE is defined. Other symbols which should be defined, too, are
+ * ARG_MAX, CHILD_MAX, LINK_MAX, MAX_CANON, MAX_INPUT, NAME_MAX, NGROUPS_MAX,
+ * OPEN_MAX, PATH_MAX, PIPE_BUF, SSIZE_MAX, STREAM_MAX and TZNAME_MAX.
+ */
+
+#define _POSIX_AIO_LISTIO_MAX		2
+#define _POSIX_AIO_MAX				1
+#define _POSIX_ARG_MAX				4096
+#define _POSIX_CHILD_MAX			6
+#define _POSIX_DELAYTIMER_MAX		32
+#define _POSIX_LINK_MAX				8
+#define _POSIX_LOGIN_NAME_MAX		9
+#define _POSIX_MAX_CANON			255
+#define _POSIX_MAX_INPUT			255
+#define _POSIX_MQ_OPEN_MAX			8
+#define _POSIX_MQ_PRIO_MAX			32
+#define _POSIX_NAME_MAX				14
+#define _POSIX_NGROUPS_MAX			0
+#define _POSIX_OPEN_MAX				16
+#define _POSIX_PATH_MAX				255
+#define _POSIX_PIPE_BUF				512
+#define _POSIX_RTSIG_MAX			8
+#define _POSIX_SEM_NSEMS_MAX		256
+#define _POSIX_SEM_VALUE_MAX		32767
+#define _POSIX_SIGQUEUE_MAX			32
+#define _POSIX_SSIZE_MAX			32767
+#define _POSIX_STREAM_MAX			8
+#define _POSIX_THREAD_DESTRUCTOR_ITERATIONS	4
+#define _POSIX_THREAD_KEYS_MAX		128
+#define _POSIX_THREADS_MAX			64
+#define _POSIX_TIMER_MAX			32
+#define _POSIX_TTY_NAME_MAX			9
+#define _POSIX_TZNAME_MAX			3
+#define _POSIX2_BC_BASE_MAX			99
+#define _POSIX2_BC_DIM_MAX			2048
+#define _POSIX2_BC_SCALE_MAX		99
+#define _POSIX2_BC_STRING_MAX		1000
+#define _POSIX2_COLL_WEIGHTS_MAX	2
+#define _POSIX2_EXPR_NEST_MAX		32
+#define _POSIX2_LINE_MAX			2048
+#define _POSIX2_RE_DUP_MAX			255
+#define _XOPEN_IOV_MAX				16
+
+/* And a maximum minimum value. */
+#define _POSIX_CLOCKRES_MIN		20000000 /* Nanoseconds */
+
+/****************************************************************************/
+
 #endif /* _LIMITS_H */

library/include/math.h

@@ -1,5 +1,5 @@
 /*
- * $Id: math.h,v 1.5 2005-01-02 09:07:21 obarthel Exp $
+ * $Id: math.h,v 1.18 2005-10-16 09:05:03 obarthel Exp $
  *
  * :ts=4
  *
@@ -85,12 +85,241 @@ extern double tanh(double x);
 
 /****************************************************************************/
 
-extern double rint(double x);
+#define	M_E			2.7182818284590452354
+#define	M_LOG2E		1.4426950408889634074
+#define	M_LOG10E	0.43429448190325182765
+#define	M_LN2		0.69314718055994530942
+#define	M_LN10		2.30258509299404568402
+#define	M_PI		3.14159265358979323846
+#define	M_PI_2		1.57079632679489661923
+#define	M_PI_4		0.78539816339744830962
+#define	M_1_PI		0.31830988618379067154
+#define	M_2_PI		0.63661977236758134308
+#define	M_2_SQRTPI	1.12837916709551257390
+#define	M_SQRT2		1.41421356237309504880
+#define	M_SQRT1_2	0.70710678118654752440
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard, but it should
+   be part of ISO/IEC 9899:1999, also known as "C99". */
+
+/****************************************************************************/
+
+/* Note that the comparison operations performed on the floating point
+   data types ought to include float, double and long double. However,
+   because the current (2005-06-12) compiler technology available on the
+   Amiga does not support the long double type yet, this library is
+   restricted to operations on float and double. */
+
+/****************************************************************************/
+
+extern float __huge_val_float;
+
+/****************************************************************************/
+
+#define	HUGE_VALF ((const float)__huge_val_float)
+
+/****************************************************************************/
+
+extern float __infinity;
+extern float __nan;
+
+/****************************************************************************/
+
+#define INFINITY	((const float)__infinity)
+#define NAN			((const float)__nan)
+
+/****************************************************************************/
+
+#define FP_INFINITE		0	/* -/+ infinity */
+#define FP_NAN			1	/* not a number */
+#define FP_NORMAL		2	/* normalized floating point number */
+#define FP_SUBNORMAL	3	/* very small floating point number; special
+							   case of IEEE 754 */
+#define FP_ZERO			4	/* exponent/fraction are zero */
+
+/****************************************************************************/
+
+extern int __fpclassify_float(float x);
+extern int __fpclassify_double(double x);
+extern int __isfinite_float(float x);
+extern int __isfinite_double(double x);
+extern int __signbit_float(float x);
+extern int __signbit_double(double x);
+
+/****************************************************************************/
+
+#define fpclassify(x) \
+	(sizeof(x) == sizeof(float) ?	\
+		__fpclassify_float(x) :		\
+		__fpclassify_double(x))
+
+#define isfinite(x) \
+	(sizeof(x) == sizeof(float) ?	\
+		__isfinite_float(x) :		\
+		__isfinite_double(x))
+
+#define isinf(x) \
+	((sizeof(x) == sizeof(float) ?	\
+		__fpclassify_float(x) :		\
+		__fpclassify_double(x))		\
+	== FP_INFINITE)
+
+#define isnan(x) \
+	((sizeof(x) == sizeof(float) ?	\
+		__fpclassify_float(x) :		\
+		__fpclassify_double(x))		\
+	== FP_NAN)
+
+#define isnormal(x) \
+	((sizeof(x) == sizeof(float) ?	\
+		__fpclassify_float(x) :		\
+		__fpclassify_double(x))		\
+	== FP_NORMAL)
+
+#define signbit(x) \
+	(sizeof(x) == sizeof(float) ?	\
+		__signbit_float(x) :		\
+		__signbit_double(x))
+
+/****************************************************************************/
+
+extern int __isunordered_float(float x,float y);
+extern int __isunordered_float_double(float x,double y);
+extern int __isunordered_double(double x,double y);
+
+/****************************************************************************/
+
+#define isunordered(x,y) \
+	(sizeof(x) == sizeof(float) ?					\
+		(sizeof(y) == sizeof(float) ?				\
+			__isunordered_float((x),y) :			\
+			__isunordered_float_double((x),(y))) :	\
+		(sizeof(y) == sizeof(float) ?				\
+			__isunordered_float_double((y),(x)) :	\
+			__isunordered_double((x),(y))))
+
+#define isgreater(x,y) \
+	(isunordered(x,y) ? 0 : (x) > (y))
+
+#define isgreaterequal(x,y) \
+	(isunordered(x,y) ? 0 : (x) >= (y))
+
+#define isless(x,y) \
+	(isunordered(x,y) ? 0 : (x) < (y))
+
+#define islessequal(x,y) \
+	(isunordered(x,y) ? 0 : (x) <= (y))
+
+#define islessgreater(x,y) \
+	(isunordered(x,y) ? 0 : (x) < (y) || (x) > (y))	/* ZZZ don't evaluate twice! */
+
+/****************************************************************************/
+
+extern float acosf(float x);
+extern float asinf(float x);
+extern float atanf(float x);
+extern float atan2f(float y, float x);
+extern float ceilf(float x);
+extern float cosf(float x);
+extern float coshf(float x);
+extern float expf(float x);
+extern float fabsf(float x);
+extern float floorf(float x);
+extern float fmodf(float x, float y);
+extern float frexpf(float x, int *eptr);
+extern float ldexpf(float x,int exp);
+extern float logf(float x);
+extern float log10f(float x);
+extern float modff(float x, float *iptr);
+extern float powf(float x, float y);
+extern float sinf(float x);
+extern float sinhf(float x);
+extern float sqrtf(float x);
+extern float tanf(float x);
+extern float tanhf(float x);
+
+/****************************************************************************/
+
+extern float acoshf(float x);
+extern float asinhf(float x);
+extern float atanhf(float x);
+extern float cbrtf(float x);
+extern float copysignf(float x, float y);
+extern float erfcf(float x);
+extern float erff(float x);
+extern float expm1f(float x);
+extern float fdimf(float x,float y);
+extern float fmaf(float x,float y,float z);
+extern float fmaxf(float x,float y);
+extern float fminf(float x,float y);
+extern float hypotf(float x, float y);
+extern float lgammaf(float x);
+extern float log1pf(float x);
+extern float logbf(float x);
+extern long int lrintf(float x);
+extern long int lroundf(float x);
+extern float nanf(const char *tagp);
+extern float nearbyintf(float x);
+extern float nextafterf(float x,float y);
+extern float remainderf(float x, float p);
+extern float remquof(float x,float y,int * quo);
 extern float rintf(float x);
-extern int isinf(double x);
+extern float roundf(float x);
-extern int isnan(double x);
+extern float scalbnf (float x, int n);
-extern double logb(double x);
+extern float tgammaf(float x);
+extern float truncf(float x);
+extern int ilogbf(float x);
+
+/****************************************************************************/
+
+extern double acosh(double x);
+extern double asinh(double x);
+extern double atanh(double x);
+extern double cbrt(double x);
+extern double copysign(double x, double y);
+extern double erf(double x);
+extern double erfc(double x);
+extern double expm1(double x);
+extern double fdim(double x,double y);
+extern double fma(double x,double y,double z);
+extern double fmax(double x,double y);
+extern double fmin(double x,double y);
 extern double hypot(double x,double y);
+extern double lgamma(double x);
+extern double log1p(double x);
+extern double logb(double x);
+extern long int lrint(double x);
+extern long int lround(double x);
+extern double nan(const char *tagp);
+extern double nearbyint(double x);
+extern double nextafter(double x,double y);
+extern double remainder(double x, double p);
+extern double remquo(double x,double y,int * quo);
+extern double rint(double x);
+extern double round(double x);
+extern double scalbn (double x, int n);
+extern double tgamma(double x);
+extern double trunc(double x);
+extern int ilogb(double x);
+
+/****************************************************************************/
+
+extern float exp2f(float x);
+extern double exp2(double x);
+
+extern double log2(double x);
+extern float log2f(float x);
+
+/****************************************************************************/
+
+#define FLT_EVAL_METHOD 0
+
+/****************************************************************************/
+
+typedef float	float_t;
+typedef double	double_t;
 
 /****************************************************************************/
 

library/include/netdb.h

@@ -0,0 +1,174 @@
+/*
+ * $Id: netdb.h,v 1.1 2005-10-09 12:32:18 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _NETDB_H
+#define _NETDB_H
+
+/****************************************************************************/
+
+#ifndef _SYS_SOCKET_H
+#include <sys/socket.h>
+#endif /* _SYS_SOCKET_H */
+
+#ifndef _NETINET_IN_H
+#include <netinet/in.h>
+#endif /* _NETINET_IN_H */
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#ifdef __GNUC__
+ #ifdef __PPC__
+  #pragma pack(2)
+ #endif
+#elif defined(__VBCC__)
+ #pragma amiga-align
+#endif
+
+/****************************************************************************/
+
+#define MAXHOSTNAMELEN 256 /* max hostname size */
+
+/****************************************************************************/
+
+/*
+ * Structures returned by network data base library.  All addresses are
+ * supplied in host order, and returned in network order (suitable for
+ * use in system calls).
+ */
+struct hostent
+{
+	char *	h_name;				/* official name of host */
+	char **	h_aliases;			/* alias list */
+	int		h_addrtype;			/* host address type */
+	int		h_length;			/* length of address */
+	char **	h_addr_list;		/* list of addresses from name server */
+};
+
+#define	h_addr h_addr_list[0] /* address, for backward compatiblity */
+
+/*
+ * Assumption here is that a network number
+ * fits in an unsigned long -- probably a poor one.
+ */
+struct netent
+{
+	char *			n_name;		/* official name of net */
+	char **			n_aliases;	/* alias list */
+	int				n_addrtype;	/* net address type */
+	in_addr_t		n_net;		/* network # */
+};
+
+struct servent
+{
+	char *		s_name;		/* official service name */
+	char **		s_aliases;	/* alias list */
+	int			s_port;		/* port # */
+	char *		s_proto;	/* protocol to use */
+};
+
+struct protoent
+{
+	char *		p_name;		/* official protocol name */
+	char **		p_aliases;	/* alias list */
+	int			p_proto;	/* protocol # */
+};
+
+/****************************************************************************/
+
+/*
+ * Error return codes from gethostbyname() and gethostbyaddr()
+ * (left in extern int h_errno).
+ */
+
+#define	NETDB_INTERNAL	-1	/* see errno */
+#define	NETDB_SUCCESS	0	/* no problem */
+#define	HOST_NOT_FOUND	1 	/* Authoritative Answer Host not found */
+#define	TRY_AGAIN		2 	/* Non-Authoritive Host not found, or SERVERFAIL */
+#define	NO_RECOVERY		3 	/* Non recoverable errors, FORMERR, REFUSED, NOTIMP */
+#define	NO_DATA			4 	/* Valid name, no data record of requested type */
+#define	NO_ADDRESS		NO_DATA	/* no address, look for MX record */
+
+/****************************************************************************/
+
+extern int h_errno;
+
+/****************************************************************************/
+
+/*
+ * The following prototypes may clash with the bsdsocket.library or
+ * usergroup.library API definitions.
+ */
+
+#ifndef __NO_NET_API
+
+extern struct hostent *gethostbyaddr(const void *addr, socklen_t len, int type);
+extern struct hostent *gethostbyname(const char *name);
+extern struct netent *getnetbyaddr(in_addr_t net, int type);
+extern struct netent *getnetbyname(const char *name);
+extern struct protoent *getprotobyname(const char *name);
+extern struct protoent *getprotobynumber(int proto);
+extern struct servent *getservbyname(const char *name, const char *proto);
+extern struct servent *getservbyport(int port, const char *proto);
+extern const char *hstrerror(int err);
+
+#endif /* __NO_NET_API */
+
+/****************************************************************************/
+
+#ifdef __GNUC__
+ #ifdef __PPC__
+  #pragma pack()
+ #endif
+#elif defined(__VBCC__)
+ #pragma default-align
+#endif
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#endif /* _NETDB_H */