{ $Id$ This file is part of the Free Pascal run time librar~y. Copyright (c) 2000 by Marco van de Voort member of the Free Pascal development team. See the file COPYING.FPC, included in this distribution, for details about the copyright. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. **********************************************************************} { These things are set in the makefile, } { But you can override them here.} { If you use an aout system, set the conditional AOUT} { $Define AOUT} Unit {$ifdef VER1_0}SysBSD{$else}System{$endif}; Interface {$I sysunixh.inc} Implementation Var Errno : longint; function geterrno:longint; [public, alias: 'FPC_SYS_GETERRNO']; begin GetErrno:=Errno; end; { OS independant parts} {$I system.inc} { OS dependant parts } {$I errno.inc} {$I osposixh.inc} {$I bsdsysc.inc} {$I sysposix.inc} {$I text.inc} {$I heap.inc} {***************************************************************************** UnTyped File Handling *****************************************************************************} {$i file.inc} {***************************************************************************** Typed File Handling *****************************************************************************} {$i typefile.inc} Begin IsConsole := TRUE; IsLibrary := FALSE; StackBottom := Sptr - StackLength; { Set up signals handlers } InstallSignals; { Setup heap } InitHeap; InitExceptions; { Arguments } SetupCmdLine; { Setup stdin, stdout and stderr } OpenStdIO(Input,fmInput,StdInputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle); OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdErr,fmOutput,StdErrorHandle); { Reset IO Error } InOutRes:=0; End. { $Log$ Revision 1.2 2002-09-07 16:01:17 peter * old logs removed and tabs fixed Revision 1.1 2002/08/19 12:29:11 marco * First working POSIX *BSD system unit. }