* remove the use of unixutils and deprecated functions in it.

git-svn-id: trunk@21331 -

packages/xforms/src/fd2pascal.pp

@@ -23,7 +23,7 @@ Program fd2pascal;
 uses
   baseunix,
   Unix,
-  unixutil;
+  sysutils;
 
 Const RevString = '$Revision: 1.5 $';
   NrOptions = 4;
@@ -155,17 +155,13 @@ Var
   Utilities Code
   ------------------------------------------------------------------------ }
 
-
-Function IntTostr (s : Longint) : String;
-
-var temp : String;
-
+Function BaseName(const s:ansistring;suf:ansistring):ansistring;
 begin
-  str(s,temp);
-  IntToStr:=Temp;
+  BaseName:=extractfilename(s);
+  if '.'+suf=extractfileext(s) then
+    BaseName:=changefileext(s,'');  
 end;
 
-
 Procedure EmitError (Const s : String);
 
 begin