Преглед изворни кода

Update fpmake, add doted units for Unicode Free Vision.

Margers пре 1 месец
родитељ
комит
aeff4f55f4

+ 103 - 0
packages/fv/fpmake.pp

@@ -72,12 +72,25 @@ begin
     T:=P.Targets.AddUnit('asciitab.pas');
       with T.Dependencies do
         begin
+          AddInclude('asciitab.inc');
           AddInclude('platform.inc');
+          AddUnit('fvcommon');
           AddUnit('fvconsts');
           AddUnit('drivers');
           AddUnit('views');
           AddUnit('app');
         end;
+    T:=P.Targets.AddUnit('uasciitab.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('asciitab.inc');
+          AddInclude('platform.inc');
+          AddUnit('ufvcommon');
+          AddUnit('fvconsts');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('uapp');
+        end;
     T:=P.Targets.AddUnit('buildfv.pas');
     T.Install := false; // Build-unit
       with T.Dependencies do
@@ -108,21 +121,49 @@ begin
     T:=P.Targets.AddUnit('colorsel.pas');
       with T.Dependencies do
         begin
+          AddInclude('colorsel.inc');
+          AddInclude('platform.inc');
           AddUnit('drivers');
           AddUnit('views');
           AddUnit('dialogs');
           AddUnit('fvconsts');
+          AddUnit('fvcommon');
+        end;
+    T:=P.Targets.AddUnit('ucolorsel.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('colorsel.inc');
+          AddInclude('platform.inc');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('udialogs');
+          AddUnit('fvconsts');
+          AddUnit('ufvcommon');
         end;
     T:=P.Targets.AddUnit('colortxt.pas');
       with T.Dependencies do
         begin
+          AddInclude('colortxt.inc');
           AddInclude('platform.inc');
+          AddUnit('fvcommon');
           AddUnit('drivers');
           AddUnit('views');
           AddUnit('dialogs');
           AddUnit('app');
           AddUnit('fvconsts');
         end;
+    T:=P.Targets.AddUnit('ucolortxt.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('colortxt.inc');
+          AddInclude('platform.inc');
+          AddUnit('ufvcommon');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('udialogs');
+          AddUnit('uapp');
+          AddUnit('fvconsts');
+        end;
     T:=P.Targets.AddUnit('dialogs.pas');
       with T.Dependencies do
         begin
@@ -172,6 +213,7 @@ begin
     T:=P.Targets.AddUnit('editors.pas');
       with T.Dependencies do
         begin
+          AddInclude('editors.inc');
           AddInclude('platform.inc');
           AddUnit('drivers');
           AddUnit('views');
@@ -183,6 +225,21 @@ begin
           AddUnit('msgbox');
         end;
     T.ResourceStrings := True;
+    T:=P.Targets.AddUnit('ueditors.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('editors.inc');
+          AddInclude('platform.inc');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('udialogs');
+          AddUnit('ufvcommon');
+          AddUnit('fvconsts');
+          AddUnit('uapp');
+          AddUnit('ustddlg');
+          AddUnit('umsgbox');
+        end;
+    T.ResourceStrings := True;
     T:=P.Targets.AddUnit('fvclip.pas',AllUnixOSes);
       with T.Dependencies do
         begin
@@ -219,12 +276,26 @@ begin
     T:=P.Targets.AddUnit('gadgets.pas');
       with T.Dependencies do
         begin
+          AddInclude('gadgets.inc');
           AddInclude('platform.inc');
           AddUnit('fvconsts');
           AddUnit('time');
           AddUnit('drivers');
           AddUnit('views');
           AddUnit('app');
+          AddUnit('fvcommon');
+        end;
+    T:=P.Targets.AddUnit('ugadgets.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('gadgets.inc');
+          AddInclude('platform.inc');
+          AddUnit('fvconsts');
+          AddUnit('time');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('uapp');
+          AddUnit('ufvcommon');
         end;
     T:=P.Targets.AddUnit('histlist.pas');
       with T.Dependencies do
@@ -331,6 +402,7 @@ begin
     T:=P.Targets.AddUnit('statuses.pas');
       with T.Dependencies do
         begin
+          AddInclude('statuses.inc');
           AddInclude('platform.inc');
           AddUnit('fvcommon');
           AddUnit('fvconsts');
@@ -340,10 +412,25 @@ begin
           AddUnit('msgbox');
           AddUnit('app');
         end;
+    T:=P.Targets.AddUnit('ustatuses.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('statuses.inc');
+          AddInclude('platform.inc');
+          AddUnit('ufvcommon');
+          AddUnit('fvconsts');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('udialogs');
+          AddUnit('umsgbox');
+          AddUnit('uapp');
+        end;
     T:=P.Targets.AddUnit('stddlg.pas');
       with T.Dependencies do
         begin
+          AddInclude('stddlg.inc');
           AddInclude('platform.inc');
+          AddUnit('fvcommon');
           AddUnit('fvconsts');
           AddUnit('drivers');
           AddUnit('views');
@@ -354,6 +441,22 @@ begin
           AddUnit('msgbox');
         end;
     T.ResourceStrings := True;
+    T:=P.Targets.AddUnit('ustddlg.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('stddlg.inc');
+          AddInclude('platform.inc');
+          AddUnit('ufvcommon');
+          AddUnit('fvconsts');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('udialogs');
+          AddUnit('uvalidate');
+          AddUnit('uapp');
+          AddUnit('uhistlist');
+          AddUnit('umsgbox');
+        end;
+    T.ResourceStrings := True;
     T:=P.Targets.AddUnit('sysmsg.pas');
       with T.Dependencies do
         begin

+ 3 - 0
packages/fv/namespaced/FreeVision.Uasciitab.pas

@@ -0,0 +1,3 @@
+unit FreeVision.Uasciitab;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i uasciitab.pas}

+ 3 - 0
packages/fv/namespaced/FreeVision.Ucolorsel.pas

@@ -0,0 +1,3 @@
+unit FreeVision.Ucolorsel;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ucolorsel.pas}

+ 3 - 0
packages/fv/namespaced/FreeVision.Ucolortxt.pas

@@ -0,0 +1,3 @@
+unit FreeVision.Ucolortxt;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ucolortxt.pas}

+ 3 - 0
packages/fv/namespaced/FreeVision.Ueditors.pas

@@ -0,0 +1,3 @@
+unit FreeVision.Ueditors;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ueditors.pas}

+ 3 - 0
packages/fv/namespaced/FreeVision.Ugadgets.pas

@@ -0,0 +1,3 @@
+unit FreeVision.Ugadgets;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ugadgets.pas}

+ 3 - 0
packages/fv/namespaced/FreeVision.Ustatuses.pas

@@ -0,0 +1,3 @@
+unit FreeVision.Ustatuses;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ustatuses.pas}

+ 3 - 0
packages/fv/namespaced/FreeVision.Ustddlg.pas

@@ -0,0 +1,3 @@
+unit FreeVision.Ustddlg;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ustddlg.pas}

+ 7 - 0
packages/fv/namespaces.lst

@@ -3,6 +3,7 @@ src/msgbox.pas=namespaced/FreeVision.Msgbox.pas
 {i+:src/}
 src/timeddlg.pas=namespaced/FreeVision.Timeddlg.pas
 src/colorsel.pas=namespaced/FreeVision.Colorsel.pas
+src/ucolorsel.pas=namespaced/FreeVision.Ucolorsel.pas
 src/uhistlist.pas=namespaced/FreeVision.Uhistlist.pas
 src/fvconsts.pas=namespaced/FreeVision.Fvconsts.pas
 src/utabs.pas=namespaced/FreeVision.Utabs.pas
@@ -31,12 +32,18 @@ src/uapp.pas=namespaced/FreeVision.Uapp.pas
 src/menus.pas=namespaced/FreeVision.Menus.pas
 src/sysmsg.pas=namespaced/FreeVision.Sysmsg.pas
 src/asciitab.pas=namespaced/FreeVision.Asciitab.pas
+src/uasciitab.pas=namespaced/FreeVision.Uasciitab.pas
 src/stddlg.pas=namespaced/FreeVision.Stddlg.pas
+src/ustddlg.pas=namespaced/FreeVision.Ustddlg.pas
 src/memory.pas=namespaced/FreeVision.Memory.pas
 src/colortxt.pas=namespaced/FreeVision.Colortxt.pas
+src/ucolortxt.pas=namespaced/FreeVision.Ucolortxt.pas
 src/statuses.pas=namespaced/FreeVision.Statuses.pas
+src/ustatuses.pas=namespaced/FreeVision.Ustatuses.pas
 src/editors.pas=namespaced/FreeVision.Editors.pas
+src/ueditors.pas=namespaced/FreeVision.Ueditors.pas
 src/time.pas=namespaced/FreeVision.Time.pas
 src/gadgets.pas=namespaced/FreeVision.Gadgets.pas
+src/ugadgets.pas=namespaced/FreeVision.Ugadgets.pas
 src/fvclip.pas=namespaced/FreeVision.Fvclip.pas
 src/ufvclip.pas=namespaced/FreeVision.Ufvclip.pas