Now there is a Jamfile for compiling

----------------------------------------------------------------------

bepascal/source/tools/codegen/pas/codegen.pp

@@ -0,0 +1,54 @@
+{   BePascal - A pascal wrapper around the BeOS API                             
+    Copyright (C) 2002 Olivier Coursiere                                        
+                                                                                
+    This library is free software; you can redistribute it and/or               
+    modify it under the terms of the GNU Library General Public                 
+    License as published by the Free Software Foundation; either                
+    version 2 of the License, or (at your option) any later version.            
+                                                                                
+    This library 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.  See the GNU           
+    Library General Public License for more details.                            
+                                                                                
+    You should have received a copy of the GNU Library General Public           
+    License along with this library; if not, write to the Free                  
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA   
+}   
+program codegen;
+
+{$H+} // use AnsiStrings 
+
+uses
+  dom, xmlread, apireader, typmap, codewrite, SysUtils;
+
+var
+  aDoc : TXMLDocument;
+  HooksDoc : TXMLDocument;
+  Classes, Hooks : TDocument;
+  SrcGen : TSourceGen;
+begin
+  if ParamCount > 0 then
+  begin
+    ReadXMLFile(aDoc, Paramstr(1));
+    ReadXMLFile(HooksDoc, 'hooks.xml');
+    Classes := TDocument.Create(aDoc);
+    try
+      Hooks := TDocument.Create(HooksDoc);
+      try
+        SrcGen := TSourceGen.Create(Classes, Hooks, StringReplace(Paramstr(1), '.xml', '', []));
+        try
+          SrcGen.Gen;
+          WriteLn('After gen');
+        finally
+          SrcGen.Free;
+        end;
+      finally
+        Hooks.Free;
+      end;
+    finally
+      Classes.Free;
+    end;
+  end;
+
+end.