From 94cefdb78044e0f9996e3032de34b690de98b708 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 12:34:07 +0000
Subject: - revert to 1777 - Ocean.ini and SVN properties are not reverted

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1854 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/base/UPlatform.pas | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'unicode/src/base/UPlatform.pas')

diff --git a/unicode/src/base/UPlatform.pas b/unicode/src/base/UPlatform.pas
index 6f13481c..e4cb6f0c 100644
--- a/unicode/src/base/UPlatform.pas
+++ b/unicode/src/base/UPlatform.pas
@@ -43,9 +43,9 @@ uses
 
 type
   TDirectoryEntry = record
-    Name:        WideString;
-    IsDirectory: boolean;
-    IsFile:      boolean;
+    Name        : WideString;
+    IsDirectory : boolean;
+    IsFile      : boolean;
   end;
 
   TDirectoryEntryArray = array of TDirectoryEntry;
@@ -54,12 +54,12 @@ type
     function GetExecutionDir(): string;
     procedure Init; virtual;
     function DirectoryFindFiles(Dir, Filter: WideString; ReturnAllSubDirs: boolean): TDirectoryEntryArray; virtual; abstract;
-    function TerminateIfAlreadyRunning(var WndTitle: string): boolean; virtual;
+    function TerminateIfAlreadyRunning(var WndTitle : string): boolean; virtual;
     function FindSongFile(Dir, Mask: WideString): WideString; virtual;
     procedure Halt; virtual;
-    function GetLogPath:        WideString; virtual; abstract;
-    function GetGameSharedPath: WideString; virtual; abstract;
-    function GetGameUserPath:   WideString; virtual; abstract;
+    function GetLogPath        : WideString; virtual; abstract;
+    function GetGameSharedPath : WideString; virtual; abstract;
+    function GetGameUserPath   : WideString; virtual; abstract;
     function CopyFile(const Source, Target: WideString; FailIfExists: boolean): boolean; virtual;
   end;
 
@@ -79,13 +79,13 @@ uses
   ULog;
 
 
-// I modified it to use the Platform_singleton in this location (in the implementation)
+// I have modified it to use the Platform_singleton in this location ( in the implementaiton )
 // so that this variable can NOT be overwritten from anywhere else in the application.
 // the accessor function platform, emulates all previous calls to work the same way.  
 var
-  Platform_singleton: TPlatform;
+  Platform_singleton : TPlatform;
 
-function Platform: TPlatform;
+function Platform : TPlatform;
 begin
   Result := Platform_singleton;
 end;
@@ -117,7 +117,7 @@ end;
 (**
  * Default TerminateIfAlreadyRunning() implementation
  *)
-function TPlatform.TerminateIfAlreadyRunning(var WndTitle: string): boolean;
+function TPlatform.TerminateIfAlreadyRunning(var WndTitle : string): Boolean;
 begin
   Result := false;
 end;
@@ -143,7 +143,7 @@ const
 var
   SourceFile, TargetFile: TFileStream;
   FileCopyBuffer: array [0..COPY_BUFFER_SIZE-1] of byte; // temporary copy-buffer.
-  NumberOfBytes:  integer; // number of bytes read from SourceFile
+  NumberOfBytes: integer; // number of bytes read from SourceFile
 begin
   Result := false;
   SourceFile := nil;
-- 
cgit v1.2.3