mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-08 04:46:11 +02:00
- not necessary anymore
This commit is contained in:
peter
parent
4afe7023c2
commit
19a1443d6e
@ -1,240 +0,0 @@
|
|||||||
{
|
|
||||||
$Id$
|
|
||||||
This file is part of the Free Pascal run time library.
|
|
||||||
Copyright (c) 1993,97 by Pierre Muller,
|
|
||||||
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.
|
|
||||||
|
|
||||||
**********************************************************************}
|
|
||||||
|
|
||||||
var argc : longint;
|
|
||||||
doscmd : string;
|
|
||||||
args : ^pchar;
|
|
||||||
|
|
||||||
function far_strlen(selector : word;linear_address : longint) : longint;
|
|
||||||
begin
|
|
||||||
asm
|
|
||||||
movl linear_address,%edx
|
|
||||||
movl %edx,%ecx
|
|
||||||
movw selector,%gs
|
|
||||||
Larg19:
|
|
||||||
movb %gs:(%edx),%al
|
|
||||||
testb %al,%al
|
|
||||||
je Larg20
|
|
||||||
incl %edx
|
|
||||||
jmp Larg19
|
|
||||||
Larg20:
|
|
||||||
movl %edx,%eax
|
|
||||||
subl %ecx,%eax
|
|
||||||
movl %eax,__RESULT
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function atohex(s : pchar) : longint;
|
|
||||||
var rv : longint;
|
|
||||||
v : byte;
|
|
||||||
begin
|
|
||||||
rv := 0;
|
|
||||||
while (s^ <>#0) do
|
|
||||||
begin
|
|
||||||
v := ord(s^) - ord('0');
|
|
||||||
if (v > 9) then v := v - 7;
|
|
||||||
v := v and 15; { in case it's lower case }
|
|
||||||
rv := rv*16 + v;
|
|
||||||
inc(longint(s));
|
|
||||||
end;
|
|
||||||
atohex := rv;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure setup_arguments;
|
|
||||||
type arrayword = array [0..0] of word;
|
|
||||||
var psp : word;
|
|
||||||
i,j : byte;
|
|
||||||
quote : char;
|
|
||||||
proxy_s : string[7];
|
|
||||||
al,proxy_argc,proxy_seg,proxy_ofs,lin : longint;
|
|
||||||
largs : array[0..127] of pchar;
|
|
||||||
rm_argv : ^arrayword;
|
|
||||||
begin
|
|
||||||
for i := 1 to 127 do
|
|
||||||
largs[i] := nil;
|
|
||||||
psp:=stub_info^.psp_selector;
|
|
||||||
largs[0]:=dos_argv0;
|
|
||||||
argc := 1;
|
|
||||||
sysseg_move(psp, 128, get_ds, longint(@doscmd), 128);
|
|
||||||
{$IfDef SYSTEMDEBUG}
|
|
||||||
Writeln('Dos command line is #',doscmd,'# size = ',length(doscmd));
|
|
||||||
{$EndIf SYSTEMDEBUG}
|
|
||||||
j := 1;
|
|
||||||
quote := #0;
|
|
||||||
for i:=1 to length(doscmd) do
|
|
||||||
Begin
|
|
||||||
if doscmd[i] = quote then
|
|
||||||
begin
|
|
||||||
quote := #0;
|
|
||||||
doscmd[i] := #0;
|
|
||||||
largs[argc]:=@doscmd[j];
|
|
||||||
inc(argc);
|
|
||||||
j := i+1;
|
|
||||||
end else
|
|
||||||
if (quote = #0) and ((doscmd[i] = '''') or (doscmd[i]='"')) then
|
|
||||||
begin
|
|
||||||
quote := doscmd[i];
|
|
||||||
j := i + 1;
|
|
||||||
end else
|
|
||||||
if (quote = #0) and ((doscmd[i] = ' ')
|
|
||||||
or (doscmd[i] = #9) or (doscmd[i] = #10) or
|
|
||||||
(doscmd[i] = #12) or (doscmd[i] = #9)) then
|
|
||||||
begin
|
|
||||||
doscmd[i]:=#0;
|
|
||||||
if j<i then
|
|
||||||
begin
|
|
||||||
largs[argc]:=@doscmd[j];
|
|
||||||
inc(argc);
|
|
||||||
j := i+1;
|
|
||||||
end else inc(j);
|
|
||||||
end else
|
|
||||||
if (i = length(doscmd)) then
|
|
||||||
begin
|
|
||||||
doscmd[i+1]:=#0;
|
|
||||||
largs[argc]:=@doscmd[j];
|
|
||||||
inc(argc);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if (argc > 1) and (far_strlen(get_ds,longint(largs[1])) = 6) then
|
|
||||||
begin
|
|
||||||
move(largs[1]^,proxy_s[1],6);
|
|
||||||
proxy_s[0] := #6;
|
|
||||||
if (proxy_s = '!proxy') then
|
|
||||||
begin
|
|
||||||
{$IfDef SYSTEMDEBUG}
|
|
||||||
Writeln('proxy command line ');
|
|
||||||
{$EndIf SYSTEMDEBUG}
|
|
||||||
proxy_argc := atohex(largs[2]);
|
|
||||||
proxy_seg := atohex(largs[3]);
|
|
||||||
proxy_ofs := atohex(largs[4]);
|
|
||||||
getmem(rm_argv,proxy_argc*sizeof(word));
|
|
||||||
sysseg_move(dos_selector,proxy_seg*16+proxy_ofs, get_ds,longint(rm_argv),proxy_argc*sizeof(word));
|
|
||||||
for i:=0 to proxy_argc - 1 do
|
|
||||||
begin
|
|
||||||
lin := proxy_seg*16 + rm_argv^[i];
|
|
||||||
al :=far_strlen(dos_selector, lin);
|
|
||||||
getmem(largs[i],al+1);
|
|
||||||
sysseg_move(dos_selector, lin, get_ds,longint(largs[i]), al+1);
|
|
||||||
{$IfDef SYSTEMDEBUG}
|
|
||||||
Writeln('arg ',i,' #',largs[i],'#');
|
|
||||||
{$EndIf SYSTEMDEBUG}
|
|
||||||
end;
|
|
||||||
argc := proxy_argc;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
getmem(args,argc*SizeOf(pchar));
|
|
||||||
for i := 0 to argc-1 do
|
|
||||||
args[i] := largs[i];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function strcopy(dest,source : pchar) : pchar;
|
|
||||||
|
|
||||||
begin
|
|
||||||
asm
|
|
||||||
cld
|
|
||||||
movl 12(%ebp),%edi
|
|
||||||
movl $0xffffffff,%ecx
|
|
||||||
xorb %al,%al
|
|
||||||
repne
|
|
||||||
scasb
|
|
||||||
not %ecx
|
|
||||||
movl 8(%ebp),%edi
|
|
||||||
movl 12(%ebp),%esi
|
|
||||||
movl %ecx,%eax
|
|
||||||
shrl $2,%ecx
|
|
||||||
rep
|
|
||||||
movsl
|
|
||||||
movl %eax,%ecx
|
|
||||||
andl $3,%ecx
|
|
||||||
rep
|
|
||||||
movsb
|
|
||||||
movl 8(%ebp),%eax
|
|
||||||
leave
|
|
||||||
ret $8
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure setup_environment;
|
|
||||||
var env_selector : word;
|
|
||||||
env_count : longint;
|
|
||||||
dos_env,cp : pchar;
|
|
||||||
stubaddr : p_stub_info;
|
|
||||||
begin
|
|
||||||
asm
|
|
||||||
movl __stubinfo,%eax
|
|
||||||
movl %eax,stubaddr
|
|
||||||
end;
|
|
||||||
stub_info:=stubaddr;
|
|
||||||
getmem(dos_env,stub_info^.env_size);
|
|
||||||
env_count:=0;
|
|
||||||
sysseg_move(stub_info^.psp_selector,$2c, get_ds, longint(@env_selector), 2);
|
|
||||||
sysseg_move(env_selector, 0, get_ds, longint(dos_env), stub_info^.env_size);
|
|
||||||
cp:=dos_env;
|
|
||||||
while cp ^ <> #0 do
|
|
||||||
begin
|
|
||||||
inc(env_count);
|
|
||||||
while (cp^ <> #0) do inc(longint(cp)); { skip to NUL }
|
|
||||||
inc(longint(cp)); { skip to next character }
|
|
||||||
end;
|
|
||||||
getmem(environ,(env_count+1) * sizeof(pchar));
|
|
||||||
if (environ = nil) then exit;
|
|
||||||
cp:=dos_env;
|
|
||||||
env_count:=0;
|
|
||||||
while cp^ <> #0 do
|
|
||||||
begin
|
|
||||||
getmem(environ[env_count],strlen(cp)+1);
|
|
||||||
strcopy(environ[env_count], cp);
|
|
||||||
{$IfDef SYSTEMDEBUG}
|
|
||||||
Writeln('env ',env_count,' = "',environ[env_count],'"');
|
|
||||||
{$EndIf SYSTEMDEBUG}
|
|
||||||
inc(env_count);
|
|
||||||
while (cp^ <> #0) do inc(longint(cp)); { skip to NUL }
|
|
||||||
inc(longint(cp)); { skip to next character }
|
|
||||||
end;
|
|
||||||
environ[env_count]:=nil;
|
|
||||||
inc(longint(cp),3);
|
|
||||||
getmem(dos_argv0,strlen(cp)+1);
|
|
||||||
if (dos_argv0 = nil) then halt;
|
|
||||||
strcopy(dos_argv0, cp);
|
|
||||||
end;
|
|
||||||
|
|
||||||
{
|
|
||||||
$Log$
|
|
||||||
Revision 1.1 1998-03-25 11:18:42 root
|
|
||||||
Initial revision
|
|
||||||
|
|
||||||
Revision 1.3 1998/01/26 11:57:15 michael
|
|
||||||
+ Added log at the end
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Working file: rtl/dos/go32v2/sargs.inc
|
|
||||||
description:
|
|
||||||
----------------------------
|
|
||||||
revision 1.2
|
|
||||||
date: 1997/12/01 15:35:01; author: michael; state: Exp; lines: +14 -0
|
|
||||||
+ Added copyright reference in header.
|
|
||||||
----------------------------
|
|
||||||
revision 1.1
|
|
||||||
date: 1997/11/27 08:33:52; author: michael; state: Exp;
|
|
||||||
Initial revision
|
|
||||||
----------------------------
|
|
||||||
revision 1.1.1.1
|
|
||||||
date: 1997/11/27 08:33:52; author: michael; state: Exp; lines: +0 -0
|
|
||||||
FPC RTL CVS start
|
|
||||||
=============================================================================
|
|
||||||
}
|
|
||||||
134
rtl/dos/makefile
134
rtl/dos/makefile
@ -1,134 +0,0 @@
|
|||||||
#****************************************************************************
|
|
||||||
#
|
|
||||||
# Copyright (c) 1993,96 by Florian Klaempfl
|
|
||||||
#
|
|
||||||
#****************************************************************************
|
|
||||||
#
|
|
||||||
# makefile for FPK Pascal DOS directory
|
|
||||||
#
|
|
||||||
#####################################################################
|
|
||||||
# Start of configurable section
|
|
||||||
#####################################################################
|
|
||||||
|
|
||||||
# set here the type of the ppc386 you use:
|
|
||||||
# Choose from: dos go32v2 linux or os2
|
|
||||||
OS_SRC=dos
|
|
||||||
|
|
||||||
# Set REFPATH if you want to generate diffs to a standard RTL
|
|
||||||
ifndef REFPATH
|
|
||||||
REFPATH=/usr/local/fpk/work/new/rtl
|
|
||||||
endif
|
|
||||||
ifndef DIFF
|
|
||||||
DIFF=diff
|
|
||||||
endif
|
|
||||||
ifndef DIFFOPTS
|
|
||||||
DIFFOPTS=-b -c
|
|
||||||
endif
|
|
||||||
|
|
||||||
#######################################################################
|
|
||||||
# End of configurable section.
|
|
||||||
# Do not edit after this line.
|
|
||||||
#######################################################################
|
|
||||||
|
|
||||||
# Check operating system.
|
|
||||||
ifeq ($(OS_SRC),linux)
|
|
||||||
DOS=NO
|
|
||||||
else
|
|
||||||
DOS=YES
|
|
||||||
endif
|
|
||||||
|
|
||||||
# Check copy delete commands.
|
|
||||||
# You need cp and rm from GNU to handle / as directory separator
|
|
||||||
ifeq ($(DOS),YES)
|
|
||||||
COPY=cp
|
|
||||||
DEL=rm
|
|
||||||
else
|
|
||||||
COPY=cp
|
|
||||||
DEL=rm
|
|
||||||
endif
|
|
||||||
|
|
||||||
# To install programs
|
|
||||||
ifndef INSTALL
|
|
||||||
ifeq ($(DOS),YES)
|
|
||||||
INSTALL=copy
|
|
||||||
else
|
|
||||||
INSTALL=install -m 644
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
|
|
||||||
# To make a directory.
|
|
||||||
ifndef MKDIR
|
|
||||||
ifeq ($(DOS),YES)
|
|
||||||
MKDIR=mkdir
|
|
||||||
else
|
|
||||||
MKDIR=install -m 755 -d
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
|
|
||||||
PPI=ppi
|
|
||||||
|
|
||||||
PPFILES = crt.pp \
|
|
||||||
dos.pp \
|
|
||||||
fmouse.pp \
|
|
||||||
go32.pp \
|
|
||||||
graph.pp \
|
|
||||||
mouse.pp \
|
|
||||||
objects.pp \
|
|
||||||
printer.pp \
|
|
||||||
watch.pp
|
|
||||||
|
|
||||||
PPIFILES = arc.ppi \
|
|
||||||
colors.ppi \
|
|
||||||
dpmi2raw.ppi \
|
|
||||||
ellipse.ppi \
|
|
||||||
fill.ppi \
|
|
||||||
font.ppi \
|
|
||||||
global.ppi \
|
|
||||||
ibm.ppi \
|
|
||||||
image.ppi \
|
|
||||||
line.ppi \
|
|
||||||
modes.ppi \
|
|
||||||
move.ppi \
|
|
||||||
palette.ppi \
|
|
||||||
pixel.ppi \
|
|
||||||
stdcolor.ppi \
|
|
||||||
text.ppi \
|
|
||||||
triangle.ppi \
|
|
||||||
vesadeb.ppi
|
|
||||||
|
|
||||||
|
|
||||||
# Here we have a conflict between modes.inc and modes.ppi
|
|
||||||
# that generate the same modes.dif !!
|
|
||||||
# so we use modes.dii for modes.inc
|
|
||||||
|
|
||||||
INCFILES = modes.inc
|
|
||||||
|
|
||||||
DIFFFILES = $(patsubst %.pp,%.dif,$(PPFILES)) \
|
|
||||||
$(patsubst %.ppi,$(PPI)/%.dif,$(PPIFILES)) \
|
|
||||||
$(patsubst %.inc,%.dii,$(INCFILES)) makefile.dif
|
|
||||||
|
|
||||||
.PHONY: clean diff diffclean
|
|
||||||
|
|
||||||
clean:
|
|
||||||
-$(DEL) *.dif
|
|
||||||
-$(DEL) *.dii
|
|
||||||
|
|
||||||
diffclean:
|
|
||||||
-$(DEL) *.dif
|
|
||||||
-$(DEL) *.dii
|
|
||||||
-$(DEL) $(PPI)/*.dif
|
|
||||||
|
|
||||||
|
|
||||||
%.dii : %.inc
|
|
||||||
-$(DIFF) $(DIFFOPTS) $*.inc $(REFPATH)/dos/$*.inc > $*.dii
|
|
||||||
|
|
||||||
%.dif : %.pp
|
|
||||||
-$(DIFF) $(DIFFOPTS) $*.pp $(REFPATH)/dos/$*.pp > $*.dif
|
|
||||||
|
|
||||||
%.dif : %.ppi
|
|
||||||
-$(DIFF) $(DIFFOPTS) $*.ppi $(REFPATH)/dos/$*.ppi > $*.dif
|
|
||||||
|
|
||||||
makefile.dif : makefile
|
|
||||||
-$(DIFF) $(DIFFOPTS) makefile $(REFPATH)/dos/makefile > makefile.dif
|
|
||||||
|
|
||||||
diffs : $(DIFFFILES)
|
|
||||||
Loading…
Reference in New Issue
Block a user