diff --git a/2.02g/Changes.txt b/2.02g/Changes.txt index 70697ba..e36bef8 100644 --- a/2.02g/Changes.txt +++ b/2.02g/Changes.txt @@ -1 +1,4 @@ -+ Delphi2005 Project \ No newline at end of file ++ Delphi2005 Project +B fixed remainder not on 00:00:00 when finished ++ Extra performance in Xform ++ 32-bits renderer diff --git a/2.02g/Project/delphi2005/Apophysis202.bdsproj b/2.02g/Project/delphi2005/Apophysis202.bdsproj index 622a973..a4a230b 100644 --- a/2.02g/Project/delphi2005/Apophysis202.bdsproj +++ b/2.02g/Project/delphi2005/Apophysis202.bdsproj @@ -119,7 +119,7 @@ ..\..\out\dcu - ..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005 + ..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005 vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;dss;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;dclOffice2k;FlatStyle_D6;S303_R60;RzLPDB60;RzLPND60;vclshlctrls;B302vr60;VirtualTreesD6;o403_r60;ibxpress;CSP20I60;Rz30Ctls60;Rz30DBCtls60;indy;Indy60 X:\Code\Delphi\Apophysis\Apolibstuff9\ScripterStudio\ @@ -162,7 +162,7 @@ Apophysis 2.02 2.0.2.0 - Copyright © 2001-2004 Mark Townsend + Copyright © 2001-2004 Mark Townsend Apophysis.exe diff --git a/2.02g/Project/delphi2005/Apophysis202.bdsproj.local b/2.02g/Project/delphi2005/Apophysis202.bdsproj.local index b3811b7..b569320 100644 --- a/2.02g/Project/delphi2005/Apophysis202.bdsproj.local +++ b/2.02g/Project/delphi2005/Apophysis202.bdsproj.local @@ -1,2 +1,9 @@  - + + + 2005-01-28 21:27:29.289.pas,X:\Code\Delphi\Apophysis\2.02g\Source\cmapdata.pas= + 2005-01-29 10:15:34.468.pas,X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas=X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas + 2005-01-29 10:29:11.421.pas,X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Unit1.pas=X:\Code\Delphi\Apophysis\2.02g\Source\ImageColoring.pas + 2005-01-29 10:29:11.421.dfm,X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Unit1.dfm=X:\Code\Delphi\Apophysis\2.02g\Source\ImageColoring.dfm + + diff --git a/2.02g/Project/delphi2005/Apophysis202.cfg b/2.02g/Project/delphi2005/Apophysis202.cfg index 8356919..13c2d1f 100644 --- a/2.02g/Project/delphi2005/Apophysis202.cfg +++ b/2.02g/Project/delphi2005/Apophysis202.cfg @@ -35,10 +35,10 @@ -N"..\..\out\dcu" -LE"C:\Documents and Settings\Ronald Hordijk\Mijn documenten\Borland Studio Projects\Bpl" -LN"C:\Documents and Settings\Ronald Hordijk\Mijn documenten\Borland Studio Projects\Bpl" --U"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005" --O"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005" --I"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005" --R"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005" +-U"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005" +-O"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005" +-I"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005" +-R"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005" -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST diff --git a/2.02g/Project/delphi2005/Apophysis202.dpr b/2.02g/Project/delphi2005/Apophysis202.dpr index eca819f..d5c6219 100644 --- a/2.02g/Project/delphi2005/Apophysis202.dpr +++ b/2.02g/Project/delphi2005/Apophysis202.dpr @@ -17,8 +17,8 @@ } program Apophysis202; -{%File '..\..\HtmlHlp.inc'} -{%File 'readme.txt'} +{%File '..\..\readme.txt'} +{%File '..\..\Changes.txt'} uses Forms, @@ -30,8 +30,6 @@ uses Regstry in '..\..\Source\Regstry.pas', MyTypes in '..\..\Source\MyTypes.pas', Fullscreen in '..\..\Source\Fullscreen.pas' {FullscreenForm}, - Render in '..\..\Source\Render.pas', - RenderThread in '..\..\Source\RenderThread.pas', FormRender in '..\..\Source\FormRender.pas' {RenderForm}, Mutate in '..\..\Source\Mutate.pas' {MutateForm}, Adjust in '..\..\Source\Adjust.pas' {AdjustForm}, @@ -40,23 +38,24 @@ uses Save in '..\..\Source\Save.pas' {SaveForm}, About in '..\..\Source\About.pas' {AboutForm}, cmap in '..\..\Source\cmap.pas', + cmapData in '..\..\Source\cmapData.pas', SavePreset in '..\..\Source\SavePreset.pas' {SavePresetForm}, ControlPoint in '..\..\Source\ControlPoint.pas', HtmlHlp in '..\..\Source\HtmlHlp.pas', ScriptForm in '..\..\Source\ScriptForm.pas' {ScriptEditor}, Preview in '..\..\Source\Preview.pas' {PreviewForm}, ScriptRender in '..\..\Source\ScriptRender.pas' {ScriptRenderForm}, - ap_Math in '..\..\Source\ap_Math.pas', - ap_SysUtils in '..\..\Source\ap_SysUtils.pas', FormFavorites in '..\..\Source\FormFavorites.pas' {FavoritesForm}, Size in '..\..\Source\Size.pas' {SizeTool}, FormExport in '..\..\Source\FormExport.pas' {ExportDialog}, MsMultiPartFormData in '..\..\Source\MsMultiPartFormData.pas', Sheep in '..\..\Source\Sheep.pas' {SheepDialog}, - ap_FileCtrl in '..\..\Source\ap_FileCtrl.pas', XForm in '..\..\Source\XForm.pas', - cmapdata in '..\..\Source\cmapdata.pas', - Render32 in '..\..\Source\Render32.pas'; + RenderThread in '..\..\Source\RenderThread.pas', + Render in '..\..\Source\Render.pas', + Render32 in '..\..\Source\Render32.pas', + Render64 in '..\..\Source\Render64.pas'; +// ImageColoring in '..\..\Source\ImageColoring.pas' {frmImageColoring}; {$R *.RES} @@ -83,6 +82,7 @@ begin Application.CreateForm(TSizeTool, SizeTool); Application.CreateForm(TExportDialog, ExportDialog); Application.CreateForm(TSheepDialog, SheepDialog); +// Application.CreateForm(TfrmImageColoring, frmImageColoring); Application.UpdateFormatSettings := False; DecimalSeparator := '.'; Application.Run; diff --git a/2.02g/Project/delphi2005/Apophysis202.dsk b/2.02g/Project/delphi2005/Apophysis202.dsk index 4e23884..fc8b0bd 100644 --- a/2.02g/Project/delphi2005/Apophysis202.dsk +++ b/2.02g/Project/delphi2005/Apophysis202.dsk @@ -1,34 +1,54 @@ [Closed Files] -File_0=TSourceModule,'X:\Code\Delphi\Apophysis\2.02f\Source\RenderThread.pas',0,1,777,23,804,0,0,, -File_1=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.identcache',0,1,1,59,12,0,0,, -File_2=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas',0,1,1,21,43,0,0,, -File_3=TSourceModule,'x:\programs\borland\bds\3.0\source\Win32\rtl\common\Classes.pas',0,1,1188,15,1188,0,0,, -File_4=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Save.pas',0,1,1,1,1,0,0,, -File_5=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\SavePreset.pas',0,1,1,1,1,0,0,, -File_6=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas',0,1,1,1,1,0,0,, -File_7=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ScriptRender.pas',0,1,1,1,1,0,0,, -File_8=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Sheep.pas',0,1,1,1,1,0,0,, -File_9=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Size.pas',0,1,1,1,1,0,0,, +File_0=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ScriptRender.pas',0,1,83,21,109,0,0,, +File_1=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ImageColoring.pas',0,1,28,19,68,0,0,, +File_2=TSourceModule,'X:\Code\Delphi\Apophysis\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005\ap_System.pas',0,1,263,57,296,0,0,, +File_3=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas',0,1,1,1,1,0,0,, +File_4=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas',0,1,109,1,123,0,0,, +File_5=TSourceModule,'X:\Code\Delphi\Apophysis\2.02f\Source\RenderThread.pas',0,1,777,23,804,0,0,, +File_6=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.identcache',0,1,1,59,12,0,0,, +File_7=TSourceModule,'x:\programs\borland\bds\3.0\source\Win32\rtl\common\Classes.pas',0,1,1188,15,1188,0,0,, +File_8=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Save.pas',0,1,1,1,1,0,0,, [Modules] -Module0=X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas -Module1=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas -Module2=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas -Module3=X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.bdsproj -Module4=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas -Module5=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas -Module6=X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas -Module7=X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas -Module8=default.htm -Count=9 +Module0=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas +Module1=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas +Module2=X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas +Module3=X:\Code\Delphi\Apophysis\2.02g\Source\Gradient.pas +Module4=X:\Code\Delphi\Apophysis\2.02g\Source\cmap.pas +Module5=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas +Module6=X:\Code\Delphi\Apophysis\2.02g\readme.txt +Module7=X:\Code\Delphi\Apophysis\2.02g\Changes.txt +Module8=X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.bdsproj +Module9=X:\Code\Delphi\Apophysis\2.02g\Source\FormRender.pas +Module10=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas +Module11=X:\Code\Delphi\Apophysis\2.02g\Source\XForm.pas +Module12=X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas +Module13=X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas +Module14=default.htm +Count=15 EditWindowCount=1 -[X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas] +[X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas] ModuleType=TSourceModule FormState=0 FormOnTop=0 -[X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas] +[X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas] +ModuleType=TSourceModule +FormState=1 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas] +ModuleType=TSourceModule +FormState=0 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02g\Source\Gradient.pas] +ModuleType=TSourceModule +FormState=1 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02g\Source\cmap.pas] ModuleType=TSourceModule FormState=0 FormOnTop=0 @@ -38,35 +58,46 @@ ModuleType=TSourceModule FormState=0 FormOnTop=0 +[X:\Code\Delphi\Apophysis\2.02g\readme.txt] +ModuleType=TSourceModule + +[X:\Code\Delphi\Apophysis\2.02g\Changes.txt] +ModuleType=TSourceModule + [X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.bdsproj] ModuleType=TBaseProject +[X:\Code\Delphi\Apophysis\2.02g\Source\FormRender.pas] +ModuleType=TSourceModule +FormState=1 +FormOnTop=0 + [X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas] ModuleType=TSourceModule FormState=1 FormOnTop=0 -[X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas] +[X:\Code\Delphi\Apophysis\2.02g\Source\XForm.pas] +ModuleType=TSourceModule +FormState=0 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas] +ModuleType=TSourceModule +FormState=0 +FormOnTop=0 + +[X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas] ModuleType=TSourceModule FormState=1 FormOnTop=0 -[X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas] -ModuleType=TSourceModule -FormState=0 -FormOnTop=0 - -[X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas] -ModuleType=TSourceModule -FormState=0 -FormOnTop=0 - [default.htm] ModuleType=TURLModule [EditWindow0] -ViewCount=9 -CurrentEditView=X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas +ViewCount=15 +CurrentEditView=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas View0=0 View1=1 View2=2 @@ -76,6 +107,12 @@ View5=5 View6=6 View7=7 View8=8 +View9=9 +View10=10 +View11=11 +View12=12 +View13=13 +View14=14 PercentageSizes=1 Create=1 Visible=1 @@ -94,17 +131,17 @@ MessageView=MessageView@EditWindow0 BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0 TopPanelSize=0 LeftPanelSize=1906 -LeftPanelClients=StructureView,DockSite0 -LeftPanelData=00000800010100000000AE170000000000000172070000000000000100000000C50D00001100000053747275637475726556696577466F726D01000000009A1D000009000000446F636B5369746530FFFFFFFF +LeftPanelClients=StructureView,DockSite3 +LeftPanelData=00000800010100000000AE170000000000000172070000000000000100000000C50D00001100000053747275637475726556696577466F726D01000000009A1D000009000000446F636B5369746533FFFFFFFF RightPanelSize=2258 -RightPanelClients=DockSite1,ToolForm -RightPanelData=00000800010100000000AE1700000000000001D20800000000000001000000006511000009000000446F636B536974653101000000009A1D000008000000546F6F6C466F726DFFFFFFFF +RightPanelClients=ToolForm,DockSite2 +RightPanelData=00000800010100000000AE1700000000000001D20800000000000001000000006511000009000000446F636B536974653201000000009A1D000008000000546F6F6C466F726DFFFFFFFF BottomPanelSize=1270 -BottomPanelClients=MessageView@EditWindow0,ToDo List,DockSite2 -BottomPanelData=000008000102020000000E000000546F446F4C69737457696E646F7709000000446F636B53697465327C3000000000000002F60400000000000001000000007C3000000B0000004D65737361676556696577FFFFFFFF +BottomPanelClients=MessageView@EditWindow0,ToDo List,DockSite0 +BottomPanelData=000008000102020000000E000000546F446F4C69737457696E646F7709000000446F636B53697465307C3000000000000002F60400000000000001000000007C3000000B0000004D65737361676556696577FFFFFFFF BottomMiddlePanelSize=0 -BottomMiddlePanelClients=DockSite3 -BottomMiddelPanelData=0000080001000100000009000000446F636B53697465330000000000000000000000000000000000FFFFFFFF +BottomMiddlePanelClients=DockSite1 +BottomMiddelPanelData=0000080001000100000009000000446F636B53697465310000000000000000000000000000000000FFFFFFFF [View0] CustomEditViewType=TWelcomePageView @@ -113,83 +150,143 @@ WelcomePageURL=bds:/default.htm [View1] CustomEditViewType=TEditView Module=X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.dpr -CursorX=56 -CursorY=15 -TopLine=1 +CursorX=2 +CursorY=90 +TopLine=59 LeftCol=1 Elisions= Bookmarks= [View2] CustomEditViewType=TEditView -Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas -CursorX=63 -CursorY=783 -TopLine=778 +Module=X:\Code\Delphi\Apophysis\2.02g\Changes.txt +CursorX=19 +CursorY=4 +TopLine=1 LeftCol=1 Elisions= Bookmarks= [View3] CustomEditViewType=TEditView -Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas +Module=X:\Code\Delphi\Apophysis\2.02g\readme.txt CursorX=1 -CursorY=115 -TopLine=88 +CursorY=1 +TopLine=1 LeftCol=1 Elisions= Bookmarks= [View4] CustomEditViewType=TEditView -Module=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas -CursorX=27 -CursorY=130 -TopLine=105 +Module=X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas +CursorX=32 +CursorY=1479 +TopLine=1463 LeftCol=1 Elisions= Bookmarks= [View5] CustomEditViewType=TEditView -Module=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas -CursorX=27 -CursorY=79 -TopLine=52 +Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas +CursorX=14 +CursorY=661 +TopLine=650 LeftCol=1 Elisions= Bookmarks= [View6] CustomEditViewType=TEditView -Module=X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas +Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas CursorX=1 -CursorY=1 -TopLine=1 +CursorY=585 +TopLine=560 LeftCol=1 Elisions= Bookmarks= [View7] CustomEditViewType=TEditView -Module=X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas -CursorX=1 -CursorY=123 -TopLine=109 +Module=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas +CursorX=27 +CursorY=102 +TopLine=63 LeftCol=1 Elisions= Bookmarks= [View8] CustomEditViewType=TEditView -Module=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas -CursorX=1 -CursorY=1 +Module=X:\Code\Delphi\Apophysis\2.02g\Source\cmap.pas +CursorX=3 +CursorY=46 TopLine=1 LeftCol=1 Elisions= Bookmarks= +[View9] +CustomEditViewType=TEditView +Module=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas +CursorX=22 +CursorY=3416 +TopLine=3373 +LeftCol=1 +Elisions= +Bookmarks={1,3102,15} + +[View10] +CustomEditViewType=TEditView +Module=X:\Code\Delphi\Apophysis\2.02g\Source\Gradient.pas +CursorX=38 +CursorY=133 +TopLine=126 +LeftCol=1 +Elisions= +Bookmarks= + +[View11] +CustomEditViewType=TEditView +Module=X:\Code\Delphi\Apophysis\2.02g\Source\FormRender.pas +CursorX=28 +CursorY=207 +TopLine=168 +LeftCol=1 +Elisions= +Bookmarks= + +[View12] +CustomEditViewType=TEditView +Module=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas +CursorX=25 +CursorY=124 +TopLine=91 +LeftCol=1 +Elisions= +Bookmarks= + +[View13] +CustomEditViewType=TEditView +Module=X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas +CursorX=54 +CursorY=302 +TopLine=297 +LeftCol=1 +Elisions= +Bookmarks= + +[View14] +CustomEditViewType=TEditView +Module=X:\Code\Delphi\Apophysis\2.02g\Source\XForm.pas +CursorX=52 +CursorY=68 +TopLine=31 +LeftCol=1 +Elisions= +Bookmarks={1,237,1} + [Watches] Count=0 @@ -204,11 +301,11 @@ State=0 Left=0 Top=0 Width=3766 -Height=4698 +Height=724 MaxLeft=-1 MaxTop=-1 ClientWidth=3766 -ClientHeight=4698 +ClientHeight=724 TBDockHeight=201 LRDockWidth=13602 Dockable=1 @@ -271,31 +368,11 @@ MaxLeft=-1 MaxTop=-1 ClientWidth=2258 ClientHeight=2988 -TBDockHeight=6519 +TBDockHeight=8913 LRDockWidth=2258 Dockable=1 StayOnTop=0 -[PropertyInspector] -PercentageSizes=1 -Create=1 -Visible=1 -Docked=1 -State=0 -Left=0 -Top=0 -Width=1844 -Height=3843 -MaxLeft=-1 -MaxTop=-1 -ClientWidth=1844 -ClientHeight=3843 -TBDockHeight=412 -LRDockWidth=1906 -Dockable=1 -StayOnTop=0 -SplitPos=95 - [RMAddinTool] PercentageSizes=1 Create=1 @@ -303,7 +380,7 @@ Visible=0 Docked=1 State=0 Left=-9 -Top=-103 +Top=1001 Width=5305 Height=5141 MaxLeft=-1 @@ -324,11 +401,11 @@ State=0 Left=0 Top=0 Width=3766 -Height=4698 +Height=724 MaxLeft=-1 MaxTop=-1 ClientWidth=3766 -ClientHeight=4698 +ClientHeight=724 TBDockHeight=2072 LRDockWidth=3484 Dockable=1 @@ -427,11 +504,11 @@ State=0 Left=0 Top=0 Width=3766 -Height=4698 +Height=724 MaxLeft=-1 MaxTop=-1 ClientWidth=3766 -ClientHeight=4698 +ClientHeight=724 TBDockHeight=412 LRDockWidth=4953 Dockable=1 @@ -446,11 +523,11 @@ State=0 Left=0 Top=0 Width=3766 -Height=4698 +Height=724 MaxLeft=-1 MaxTop=-1 ClientWidth=3766 -ClientHeight=4698 +ClientHeight=724 TBDockHeight=201 LRDockWidth=7414 Dockable=1 @@ -469,17 +546,17 @@ State=0 Left=0 Top=0 Width=3766 -Height=4698 +Height=724 MaxLeft=-1 MaxTop=-1 ClientWidth=3766 -ClientHeight=4698 +ClientHeight=724 TBDockHeight=262 LRDockWidth=3484 Dockable=1 StayOnTop=0 -[ModelViewTool] +[PropertyInspector] PercentageSizes=1 Create=1 Visible=1 @@ -487,16 +564,17 @@ Docked=1 State=0 Left=0 Top=0 -Width=2195 -Height=3964 +Width=1844 +Height=3843 MaxLeft=-1 MaxTop=-1 -ClientWidth=2195 -ClientHeight=3964 -TBDockHeight=4879 -LRDockWidth=5305 +ClientWidth=1844 +ClientHeight=3843 +TBDockHeight=412 +LRDockWidth=1906 Dockable=1 StayOnTop=0 +SplitPos=95 [BreakpointWindow] PercentageSizes=1 @@ -507,11 +585,11 @@ State=0 Left=0 Top=0 Width=3766 -Height=4698 +Height=724 MaxLeft=-1 MaxTop=-1 ClientWidth=3766 -ClientHeight=4698 +ClientHeight=724 TBDockHeight=1549 LRDockWidth=8742 Dockable=1 @@ -587,72 +665,26 @@ DockHostCount=4 DockSiteType=1 PercentageSizes=1 Create=1 -Visible=1 -Docked=1 -State=0 -Left=0 -Top=384 -Width=1906 -Height=3944 -MaxLeft=-1 -MaxTop=-1 -ClientWidth=1906 -ClientHeight=3944 -TBDockHeight=5111 -LRDockWidth=1906 -Dockable=1 -StayOnTop=0 -TabPosition=1 -ActiveTabID=PropertyInspector -TabDockClients=PropertyInspector,RMAddinTool - -[DockSite1] -DockSiteType=1 -PercentageSizes=1 -Create=1 -Visible=1 -Docked=1 -State=0 -Left=0 -Top=23 -Width=2258 -Height=4316 -MaxLeft=-1 -MaxTop=-1 -ClientWidth=2258 -ClientHeight=4316 -TBDockHeight=6318 -LRDockWidth=2258 -Dockable=1 -StayOnTop=0 -TabPosition=1 -ActiveTabID=ProjectManager -TabDockClients=ProjectManager,ModelViewTool,DataExplorer - -[DockSite2] -DockSiteType=1 -PercentageSizes=1 -Create=1 Visible=0 Docked=1 State=0 Left=-5 -Top=-990 +Top=-860 Width=3828 -Height=5050 +Height=1076 MaxLeft=-1 MaxTop=-1 ClientWidth=3828 -ClientHeight=5050 -TBDockHeight=5050 +ClientHeight=1076 +TBDockHeight=1076 LRDockWidth=3828 Dockable=1 StayOnTop=0 TabPosition=1 ActiveTabID=LocalVarsWindow -TabDockClients=BreakpointWindow,CallStackWindow,WatchWindow,ThreadStatusWindow,DebugLogView,LocalVarsWindow +TabDockClients=BreakpointWindow,ThreadStatusWindow,DebugLogView,CallStackWindow,WatchWindow,LocalVarsWindow -[DockSite3] +[DockSite1] DockSiteType=1 PercentageSizes=1 Create=1 @@ -660,7 +692,7 @@ Visible=0 Docked=1 State=0 Left=-252 -Top=-990 +Top=-857 Width=2336 Height=2314 MaxLeft=-1 @@ -675,3 +707,49 @@ TabPosition=1 ActiveTabID=FindReferencsForm TabDockClients=RefactoringForm,FindReferencsForm +[DockSite2] +DockSiteType=1 +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=23 +Width=2258 +Height=4316 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2258 +ClientHeight=4316 +TBDockHeight=1670 +LRDockWidth=2258 +Dockable=1 +StayOnTop=0 +TabPosition=1 +ActiveTabID=ProjectManager +TabDockClients=ProjectManager,DataExplorer + +[DockSite3] +DockSiteType=1 +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=384 +Width=1906 +Height=3944 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=1906 +ClientHeight=3944 +TBDockHeight=1740 +LRDockWidth=1906 +Dockable=1 +StayOnTop=0 +TabPosition=1 +ActiveTabID=RMAddinTool +TabDockClients=RMAddinTool,PropertyInspector + diff --git a/2.02g/Project/delphi2005/Apophysis202.identcache b/2.02g/Project/delphi2005/Apophysis202.identcache index ea41b92..4b2783d 100644 Binary files a/2.02g/Project/delphi2005/Apophysis202.identcache and b/2.02g/Project/delphi2005/Apophysis202.identcache differ diff --git a/2.02g/Project/delphi2005/Apophysis202.res b/2.02g/Project/delphi2005/Apophysis202.res index 38b6e8e..fe970be 100644 Binary files a/2.02g/Project/delphi2005/Apophysis202.res and b/2.02g/Project/delphi2005/Apophysis202.res differ diff --git a/2.02g/Project/delphi6/Apophysis202.dpr b/2.02g/Project/delphi6/Apophysis202.dpr index 44a869d..0ad3973 100644 --- a/2.02g/Project/delphi6/Apophysis202.dpr +++ b/2.02g/Project/delphi6/Apophysis202.dpr @@ -15,7 +15,6 @@ along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. } -{$D-,L-,O+,Q-,R-,Y-,S-} program Apophysis202; {%File 'HtmlHlp.inc'} @@ -33,6 +32,7 @@ uses MyTypes in '..\..\Source\MyTypes.pas', Fullscreen in '..\..\Source\Fullscreen.pas' {FullscreenForm}, Render in '..\..\Source\Render.pas', + Render32 in '..\..\Source\Render32.pas', RenderThread in '..\..\Source\RenderThread.pas', FormRender in '..\..\Source\FormRender.pas' {RenderForm}, Mutate in '..\..\Source\Mutate.pas' {MutateForm}, diff --git a/2.02g/Source/ControlPoint.pas b/2.02g/Source/ControlPoint.pas index 50eb1ff..c5191dc 100644 --- a/2.02g/Source/ControlPoint.pas +++ b/2.02g/Source/ControlPoint.pas @@ -39,11 +39,15 @@ type vHandkerchief, vHeart, vDisc, vSpiral, vHyperbolic, vSquare, vEx, vJulia, vBent, vWaves, vFisheye, vPopcorn, vExponential, vPower, vCosine, vSawTooth, vRandom); type - TCPpoint = record - x, y, c: double; - end; - PCPpoint = ^TCPpoint; + TPointsArray = array of TCPpoint; + TPointsXYArray = array of TXYpoint; + + T2Cpoint = record + x, y, c1, c2: double; + end; + P2Cpoint = ^T2Cpoint; + T2CPointsArray = array of T2Cpoint; TControlPoint = class public @@ -81,6 +85,7 @@ type PropTable: array of Integer; jpeg: TJPegImage; FAngle: Double; + FTwoColorDimensions: Boolean; private procedure PreparePropTable; @@ -90,9 +95,7 @@ type procedure ParseString(aString: string); procedure ParseStringList(sl: TStringlist); -// procedure RandomCP(calc: boolean = true); procedure RandomCP(min: integer = 2; max: integer = NXFORMS; calc: boolean = true); -// procedure RandomCP; procedure RandomCP1; procedure CalcBoundbox; function BlowsUp(NrPoints: integer): boolean; @@ -102,8 +105,10 @@ type class function interpolate(cp1, cp2: TControlPoint; Time: double): TControlPoint; /// just for now procedure InterpolateX(cp1, cp2: TControlPoint; Tm: double); - procedure Iterate(NrPoints: integer; var Points: TPointsArray); - procedure Iterate_d(NrPoints: integer; var Points: TPointsArray); + procedure Iterate_Old(NrPoints: integer; var Points: TPointsArray); + procedure IterateXY(NrPoints: integer; var Points: TPointsXYArray); + procedure IterateXYC(NrPoints: integer; var Points: TPointsArray); + procedure IterateXYCC(NrPoints: integer; var Points: T2CPointsArray); function Clone: TControlPoint; procedure Copy(cp1: TControlPoint); @@ -180,6 +185,8 @@ begin nbatches := 1; white_level := 200; + + FTwoColorDimensions := False; end; destructor TControlPoint.Destroy; @@ -221,7 +228,7 @@ begin end; end; -procedure TControlPoint.Iterate(NrPoints: integer; var Points: TPointsArray); +procedure TControlPoint.Iterate_Old(NrPoints: integer; var Points: TPointsArray); var i: Integer; px, py, pc: double; @@ -452,7 +459,38 @@ begin end; end; -procedure TControlPoint.Iterate_d(NrPoints: integer; var Points: TPointsArray); +procedure TControlPoint.IterateXY(NrPoints: integer; var Points: TPointsXYArray); +var + i: Integer; + px, py: double; + CurrentPoint: PXYPoint; +begin + px := 2 * random - 1; + py := 2 * random - 1; + + PreparePropTable; + + for i := 0 to NXFORMS - 1 do + xform[i].prepare; + + for i := -100 to NrPoints - 1 do begin + try + xform[PropTable[Random(1024)]].NextPointXY(px,py); + except + on EMathError do begin + exit; + end; + end; + // store points + if i >= 0 then begin + CurrentPoint := @Points[i]; + CurrentPoint.X := px; + CurrentPoint.Y := py; + end + end; +end; + +procedure TControlPoint.IterateXYC(NrPoints: integer; var Points: TPointsArray); { Variations for Draves conpatibility } var i: Integer; @@ -473,7 +511,6 @@ begin xform[PropTable[Random(1024)]].NextPoint(px,py,pc); except on EMathError do begin -// raise Exception.Create('Iteration blows up'); exit; end; end; @@ -487,21 +524,16 @@ begin end; end; -function TControlPoint.BlowsUp(NrPoints: integer): boolean; +procedure TControlPoint.IterateXYCC(NrPoints: integer; var Points: T2CPointsArray); var i: Integer; - px, py, pc: double; - minx, maxx, miny, maxy: double; - Points: TPointsArray; - CurrentPoint: PCPPoint; + px, py, pc1, pc2: double; + CurrentPoint: P2Cpoint; begin - Result := false; - - SetLength(Points, SUB_BATCH_SIZE); - px := 2 * random - 1; py := 2 * random - 1; - pc := random; + pc1 := random; + pc2 := random; PreparePropTable; @@ -510,12 +542,51 @@ begin for i := -100 to NrPoints - 1 do begin try - xform[PropTable[Random(1024)]].NextPoint(px,py,pc); + xform[PropTable[Random(1024)]].NextPoint2C(px, py, pc1, pc2); + except + on EMathError do begin + exit; + end; + end; + // store points + if i >= 0 then begin + CurrentPoint := @Points[i]; + CurrentPoint.X := px; + CurrentPoint.Y := py; + CurrentPoint.C1 := pc1; + CurrentPoint.C2 := pc2; + end + end; +end; + + +function TControlPoint.BlowsUp(NrPoints: integer): boolean; +var + i: Integer; + px, py: double; + minx, maxx, miny, maxy: double; + Points: TPointsXYArray; + CurrentPoint: PXYPoint; +begin + Result := false; + + SetLength(Points, SUB_BATCH_SIZE); + + px := 2 * random - 1; + py := 2 * random - 1; + + PreparePropTable; + + for i := 0 to NXFORMS - 1 do + xform[i].prepare; + + for i := -100 to NrPoints - 1 do begin + try + xform[PropTable[Random(1024)]].NextPointXY(px,py); if i >= 0 then begin CurrentPoint := @Points[i]; CurrentPoint.X := px; CurrentPoint.Y := py; - CurrentPoint.C := pc; end except on EMathError do begin @@ -849,8 +920,8 @@ begin try SetLength(Points, SUB_BATCH_SIZE); case compatibility of - 0: iterate(SUB_BATCH_SIZE, points); - 1: iterate_d(SUB_BATCH_SIZE, points); + 0: iterate_Old(SUB_BATCH_SIZE, points); + 1: iterateXYC(SUB_BATCH_SIZE, points); end; LimitOutSidePoints := Round(0.05 * SUB_BATCH_SIZE); @@ -921,14 +992,17 @@ begin else pixels_per_unit := 10; except on E: EMathError do - pixels_per_unit := 10; + begin// default + center[0] := 0; + center[1] := 0; + pixels_per_unit := 10; + end; end; - end; function CalcUPRMagn(const cp: TControlPoint): double; var - Points: TPointsArray; + Points: TPointsXYArray; i, j: integer; deltax, minx, maxx: double; cntminx, cntmaxx: integer; @@ -937,10 +1011,9 @@ var LimitOutSidePoints: integer; xLength, yLength: double; begin - result := 1.0; try SetLength(Points, SUB_BATCH_SIZE); - cp.iterate_d(SUB_BATCH_SIZE, Points); + cp.iterateXY(SUB_BATCH_SIZE, Points); LimitOutSidePoints := Round(0.05 * SUB_BATCH_SIZE); @@ -1023,8 +1096,8 @@ begin end; except on E: EMathError do + raise Exception.Create('CalcUPRMagn: ' +e.Message); end; - end; @@ -1235,8 +1308,6 @@ begin result.free; end; - - procedure TControlPoint.SaveToFile(Filename: string); var sl: TStringlist; diff --git a/2.02g/Source/Main.dfm b/2.02g/Source/Main.dfm index 42293de..58d2fe7 100644 --- a/2.02g/Source/Main.dfm +++ b/2.02g/Source/Main.dfm @@ -2,7 +2,7 @@ object MainForm: TMainForm Left = 316 Top = 424 Width = 574 - Height = 395 + Height = 415 Caption = 'Apophysis' Color = clBtnFace Font.Charset = ANSI_CHARSET @@ -27,7 +27,7 @@ object MainForm: TMainForm Left = 160 Top = 28 Width = 4 - Height = 294 + Height = 314 end object ToolBar: TToolBar Left = 0 @@ -251,7 +251,7 @@ object MainForm: TMainForm Left = 0 Top = 28 Width = 160 - Height = 294 + Height = 314 Align = alLeft Columns = < item @@ -270,7 +270,7 @@ object MainForm: TMainForm Left = 164 Top = 28 Width = 402 - Height = 294 + Height = 314 Align = alClient BevelInner = bvLowered BevelOuter = bvNone @@ -281,7 +281,7 @@ object MainForm: TMainForm Left = 1 Top = 1 Width = 400 - Height = 292 + Height = 312 Align = alClient AutoSize = True PopupMenu = DisplayPopup @@ -293,7 +293,7 @@ object MainForm: TMainForm end object StatusBar: TStatusBar Left = 0 - Top = 322 + Top = 342 Width = 566 Height = 19 Panels = < @@ -2616,6 +2616,10 @@ object MainForm: TMainForm ShortCut = 16455 OnClick = mnuGradClick end + object mnuimage: TMenuItem + Caption = 'Image ' + OnClick = mnuimageClick + end object N4: TMenuItem Caption = '-' end diff --git a/2.02g/Source/Main.pas b/2.02g/Source/Main.pas index fe2518f..23b250c 100644 --- a/2.02g/Source/Main.pas +++ b/2.02g/Source/Main.pas @@ -221,6 +221,8 @@ type tbzoomwindow: TToolButton; tbDrag: TToolButton; tbRotate: TToolButton; + mnuimage: TMenuItem; + procedure mnuimageClick(Sender: TObject); procedure mnuExitClick(Sender: TObject); procedure mnuSaveUPRClick(Sender: TObject); procedure ListViewChange(Sender: TObject; Item: TListItem; @@ -906,8 +908,9 @@ begin Trunc((Elapsed * 24 - Trunc(Elapsed * 24)) * 60), Trunc((Elapsed * 24 * 60 - Trunc(Elapsed * 24 * 60)) * 60), Trunc((Elapsed * 24 * 60 * 60 - Trunc(Elapsed * 24 * 60 * 60)) * 100)]); - if prog > 0 then + if prog > 0 then Remainder := Min(Remainder, Elapsed * (power(1 / prog, 1.2) - 1)); + StatusBar.Panels[1].Text := Format('Remaining %2.2d:%2.2d:%2.2d.%2.2d', [Trunc(Remainder * 24), Trunc((Remainder * 24 - Trunc(Remainder * 24)) * 60), @@ -3100,6 +3103,12 @@ begin GradientForm.Show; end; +/////////////////////////////////////////////////////////////////////////////// +procedure TMainForm.mnuimageClick(Sender: TObject); +begin +// frmImageColoring.Show; +end; + procedure swapcolor(var clist: array of cardinal; i, j: integer); var t: cardinal; @@ -4377,7 +4386,9 @@ begin StopThread; UpdateUndo; MainCp.ZoomtoRect(FSelectRect); - DrawFlame; + + RedrawTimer.Enabled := True; + UpdateWindows; end; msDragMove: begin @@ -4393,7 +4404,9 @@ begin StopThread; UpdateUndo; MainCp.MoveRect(FSelectRect); - DrawFlame; + + RedrawTimer.Enabled := True; + UpdateWindows; end; msRotateMove: begin @@ -4407,7 +4420,9 @@ begin StopThread; UpdateUndo; MainCp.Rotate(FRotateAngle); - DrawFlame; + + RedrawTimer.Enabled := True; + UpdateWindows; end; end; end; @@ -4489,5 +4504,6 @@ begin FMouseMoveState := msRotate; end; + /////////////////////////////////////////////////////////////////////////////// end. diff --git a/2.02g/Source/ap_FileCtrl.pas b/2.02g/Source/ap_FileCtrl.pas deleted file mode 100644 index 22b3255..0000000 --- a/2.02g/Source/ap_FileCtrl.pas +++ /dev/null @@ -1,474 +0,0 @@ -{***************************************************************************} -{ This source code was generated automatically by } -{ Pas file import tool for Scripter Studio } -{ } -{ Scripter Studio and Pas file import tool for Scripter Studio } -{ written by Automa / TMS Software } -{ copyright © 1997 - 2003 } -{ Email : info@tmssoftware.com } -{ Web : http://www.tmssoftware.com } -{***************************************************************************} -unit ap_FileCtrl; - -interface - -uses - Windows, - Messages, - SysUtils, - Classes, - Controls, - Graphics, - Forms, - Menus, - StdCtrls, - Buttons, - FileCtrl, - Variants, - atScript; - -type - TatFileCtrlLibrary = class(TatScripterLibrary) - procedure __TFileListBoxCreate(AMachine: TatVirtualMachine); - procedure __TFileListBoxDestroy(AMachine: TatVirtualMachine); - procedure __TFileListBoxUpdate(AMachine: TatVirtualMachine); - procedure __TFileListBoxApplyFilePath(AMachine: TatVirtualMachine); - procedure __GetTFileListBoxDrive(AMachine: TatVirtualMachine); - procedure __SetTFileListBoxDrive(AMachine: TatVirtualMachine); - procedure __GetTFileListBoxDirectory(AMachine: TatVirtualMachine); - procedure __SetTFileListBoxDirectory(AMachine: TatVirtualMachine); - procedure __GetTFileListBoxFileName(AMachine: TatVirtualMachine); - procedure __SetTFileListBoxFileName(AMachine: TatVirtualMachine); - procedure __TDirectoryListBoxCreate(AMachine: TatVirtualMachine); - procedure __TDirectoryListBoxDestroy(AMachine: TatVirtualMachine); - procedure __TDirectoryListBoxDisplayCase(AMachine: TatVirtualMachine); - procedure __TDirectoryListBoxFileCompareText(AMachine: TatVirtualMachine); - procedure __TDirectoryListBoxGetItemPath(AMachine: TatVirtualMachine); - procedure __TDirectoryListBoxOpenCurrent(AMachine: TatVirtualMachine); - procedure __TDirectoryListBoxUpdate(AMachine: TatVirtualMachine); - procedure __GetTDirectoryListBoxDrive(AMachine: TatVirtualMachine); - procedure __SetTDirectoryListBoxDrive(AMachine: TatVirtualMachine); - procedure __GetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine); - procedure __SetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine); - procedure __GetTDirectoryListBoxPreserveCase(AMachine: TatVirtualMachine); - procedure __GetTDirectoryListBoxCaseSensitive(AMachine: TatVirtualMachine); - procedure __TDriveComboBoxCreate(AMachine: TatVirtualMachine); - procedure __TDriveComboBoxDestroy(AMachine: TatVirtualMachine); - procedure __GetTDriveComboBoxDrive(AMachine: TatVirtualMachine); - procedure __SetTDriveComboBoxDrive(AMachine: TatVirtualMachine); - procedure __TFilterComboBoxCreate(AMachine: TatVirtualMachine); - procedure __TFilterComboBoxDestroy(AMachine: TatVirtualMachine); - procedure __GetTFilterComboBoxMask(AMachine: TatVirtualMachine); - procedure __ProcessPath(AMachine: TatVirtualMachine); - procedure __MinimizeName(AMachine: TatVirtualMachine); - procedure __DirectoryExists(AMachine: TatVirtualMachine); - procedure __ForceDirectories(AMachine: TatVirtualMachine); - procedure Init; override; - class function LibraryName: string; override; - end; - - TFileListBoxClass = class of TFileListBox; - TDirectoryListBoxClass = class of TDirectoryListBox; - TDriveComboBoxClass = class of TDriveComboBox; - TFilterComboBoxClass = class of TFilterComboBox; - - - -implementation - -{$WARNINGS OFF} - - - -procedure TatFileCtrlLibrary.__TFileListBoxCreate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TFileListBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.__TFileListBoxDestroy(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TFileListBox(CurrentObject).Destroy; - end; -end; - -procedure TatFileCtrlLibrary.__TFileListBoxUpdate(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TFileListBox(CurrentObject).Update; - end; -end; - -procedure TatFileCtrlLibrary.__TFileListBoxApplyFilePath(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TFileListBox(CurrentObject).ApplyFilePath(GetInputArg(0)); - end; -end; - -procedure TatFileCtrlLibrary.__GetTFileListBoxDrive(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TFileListBox(CurrentObject).Drive); - end; -end; - -procedure TatFileCtrlLibrary.__SetTFileListBoxDrive(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TFileListBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1]; - end; -end; - -procedure TatFileCtrlLibrary.__GetTFileListBoxDirectory(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TFileListBox(CurrentObject).Directory); - end; -end; - -procedure TatFileCtrlLibrary.__SetTFileListBoxDirectory(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TFileListBox(CurrentObject).Directory:=GetInputArg(0); - end; -end; - -procedure TatFileCtrlLibrary.__GetTFileListBoxFileName(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TFileListBox(CurrentObject).FileName); - end; -end; - -procedure TatFileCtrlLibrary.__SetTFileListBoxFileName(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TFileListBox(CurrentObject).FileName:=GetInputArg(0); - end; -end; - -procedure TatFileCtrlLibrary.__TDirectoryListBoxCreate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TDirectoryListBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.__TDirectoryListBoxDestroy(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TDirectoryListBox(CurrentObject).Destroy; - end; -end; - -procedure TatFileCtrlLibrary.__TDirectoryListBoxDisplayCase(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := TDirectoryListBox(CurrentObject).DisplayCase(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.__TDirectoryListBoxFileCompareText(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TDirectoryListBox(CurrentObject).FileCompareText(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.__TDirectoryListBoxGetItemPath(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := TDirectoryListBox(CurrentObject).GetItemPath(VarToInteger(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.__TDirectoryListBoxOpenCurrent(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TDirectoryListBox(CurrentObject).OpenCurrent; - end; -end; - -procedure TatFileCtrlLibrary.__TDirectoryListBoxUpdate(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TDirectoryListBox(CurrentObject).Update; - end; -end; - -procedure TatFileCtrlLibrary.__GetTDirectoryListBoxDrive(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TDirectoryListBox(CurrentObject).Drive); - end; -end; - -procedure TatFileCtrlLibrary.__SetTDirectoryListBoxDrive(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TDirectoryListBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1]; - end; -end; - -procedure TatFileCtrlLibrary.__GetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TDirectoryListBox(CurrentObject).Directory); - end; -end; - -procedure TatFileCtrlLibrary.__SetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TDirectoryListBox(CurrentObject).Directory:=GetInputArg(0); - end; -end; - -procedure TatFileCtrlLibrary.__GetTDirectoryListBoxPreserveCase(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TDirectoryListBox(CurrentObject).PreserveCase); - end; -end; - -procedure TatFileCtrlLibrary.__GetTDirectoryListBoxCaseSensitive(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TDirectoryListBox(CurrentObject).CaseSensitive); - end; -end; - -procedure TatFileCtrlLibrary.__TDriveComboBoxCreate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TDriveComboBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.__TDriveComboBoxDestroy(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TDriveComboBox(CurrentObject).Destroy; - end; -end; - -procedure TatFileCtrlLibrary.__GetTDriveComboBoxDrive(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TDriveComboBox(CurrentObject).Drive); - end; -end; - -procedure TatFileCtrlLibrary.__SetTDriveComboBoxDrive(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TDriveComboBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1]; - end; -end; - -procedure TatFileCtrlLibrary.__TFilterComboBoxCreate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TFilterComboBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.__TFilterComboBoxDestroy(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TFilterComboBox(CurrentObject).Destroy; - end; -end; - -procedure TatFileCtrlLibrary.__GetTFilterComboBoxMask(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TFilterComboBox(CurrentObject).Mask); - end; -end; - -procedure TatFileCtrlLibrary.__ProcessPath(AMachine: TatVirtualMachine); - var - Param1: Char; - Param2: string; - Param3: string; -begin - with AMachine do - begin -Param1 := VarToStr(GetInputArg(1))[1]; -Param2 := GetInputArg(2); -Param3 := GetInputArg(3); - FileCtrl.ProcessPath(GetInputArg(0),Param1,Param2,Param3); - SetInputArg(1,Param1); - SetInputArg(2,Param2); - SetInputArg(3,Param3); - end; -end; - -procedure TatFileCtrlLibrary.__MinimizeName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := FileCtrl.MinimizeName(GetInputArg(0),TCanvas(Integer(GetInputArg(1))),VarToInteger(GetInputArg(2))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.__DirectoryExists(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := FileCtrl.DirectoryExists(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.__ForceDirectories(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := FileCtrl.ForceDirectories(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatFileCtrlLibrary.Init; -begin - With Scripter.DefineClass(TFileListBox) do - begin - DefineMethod('Create',1,tkClass,TFileListBox,__TFileListBoxCreate,true); - DefineMethod('Destroy',0,tkNone,nil,__TFileListBoxDestroy,false); - DefineMethod('Update',0,tkNone,nil,__TFileListBoxUpdate,false); - DefineMethod('ApplyFilePath',1,tkNone,nil,__TFileListBoxApplyFilePath,false); - DefineProp('Drive',tkVariant,__GetTFileListBoxDrive,__SetTFileListBoxDrive,nil,false,0); - DefineProp('Directory',tkVariant,__GetTFileListBoxDirectory,__SetTFileListBoxDirectory,nil,false,0); - DefineProp('FileName',tkVariant,__GetTFileListBoxFileName,__SetTFileListBoxFileName,nil,false,0); - end; - With Scripter.DefineClass(TDirectoryListBox) do - begin - DefineMethod('Create',1,tkClass,TDirectoryListBox,__TDirectoryListBoxCreate,true); - DefineMethod('Destroy',0,tkNone,nil,__TDirectoryListBoxDestroy,false); - DefineMethod('DisplayCase',1,tkVariant,nil,__TDirectoryListBoxDisplayCase,false); - DefineMethod('FileCompareText',2,tkInteger,nil,__TDirectoryListBoxFileCompareText,false); - DefineMethod('GetItemPath',1,tkVariant,nil,__TDirectoryListBoxGetItemPath,false); - DefineMethod('OpenCurrent',0,tkNone,nil,__TDirectoryListBoxOpenCurrent,false); - DefineMethod('Update',0,tkNone,nil,__TDirectoryListBoxUpdate,false); - DefineProp('Drive',tkVariant,__GetTDirectoryListBoxDrive,__SetTDirectoryListBoxDrive,nil,false,0); - DefineProp('Directory',tkVariant,__GetTDirectoryListBoxDirectory,__SetTDirectoryListBoxDirectory,nil,false,0); - DefineProp('PreserveCase',tkVariant,__GetTDirectoryListBoxPreserveCase,nil,nil,false,0); - DefineProp('CaseSensitive',tkVariant,__GetTDirectoryListBoxCaseSensitive,nil,nil,false,0); - end; - With Scripter.DefineClass(TDriveComboBox) do - begin - DefineMethod('Create',1,tkClass,TDriveComboBox,__TDriveComboBoxCreate,true); - DefineMethod('Destroy',0,tkNone,nil,__TDriveComboBoxDestroy,false); - DefineProp('Text',tkVariant,nil,nil,nil,false,0); - DefineProp('Drive',tkVariant,__GetTDriveComboBoxDrive,__SetTDriveComboBoxDrive,nil,false,0); - end; - With Scripter.DefineClass(TFilterComboBox) do - begin - DefineMethod('Create',1,tkClass,TFilterComboBox,__TFilterComboBoxCreate,true); - DefineMethod('Destroy',0,tkNone,nil,__TFilterComboBoxDestroy,false); - DefineProp('Mask',tkVariant,__GetTFilterComboBoxMask,nil,nil,false,0); - DefineProp('Text',tkVariant,nil,nil,nil,false,0); - end; - With Scripter.DefineClass(ClassType) do - begin - DefineMethod('ProcessPath',4,tkNone,nil,__ProcessPath,false).SetVarArgs([1,2,3]); - DefineMethod('MinimizeName',3,tkVariant,nil,__MinimizeName,false); - DefineMethod('DirectoryExists',1,tkVariant,nil,__DirectoryExists,false); - DefineMethod('ForceDirectories',1,tkVariant,nil,__ForceDirectories,false); - AddConstant('ftReadOnly',ftReadOnly); - AddConstant('ftHidden',ftHidden); - AddConstant('ftSystem',ftSystem); - AddConstant('ftVolumeID',ftVolumeID); - AddConstant('ftDirectory',ftDirectory); - AddConstant('ftArchive',ftArchive); - AddConstant('ftNormal',ftNormal); - AddConstant('dtUnknown',dtUnknown); - AddConstant('dtNoDrive',dtNoDrive); - AddConstant('dtFloppy',dtFloppy); - AddConstant('dtFixed',dtFixed); - AddConstant('dtNetwork',dtNetwork); - AddConstant('dtCDROM',dtCDROM); - AddConstant('dtRAM',dtRAM); - AddConstant('tcLowerCase',tcLowerCase); - AddConstant('tcUpperCase',tcUpperCase); - AddConstant('sdAllowCreate',sdAllowCreate); - AddConstant('sdPerformCreate',sdPerformCreate); - AddConstant('sdPrompt',sdPrompt); - AddConstant('WNTYPE_DRIVE',WNTYPE_DRIVE); - end; -end; - -class function TatFileCtrlLibrary.LibraryName: string; -begin - result := 'FileCtrl'; -end; - -initialization - RegisterScripterLibrary(TatFileCtrlLibrary, True); - -{$WARNINGS ON} - -end. diff --git a/2.02g/Source/ap_Math.pas b/2.02g/Source/ap_Math.pas deleted file mode 100644 index 0a71bfb..0000000 --- a/2.02g/Source/ap_Math.pas +++ /dev/null @@ -1,1048 +0,0 @@ -{***************************************************************************} -{ This source code was generated automatically by } -{ Pas file import tool for Scripter Studio } -{ } -{ Scripter Studio and Pas file import tool for Scripter Studio } -{ written by Automa / TMS Software } -{ copyright © 1997 - 2003 } -{ Email : info@tmssoftware.com } -{ Web : http://www.tmssoftware.com } -{***************************************************************************} -unit ap_Math; - -interface - -uses - SysUtils, - Types, - Math, - Variants, - atScript; - -type - TatMathLibrary = class(TatScripterLibrary) - procedure __ArcCos(AMachine: TatVirtualMachine); - procedure __ArcSin(AMachine: TatVirtualMachine); - procedure __ArcTan2(AMachine: TatVirtualMachine); - procedure __SinCos(AMachine: TatVirtualMachine); - procedure __Tan(AMachine: TatVirtualMachine); - procedure __Cotan(AMachine: TatVirtualMachine); - procedure __Secant(AMachine: TatVirtualMachine); - procedure __Cosecant(AMachine: TatVirtualMachine); - procedure __Hypot(AMachine: TatVirtualMachine); - procedure __RadToDeg(AMachine: TatVirtualMachine); - procedure __RadToGrad(AMachine: TatVirtualMachine); - procedure __RadToCycle(AMachine: TatVirtualMachine); - procedure __DegToRad(AMachine: TatVirtualMachine); - procedure __DegToGrad(AMachine: TatVirtualMachine); - procedure __DegToCycle(AMachine: TatVirtualMachine); - procedure __GradToRad(AMachine: TatVirtualMachine); - procedure __GradToDeg(AMachine: TatVirtualMachine); - procedure __GradToCycle(AMachine: TatVirtualMachine); - procedure __CycleToRad(AMachine: TatVirtualMachine); - procedure __CycleToDeg(AMachine: TatVirtualMachine); - procedure __CycleToGrad(AMachine: TatVirtualMachine); - procedure __Cot(AMachine: TatVirtualMachine); - procedure __Sec(AMachine: TatVirtualMachine); - procedure __Csc(AMachine: TatVirtualMachine); - procedure __Cosh(AMachine: TatVirtualMachine); - procedure __Sinh(AMachine: TatVirtualMachine); - procedure __Tanh(AMachine: TatVirtualMachine); - procedure __CotH(AMachine: TatVirtualMachine); - procedure __SecH(AMachine: TatVirtualMachine); - procedure __CscH(AMachine: TatVirtualMachine); - procedure __ArcCot(AMachine: TatVirtualMachine); - procedure __ArcSec(AMachine: TatVirtualMachine); - procedure __ArcCsc(AMachine: TatVirtualMachine); - procedure __ArcCosh(AMachine: TatVirtualMachine); - procedure __ArcSinh(AMachine: TatVirtualMachine); - procedure __ArcTanh(AMachine: TatVirtualMachine); - procedure __ArcCotH(AMachine: TatVirtualMachine); - procedure __ArcSecH(AMachine: TatVirtualMachine); - procedure __ArcCscH(AMachine: TatVirtualMachine); - procedure __LnXP1(AMachine: TatVirtualMachine); - procedure __Log10(AMachine: TatVirtualMachine); - procedure __Log2(AMachine: TatVirtualMachine); - procedure __LogN(AMachine: TatVirtualMachine); - procedure __IntPower(AMachine: TatVirtualMachine); - procedure __Power(AMachine: TatVirtualMachine); - procedure __Frexp(AMachine: TatVirtualMachine); - procedure __Ldexp(AMachine: TatVirtualMachine); - procedure __Ceil(AMachine: TatVirtualMachine); - procedure __Floor(AMachine: TatVirtualMachine); - procedure __RandG(AMachine: TatVirtualMachine); - procedure __IsNan(AMachine: TatVirtualMachine); - procedure __IsInfinite(AMachine: TatVirtualMachine); - procedure __RandomRange(AMachine: TatVirtualMachine); - procedure __DivMod(AMachine: TatVirtualMachine); - procedure __RoundTo(AMachine: TatVirtualMachine); - procedure __SimpleRoundTo(AMachine: TatVirtualMachine); - procedure __DoubleDecliningBalance(AMachine: TatVirtualMachine); - procedure __FutureValue(AMachine: TatVirtualMachine); - procedure __InterestPayment(AMachine: TatVirtualMachine); - procedure __InterestRate(AMachine: TatVirtualMachine); - procedure __NumberOfPeriods(AMachine: TatVirtualMachine); - procedure __Payment(AMachine: TatVirtualMachine); - procedure __PeriodPayment(AMachine: TatVirtualMachine); - procedure __PresentValue(AMachine: TatVirtualMachine); - procedure __SLNDepreciation(AMachine: TatVirtualMachine); - procedure __SYDDepreciation(AMachine: TatVirtualMachine); - procedure __GetRoundMode(AMachine: TatVirtualMachine); - procedure __SetRoundMode(AMachine: TatVirtualMachine); - procedure __GetPrecisionMode(AMachine: TatVirtualMachine); - procedure __SetPrecisionMode(AMachine: TatVirtualMachine); - procedure __GetExceptionMask(AMachine: TatVirtualMachine); - procedure __SetExceptionMask(AMachine: TatVirtualMachine); - procedure __ClearExceptions(AMachine: TatVirtualMachine); - procedure Init; override; - class function LibraryName: string; override; - end; - - EInvalidArgumentClass = class of EInvalidArgument; - - - -implementation - -{$WARNINGS OFF} - - - -procedure TatMathLibrary.__ArcCos(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcCos(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcSin(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcSin(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcTan2(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcTan2(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__SinCos(AMachine: TatVirtualMachine); - var - Param1: Extended; - Param2: Extended; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -Param2 := GetInputArg(2); - Math.SinCos(GetInputArg(0),Param1,Param2); - SetInputArg(1,Param1); - SetInputArg(2,Param2); - end; -end; - -procedure TatMathLibrary.__Tan(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Tan(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Cotan(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Cotan(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Secant(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Secant(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Cosecant(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Cosecant(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Hypot(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Hypot(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__RadToDeg(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.RadToDeg(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__RadToGrad(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.RadToGrad(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__RadToCycle(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.RadToCycle(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__DegToRad(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.DegToRad(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__DegToGrad(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.DegToGrad(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__DegToCycle(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.DegToCycle(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__GradToRad(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.GradToRad(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__GradToDeg(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.GradToDeg(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__GradToCycle(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.GradToCycle(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__CycleToRad(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.CycleToRad(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__CycleToDeg(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.CycleToDeg(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__CycleToGrad(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.CycleToGrad(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Cot(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Cot(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Sec(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Sec(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Csc(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Csc(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Cosh(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Cosh(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Sinh(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Sinh(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Tanh(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Tanh(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__CotH(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.CotH(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__SecH(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.SecH(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__CscH(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.CscH(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcCot(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcCot(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcSec(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcSec(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcCsc(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcCsc(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcCosh(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcCosh(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcSinh(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcSinh(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcTanh(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcTanh(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcCotH(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcCotH(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcSecH(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcSecH(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ArcCscH(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.ArcCscH(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__LnXP1(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.LnXP1(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Log10(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Log10(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Log2(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Log2(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__LogN(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.LogN(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__IntPower(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.IntPower(GetInputArg(0),VarToInteger(GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Power(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Power(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Frexp(AMachine: TatVirtualMachine); - var - Param1: Extended; - Param2: Integer; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -Param2 := VarToInteger(GetInputArg(2)); - Math.Frexp(GetInputArg(0),Param1,Param2); - SetInputArg(1,Param1); - SetInputArg(2,Integer(Param2)); - end; -end; - -procedure TatMathLibrary.__Ldexp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Ldexp(GetInputArg(0),VarToInteger(GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Ceil(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(Math.Ceil(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Floor(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(Math.Floor(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__RandG(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.RandG(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__IsNan(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.IsNan(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__IsInfinite(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.IsInfinite(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__RandomRange(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(Math.RandomRange(VarToInteger(GetInputArg(0)),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__DivMod(AMachine: TatVirtualMachine); - var - Param2: Word; - Param3: Word; -begin - with AMachine do - begin -Param2 := VarToInteger(GetInputArg(2)); -Param3 := VarToInteger(GetInputArg(3)); - Math.DivMod(VarToInteger(GetInputArg(0)),VarToInteger(GetInputArg(1)),Param2,Param3); - SetInputArg(2,Integer(Param2)); - SetInputArg(3,Integer(Param3)); - end; -end; - -procedure TatMathLibrary.__RoundTo(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.RoundTo(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__SimpleRoundTo(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.SimpleRoundTo(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__DoubleDecliningBalance(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.DoubleDecliningBalance(GetInputArg(0),GetInputArg(1),VarToInteger(GetInputArg(2)),VarToInteger(GetInputArg(3))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__FutureValue(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.FutureValue(GetInputArg(0),VarToInteger(GetInputArg(1)),GetInputArg(2),GetInputArg(3),GetInputArg(4)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__InterestPayment(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.InterestPayment(GetInputArg(0),VarToInteger(GetInputArg(1)),VarToInteger(GetInputArg(2)),GetInputArg(3),GetInputArg(4),GetInputArg(5)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__InterestRate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.InterestRate(VarToInteger(GetInputArg(0)),GetInputArg(1),GetInputArg(2),GetInputArg(3),GetInputArg(4)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__NumberOfPeriods(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.NumberOfPeriods(GetInputArg(0),GetInputArg(1),GetInputArg(2),GetInputArg(3),GetInputArg(4)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__Payment(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.Payment(GetInputArg(0),VarToInteger(GetInputArg(1)),GetInputArg(2),GetInputArg(3),GetInputArg(4)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__PeriodPayment(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.PeriodPayment(GetInputArg(0),VarToInteger(GetInputArg(1)),VarToInteger(GetInputArg(2)),GetInputArg(3),GetInputArg(4),GetInputArg(5)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__PresentValue(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.PresentValue(GetInputArg(0),VarToInteger(GetInputArg(1)),GetInputArg(2),GetInputArg(3),GetInputArg(4)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__SLNDepreciation(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.SLNDepreciation(GetInputArg(0),GetInputArg(1),VarToInteger(GetInputArg(2))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__SYDDepreciation(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.SYDDepreciation(GetInputArg(0),GetInputArg(1),VarToInteger(GetInputArg(2)),VarToInteger(GetInputArg(3))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__GetRoundMode(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.GetRoundMode; - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__SetRoundMode(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.SetRoundMode(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__GetPrecisionMode(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.GetPrecisionMode; - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__SetPrecisionMode(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Math.SetPrecisionMode(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__GetExceptionMask(AMachine: TatVirtualMachine); - var - AResultSet: TFPUExceptionMask; - AResult: variant; -begin - with AMachine do - begin -AResultSet := Math.GetExceptionMask; -AResult := IntFromSet(AResultSet); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__SetExceptionMask(AMachine: TatVirtualMachine); - var - Param0: TFPUExceptionMask; - AResultSet: TFPUExceptionMask; - AResult: variant; -begin - with AMachine do - begin -IntToSet(Param0,VarToInteger(GetInputArg(0))); -AResultSet := Math.SetExceptionMask(Param0); -AResult := IntFromSet(AResultSet); - ReturnOutputArg(AResult); - end; -end; - -procedure TatMathLibrary.__ClearExceptions(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - Math.ClearExceptions; - end; -end; - -procedure TatMathLibrary.Init; -begin - With Scripter.DefineClass(EInvalidArgument) do - begin - end; - With Scripter.DefineClass(ClassType) do - begin - DefineMethod('ArcCos',1,tkVariant,nil,__ArcCos,false); - DefineMethod('ArcSin',1,tkVariant,nil,__ArcSin,false); - DefineMethod('ArcTan2',2,tkVariant,nil,__ArcTan2,false); - DefineMethod('SinCos',3,tkNone,nil,__SinCos,false).SetVarArgs([1,2]); - DefineMethod('Tan',1,tkVariant,nil,__Tan,false); - DefineMethod('Cotan',1,tkVariant,nil,__Cotan,false); - DefineMethod('Secant',1,tkVariant,nil,__Secant,false); - DefineMethod('Cosecant',1,tkVariant,nil,__Cosecant,false); - DefineMethod('Hypot',2,tkVariant,nil,__Hypot,false); - DefineMethod('RadToDeg',1,tkVariant,nil,__RadToDeg,false); - DefineMethod('RadToGrad',1,tkVariant,nil,__RadToGrad,false); - DefineMethod('RadToCycle',1,tkVariant,nil,__RadToCycle,false); - DefineMethod('DegToRad',1,tkVariant,nil,__DegToRad,false); - DefineMethod('DegToGrad',1,tkVariant,nil,__DegToGrad,false); - DefineMethod('DegToCycle',1,tkVariant,nil,__DegToCycle,false); - DefineMethod('GradToRad',1,tkVariant,nil,__GradToRad,false); - DefineMethod('GradToDeg',1,tkVariant,nil,__GradToDeg,false); - DefineMethod('GradToCycle',1,tkVariant,nil,__GradToCycle,false); - DefineMethod('CycleToRad',1,tkVariant,nil,__CycleToRad,false); - DefineMethod('CycleToDeg',1,tkVariant,nil,__CycleToDeg,false); - DefineMethod('CycleToGrad',1,tkVariant,nil,__CycleToGrad,false); - DefineMethod('Cot',1,tkVariant,nil,__Cot,false); - DefineMethod('Sec',1,tkVariant,nil,__Sec,false); - DefineMethod('Csc',1,tkVariant,nil,__Csc,false); - DefineMethod('Cosh',1,tkVariant,nil,__Cosh,false); - DefineMethod('Sinh',1,tkVariant,nil,__Sinh,false); - DefineMethod('Tanh',1,tkVariant,nil,__Tanh,false); - DefineMethod('CotH',1,tkVariant,nil,__CotH,false); - DefineMethod('SecH',1,tkVariant,nil,__SecH,false); - DefineMethod('CscH',1,tkVariant,nil,__CscH,false); - DefineMethod('ArcCot',1,tkVariant,nil,__ArcCot,false); - DefineMethod('ArcSec',1,tkVariant,nil,__ArcSec,false); - DefineMethod('ArcCsc',1,tkVariant,nil,__ArcCsc,false); - DefineMethod('ArcCosh',1,tkVariant,nil,__ArcCosh,false); - DefineMethod('ArcSinh',1,tkVariant,nil,__ArcSinh,false); - DefineMethod('ArcTanh',1,tkVariant,nil,__ArcTanh,false); - DefineMethod('ArcCotH',1,tkVariant,nil,__ArcCotH,false); - DefineMethod('ArcSecH',1,tkVariant,nil,__ArcSecH,false); - DefineMethod('ArcCscH',1,tkVariant,nil,__ArcCscH,false); - DefineMethod('LnXP1',1,tkVariant,nil,__LnXP1,false); - DefineMethod('Log10',1,tkVariant,nil,__Log10,false); - DefineMethod('Log2',1,tkVariant,nil,__Log2,false); - DefineMethod('LogN',2,tkVariant,nil,__LogN,false); - DefineMethod('IntPower',2,tkVariant,nil,__IntPower,false); - DefineMethod('Power',2,tkVariant,nil,__Power,false); - DefineMethod('Frexp',3,tkNone,nil,__Frexp,false).SetVarArgs([1,2]); - DefineMethod('Ldexp',2,tkVariant,nil,__Ldexp,false); - DefineMethod('Ceil',1,tkInteger,nil,__Ceil,false); - DefineMethod('Floor',1,tkInteger,nil,__Floor,false); - DefineMethod('RandG',2,tkVariant,nil,__RandG,false); - DefineMethod('IsNan',1,tkVariant,nil,__IsNan,false); - DefineMethod('IsInfinite',1,tkVariant,nil,__IsInfinite,false); - DefineMethod('RandomRange',2,tkInteger,nil,__RandomRange,false); - DefineMethod('DivMod',4,tkNone,nil,__DivMod,false).SetVarArgs([2,3]); - DefineMethod('RoundTo',2,tkVariant,nil,__RoundTo,false); - DefineMethod('SimpleRoundTo',2,tkVariant,nil,__SimpleRoundTo,false); - DefineMethod('DoubleDecliningBalance',4,tkVariant,nil,__DoubleDecliningBalance,false); - DefineMethod('FutureValue',5,tkVariant,nil,__FutureValue,false); - DefineMethod('InterestPayment',6,tkVariant,nil,__InterestPayment,false); - DefineMethod('InterestRate',5,tkVariant,nil,__InterestRate,false); - DefineMethod('NumberOfPeriods',5,tkVariant,nil,__NumberOfPeriods,false); - DefineMethod('Payment',5,tkVariant,nil,__Payment,false); - DefineMethod('PeriodPayment',6,tkVariant,nil,__PeriodPayment,false); - DefineMethod('PresentValue',5,tkVariant,nil,__PresentValue,false); - DefineMethod('SLNDepreciation',3,tkVariant,nil,__SLNDepreciation,false); - DefineMethod('SYDDepreciation',4,tkVariant,nil,__SYDDepreciation,false); - DefineMethod('GetRoundMode',0,tkEnumeration,nil,__GetRoundMode,false); - DefineMethod('SetRoundMode',1,tkEnumeration,nil,__SetRoundMode,false); - DefineMethod('GetPrecisionMode',0,tkEnumeration,nil,__GetPrecisionMode,false); - DefineMethod('SetPrecisionMode',1,tkEnumeration,nil,__SetPrecisionMode,false); - DefineMethod('GetExceptionMask',0,tkInteger,nil,__GetExceptionMask,false); - DefineMethod('SetExceptionMask',1,tkInteger,nil,__SetExceptionMask,false); - DefineMethod('ClearExceptions',0,tkNone,nil,__ClearExceptions,false); - AddConstant('ptEndOfPeriod',ptEndOfPeriod); - AddConstant('ptStartOfPeriod',ptStartOfPeriod); - AddConstant('rmNearest',rmNearest); - AddConstant('rmDown',rmDown); - AddConstant('rmUp',rmUp); - AddConstant('rmTruncate',rmTruncate); - AddConstant('pmSingle',pmSingle); - AddConstant('pmReserved',pmReserved); - AddConstant('pmDouble',pmDouble); - AddConstant('pmExtended',pmExtended); - AddConstant('exInvalidOp',exInvalidOp); - AddConstant('exDenormalized',exDenormalized); - AddConstant('exZeroDivide',exZeroDivide); - AddConstant('exOverflow',exOverflow); - AddConstant('exUnderflow',exUnderflow); - AddConstant('exPrecision',exPrecision); - AddConstant('MinSingle',MinSingle); - AddConstant('MaxSingle',MaxSingle); - AddConstant('MinDouble',MinDouble); - AddConstant('MaxDouble',MaxDouble); - AddConstant('NaN',NaN); - AddConstant('Infinity',Infinity); - AddConstant('NegInfinity',NegInfinity); - AddConstant('NegativeValue',NegativeValue); - AddConstant('ZeroValue',ZeroValue); - AddConstant('PositiveValue',PositiveValue); - end; -end; - -class function TatMathLibrary.LibraryName: string; -begin - result := 'Math'; -end; - -initialization - RegisterScripterLibrary(TatMathLibrary, True); - -{$WARNINGS ON} - -end. diff --git a/2.02g/Source/ap_SysUtils.pas b/2.02g/Source/ap_SysUtils.pas deleted file mode 100644 index d533815..0000000 --- a/2.02g/Source/ap_SysUtils.pas +++ /dev/null @@ -1,4302 +0,0 @@ -{***************************************************************************} -{ This source code was generated automatically by } -{ Pas file import tool for Scripter Studio } -{ } -{ Scripter Studio and Pas file import tool for Scripter Studio } -{ written by Automa / TMS Software } -{ copyright © 1997 - 2003 } -{ Email : info@tmssoftware.com } -{ Web : http://www.tmssoftware.com } -{***************************************************************************} -unit ap_SysUtils; - -interface - -uses - Windows, - SysConst, - SysUtils, - Variants, - ap_Windows, - ap_System, - atScript; - -type - TatSysUtilsLibrary = class(TatScripterLibrary) - procedure __TLanguagesCreate(AMachine: TatVirtualMachine); - procedure __TLanguagesIndexOf(AMachine: TatVirtualMachine); - procedure __GetTLanguagesCount(AMachine: TatVirtualMachine); - procedure __GetTLanguagesName(AMachine: TatVirtualMachine); - procedure __GetTLanguagesNameFromLocaleID(AMachine: TatVirtualMachine); - procedure __GetTLanguagesNameFromLCID(AMachine: TatVirtualMachine); - procedure __GetTLanguagesID(AMachine: TatVirtualMachine); - procedure __GetTLanguagesLocaleID(AMachine: TatVirtualMachine); - procedure __GetTLanguagesExt(AMachine: TatVirtualMachine); - procedure __ExceptionCreate(AMachine: TatVirtualMachine); - procedure __ExceptionCreateHelp(AMachine: TatVirtualMachine); - procedure __GetExceptionHelpContext(AMachine: TatVirtualMachine); - procedure __SetExceptionHelpContext(AMachine: TatVirtualMachine); - procedure __GetExceptionMessage(AMachine: TatVirtualMachine); - procedure __SetExceptionMessage(AMachine: TatVirtualMachine); - procedure __EHeapExceptionFreeInstance(AMachine: TatVirtualMachine); - procedure __TSimpleRWSyncCreate(AMachine: TatVirtualMachine); - procedure __TSimpleRWSyncDestroy(AMachine: TatVirtualMachine); - procedure __TSimpleRWSyncBeginRead(AMachine: TatVirtualMachine); - procedure __TSimpleRWSyncEndRead(AMachine: TatVirtualMachine); - procedure __TSimpleRWSyncBeginWrite(AMachine: TatVirtualMachine); - procedure __TSimpleRWSyncEndWrite(AMachine: TatVirtualMachine); - procedure __TThreadLocalCounterCreate(AMachine: TatVirtualMachine); - procedure __TThreadLocalCounterDestroy(AMachine: TatVirtualMachine); - procedure __TMultiReadExclusiveWriteSynchronizerCreate(AMachine: TatVirtualMachine); - procedure __TMultiReadExclusiveWriteSynchronizerDestroy(AMachine: TatVirtualMachine); - procedure __TMultiReadExclusiveWriteSynchronizerBeginRead(AMachine: TatVirtualMachine); - procedure __TMultiReadExclusiveWriteSynchronizerEndRead(AMachine: TatVirtualMachine); - procedure __TMultiReadExclusiveWriteSynchronizerBeginWrite(AMachine: TatVirtualMachine); - procedure __TMultiReadExclusiveWriteSynchronizerEndWrite(AMachine: TatVirtualMachine); - procedure __GetTMultiReadExclusiveWriteSynchronizerRevisionLevel(AMachine: TatVirtualMachine); - procedure __CheckWin32Version(AMachine: TatVirtualMachine); - procedure __Languages(AMachine: TatVirtualMachine); - procedure __AppendStr(AMachine: TatVirtualMachine); - procedure __UpperCase(AMachine: TatVirtualMachine); - procedure __LowerCase(AMachine: TatVirtualMachine); - procedure __CompareStr(AMachine: TatVirtualMachine); - procedure __CompareText(AMachine: TatVirtualMachine); - procedure __SameText(AMachine: TatVirtualMachine); - procedure __AnsiUpperCase(AMachine: TatVirtualMachine); - procedure __AnsiLowerCase(AMachine: TatVirtualMachine); - procedure __AnsiCompareStr(AMachine: TatVirtualMachine); - procedure __AnsiSameStr(AMachine: TatVirtualMachine); - procedure __AnsiCompareText(AMachine: TatVirtualMachine); - procedure __AnsiSameText(AMachine: TatVirtualMachine); - procedure __AnsiStrComp(AMachine: TatVirtualMachine); - procedure __AnsiStrIComp(AMachine: TatVirtualMachine); - procedure __AnsiStrLComp(AMachine: TatVirtualMachine); - procedure __AnsiStrLIComp(AMachine: TatVirtualMachine); - procedure __AnsiStrLower(AMachine: TatVirtualMachine); - procedure __AnsiStrUpper(AMachine: TatVirtualMachine); - procedure __AnsiLastChar(AMachine: TatVirtualMachine); - procedure __AnsiStrLastChar(AMachine: TatVirtualMachine); - procedure __WideUpperCase(AMachine: TatVirtualMachine); - procedure __WideLowerCase(AMachine: TatVirtualMachine); - procedure __WideCompareStr(AMachine: TatVirtualMachine); - procedure __WideSameStr(AMachine: TatVirtualMachine); - procedure __WideCompareText(AMachine: TatVirtualMachine); - procedure __WideSameText(AMachine: TatVirtualMachine); - procedure __QuotedStr(AMachine: TatVirtualMachine); - procedure __AnsiQuotedStr(AMachine: TatVirtualMachine); - procedure __AnsiExtractQuotedStr(AMachine: TatVirtualMachine); - procedure __AnsiDequotedStr(AMachine: TatVirtualMachine); - procedure __AdjustLineBreaks(AMachine: TatVirtualMachine); - procedure __IsValidIdent(AMachine: TatVirtualMachine); - procedure __StrToInt(AMachine: TatVirtualMachine); - procedure __StrToIntDef(AMachine: TatVirtualMachine); - procedure __TryStrToInt(AMachine: TatVirtualMachine); - procedure __StrToInt64(AMachine: TatVirtualMachine); - procedure __StrToInt64Def(AMachine: TatVirtualMachine); - procedure __TryStrToInt64(AMachine: TatVirtualMachine); - procedure __StrToBool(AMachine: TatVirtualMachine); - procedure __StrToBoolDef(AMachine: TatVirtualMachine); - procedure __TryStrToBool(AMachine: TatVirtualMachine); - procedure __BoolToStr(AMachine: TatVirtualMachine); - procedure __LoadStr(AMachine: TatVirtualMachine); - procedure __FileOpen(AMachine: TatVirtualMachine); - procedure __FileRead(AMachine: TatVirtualMachine); - procedure __FileWrite(AMachine: TatVirtualMachine); - procedure __FileClose(AMachine: TatVirtualMachine); - procedure __FileAge(AMachine: TatVirtualMachine); - procedure __FileExists(AMachine: TatVirtualMachine); - procedure __DirectoryExists(AMachine: TatVirtualMachine); - procedure __ForceDirectories(AMachine: TatVirtualMachine); - procedure __FindFirst(AMachine: TatVirtualMachine); - procedure __FindNext(AMachine: TatVirtualMachine); - procedure __FindClose(AMachine: TatVirtualMachine); - procedure __FileGetDate(AMachine: TatVirtualMachine); - procedure __FileGetAttr(AMachine: TatVirtualMachine); - procedure __FileSetAttr(AMachine: TatVirtualMachine); - procedure __FileIsReadOnly(AMachine: TatVirtualMachine); - procedure __FileSetReadOnly(AMachine: TatVirtualMachine); - procedure __DeleteFile(AMachine: TatVirtualMachine); - procedure __RenameFile(AMachine: TatVirtualMachine); - procedure __ChangeFileExt(AMachine: TatVirtualMachine); - procedure __ExtractFilePath(AMachine: TatVirtualMachine); - procedure __ExtractFileDir(AMachine: TatVirtualMachine); - procedure __ExtractFileDrive(AMachine: TatVirtualMachine); - procedure __ExtractFileName(AMachine: TatVirtualMachine); - procedure __ExtractFileExt(AMachine: TatVirtualMachine); - procedure __ExpandFileName(AMachine: TatVirtualMachine); - procedure __ExpandFileNameCase(AMachine: TatVirtualMachine); - procedure __ExpandUNCFileName(AMachine: TatVirtualMachine); - procedure __ExtractRelativePath(AMachine: TatVirtualMachine); - procedure __ExtractShortPathName(AMachine: TatVirtualMachine); - procedure __FileSearch(AMachine: TatVirtualMachine); - procedure __DiskFree(AMachine: TatVirtualMachine); - procedure __DiskSize(AMachine: TatVirtualMachine); - procedure __FileDateToDateTime(AMachine: TatVirtualMachine); - procedure __DateTimeToFileDate(AMachine: TatVirtualMachine); - procedure __GetCurrentDir(AMachine: TatVirtualMachine); - procedure __SetCurrentDir(AMachine: TatVirtualMachine); - procedure __CreateDir(AMachine: TatVirtualMachine); - procedure __RemoveDir(AMachine: TatVirtualMachine); - procedure __StrLen(AMachine: TatVirtualMachine); - procedure __StrEnd(AMachine: TatVirtualMachine); - procedure __StrMove(AMachine: TatVirtualMachine); - procedure __StrCopy(AMachine: TatVirtualMachine); - procedure __StrECopy(AMachine: TatVirtualMachine); - procedure __StrLCopy(AMachine: TatVirtualMachine); - procedure __StrPCopy(AMachine: TatVirtualMachine); - procedure __StrPLCopy(AMachine: TatVirtualMachine); - procedure __StrCat(AMachine: TatVirtualMachine); - procedure __StrLCat(AMachine: TatVirtualMachine); - procedure __StrComp(AMachine: TatVirtualMachine); - procedure __StrIComp(AMachine: TatVirtualMachine); - procedure __StrLComp(AMachine: TatVirtualMachine); - procedure __StrLIComp(AMachine: TatVirtualMachine); - procedure __StrScan(AMachine: TatVirtualMachine); - procedure __StrRScan(AMachine: TatVirtualMachine); - procedure __StrPos(AMachine: TatVirtualMachine); - procedure __StrUpper(AMachine: TatVirtualMachine); - procedure __StrLower(AMachine: TatVirtualMachine); - procedure __StrPas(AMachine: TatVirtualMachine); - procedure __StrAlloc(AMachine: TatVirtualMachine); - procedure __StrBufSize(AMachine: TatVirtualMachine); - procedure __StrNew(AMachine: TatVirtualMachine); - procedure __StrDispose(AMachine: TatVirtualMachine); - procedure __FloatToStr(AMachine: TatVirtualMachine); - procedure __CurrToStr(AMachine: TatVirtualMachine); - procedure __FloatToCurr(AMachine: TatVirtualMachine); - procedure __TryFloatToCurr(AMachine: TatVirtualMachine); - procedure __FloatToStrF(AMachine: TatVirtualMachine); - procedure __CurrToStrF(AMachine: TatVirtualMachine); - procedure __FloatToText(AMachine: TatVirtualMachine); - procedure __FormatFloat(AMachine: TatVirtualMachine); - procedure __FormatCurr(AMachine: TatVirtualMachine); - procedure __FloatToTextFmt(AMachine: TatVirtualMachine); - procedure __StrToFloat(AMachine: TatVirtualMachine); - procedure __StrToFloatDef(AMachine: TatVirtualMachine); - procedure __StrToCurr(AMachine: TatVirtualMachine); - procedure __StrToCurrDef(AMachine: TatVirtualMachine); - procedure __TryStrToCurr(AMachine: TatVirtualMachine); - procedure __TextToFloat(AMachine: TatVirtualMachine); - procedure __FloatToDecimal(AMachine: TatVirtualMachine); - procedure __DateTimeToTimeStamp(AMachine: TatVirtualMachine); - procedure __TimeStampToDateTime(AMachine: TatVirtualMachine); - procedure __MSecsToTimeStamp(AMachine: TatVirtualMachine); - procedure __TimeStampToMSecs(AMachine: TatVirtualMachine); - procedure __EncodeDate(AMachine: TatVirtualMachine); - procedure __EncodeTime(AMachine: TatVirtualMachine); - procedure __TryEncodeDate(AMachine: TatVirtualMachine); - procedure __TryEncodeTime(AMachine: TatVirtualMachine); - procedure __DecodeDate(AMachine: TatVirtualMachine); - procedure __DecodeDateFully(AMachine: TatVirtualMachine); - procedure __DecodeTime(AMachine: TatVirtualMachine); - procedure __DateTimeToSystemTime(AMachine: TatVirtualMachine); - procedure __SystemTimeToDateTime(AMachine: TatVirtualMachine); - procedure __DayOfWeek(AMachine: TatVirtualMachine); - procedure __Date(AMachine: TatVirtualMachine); - procedure __Time(AMachine: TatVirtualMachine); - procedure __Now(AMachine: TatVirtualMachine); - procedure __CurrentYear(AMachine: TatVirtualMachine); - procedure __IncMonth(AMachine: TatVirtualMachine); - procedure __IncAMonth(AMachine: TatVirtualMachine); - procedure __ReplaceTime(AMachine: TatVirtualMachine); - procedure __ReplaceDate(AMachine: TatVirtualMachine); - procedure __IsLeapYear(AMachine: TatVirtualMachine); - procedure __DateToStr(AMachine: TatVirtualMachine); - procedure __TimeToStr(AMachine: TatVirtualMachine); - procedure __DateTimeToStr(AMachine: TatVirtualMachine); - procedure __StrToDate(AMachine: TatVirtualMachine); - procedure __StrToDateDef(AMachine: TatVirtualMachine); - procedure __TryStrToDate(AMachine: TatVirtualMachine); - procedure __StrToTime(AMachine: TatVirtualMachine); - procedure __StrToTimeDef(AMachine: TatVirtualMachine); - procedure __TryStrToTime(AMachine: TatVirtualMachine); - procedure __StrToDateTime(AMachine: TatVirtualMachine); - procedure __StrToDateTimeDef(AMachine: TatVirtualMachine); - procedure __TryStrToDateTime(AMachine: TatVirtualMachine); - procedure __FormatDateTime(AMachine: TatVirtualMachine); - procedure __DateTimeToString(AMachine: TatVirtualMachine); - procedure __FloatToDateTime(AMachine: TatVirtualMachine); - procedure __TryFloatToDateTime(AMachine: TatVirtualMachine); - procedure __SysErrorMessage(AMachine: TatVirtualMachine); - procedure __GetLocaleStr(AMachine: TatVirtualMachine); - procedure __GetLocaleChar(AMachine: TatVirtualMachine); - procedure __GetFormatSettings(AMachine: TatVirtualMachine); - procedure __Sleep(AMachine: TatVirtualMachine); - procedure __GetModuleName(AMachine: TatVirtualMachine); - procedure __Abort(AMachine: TatVirtualMachine); - procedure __OutOfMemoryError(AMachine: TatVirtualMachine); - procedure __Beep(AMachine: TatVirtualMachine); - procedure __ByteType(AMachine: TatVirtualMachine); - procedure __StrByteType(AMachine: TatVirtualMachine); - procedure __ByteToCharLen(AMachine: TatVirtualMachine); - procedure __CharToByteLen(AMachine: TatVirtualMachine); - procedure __ByteToCharIndex(AMachine: TatVirtualMachine); - procedure __CharToByteIndex(AMachine: TatVirtualMachine); - procedure __StrCharLength(AMachine: TatVirtualMachine); - procedure __StrNextChar(AMachine: TatVirtualMachine); - procedure __CharLength(AMachine: TatVirtualMachine); - procedure __NextCharIndex(AMachine: TatVirtualMachine); - procedure __IsPathDelimiter(AMachine: TatVirtualMachine); - procedure __IsDelimiter(AMachine: TatVirtualMachine); - procedure __IncludeTrailingPathDelimiter(AMachine: TatVirtualMachine); - procedure __IncludeTrailingBackslash(AMachine: TatVirtualMachine); - procedure __ExcludeTrailingPathDelimiter(AMachine: TatVirtualMachine); - procedure __ExcludeTrailingBackslash(AMachine: TatVirtualMachine); - procedure __LastDelimiter(AMachine: TatVirtualMachine); - procedure __AnsiCompareFileName(AMachine: TatVirtualMachine); - procedure __SameFileName(AMachine: TatVirtualMachine); - procedure __AnsiLowerCaseFileName(AMachine: TatVirtualMachine); - procedure __AnsiUpperCaseFileName(AMachine: TatVirtualMachine); - procedure __AnsiPos(AMachine: TatVirtualMachine); - procedure __AnsiStrPos(AMachine: TatVirtualMachine); - procedure __AnsiStrRScan(AMachine: TatVirtualMachine); - procedure __AnsiStrScan(AMachine: TatVirtualMachine); - procedure __StringReplace(AMachine: TatVirtualMachine); - procedure __FreeAndNil(AMachine: TatVirtualMachine); - procedure __CreateGUID(AMachine: TatVirtualMachine); - procedure __StringToGUID(AMachine: TatVirtualMachine); - procedure __GUIDToString(AMachine: TatVirtualMachine); - procedure __IsEqualGUID(AMachine: TatVirtualMachine); - procedure __LoadPackage(AMachine: TatVirtualMachine); - procedure __UnloadPackage(AMachine: TatVirtualMachine); - procedure __GetPackageDescription(AMachine: TatVirtualMachine); - procedure __InitializePackage(AMachine: TatVirtualMachine); - procedure __FinalizePackage(AMachine: TatVirtualMachine); - procedure __RaiseLastOSError(AMachine: TatVirtualMachine); - procedure __RaiseLastWin32Error(AMachine: TatVirtualMachine); - procedure __Win32Check(AMachine: TatVirtualMachine); - procedure __CallTerminateProcs(AMachine: TatVirtualMachine); - procedure __GDAL(AMachine: TatVirtualMachine); - procedure __RCS(AMachine: TatVirtualMachine); - procedure __RPR(AMachine: TatVirtualMachine); - procedure __SafeLoadLibrary(AMachine: TatVirtualMachine); - procedure __GetEmptyStr(AMachine: TatVirtualMachine); - procedure __SetEmptyStr(AMachine: TatVirtualMachine); - procedure __GetEmptyWideStr(AMachine: TatVirtualMachine); - procedure __SetEmptyWideStr(AMachine: TatVirtualMachine); - procedure __GetWin32Platform(AMachine: TatVirtualMachine); - procedure __SetWin32Platform(AMachine: TatVirtualMachine); - procedure __GetWin32MajorVersion(AMachine: TatVirtualMachine); - procedure __SetWin32MajorVersion(AMachine: TatVirtualMachine); - procedure __GetWin32MinorVersion(AMachine: TatVirtualMachine); - procedure __SetWin32MinorVersion(AMachine: TatVirtualMachine); - procedure __GetWin32BuildNumber(AMachine: TatVirtualMachine); - procedure __SetWin32BuildNumber(AMachine: TatVirtualMachine); - procedure __GetWin32CSDVersion(AMachine: TatVirtualMachine); - procedure __SetWin32CSDVersion(AMachine: TatVirtualMachine); - procedure __GetCurrencyString(AMachine: TatVirtualMachine); - procedure __SetCurrencyString(AMachine: TatVirtualMachine); - procedure __GetCurrencyFormat(AMachine: TatVirtualMachine); - procedure __SetCurrencyFormat(AMachine: TatVirtualMachine); - procedure __GetNegCurrFormat(AMachine: TatVirtualMachine); - procedure __SetNegCurrFormat(AMachine: TatVirtualMachine); - procedure __GetThousandSeparator(AMachine: TatVirtualMachine); - procedure __SetThousandSeparator(AMachine: TatVirtualMachine); - procedure __GetDecimalSeparator(AMachine: TatVirtualMachine); - procedure __SetDecimalSeparator(AMachine: TatVirtualMachine); - procedure __GetCurrencyDecimals(AMachine: TatVirtualMachine); - procedure __SetCurrencyDecimals(AMachine: TatVirtualMachine); - procedure __GetDateSeparator(AMachine: TatVirtualMachine); - procedure __SetDateSeparator(AMachine: TatVirtualMachine); - procedure __GetShortDateFormat(AMachine: TatVirtualMachine); - procedure __SetShortDateFormat(AMachine: TatVirtualMachine); - procedure __GetLongDateFormat(AMachine: TatVirtualMachine); - procedure __SetLongDateFormat(AMachine: TatVirtualMachine); - procedure __GetTimeSeparator(AMachine: TatVirtualMachine); - procedure __SetTimeSeparator(AMachine: TatVirtualMachine); - procedure __GetTimeAMString(AMachine: TatVirtualMachine); - procedure __SetTimeAMString(AMachine: TatVirtualMachine); - procedure __GetTimePMString(AMachine: TatVirtualMachine); - procedure __SetTimePMString(AMachine: TatVirtualMachine); - procedure __GetShortTimeFormat(AMachine: TatVirtualMachine); - procedure __SetShortTimeFormat(AMachine: TatVirtualMachine); - procedure __GetLongTimeFormat(AMachine: TatVirtualMachine); - procedure __SetLongTimeFormat(AMachine: TatVirtualMachine); - procedure __GetSysLocale(AMachine: TatVirtualMachine); - procedure __SetSysLocale(AMachine: TatVirtualMachine); - procedure __GetTwoDigitYearCenturyWindow(AMachine: TatVirtualMachine); - procedure __SetTwoDigitYearCenturyWindow(AMachine: TatVirtualMachine); - procedure __GetListSeparator(AMachine: TatVirtualMachine); - procedure __SetListSeparator(AMachine: TatVirtualMachine); - procedure __GetMinCurrency(AMachine: TatVirtualMachine); - procedure __GetMaxCurrency(AMachine: TatVirtualMachine); - procedure __GetMinDateTime(AMachine: TatVirtualMachine); - procedure __GetMaxDateTime(AMachine: TatVirtualMachine); - procedure __GetLeadBytes(AMachine: TatVirtualMachine); - procedure __SetLeadBytes(AMachine: TatVirtualMachine); - procedure __GetHexDisplayPrefix(AMachine: TatVirtualMachine); - procedure __SetHexDisplayPrefix(AMachine: TatVirtualMachine); - procedure Init; override; - class function LibraryName: string; override; - end; - - TLanguagesClass = class of TLanguages; - ExceptionClass = class of Exception; - EAbortClass = class of EAbort; - EHeapExceptionClass = class of EHeapException; - EOutOfMemoryClass = class of EOutOfMemory; - EInOutErrorClass = class of EInOutError; - EExternalClass = class of EExternal; - EExternalExceptionClass = class of EExternalException; - EIntErrorClass = class of EIntError; - EDivByZeroClass = class of EDivByZero; - ERangeErrorClass = class of ERangeError; - EIntOverflowClass = class of EIntOverflow; - EMathErrorClass = class of EMathError; - EInvalidOpClass = class of EInvalidOp; - EZeroDivideClass = class of EZeroDivide; - EOverflowClass = class of EOverflow; - EUnderflowClass = class of EUnderflow; - EInvalidPointerClass = class of EInvalidPointer; - EInvalidCastClass = class of EInvalidCast; - EConvertErrorClass = class of EConvertError; - EAccessViolationClass = class of EAccessViolation; - EPrivilegeClass = class of EPrivilege; - EStackOverflowClass = class of EStackOverflow; - EControlCClass = class of EControlC; - EVariantErrorClass = class of EVariantError; - EPropReadOnlyClass = class of EPropReadOnly; - EPropWriteOnlyClass = class of EPropWriteOnly; - EAssertionFailedClass = class of EAssertionFailed; - EAbstractErrorClass = class of EAbstractError; - EIntfCastErrorClass = class of EIntfCastError; - EInvalidContainerClass = class of EInvalidContainer; - EInvalidInsertClass = class of EInvalidInsert; - EPackageErrorClass = class of EPackageError; - EOSErrorClass = class of EOSError; - EWin32ErrorClass = class of EWin32Error; - ESafecallExceptionClass = class of ESafecallException; - TSimpleRWSyncClass = class of TSimpleRWSync; - TThreadLocalCounterClass = class of TThreadLocalCounter; - TMultiReadExclusiveWriteSynchronizerClass = class of TMultiReadExclusiveWriteSynchronizer; - TMREWSyncClass = class of TMREWSync; - - - WordRecWrapper = class(TatRecordWrapper) - private - FLo: Byte; - FHi: Byte; - public - constructor Create(ARecord: WordRec); - function ObjToRec: WordRec; - published - property Lo: Byte read FLo write FLo; - property Hi: Byte read FHi write FHi; - end; - - LongRecWrapper = class(TatRecordWrapper) - private - FLo: Word; - FHi: Word; - public - constructor Create(ARecord: LongRec); - function ObjToRec: LongRec; - published - property Lo: Word read FLo write FLo; - property Hi: Word read FHi write FHi; - end; - - Int64RecWrapper = class(TatRecordWrapper) - private - FLo: Cardinal; - FHi: Cardinal; - public - constructor Create(ARecord: Int64Rec); - function ObjToRec: Int64Rec; - published - property Lo: Cardinal read FLo write FLo; - property Hi: Cardinal read FHi write FHi; - end; - - TSearchRecWrapper = class(TatRecordWrapper) - private - FTime: Integer; - FSize: Integer; - FAttr: Integer; - FName: TFileName; - FExcludeAttr: Integer; - FFindHandle: THandle; - public - constructor Create(ARecord: TSearchRec); - function ObjToRec: TSearchRec; - published - property Time: Integer read FTime write FTime; - property Size: Integer read FSize write FSize; - property Attr: Integer read FAttr write FAttr; - property Name: TFileName read FName write FName; - property ExcludeAttr: Integer read FExcludeAttr write FExcludeAttr; - property FindHandle: THandle read FFindHandle write FFindHandle; - end; - - TFloatRecWrapper = class(TatRecordWrapper) - private - FExponent: Smallint; - FNegative: Boolean; - public - constructor Create(ARecord: TFloatRec); - function ObjToRec: TFloatRec; - published - property Exponent: Smallint read FExponent write FExponent; - property Negative: Boolean read FNegative write FNegative; - end; - - TTimeStampWrapper = class(TatRecordWrapper) - private - FTime: Integer; - FDate: Integer; - public - constructor Create(ARecord: TTimeStamp); - function ObjToRec: TTimeStamp; - published - property Time: Integer read FTime write FTime; - property Date: Integer read FDate write FDate; - end; - - TSysLocaleWrapper = class(TatRecordWrapper) - private - FDefaultLCID: Integer; - FPriLangID: Integer; - FSubLangID: Integer; - FFarEast: Boolean; - FMiddleEast: Boolean; - public - constructor Create(ARecord: TSysLocale); - function ObjToRec: TSysLocale; - published - property DefaultLCID: Integer read FDefaultLCID write FDefaultLCID; - property PriLangID: Integer read FPriLangID write FPriLangID; - property SubLangID: Integer read FSubLangID write FSubLangID; - property FarEast: Boolean read FFarEast write FFarEast; - property MiddleEast: Boolean read FMiddleEast write FMiddleEast; - end; - - TLangRecWrapper = class(TatRecordWrapper) - private - FFName: string; - FFLCID: LCID; - FFExt: string; - public - constructor Create(ARecord: TLangRec); - function ObjToRec: TLangRec; - published - property FName: string read FFName write FFName; - property FLCID: LCID read FFLCID write FFLCID; - property FExt: string read FFExt write FFExt; - end; - - TExceptionRecordWrapper = class(TatRecordWrapper) - private - FExceptionCode: Cardinal; - FExceptionFlags: Cardinal; - FNumberParameters: Cardinal; - public - constructor Create(ARecord: TExceptionRecord); - function ObjToRec: TExceptionRecord; - published - property ExceptionCode: Cardinal read FExceptionCode write FExceptionCode; - property ExceptionFlags: Cardinal read FExceptionFlags write FExceptionFlags; - property NumberParameters: Cardinal read FNumberParameters write FNumberParameters; - end; - - TThreadInfoWrapper = class(TatRecordWrapper) - private - FThreadID: Cardinal; - FRecursionCount: Cardinal; - public - constructor Create(ARecord: TThreadInfo); - function ObjToRec: TThreadInfo; - published - property ThreadID: Cardinal read FThreadID write FThreadID; - property RecursionCount: Cardinal read FRecursionCount write FRecursionCount; - end; - - -implementation - -{$WARNINGS OFF} - -constructor WordRecWrapper.Create(ARecord: WordRec); -begin - inherited Create; - FLo := ARecord.Lo; - FHi := ARecord.Hi; -end; - -function WordRecWrapper.ObjToRec: WordRec; -begin - result.Lo := FLo; - result.Hi := FHi; -end; - -constructor LongRecWrapper.Create(ARecord: LongRec); -begin - inherited Create; - FLo := ARecord.Lo; - FHi := ARecord.Hi; -end; - -function LongRecWrapper.ObjToRec: LongRec; -begin - result.Lo := FLo; - result.Hi := FHi; -end; - -constructor Int64RecWrapper.Create(ARecord: Int64Rec); -begin - inherited Create; - FLo := ARecord.Lo; - FHi := ARecord.Hi; -end; - -function Int64RecWrapper.ObjToRec: Int64Rec; -begin - result.Lo := FLo; - result.Hi := FHi; -end; - -constructor TSearchRecWrapper.Create(ARecord: TSearchRec); -begin - inherited Create; - FTime := ARecord.Time; - FSize := ARecord.Size; - FAttr := ARecord.Attr; - FName := ARecord.Name; - FExcludeAttr := ARecord.ExcludeAttr; - FFindHandle := ARecord.FindHandle; -end; - -function TSearchRecWrapper.ObjToRec: TSearchRec; -begin - result.Time := FTime; - result.Size := FSize; - result.Attr := FAttr; - result.Name := FName; - result.ExcludeAttr := FExcludeAttr; - result.FindHandle := FFindHandle; -end; - -constructor TFloatRecWrapper.Create(ARecord: TFloatRec); -begin - inherited Create; - FExponent := ARecord.Exponent; - FNegative := ARecord.Negative; -end; - -function TFloatRecWrapper.ObjToRec: TFloatRec; -begin - result.Exponent := FExponent; - result.Negative := FNegative; -end; - -constructor TTimeStampWrapper.Create(ARecord: TTimeStamp); -begin - inherited Create; - FTime := ARecord.Time; - FDate := ARecord.Date; -end; - -function TTimeStampWrapper.ObjToRec: TTimeStamp; -begin - result.Time := FTime; - result.Date := FDate; -end; - -constructor TSysLocaleWrapper.Create(ARecord: TSysLocale); -begin - inherited Create; - FDefaultLCID := ARecord.DefaultLCID; - FPriLangID := ARecord.PriLangID; - FSubLangID := ARecord.SubLangID; - FFarEast := ARecord.FarEast; - FMiddleEast := ARecord.MiddleEast; -end; - -function TSysLocaleWrapper.ObjToRec: TSysLocale; -begin - result.DefaultLCID := FDefaultLCID; - result.PriLangID := FPriLangID; - result.SubLangID := FSubLangID; - result.FarEast := FFarEast; - result.MiddleEast := FMiddleEast; -end; - -constructor TLangRecWrapper.Create(ARecord: TLangRec); -begin - inherited Create; - FFName := ARecord.FName; - FFLCID := ARecord.FLCID; - FFExt := ARecord.FExt; -end; - -function TLangRecWrapper.ObjToRec: TLangRec; -begin - result.FName := FFName; - result.FLCID := FFLCID; - result.FExt := FFExt; -end; - -constructor TExceptionRecordWrapper.Create(ARecord: TExceptionRecord); -begin - inherited Create; - FExceptionCode := ARecord.ExceptionCode; - FExceptionFlags := ARecord.ExceptionFlags; - FNumberParameters := ARecord.NumberParameters; -end; - -function TExceptionRecordWrapper.ObjToRec: TExceptionRecord; -begin - result.ExceptionCode := FExceptionCode; - result.ExceptionFlags := FExceptionFlags; - result.NumberParameters := FNumberParameters; -end; - -constructor TThreadInfoWrapper.Create(ARecord: TThreadInfo); -begin - inherited Create; - FThreadID := ARecord.ThreadID; - FRecursionCount := ARecord.RecursionCount; -end; - -function TThreadInfoWrapper.ObjToRec: TThreadInfo; -begin - result.ThreadID := FThreadID; - result.RecursionCount := FRecursionCount; -end; - - - -procedure TatSysUtilsLibrary.__TLanguagesCreate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TLanguagesClass(CurrentClass.ClassRef).Create); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TLanguagesIndexOf(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TLanguages(CurrentObject).IndexOf(VarToInteger(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__GetTLanguagesCount(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(TLanguages(CurrentObject).Count)); - end; -end; - -procedure TatSysUtilsLibrary.__GetTLanguagesName(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TLanguages(CurrentObject).Name[VarToInteger(GetArrayIndex(0))]); - end; -end; - -procedure TatSysUtilsLibrary.__GetTLanguagesNameFromLocaleID(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TLanguages(CurrentObject).NameFromLocaleID[VarToInteger(GetArrayIndex(0))]); - end; -end; - -procedure TatSysUtilsLibrary.__GetTLanguagesNameFromLCID(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TLanguages(CurrentObject).NameFromLCID[GetArrayIndex(0)]); - end; -end; - -procedure TatSysUtilsLibrary.__GetTLanguagesID(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TLanguages(CurrentObject).ID[VarToInteger(GetArrayIndex(0))]); - end; -end; - -procedure TatSysUtilsLibrary.__GetTLanguagesLocaleID(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(TLanguages(CurrentObject).LocaleID[VarToInteger(GetArrayIndex(0))])); - end; -end; - -procedure TatSysUtilsLibrary.__GetTLanguagesExt(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(TLanguages(CurrentObject).Ext[VarToInteger(GetArrayIndex(0))]); - end; -end; - -procedure TatSysUtilsLibrary.__ExceptionCreate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(ExceptionClass(CurrentClass.ClassRef).Create(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExceptionCreateHelp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(ExceptionClass(CurrentClass.ClassRef).CreateHelp(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__GetExceptionHelpContext(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(Exception(CurrentObject).HelpContext)); - end; -end; - -procedure TatSysUtilsLibrary.__SetExceptionHelpContext(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - Exception(CurrentObject).HelpContext:=VarToInteger(GetInputArg(0)); - end; -end; - -procedure TatSysUtilsLibrary.__GetExceptionMessage(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Exception(CurrentObject).Message); - end; -end; - -procedure TatSysUtilsLibrary.__SetExceptionMessage(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - Exception(CurrentObject).Message:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__EHeapExceptionFreeInstance(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - EHeapException(CurrentObject).FreeInstance; - end; -end; - -procedure TatSysUtilsLibrary.__TSimpleRWSyncCreate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TSimpleRWSyncClass(CurrentClass.ClassRef).Create); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TSimpleRWSyncDestroy(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TSimpleRWSync(CurrentObject).Destroy; - end; -end; - -procedure TatSysUtilsLibrary.__TSimpleRWSyncBeginRead(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TSimpleRWSync(CurrentObject).BeginRead; - end; -end; - -procedure TatSysUtilsLibrary.__TSimpleRWSyncEndRead(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TSimpleRWSync(CurrentObject).EndRead; - end; -end; - -procedure TatSysUtilsLibrary.__TSimpleRWSyncBeginWrite(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := TSimpleRWSync(CurrentObject).BeginWrite; - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TSimpleRWSyncEndWrite(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TSimpleRWSync(CurrentObject).EndWrite; - end; -end; - -procedure TatSysUtilsLibrary.__TThreadLocalCounterCreate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TThreadLocalCounterClass(CurrentClass.ClassRef).Create); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TThreadLocalCounterDestroy(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TThreadLocalCounter(CurrentObject).Destroy; - end; -end; - -procedure TatSysUtilsLibrary.__TMultiReadExclusiveWriteSynchronizerCreate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(TMultiReadExclusiveWriteSynchronizerClass(CurrentClass.ClassRef).Create); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TMultiReadExclusiveWriteSynchronizerDestroy(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TMultiReadExclusiveWriteSynchronizer(CurrentObject).Destroy; - end; -end; - -procedure TatSysUtilsLibrary.__TMultiReadExclusiveWriteSynchronizerBeginRead(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TMultiReadExclusiveWriteSynchronizer(CurrentObject).BeginRead; - end; -end; - -procedure TatSysUtilsLibrary.__TMultiReadExclusiveWriteSynchronizerEndRead(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TMultiReadExclusiveWriteSynchronizer(CurrentObject).EndRead; - end; -end; - -procedure TatSysUtilsLibrary.__TMultiReadExclusiveWriteSynchronizerBeginWrite(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := TMultiReadExclusiveWriteSynchronizer(CurrentObject).BeginWrite; - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TMultiReadExclusiveWriteSynchronizerEndWrite(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - TMultiReadExclusiveWriteSynchronizer(CurrentObject).EndWrite; - end; -end; - -procedure TatSysUtilsLibrary.__GetTMultiReadExclusiveWriteSynchronizerRevisionLevel(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(TMultiReadExclusiveWriteSynchronizer(CurrentObject).RevisionLevel)); - end; -end; - -procedure TatSysUtilsLibrary.__CheckWin32Version(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.CheckWin32Version(VarToInteger(GetInputArg(0)),VarToInteger(GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__Languages(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.Languages); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AppendStr(AMachine: TatVirtualMachine); - var - Param0: string; -begin - with AMachine do - begin -Param0 := GetInputArg(0); - SysUtils.AppendStr(Param0,GetInputArg(1)); - SetInputArg(0,Param0); - end; -end; - -procedure TatSysUtilsLibrary.__UpperCase(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.UpperCase(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__LowerCase(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.LowerCase(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CompareStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.CompareStr(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CompareText(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.CompareText(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__SameText(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.SameText(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiUpperCase(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.AnsiUpperCase(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiLowerCase(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.AnsiLowerCase(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiCompareStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.AnsiCompareStr(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiSameStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.AnsiSameStr(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiCompareText(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.AnsiCompareText(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiSameText(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.AnsiSameText(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrComp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.AnsiStrComp(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrIComp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.AnsiStrIComp(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrLComp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.AnsiStrLComp(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))),VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrLIComp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.AnsiStrLIComp(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))),VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrLower(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.AnsiStrLower(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrUpper(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.AnsiStrUpper(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiLastChar(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.AnsiLastChar(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrLastChar(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.AnsiStrLastChar(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__WideUpperCase(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.WideUpperCase(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__WideLowerCase(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.WideLowerCase(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__WideCompareStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.WideCompareStr(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__WideSameStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.WideSameStr(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__WideCompareText(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.WideCompareText(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__WideSameText(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.WideSameText(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__QuotedStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.QuotedStr(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiQuotedStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.AnsiQuotedStr(GetInputArg(0),VarToStr(GetInputArg(1))[1]); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiExtractQuotedStr(AMachine: TatVirtualMachine); - var - Param0: PChar; - AResult: variant; -begin - with AMachine do - begin -Param0 := PChar(VarToStr(GetInputArg(0))); -AResult := SysUtils.AnsiExtractQuotedStr(Param0,VarToStr(GetInputArg(1))[1]); - ReturnOutputArg(AResult); - SetInputArg(0,string(Param0)); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiDequotedStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.AnsiDequotedStr(GetInputArg(0),VarToStr(GetInputArg(1))[1]); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AdjustLineBreaks(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.AdjustLineBreaks(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__IsValidIdent(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.IsValidIdent(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToInt(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrToInt(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToIntDef(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrToIntDef(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryStrToInt(AMachine: TatVirtualMachine); - var - Param1: Integer; - AResult: variant; -begin - with AMachine do - begin -Param1 := VarToInteger(GetInputArg(1)); -AResult := SysUtils.TryStrToInt(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToInt64(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrToInt64(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToInt64Def(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrToInt64Def(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryStrToInt64(AMachine: TatVirtualMachine); - var - Param1: Int64; - AResult: variant; -begin - with AMachine do - begin -Param1 := VarToInteger(GetInputArg(1)); -AResult := SysUtils.TryStrToInt64(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToBool(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToBool(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToBoolDef(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToBoolDef(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryStrToBool(AMachine: TatVirtualMachine); - var - Param1: Boolean; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := SysUtils.TryStrToBool(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__BoolToStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.BoolToStr(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__LoadStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.LoadStr(VarToInteger(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileOpen(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.FileOpen(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileRead(AMachine: TatVirtualMachine); - var - Param1: Variant; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := Integer(SysUtils.FileRead(VarToInteger(GetInputArg(0)),Param1,VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - SetInputArg(1,Param1); - end; -end; - -procedure TatSysUtilsLibrary.__FileWrite(AMachine: TatVirtualMachine); - var - Param1: Variant; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := Integer(SysUtils.FileWrite(VarToInteger(GetInputArg(0)),Param1,VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileClose(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.FileClose(VarToInteger(GetInputArg(0))); - end; -end; - -procedure TatSysUtilsLibrary.__FileAge(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.FileAge(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileExists(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FileExists(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DirectoryExists(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.DirectoryExists(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ForceDirectories(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ForceDirectories(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FindFirst(AMachine: TatVirtualMachine); - var - Param2: TSearchRec; - AResult: variant; -begin - with AMachine do - begin -Param2 := TSearchRecWrapper(integer(GetInputArg(2))).ObjToRec; -AResult := Integer(SysUtils.FindFirst(GetInputArg(0),VarToInteger(GetInputArg(1)),Param2)); - ReturnOutputArg(AResult); - SetInputArg(2,integer(TSearchRecWrapper.Create(Param2))); - end; -end; - -procedure TatSysUtilsLibrary.__FindNext(AMachine: TatVirtualMachine); - var - Param0: TSearchRec; - AResult: variant; -begin - with AMachine do - begin -Param0 := TSearchRecWrapper(integer(GetInputArg(0))).ObjToRec; -AResult := Integer(SysUtils.FindNext(Param0)); - ReturnOutputArg(AResult); - SetInputArg(0,integer(TSearchRecWrapper.Create(Param0))); - end; -end; - -procedure TatSysUtilsLibrary.__FindClose(AMachine: TatVirtualMachine); - var - Param0: TSearchRec; -begin - with AMachine do - begin -Param0 := TSearchRecWrapper(integer(GetInputArg(0))).ObjToRec; - SysUtils.FindClose(Param0); - SetInputArg(0,integer(TSearchRecWrapper.Create(Param0))); - end; -end; - -procedure TatSysUtilsLibrary.__FileGetDate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.FileGetDate(VarToInteger(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileGetAttr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.FileGetAttr(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileSetAttr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.FileSetAttr(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileIsReadOnly(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FileIsReadOnly(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileSetReadOnly(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FileSetReadOnly(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DeleteFile(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.DeleteFile(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__RenameFile(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.RenameFile(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ChangeFileExt(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ChangeFileExt(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExtractFilePath(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExtractFilePath(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExtractFileDir(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExtractFileDir(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExtractFileDrive(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExtractFileDrive(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExtractFileName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExtractFileName(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExtractFileExt(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExtractFileExt(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExpandFileName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExpandFileName(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExpandFileNameCase(AMachine: TatVirtualMachine); - var - Param1: TFilenameCaseMatch; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := SysUtils.ExpandFileNameCase(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExpandUNCFileName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExpandUNCFileName(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExtractRelativePath(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExtractRelativePath(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExtractShortPathName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExtractShortPathName(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileSearch(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FileSearch(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DiskFree(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.DiskFree(VarToInteger(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DiskSize(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.DiskSize(VarToInteger(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FileDateToDateTime(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FileDateToDateTime(VarToInteger(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DateTimeToFileDate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.DateTimeToFileDate(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__GetCurrentDir(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.GetCurrentDir; - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__SetCurrentDir(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.SetCurrentDir(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CreateDir(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.CreateDir(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__RemoveDir(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.RemoveDir(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrLen(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrLen(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrEnd(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrEnd(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrMove(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrMove(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))),VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrCopy(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrCopy(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrECopy(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrECopy(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrLCopy(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrLCopy(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))),VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrPCopy(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrPCopy(PChar(VarToStr(GetInputArg(0))),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrPLCopy(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrPLCopy(PChar(VarToStr(GetInputArg(0))),GetInputArg(1),VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrCat(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrCat(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrLCat(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrLCat(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))),VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrComp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrComp(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrIComp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrIComp(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrLComp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrLComp(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))),VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrLIComp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrLIComp(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))),VarToInteger(GetInputArg(2)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrScan(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrScan(PChar(VarToStr(GetInputArg(0))),VarToStr(GetInputArg(1))[1])); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrRScan(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrRScan(PChar(VarToStr(GetInputArg(0))),VarToStr(GetInputArg(1))[1])); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrPos(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrPos(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrUpper(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrUpper(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrLower(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrLower(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrPas(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrPas(PChar(VarToStr(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrAlloc(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrAlloc(VarToInteger(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrBufSize(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrBufSize(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrNew(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrNew(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrDispose(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.StrDispose(PChar(VarToStr(GetInputArg(0)))); - end; -end; - -procedure TatSysUtilsLibrary.__FloatToStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FloatToStr(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CurrToStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.CurrToStr(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FloatToCurr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FloatToCurr(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryFloatToCurr(AMachine: TatVirtualMachine); - var - Param1: Currency; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := SysUtils.TryFloatToCurr(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FloatToStrF(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FloatToStrF(GetInputArg(0),GetInputArg(1),VarToInteger(GetInputArg(2)),VarToInteger(GetInputArg(3))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CurrToStrF(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.CurrToStrF(GetInputArg(0),GetInputArg(1),VarToInteger(GetInputArg(2))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FloatToText(AMachine: TatVirtualMachine); - var - Param1: Variant; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := Integer(SysUtils.FloatToText(PChar(VarToStr(GetInputArg(0))),Param1,GetInputArg(2),GetInputArg(3),VarToInteger(GetInputArg(4)),VarToInteger(GetInputArg(5)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FormatFloat(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FormatFloat(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FormatCurr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FormatCurr(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FloatToTextFmt(AMachine: TatVirtualMachine); - var - Param1: Variant; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := Integer(SysUtils.FloatToTextFmt(PChar(VarToStr(GetInputArg(0))),Param1,GetInputArg(2),PChar(VarToStr(GetInputArg(3))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToFloat(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToFloat(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToFloatDef(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToFloatDef(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToCurr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToCurr(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToCurrDef(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToCurrDef(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryStrToCurr(AMachine: TatVirtualMachine); - var - Param1: Currency; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := SysUtils.TryStrToCurr(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TextToFloat(AMachine: TatVirtualMachine); - var - Param1: Variant; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := SysUtils.TextToFloat(PChar(VarToStr(GetInputArg(0))),Param1,GetInputArg(2)); - ReturnOutputArg(AResult); - SetInputArg(1,Param1); - end; -end; - -procedure TatSysUtilsLibrary.__FloatToDecimal(AMachine: TatVirtualMachine); - var - Param0: TFloatRec; - Param1: Variant; -begin - with AMachine do - begin -Param0 := TFloatRecWrapper(integer(GetInputArg(0))).ObjToRec; -Param1 := GetInputArg(1); - SysUtils.FloatToDecimal(Param0,Param1,GetInputArg(2),VarToInteger(GetInputArg(3)),VarToInteger(GetInputArg(4))); - SetInputArg(0,integer(TFloatRecWrapper.Create(Param0))); - end; -end; - -procedure TatSysUtilsLibrary.__DateTimeToTimeStamp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := integer(TTimeStampWrapper.Create(SysUtils.DateTimeToTimeStamp(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TimeStampToDateTime(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.TimeStampToDateTime(TTimeStampWrapper(integer(GetInputArg(0))).ObjToRec); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__MSecsToTimeStamp(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := integer(TTimeStampWrapper.Create(SysUtils.MSecsToTimeStamp(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TimeStampToMSecs(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.TimeStampToMSecs(TTimeStampWrapper(integer(GetInputArg(0))).ObjToRec); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__EncodeDate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.EncodeDate(VarToInteger(GetInputArg(0)),VarToInteger(GetInputArg(1)),VarToInteger(GetInputArg(2))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__EncodeTime(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.EncodeTime(VarToInteger(GetInputArg(0)),VarToInteger(GetInputArg(1)),VarToInteger(GetInputArg(2)),VarToInteger(GetInputArg(3))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryEncodeDate(AMachine: TatVirtualMachine); - var - Param3: TDateTime; - AResult: variant; -begin - with AMachine do - begin -Param3 := GetInputArg(3); -AResult := SysUtils.TryEncodeDate(VarToInteger(GetInputArg(0)),VarToInteger(GetInputArg(1)),VarToInteger(GetInputArg(2)),Param3); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryEncodeTime(AMachine: TatVirtualMachine); - var - Param4: TDateTime; - AResult: variant; -begin - with AMachine do - begin -Param4 := GetInputArg(4); -AResult := SysUtils.TryEncodeTime(VarToInteger(GetInputArg(0)),VarToInteger(GetInputArg(1)),VarToInteger(GetInputArg(2)),VarToInteger(GetInputArg(3)),Param4); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DecodeDate(AMachine: TatVirtualMachine); - var - Param1: Word; - Param2: Word; - Param3: Word; -begin - with AMachine do - begin -Param1 := VarToInteger(GetInputArg(1)); -Param2 := VarToInteger(GetInputArg(2)); -Param3 := VarToInteger(GetInputArg(3)); - SysUtils.DecodeDate(GetInputArg(0),Param1,Param2,Param3); - SetInputArg(1,Integer(Param1)); - SetInputArg(2,Integer(Param2)); - SetInputArg(3,Integer(Param3)); - end; -end; - -procedure TatSysUtilsLibrary.__DecodeDateFully(AMachine: TatVirtualMachine); - var - Param1: Word; - Param2: Word; - Param3: Word; - Param4: Word; - AResult: variant; -begin - with AMachine do - begin -Param1 := VarToInteger(GetInputArg(1)); -Param2 := VarToInteger(GetInputArg(2)); -Param3 := VarToInteger(GetInputArg(3)); -Param4 := VarToInteger(GetInputArg(4)); -AResult := SysUtils.DecodeDateFully(GetInputArg(0),Param1,Param2,Param3,Param4); - ReturnOutputArg(AResult); - SetInputArg(1,Integer(Param1)); - SetInputArg(2,Integer(Param2)); - SetInputArg(3,Integer(Param3)); - SetInputArg(4,Integer(Param4)); - end; -end; - -procedure TatSysUtilsLibrary.__DecodeTime(AMachine: TatVirtualMachine); - var - Param1: Word; - Param2: Word; - Param3: Word; - Param4: Word; -begin - with AMachine do - begin -Param1 := VarToInteger(GetInputArg(1)); -Param2 := VarToInteger(GetInputArg(2)); -Param3 := VarToInteger(GetInputArg(3)); -Param4 := VarToInteger(GetInputArg(4)); - SysUtils.DecodeTime(GetInputArg(0),Param1,Param2,Param3,Param4); - SetInputArg(1,Integer(Param1)); - SetInputArg(2,Integer(Param2)); - SetInputArg(3,Integer(Param3)); - SetInputArg(4,Integer(Param4)); - end; -end; - -procedure TatSysUtilsLibrary.__DateTimeToSystemTime(AMachine: TatVirtualMachine); - var - Param1: TSystemTime; -begin - with AMachine do - begin -Param1 := _SYSTEMTIMEWrapper(integer(GetInputArg(1))).ObjToRec; - SysUtils.DateTimeToSystemTime(GetInputArg(0),Param1); - SetInputArg(1,integer(_SYSTEMTIMEWrapper.Create(Param1))); - end; -end; - -procedure TatSysUtilsLibrary.__SystemTimeToDateTime(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.SystemTimeToDateTime(_SYSTEMTIMEWrapper(integer(GetInputArg(0))).ObjToRec); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DayOfWeek(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.DayOfWeek(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__Date(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.Date; - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__Time(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.Time; - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__Now(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.Now; - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CurrentYear(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.CurrentYear); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__IncMonth(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.IncMonth(GetInputArg(0),VarToInteger(GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__IncAMonth(AMachine: TatVirtualMachine); - var - Param0: Word; - Param1: Word; - Param2: Word; -begin - with AMachine do - begin -Param0 := VarToInteger(GetInputArg(0)); -Param1 := VarToInteger(GetInputArg(1)); -Param2 := VarToInteger(GetInputArg(2)); - SysUtils.IncAMonth(Param0,Param1,Param2,VarToInteger(GetInputArg(3))); - SetInputArg(0,Integer(Param0)); - SetInputArg(1,Integer(Param1)); - SetInputArg(2,Integer(Param2)); - end; -end; - -procedure TatSysUtilsLibrary.__ReplaceTime(AMachine: TatVirtualMachine); - var - Param0: TDateTime; -begin - with AMachine do - begin -Param0 := GetInputArg(0); - SysUtils.ReplaceTime(Param0,GetInputArg(1)); - SetInputArg(0,Param0); - end; -end; - -procedure TatSysUtilsLibrary.__ReplaceDate(AMachine: TatVirtualMachine); - var - Param0: TDateTime; -begin - with AMachine do - begin -Param0 := GetInputArg(0); - SysUtils.ReplaceDate(Param0,GetInputArg(1)); - SetInputArg(0,Param0); - end; -end; - -procedure TatSysUtilsLibrary.__IsLeapYear(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.IsLeapYear(VarToInteger(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DateToStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.DateToStr(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TimeToStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.TimeToStr(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DateTimeToStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.DateTimeToStr(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToDate(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToDate(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToDateDef(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToDateDef(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryStrToDate(AMachine: TatVirtualMachine); - var - Param1: TDateTime; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := SysUtils.TryStrToDate(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToTime(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToTime(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToTimeDef(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToTimeDef(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryStrToTime(AMachine: TatVirtualMachine); - var - Param1: TDateTime; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := SysUtils.TryStrToTime(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToDateTime(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToDateTime(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrToDateTimeDef(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrToDateTimeDef(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryStrToDateTime(AMachine: TatVirtualMachine); - var - Param1: TDateTime; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := SysUtils.TryStrToDateTime(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FormatDateTime(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FormatDateTime(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__DateTimeToString(AMachine: TatVirtualMachine); - var - Param0: string; -begin - with AMachine do - begin -Param0 := GetInputArg(0); - SysUtils.DateTimeToString(Param0,GetInputArg(1),GetInputArg(2)); - SetInputArg(0,Param0); - end; -end; - -procedure TatSysUtilsLibrary.__FloatToDateTime(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.FloatToDateTime(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__TryFloatToDateTime(AMachine: TatVirtualMachine); - var - Param1: TDateTime; - AResult: variant; -begin - with AMachine do - begin -Param1 := GetInputArg(1); -AResult := SysUtils.TryFloatToDateTime(GetInputArg(0),Param1); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__SysErrorMessage(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.SysErrorMessage(VarToInteger(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__GetLocaleStr(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.GetLocaleStr(VarToInteger(GetInputArg(0)),VarToInteger(GetInputArg(1)),GetInputArg(2)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__GetLocaleChar(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.GetLocaleChar(VarToInteger(GetInputArg(0)),VarToInteger(GetInputArg(1)),VarToStr(GetInputArg(2))[1]); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__GetFormatSettings(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.GetFormatSettings; - end; -end; - -procedure TatSysUtilsLibrary.__Sleep(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.Sleep(VarToInteger(GetInputArg(0))); - end; -end; - -procedure TatSysUtilsLibrary.__GetModuleName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.GetModuleName(VarToInteger(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__Abort(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.Abort; - end; -end; - -procedure TatSysUtilsLibrary.__OutOfMemoryError(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.OutOfMemoryError; - end; -end; - -procedure TatSysUtilsLibrary.__Beep(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.Beep; - end; -end; - -procedure TatSysUtilsLibrary.__ByteType(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ByteType(GetInputArg(0),VarToInteger(GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrByteType(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.StrByteType(PChar(VarToStr(GetInputArg(0))),VarToInteger(GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ByteToCharLen(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.ByteToCharLen(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CharToByteLen(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.CharToByteLen(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ByteToCharIndex(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.ByteToCharIndex(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CharToByteIndex(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.CharToByteIndex(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrCharLength(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.StrCharLength(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StrNextChar(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.StrNextChar(PChar(VarToStr(GetInputArg(0))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CharLength(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.CharLength(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__NextCharIndex(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.NextCharIndex(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__IsPathDelimiter(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.IsPathDelimiter(GetInputArg(0),VarToInteger(GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__IsDelimiter(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.IsDelimiter(GetInputArg(0),GetInputArg(1),VarToInteger(GetInputArg(2))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__IncludeTrailingPathDelimiter(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.IncludeTrailingPathDelimiter(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__IncludeTrailingBackslash(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.IncludeTrailingBackslash(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExcludeTrailingPathDelimiter(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExcludeTrailingPathDelimiter(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__ExcludeTrailingBackslash(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.ExcludeTrailingBackslash(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__LastDelimiter(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.LastDelimiter(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiCompareFileName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.AnsiCompareFileName(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__SameFileName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.SameFileName(GetInputArg(0),GetInputArg(1)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiLowerCaseFileName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.AnsiLowerCaseFileName(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiUpperCaseFileName(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.AnsiUpperCaseFileName(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiPos(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.AnsiPos(GetInputArg(0),GetInputArg(1))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrPos(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.AnsiStrPos(PChar(VarToStr(GetInputArg(0))),PChar(VarToStr(GetInputArg(1))))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrRScan(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.AnsiStrRScan(PChar(VarToStr(GetInputArg(0))),VarToStr(GetInputArg(1))[1])); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__AnsiStrScan(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := string(SysUtils.AnsiStrScan(PChar(VarToStr(GetInputArg(0))),VarToStr(GetInputArg(1))[1])); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StringReplace(AMachine: TatVirtualMachine); - var - Param3: TReplaceFlags; - AResult: variant; -begin - with AMachine do - begin -IntToSet(Param3,VarToInteger(GetInputArg(3))); -AResult := SysUtils.StringReplace(GetInputArg(0),GetInputArg(1),GetInputArg(2),Param3); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__FreeAndNil(AMachine: TatVirtualMachine); - var - Param0: Variant; -begin - with AMachine do - begin -Param0 := GetInputArg(0); - SysUtils.FreeAndNil(Param0); - SetInputArg(0,Param0); - end; -end; - -procedure TatSysUtilsLibrary.__CreateGUID(AMachine: TatVirtualMachine); - var - Param0: TGUID; - AResult: variant; -begin - with AMachine do - begin -Param0 := TGUIDWrapper(integer(GetInputArg(0))).ObjToRec; -AResult := Integer(SysUtils.CreateGUID(Param0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__StringToGUID(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := integer(TGUIDWrapper.Create(SysUtils.StringToGUID(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__GUIDToString(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.GUIDToString(TGUIDWrapper(integer(GetInputArg(0))).ObjToRec); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__IsEqualGUID(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.IsEqualGUID(TGUIDWrapper(integer(GetInputArg(0))).ObjToRec,TGUIDWrapper(integer(GetInputArg(1))).ObjToRec); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__LoadPackage(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.LoadPackage(GetInputArg(0))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__UnloadPackage(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.UnloadPackage(VarToInteger(GetInputArg(0))); - end; -end; - -procedure TatSysUtilsLibrary.__GetPackageDescription(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.GetPackageDescription(PChar(VarToStr(GetInputArg(0)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__InitializePackage(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.InitializePackage(VarToInteger(GetInputArg(0))); - end; -end; - -procedure TatSysUtilsLibrary.__FinalizePackage(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.FinalizePackage(VarToInteger(GetInputArg(0))); - end; -end; - -procedure TatSysUtilsLibrary.__RaiseLastOSError(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.RaiseLastOSError; - end; -end; - -procedure TatSysUtilsLibrary.__RaiseLastWin32Error(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.RaiseLastWin32Error; - end; -end; - -procedure TatSysUtilsLibrary.__Win32Check(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.Win32Check(GetInputArg(0)); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__CallTerminateProcs(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := SysUtils.CallTerminateProcs; - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__GDAL(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.GDAL); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__RCS(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.RCS; - end; -end; - -procedure TatSysUtilsLibrary.__RPR(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.RPR; - end; -end; - -procedure TatSysUtilsLibrary.__SafeLoadLibrary(AMachine: TatVirtualMachine); - var - AResult: variant; -begin - with AMachine do - begin -AResult := Integer(SysUtils.SafeLoadLibrary(GetInputArg(0),VarToInteger(GetInputArg(1)))); - ReturnOutputArg(AResult); - end; -end; - -procedure TatSysUtilsLibrary.__GetEmptyStr(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.EmptyStr); - end; -end; - -procedure TatSysUtilsLibrary.__SetEmptyStr(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.EmptyStr:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetEmptyWideStr(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.EmptyWideStr); - end; -end; - -procedure TatSysUtilsLibrary.__SetEmptyWideStr(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.EmptyWideStr:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetWin32Platform(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(SysUtils.Win32Platform)); - end; -end; - -procedure TatSysUtilsLibrary.__SetWin32Platform(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.Win32Platform:=VarToInteger(GetInputArg(0)); - end; -end; - -procedure TatSysUtilsLibrary.__GetWin32MajorVersion(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(SysUtils.Win32MajorVersion)); - end; -end; - -procedure TatSysUtilsLibrary.__SetWin32MajorVersion(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.Win32MajorVersion:=VarToInteger(GetInputArg(0)); - end; -end; - -procedure TatSysUtilsLibrary.__GetWin32MinorVersion(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(SysUtils.Win32MinorVersion)); - end; -end; - -procedure TatSysUtilsLibrary.__SetWin32MinorVersion(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.Win32MinorVersion:=VarToInteger(GetInputArg(0)); - end; -end; - -procedure TatSysUtilsLibrary.__GetWin32BuildNumber(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(SysUtils.Win32BuildNumber)); - end; -end; - -procedure TatSysUtilsLibrary.__SetWin32BuildNumber(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.Win32BuildNumber:=VarToInteger(GetInputArg(0)); - end; -end; - -procedure TatSysUtilsLibrary.__GetWin32CSDVersion(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.Win32CSDVersion); - end; -end; - -procedure TatSysUtilsLibrary.__SetWin32CSDVersion(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.Win32CSDVersion:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetCurrencyString(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.CurrencyString); - end; -end; - -procedure TatSysUtilsLibrary.__SetCurrencyString(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.CurrencyString:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetCurrencyFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(SysUtils.CurrencyFormat)); - end; -end; - -procedure TatSysUtilsLibrary.__SetCurrencyFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.CurrencyFormat:=VarToInteger(GetInputArg(0)); - end; -end; - -procedure TatSysUtilsLibrary.__GetNegCurrFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(SysUtils.NegCurrFormat)); - end; -end; - -procedure TatSysUtilsLibrary.__SetNegCurrFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.NegCurrFormat:=VarToInteger(GetInputArg(0)); - end; -end; - -procedure TatSysUtilsLibrary.__GetThousandSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.ThousandSeparator); - end; -end; - -procedure TatSysUtilsLibrary.__SetThousandSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.ThousandSeparator:=VarToStr(GetInputArg(0))[1]; - end; -end; - -procedure TatSysUtilsLibrary.__GetDecimalSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.DecimalSeparator); - end; -end; - -procedure TatSysUtilsLibrary.__SetDecimalSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.DecimalSeparator:=VarToStr(GetInputArg(0))[1]; - end; -end; - -procedure TatSysUtilsLibrary.__GetCurrencyDecimals(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(SysUtils.CurrencyDecimals)); - end; -end; - -procedure TatSysUtilsLibrary.__SetCurrencyDecimals(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.CurrencyDecimals:=VarToInteger(GetInputArg(0)); - end; -end; - -procedure TatSysUtilsLibrary.__GetDateSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.DateSeparator); - end; -end; - -procedure TatSysUtilsLibrary.__SetDateSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.DateSeparator:=VarToStr(GetInputArg(0))[1]; - end; -end; - -procedure TatSysUtilsLibrary.__GetShortDateFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.ShortDateFormat); - end; -end; - -procedure TatSysUtilsLibrary.__SetShortDateFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.ShortDateFormat:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetLongDateFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.LongDateFormat); - end; -end; - -procedure TatSysUtilsLibrary.__SetLongDateFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.LongDateFormat:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetTimeSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.TimeSeparator); - end; -end; - -procedure TatSysUtilsLibrary.__SetTimeSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.TimeSeparator:=VarToStr(GetInputArg(0))[1]; - end; -end; - -procedure TatSysUtilsLibrary.__GetTimeAMString(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.TimeAMString); - end; -end; - -procedure TatSysUtilsLibrary.__SetTimeAMString(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.TimeAMString:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetTimePMString(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.TimePMString); - end; -end; - -procedure TatSysUtilsLibrary.__SetTimePMString(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.TimePMString:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetShortTimeFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.ShortTimeFormat); - end; -end; - -procedure TatSysUtilsLibrary.__SetShortTimeFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.ShortTimeFormat:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetLongTimeFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.LongTimeFormat); - end; -end; - -procedure TatSysUtilsLibrary.__SetLongTimeFormat(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.LongTimeFormat:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.__GetSysLocale(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(integer(TSysLocaleWrapper.Create(SysUtils.SysLocale))); - end; -end; - -procedure TatSysUtilsLibrary.__SetSysLocale(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.SysLocale:=TSysLocaleWrapper(integer(GetInputArg(0))).ObjToRec; - end; -end; - -procedure TatSysUtilsLibrary.__GetTwoDigitYearCenturyWindow(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(Integer(SysUtils.TwoDigitYearCenturyWindow)); - end; -end; - -procedure TatSysUtilsLibrary.__SetTwoDigitYearCenturyWindow(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.TwoDigitYearCenturyWindow:=VarToInteger(GetInputArg(0)); - end; -end; - -procedure TatSysUtilsLibrary.__GetListSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.ListSeparator); - end; -end; - -procedure TatSysUtilsLibrary.__SetListSeparator(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.ListSeparator:=VarToStr(GetInputArg(0))[1]; - end; -end; - -procedure TatSysUtilsLibrary.__GetMinCurrency(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.MinCurrency); - end; -end; - -procedure TatSysUtilsLibrary.__GetMaxCurrency(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.MaxCurrency); - end; -end; - -procedure TatSysUtilsLibrary.__GetMinDateTime(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.MinDateTime); - end; -end; - -procedure TatSysUtilsLibrary.__GetMaxDateTime(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.MaxDateTime); - end; -end; - -procedure TatSysUtilsLibrary.__GetLeadBytes(AMachine: TatVirtualMachine); -var -PropValueSet: set of Char; -begin - with AMachine do - begin - PropValueSet := SysUtils.LeadBytes; - ReturnOutputArg(IntFromSet(PropValueSet)); - end; -end; - -procedure TatSysUtilsLibrary.__SetLeadBytes(AMachine: TatVirtualMachine); - var - TempVar: set of Char; -begin - with AMachine do - begin - IntToSet(TempVar,VarToInteger(GetInputArg(0))); - SysUtils.LeadBytes:=TempVar; - end; -end; - -procedure TatSysUtilsLibrary.__GetHexDisplayPrefix(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - ReturnOutputArg(SysUtils.HexDisplayPrefix); - end; -end; - -procedure TatSysUtilsLibrary.__SetHexDisplayPrefix(AMachine: TatVirtualMachine); -begin - with AMachine do - begin - SysUtils.HexDisplayPrefix:=GetInputArg(0); - end; -end; - -procedure TatSysUtilsLibrary.Init; -begin - With Scripter.DefineClass(TLanguages) do - begin - DefineMethod('Create',0,tkClass,TLanguages,__TLanguagesCreate,true); - DefineMethod('IndexOf',1,tkInteger,nil,__TLanguagesIndexOf,false); - DefineProp('Count',tkInteger,__GetTLanguagesCount,nil,nil,false,0); - DefineProp('Name',tkVariant,__GetTLanguagesName,nil,nil,false,1); - DefineProp('NameFromLocaleID',tkVariant,__GetTLanguagesNameFromLocaleID,nil,nil,false,1); - DefineProp('NameFromLCID',tkVariant,__GetTLanguagesNameFromLCID,nil,nil,false,1); - DefineProp('ID',tkVariant,__GetTLanguagesID,nil,nil,false,1); - DefineProp('LocaleID',tkInteger,__GetTLanguagesLocaleID,nil,nil,false,1); - DefineProp('Ext',tkVariant,__GetTLanguagesExt,nil,nil,false,1); - end; - With Scripter.DefineClass(Exception) do - begin - DefineMethod('Create',1,tkClass,Exception,__ExceptionCreate,true); - DefineMethod('CreateHelp',2,tkClass,Exception,__ExceptionCreateHelp,true); - DefineProp('HelpContext',tkInteger,__GetExceptionHelpContext,__SetExceptionHelpContext,nil,false,0); - DefineProp('Message',tkVariant,__GetExceptionMessage,__SetExceptionMessage,nil,false,0); - end; - With Scripter.DefineClass(EAbort) do - begin - end; - With Scripter.DefineClass(EHeapException) do - begin - DefineMethod('FreeInstance',0,tkNone,nil,__EHeapExceptionFreeInstance,false); - end; - With Scripter.DefineClass(EOutOfMemory) do - begin - end; - With Scripter.DefineClass(EInOutError) do - begin - end; - With Scripter.DefineClass(EExternal) do - begin - end; - With Scripter.DefineClass(EExternalException) do - begin - end; - With Scripter.DefineClass(EIntError) do - begin - end; - With Scripter.DefineClass(EDivByZero) do - begin - end; - With Scripter.DefineClass(ERangeError) do - begin - end; - With Scripter.DefineClass(EIntOverflow) do - begin - end; - With Scripter.DefineClass(EMathError) do - begin - end; - With Scripter.DefineClass(EInvalidOp) do - begin - end; - With Scripter.DefineClass(EZeroDivide) do - begin - end; - With Scripter.DefineClass(EOverflow) do - begin - end; - With Scripter.DefineClass(EUnderflow) do - begin - end; - With Scripter.DefineClass(EInvalidPointer) do - begin - end; - With Scripter.DefineClass(EInvalidCast) do - begin - end; - With Scripter.DefineClass(EConvertError) do - begin - end; - With Scripter.DefineClass(EAccessViolation) do - begin - end; - With Scripter.DefineClass(EPrivilege) do - begin - end; - With Scripter.DefineClass(EStackOverflow) do - begin - end; - With Scripter.DefineClass(EControlC) do - begin - end; - With Scripter.DefineClass(EVariantError) do - begin - end; - With Scripter.DefineClass(EPropReadOnly) do - begin - end; - With Scripter.DefineClass(EPropWriteOnly) do - begin - end; - With Scripter.DefineClass(EAssertionFailed) do - begin - end; - With Scripter.DefineClass(EAbstractError) do - begin - end; - With Scripter.DefineClass(EIntfCastError) do - begin - end; - With Scripter.DefineClass(EInvalidContainer) do - begin - end; - With Scripter.DefineClass(EInvalidInsert) do - begin - end; - With Scripter.DefineClass(EPackageError) do - begin - end; - With Scripter.DefineClass(EOSError) do - begin - end; - With Scripter.DefineClass(EWin32Error) do - begin - end; - With Scripter.DefineClass(ESafecallException) do - begin - end; - With Scripter.DefineClass(TSimpleRWSync) do - begin - DefineMethod('Create',0,tkClass,TSimpleRWSync,__TSimpleRWSyncCreate,true); - DefineMethod('Destroy',0,tkNone,nil,__TSimpleRWSyncDestroy,false); - DefineMethod('BeginRead',0,tkNone,nil,__TSimpleRWSyncBeginRead,false); - DefineMethod('EndRead',0,tkNone,nil,__TSimpleRWSyncEndRead,false); - DefineMethod('BeginWrite',0,tkVariant,nil,__TSimpleRWSyncBeginWrite,false); - DefineMethod('EndWrite',0,tkNone,nil,__TSimpleRWSyncEndWrite,false); - end; - With Scripter.DefineClass(TThreadLocalCounter) do - begin - DefineMethod('Create',0,tkClass,TThreadLocalCounter,__TThreadLocalCounterCreate,true); - DefineMethod('Destroy',0,tkNone,nil,__TThreadLocalCounterDestroy,false); - end; - With Scripter.DefineClass(TMultiReadExclusiveWriteSynchronizer) do - begin - DefineMethod('Create',0,tkClass,TMultiReadExclusiveWriteSynchronizer,__TMultiReadExclusiveWriteSynchronizerCreate,true); - DefineMethod('Destroy',0,tkNone,nil,__TMultiReadExclusiveWriteSynchronizerDestroy,false); - DefineMethod('BeginRead',0,tkNone,nil,__TMultiReadExclusiveWriteSynchronizerBeginRead,false); - DefineMethod('EndRead',0,tkNone,nil,__TMultiReadExclusiveWriteSynchronizerEndRead,false); - DefineMethod('BeginWrite',0,tkVariant,nil,__TMultiReadExclusiveWriteSynchronizerBeginWrite,false); - DefineMethod('EndWrite',0,tkNone,nil,__TMultiReadExclusiveWriteSynchronizerEndWrite,false); - DefineProp('RevisionLevel',tkInteger,__GetTMultiReadExclusiveWriteSynchronizerRevisionLevel,nil,nil,false,0); - end; - With Scripter.DefineClass(TMREWSync) do - begin - end; - With Scripter.DefineClass(ClassType) do - begin - DefineMethod('CheckWin32Version',2,tkVariant,nil,__CheckWin32Version,false); - DefineMethod('Languages',0,tkClass,TLanguages,__Languages,false); - DefineMethod('AppendStr',2,tkNone,nil,__AppendStr,false).SetVarArgs([0]); - DefineMethod('UpperCase',1,tkVariant,nil,__UpperCase,false); - DefineMethod('LowerCase',1,tkVariant,nil,__LowerCase,false); - DefineMethod('CompareStr',2,tkInteger,nil,__CompareStr,false); - DefineMethod('CompareText',2,tkInteger,nil,__CompareText,false); - DefineMethod('SameText',2,tkVariant,nil,__SameText,false); - DefineMethod('AnsiUpperCase',1,tkVariant,nil,__AnsiUpperCase,false); - DefineMethod('AnsiLowerCase',1,tkVariant,nil,__AnsiLowerCase,false); - DefineMethod('AnsiCompareStr',2,tkInteger,nil,__AnsiCompareStr,false); - DefineMethod('AnsiSameStr',2,tkVariant,nil,__AnsiSameStr,false); - DefineMethod('AnsiCompareText',2,tkInteger,nil,__AnsiCompareText,false); - DefineMethod('AnsiSameText',2,tkVariant,nil,__AnsiSameText,false); - DefineMethod('AnsiStrComp',2,tkInteger,nil,__AnsiStrComp,false); - DefineMethod('AnsiStrIComp',2,tkInteger,nil,__AnsiStrIComp,false); - DefineMethod('AnsiStrLComp',3,tkInteger,nil,__AnsiStrLComp,false); - DefineMethod('AnsiStrLIComp',3,tkInteger,nil,__AnsiStrLIComp,false); - DefineMethod('AnsiStrLower',1,tkVariant,nil,__AnsiStrLower,false); - DefineMethod('AnsiStrUpper',1,tkVariant,nil,__AnsiStrUpper,false); - DefineMethod('AnsiLastChar',1,tkVariant,nil,__AnsiLastChar,false); - DefineMethod('AnsiStrLastChar',1,tkVariant,nil,__AnsiStrLastChar,false); - DefineMethod('WideUpperCase',1,tkVariant,nil,__WideUpperCase,false); - DefineMethod('WideLowerCase',1,tkVariant,nil,__WideLowerCase,false); - DefineMethod('WideCompareStr',2,tkInteger,nil,__WideCompareStr,false); - DefineMethod('WideSameStr',2,tkVariant,nil,__WideSameStr,false); - DefineMethod('WideCompareText',2,tkInteger,nil,__WideCompareText,false); - DefineMethod('WideSameText',2,tkVariant,nil,__WideSameText,false); - DefineMethod('QuotedStr',1,tkVariant,nil,__QuotedStr,false); - DefineMethod('AnsiQuotedStr',2,tkVariant,nil,__AnsiQuotedStr,false); - DefineMethod('AnsiExtractQuotedStr',2,tkVariant,nil,__AnsiExtractQuotedStr,false).SetVarArgs([0]); - DefineMethod('AnsiDequotedStr',2,tkVariant,nil,__AnsiDequotedStr,false); - DefineMethod('AdjustLineBreaks',2,tkVariant,nil,__AdjustLineBreaks,false); - DefineMethod('IsValidIdent',1,tkVariant,nil,__IsValidIdent,false); - DefineMethod('StrToInt',1,tkInteger,nil,__StrToInt,false); - DefineMethod('StrToIntDef',2,tkInteger,nil,__StrToIntDef,false); - DefineMethod('TryStrToInt',2,tkVariant,nil,__TryStrToInt,false); - DefineMethod('StrToInt64',1,tkVariant,nil,__StrToInt64,false); - DefineMethod('StrToInt64Def',2,tkVariant,nil,__StrToInt64Def,false); - DefineMethod('TryStrToInt64',2,tkVariant,nil,__TryStrToInt64,false); - DefineMethod('StrToBool',1,tkVariant,nil,__StrToBool,false); - DefineMethod('StrToBoolDef',2,tkVariant,nil,__StrToBoolDef,false); - DefineMethod('TryStrToBool',2,tkVariant,nil,__TryStrToBool,false); - DefineMethod('BoolToStr',2,tkVariant,nil,__BoolToStr,false); - DefineMethod('LoadStr',1,tkVariant,nil,__LoadStr,false); - DefineMethod('FileOpen',2,tkInteger,nil,__FileOpen,false); - DefineMethod('FileRead',3,tkInteger,nil,__FileRead,false).SetVarArgs([1]); - DefineMethod('FileWrite',3,tkInteger,nil,__FileWrite,false); - DefineMethod('FileClose',1,tkNone,nil,__FileClose,false); - DefineMethod('FileAge',1,tkInteger,nil,__FileAge,false); - DefineMethod('FileExists',1,tkVariant,nil,__FileExists,false); - DefineMethod('DirectoryExists',1,tkVariant,nil,__DirectoryExists,false); - DefineMethod('ForceDirectories',1,tkVariant,nil,__ForceDirectories,false); - DefineMethod('FindFirst',3,tkInteger,nil,__FindFirst,false).SetVarArgs([2]); - DefineMethod('FindNext',1,tkInteger,nil,__FindNext,false).SetVarArgs([0]); - DefineMethod('FindClose',1,tkNone,nil,__FindClose,false).SetVarArgs([0]); - DefineMethod('FileGetDate',1,tkInteger,nil,__FileGetDate,false); - DefineMethod('FileGetAttr',1,tkInteger,nil,__FileGetAttr,false); - DefineMethod('FileSetAttr',2,tkInteger,nil,__FileSetAttr,false); - DefineMethod('FileIsReadOnly',1,tkVariant,nil,__FileIsReadOnly,false); - DefineMethod('FileSetReadOnly',2,tkVariant,nil,__FileSetReadOnly,false); - DefineMethod('DeleteFile',1,tkVariant,nil,__DeleteFile,false); - DefineMethod('RenameFile',2,tkVariant,nil,__RenameFile,false); - DefineMethod('ChangeFileExt',2,tkVariant,nil,__ChangeFileExt,false); - DefineMethod('ExtractFilePath',1,tkVariant,nil,__ExtractFilePath,false); - DefineMethod('ExtractFileDir',1,tkVariant,nil,__ExtractFileDir,false); - DefineMethod('ExtractFileDrive',1,tkVariant,nil,__ExtractFileDrive,false); - DefineMethod('ExtractFileName',1,tkVariant,nil,__ExtractFileName,false); - DefineMethod('ExtractFileExt',1,tkVariant,nil,__ExtractFileExt,false); - DefineMethod('ExpandFileName',1,tkVariant,nil,__ExpandFileName,false); - DefineMethod('ExpandFileNameCase',2,tkVariant,nil,__ExpandFileNameCase,false); - DefineMethod('ExpandUNCFileName',1,tkVariant,nil,__ExpandUNCFileName,false); - DefineMethod('ExtractRelativePath',2,tkVariant,nil,__ExtractRelativePath,false); - DefineMethod('ExtractShortPathName',1,tkVariant,nil,__ExtractShortPathName,false); - DefineMethod('FileSearch',2,tkVariant,nil,__FileSearch,false); - DefineMethod('DiskFree',1,tkVariant,nil,__DiskFree,false); - DefineMethod('DiskSize',1,tkVariant,nil,__DiskSize,false); - DefineMethod('FileDateToDateTime',1,tkVariant,nil,__FileDateToDateTime,false); - DefineMethod('DateTimeToFileDate',1,tkInteger,nil,__DateTimeToFileDate,false); - DefineMethod('GetCurrentDir',0,tkVariant,nil,__GetCurrentDir,false); - DefineMethod('SetCurrentDir',1,tkVariant,nil,__SetCurrentDir,false); - DefineMethod('CreateDir',1,tkVariant,nil,__CreateDir,false); - DefineMethod('RemoveDir',1,tkVariant,nil,__RemoveDir,false); - DefineMethod('StrLen',1,tkInteger,nil,__StrLen,false); - DefineMethod('StrEnd',1,tkVariant,nil,__StrEnd,false); - DefineMethod('StrMove',3,tkVariant,nil,__StrMove,false); - DefineMethod('StrCopy',2,tkVariant,nil,__StrCopy,false); - DefineMethod('StrECopy',2,tkVariant,nil,__StrECopy,false); - DefineMethod('StrLCopy',3,tkVariant,nil,__StrLCopy,false); - DefineMethod('StrPCopy',2,tkVariant,nil,__StrPCopy,false); - DefineMethod('StrPLCopy',3,tkVariant,nil,__StrPLCopy,false); - DefineMethod('StrCat',2,tkVariant,nil,__StrCat,false); - DefineMethod('StrLCat',3,tkVariant,nil,__StrLCat,false); - DefineMethod('StrComp',2,tkInteger,nil,__StrComp,false); - DefineMethod('StrIComp',2,tkInteger,nil,__StrIComp,false); - DefineMethod('StrLComp',3,tkInteger,nil,__StrLComp,false); - DefineMethod('StrLIComp',3,tkInteger,nil,__StrLIComp,false); - DefineMethod('StrScan',2,tkVariant,nil,__StrScan,false); - DefineMethod('StrRScan',2,tkVariant,nil,__StrRScan,false); - DefineMethod('StrPos',2,tkVariant,nil,__StrPos,false); - DefineMethod('StrUpper',1,tkVariant,nil,__StrUpper,false); - DefineMethod('StrLower',1,tkVariant,nil,__StrLower,false); - DefineMethod('StrPas',1,tkVariant,nil,__StrPas,false); - DefineMethod('StrAlloc',1,tkVariant,nil,__StrAlloc,false); - DefineMethod('StrBufSize',1,tkInteger,nil,__StrBufSize,false); - DefineMethod('StrNew',1,tkVariant,nil,__StrNew,false); - DefineMethod('StrDispose',1,tkNone,nil,__StrDispose,false); - DefineMethod('FloatToStr',1,tkVariant,nil,__FloatToStr,false); - DefineMethod('CurrToStr',1,tkVariant,nil,__CurrToStr,false); - DefineMethod('FloatToCurr',1,tkVariant,nil,__FloatToCurr,false); - DefineMethod('TryFloatToCurr',2,tkVariant,nil,__TryFloatToCurr,false); - DefineMethod('FloatToStrF',4,tkVariant,nil,__FloatToStrF,false); - DefineMethod('CurrToStrF',3,tkVariant,nil,__CurrToStrF,false); - DefineMethod('FloatToText',6,tkInteger,nil,__FloatToText,false); - DefineMethod('FormatFloat',2,tkVariant,nil,__FormatFloat,false); - DefineMethod('FormatCurr',2,tkVariant,nil,__FormatCurr,false); - DefineMethod('FloatToTextFmt',4,tkInteger,nil,__FloatToTextFmt,false); - DefineMethod('StrToFloat',1,tkVariant,nil,__StrToFloat,false); - DefineMethod('StrToFloatDef',2,tkVariant,nil,__StrToFloatDef,false); - DefineMethod('StrToCurr',1,tkVariant,nil,__StrToCurr,false); - DefineMethod('StrToCurrDef',2,tkVariant,nil,__StrToCurrDef,false); - DefineMethod('TryStrToCurr',2,tkVariant,nil,__TryStrToCurr,false); - DefineMethod('TextToFloat',3,tkVariant,nil,__TextToFloat,false).SetVarArgs([1]); - DefineMethod('FloatToDecimal',5,tkNone,nil,__FloatToDecimal,false).SetVarArgs([0]); - DefineMethod('DateTimeToTimeStamp',1,tkVariant,nil,__DateTimeToTimeStamp,false); - DefineMethod('TimeStampToDateTime',1,tkVariant,nil,__TimeStampToDateTime,false); - DefineMethod('MSecsToTimeStamp',1,tkVariant,nil,__MSecsToTimeStamp,false); - DefineMethod('TimeStampToMSecs',1,tkVariant,nil,__TimeStampToMSecs,false); - DefineMethod('EncodeDate',3,tkVariant,nil,__EncodeDate,false); - DefineMethod('EncodeTime',4,tkVariant,nil,__EncodeTime,false); - DefineMethod('TryEncodeDate',4,tkVariant,nil,__TryEncodeDate,false); - DefineMethod('TryEncodeTime',5,tkVariant,nil,__TryEncodeTime,false); - DefineMethod('DecodeDate',4,tkNone,nil,__DecodeDate,false).SetVarArgs([1,2,3]); - DefineMethod('DecodeDateFully',5,tkVariant,nil,__DecodeDateFully,false).SetVarArgs([1,2,3,4]); - DefineMethod('DecodeTime',5,tkNone,nil,__DecodeTime,false).SetVarArgs([1,2,3,4]); - DefineMethod('DateTimeToSystemTime',2,tkNone,nil,__DateTimeToSystemTime,false).SetVarArgs([1]); - DefineMethod('SystemTimeToDateTime',1,tkVariant,nil,__SystemTimeToDateTime,false); - DefineMethod('DayOfWeek',1,tkInteger,nil,__DayOfWeek,false); - DefineMethod('Date',0,tkVariant,nil,__Date,false); - DefineMethod('Time',0,tkVariant,nil,__Time,false); - DefineMethod('Now',0,tkVariant,nil,__Now,false); - DefineMethod('CurrentYear',0,tkInteger,nil,__CurrentYear,false); - DefineMethod('IncMonth',2,tkVariant,nil,__IncMonth,false); - DefineMethod('IncAMonth',4,tkNone,nil,__IncAMonth,false).SetVarArgs([0,1,2]); - DefineMethod('ReplaceTime',2,tkNone,nil,__ReplaceTime,false).SetVarArgs([0]); - DefineMethod('ReplaceDate',2,tkNone,nil,__ReplaceDate,false).SetVarArgs([0]); - DefineMethod('IsLeapYear',1,tkVariant,nil,__IsLeapYear,false); - DefineMethod('DateToStr',1,tkVariant,nil,__DateToStr,false); - DefineMethod('TimeToStr',1,tkVariant,nil,__TimeToStr,false); - DefineMethod('DateTimeToStr',1,tkVariant,nil,__DateTimeToStr,false); - DefineMethod('StrToDate',1,tkVariant,nil,__StrToDate,false); - DefineMethod('StrToDateDef',2,tkVariant,nil,__StrToDateDef,false); - DefineMethod('TryStrToDate',2,tkVariant,nil,__TryStrToDate,false); - DefineMethod('StrToTime',1,tkVariant,nil,__StrToTime,false); - DefineMethod('StrToTimeDef',2,tkVariant,nil,__StrToTimeDef,false); - DefineMethod('TryStrToTime',2,tkVariant,nil,__TryStrToTime,false); - DefineMethod('StrToDateTime',1,tkVariant,nil,__StrToDateTime,false); - DefineMethod('StrToDateTimeDef',2,tkVariant,nil,__StrToDateTimeDef,false); - DefineMethod('TryStrToDateTime',2,tkVariant,nil,__TryStrToDateTime,false); - DefineMethod('FormatDateTime',2,tkVariant,nil,__FormatDateTime,false); - DefineMethod('DateTimeToString',3,tkNone,nil,__DateTimeToString,false).SetVarArgs([0]); - DefineMethod('FloatToDateTime',1,tkVariant,nil,__FloatToDateTime,false); - DefineMethod('TryFloatToDateTime',2,tkVariant,nil,__TryFloatToDateTime,false); - DefineMethod('SysErrorMessage',1,tkVariant,nil,__SysErrorMessage,false); - DefineMethod('GetLocaleStr',3,tkVariant,nil,__GetLocaleStr,false); - DefineMethod('GetLocaleChar',3,tkVariant,nil,__GetLocaleChar,false); - DefineMethod('GetFormatSettings',0,tkNone,nil,__GetFormatSettings,false); - DefineMethod('Sleep',1,tkNone,nil,__Sleep,false); - DefineMethod('GetModuleName',1,tkVariant,nil,__GetModuleName,false); - DefineMethod('Abort',0,tkNone,nil,__Abort,false); - DefineMethod('OutOfMemoryError',0,tkNone,nil,__OutOfMemoryError,false); - DefineMethod('Beep',0,tkNone,nil,__Beep,false); - DefineMethod('ByteType',2,tkEnumeration,nil,__ByteType,false); - DefineMethod('StrByteType',2,tkEnumeration,nil,__StrByteType,false); - DefineMethod('ByteToCharLen',2,tkInteger,nil,__ByteToCharLen,false); - DefineMethod('CharToByteLen',2,tkInteger,nil,__CharToByteLen,false); - DefineMethod('ByteToCharIndex',2,tkInteger,nil,__ByteToCharIndex,false); - DefineMethod('CharToByteIndex',2,tkInteger,nil,__CharToByteIndex,false); - DefineMethod('StrCharLength',1,tkInteger,nil,__StrCharLength,false); - DefineMethod('StrNextChar',1,tkVariant,nil,__StrNextChar,false); - DefineMethod('CharLength',2,tkInteger,nil,__CharLength,false); - DefineMethod('NextCharIndex',2,tkInteger,nil,__NextCharIndex,false); - DefineMethod('IsPathDelimiter',2,tkVariant,nil,__IsPathDelimiter,false); - DefineMethod('IsDelimiter',3,tkVariant,nil,__IsDelimiter,false); - DefineMethod('IncludeTrailingPathDelimiter',1,tkVariant,nil,__IncludeTrailingPathDelimiter,false); - DefineMethod('IncludeTrailingBackslash',1,tkVariant,nil,__IncludeTrailingBackslash,false); - DefineMethod('ExcludeTrailingPathDelimiter',1,tkVariant,nil,__ExcludeTrailingPathDelimiter,false); - DefineMethod('ExcludeTrailingBackslash',1,tkVariant,nil,__ExcludeTrailingBackslash,false); - DefineMethod('LastDelimiter',2,tkInteger,nil,__LastDelimiter,false); - DefineMethod('AnsiCompareFileName',2,tkInteger,nil,__AnsiCompareFileName,false); - DefineMethod('SameFileName',2,tkVariant,nil,__SameFileName,false); - DefineMethod('AnsiLowerCaseFileName',1,tkVariant,nil,__AnsiLowerCaseFileName,false); - DefineMethod('AnsiUpperCaseFileName',1,tkVariant,nil,__AnsiUpperCaseFileName,false); - DefineMethod('AnsiPos',2,tkInteger,nil,__AnsiPos,false); - DefineMethod('AnsiStrPos',2,tkVariant,nil,__AnsiStrPos,false); - DefineMethod('AnsiStrRScan',2,tkVariant,nil,__AnsiStrRScan,false); - DefineMethod('AnsiStrScan',2,tkVariant,nil,__AnsiStrScan,false); - DefineMethod('StringReplace',4,tkVariant,nil,__StringReplace,false); - DefineMethod('FreeAndNil',1,tkNone,nil,__FreeAndNil,false).SetVarArgs([0]); - DefineMethod('CreateGUID',1,tkInteger,nil,__CreateGUID,false); - DefineMethod('StringToGUID',1,tkVariant,nil,__StringToGUID,false); - DefineMethod('GUIDToString',1,tkVariant,nil,__GUIDToString,false); - DefineMethod('IsEqualGUID',2,tkVariant,nil,__IsEqualGUID,false); - DefineMethod('LoadPackage',1,tkInteger,nil,__LoadPackage,false); - DefineMethod('UnloadPackage',1,tkNone,nil,__UnloadPackage,false); - DefineMethod('GetPackageDescription',1,tkVariant,nil,__GetPackageDescription,false); - DefineMethod('InitializePackage',1,tkNone,nil,__InitializePackage,false); - DefineMethod('FinalizePackage',1,tkNone,nil,__FinalizePackage,false); - DefineMethod('RaiseLastOSError',0,tkNone,nil,__RaiseLastOSError,false); - DefineMethod('RaiseLastWin32Error',0,tkNone,nil,__RaiseLastWin32Error,false); - DefineMethod('Win32Check',1,tkVariant,nil,__Win32Check,false); - DefineMethod('CallTerminateProcs',0,tkVariant,nil,__CallTerminateProcs,false); - DefineMethod('GDAL',0,tkInteger,nil,__GDAL,false); - DefineMethod('RCS',0,tkNone,nil,__RCS,false); - DefineMethod('RPR',0,tkNone,nil,__RPR,false); - DefineMethod('SafeLoadLibrary',2,tkInteger,nil,__SafeLoadLibrary,false); - DefineProp('EmptyStr',tkVariant,__GetEmptyStr,__SetEmptyStr,nil,false,0); - DefineProp('EmptyWideStr',tkVariant,__GetEmptyWideStr,__SetEmptyWideStr,nil,false,0); - DefineProp('Win32Platform',tkInteger,__GetWin32Platform,__SetWin32Platform,nil,false,0); - DefineProp('Win32MajorVersion',tkInteger,__GetWin32MajorVersion,__SetWin32MajorVersion,nil,false,0); - DefineProp('Win32MinorVersion',tkInteger,__GetWin32MinorVersion,__SetWin32MinorVersion,nil,false,0); - DefineProp('Win32BuildNumber',tkInteger,__GetWin32BuildNumber,__SetWin32BuildNumber,nil,false,0); - DefineProp('Win32CSDVersion',tkVariant,__GetWin32CSDVersion,__SetWin32CSDVersion,nil,false,0); - DefineProp('CurrencyString',tkVariant,__GetCurrencyString,__SetCurrencyString,nil,false,0); - DefineProp('CurrencyFormat',tkInteger,__GetCurrencyFormat,__SetCurrencyFormat,nil,false,0); - DefineProp('NegCurrFormat',tkInteger,__GetNegCurrFormat,__SetNegCurrFormat,nil,false,0); - DefineProp('ThousandSeparator',tkVariant,__GetThousandSeparator,__SetThousandSeparator,nil,false,0); - DefineProp('DecimalSeparator',tkVariant,__GetDecimalSeparator,__SetDecimalSeparator,nil,false,0); - DefineProp('CurrencyDecimals',tkInteger,__GetCurrencyDecimals,__SetCurrencyDecimals,nil,false,0); - DefineProp('DateSeparator',tkVariant,__GetDateSeparator,__SetDateSeparator,nil,false,0); - DefineProp('ShortDateFormat',tkVariant,__GetShortDateFormat,__SetShortDateFormat,nil,false,0); - DefineProp('LongDateFormat',tkVariant,__GetLongDateFormat,__SetLongDateFormat,nil,false,0); - DefineProp('TimeSeparator',tkVariant,__GetTimeSeparator,__SetTimeSeparator,nil,false,0); - DefineProp('TimeAMString',tkVariant,__GetTimeAMString,__SetTimeAMString,nil,false,0); - DefineProp('TimePMString',tkVariant,__GetTimePMString,__SetTimePMString,nil,false,0); - DefineProp('ShortTimeFormat',tkVariant,__GetShortTimeFormat,__SetShortTimeFormat,nil,false,0); - DefineProp('LongTimeFormat',tkVariant,__GetLongTimeFormat,__SetLongTimeFormat,nil,false,0); - DefineProp('SysLocale',tkVariant,__GetSysLocale,__SetSysLocale,nil,false,0); - DefineProp('TwoDigitYearCenturyWindow',tkInteger,__GetTwoDigitYearCenturyWindow,__SetTwoDigitYearCenturyWindow,nil,false,0); - DefineProp('ListSeparator',tkVariant,__GetListSeparator,__SetListSeparator,nil,false,0); - DefineProp('MinCurrency',tkVariant,__GetMinCurrency,nil,nil,false,0); - DefineProp('MaxCurrency',tkVariant,__GetMaxCurrency,nil,nil,false,0); - DefineProp('MinDateTime',tkVariant,__GetMinDateTime,nil,nil,false,0); - DefineProp('MaxDateTime',tkVariant,__GetMaxDateTime,nil,nil,false,0); - DefineProp('LeadBytes',tkInteger,__GetLeadBytes,__SetLeadBytes,nil,false,0); - DefineProp('HexDisplayPrefix',tkVariant,__GetHexDisplayPrefix,__SetHexDisplayPrefix,nil,false,0); - AddConstant('fvExtended',fvExtended); - AddConstant('fvCurrency',fvCurrency); - AddConstant('ffGeneral',ffGeneral); - AddConstant('ffExponent',ffExponent); - AddConstant('ffFixed',ffFixed); - AddConstant('ffNumber',ffNumber); - AddConstant('ffCurrency',ffCurrency); - AddConstant('mbSingleByte',mbSingleByte); - AddConstant('mbLeadByte',mbLeadByte); - AddConstant('mbTrailByte',mbTrailByte); - AddConstant('mkNone',mkNone); - AddConstant('mkExactMatch',mkExactMatch); - AddConstant('mkSingleMatch',mkSingleMatch); - AddConstant('mkAmbiguous',mkAmbiguous); - AddConstant('ntContainsUnit',ntContainsUnit); - AddConstant('ntRequiresPackage',ntRequiresPackage); - AddConstant('ntDcpBpiName',ntDcpBpiName); - AddConstant('fmOpenRead',fmOpenRead); - AddConstant('fmOpenWrite',fmOpenWrite); - AddConstant('fmOpenReadWrite',fmOpenReadWrite); - AddConstant('fmShareCompat',fmShareCompat); - AddConstant('fmShareExclusive',fmShareExclusive); - AddConstant('fmShareDenyWrite',fmShareDenyWrite); - AddConstant('fmShareDenyRead',fmShareDenyRead); - AddConstant('fmShareDenyNone',fmShareDenyNone); - AddConstant('faReadOnly',faReadOnly); - AddConstant('faHidden',faHidden); - AddConstant('faSysFile',faSysFile); - AddConstant('faVolumeID',faVolumeID); - AddConstant('faDirectory',faDirectory); - AddConstant('faArchive',faArchive); - AddConstant('faAnyFile',faAnyFile); - AddConstant('HoursPerDay',HoursPerDay); - AddConstant('MinsPerDay',MinsPerDay); - AddConstant('SecsPerDay',SecsPerDay); - AddConstant('MSecsPerDay',MSecsPerDay); - AddConstant('DateDelta',DateDelta); - AddConstant('UnixDateDelta',UnixDateDelta); - AddConstant('MaxEraCount',MaxEraCount); - AddConstant('PathDelim',PathDelim); - AddConstant('DriveDelim',DriveDelim); - AddConstant('PathSep',PathSep); - AddConstant('DefaultTrueBoolStr',DefaultTrueBoolStr); - AddConstant('DefaultFalseBoolStr',DefaultFalseBoolStr); - AddConstant('SwitchChars',IntFromConstSet(SwitchChars)); - AddConstant('pfNeverBuild',pfNeverBuild); - AddConstant('pfDesignOnly',pfDesignOnly); - AddConstant('pfRunOnly',pfRunOnly); - AddConstant('pfIgnoreDupUnits',pfIgnoreDupUnits); - AddConstant('pfModuleTypeMask',pfModuleTypeMask); - AddConstant('pfExeModule',pfExeModule); - AddConstant('pfPackageModule',pfPackageModule); - AddConstant('pfProducerMask',pfProducerMask); - AddConstant('pfV3Produced',pfV3Produced); - AddConstant('pfProducerUndefined',pfProducerUndefined); - AddConstant('pfBCB4Produced',pfBCB4Produced); - AddConstant('pfDelphi4Produced',pfDelphi4Produced); - AddConstant('pfLibraryModule',pfLibraryModule); - AddConstant('ufMainUnit',ufMainUnit); - AddConstant('ufPackageUnit',ufPackageUnit); - AddConstant('ufWeakUnit',ufWeakUnit); - AddConstant('ufOrgWeakUnit',ufOrgWeakUnit); - AddConstant('ufImplicitUnit',ufImplicitUnit); - AddConstant('ufWeakPackageUnit',ufWeakPackageUnit); - end; -end; - -class function TatSysUtilsLibrary.LibraryName: string; -begin - result := 'SysUtils'; -end; - -initialization - RegisterScripterLibrary(TatSysUtilsLibrary, True); - -{$WARNINGS ON} - -end.