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

git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/tags/V1_202@15174 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.html

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

documentation/GCC-68K.html

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

documentation/README.html

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

documentation/specs

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

library/GNUmakefile.68k

@@ -1,5 +1,5 @@
 #
-# $Id: GNUmakefile.68k,v 1.96 2006-09-17 17:36:42 obarthel Exp $
+# $Id: GNUmakefile.68k,v 1.101 2007-01-06 10:09:48 obarthel Exp $
 #
 # :ts=8
 #
@@ -183,11 +183,14 @@ C_LIB = \
 	stat_fchmod.o \
 	stat_fstat.o \
 	stat_lstat.o \
+	stat_lock.o \
 	stat_mkdir.o \
 	stat_rmdir.o \
 	stat_stat.o \
 	stat_umask.o \
 	stdio_asprintf.o \
+	stdio_change_fd_action.o \
+	stdio_change_fd_user_data.o \
 	stdio_clearerr.o \
 	stdio_dropiobreadbuffer.o \
 	stdio_duplicate_fd.o \
@@ -227,6 +230,7 @@ C_LIB = \
 	stdio_getchar.o \
 	stdio_getchar_unlocked.o \
 	stdio_gets.o \
+	stdio_get_fd.o \
 	stdio_get_file_descriptor.o \
 	stdio_growfdtable.o \
 	stdio_growiobtable.o \
@@ -252,6 +256,7 @@ C_LIB = \
 	stdio_remove.o \
 	stdio_remove_fd_alias.o \
 	stdio_rename.o \
+	stdio_resolve_fd_file.o \
 	stdio_rewind.o \
 	stdio_scanf.o \
 	stdio_setbuf.o \
@@ -455,6 +460,7 @@ C_LIB = \
 	unistd_time_delay.o \
 	unistd_truncate.o \
 	unistd_unlink.o \
+	unistd_unlink_retries.o \
 	unistd_usleep.o \
 	utime_utime.o \
 	utsname_uname.o
@@ -477,6 +483,7 @@ UNIX_LIB = \
 	stat_chmod.o \
 	stat_fstat.o \
 	stat_lstat.o \
+	stat_lock.o \
 	stat_mkdir.o \
 	stat_rmdir.o \
 	stat_stat.o \
@@ -657,6 +664,7 @@ MATH_LIB = \
 	math_ldexpf.o \
 	math_lgamma.o \
 	math_lgammaf.o \
+	math_llrint.o \
 	math_log.o \
 	math_log10.o \
 	math_log10f.o \

library/GNUmakefile.os4

@@ -1,5 +1,5 @@
 #
-# $Id: GNUmakefile.os4,v 1.109 2006-09-17 17:37:27 obarthel Exp $
+# $Id: GNUmakefile.os4,v 1.111 2007-01-06 10:09:48 obarthel Exp $
 #
 # :ts=8
 #
@@ -91,7 +91,28 @@ include libprofile.gmk
 all-targets: \
 	lib/crt0.o \
 	lib/small-data/crt0.o \
+	lib/soft-float/crt0.o \
 	lib/baserel/crt0.o \
+	lib/crtbegin.o \
+	lib/soft-float/crtbegin.o \
+	lib/small-data/crtbegin.o \
+	lib/baserel/crtbegin.o \
+	lib/crtend.o \
+	lib/soft-float/crtend.o \
+	lib/small-data/crtend.o \
+	lib/baserel/crtend.o \
+	lib.threadsafe/crt0.o \
+	lib.threadsafe/small-data/crt0.o \
+	lib.threadsafe/soft-float/crt0.o \
+	lib.threadsafe/baserel/crt0.o \
+	lib.threadsafe/crtbegin.o \
+	lib.threadsafe/soft-float/crtbegin.o \
+	lib.threadsafe/small-data/crtbegin.o \
+	lib.threadsafe/baserel/crtbegin.o \
+	lib.threadsafe/crtend.o \
+	lib.threadsafe/soft-float/crtend.o \
+	lib.threadsafe/small-data/crtend.o \
+	lib.threadsafe/baserel/crtend.o \
 	$(LIBS)
 
 ##############################################################################
@@ -136,14 +157,58 @@ lib/%.o : AFLAGS += $(LARGEDATA)
 lib/%.o : %.S
 	@$(ASSEMBLE)
 
+lib/%.o : %.c
+	@$(COMPILE)
+
 lib/small-data/%.o : AFLAGS += $(SMALLDATA)
 lib/small-data/%.o : %.S
 	@$(ASSEMBLE)
 
+lib/small-data/%.o : %.c
+	@$(COMPILE)
+
+lib/soft-float/%.o : AFLAGS += $(SOFTFLOAT)
+lib/soft-float/%.o : %.S
+	@$(ASSEMBLE)
+
+lib/soft-float/%.o : %.c
+	@$(COMPILE)
+
 lib/baserel/%.o : AFLAGS += $(BASEREL)
 lib/baserel/%.o : %.S
 	@$(ASSEMBLE)
 
+lib/baserel/%.o : %.c
+	@$(COMPILE)
+
+lib.threadsafe/%.o : AFLAGS += $(LARGEDATA) $(THREADSAFE)
+lib.threadsafe/%.o : %.S
+	@$(ASSEMBLE)
+
+lib.threadsafe/%.o : %.c
+	@$(COMPILE)
+
+lib.threadsafe/small-data/%.o : AFLAGS += $(SMALLDATA) $(THREADSAFE)
+lib.threadsafe/small-data/%.o : %.S
+	@$(ASSEMBLE)
+
+lib.threadsafe/small-data/%.o : %.c
+	@$(COMPILE)
+
+lib.threadsafe/soft-float/%.o : AFLAGS += $(SOFTFLOAT) $(THREADSAFE)
+lib.threadsafe/soft-float/%.o : %.S
+	@$(ASSEMBLE)
+
+lib.threadsafe/soft-float/%.o : %.c
+	@$(COMPILE)
+
+lib.threadsafe/baserel/%.o : AFLAGS += $(BASEREL) $(THREADSAFE)
+lib.threadsafe/baserel/%.o : %.S
+	@$(ASSEMBLE)
+
+lib.threadsafe/baserel/%.o : %.c
+	@$(COMPILE)
+
 ##############################################################################
 
 define COMPILE

library/amiga.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	201
-#define DATE		"21.9.2006"
-#define VERS		"amiga.lib 1.201"
-#define VSTRING		"amiga.lib 1.201 (21.9.2006)\r\n"
-#define VERSTAG		"\0$VER: amiga.lib 1.201 (21.9.2006)"
+#define REVISION	202
+#define DATE		"16.1.2007"
+#define VERS		"amiga.lib 1.202"
+#define VSTRING		"amiga.lib 1.202 (16.1.2007)\r\n"
+#define VERSTAG		"\0$VER: amiga.lib 1.202 (16.1.2007)"

library/amiga.lib_rev.rev

@@ -1 +1 @@
-201
+202

library/amiga_acrypt.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_acrypt.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_acrypt.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -49,6 +49,10 @@
 
 /****************************************************************************/
 
+UBYTE * ACrypt(UBYTE * buffer, const UBYTE * password, const UBYTE * user);
+
+/****************************************************************************/
+
 UBYTE *
 ACrypt(UBYTE * buffer, const UBYTE * password, const UBYTE * user)
 {

library/amiga_argarraydone.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_argarraydone.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_argarraydone.c,v 1.4 2006-09-25 14:05:31 obarthel Exp $
  *
  * :ts=4
  *
@@ -48,7 +48,7 @@
 
 /****************************************************************************/
 
-extern char **CXLIB_argarray;
+extern const unsigned char **CXLIB_argarray;
 
 extern struct DiskObject * CXLIB_disko;
 

library/amiga_beginio.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_beginio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_beginio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -103,6 +103,10 @@ BeginIO(struct IORequest *ior)
 
 /****************************************************************************/
 
+VOID BeginIO(struct IORequest *ior);
+
+/****************************************************************************/
+
 VOID
 BeginIO(struct IORequest *ior)
 {

library/amiga_createextio.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_createextio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_createextio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -50,6 +50,10 @@
 
 /****************************************************************************/
 
+struct IORequest * CreateExtIO(CONST struct MsgPort * port, LONG io_size);
+
+/****************************************************************************/
+
 struct IORequest *
 CreateExtIO(CONST struct MsgPort * port, LONG io_size)
 {

library/amiga_createport.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_createport.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_createport.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -50,6 +50,10 @@
 
 /****************************************************************************/
 
+struct MsgPort * CreatePort(CONST_STRPTR name, LONG pri);
+
+/****************************************************************************/
+
 struct MsgPort *
 CreatePort(CONST_STRPTR name, LONG pri)
 {

library/amiga_createstdio.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_createstdio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_createstdio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -50,6 +50,10 @@
 
 /****************************************************************************/
 
+struct IOStdReq * CreateStdIO(CONST struct MsgPort * port);
+
+/****************************************************************************/
+
 struct IOStdReq *
 CreateStdIO(CONST struct MsgPort * port)
 {

library/amiga_createtask.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_createtask.c,v 1.5 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_createtask.c,v 1.6 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -209,6 +209,10 @@ CreateTask(CONST_STRPTR name,LONG pri,CONST APTR init_pc,ULONG stack_size)
 
 /****************************************************************************/
 
+struct Task * CreateTask(CONST_STRPTR name,LONG pri,CONST APTR init_pc,ULONG stack_size);
+
+/****************************************************************************/
+
 struct Task *
 CreateTask(CONST_STRPTR name,LONG pri,CONST APTR init_pc,ULONG stack_size)
 {

library/amiga_deleteextio.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_deleteextio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_deleteextio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -50,6 +50,10 @@
 
 /****************************************************************************/
 
+VOID DeleteExtIO(struct IORequest * io);
+
+/****************************************************************************/
+
 VOID
 DeleteExtIO(struct IORequest * io)
 {

library/amiga_deleteport.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_deleteport.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_deleteport.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -50,6 +50,10 @@
 
 /****************************************************************************/
 
+VOID DeletePort(struct MsgPort * port);
+
+/****************************************************************************/
+
 VOID
 DeletePort(struct MsgPort * port)
 {

library/amiga_deletestdio.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_deletestdio.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_deletestdio.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -50,6 +50,10 @@
 
 /****************************************************************************/
 
+VOID DeleteStdIO(struct IOStdReq * io);
+
+/****************************************************************************/
+
 VOID
 DeleteStdIO(struct IOStdReq * io)
 {

library/amiga_deletetask.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_deletetask.c,v 1.4 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_deletetask.c,v 1.5 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -63,6 +63,10 @@ DeleteTask(struct Task *tc)
 
 /****************************************************************************/
 
+VOID DeleteTask(struct Task *tc);
+
+/****************************************************************************/
+
 VOID
 DeleteTask(struct Task *tc)
 {

library/amiga_newlist.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_newlist.c,v 1.3 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: amiga_newlist.c,v 1.4 2006-09-25 15:12:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -43,6 +43,10 @@
 
 /****************************************************************************/
 
+VOID NewList(struct List *lh);
+
+/****************************************************************************/
+
 VOID
 NewList(struct List *lh)
 {

library/amiga_rexxvars.c

@@ -1,5 +1,5 @@
 /*
- * $Id: amiga_rexxvars.c,v 1.8 2006-09-22 09:02:51 obarthel Exp $
+ * $Id: amiga_rexxvars.c,v 1.10 2006-09-25 18:19:44 obarthel Exp $
  *
  * :ts=4
  *
@@ -68,6 +68,12 @@ static struct RexxSysIFace * IRexxSys;
 
 /****************************************************************************/
 
+BOOL CheckRexxMsg(struct RexxMsg *message);
+LONG GetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR *buffer_pointer);
+LONG SetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR value,ULONG length);
+
+/****************************************************************************/
+
 CLIB_CONSTRUCTOR(rexxvars_init)
 {
 	ENTER();
@@ -136,7 +142,7 @@ CheckRexxMsg(struct RexxMsg *message)
 	if(message->rm_TaskBlock == NULL)
 		goto out;
 
-	if(NOT IsRexxMsg(message))
+	if(NOT IsRexxMsg((struct Message *)message))
 		goto out;
 
 	result = TRUE;
@@ -159,7 +165,7 @@ GetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR *buffer_pointer)
 
 	/* The following uses a function which was added to rexxsyslib.library V45.
 	   We therefore have a minimum library version requirement. */
-	if(RexxSysBase == NULL || RexxSysBase->lib_Version < 45 || NOT IsRexxMsg(message))
+	if(RexxSysBase == NULL || RexxSysBase->lib_Version < 45 || NOT IsRexxMsg((struct Message *)message))
 	{
 		result = ERR10_010; /* invalid message packet */
 		goto out;
@@ -189,7 +195,7 @@ SetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR value,ULONG lengt
 
 	/* The following uses a function which was added to rexxsyslib.library V45.
 	   We therefore have a minimum library version requirement. */
-	if(RexxSysBase == NULL || RexxSysBase->lib_Version < 45 || NOT IsRexxMsg(message))
+	if(RexxSysBase == NULL || RexxSysBase->lib_Version < 45 || NOT IsRexxMsg((struct Message *)message))
 	{
 		result = ERR10_010; /* invalid message packet */
 		goto out;

library/c.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	201
-#define DATE		"21.9.2006"
-#define VERS		"c.lib 1.201"
-#define VSTRING		"c.lib 1.201 (21.9.2006)\r\n"
-#define VERSTAG		"\0$VER: c.lib 1.201 (21.9.2006)"
+#define REVISION	202
+#define DATE		"16.1.2007"
+#define VERS		"c.lib 1.202"
+#define VSTRING		"c.lib 1.202 (16.1.2007)\r\n"
+#define VERSTAG		"\0$VER: c.lib 1.202 (16.1.2007)"

library/c.lib_rev.rev

@@ -1 +1 @@
-201
+202

library/changes

@@ -1,3 +1,109 @@
+c.lib 1.202 (16.1.2007)
+
+- Added llrint() function contributed by Henning Nielsen Lund. Thank you
+  very much!
+
+- <unistd.h> now also include <stdio.h>, so that the SEEK_SET, etc. macros
+  are defined for lseek() to use.
+
+- Added a wrapper function which handles the thread-safe stdio stream
+  resolution.
+
+- In tcflush() a break signal can no longer cause the read flush loop
+  to be quit with two semaphores still locked.
+
+- In __obtain_daemon_message() the test to verify if the bsdsocket.library API
+  would support the server API functionality checked the wrong feature. Fixed.
+
+- Switched over the fd->fd_DefaultFile references to fd->fd_Socket where
+  sockets are used rather than file handles.
+
+- Added functions which modify the callback function and the userdata pointer
+  stored in a low level unbuffered file/socket data structure. These function
+  perform the proper locking and are thus safe to use in a thread-safe environment.
+
+- The low level unbuffered file/socket now has a public equivalent, which
+  is defined (along with the typedefs and flags) in <sys/clib2_io.h>. Functions
+  for tinkering with it are still to come.
+
+- The math kernel code no longer uses its own private scalbn() function.
+
+- Added a function prototype for the _exit() function. Note that _exit() is
+  not an ISO 'C' function.
+
+- Corrected the getopt() function prototype, as prompted by Henning Nielsen Lund.
+
+- The printf() family no longer adds a 0 or 0x prefix if the alternate
+  conversion modifier is present for the %o and %x conversions and the
+  value to be converted is 0 already. Put another way, printf("%#x %#o",0,0);
+  now prints "0 0". This required another change so that %p always includes
+  the 0x prefix even if the pointer involved is a NULL pointer.
+
+- readlink() no longer sort-of-works for files and directories. It now only
+  works for soft linked objects and returns an error for everything else.
+  This is based upon a fix by Peter Bengtsson. Thank you very much!
+
+- Moved the lstat() local Lock() function into its own separate file.
+
+- uname() now returns correct and robust information for OS version
+  numbers > 36. This integrates a fix by Peter Bengtsson. Thank you
+  very much!
+
+- Moved the crtbegin.o/crtend.o files out of the link libraries. Moving
+  them in was intended to work as a fix for the shared library build, but
+  now it seems that this has to be done at the link stage through the
+  GCC specs file...
+
+- Integrated a fix for __rem_pio2() which affects sin(), tan() and cos(),
+  contributed by Steven Solie. Thank you very much!
+
+- The internal 'struct fd' file descriptor table entry data structure
+  now has a user data field entry.
+
+- Rearranged the contents of the 'struct fd' file descriptor table entry
+  data structure in preparation for making it public. Also added a version
+  field so that user code can handle changes to it gracefully. The default
+  file is no longer a BCPL pointer to a file handle by default, but
+  both a BPTR and a socket identifier, wrapped into a union.
+
+- Added experimental tilde expansion in Unix path names. This still needs
+  some more work.
+
+- __get_default_file() called __fd_unlock() without having called
+  __fd_lock() first. Ouch.
+
+- Removed an unnecessary pair of __fd_lock()..__fd_unlock() calls from
+  ttyname_r().
+
+- The libunix.a unlink() function is now reentrant, or at least thread-safe.
+
+- You can now make unlink() stop after a failed deletion attempt which
+  failed because the object to be deleted was reported as being "in use".
+  The libunix.a variant defaults to report the deletion to have succeeded
+  under these circumstances and later tries to delete the files marked
+  for deletion. See <dos.h> for a brief documentation of how to change
+  the behaviour.
+
+- basename() and dirname() can no longer return NULL. They truncate the
+  resulting path name instead. This is done so because some code that
+  calls basename() or dirname() does not check if the function's return
+  value is NULL.
+
+- The SetOwner() fall-back code for Kickstart 2.04 was passing the wrong
+  parameters to the file system. The first (dp_Arg1) should have been
+  zero. Ouch.
+
+- basename() is not supposed to modify the string it is passed and should
+  return a pointer to a string which can be modified. Now it does. Same
+  thing for dirname().
+
+- asctime_r() now returns NULL if the buffer is too short to hold even a single
+  byte of data.
+
+- ttyname() now calls ttyname_r(). Also, the libunix.a version of ttyname_r()
+  will produce "/CONSOLE" rather than "CONSOLE:".
+
+
 c.lib 1.201 (21.9.2006)
 
 - If defined, the local environment variable "DISABLE_COMMANDLINE_WILDCARD_EXPANSION"

library/contrib/README

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

library/contrib/byteswap/byteswap.h

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

library/contrib/byteswap/byteswap_bswap16.c

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

library/contrib/byteswap/byteswap_bswap24.c

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

library/contrib/byteswap/byteswap_bswap32.c

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

library/contrib/byteswap/byteswap_bswap64.c

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

library/contrib/byteswap/byteswap_swab.c

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

library/contrib/byteswap/byteswap_swab24.c

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

library/contrib/byteswap/byteswap_swab32.c

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

library/contrib/byteswap/byteswap_swab64.c

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

library/debug.c

@@ -1,5 +1,5 @@
 /*
- * $Id: debug.c,v 1.5 2006-09-22 09:02:51 obarthel Exp $
+ * $Id: debug.c,v 1.6 2006-09-25 14:51:15 obarthel Exp $
  *
  * :ts=8
  *
@@ -273,7 +273,7 @@ _DPRINTF(const char *fmt,...)
 		va_list args;
 
 		va_start(args,fmt);
-		KPutFmt((char *)fmt,args);
+		KPutFmt(fmt,args);
 		va_end(args);
 
 		KPrintF("\n");
@@ -288,7 +288,7 @@ _DLOG(const char *fmt,...)
 		va_list args;
 
 		va_start(args,fmt);
-		KPutFmt((char *)fmt,args);
+		KPutFmt(fmt,args);
 		va_end(args);
 	}
 }

library/debug.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	201
-#define DATE		"21.9.2006"
-#define VERS		"debug.lib 1.201"
-#define VSTRING		"debug.lib 1.201 (21.9.2006)\r\n"
-#define VERSTAG		"\0$VER: debug.lib 1.201 (21.9.2006)"
+#define REVISION	202
+#define DATE		"16.1.2007"
+#define VERS		"debug.lib 1.202"
+#define VSTRING		"debug.lib 1.202 (16.1.2007)\r\n"
+#define VERSTAG		"\0$VER: debug.lib 1.202 (16.1.2007)"

library/debug.lib_rev.rev

@@ -1 +1 @@
-201
+202

library/dirent_readdir.c

@@ -1,5 +1,5 @@
 /*
- * $Id: dirent_readdir.c,v 1.9 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: dirent_readdir.c,v 1.10 2006-09-25 14:51:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -88,7 +88,7 @@ readdir(DIR * directory_pointer)
 			{
 				D_S(struct FileInfoBlock,fib);
 				D_S(struct bcpl_name,bcpl_name);
-				UBYTE * name = bcpl_name->name;
+				char * name = (char *)bcpl_name->name;
 				BPTR dir_lock;
 
 				assert( (((ULONG)name) & 3) == 0 );
@@ -96,7 +96,7 @@ readdir(DIR * directory_pointer)
 				if(dh->dh_VolumeNode == NULL && NOT IsListEmpty((struct List *)&dh->dh_VolumeList))
 					dh->dh_VolumeNode = (struct Node *)dh->dh_VolumeList.mlh_Head;
 
-				strcpy((char *)name,"\1:"); /* BSTR for ":" */
+				strcpy(name,"\1:"); /* BSTR for ":" */
 
 				while(result == NULL && dh->dh_VolumeNode != NULL && dh->dh_VolumeNode->ln_Succ != NULL)
 				{

library/fcntl_fcntl.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_fcntl.c,v 1.19 2006-01-08 12:04:22 obarthel Exp $
+ * $Id: fcntl_fcntl.c,v 1.20 2006-11-16 14:39:23 obarthel Exp $
  *
  * :ts=4
  *
@@ -97,7 +97,7 @@ fcntl(int file_descriptor, int cmd, ... /* int arg */ )
 				goto out;
 			}
 
-			if(fd->fd_DefaultFile == ZERO)
+			if(fd->fd_File == ZERO)
 			{
 				__set_errno(EBADF);
 				goto out;
@@ -155,7 +155,7 @@ fcntl(int file_descriptor, int cmd, ... /* int arg */ )
 			SHOWMSG("cmd=F_SETFL");
 
 			/* 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)
+			if(FLAG_IS_CLEAR(fd->fd_Flags,FDF_IS_SOCKET) && fd->fd_File == ZERO)
 			{
 				__set_errno(EBADF);
 				goto out;

library/fcntl_get_default_file.c

@@ -1,5 +1,5 @@
 /*
- * $Id: fcntl_get_default_file.c,v 1.6 2006-09-12 14:16:44 obarthel Exp $
+ * $Id: fcntl_get_default_file.c,v 1.8 2006-11-16 14:39:23 obarthel Exp $
  *
  * :ts=4
  *
@@ -46,7 +46,6 @@ __get_default_file(int file_descriptor,long * file_ptr)
 {
 	int result = ERROR;
 	struct fd * fd;
-	BPTR file;
 
 	assert( file_descriptor >= 0 && file_descriptor < __num_fd );
 	assert( __fd[file_descriptor] != NULL );
@@ -60,67 +59,9 @@ __get_default_file(int file_descriptor,long * file_ptr)
 		goto out;
 	}
 
-	__fd_unlock(fd);
+	__fd_lock(fd);
 
-	#if defined(__THREAD_SAFE)
-	{
-		/* Check if this file should be dynamically bound to one of the
-		   three standard I/O streams. */
-		if(FLAG_IS_SET(fd->fd_Flags,FDF_STDIO))
-		{
-			switch(fd->fd_DefaultFile)
-			{
-				case STDIN_FILENO:
-
-					file = Input();
-					break;
-
-				case STDOUT_FILENO:
-
-					file = Output();
-					break;
-
-				case STDERR_FILENO:
-
-					#if defined(__amigaos4__)
-					{
-						file = ErrorOutput();
-					}
-					#else
-					{
-						struct Process * this_process = (struct Process *)FindTask(NULL);
-
-						file = this_process->pr_CES;
-					}
-					#endif /* __amigaos4__ */
-
-					/* The following is rather controversial; if the standard error stream
-					   is unavailable, we default to reuse the standard output stream. This
-					   is problematic if the standard output stream was redirected and should
-					   not be the same as the standard error output stream. */
-					if(file == ZERO)
-						file = Output();
-
-					break;
-
-				default:
-
-					file = ZERO;
-					break;
-			}
-		}
-		else
-		{
-			file = fd->fd_DefaultFile;
-		}
-	}
-	#else
-	{
-		file = fd->fd_DefaultFile;
-	}
-	#endif /* __THREAD_SAFE */
-
-	(*file_ptr) = (long)file;
+	(*file_ptr) = (long)__resolve_fd_file(fd);
 
 	result = 0;
 

library/include/dos.h

@@ -1,5 +1,5 @@
 /*
- * $Id: dos.h,v 1.26 2006-09-22 07:54:25 obarthel Exp $
+ * $Id: dos.h,v 1.28 2006-09-27 09:40:06 obarthel Exp $
  *
  * :ts=4
  *
@@ -509,8 +509,8 @@ extern BOOL (*__expand_wildcard_args_check)(void);
  * ("/gcc/bin:/SDK/C:/SDK/Local/C:/C:.") as used by the execvp()
  * function.
  */
-extern char * __default_path_delimiter;
-extern char * __default_path;
+extern const char * __default_path_delimiter;
+extern const char * __default_path;
 
 /****************************************************************************/
 
@@ -555,6 +555,16 @@ extern void __execve_exit(int return_code);
 
 /****************************************************************************/
 
+/*
+ * The unlink() and remove() functions in libunix.a may return success even
+ * though deletion failed because the file/directory/link in question is still
+ * reported as being "in use". This is the default behaviour. If you want the
+ * deletion to fail instead, set '__unlink_retries' to FALSE.
+ */
+extern BOOL __unlink_retries;
+
+/****************************************************************************/
+
 #ifdef __cplusplus
 }
 #endif /* __cplusplus */

library/include/libgen.h

@@ -1,5 +1,5 @@
 /*
- * $Id: libgen.h,v 1.6 2006-01-08 12:06:14 obarthel Exp $
+ * $Id: libgen.h,v 1.7 2006-09-25 13:29:47 obarthel Exp $
  *
  * :ts=4
  *
@@ -53,8 +53,8 @@ extern "C" {
 
 /****************************************************************************/
 
-char * basename(char *path);
-char * dirname(char *path);
+char * basename(const char *path);
+char * dirname(const char *path);
 
 /****************************************************************************/
 

library/include/math.h

@@ -1,5 +1,5 @@
 /*
- * $Id: math.h,v 1.21 2006-01-08 12:06:14 obarthel Exp $
+ * $Id: math.h,v 1.22 2007-01-06 10:09:49 obarthel Exp $
  *
  * :ts=4
  *
@@ -297,6 +297,7 @@ extern double hypot(double x,double y);
 extern double lgamma(double x);
 extern double log1p(double x);
 extern double logb(double x);
+extern long long int llrint(double x);
 extern long int lrint(double x);
 extern long int lround(double x);
 extern double nan(const char *tagp);

library/include/stdlib.h

@@ -1,5 +1,5 @@
 /*
- * $Id: stdlib.h,v 1.17 2006-01-08 12:06:14 obarthel Exp $
+ * $Id: stdlib.h,v 1.18 2006-11-13 09:51:53 obarthel Exp $
  *
  * :ts=4
  *
@@ -156,6 +156,7 @@ extern long atol(const char *str);
 
 /****************************************************************************/
 
+extern void _exit(int status);
 extern int rand_r(unsigned int * seed);
 
 /****************************************************************************/

library/include/sys/clib2_io.h

@@ -0,0 +1,190 @@
+/*
+ * $Id: clib2_io.h,v 1.4 2006-11-16 14:39:23 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ *
+ *****************************************************************************
+ *
+ * Documentation and source code for this library, and the most recent library
+ * build are available from <http://sourceforge.net/projects/clib2>.
+ *
+ *****************************************************************************
+ */
+
+#ifndef	_SYS_CLIB2_IO_H
+#define	_SYS_CLIB2_IO_H
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+/* Operations that can be performed by the file action function. */
+enum file_action_t
+{
+	file_action_read,
+	file_action_write,
+	file_action_seek,
+	file_action_close,
+	file_action_set_blocking,
+	file_action_set_async,
+	file_action_examine
+};
+
+/****************************************************************************/
+
+/* A message sent to a file action function. */
+struct file_action_message
+{
+	enum file_action_t		fam_Action;		/* What to do */
+	char *					fam_Data;		/* Where to read/write the data */
+	int						fam_Size;		/* How much data to write */
+
+	long int				fam_Offset;		/* The seek offset */
+	int						fam_Mode;		/* The seek mode */
+
+	int						fam_Arg;		/* Action parameters, e.g. whether or not
+											   this file should be set non-blocking or
+											   use asynchronous I/O */
+
+	struct FileInfoBlock *	fam_FileInfo;	/* File information to be filled in */
+	struct MsgPort *		fam_FileSystem;	/* File system pointer to be filled in */
+
+	int						fam_Error;		/* Error code, if any... */
+};
+
+/****************************************************************************/
+
+/* A forward declaration to make the following typedef work. */
+struct _fd;
+
+/****************************************************************************/
+
+/* The file action function for unbuffered files. */
+typedef int (*_file_action_fd_t)(struct _fd * _fd,struct file_action_message * fam);
+
+/****************************************************************************/
+
+/* A low level unbuffered file or socket. */
+struct _fd
+{
+	int					fd_Version;		/* Version number of this definition
+										   of the '_fd' data structure (see
+										   below). */
+	_file_action_fd_t	fd_Action;		/* Function to invoke to perform actions */
+	void *				fd_UserData;	/* To be used by custom file action
+										   functions */
+	ULONG				fd_Flags;		/* File properties */
+
+	union
+	{
+		BPTR			fdu_File;		/* A dos.library file handle */
+		LONG			fdu_Socket;		/* A socket identifier */
+	} fdu_Default;
+};
+
+/****************************************************************************/
+
+/* The version of the '_fd' data structure, covering the fields 'fd_Version'
+   through 'fdu_Default' bears version number 1. */
+
+/****************************************************************************/
+
+/* Sneaky preprocessor tricks to make access to the file/socket IDs
+   work smoothly. */
+#define fd_DefaultFile	fdu_Default.fdu_File
+#define fd_File			fdu_Default.fdu_File
+#define fd_Socket		fdu_Default.fdu_Socket
+
+/****************************************************************************/
+
+/* Flag bits that can be set in _fd->fd_Flags; not all of these may be in
+   use, or can be changed. */
+#define FDF_READ			(1UL<<0)	/* Data can be read from this file */
+#define FDF_WRITE			(1UL<<1)	/* Data can be written to this file */
+#define FDF_APPEND			(1UL<<2)	/* Before any data is written to it,
+										   the file position must be set to the
+										   end of the file */
+#define FDF_NO_CLOSE		(1UL<<3)	/* Never close this file */
+#define FDF_NON_BLOCKING	(1UL<<4)	/* File was switched into non-blocking
+										   mode (console streams only) */
+#define FDF_IS_SOCKET		(1UL<<5)	/* This is not a disk file but a socket */
+#define FDF_IS_LOCKED		(1UL<<6)	/* This file has an advisory record lock set */
+#define FDF_IN_USE			(1UL<<7)	/* This file is in use */
+#define FDF_CREATED			(1UL<<8)	/* This file was newly created and may need
+										   to have its protection bits updated after
+										   it has been closed */
+#define FDF_CACHE_POSITION	(1UL<<9)	/* Cache the file position. */
+#define FDF_ASYNC_IO		(1UL<<10)	/* File was switched into asynchronous I/O
+										   mode (sockets only). */
+#define FDF_IS_INTERACTIVE	(1UL<<11)	/* File is attached to a console window or
+										   something like it. */
+#define FDF_STDIO			(1UL<<12)	/* File is to be attached to one of the
+										   standard input/output/error streams. */
+#define FDF_TERMIOS			(1UL<<13)	/* File is under termios control.
+										   FDF_IS_INTERACTIVE should also be set. */
+
+/****************************************************************************/
+
+/* Obtain a pointer to the _fd data structure associated with a file
+   descriptor number. Note that this does not perform any locking, which
+   means that you have to be absolutely certain that the file will not be
+   closed while you are still looking at it. This function can return
+   NULL if the file descriptor you provided is not valid. */
+extern struct _fd * __get_fd(int file_descriptor);
+
+/* Replaces the action callback function and (optionally) returns the old
+   function pointer; returns 0 for success and -1 for failure if you
+   provided an invalid file descriptor. This function performs proper locking
+   and is thus safe to use in a thread-safe environment. */
+extern int __change_fd_action(int file_descriptor,_file_action_fd_t new_action,_file_action_fd_t * old_action_ptr);
+
+/* Replaces the user data pointer and (optionally) returns the old user
+   data pointer; returns 0 for success and -1 for failure if you
+   provided an invalid file descriptor. This function performs proper locking
+   and is thus safe to use in a thread-safe environment. */
+extern int __change_fd_user_data(int file_descriptor,void * new_user_data,void ** old_user_data_ptr);
+
+/****************************************************************************/
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+/****************************************************************************/
+
+#endif /* _SYS_CLIB2_IO_H */

library/include/unistd.h

@@ -1,5 +1,5 @@
 /*
- * $Id: unistd.h,v 1.21 2006-08-02 06:49:47 obarthel Exp $
+ * $Id: unistd.h,v 1.23 2007-01-06 10:09:49 obarthel Exp $
  *
  * :ts=4
  *
@@ -51,6 +51,10 @@
 #include <fcntl.h>
 #endif /* _FCNTL_H */
 
+#ifndef _STDIO_H
+#include <stdio.h>
+#endif /* _STDIO_H */
+
 #if !defined(__NO_NET_API) && !defined(_SYS_SELECT_H)
 #include <sys/select.h>
 #endif /* __NO_NET_API && _SYS_SELECT_H */
@@ -114,7 +118,7 @@ extern int chdir(const char * path_name);
 extern int lockf(int file_descriptor, int function, off_t size);
 extern unsigned int sleep(unsigned int seconds);
 extern void usleep(unsigned long microseconds);
-extern int getopt(int argc, char * argv[], char *opts);
+extern int getopt(int argc, char * const argv[], const char *opts);
 extern pid_t getpid(void);
 extern char *realpath(const char *file_name, char *resolved_name);
 extern int fsync(int file_descriptor);

library/libc.gmk

@@ -1,5 +1,5 @@
 #
-# $Id: libc.gmk,v 1.1 2006-09-17 17:37:27 obarthel Exp $
+# $Id: libc.gmk,v 1.4 2006-11-16 14:39:23 obarthel Exp $
 #
 # :ts=8
 #
@@ -21,7 +21,6 @@ LIBS += \
 
 C_LIB := \
 	c.lib_rev.o \
-	crtbegin.o \
 	ctype_isalnum.o \
 	ctype_isalpha.o \
 	ctype_isascii.o \
@@ -85,11 +84,14 @@ C_LIB := \
 	stat_fchmod.o \
 	stat_fstat.o \
 	stat_lstat.o \
+	stat_lock.o \
 	stat_mkdir.o \
 	stat_rmdir.o \
 	stat_stat.o \
 	stat_umask.o \
 	stdio_asprintf.o \
+	stdio_change_fd_action.o \
+	stdio_change_fd_user_data.o \
 	stdio_clearerr.o \
 	stdio_dropiobreadbuffer.o \
 	stdio_duplicate_fd.o \
@@ -129,6 +131,7 @@ C_LIB := \
 	stdio_getchar.o \
 	stdio_getchar_unlocked.o \
 	stdio_gets.o \
+	stdio_get_fd.o \
 	stdio_get_file_descriptor.o \
 	stdio_growfdtable.o \
 	stdio_growiobtable.o \
@@ -154,6 +157,7 @@ C_LIB := \
 	stdio_remove.o \
 	stdio_remove_fd_alias.o \
 	stdio_rename.o \
+	stdio_resolve_fd_file.o \
 	stdio_rewind.o \
 	stdio_scanf.o \
 	stdio_setbuf.o \
@@ -359,8 +363,7 @@ C_LIB := \
 	unistd_unlink.o \
 	unistd_usleep.o \
 	utime_utime.o \
-	utsname_uname.o \
-	crtend.o
+	utsname_uname.o
 
 ##############################################################################
 

library/libgen_basename.c

@@ -1,5 +1,5 @@
 /*
- * $Id: libgen_basename.c,v 1.5 2006-09-22 09:02:51 obarthel Exp $
+ * $Id: libgen_basename.c,v 1.8 2006-10-02 07:15:37 obarthel Exp $
  *
  * :ts=4
  *
@@ -33,6 +33,7 @@
 
 #include <string.h>
 #include <libgen.h>
+#include <stdio.h>
 
 /****************************************************************************/
 
@@ -45,9 +46,12 @@
 /****************************************************************************/
 
 char *
-basename(char *path)
+basename(const char *path)
 {
+	static char new_path[MAXPATHLEN];
+	const char * str;
 	char * result;
+	size_t len;
 
 	ENTER();
 
@@ -56,41 +60,63 @@ basename(char *path)
 	else
 		SHOWSTRING(path);
 
+	/* An empty path always comes out as the "current directory". */
 	if(path == NULL || path[0] == '\0')
 	{
-		result = (char *)".";
+		str = ".";
+		len = 1;
 	}
 	else
 	{
-		int len,i;
-
+		/* Strip all trailing slashes. */
 		len = strlen(path);
-
 		while(len > 0 && path[len-1] == '/')
 			len--;
 
+		/* Is there anything left? */
 		if(len > 0)
 		{
-			result = path;
+			size_t i;
 
-			path[len] = '\0';
+			/* Return what follows the last slash in the path. That's
+			   usually a file or directory name. */
+			str = path;
 
-			for(i = len-1 ; i >= 0 ; i--)
+			for(i = len - 1 ; ; i--)
 			{
 				if(path[i] == '/')
 				{
-					result = &path[i+1];
+					len -= i+1;
+
+					str = &path[i+1];
 					break;
 				}
+
+				if(i == 0)
+					break;
 			}
 		}
-		else
+
+		/* If the whole operation produced an empty string, then it
+		   means that we dealt with a string which consisted entirely
+		   of slashes. And that's what we will return. */
+		if(len == 0)
 		{
-			result = (char *)"/";
+			str = "/";
+			len = 1;
 		}
 	}
 
-	SHOWSTRING(result);
+	/* Truncate the path name we can return. This function always returns
+	   a valid pointer rather than NULL because some software expects it
+	   to do so (I blame the specifications). */
+	if(len >= sizeof(new_path))
+		len = sizeof(new_path)-1;
+
+	memcpy(new_path,str,len);
+	new_path[len] = '\0';
+
+	result = new_path;
 
 	RETURN(result);
 	return(result);

library/libgen_dirname.c

@@ -1,5 +1,5 @@
 /*
- * $Id: libgen_dirname.c,v 1.5 2006-09-22 09:02:51 obarthel Exp $
+ * $Id: libgen_dirname.c,v 1.8 2006-10-02 07:15:37 obarthel Exp $
  *
  * :ts=4
  *
@@ -33,6 +33,7 @@
 
 #include <string.h>
 #include <libgen.h>
+#include <stdio.h>
 
 /****************************************************************************/
 
@@ -45,9 +46,12 @@
 /****************************************************************************/
 
 char *
-dirname(char *path)
+dirname(const char *path)
 {
+	static char new_path[MAXPATHLEN];
+	const char * str;
 	char * result;
+	size_t len;
 
 	ENTER();
 
@@ -56,42 +60,57 @@ dirname(char *path)
 	else
 		SHOWSTRING(path);
 
-	if(path == NULL || path[0] == '\0')
-	{
-		result = (char *)".";
-	}
-	else
-	{
-		int len,i;
+	/* An empty path always comes out as the "current directory". */
+	str = ".";
+	len = 1;
 
+	if(path != NULL && path[0] != '\0')
+	{
+		/* Strip all trailing slashes. */
 		len = strlen(path);
-
-		while(len > 0 && path[len-1] == '/')
+		while(len > 1 && path[len-1] == '/')
 			len--;
 
+		/* Is there anything left? */
 		if(len > 0)
 		{
-			result = (char *)".";
+			size_t i;
 
-			for(i = len-1 ; i >= 0 ; i--)
+			for(i = len-1 ;  ; i--)
 			{
 				if(path[i] == '/')
 				{
-					path[i] = '\0';
+					/* Return everything up to, but not including
+					   the last slash in the path. That's usually
+					   the directory name. */
+					str = path;
+					len = i;
 
-					result = path;
+					/* If that produces an empty string, it means
+					   that the entire string consists of slash
+					   characters. We'll return only the first. */
+					if(i == 0)
+						len++;
 
 					break;
 				}
+
+				if(i == 0)
+					break;
 			}
 		}
-		else
-		{
-			result = (char *)"/";
-		}
 	}
 
-	SHOWSTRING(result);
+	/* Truncate the path name we can return. This function always returns
+	   a valid pointer rather than NULL because some software expects it
+	   to do so (I blame the specifications). */
+	if(len >= sizeof(new_path))
+		len = sizeof(new_path)-1;
+
+	memcpy(new_path,str,len);
+	new_path[len] = '\0';
+
+	result = new_path;
 
 	RETURN(result);
 	return(result);

library/libm.gmk

@@ -1,5 +1,5 @@
 #
-# $Id: libm.gmk,v 1.1 2006-09-17 17:37:27 obarthel Exp $
+# $Id: libm.gmk,v 1.3 2007-01-06 10:09:48 obarthel Exp $
 #
 # :ts=8
 #
@@ -109,7 +109,6 @@ MATH_LIB := \
 	math_kernel_cosf.o \
 	math_kernel_expm1.o \
 	math_kernel_rem_pio2.o \
-	math_kernel_scalbn.o \
 	math_kernel_sin.o \
 	math_kernel_sinf.o \
 	math_kernel_tan.o \
@@ -118,6 +117,7 @@ MATH_LIB := \
 	math_ldexpf.o \
 	math_lgamma.o \
 	math_lgammaf.o \
+	math_llrint.o \
 	math_log.o \
 	math_log10.o \
 	math_log10f.o \

library/libunix.gmk

@@ -1,5 +1,5 @@
 #
-# $Id: libunix.gmk,v 1.1 2006-09-17 17:37:27 obarthel Exp $
+# $Id: libunix.gmk,v 1.3 2006-11-13 09:25:28 obarthel Exp $
 #
 # :ts=8
 #
@@ -37,6 +37,7 @@ UNIX_LIB := \
 	stat_chmod.o \
 	stat_fstat.o \
 	stat_lstat.o \
+	stat_lock.o \
 	stat_mkdir.o \
 	stat_rmdir.o \
 	stat_stat.o \
@@ -122,6 +123,7 @@ UNIX_LIB := \
 	unistd_ttyname_r.o \
 	unistd_unix_path_semantics.o \
 	unistd_unlink.o \
+	unistd_unlink_retries.o \
 	unistd_wildcard_expand.o \
 	utime_utime.o
 

library/locale_localeconv.c

@@ -1,5 +1,5 @@
 /*
- * $Id: locale_localeconv.c,v 1.6 2006-09-22 09:02:51 obarthel Exp $
+ * $Id: locale_localeconv.c,v 1.7 2006-09-25 14:51:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -54,18 +54,18 @@ localeconv(void)
 	monetary_locale	= __locale_table[LC_MONETARY];
 
 	/* This makes up the current locale settings from the various
-	 * components in use.
-	 */
-	loc.decimal_point		= (numeric_locale != NULL) ? ((char *)numeric_locale->loc_DecimalPoint) : (char *)".";
-	loc.thousands_sep		= (numeric_locale != NULL) ? ((char *)numeric_locale->loc_GroupSeparator) : (char *)"";
-	loc.grouping			= (numeric_locale != NULL) ? ((char *)numeric_locale->loc_Grouping) : (char *)"";
-	loc.int_curr_symbol		= (monetary_locale != NULL) ? ((char *)monetary_locale->loc_MonIntCS) : (char *)"";
-	loc.currency_symbol		= (monetary_locale != NULL) ? ((char *)monetary_locale->loc_MonCS) : (char *)"";
-	loc.mon_decimal_point	= (monetary_locale != NULL) ? ((char *)monetary_locale->loc_MonDecimalPoint) : (char *)"";
-	loc.mon_thousands_sep	= (monetary_locale != NULL) ? ((char *)monetary_locale->loc_MonGroupSeparator) : (char *)"";
-	loc.mon_grouping		= (monetary_locale != NULL) ? ((char *)monetary_locale->loc_MonGrouping) : (char *)"";
-	loc.positive_sign		= (monetary_locale != NULL) ? ((char *)monetary_locale->loc_MonPositiveSign) : (char *)"";
-	loc.negative_sign		= (monetary_locale != NULL) ? ((char *)monetary_locale->loc_MonNegativeSign) : (char *)"";
+	   components in use. */
+	loc.decimal_point		= ((numeric_locale	!= NULL) ? ((char *)numeric_locale->loc_DecimalPoint) : (char *)".");
+	loc.thousands_sep		= ((numeric_locale	!= NULL) ? ((char *)numeric_locale->loc_GroupSeparator) : (char *)"");
+	loc.grouping			= ((numeric_locale	!= NULL) ? ((char *)numeric_locale->loc_Grouping) : (char *)"");
+	loc.int_curr_symbol		= ((monetary_locale	!= NULL) ? ((char *)monetary_locale->loc_MonIntCS) : (char *)"");
+	loc.currency_symbol		= ((monetary_locale	!= NULL) ? ((char *)monetary_locale->loc_MonCS) : (char *)"");
+	loc.mon_decimal_point	= ((monetary_locale	!= NULL) ? ((char *)monetary_locale->loc_MonDecimalPoint) : (char *)"");
+	loc.mon_thousands_sep	= ((monetary_locale	!= NULL) ? ((char *)monetary_locale->loc_MonGroupSeparator) : (char *)"");
+	loc.mon_grouping		= ((monetary_locale	!= NULL) ? ((char *)monetary_locale->loc_MonGrouping) : (char *)"");
+	loc.positive_sign		= ((monetary_locale	!= NULL) ? ((char *)monetary_locale->loc_MonPositiveSign) : (char *)"");
+	loc.negative_sign		= ((monetary_locale	!= NULL) ? ((char *)monetary_locale->loc_MonNegativeSign) : (char *)"");
+
 	loc.int_frac_digits		= (monetary_locale != NULL) ? monetary_locale->loc_MonIntFracDigits : CHAR_MAX;
 	loc.frac_digits			= (monetary_locale != NULL) ? monetary_locale->loc_MonFracDigits : CHAR_MAX;
 	loc.p_cs_precedes		= (monetary_locale != NULL) ? monetary_locale->loc_MonPositiveCSPos : CHAR_MAX;

library/m.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	201
-#define DATE		"21.9.2006"
-#define VERS		"m.lib 1.201"
-#define VSTRING		"m.lib 1.201 (21.9.2006)\r\n"
-#define VERSTAG		"\0$VER: m.lib 1.201 (21.9.2006)"
+#define REVISION	202
+#define DATE		"16.1.2007"
+#define VERS		"m.lib 1.202"
+#define VSTRING		"m.lib 1.202 (16.1.2007)\r\n"
+#define VERSTAG		"\0$VER: m.lib 1.202 (16.1.2007)"

library/m.lib_rev.rev

@@ -1 +1 @@
-201
+202

library/m881.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	201
-#define DATE		"21.9.2006"
-#define VERS		"m881.lib 1.201"
-#define VSTRING		"m881.lib 1.201 (21.9.2006)\r\n"
-#define VERSTAG		"\0$VER: m881.lib 1.201 (21.9.2006)"
+#define REVISION	202
+#define DATE		"16.1.2007"
+#define VERS		"m881.lib 1.202"
+#define VSTRING		"m881.lib 1.202 (16.1.2007)\r\n"
+#define VERSTAG		"\0$VER: m881.lib 1.202 (16.1.2007)"

library/m881.lib_rev.rev

@@ -1 +1 @@
-201
+202

library/math_headers.h

@@ -1,5 +1,5 @@
 /*
- * $Id: math_headers.h,v 1.14 2006-01-08 12:04:23 obarthel Exp $
+ * $Id: math_headers.h,v 1.15 2006-11-13 09:51:53 obarthel Exp $
  *
  * :ts=4
  *
@@ -216,7 +216,6 @@ extern double __kernel_sin(double x, double y, int iy);
 extern int __rem_pio2(double x, double *y);
 extern double __kernel_tan(double x, double y, int iy);
 extern double __expm1(double x);
-extern double __scalbn(double x, int n);
 extern float __kernel_cosf(float x, float y);
 extern float __kernel_sinf(float x, float y, int iy);
 extern LONG __rem_pio2f(float x, float *y);

library/math_kernel_rem_pio2.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_kernel_rem_pio2.c,v 1.5 2006-01-08 12:04:23 obarthel Exp $
+ * $Id: math_kernel_rem_pio2.c,v 1.7 2006-11-13 09:51:53 obarthel Exp $
  *
  * :ts=4
  *
@@ -55,7 +55,7 @@ static const double PIo2[] = {
   1.57079625129699707031e+00, /* 0x3FF921FB, 0x40000000 */
   7.54978941586159635335e-08, /* 0x3E74442D, 0x00000000 */
   5.39030252995776476554e-15, /* 0x3CF84698, 0x80000000 */
-  3.28200341580791294123e422, /* 0x3B78CC51, 0x60000000 */
+  3.28200341580791294123e-22, /* 0x3B78CC51, 0x60000000 */
   1.27065575308067607349e-29, /* 0x39F01B83, 0x80000000 */
   1.22933308981111328932e-36, /* 0x387A2520, 0x40000000 */
   2.73370053816464559624e-44, /* 0x36E38222, 0x80000000 */
@@ -102,7 +102,7 @@ recompute:
 	}
 
     /* compute n */
-	z  = __scalbn(z,(int)q0);		/* actual value of z */
+	z  = scalbn(z,(int)q0);		/* actual value of z */
 	z -= 8.0*floor(z*0.125);		/* trim off integer >= 8 */
 	n  = (int) z;
 	z -= (double)n;
@@ -135,7 +135,7 @@ recompute:
 	    }
 	    if(ih==2) {
 		z = one - z;
-		if(carry!=0) z -= __scalbn(one,(int)q0);
+		if(carry!=0) z -= scalbn(one,(int)q0);
 	    }
 	}
 
@@ -161,7 +161,7 @@ recompute:
 	    jz -= 1; q0 -= 24;
 	    while(iq[jz]==0) { jz--; q0-=24;}
 	} else { /* break z into 24-bit if necessary */
-	    z = __scalbn(z,-(int)q0);
+	    z = scalbn(z,-(int)q0);
 	    if(z>=two24) { 
 		fw = (double)((int)(twon24*z));
 		iq[jz] = (int)(z-two24*fw);
@@ -171,7 +171,7 @@ recompute:
 	}
 
     /* convert integer "bit" chunk to floating-point value */
-	fw = __scalbn(one,(int)q0);
+	fw = scalbn(one,(int)q0);
 	for(i=jz;i>=0;i--) {
 	    q[i] = fw*(double)iq[i]; fw*=twon24;
 	}
@@ -331,7 +331,7 @@ int __rem_pio2(double x, double *y)
 	}
 	/* keep the compiler happy */
 	z = 0;
-    /* set z = __scalbn(|x|,ilogb(x)-23) */
+    /* set z = scalbn(|x|,ilogb(x)-23) */
 	GET_LOW_WORD(low,x);
 	SET_LOW_WORD(z,low);
 	e0 	= (int)((ix>>20)-1046);	/* e0 = ilogb(z)-23; */

library/math_llrint.c

@@ -1,5 +1,5 @@
 /*
- * $Id: math_kernel_scalbn.c,v 1.5 2006-01-08 12:04:23 obarthel Exp $
+ * $Id: math_llrint.c,v 1.1 2007-01-06 10:09:48 obarthel Exp $
  *
  * :ts=4
  *
@@ -46,43 +46,83 @@
 
 /****************************************************************************/
 
-#if defined(FLOATING_POINT_SUPPORT) && defined(PPC_FLOATING_POINT_SUPPORT)
+#if defined(FLOATING_POINT_SUPPORT)
 
 /****************************************************************************/
 
-static const double
-huge	= 1.0e+300,
-tiny	= 1.0e-300,
-two54   = 1.80143985094819840000e+16, /* 0x43500000, 0x00000000 */
-twom54  = 5.55111512312578270212e-17; /* 0x3C900000, 0x00000000 */
+/* Adding a double, x, to 2^52 will cause the result to be rounded based on
+   the fractional part of x, according to the implementation's current rounding
+   mode.  2^52 is the smallest double that can be represented using all 52 significant
+   digits. */
+static const double TWO52[2]={
+  4.50359962737049600000e+15, /* 0x43300000, 0x00000000 */
+ -4.50359962737049600000e+15, /* 0xC3300000, 0x00000000 */
+};
 
-double __scalbn (double x, int n)
+/****************************************************************************/
+
+long long int
+llrint(double x)
 {
-	int  k,hx,lx;
-	EXTRACT_WORDS(hx,lx,x);
-	k = (hx&0x7ff00000)>>20;		/* extract exponent */
-	if (k==0) {				/* 0 or subnormal x */
-		if ((lx|(hx&0x7fffffff))==0) return x; /* +-0 */
-	    x *= two54; 
-	    GET_HIGH_WORD(hx,x);
-	    k = ((hx&0x7ff00000)>>20) - 54; 
-		if (n< -50000) return tiny*x; 	/*underflow*/
-	}
-	if (k==0x7ff) return x+x;		/* NaN or Inf */
-	k = k+n; 
-	if (k >  0x7fe) return huge*copysign(huge,x); /* overflow  */
-	if (k > 0) 				/* normal result */
-	{SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20)); return x;}
-	if (k <= -54) {
-		if (n > 50000) 	/* in case integer overflow in n+k */
-		return huge*copysign(huge,x);	/*overflow*/
-	    else return tiny*copysign(tiny,x); 	/*underflow*/
-	}
-	k += 54;				/* subnormal result */
-	SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20));
-	return x*twom54;
+  LONG i0,j0,sx;
+  ULONG i1;
+  double t;
+  volatile double w;
+  long long int result;
+  
+  EXTRACT_WORDS(i0,i1,x);
+
+  /* Extract sign bit. */
+  sx = (i0>>31)&1;
+
+  /* Extract exponent field. */
+  j0 = ((i0 & 0x7ff00000) >> 20) - 1023;
+  
+  if(j0 < 20)
+    {
+      if(j0 < -1)
+        return 0;
+      else
+        {
+          w = TWO52[sx] + x;
+          t = w - TWO52[sx];
+          GET_HIGH_WORD(i0, t);
+          /* Detect the all-zeros representation of plus and
+             minus zero, which fails the calculation below. */
+          if ((i0 & ~(1 << 31)) == 0)
+              return 0;
+          j0 = ((i0 & 0x7ff00000) >> 20) - 1023;
+          i0 &= 0x000fffff;
+          i0 |= 0x00100000;
+          result = i0 >> (20 - j0);
+        }
+    }
+  else if (j0 < (int)(8 * sizeof (long long int)) - 1)
+    {
+      if (j0 >= 52)
+        result = ((long long int) ((i0 & 0x000fffff) | 0x0010000) << (j0 - 20)) | 
+                   (i1 << (j0 - 52));
+      else
+        {
+          w = TWO52[sx] + x;
+          t = w - TWO52[sx];
+          EXTRACT_WORDS (i0, i1, t);
+          j0 = ((i0 & 0x7ff00000) >> 20) - 1023;
+          i0 &= 0x000fffff;
+          i0 |= 0x00100000;
+          result = ((long long int) i0 << (j0 - 20)) | (i1 >> (52 - j0));
+        }
+    }
+  else
+    {
+      return (long long int) x;
+    }
+  
+  return sx ? -result : result;
 }
 
 /****************************************************************************/
 
-#endif /* FLOATING_POINT_SUPPORT && PPC_FLOATING_POINT_SUPPORT */
+#endif /* FLOATING_POINT_SUPPORT */
+
+ 	  	 

library/mount_fstatfs.c

@@ -1,5 +1,5 @@
 /*
- * $Id: mount_fstatfs.c,v 1.13 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: mount_fstatfs.c,v 1.14 2006-11-16 14:39:23 obarthel Exp $
  *
  * :ts=4
  *
@@ -106,7 +106,7 @@ fstatfs(int file_descriptor, struct statfs *buf)
 	}
 
 	PROFILE_OFF();
-	parent_dir = __safe_parent_of_file_handle(fd->fd_DefaultFile);
+	parent_dir = __safe_parent_of_file_handle(fd->fd_File);
 	PROFILE_ON();
 
 	if(parent_dir == ZERO)

library/net.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	201
-#define DATE		"21.9.2006"
-#define VERS		"net.lib 1.201"
-#define VSTRING		"net.lib 1.201 (21.9.2006)\r\n"
-#define VERSTAG		"\0$VER: net.lib 1.201 (21.9.2006)"
+#define REVISION	202
+#define DATE		"16.1.2007"
+#define VERS		"net.lib 1.202"
+#define VSTRING		"net.lib 1.202 (16.1.2007)\r\n"
+#define VERSTAG		"\0$VER: net.lib 1.202 (16.1.2007)"

library/net.lib_rev.rev

@@ -1 +1 @@
-201
+202

library/nrcrt0.S

@@ -1,5 +1,5 @@
 |
-|	$Id: nrcrt0.S,v 1.5 2006-01-08 12:04:24 obarthel Exp $
+|	$Id: nrcrt0.S,v 1.6 2006-11-16 10:09:20 obarthel Exp $
 |
 |	:ts=4
 |
@@ -56,7 +56,7 @@ MEMF_CLEAR = 65536
 
 	.text
 
-	.globl  _main			| This enforces linkage against the main() function
+	.globl	_main			| This enforces linkage against the main() function
 	.globl	__main
 	.globl	___is_resident
 

library/socket_accept.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_accept.c,v 1.16 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_accept.c,v 1.17 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -95,7 +95,7 @@ accept(int sockfd,struct sockaddr *cliaddr,socklen_t *addrlen)
 		goto out;
 
 	/* Remember the socket number for later. */
-	socket_fd = (LONG)fd->fd_DefaultFile;
+	socket_fd = fd->fd_Socket;
 
 	/* Now let go of the stdio lock, so that the only locking performed
 	   will be done inside the accept() call. */

library/socket_bind.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_bind.c,v 1.7 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_bind.c,v 1.8 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -84,7 +84,7 @@ bind(int sockfd,const struct sockaddr *name,socklen_t namelen)
 		goto out;
 
 	PROFILE_OFF();
-	result = __bind((LONG)fd->fd_DefaultFile,(struct sockaddr *)name,namelen);
+	result = __bind(fd->fd_Socket,(struct sockaddr *)name,namelen);
 	PROFILE_ON();
 
  out:

library/socket_connect.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_connect.c,v 1.8 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_connect.c,v 1.9 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -84,7 +84,7 @@ connect(int sockfd,const struct sockaddr *name,socklen_t namelen)
 		goto out;
 
 	PROFILE_OFF();
-	result = __connect((LONG)fd->fd_DefaultFile,(struct sockaddr *)name,namelen);
+	result = __connect(fd->fd_Socket,(struct sockaddr *)name,namelen);
 	PROFILE_ON();
 
  out:

library/socket_getpeername.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_getpeername.c,v 1.7 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_getpeername.c,v 1.8 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -84,7 +84,7 @@ getpeername(int sockfd,struct sockaddr *name,socklen_t *namelen)
 		goto out;
 
 	PROFILE_OFF();
-	result = __getpeername((LONG)fd->fd_DefaultFile,name,(LONG *)namelen);
+	result = __getpeername(fd->fd_Socket,name,(LONG *)namelen);
 	PROFILE_ON();
 
  out:

library/socket_getsockname.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_getsockname.c,v 1.7 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_getsockname.c,v 1.8 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -84,7 +84,7 @@ getsockname(int sockfd,struct sockaddr *name,socklen_t *namelen)
 		goto out;
 
 	PROFILE_OFF();
-	result = __getsockname((LONG)fd->fd_DefaultFile,name,(LONG *)namelen);
+	result = __getsockname(fd->fd_Socket,name,(LONG *)namelen);
 	PROFILE_ON();
 
  out:

library/socket_getsockopt.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_getsockopt.c,v 1.7 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_getsockopt.c,v 1.8 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -86,7 +86,7 @@ getsockopt(int sockfd,int level,int optname,void *optval,socklen_t *optlen)
 		goto out;
 
 	PROFILE_OFF();
-	result = __getsockopt((LONG)fd->fd_DefaultFile,level,optname,optval,(LONG *)optlen);
+	result = __getsockopt(fd->fd_Socket,level,optname,optval,(LONG *)optlen);
 	PROFILE_ON();
 
  out:

library/socket_hook_entry.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_hook_entry.c,v 1.16 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_hook_entry.c,v 1.17 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -79,7 +79,7 @@ __socket_hook_entry(
 
 			PROFILE_OFF();
 
-			result = __recv((LONG)fd->fd_DefaultFile,fam->fam_Data,fam->fam_Size,0);
+			result = __recv(fd->fd_Socket,fam->fam_Data,fam->fam_Size,0);
 			if(result < 0)
 				fam->fam_Error = __get_errno();
 
@@ -99,7 +99,7 @@ __socket_hook_entry(
 
 			PROFILE_OFF();
 
-			result = __send((LONG)fd->fd_DefaultFile,fam->fam_Data,fam->fam_Size,0);
+			result = __send(fd->fd_Socket,fam->fam_Data,fam->fam_Size,0);
 			if(result < 0)
 				fam->fam_Error = __get_errno();
 
@@ -126,7 +126,7 @@ __socket_hook_entry(
 				{
 					PROFILE_OFF();
 
-					result = __CloseSocket((LONG)fd->fd_DefaultFile);
+					result = __CloseSocket(fd->fd_Socket);
 
 					PROFILE_ON();
 				}
@@ -163,7 +163,7 @@ __socket_hook_entry(
 
 			param = (int)(fam->fam_Arg == 0);
 
-			result = __IoctlSocket(fd->fd_DefaultFile,FIONBIO,&param);
+			result = __IoctlSocket(fd->fd_Socket,FIONBIO,&param);
 			if(result < 0)
 				fam->fam_Error = __get_errno();
 
@@ -175,7 +175,7 @@ __socket_hook_entry(
 
 			param = (int)(fam->fam_Arg != 0);
 
-			result = __IoctlSocket(fd->fd_DefaultFile,FIOASYNC,&param);
+			result = __IoctlSocket(fd->fd_Socket,FIOASYNC,&param);
 			if(result < 0)
 				fam->fam_Error = __get_errno();
 

library/socket_ioctl.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_ioctl.c,v 1.12 2006-09-21 09:24:20 obarthel Exp $
+ * $Id: socket_ioctl.c,v 1.14 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -84,12 +84,12 @@ ioctl(int sockfd,int request, ... /* char *arg */)
 	SHOWPOINTER(param);
 
 	PROFILE_OFF();
-	result = __IoctlSocket((LONG)fd->fd_DefaultFile,request,param);
+	result = __IoctlSocket(fd->fd_Socket,request,param);
 	PROFILE_ON();
 
 	if(result == 0)
 	{
-		int * option = (int *)param;
+		const int * option = (const int *)param;
 
 		if(request == (int)FIONBIO)
 		{

library/socket_listen.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_listen.c,v 1.5 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_listen.c,v 1.6 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -64,7 +64,7 @@ listen(int sockfd,int backlog)
 		goto out;
 
 	PROFILE_OFF();
-	result = __listen((LONG)fd->fd_DefaultFile,backlog);
+	result = __listen(fd->fd_Socket,backlog);
 	PROFILE_ON();
 
  out:

library/socket_obtain_daemon.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_obtain_daemon.c,v 1.4 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_obtain_daemon.c,v 1.5 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -93,7 +93,7 @@ __obtain_daemon_message(VOID)
 			struct TagItem tags[2];
 
 			/* Check if it is safe to call the IsServerProcess() function. */
-			tags[0].ti_Tag	= SBTM_GETREF(SBTC_BREAKMASK);
+			tags[0].ti_Tag	= SBTM_GETREF(SBTC_HAVE_SERVER_API);
 			tags[0].ti_Data	= (ULONG)&have_server_api;
 			tags[1].ti_Tag	= TAG_END;
 

library/socket_recv.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_recv.c,v 1.6 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_recv.c,v 1.7 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -86,7 +86,7 @@ recv(int sockfd,void *buff,size_t nbytes,int flags)
 		goto out;
 
 	PROFILE_OFF();
-	result = __recv((LONG)fd->fd_DefaultFile,buff,(LONG)nbytes,flags);
+	result = __recv(fd->fd_Socket,buff,(LONG)nbytes,flags);
 	PROFILE_ON();
 
  out:

library/socket_recvfrom.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_recvfrom.c,v 1.8 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_recvfrom.c,v 1.9 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -87,7 +87,7 @@ recvfrom(int sockfd,void *buff,size_t len,int flags,struct sockaddr *from,sockle
 		goto out;
 
 	PROFILE_OFF();
-	result = __recvfrom((LONG)fd->fd_DefaultFile,buff,len,flags,from,(LONG *)fromlen);
+	result = __recvfrom(fd->fd_Socket,buff,len,flags,from,(LONG *)fromlen);
 	PROFILE_ON();
 
  out:

library/socket_recvmsg.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_recvmsg.c,v 1.6 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_recvmsg.c,v 1.7 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -84,7 +84,7 @@ recvmsg(int sockfd,struct msghdr *msg,int flags)
 		goto out;
 
 	PROFILE_OFF();
-	result = __recvmsg((LONG)fd->fd_DefaultFile,msg,flags);
+	result = __recvmsg(fd->fd_Socket,msg,flags);
 	PROFILE_ON();
 
  out:

library/socket_select_signal.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_select_signal.c,v 1.3 2006-06-22 09:02:44 obarthel Exp $
+ * $Id: socket_select_signal.c,v 1.5 2006-11-16 14:39:23 obarthel Exp $
  *
  * :ts=4
  *
@@ -288,7 +288,7 @@ map_descriptor_sets(
 			/* Is this a socket descriptor? */
 			if(FLAG_IS_SET(fd->fd_Flags,FDF_IS_SOCKET))
 			{
-				int socket_fd = (int)fd->fd_DefaultFile;
+				int socket_fd = fd->fd_Socket;
 
 				D(("corresponds to socket #%ld",socket_fd));
 
@@ -326,7 +326,7 @@ map_descriptor_sets(
 
 					/* Let's see if we can examine the file. Some file systems
 					   may not support this. */
-					if(CANNOT __safe_examine_file_handle(fd->fd_DefaultFile,fib))
+					if(CANNOT __safe_examine_file_handle(fd->fd_File,fib))
 					{
 						SHOWMSG("file is unusable; we cannot examine the file.");
 						continue;
@@ -415,7 +415,7 @@ remap_descriptor_sets(
 				for(output_fd = 0 ; output_fd < num_output_fds ; output_fd++)
 				{
 					fd = get_file_descriptor(output_fd);
-					if(fd != NULL && FLAG_IS_SET(fd->fd_Flags,FDF_IS_SOCKET) && (int)fd->fd_DefaultFile == socket_fd)
+					if(fd != NULL && FLAG_IS_SET(fd->fd_Flags,FDF_IS_SOCKET) && fd->fd_Socket == socket_fd)
 					{
 						assert( output_fd < num_output_fds );
 						assert( FLAG_IS_SET(__fd[output_fd]->fd_Flags,FDF_IS_SOCKET) );
@@ -480,7 +480,7 @@ get_num_descriptors_used(int num_fds,int * num_socket_used_ptr,int * num_file_us
 		{
 			if(FLAG_IS_SET(fd->fd_Flags,FDF_IS_SOCKET))
 			{
-				int which_socket_fd = (int)fd->fd_DefaultFile;
+				int which_socket_fd = fd->fd_Socket;
 
 				if(num_socket_used < which_socket_fd+1)
 					num_socket_used = which_socket_fd+1;
@@ -812,7 +812,7 @@ __select(int num_fds,fd_set *read_fds,fd_set *write_fds,fd_set *except_fds,struc
 								if(FLAG_IS_SET(fd->fd_Flags,FDF_IS_INTERACTIVE))
 								{
 									/* For an interactive stream, we simply ask. */
-									if(WaitForChar(fd->fd_DefaultFile,1))
+									if(WaitForChar(fd->fd_File,1))
 										got_input = TRUE;
 								}
 								else
@@ -824,7 +824,7 @@ __select(int num_fds,fd_set *read_fds,fd_set *write_fds,fd_set *except_fds,struc
 									   unread data in the file, we will be able to read from it.
 									   For pipes, any data reported to be in the "file" indicates
 									   that there is something worth reading available. */
-									if(__safe_examine_file_handle(fd->fd_DefaultFile,fib))
+									if(__safe_examine_file_handle(fd->fd_File,fib))
 									{
 										if(FLAG_IS_SET(fd->fd_Flags,FDF_CACHE_POSITION))
 										{
@@ -1010,14 +1010,14 @@ __select(int num_fds,fd_set *read_fds,fd_set *write_fds,fd_set *except_fds,struc
 
 								if(FLAG_IS_SET(fd->fd_Flags,FDF_IS_INTERACTIVE))
 								{
-									if(WaitForChar(fd->fd_DefaultFile,1))
+									if(WaitForChar(fd->fd_File,1))
 										got_input = TRUE;
 								}
 								else
 								{
 									D_S(struct FileInfoBlock,fib);
 
-									if(__safe_examine_file_handle(fd->fd_DefaultFile,fib))
+									if(__safe_examine_file_handle(fd->fd_File,fib))
 									{
 										if(FLAG_IS_SET(fd->fd_Flags,FDF_CACHE_POSITION))
 										{

library/socket_send.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_send.c,v 1.8 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_send.c,v 1.9 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -86,7 +86,7 @@ send(int sockfd,const void *buff,size_t nbytes,int flags)
 		goto out;
 
 	PROFILE_OFF();
-	result = __send((LONG)fd->fd_DefaultFile,(void *)buff,(LONG)nbytes,flags);
+	result = __send(fd->fd_Socket,(void *)buff,(LONG)nbytes,flags);
 	PROFILE_ON();
 
  out:

library/socket_sendmsg.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_sendmsg.c,v 1.7 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_sendmsg.c,v 1.8 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -84,7 +84,7 @@ sendmsg(int sockfd,const struct msghdr *msg,int flags)
 		goto out;
 
 	PROFILE_OFF();
-	result = __sendmsg((LONG)fd->fd_DefaultFile,(struct msghdr *)msg,flags);
+	result = __sendmsg(fd->fd_Socket,(struct msghdr *)msg,flags);
 	PROFILE_ON();
 
  out:

library/socket_sendto.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_sendto.c,v 1.10 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_sendto.c,v 1.11 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -87,7 +87,7 @@ sendto(int sockfd,const void *buff,size_t len,int flags,const struct sockaddr *t
 		goto out;
 
 	PROFILE_OFF();
-	result = __sendto((LONG)fd->fd_DefaultFile,(void *)buff,len,flags,(struct sockaddr *)to,tolen);
+	result = __sendto(fd->fd_Socket,(void *)buff,len,flags,(struct sockaddr *)to,tolen);
 	PROFILE_ON();
 
  out:

library/socket_setsockopt.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_setsockopt.c,v 1.9 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_setsockopt.c,v 1.10 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -86,7 +86,7 @@ setsockopt(int sockfd,int level,int optname,const void *optval,socklen_t optlen)
 		goto out;
 
 	PROFILE_OFF();
-	result = __setsockopt((LONG)fd->fd_DefaultFile,level,optname,(void *)optval,optlen);
+	result = __setsockopt(fd->fd_Socket,level,optname,(void *)optval,optlen);
 	PROFILE_ON();
 
  out:

library/socket_shutdown.c

@@ -1,5 +1,5 @@
 /*
- * $Id: socket_shutdown.c,v 1.5 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: socket_shutdown.c,v 1.6 2006-11-16 10:41:15 obarthel Exp $
  *
  * :ts=4
  *
@@ -64,7 +64,7 @@ shutdown(int sockfd, int how)
 		goto out;
 
 	PROFILE_OFF();
-	result = __shutdown((LONG)fd->fd_DefaultFile,how);
+	result = __shutdown(fd->fd_Socket,how);
 	PROFILE_ON();
 
  out:

library/stack.lib_rev.h

@@ -1,6 +1,6 @@
 #define VERSION		1
-#define REVISION	201
-#define DATE		"21.9.2006"
-#define VERS		"stack.lib 1.201"
-#define VSTRING		"stack.lib 1.201 (21.9.2006)\r\n"
-#define VERSTAG		"\0$VER: stack.lib 1.201 (21.9.2006)"
+#define REVISION	202
+#define DATE		"16.1.2007"
+#define VERS		"stack.lib 1.202"
+#define VSTRING		"stack.lib 1.202 (16.1.2007)\r\n"
+#define VERSTAG		"\0$VER: stack.lib 1.202 (16.1.2007)"

library/stack.lib_rev.rev

@@ -1 +1 @@
-201
+202

library/stat_fchmod.c

@@ -1,5 +1,5 @@
 /*
- * $Id: stat_fchmod.c,v 1.12 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: stat_fchmod.c,v 1.13 2006-11-16 14:39:23 obarthel Exp $
  *
  * :ts=4
  *
@@ -127,7 +127,7 @@ fchmod(int file_descriptor, mode_t mode)
 		SET_FLAG(protection,FIBF_OTR_EXECUTE);
 
 	PROFILE_OFF();
-	parent_dir = __safe_parent_of_file_handle(fd->fd_DefaultFile);
+	parent_dir = __safe_parent_of_file_handle(fd->fd_File);
 	PROFILE_ON();
 
 	if(parent_dir == ZERO)
@@ -139,7 +139,7 @@ fchmod(int file_descriptor, mode_t mode)
 	}
 
 	PROFILE_OFF();
-	success = __safe_examine_file_handle(fd->fd_DefaultFile,fib);
+	success = __safe_examine_file_handle(fd->fd_File,fib);
 	PROFILE_ON();
 
 	if(NO success)

library/stat_headers.h

@@ -1,5 +1,5 @@
 /*
- * $Id: stat_headers.h,v 1.6 2006-01-08 12:04:24 obarthel Exp $
+ * $Id: stat_headers.h,v 1.7 2006-11-13 09:25:28 obarthel Exp $
  *
  * :ts=4
  *
@@ -59,6 +59,7 @@ extern mode_t NOCOMMON __current_umask;
 /****************************************************************************/
 
 extern void __convert_file_info_to_stat(const struct MsgPort * file_system,const struct FileInfoBlock * fib,struct stat * st);
+extern BPTR __lock(const char *name,const int mode,int * link_length,char * real_name,size_t real_name_size);
 
 /****************************************************************************/
 

library/stat_lock.c

@@ -0,0 +1,186 @@
+/*
+ * $Id: stat_lock.c,v 1.1 2006-11-13 09:25:28 obarthel Exp $
+ *
+ * :ts=4
+ *
+ * Portable ISO 'C' (1994) runtime library for the Amiga computer
+ * Copyright (c) 2002-2006 by Olaf Barthel <olsen (at) sourcery.han.de>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *
+ *   - Neither the name of Olaf Barthel nor the names of contributors
+ *     may be used to endorse or promote products derived from this
+ *     software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _STDLIB_NULL_POINTER_CHECK_H
+#include "stdlib_null_pointer_check.h"
+#endif /* _STDLIB_NULL_POINTER_CHECK_H */
+
+/****************************************************************************/
+
+#ifndef _STAT_HEADERS_H
+#include "stat_headers.h"
+#endif /* _STAT_HEADERS_H */
+
+#ifndef _LOCALE_HEADERS_H
+#include "locale_headers.h"
+#endif /* _LOCALE_HEADERS_H */
+
+#ifndef _TIME_HEADERS_H
+#include "time_headers.h"
+#endif /* _TIME_HEADERS_H */
+
+/****************************************************************************/
+
+/* The following is not part of the ISO 'C' (1994) standard. */
+
+/****************************************************************************/
+
+/*
+ * __lock(): An implementation of Lock() which remembers whether or
+ *           not it resolved soft links.
+ *
+ * Unfortunately is is limited to 255 character names.
+ */
+
+BPTR
+__lock(
+	const char *	name,
+	const int		mode,
+	int *			link_length,
+	char *			real_name,
+	size_t			real_name_size)
+{
+	D_S(struct bcpl_name,bname);
+	const size_t name_size = sizeof(bname->name);
+	char * new_name = NULL;
+	struct DevProc * dvp = NULL;
+	BPTR lock = ZERO;
+	size_t name_len;
+	LONG error;
+
+	assert( name != NULL && link_length != NULL );
+
+	if(real_name != NULL && real_name_size > 0)
+		strcpy(real_name,"");
+
+	name_len = strlen(name);
+	if(name_len >= name_size)
+	{
+		SetIoErr(ERROR_LINE_TOO_LONG);
+		goto out;
+	}
+
+	/* Convert the name into a BCPL string. */
+	bname->name[0] = name_len;
+	memmove(&bname->name[1],name,name_len);
+
+	while(TRUE)
+	{
+		/* Get a handle on the device, volume or assignment name in the path. */
+		dvp = GetDeviceProc((STRPTR)name,dvp);
+		if(dvp == NULL)
+			goto out;
+
+		/* Try to obtain a lock on the object. */
+		lock = DoPkt(dvp->dvp_Port,ACTION_LOCATE_OBJECT,dvp->dvp_Lock,MKBADDR(bname),mode,0,0);
+		if(lock != ZERO)
+			break;
+
+		error = IoErr();
+
+		if(error == ERROR_OBJECT_NOT_FOUND)
+		{
+			/* If this is part of a multi-volume assignment, try the next part. */
+			if(FLAG_IS_SET(dvp->dvp_Flags,DVPF_ASSIGN))
+				continue;
+
+			/* Not much we can do here... */
+			break;
+		}
+		else if (error == ERROR_IS_SOFT_LINK)
+		{
+			size_t new_name_size = name_size+1;
+			LONG result;
+
+			/* Provide as much buffer space as possible. */
+			if(real_name_size > new_name_size)
+				new_name_size = real_name_size;
+
+			/* For soft link resolution we need a temporary buffer to
+			   let the file system store the resolved path name in. */
+			new_name = malloc(new_name_size);
+			if(new_name == NULL)
+			{
+				SetIoErr(ERROR_NO_FREE_STORE);
+				goto out;
+			}
+
+			/* Now ask the file system to resolve the entire path. */
+			result = ReadLink(dvp->dvp_Port,dvp->dvp_Lock,(STRPTR)name,(STRPTR)new_name,(LONG)new_name_size);
+			if(result < 0)
+			{
+				/* This will return either -1 (resolution error) or -2
+				   (buffer too small). We regard both as trouble. */
+				SetIoErr(ERROR_INVALID_COMPONENT_NAME);
+				goto out;
+			}
+
+			assert( result > 0 );
+
+			/* Remember the length of the link name. */
+			(*link_length) = result;
+
+			/* If the caller supplied a buffer, copy as much of the name
+			   as possible into it. */
+			if(real_name != NULL && real_name_size > 0)
+				strlcpy(real_name,new_name,real_name_size);
+
+			/* Finished for now. */
+			break;
+		}
+		else
+		{
+			/* Some other error; ask if the user wants to have another go at it. */
+			if(ErrorReport(error,REPORT_LOCK,dvp->dvp_Lock,dvp->dvp_Port) != 0)
+				break;
+		}
+
+		/* Retry the lookup. */
+		FreeDeviceProc(dvp);
+		dvp = NULL;
+	}
+
+ out:
+
+	error = IoErr();
+
+	if(new_name != NULL)
+		free(new_name);
+
+	if(dvp != NULL)
+		FreeDeviceProc(dvp);
+
+	SetIoErr(error);
+
+	return(lock);
+}

library/stat_lstat.c

@@ -1,5 +1,5 @@
 /*
- * $Id: stat_lstat.c,v 1.14 2006-09-21 09:24:20 obarthel Exp $
+ * $Id: stat_lstat.c,v 1.15 2006-11-13 09:25:28 obarthel Exp $
  *
  * :ts=4
  *
@@ -55,118 +55,6 @@
 
 /****************************************************************************/
 
-/*
- * lstat_lock(): An implementation of Lock() which remembers whether or
- *               not it resolved soft links.
- *
- * Unfortunately is is limited to 255 character names.
- */
-
-static BPTR
-lstat_lock(const char *name,const int mode,int * link_length)
-{
-	D_S(struct bcpl_name,bname);
-	const size_t name_size = sizeof(bname->name);
-	char * new_name = NULL;
-	struct DevProc * dvp = NULL;
-	BPTR lock = ZERO;
-	size_t name_len;
-	LONG error;
-
-	assert( name != NULL && link_length != NULL );
-
-	name_len = strlen(name);
-	if(name_len >= name_size)
-	{
-		SetIoErr(ERROR_LINE_TOO_LONG);
-		goto out;
-	}
-
-	/* Convert the name into a BCPL string. */
-	bname->name[0] = name_len;
-	memmove(&bname->name[1],name,name_len);
-
-	while(TRUE)
-	{
-		/* Get a handle on the device, volume or assignment name in the path. */
-		dvp = GetDeviceProc((STRPTR)name,dvp);
-		if(dvp == NULL)
-			goto out;
-
-		/* Try to obtain a lock on the object. */
-		lock = DoPkt(dvp->dvp_Port,ACTION_LOCATE_OBJECT,dvp->dvp_Lock,MKBADDR(bname),mode,0,0);
-		if(lock != ZERO)
-			break;
-
-		error = IoErr();
-
-		if(error == ERROR_OBJECT_NOT_FOUND)
-		{
-			/* If this is part of a multi-volume assignment, try the next part. */
-			if(FLAG_IS_SET(dvp->dvp_Flags,DVPF_ASSIGN))
-				continue;
-
-			/* Not much we can do here... */
-			break;
-		}
-		else if (error == ERROR_IS_SOFT_LINK)
-		{
-			LONG result;
-
-			/* For soft link resolution we need a temporary buffer to
-			   let the file system store the resolved path name in. */
-			new_name = malloc(name_size);
-			if(new_name == NULL)
-			{
-				SetIoErr(ERROR_NO_FREE_STORE);
-				goto out;
-			}
-
-			/* Now ask the file system to resolve the entire path. */
-			result = ReadLink(dvp->dvp_Port,dvp->dvp_Lock,(STRPTR)name,(STRPTR)new_name,name_size);
-
-			if(result < 0)
-			{
-				/* This will return either -1 (resolution error) or -2
-				   (buffer too small). We regard both as trouble. */
-				SetIoErr(ERROR_INVALID_COMPONENT_NAME);
-				goto out;
-			}
-
-			assert( result > 0 );
-
-			/* Remember the length of the link name. */
-			(*link_length) = result;
-
-			/* Finished for now. */
-			break;
-		}
-		else
-		{
-			/* Some other error; ask if the user wants to have another go at it. */
-			if(ErrorReport(error,REPORT_LOCK,dvp->dvp_Lock,dvp->dvp_Port) != 0)
-				break;
-		}
-
-		/* Retry the lookup. */
-		FreeDeviceProc(dvp);
-		dvp = NULL;
-	}
-
- out:
-
-	error = IoErr();
-
-	if(new_name != NULL)
-		free(new_name);
-
-	FreeDeviceProc(dvp);
-
-	SetIoErr(error);
-
-	return(lock);
-}
-
 int
 lstat(const char * path_name, struct stat * st)
 {
@@ -247,7 +135,7 @@ lstat(const char * path_name, struct stat * st)
 	D(("trying to get a lock on '%s'",path_name));
 
 	PROFILE_OFF();
-	file_lock = lstat_lock(path_name,SHARED_LOCK,&link_length);
+	file_lock = __lock(path_name,SHARED_LOCK,&link_length,NULL,0);
 	PROFILE_ON();
 
 	if(file_lock == ZERO && link_length < 0)

library/stdio_change_fd_action.c

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