renamed Jedi-SDL folder.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@810 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 0 insertions, 176 deletions

diff --git a/Game/Code/lib/JEDI-SDLv1.0/SDL/Pas/logger.pas b/Game/Code/lib/JEDI-SDLv1.0/SDL/Pas/logger.pas
deleted file mode 100644
index 88bb1698..00000000
--- a/Game/Code/lib/JEDI-SDLv1.0/SDL/Pas/logger.pas
+++ /dev/null
@@ -1,176 +0,0 @@
-unit logger;

-{

-  $Id: logger.pas,v 1.1 2004/02/05 00:08:20 savage Exp $

-

-}

-{******************************************************************************}

-{                                                                              }

-{                Error Logging Unit                                            }

-{                                                                              }

-{ The initial developer of this Pascal code was :                              }

-{ Dominique Louis <Dominique@SavageSoftware.com.au>                            }

-{                                                                              }

-{ Portions created by Dominique Louis are                                      }

-{ Copyright (C) 2000 - 2001 Dominique Louis.                                   }

-{                                                                              }

-{                                                                              }

-{                                                                              }

-{ Contributor(s)                                                               }

-{ --------------                                                               }

-{                                                                              }

-{                                                                              }

-{ Obtained through:                                                            }

-{ Joint Endeavour of Delphi Innovators ( Project JEDI )                        }

-{                                                                              }

-{ You may retrieve the latest version of this file at the Project              }

-{ JEDI home page, located at http://delphi-jedi.org                            }

-{                                                                              }

-{ The contents of this file are used with permission, subject to               }

-{ the Mozilla Public License Version 1.1 (the "License"); you may              }

-{ not use this file except in compliance with the License. You may             }

-{ obtain a copy of the License at                                              }

-{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }

-{                                                                              }

-{ Software distributed under the License is distributed on an                  }

-{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or               }

-{ implied. See the License for the specific language governing                 }

-{ rights and limitations under the License.                                    }

-{                                                                              }

-{ Description                                                                  }

-{ -----------                                                                  }

-{   Logging functions...                                                       }

-{                                                                              }

-{                                                                              }

-{ Requires                                                                     }

-{ --------                                                                     }

-{   SDL.dll on Windows platforms                                               }

-{   libSDL-1.1.so.0 on Linux platform                                          }

-{                                                                              }

-{ Programming Notes                                                            }

-{ -----------------                                                            }

-{                                                                              }

-{                                                                              }

-{                                                                              }

-{                                                                              }

-{ Revision History                                                             }

-{ ----------------                                                             }

-{               2001 - DL : Initial creation                                   }

-{         25/10/2001 - DRE : Added $M+ directive to allow published            }

-{                                in classes. Added a compile directive         }

-{                                around fmShareExclusive as this does not      }

-{                                exist in Free Pascal                          }

-{                                                                              }

-{******************************************************************************}

-{

-  $Log: logger.pas,v $

-  Revision 1.1  2004/02/05 00:08:20  savage

-  Module 1.0 release

-

-  

-}

-

-{$I jedi-sdl.inc}

-

-{$WEAKPACKAGEUNIT OFF}

-

-interface

-

-uses

-  Classes,

-  SysUtils;

-

-type

-  TLogger = class

-  private

-    FFileHandle : TextFile;

-    FApplicationName : string;

-    FApplicationPath : string;

-  protected

-

-  public

-    constructor Create;

-    destructor Destroy; override;

-    function GetApplicationName: string;

-    function GetApplicationPath: string;

-    procedure LogError( ErrorMessage : string; Location : string );

-    procedure LogWarning( WarningMessage : string; Location : string );

-    procedure LogStatus( StatusMessage : string; Location : string );

-  published

-    property ApplicationName : string read GetApplicationName;

-    property ApplicationPath : string read GetApplicationPath;

-  end;

-

-var

-  Log : TLogger;

-

-implementation

-

-{ TLogger }

-constructor TLogger.Create;

-begin

-  FApplicationName := ExtractFileName( ParamStr(0) );

-  FApplicationPath := ExtractFilePath( ParamStr(0) );

-  AssignFile( FFileHandle, FApplicationPath + ChangeFileExt( FApplicationName, '.log' ) );

-  ReWrite( FFileHandle );

-  (*inherited Create( FApplicationPath + ChangeFileExt( FApplicationName, '.log' ),

-                    fmCreate {$IFNDEF FPC}or fmShareExclusive{$ENDIF} );*)

-end;

-

-destructor TLogger.Destroy;

-begin

-  CloseFile( FFileHandle );

-  inherited;

-end;

-

-function TLogger.GetApplicationName: string;

-begin

-  result := FApplicationName;

-end;

-

-function TLogger.GetApplicationPath: string;

-begin

-  result := FApplicationPath;

-end;

-

-procedure TLogger.LogError(ErrorMessage, Location: string);

-var

-  S : string;

-begin

-  S := '*** ERROR *** : @ ' + TimeToStr(Time) + ' MSG : ' + ErrorMessage + ' IN : ' + Location + #13#10;

-  WriteLn( FFileHandle,  S );

-  Flush( FFileHandle );

-end;

-

-procedure TLogger.LogStatus(StatusMessage, Location: string);

-var

-  S : string;

-begin

-  S := 'STATUS INFO : @ ' + TimeToStr(Time) + ' MSG : ' + StatusMessage + ' IN : ' + Location + #13#10;

-  WriteLn( FFileHandle,  S );

-  Flush( FFileHandle );

-end;

-

-procedure TLogger.LogWarning(WarningMessage, Location: string);

-var

-  S : string;

-begin

-  S := '=== WARNING === : @ ' + TimeToStr(Time) + ' MSG : ' + WarningMessage + ' IN : ' + Location + #13#10;

-  WriteLn( FFileHandle,  S );

-  Flush( FFileHandle );

-end;

-

-initialization

-begin

-  Log := TLogger.Create;

-  Log.LogStatus( 'Starting Application', 'Initialization' );

-end;

-

-finalization

-begin

-  Log.LogStatus( 'Terminating Application', 'Finalization' );

-  Log.Free;

-  Log := nil;

-end;

-

-end.

- 
\ No newline at end of file