From 0412d2815628e2fe8ede7932841a6eb88b1dd388 Mon Sep 17 00:00:00 2001 From: marco Date: Wed, 1 Jun 2016 15:11:59 +0000 Subject: [PATCH] --- Merging r33711 into '.': U rtl/nativent/Makefile.fpc U rtl/nativent/buildrtl.pp A rtl/nativent/dos.pp --- Recording mergeinfo for merge of r33711 into '.': U . --- Merging r33712 into '.': C rtl/nativent/Makefile.fpc --- Recording mergeinfo for merge of r33712 into '.': G . Summary of conflicts: Text conflicts: 1 # revisions: 33711,33712 git-svn-id: branches/fixes_3_0@33868 - --- .gitattributes | 1 + rtl/nativent/Makefile.fpc | 5 +- rtl/nativent/buildrtl.pp | 1 + rtl/nativent/dos.pp | 267 ++++++++++++++++++++++++++++++++++++++ 4 files changed, 273 insertions(+), 1 deletion(-) create mode 100644 rtl/nativent/dos.pp diff --git a/.gitattributes b/.gitattributes index c9f99fa448..14202c26c3 100644 --- a/.gitattributes +++ b/.gitattributes @@ -8968,6 +8968,7 @@ rtl/nativent/classes.pp svneol=native#text/pascal rtl/nativent/ddk.pas svneol=native#text/pascal rtl/nativent/ddk/ddkex.inc svneol=native#text/plain rtl/nativent/ddk/ddktypes.inc svneol=native#text/plain +rtl/nativent/dos.pp svneol=native#text/plain rtl/nativent/ndk.pas svneol=native#text/pascal rtl/nativent/ndk/iofuncs.inc svneol=native#text/plain rtl/nativent/ndk/iotypes.inc svneol=native#text/plain diff --git a/rtl/nativent/Makefile.fpc b/rtl/nativent/Makefile.fpc index fd3f416361..3f489173fb 100644 --- a/rtl/nativent/Makefile.fpc +++ b/rtl/nativent/Makefile.fpc @@ -13,7 +13,7 @@ implicitunits=ndk ndkutils ddk \ ctypes strings \ # heaptrc # initc cmem dynlibs signals \ -# dos \ + dos \ rtlconsts sysconst sysutils math types \ typinfo fgl classes \ $(CPU_UNITS) charset getopts \ @@ -120,6 +120,9 @@ objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc system$(PPUEXT) macpas$(PPUEXT) : $(INC)/macpas.pp objpas$(PPUEXT) buildrtl$(PPUEXT) $(COMPILER) $(INC)/macpas.pp $(REDIR) +iso7185$(PPUEXT) : $(INC)/iso7185.pp $(SYSTEMUNIT)$(PPUEXT) + $(COMPILER) $(INC)/iso7185.pp + extpas$(PPUEXT) : $(INC)/extpas.pp dos$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) $(COMPILER) $(INC)/extpas.pp diff --git a/rtl/nativent/buildrtl.pp b/rtl/nativent/buildrtl.pp index 44da799568..af0687db70 100644 --- a/rtl/nativent/buildrtl.pp +++ b/rtl/nativent/buildrtl.pp @@ -5,6 +5,7 @@ unit buildrtl; uses ndk, ndkutils, ddk, ctypes, strings, + dos, rtlconsts, sysconst, sysutils, math, types, typinfo, fgl, classes, {$ifdef cpui386} diff --git a/rtl/nativent/dos.pp b/rtl/nativent/dos.pp new file mode 100644 index 0000000000..1856e81093 --- /dev/null +++ b/rtl/nativent/dos.pp @@ -0,0 +1,267 @@ +{ + This file is part of the Free Pascal run time library. + Copyright (c) 2004 by Karoly Balogh for Genesi S.a.r.l. + + Heavily based on the Commodore Amiga/m68k RTL by Nils Sjoholm and + Carl Eric Codere + + MorphOS port was done on a free Pegasos II/G4 machine + provided by Genesi S.a.r.l. + + This unit is based on the MorphOS one and is adapted for Gameboy Advance + simply by stripping out all stuff inside funcs and procs. + Copyright (c) 2006 by Francesco Lombardi + + 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. + + **********************************************************************} + +unit Dos; + +interface + +{$MODE objfpc} + +type + SearchRec = Packed Record + AnchorPtr : Pointer; { Pointer to the Anchorpath structure } + Fill: Array[1..15] of Byte; {future use} + {End of replacement for fill} + Attr : BYTE; {attribute of found file} + Time : LongInt; {last modify date of found file} + Size : LongInt; {file size of found file} + Name : String[255]; {name of found file} + End; + +{$I dosh.inc} + +implementation + +{$define HAS_GETMSCOUNT} + +{$I dos.inc} + +{****************************************************************************** + --- Internal routines --- +******************************************************************************} + +function dosLock(const name: String; accessmode: Longint) : LongInt; +begin + result := -1; +end; + +function IsLeapYear(Source : Word) : Boolean; +begin + result := false; +end; + +function dosSetProtection(const name: string; mask:longint): Boolean; +begin + result := false; +end; + +function dosSetFileDate(name: string): Boolean; +begin + result := false; +end; + + +{****************************************************************************** + --- Info / Date / Time --- +******************************************************************************} + +function DosVersion: Word; +begin + result := 0; +end; + +procedure NewList (); +begin +end; + +function CreateExtIO (size: Longint): integer; +begin + result := -1; +end; + +procedure DeleteExtIO (); +begin +end; + +function Createport(name : PChar; pri : longint): integer; +begin + result := -1; +end; + +procedure DeletePort (); +begin +end; + + +function Create_Timer(theUnit : longint) : integer; +begin + result := -1; +end; + +Procedure Delete_Timer(); +begin +end; + +function set_new_time(secs, micro : longint): longint; +begin + result := -1; +end; + +function get_sys_time(): longint; +begin + result := -1; +end; + +procedure GetDate(Var Year, Month, MDay, WDay: Word); +begin +end; + +procedure SetDate(Year, Month, Day: Word); +begin +end; + +procedure GetTime(Var Hour, Minute, Second, Sec100: Word); +begin +end; + +Procedure SetTime(Hour, Minute, Second, Sec100: Word); +begin +end; + +function GetMsCount: int64; +begin + result:=0; +end; + +{****************************************************************************** + --- Exec --- +******************************************************************************} +procedure Exec(const Path: PathStr; const ComLine: ComStr); +begin +end; + + +{****************************************************************************** + --- Disk --- +******************************************************************************} + +Function DiskFree(Drive: Byte): int64; +Begin + result := -1; +end; + + + +Function DiskSize(Drive: Byte): int64; +Begin + result := -1; +end; + + +procedure FindFirst(const Path: PathStr; Attr: Word; Var f: SearchRec); +begin +end; + + +procedure FindNext(Var f: SearchRec); +begin +end; + +procedure FindClose(Var f: SearchRec); +begin +end; + + +{****************************************************************************** + --- File --- +******************************************************************************} + + +function FSearch(path: PathStr; dirlist: String) : PathStr; +begin + result := ''; +end; + + +Procedure getftime (var f; var time : longint); +begin +end; + + +Procedure setftime(var f; time : longint); +Begin +End; + +procedure getfattr(var f; var attr : word); +begin +End; + + +procedure setfattr(var f; attr : word); +begin +end; + + +{****************************************************************************** + --- Environment --- +******************************************************************************} + +function getpathstring: string; +begin + result := ''; +end; + + +function EnvCount: Longint; +begin + result := -1; +end; + + +function EnvStr(Index: LongInt): String; +begin + result := ''; +end; + + + +function GetEnv(envvar : String): String; +begin + result := ''; +end; + + +procedure AddDevice(str : String); +begin +end; + +function MakeDeviceName(str : pchar): string; +begin + result := ''; +end; + +function IsInDeviceList(str : string): boolean; +begin + result := false; +end; + +procedure ReadInDevices; +begin +end; + +begin +// DosError:=0; +// numberofdevices := 0; +// StrOfPaths := ''; +// ReadInDevices; +end.