paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ FileNameCaseSensetive boolean

Browse Source
This commit is contained in:
peter 1999-04-28 11:42:44 +00:00
parent d27b21891b
commit 3f9b3dc921
5 changed files with 44 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/go32v2/dos.pp
View File

@ -740,7 +740,10 @@ end;
pa[1]:=CHR(ORD(Pa[1])-32);
end
else
pa:=upcase(path);
if FileNameCaseSensitive then
pa:=path
else
pa:=upcase(path);
{ allow slash as backslash }
for i:=1 to length(pa) do
if pa[i]='/' then
@ -994,7 +997,10 @@ End;
end.
{
$Log$
Revision 1.5 1999-04-02 00:01:29 peter
Revision 1.6 1999-04-28 11:42:44 peter
+ FileNameCaseSensetive boolean
Revision 1.5 1999/04/02 00:01:29 peter
* fixed LFNFindfirst on network drives
Revision 1.4 1999/03/01 15:40:48 peter

12
rtl/go32v2/system.pp
View File

@ -29,6 +29,8 @@ const
StdOutputHandle = 1;
StdErrorHandle = 2;
FileNameCaseSensitive : boolean = false;
{ Default memory segments (Tp7 compatibility) }
seg0040 = $0040;
segA000 = $A000;
@ -1149,7 +1151,8 @@ begin
dir[3]:='\';
dir[0]:=char(i+3);
{ upcase the string }
dir:=upcase(dir);
if not FileNameCaseSensitive then
dir:=upcase(dir);
if drivenr<>0 then { Drive was supplied. We know it }
dir[1]:=char(65+drivenr-1)
else
@ -1228,12 +1231,17 @@ Begin
Setup_Arguments;
{ Use LFNSupport LFN }
LFNSupport:=CheckLFN;
if LFNSupport then
FileNameCaseSensitive:=true;
{ Reset IO Error }
InOutRes:=0;
End.
{
$Log$
Revision 1.9 1999-04-28 06:01:25 florian
Revision 1.10 1999-04-28 11:42:45 peter
+ FileNameCaseSensetive boolean
Revision 1.9 1999/04/28 06:01:25 florian
* define MT for multithreading introduced
Revision 1.8 1999/04/08 12:23:02 peter

7
rtl/win32/Makefile
View File

@ -202,7 +202,7 @@ ole2$(PPUEXT) : ole2.pp windows$(PPUEXT) $(SYSTEMPPU)
# TP7 Compatible RTL Units
#
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc $(SYSTEMPPU)
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) $(SYSTEMPPU)
crt$(PPUEXT) : crt.pp $(INC)/textrec.inc $(SYSTEMPPU) objpas$(PPUEXT)
@ -371,7 +371,10 @@ endif
#
# $Log$
# Revision 1.26 1999-04-22 10:56:33 peter
# Revision 1.27 1999-04-28 11:42:50 peter
# + FileNameCaseSensetive boolean
#
# Revision 1.26 1999/04/22 10:56:33 peter
# * fixed sysutils dependencys
# * objpas files are agian in the main Makefile, makefile.op is obsolete
#

10
rtl/win32/dos.pp
View File

@ -617,7 +617,10 @@ var
i,j : longint;
begin
getdir(0,s);
pa:=upcase(path);
if FileNameCaseSensitive then
pa:=path
else
pa:=upcase(path);
{ allow slash as backslash }
for i:=1 to length(pa) do
if pa[i]='/' then
@ -876,7 +879,10 @@ End;
end.
{
$Log$
Revision 1.14 1999-04-08 12:23:07 peter
Revision 1.15 1999-04-28 11:42:52 peter
+ FileNameCaseSensetive boolean
Revision 1.14 1999/04/08 12:23:07 peter
* removed os.inc
Revision 1.13 1998/11/16 15:48:53 peter

18
rtl/win32/syswin32.pp
View File

@ -34,6 +34,8 @@ const
StdOutputHandle : longint = 0;
StdErrorHandle : longint = 0;
FileNameCaseSensitive : boolean = true;
type
TStartupInfo=packed record
cb : longint;
@ -613,12 +615,12 @@ procedure chdir(const s:string);[IOCHECK];
end;
procedure getdir(drivenr:byte;var dir:shortstring);
const
const
Drive:array[0..3]of char=(#0,':',#0,#0);
var
var
defaultdrive:boolean;
DirBuf,SaveBuf:array[0..259] of Char;
begin
begin
defaultdrive:=drivenr=0;
if not defaultdrive then
begin
@ -630,7 +632,10 @@ procedure getdir(drivenr:byte;var dir:shortstring);
if not defaultdrive then
SetCurrentDirectory(@SaveBuf);
dir:=strpas(DirBuf);
end;
if not FileNameCaseSensitive then
dir:=upcase(dir);
end;
{*****************************************************************************
SystemUnit Initialization
@ -1010,7 +1015,10 @@ end.
{
$Log$
Revision 1.37 1999-04-08 12:23:11 peter
Revision 1.38 1999-04-28 11:42:53 peter
+ FileNameCaseSensetive boolean
Revision 1.37 1999/04/08 12:23:11 peter
* removed os.inc
Revision 1.36 1999/03/24 23:25:59 peter