mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 13:39:39 +01:00
* Initial version. Compiles (syscall.inc inclusion prob has to be solved
This commit is contained in:
marco
parent
4133129ea6
commit
68eeea1a01
736
rtl/bsd/syslinux.pp
Normal file
736
rtl/bsd/syslinux.pp
Normal file
@ -0,0 +1,736 @@
|
|||||||
|
{
|
||||||
|
$Id$
|
||||||
|
This file is part of the Free Pascal run time library.
|
||||||
|
Copyright (c) 1999-2000 by Michael Van Canneyt,
|
||||||
|
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 want to link to the C library, set the conditional crtlib }
|
||||||
|
{ $define crtlib}
|
||||||
|
|
||||||
|
{ If you use an aout system, set the conditional AOUT}
|
||||||
|
{ $Define AOUT}
|
||||||
|
|
||||||
|
Unit SysLinux;
|
||||||
|
Interface
|
||||||
|
|
||||||
|
{$ifdef m68k}
|
||||||
|
{ used for single computations }
|
||||||
|
const
|
||||||
|
BIAS4 = $7f-1;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
{$I systemh.inc}
|
||||||
|
{$I heaph.inc}
|
||||||
|
|
||||||
|
const
|
||||||
|
UnusedHandle = -1;
|
||||||
|
StdInputHandle = 0;
|
||||||
|
StdOutputHandle = 1;
|
||||||
|
StdErrorHandle = 2;
|
||||||
|
|
||||||
|
var
|
||||||
|
argc : longint;
|
||||||
|
argv : ppchar;
|
||||||
|
envp : ppchar;
|
||||||
|
|
||||||
|
Implementation
|
||||||
|
|
||||||
|
{$I system.inc}
|
||||||
|
|
||||||
|
{$ifdef crtlib}
|
||||||
|
Procedure _rtl_exit(l: longint); cdecl;
|
||||||
|
Function _rtl_paramcount: longint; cdecl;
|
||||||
|
Procedure _rtl_paramstr(st: pchar; l: longint); cdecl;
|
||||||
|
Function _rtl_open(f: pchar; flags: longint): longint; cdecl;
|
||||||
|
Procedure _rtl_close(h: longint); cdecl;
|
||||||
|
Procedure _rtl_write(h: longint; addr: longInt; len : longint); cdecl;
|
||||||
|
Procedure _rtl_erase(p: pchar); cdecl;
|
||||||
|
Procedure _rtl_rename(p1: pchar; p2 : pchar); cdecl;
|
||||||
|
Function _rtl_read(h: longInt; addr: longInt; len : longint) : longint; cdecl;
|
||||||
|
Function _rtl_filepos(Handle: longint): longint; cdecl;
|
||||||
|
Procedure _rtl_seek(Handle: longint; pos:longint); cdecl;
|
||||||
|
Function _rtl_filesize(Handle:longint): longInt; cdecl;
|
||||||
|
Procedure _rtl_rmdir(buffer: pchar); cdecl;
|
||||||
|
Procedure _rtl_mkdir(buffer: pchar); cdecl;
|
||||||
|
Procedure _rtl_chdir(buffer: pchar); cdecl;
|
||||||
|
{$else}
|
||||||
|
{ used in syscall to report errors.}
|
||||||
|
var
|
||||||
|
Errno : longint;
|
||||||
|
|
||||||
|
{ Include constant and type definitions }
|
||||||
|
{$i errno.inc } { Error numbers }
|
||||||
|
{$i sysnr.inc } { System call numbers }
|
||||||
|
{$i sysconst.inc } { Miscellaneous constants }
|
||||||
|
{$i systypes.inc } { Types needed for system calls }
|
||||||
|
|
||||||
|
{ Read actual system call definitions. }
|
||||||
|
{$i syscalls.inc }
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
Misc. System Dependent Functions
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
procedure prthaltproc;external name '_haltproc';
|
||||||
|
|
||||||
|
procedure System_exit;
|
||||||
|
begin
|
||||||
|
{$ifdef i386}
|
||||||
|
asm
|
||||||
|
jmp prthaltproc
|
||||||
|
end;
|
||||||
|
{$else}
|
||||||
|
asm
|
||||||
|
jmp prthaltproc
|
||||||
|
end;
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Function ParamCount: Longint;
|
||||||
|
Begin
|
||||||
|
Paramcount:=argc-1
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Function ParamStr(l: Longint): String;
|
||||||
|
var
|
||||||
|
link,
|
||||||
|
hs : string;
|
||||||
|
i : longint;
|
||||||
|
begin
|
||||||
|
if l=0 then
|
||||||
|
begin
|
||||||
|
str(sys_getpid,hs);
|
||||||
|
hs:='/proc/'+hs+'/exe'#0;
|
||||||
|
i:=Sys_readlink(@hs[1],@link[1],high(link));
|
||||||
|
if i>0 then
|
||||||
|
begin
|
||||||
|
link[0]:=chr(i);
|
||||||
|
paramstr:=link;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
paramstr:=strpas(argv[0]);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if (l>0) and (l<argc) then
|
||||||
|
paramstr:=strpas(argv[l])
|
||||||
|
else
|
||||||
|
paramstr:='';
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure Randomize;
|
||||||
|
Begin
|
||||||
|
randseed:=sys_time;
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
Heap Management
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
var
|
||||||
|
_HEAP : longint;external name 'HEAP';
|
||||||
|
_HEAPSIZE : longint;external name 'HEAPSIZE';
|
||||||
|
|
||||||
|
function getheapstart:pointer;assembler;
|
||||||
|
{$ifdef i386}
|
||||||
|
asm
|
||||||
|
leal _HEAP,%eax
|
||||||
|
end ['EAX'];
|
||||||
|
{$else}
|
||||||
|
asm
|
||||||
|
lea.l _HEAP,a0
|
||||||
|
move.l a0,d0
|
||||||
|
end;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
|
||||||
|
function getheapsize:longint;assembler;
|
||||||
|
{$ifdef i386}
|
||||||
|
asm
|
||||||
|
movl _HEAPSIZE,%eax
|
||||||
|
end ['EAX'];
|
||||||
|
{$else}
|
||||||
|
asm
|
||||||
|
move.l _HEAPSIZE,d0
|
||||||
|
end ['D0'];
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
|
||||||
|
Function sbrk(size : longint) : Longint;
|
||||||
|
begin
|
||||||
|
Sbrk:=do_syscall(197,0,size,3,$22,-1,0,0);
|
||||||
|
if ErrNo<>0 then
|
||||||
|
Sbrk:=0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ include standard heap management }
|
||||||
|
{$I heap.inc}
|
||||||
|
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
Low Level File Routines
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
{
|
||||||
|
The lowlevel file functions should take care of setting the InOutRes to the
|
||||||
|
correct value if an error has occured, else leave it untouched
|
||||||
|
}
|
||||||
|
|
||||||
|
Procedure Errno2Inoutres;
|
||||||
|
{
|
||||||
|
Convert ErrNo error to the correct Inoutres value
|
||||||
|
}
|
||||||
|
|
||||||
|
begin
|
||||||
|
if ErrNo=0 then { Else it will go through all the cases }
|
||||||
|
exit;
|
||||||
|
case ErrNo of
|
||||||
|
Sys_ENFILE,
|
||||||
|
Sys_EMFILE : Inoutres:=4;
|
||||||
|
Sys_ENOENT : Inoutres:=2;
|
||||||
|
Sys_EBADF : Inoutres:=6;
|
||||||
|
Sys_ENOMEM,
|
||||||
|
Sys_EFAULT : Inoutres:=217;
|
||||||
|
Sys_EINVAL : Inoutres:=218;
|
||||||
|
Sys_EPIPE,
|
||||||
|
Sys_EINTR,
|
||||||
|
Sys_EIO,
|
||||||
|
Sys_EAGAIN,
|
||||||
|
Sys_ENOSPC : Inoutres:=101;
|
||||||
|
Sys_ENAMETOOLONG,
|
||||||
|
Sys_ELOOP,
|
||||||
|
Sys_ENOTDIR : Inoutres:=3;
|
||||||
|
Sys_EROFS,
|
||||||
|
Sys_EEXIST,
|
||||||
|
Sys_EACCES : Inoutres:=5;
|
||||||
|
Sys_ETXTBSY : Inoutres:=162;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure Do_Close(Handle:Longint);
|
||||||
|
Begin
|
||||||
|
if Handle<=4 then
|
||||||
|
exit;
|
||||||
|
{$ifdef crtlib}
|
||||||
|
_rtl_close(Handle);
|
||||||
|
{$else}
|
||||||
|
sys_close(Handle);
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure Do_Erase(p:pchar);
|
||||||
|
Begin
|
||||||
|
{$ifdef crtlib}
|
||||||
|
_rtl_erase(p);
|
||||||
|
{$else}
|
||||||
|
sys_unlink(p);
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure Do_Rename(p1,p2:pchar);
|
||||||
|
Begin
|
||||||
|
{$ifdef crtlib}
|
||||||
|
_rtl_rename(p1,p2);
|
||||||
|
{$else }
|
||||||
|
sys_rename(p1,p2);
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Function Do_Write(Handle,Addr,Len:Longint):longint;
|
||||||
|
Begin
|
||||||
|
{$ifdef crtlib}
|
||||||
|
_rtl_write(Handle,addr,len);
|
||||||
|
Do_Write:=Len;
|
||||||
|
{$else}
|
||||||
|
Do_Write:=sys_write(Handle,pchar(addr),len);
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
if Do_Write<0 then
|
||||||
|
Do_Write:=0;
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Function Do_Read(Handle,Addr,Len:Longint):Longint;
|
||||||
|
Begin
|
||||||
|
{$ifdef crtlib}
|
||||||
|
Do_Read:=_rtl_read(Handle,addr,len);
|
||||||
|
{$else}
|
||||||
|
Do_Read:=sys_read(Handle,pchar(addr),len);
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
if Do_Read<0 then
|
||||||
|
Do_Read:=0;
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Function Do_FilePos(Handle: Longint): Longint;
|
||||||
|
Begin
|
||||||
|
{$ifdef crtlib}
|
||||||
|
Do_FilePos:=_rtl_filepos(Handle);
|
||||||
|
{$else}
|
||||||
|
Do_FilePos:=sys_lseek(Handle, 0, Seek_Cur);
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure Do_Seek(Handle,Pos:Longint);
|
||||||
|
Begin
|
||||||
|
{$ifdef crtlib}
|
||||||
|
_rtl_seek(Handle, Pos);
|
||||||
|
{$else}
|
||||||
|
sys_lseek(Handle, pos, Seek_set);
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Function Do_SeekEnd(Handle:Longint): Longint;
|
||||||
|
begin
|
||||||
|
{$ifdef crtlib}
|
||||||
|
Do_SeekEnd:=_rtl_filesize(Handle);
|
||||||
|
{$else}
|
||||||
|
Do_SeekEnd:=sys_lseek(Handle,0,Seek_End);
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Function Do_FileSize(Handle:Longint): Longint;
|
||||||
|
{$ifndef crtlib}
|
||||||
|
var
|
||||||
|
Info : Stat;
|
||||||
|
{$endif}
|
||||||
|
Begin
|
||||||
|
{$ifdef crtlib}
|
||||||
|
Do_FileSize:=_rtl_filesize(Handle);
|
||||||
|
{$else}
|
||||||
|
if do_SysCall(189,handle,longint(@info))=0 then
|
||||||
|
Do_FileSize:=Info.Size
|
||||||
|
else
|
||||||
|
Do_FileSize:=0;
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure Do_Truncate(Handle,Pos:longint);
|
||||||
|
|
||||||
|
begin
|
||||||
|
{$ifndef crtlib}
|
||||||
|
do_syscall(201,handle,pos);
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure Do_Open(var f;p:pchar;flags:longint);
|
||||||
|
{
|
||||||
|
FileRec and textrec have both Handle and mode as the first items so
|
||||||
|
they could use the same routine for opening/creating.
|
||||||
|
when (flags and $100) the file will be append
|
||||||
|
when (flags and $1000) the file will be truncate/rewritten
|
||||||
|
when (flags and $10000) there is no check for close (needed for textfiles)
|
||||||
|
}
|
||||||
|
var
|
||||||
|
{$ifndef crtlib}
|
||||||
|
oflags : longint;
|
||||||
|
{$endif}
|
||||||
|
Begin
|
||||||
|
{ close first if opened }
|
||||||
|
if ((flags and $10000)=0) then
|
||||||
|
begin
|
||||||
|
case FileRec(f).mode of
|
||||||
|
fminput,fmoutput,fminout : Do_Close(FileRec(f).Handle);
|
||||||
|
fmclosed : ;
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
inoutres:=102; {not assigned}
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
{ reset file Handle }
|
||||||
|
FileRec(f).Handle:=UnusedHandle;
|
||||||
|
{ We do the conversion of filemodes here, concentrated on 1 place }
|
||||||
|
case (flags and 3) of
|
||||||
|
0 : begin
|
||||||
|
oflags :=Open_RDONLY;
|
||||||
|
FileRec(f).mode:=fminput;
|
||||||
|
end;
|
||||||
|
1 : begin
|
||||||
|
oflags :=Open_WRONLY;
|
||||||
|
FileRec(f).mode:=fmoutput;
|
||||||
|
end;
|
||||||
|
2 : begin
|
||||||
|
oflags :=Open_RDWR;
|
||||||
|
FileRec(f).mode:=fminout;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if (flags and $1000)=$1000 then
|
||||||
|
oflags:=oflags or (Open_CREAT or Open_TRUNC)
|
||||||
|
else
|
||||||
|
if (flags and $100)=$100 then
|
||||||
|
oflags:=oflags or (Open_APPEND);
|
||||||
|
{ empty name is special }
|
||||||
|
if p[0]=#0 then
|
||||||
|
begin
|
||||||
|
case FileRec(f).mode of
|
||||||
|
fminput :
|
||||||
|
FileRec(f).Handle:=StdInputHandle;
|
||||||
|
fminout, { this is set by rewrite }
|
||||||
|
fmoutput :
|
||||||
|
FileRec(f).Handle:=StdOutputHandle;
|
||||||
|
fmappend :
|
||||||
|
begin
|
||||||
|
FileRec(f).Handle:=StdOutputHandle;
|
||||||
|
FileRec(f).mode:=fmoutput; {fool fmappend}
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
{ real open call }
|
||||||
|
{$ifdef crtlib}
|
||||||
|
FileRec(f).Handle:=_rtl_open(p, oflags);
|
||||||
|
if FileRec(f).Handle<0 then
|
||||||
|
InOutRes:=2
|
||||||
|
else
|
||||||
|
InOutRes:=0;
|
||||||
|
{$else}
|
||||||
|
FileRec(f).Handle:=sys_open(p,oflags,438);
|
||||||
|
if (ErrNo=Sys_EROFS) and ((OFlags and Open_RDWR)<>0) then
|
||||||
|
begin
|
||||||
|
Oflags:=Oflags and not(Open_RDWR);
|
||||||
|
FileRec(f).Handle:=sys_open(p,oflags,438);
|
||||||
|
end;
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Function Do_IsDevice(Handle:Longint):boolean;
|
||||||
|
{
|
||||||
|
Interface to Unix ioctl call.
|
||||||
|
Performs various operations on the filedescriptor Handle.
|
||||||
|
Ndx describes the operation to perform.
|
||||||
|
Data points to data needed for the Ndx function. The structure of this
|
||||||
|
data is function-dependent.
|
||||||
|
}
|
||||||
|
var
|
||||||
|
Data : array[0..255] of byte; {Large enough for termios info}
|
||||||
|
begin
|
||||||
|
Do_IsDevice:=(do_SysCall(54,handle,$5401,longint(@data))=0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
UnTyped File Handling
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
{$i file.inc}
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
Typed File Handling
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
{$i typefile.inc}
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
Text File Handling
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
{$DEFINE SHORT_LINEBREAK}
|
||||||
|
{$DEFINE EXTENDED_EOF}
|
||||||
|
|
||||||
|
{$i text.inc}
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
Directory Handling
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
Procedure MkDir(Const s: String);[IOCheck];
|
||||||
|
Var
|
||||||
|
Buffer: Array[0..255] of Char;
|
||||||
|
Begin
|
||||||
|
If InOutRes <> 0 then exit;
|
||||||
|
Move(s[1], Buffer, Length(s));
|
||||||
|
Buffer[Length(s)] := #0;
|
||||||
|
{$ifdef crtlib}
|
||||||
|
_rtl_mkdir(@buffer);
|
||||||
|
{$else}
|
||||||
|
sys_mkdir(@buffer, 511);
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure RmDir(Const s: String);[IOCheck];
|
||||||
|
Var
|
||||||
|
Buffer: Array[0..255] of Char;
|
||||||
|
Begin
|
||||||
|
If InOutRes <> 0 then exit;
|
||||||
|
Move(s[1], Buffer, Length(s));
|
||||||
|
Buffer[Length(s)] := #0;
|
||||||
|
{$ifdef crtlib}
|
||||||
|
_rtl_rmdir(@buffer);
|
||||||
|
{$else}
|
||||||
|
sys_rmdir(@buffer);
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure ChDir(Const s: String);[IOCheck];
|
||||||
|
Var
|
||||||
|
Buffer: Array[0..255] of Char;
|
||||||
|
Begin
|
||||||
|
If InOutRes <> 0 then exit;
|
||||||
|
Move(s[1], Buffer, Length(s));
|
||||||
|
Buffer[Length(s)] := #0;
|
||||||
|
{$ifdef crtlib}
|
||||||
|
_rtl_chdir(@buffer);
|
||||||
|
{$else}
|
||||||
|
sys_chdir(@buffer);
|
||||||
|
Errno2Inoutres;
|
||||||
|
{$endif}
|
||||||
|
End;
|
||||||
|
|
||||||
|
|
||||||
|
procedure getdir(drivenr : byte;var dir : shortstring);
|
||||||
|
{$ifndef crtlib}
|
||||||
|
var
|
||||||
|
thisdir : stat;
|
||||||
|
rootino,
|
||||||
|
thisino,
|
||||||
|
dotdotino : longint;
|
||||||
|
rootdev,
|
||||||
|
thisdev,
|
||||||
|
dotdotdev : word;
|
||||||
|
thedir,dummy : string[255];
|
||||||
|
dirstream : pdir;
|
||||||
|
d : pdirent;
|
||||||
|
mountpoint : boolean;
|
||||||
|
predot : string[255];
|
||||||
|
{$endif}
|
||||||
|
begin
|
||||||
|
drivenr:=0;
|
||||||
|
dir:='';
|
||||||
|
{$ifndef crtlib}
|
||||||
|
thedir:='/'#0;
|
||||||
|
if sys_stat(@thedir[1],thisdir)<0 then
|
||||||
|
exit;
|
||||||
|
rootino:=thisdir.ino;
|
||||||
|
rootdev:=thisdir.dev;
|
||||||
|
thedir:='.'#0;
|
||||||
|
if sys_stat(@thedir[1],thisdir)<0 then
|
||||||
|
exit;
|
||||||
|
thisino:=thisdir.ino;
|
||||||
|
thisdev:=thisdir.dev;
|
||||||
|
{ Now we can uniquely identify the current and root dir }
|
||||||
|
thedir:='';
|
||||||
|
predot:='';
|
||||||
|
while not ((thisino=rootino) and (thisdev=rootdev)) do
|
||||||
|
begin
|
||||||
|
{ Are we on a mount point ? }
|
||||||
|
dummy:=predot+'..'#0;
|
||||||
|
if sys_stat(@dummy[1],thisdir)<0 then
|
||||||
|
exit;
|
||||||
|
dotdotino:=thisdir.ino;
|
||||||
|
dotdotdev:=thisdir.dev;
|
||||||
|
mountpoint:=(thisdev<>dotdotdev);
|
||||||
|
{ Now, Try to find the name of this dir in the previous one }
|
||||||
|
dirstream:=opendir (@dummy[1]);
|
||||||
|
if dirstream=nil then
|
||||||
|
exit;
|
||||||
|
repeat
|
||||||
|
d:=sys_readdir (dirstream);
|
||||||
|
if (d<>nil) and
|
||||||
|
(not ((d^.name[0]='.') and ((d^.name[1]=#0) or ((d^.name[1]='.') and (d^.name[2]=#0))))) and
|
||||||
|
(mountpoint or (d^.ino=thisino)) then
|
||||||
|
begin
|
||||||
|
dummy:=predot+'../'+strpas(@(d^.name[0]))+#0;
|
||||||
|
if sys_stat (@(dummy[1]),thisdir)<0 then
|
||||||
|
d:=nil;
|
||||||
|
end;
|
||||||
|
until (d=nil) or ((thisdir.dev=thisdev) and (thisdir.ino=thisino) );
|
||||||
|
if (closedir(dirstream)<0) or (d=nil) then
|
||||||
|
exit;
|
||||||
|
{ At this point, d.name contains the name of the current dir}
|
||||||
|
thedir:='/'+strpas(@(d^.name[0]))+thedir;
|
||||||
|
thisdev:=dotdotdev;
|
||||||
|
thisino:=dotdotino;
|
||||||
|
predot:=predot+'../';
|
||||||
|
end;
|
||||||
|
{ Now rootino=thisino and rootdev=thisdev so we've reached / }
|
||||||
|
dir:=thedir
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
SystemUnit Initialization
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
Procedure SignalToRunError(Sig:longint);
|
||||||
|
begin
|
||||||
|
case sig of
|
||||||
|
8 : HandleError(200);
|
||||||
|
11 : HandleError(216);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Procedure InstallSignals;
|
||||||
|
begin
|
||||||
|
{ sr.reg3:=longint(@SignalToRunError);
|
||||||
|
{ sigsegv }
|
||||||
|
sr.reg2:=11;
|
||||||
|
syscall(syscall_nr_signal,sr);
|
||||||
|
{ sigfpe }
|
||||||
|
sr.reg2:=8;
|
||||||
|
syscall(syscall_nr_signal,sr);
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure SetupCmdLine;
|
||||||
|
var
|
||||||
|
bufsize,
|
||||||
|
len,j,
|
||||||
|
size,i : longint;
|
||||||
|
found : boolean;
|
||||||
|
buf : array[0..1026] of char;
|
||||||
|
|
||||||
|
procedure AddBuf;
|
||||||
|
begin
|
||||||
|
reallocmem(cmdline,size+bufsize);
|
||||||
|
move(buf,cmdline[size],bufsize);
|
||||||
|
inc(size,bufsize);
|
||||||
|
bufsize:=0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
size:=0;
|
||||||
|
bufsize:=0;
|
||||||
|
i:=0;
|
||||||
|
while (i<argc) do
|
||||||
|
begin
|
||||||
|
len:=strlen(argv[i]);
|
||||||
|
if len>sizeof(buf)-2 then
|
||||||
|
len:=sizeof(buf)-2;
|
||||||
|
found:=false;
|
||||||
|
for j:=1 to len do
|
||||||
|
if argv[i][j]=' ' then
|
||||||
|
begin
|
||||||
|
found:=true;
|
||||||
|
break;
|
||||||
|
end;
|
||||||
|
if bufsize+len>=sizeof(buf)-2 then
|
||||||
|
AddBuf;
|
||||||
|
if found then
|
||||||
|
begin
|
||||||
|
buf[bufsize]:='"';
|
||||||
|
inc(bufsize);
|
||||||
|
end;
|
||||||
|
move(argv[i]^,buf[bufsize],len);
|
||||||
|
inc(bufsize,len);
|
||||||
|
if found then
|
||||||
|
begin
|
||||||
|
buf[bufsize]:='"';
|
||||||
|
inc(bufsize);
|
||||||
|
end;
|
||||||
|
if i<argc then
|
||||||
|
buf[bufsize]:=' '
|
||||||
|
else
|
||||||
|
buf[bufsize]:=#0;
|
||||||
|
inc(bufsize);
|
||||||
|
inc(i);
|
||||||
|
end;
|
||||||
|
AddBuf;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Begin
|
||||||
|
{ 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.1 2000-03-01 20:23:07 marco
|
||||||
|
* Initial version. Compiles (syscall.inc inclusion prob has to be solved
|
||||||
|
|
||||||
|
Revision 1.37 2000/02/09 16:59:32 peter
|
||||||
|
* truncated log
|
||||||
|
|
||||||
|
Revision 1.36 2000/02/09 12:17:51 peter
|
||||||
|
* moved halt to system.inc
|
||||||
|
* syslinux doesn't use direct asm anymore
|
||||||
|
|
||||||
|
Revision 1.35 2000/02/08 11:47:09 peter
|
||||||
|
* paramstr(0) support
|
||||||
|
|
||||||
|
Revision 1.34 2000/01/20 23:38:02 peter
|
||||||
|
* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
|
||||||
|
rewrite opens always with filemode 2
|
||||||
|
|
||||||
|
Revision 1.33 2000/01/16 22:25:38 peter
|
||||||
|
* check handle for file closing
|
||||||
|
|
||||||
|
Revision 1.32 2000/01/07 16:41:41 daniel
|
||||||
|
* copyright 2000
|
||||||
|
|
||||||
|
Revision 1.31 2000/01/07 16:32:28 daniel
|
||||||
|
* copyright 2000 added
|
||||||
|
|
||||||
|
Revision 1.30 1999/12/01 22:57:31 peter
|
||||||
|
* cmdline support
|
||||||
|
|
||||||
|
Revision 1.29 1999/11/06 14:39:12 peter
|
||||||
|
* truncated log
|
||||||
|
|
||||||
|
Revision 1.28 1999/10/28 09:50:06 peter
|
||||||
|
* use mmap instead of brk
|
||||||
|
|
||||||
|
Revision 1.27 1999/09/10 15:40:35 peter
|
||||||
|
* fixed do_open flags to be > $100, becuase filemode can be upto 255
|
||||||
|
|
||||||
|
Revision 1.26 1999/09/08 16:14:43 peter
|
||||||
|
* pointer fixes
|
||||||
|
|
||||||
|
Revision 1.25 1999/07/28 23:18:36 peter
|
||||||
|
* closedir fixes, which now disposes the pdir itself
|
||||||
|
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue
Block a user