|
@@ -47,6 +47,7 @@ unit iso7185;
|
|
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
|
|
|
|
+{$IFDEF UNIX}
|
|
|
function getTempDir: string;
|
|
function getTempDir: string;
|
|
|
var
|
|
var
|
|
|
key: string;
|
|
key: string;
|
|
@@ -54,13 +55,8 @@ unit iso7185;
|
|
|
i_env, i_key, i_value: integer;
|
|
i_env, i_key, i_value: integer;
|
|
|
pd : char; // Pathdelim not available ?
|
|
pd : char; // Pathdelim not available ?
|
|
|
begin
|
|
begin
|
|
|
- {$IFDEF HASUNIX}
|
|
|
|
|
value := '/tmp/'; (** default for UNIX **)
|
|
value := '/tmp/'; (** default for UNIX **)
|
|
|
pd:='/';
|
|
pd:='/';
|
|
|
- {$ELSE}
|
|
|
|
|
- value := '';
|
|
|
|
|
- pd:='\';
|
|
|
|
|
- {$ENDIF}
|
|
|
|
|
while (envp <> NIL) and assigned(envp^) do
|
|
while (envp <> NIL) and assigned(envp^) do
|
|
|
begin
|
|
begin
|
|
|
i_env := 0;
|
|
i_env := 0;
|
|
@@ -91,7 +87,12 @@ unit iso7185;
|
|
|
value:=value+pd;
|
|
value:=value+pd;
|
|
|
getTempDir := value;
|
|
getTempDir := value;
|
|
|
end;
|
|
end;
|
|
|
-
|
|
|
|
|
|
|
+{$else}
|
|
|
|
|
+ function getTempDir: string;
|
|
|
|
|
+ begin
|
|
|
|
|
+ getTempDir:='';
|
|
|
|
|
+ end;
|
|
|
|
|
+{$ENDIF}
|
|
|
|
|
|
|
|
{$i-}
|
|
{$i-}
|
|
|
procedure DoAssign(var t : Text);
|
|
procedure DoAssign(var t : Text);
|
michael