started lcl1 package

git-svn-id: trunk@27514 -
2025-04-06 05:38:25 +02:00 · 2010-09-28 18:29:03 +00:00 · 2010-09-28 18:29:03 +00:00 · b839e824d2
commit b839e824d2
parent 945d84525b
15 changed files with 573 additions and 0 deletions
--- a/.gitattributes
+++ b/.gitattributes
@ -4675,6 +4675,7 @@ lcl/interfacebase.pp svneol=native#text/pascal
 lcl/interfaces/LAYOUT.txt svneol=native#text/plain
 lcl/interfaces/carbon/README.txt svneol=native#text/plain
 lcl/interfaces/carbon/agl.pp svneol=native#text/plain
+lcl/interfaces/carbon/alllclintfunits.pas svneol=native#text/plain
 lcl/interfaces/carbon/carbonbars.pp svneol=native#text/pascal
 lcl/interfaces/carbon/carbonbuttons.pp svneol=native#text/pascal
 lcl/interfaces/carbon/carboncalendar.pas svneol=native#text/plain
@ -4812,6 +4813,7 @@ lcl/interfaces/carbon/pascocoa/foundation/NSZone.inc svneol=native#text/plain
 lcl/interfaces/carbon/pascocoa/foundation/foundation.pas svneol=native#text/plain
 lcl/interfaces/cocoa/Makefile svneol=native#text/plain
 lcl/interfaces/cocoa/Makefile.fpc svneol=native#text/plain
+lcl/interfaces/cocoa/alllclintfunits.pas svneol=native#text/plain
 lcl/interfaces/cocoa/cocoagdiobjects.pas svneol=native#text/plain
 lcl/interfaces/cocoa/cocoaint.pas svneol=native#text/plain
 lcl/interfaces/cocoa/cocoaobject.inc svneol=native#text/plain
@ -4830,6 +4832,7 @@ lcl/interfaces/cocoa/cocoawsstdctrls.pp svneol=native#text/plain
 lcl/interfaces/cocoa/interfaces.pas svneol=native#text/plain
 lcl/interfaces/fpgui/Makefile.fpc svneol=native#text/plain
 lcl/interfaces/fpgui/README.txt svneol=native#text/plain
+lcl/interfaces/fpgui/alllclintfunits.pas svneol=native#text/plain
 lcl/interfaces/fpgui/fpguiint.pp svneol=native#text/pascal
 lcl/interfaces/fpgui/fpguilclintf.inc svneol=native#text/plain
 lcl/interfaces/fpgui/fpguilclintfh.inc svneol=native#text/plain
@ -4857,6 +4860,7 @@ lcl/interfaces/fpgui/fpguiwsprivate.pp svneol=native#text/plain
 lcl/interfaces/fpgui/fpguiwsspin.pp svneol=native#text/pascal
 lcl/interfaces/fpgui/fpguiwsstdctrls.pp svneol=native#text/pascal
 lcl/interfaces/fpgui/interfaces.pp svneol=native#text/pascal
+lcl/interfaces/gtk/alllclintfunits.pas svneol=native#text/plain
 lcl/interfaces/gtk/dragicons.inc svneol=native#text/pascal
 lcl/interfaces/gtk/gtk1def.pp svneol=native#text/pascal
 lcl/interfaces/gtk/gtk1devicecontext.inc svneol=native#text/pascal
@ -4930,6 +4934,7 @@ lcl/interfaces/gtk/tests/lclclipboardunit.pas svneol=native#text/plain
 lcl/interfaces/gtk/tnotebook_close_tab.xpm -text svneol=native#image/x-xpixmap
 lcl/interfaces/gtk2/README.txt svneol=native#text/plain
 lcl/interfaces/gtk2/TODOS.txt svneol=native#text/plain
+lcl/interfaces/gtk2/alllclintfunits.pas svneol=native#text/plain
 lcl/interfaces/gtk2/dragicons.inc svneol=native#text/pascal
 lcl/interfaces/gtk2/gtk2callback.inc svneol=native#text/plan
 lcl/interfaces/gtk2/gtk2cellrenderer.pas svneol=native#text/plain
@ -4990,12 +4995,17 @@ lcl/interfaces/gtk2/issues.xml svneol=native#text/xml
 lcl/interfaces/gtk2/tests/checkbuttononfixed.lpi svneol=native#text/plain
 lcl/interfaces/gtk2/tests/checkbuttononfixed.lpr svneol=native#text/plain
 lcl/interfaces/gtk2/tests/stutter.pas svneol=native#text/plain
+lcl/interfaces/lcl1.lpk svneol=native#text/plain
+lcl/interfaces/lcl1.pas svneol=native#text/plain
+lcl/interfaces/lclintfcompile.pas svneol=native#text/plain
 lcl/interfaces/nogui/Makefile svneol=native#text/plain
 lcl/interfaces/nogui/Makefile.fpc svneol=native#text/plain
+lcl/interfaces/nogui/alllclintfunits.pas svneol=native#text/plain
 lcl/interfaces/nogui/interfaces.pp svneol=native#text/plain
 lcl/interfaces/nogui/noguiint.pp svneol=native#text/plain
 lcl/interfaces/nogui/noguiwsfactory.pas svneol=native#text/pascal
 lcl/interfaces/qt/README.txt svneol=native#text/plain
+lcl/interfaces/qt/alllclintfunits.pas svneol=native#text/plain
 lcl/interfaces/qt/interfaces.pp svneol=native#text/pascal
 lcl/interfaces/qt/issues.xml svneol=native#text/plain
 lcl/interfaces/qt/qt4.pas svneol=native#text/plain
@ -5033,6 +5043,7 @@ lcl/interfaces/qt/qtwsspin.pp svneol=native#text/pascal
 lcl/interfaces/qt/qtwsstdctrls.pp svneol=native#text/pascal
 lcl/interfaces/qt/qtx11.inc svneol=native#text/plain
 lcl/interfaces/win32/README.txt svneol=native#text/plain
+lcl/interfaces/win32/alllclintfunits.pas svneol=native#text/plain
 lcl/interfaces/win32/interfaces.pp svneol=native#text/pascal
 lcl/interfaces/win32/issues.xml svneol=native#text/xml
 lcl/interfaces/win32/win32callback.inc svneol=native#text/pascal
@ -5228,6 +5239,8 @@ lcl/themes.pas svneol=native#text/pascal
 lcl/tmschema.pas svneol=native#text/pascal
 lcl/toolwin.pp svneol=native#text/pascal
 lcl/translations.pas svneol=native#text/pascal
+lcl/update_allunits.lpi svneol=native#text/plain
+lcl/update_allunits.lpr svneol=native#text/plain
 lcl/utf8process.pp svneol=native#text/pascal
 lcl/utrace.pp svneol=native#text/pascal
 lcl/widgetset/README.txt svneol=native#text/plain
--- a/lcl/interfaces/carbon/alllclintfunits.pas
+++ b/lcl/interfaces/carbon/alllclintfunits.pas
@ -0,0 +1,49 @@
+{ This unit was automatically created by update_allunits }
+unit AllLCLIntfUnits;
+interface
+uses
+  carbonwsarrow,
+  carbonprivate,
+  carbonbars,
+  carbongdiobjects,
+  carbondebug,
+  carbonwsmenus,
+  carbonwsbuttons,
+  agl,
+  carbonwschecklst,
+  carboncalendarview,
+  carboncalendar,
+  carbondbgconsts,
+  carbonedits,
+  carbonbuttons,
+  carbonstrings,
+  carbonwspairsplitter,
+  glgrab,
+  interfaces,
+  carbonwsdialogs,
+  carbonclipboard,
+  carbonwscontrols,
+  carbonwsfactory,
+  carbonutils,
+  carbondef,
+  opengl,
+  carboncaret,
+  carbonwscomctrls,
+  carbonwsstdctrls,
+  carbonwsextctrls,
+  carbonwsforms,
+  carbonproc,
+  carbonwsextdlgs,
+  carbontabs,
+  carbonlistviews,
+  carbonint,
+  carbonwsspin,
+  carbonthemes,
+  carbonmenus,
+  carbonwsgrids,
+  carbonwsfilectrl,
+  carbonwsimglist,
+  carboncanvas,
+  carbonwscalendar;
+implementation
+end.
--- a/lcl/interfaces/cocoa/alllclintfunits.pas
+++ b/lcl/interfaces/cocoa/alllclintfunits.pas
@ -0,0 +1,18 @@
+{ This unit was automatically created by update_allunits }
+unit AllLCLIntfUnits;
+interface
+uses
+  cocoatextlayout,
+  cocoawsfactory,
+  cocoawsmenus,
+  cocoaprivate,
+  cocoawsstdctrls,
+  interfaces,
+  cocoautils,
+  cocoawsextctrls,
+  cocoagdiobjects,
+  cocoawsforms,
+  cocoaint,
+  cocoawscommon;
+implementation
+end.
--- a/lcl/interfaces/fpgui/alllclintfunits.pas
+++ b/lcl/interfaces/fpgui/alllclintfunits.pas
@ -0,0 +1,28 @@
+{ This unit was automatically created by update_allunits }
+unit AllLCLIntfUnits;
+interface
+uses
+  fpguiwsdialogs,
+  fpguiwscomctrls,
+  fpguiwspairsplitter,
+  fpguiwsstdctrls,
+  interfaces,
+  fpguiwsextdlgs,
+  fpguiwscontrols,
+  fpguiwsforms,
+  fpguiwsbuttons,
+  fpguiobjects,
+  fpguiwschecklst,
+  fpguiwsspin,
+  fpguiwsfactory,
+  fpguiproc,
+  fpguiwsextctrls,
+  fpguiwsprivate,
+  fpguiint,
+  fpguiwsgrids,
+  fpguiwsimglist,
+  fpguiwsarrow,
+  fpguiwsmenus,
+  fpguiwscalendar;
+implementation
+end.
--- a/lcl/interfaces/gtk/alllclintfunits.pas
+++ b/lcl/interfaces/gtk/alllclintfunits.pas
@ -0,0 +1,38 @@
+{ This unit was automatically created by update_allunits }
+unit AllLCLIntfUnits;
+interface
+uses
+  gtkwscontrols,
+  gtkwspairsplitter,
+  gtkwschecklst,
+  gtkwsprivate,
+  gtkwsextctrls,
+  gtkwsgrids,
+  gtkint,
+  gtkwinapiwindow,
+  interfaces,
+  gtkwsstdctrls,
+  gtkwsfactory,
+  gtk1wsprivate,
+  gtkwsmenus,
+  gtkmsgqueue,
+  gtkwsextdlgs,
+  gtkglobals,
+  gtk1int,
+  gtkwsbuttons,
+  gtkwsdialogs,
+  gtkwsarrow,
+  gtkfontcache,
+  gtkwsimglist,
+  gtkthemes,
+  gtkwsspin,
+  gtk1def,
+  gtkproc,
+  gtkwscomctrls,
+  gtkwscalendar,
+  gtkdef,
+  gtkdebug,
+  gtkextra,
+  gtkwsforms;
+implementation
+end.
--- a/lcl/interfaces/gtk2/alllclintfunits.pas
+++ b/lcl/interfaces/gtk2/alllclintfunits.pas
@ -0,0 +1,37 @@
+{ This unit was automatically created by update_allunits }
+unit AllLCLIntfUnits;
+interface
+uses
+  gtk2cellrenderer,
+  gtk2debug,
+  gtk2def,
+  gtk2extra,
+  gtk2fontcache,
+  gtk2globals,
+  gtk2int,
+  gtk2listviewtreemodel,
+  gtk2msgqueue,
+  gtk2proc,
+  gtk2themes,
+  gtk2winapiwindow,
+  gtk2wsarrow,
+  gtk2wsbuttons,
+  gtk2wscalendar,
+  gtk2wschecklst,
+  gtk2wscomctrls,
+  gtk2wscontrols,
+  gtk2wsdialogs,
+  gtk2wsextctrls,
+  gtk2wsextdlgs,
+  gtk2wsfactory,
+  gtk2wsforms,
+  gtk2wsgrids,
+  gtk2wsimglist,
+  gtk2wsmenus,
+  gtk2wspairsplitter,
+  gtk2wsprivate,
+  gtk2wsspin,
+  gtk2wsstdctrls,
+  interfaces;
+implementation
+end.
--- a/lcl/interfaces/lcl1.lpk
+++ b/lcl/interfaces/lcl1.lpk
@ -0,0 +1,111 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="LCL1"/>
+    <AddToProjectUsesSection Value="False"/>
+    <Author Value="Lazarus"/>
+    <CompilerOptions>
+      <Version Value="9"/>
+      <SearchPaths>
+        <IncludeFiles Value="$(LCLWidgetType1)"/>
+        <OtherUnitFiles Value="$(LCLWidgetType1)"/>
+        <UnitOutputDirectory Value="../units/$(TargetCPU)-$(TargetOS)/$(LCLWidgetType1)"/>
+      </SearchPaths>
+      <Conditionals Value="// LCLWidgetType1
+if undefined(LCLWidgetType) then begin
+  if (TargetOS='win32') or (TargetOS='win64') then
+    LCLWidgetType1 := 'win32'
+  else if TargetOS='wince' then
+    LCLWidgetType1 := 'wince'
+  else if TargetOS='darwin' then
+    LCLWidgetType1 := 'carbon'
+  else
+    LCLWidgetType1 := 'gtk2';
+end;
+
+// widget set specific options
+base := LCLWidgetType1+'/';
+if LCLWidgetType1='gtk' then
+  CustomOptions := '-dgtk1'
+else if LCLWidgetType1='carbon' then begin
+  UnitPath := base+'objc;'
+             +base+'pascocoa/appkit;'
+             +base+'pascocoa/foundation';
+  IncPath := UnitPath;
+end else if LCLWidgetType1='fpgui' then begin
+  if undefined(fpGUIPlatform) then begin
+    if SrcOS='win32' then
+      fpGUIPlatform := 'gdi'
+    else
+      fpGUIPlatform := 'x11';
+  end;
+  UnitPath := base+'gui;'
+             +base+'corelib;'
+             +base+'corelib/'+fpGUIPlatform;
+  IncPath := UnitPath;
+end;"/>
+      <BuildMacros>
+        <Count Value="2"/>
+        <Item1>
+          <Identifier Value="LCLWidgetType1"/>
+          <Values Count="9">
+            <Item1 Value="gtk"/>
+            <Item2 Value="gtk2"/>
+            <Item3 Value="qt"/>
+            <Item4 Value="win32"/>
+            <Item5 Value="wince"/>
+            <Item6 Value="fpgui"/>
+            <Item7 Value="nogui"/>
+            <Item8 Value="carbon"/>
+            <Item9 Value="cocoa"/>
+          </Values>
+          <ValueDescriptions Count="9"/>
+        </Item1>
+        <Item2>
+          <Identifier Value="fpGUIPlatform"/>
+          <Values Count="2">
+            <Item1 Value="x11"/>
+            <Item2 Value="gdi"/>
+          </Values>
+          <ValueDescriptions Count="2"/>
+        </Item2>
+      </BuildMacros>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="Lazarus Component Library. Visual components with great Delphi VCL compatibility, but running natively on many platforms.
+"/>
+    <License Value="modified LGPL-2
+"/>
+    <Version Minor="9" Release="29"/>
+    <Files Count="1">
+      <Item1>
+        <Filename Value="lclintfcompile.pas"/>
+        <UnitName Value="LCLIntfCompile"/>
+      </Item1>
+    </Files>
+    <i18n>
+      <EnableI18N Value="True"/>
+      <OutDir Value="../languages"/>
+    </i18n>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="LCLBase"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <CustomOptions Value="-dLCL -d$(LCLWidgetType1)
+"/>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
--- a/lcl/interfaces/lcl1.pas
+++ b/lcl/interfaces/lcl1.pas
@ -0,0 +1,20 @@
+{ This file was automatically created by Lazarus. Do not edit!
+  This source is only used to compile and install the package.
+ }
+
+unit LCL1; 
+
+interface
+
+uses
+  LCLIntfCompile, LazarusPackageIntf;
+
+implementation
+
+procedure Register; 
+begin
+end; 
+
+initialization
+  RegisterPackage('LCL1', @Register); 
+end.
--- a/lcl/interfaces/lclintfcompile.pas
+++ b/lcl/interfaces/lclintfcompile.pas
@ -0,0 +1,13 @@
+unit LCLIntfCompile;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  AllLCLIntfUnits;
+
+implementation
+
+end.
+
--- a/lcl/interfaces/nogui/alllclintfunits.pas
+++ b/lcl/interfaces/nogui/alllclintfunits.pas
@ -0,0 +1,9 @@
+{ This unit was automatically created by update_allunits }
+unit AllLCLIntfUnits;
+interface
+uses
+  interfaces,
+  noguiint,
+  noguiwsfactory;
+implementation
+end.
--- a/lcl/interfaces/qt/alllclintfunits.pas
+++ b/lcl/interfaces/qt/alllclintfunits.pas
@ -0,0 +1,34 @@
+{ This unit was automatically created by update_allunits }
+unit AllLCLIntfUnits;
+interface
+uses
+  qtproc,
+  qtwscontrols,
+  qtwsgrids,
+  qtprivate,
+  qtwsdesigner,
+  qtwsspin,
+  qtwidgets,
+  qtcaret,
+  qtthemes,
+  qtwsextdlgs,
+  qt4,
+  interfaces,
+  qtwsforms,
+  qtwsbuttons,
+  qtwsextctrls,
+  qtint,
+  qtwspairsplitter,
+  qt45,
+  qtwsfactory,
+  qtwscomctrls,
+  qtwsimglist,
+  qtwsmenus,
+  qtwscalendar,
+  qtwsdialogs,
+  qtwsarrow,
+  qtobjects,
+  qtwschecklst,
+  qtwsstdctrls;
+implementation
+end.
--- a/lcl/interfaces/win32/alllclintfunits.pas
+++ b/lcl/interfaces/win32/alllclintfunits.pas
@ -0,0 +1,38 @@
+{ This unit was automatically created by update_allunits }
+unit AllLCLIntfUnits;
+interface
+uses
+  win32wsdialogs,
+  win32extra,
+  win32wsmaskedit,
+  win32wsextdlgs,
+  win32wsarrow,
+  win32wsfilectrl,
+  win32wschecklst,
+  win32wsstdctrls,
+  win32wsdbgrids,
+  win32wscalendar,
+  win32def,
+  win32wsdbctrls,
+  win32wstoolwin,
+  win32uxtheme,
+  interfaces,
+  win32proc,
+  win32wspairsplitter,
+  win32themes,
+  win32wsmenus,
+  win32debug,
+  win32wseditbtn,
+  win32wscontrols,
+  win32wsfactory,
+  win32wsextctrls,
+  win32wscomctrls,
+  win32wsgrids,
+  win32wsimglist,
+  win32int,
+  win32wsactnlist,
+  win32wsspin,
+  win32wsbuttons,
+  win32wsforms;
+implementation
+end.
--- a/lcl/lclbase.lpk
+++ b/lcl/lclbase.lpk
@ -7,6 +7,7 @@
    <CompilerOptions>
      <Version Value="9"/>
      <SearchPaths>
+        <IncludeFiles Value="include"/>
        <OtherUnitFiles Value="forms;widgetset"/>
        <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
      </SearchPaths>
--- a/lcl/update_allunits.lpi
+++ b/lcl/update_allunits.lpi
@ -0,0 +1,69 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="9"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+      </Flags>
+      <SessionStorage Value="InIDEConfig"/>
+      <MainUnit Value="0"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <VersionInfo>
+      <StringTable ProductVersion=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <Units Count="1">
+      <Unit0>
+        <Filename Value="update_allunits.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="update_allunits"/>
+      </Unit0>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="9"/>
+    <Target>
+      <Filename Value="update_allunits"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Other>
+      <CompilerMessages>
+        <UseMsgFile Value="True"/>
+      </CompilerMessages>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
--- a/lcl/update_allunits.lpr
+++ b/lcl/update_allunits.lpr
@ -0,0 +1,95 @@
+{ Utility to update every alllclintfunits.pas unit of every LCL widget set.
+}
+program update_allunits;
+
+{$mode objfpc}{$H+}
+
+uses
+  // Note: do not use any LCL unit!
+  Classes, SysUtils;
+
+procedure FindUnits(SrcDir: string; Units: TStrings);
+var
+  FileInfo: TSearchRec;
+  Ext: String;
+  CurUnitName: String;
+begin
+  if FindFirst(SrcDir+'*.*',faAnyFile,FileInfo)=0 then begin
+    repeat
+      // check if special file
+      if (FileInfo.Name='.') or (FileInfo.Name='..') or (FileInfo.Name='') then
+        continue;
+      if (FileInfo.Attr and faDirectory)=0 then begin
+        Ext:=LowerCase(ExtractFileExt(FileInfo.Name));
+        if (Ext='.pp') or (Ext='.pas') or (Ext='.p') then
+        begin
+          CurUnitName:=copy(FileInfo.Name,1,length(FileInfo.Name)-length(Ext));
+          if CompareText(CurUnitName,'AllLCLIntfUnits')=0 then continue;
+          Units.Add(CurUnitName);
+        end;
+      end;
+    until FindNext(FileInfo)<>0;
+  end;
+  FindClose(FileInfo);
+end;
+
+procedure Run(WidgetSet, UnitPaths: string);
+var
+  Units: TStringList;
+  Paths: TStringList;
+  BaseDir, Path: String;
+  i: Integer;
+  Source: TStringList;
+  Filename: String;
+  s: string;
+begin
+  Units:=TStringList.Create;
+  Paths:=TStringList.Create;
+  Source:=TStringList.Create;
+  try
+    BaseDir:='interfaces/'+WidgetSet+'/';
+    FindUnits(BaseDir,Units);
+    Paths.Delimiter:=';';
+    Paths.StrictDelimiter:=true;
+    Paths.DelimitedText:=UnitPaths;
+    for i:=0 to Paths.Count-1 do begin
+      Path:=Trim(Paths[i]);
+      if Path='' then continue;
+      FindUnits(BaseDir+Path,Units);
+    end;
+    Source.Add('{ This unit was automatically created by update_allunits }');
+    Source.Add('unit AllLCLIntfUnits;');
+    Source.Add('interface');
+    Source.Add('uses');
+    for i:=0 to Units.Count-1 do begin
+      s:='  '+Units[i];
+      if i=Units.Count-1 then
+        s:=s+';'
+      else
+        s:=s+',';
+      Source.Add(s);
+    end;
+    Source.Add('implementation');
+    Source.Add('end.');
+    Filename:=BaseDir+'alllclintfunits.pas';
+    writeln('writing ',Filename,' ...');
+    Source.SaveToFile(Filename);
+  finally
+    Source.Free;
+    Paths.Free;
+    Units.Free;
+  end;
+end;
+
+begin
+  Run('gtk','');
+  Run('gtk2','');
+  Run('qt','');
+  Run('win32','');
+  Run('nogui','');
+  Run('cocoa','');
+  Run('carbon','objc;pascocoa/appkit;pascocoa/foundation');
+  // fpgui needs manual additions for corelib/x11 and corelib/gdi
+  Run('fpgui','gui;corelib');
+end.
+