maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
18402: Function RanMar : Float');<br />
18403: Function RanGaussStd : Float');<br />
18404: Function RanGauss( Mu, Sigma : Float) : Float');<br />
184<strong>05</strong>: end;<br />
18406:<br />
18407: procedure SIRegister_fcomp(CL: TPSPascalCompiler);<br />
184<strong>08</strong>: begin<br />
18409: CL.AddTypeS('ComplexForm', '( Rec, Pol )');<br />
18410: CL.AddTypeS('TComplex', 'record Form : ComplexForm; X : Float; Y : Float; R :'<br />
18411: +' Float; Theta : Float; end');<br />
18412: Procedure CSet( var Z : TComplex; A, B : Float; F : ComplexForm)');<br />
18413: Procedure CConvert( var Z : TComplex; F : ComplexForm)');<br />
184<strong>14</strong>: Procedure CSwap( var X, Y : TComplex)');<br />
18415: Function CReal( Z : TComplex) : Float');<br />
18416: Function CImag( Z : TComplex) : Float');<br />
184<strong>17</strong>: Function CAbs( Z : TComplex) : Float');<br />
18418: Function CArg( Z : TComplex) : Float');<br />
18419: Function CSgn( Z : TComplex) : Integer');<br />
18420: Procedure CNeg( A : TComplex; var Z : TComplex)');<br />
18421: Procedure CConj( A : TComplex; var Z : TComplex)');<br />
18422: Procedure CAdd( A, B : TComplex; var Z : TComplex)');<br />
18423: Procedure CSub( A, B : TComplex; var Z : TComplex)');<br />
18424: Procedure CDiv( A, B : TComplex; var Z : TComplex)');<br />
18425: Procedure CMult( A, B : TComplex; var Z : TComplex)');<br />
18426: Procedure CLn( A : TComplex; var Z : TComplex)');<br />
18427: Procedure CExp( A : TComplex; var Z : TComplex)');<br />
18428: Procedure CPower( A, B : TComplex; var Z : TComplex)');<br />
18429: Procedure CIntPower( A : TComplex; N : Integer; var Z : TComplex)');<br />
18430: Procedure CRealPower( A : TComplex; X : Float; var Z : TComplex)');<br />
18431: Procedure CSqrt( A : TComplex; var Z : TComplex)');<br />
18432: Procedure CRoot( A : TComplex; K, N : Integer; var Z : TComplex)');<br />
18433: Procedure CCSin( A : TComplex; var Z : TComplex)');<br />
18434: Procedure CCos( A : TComplex; var Z : TComplex)');<br />
18435: Procedure CTan( A : TComplex; var Z : TComplex)');<br />
18436: Procedure CArcSin( A : TComplex; var Z : TComplex)');<br />
184<strong>37</strong>: Procedure CArcCos( A : TComplex; var Z : TComplex)');<br />
18438: Procedure CArcTan( A : TComplex; var Z : TComplex)');<br />
18439: Procedure CSinh( A : TComplex; var Z : TComplex)');<br />
18440: Procedure CCosh( A : TComplex; var Z : TComplex)');<br />
18441: Procedure CTanh( A : TComplex; var Z : TComplex)');<br />
18442: Procedure CArcSinh( A : TComplex; var Z : TComplex)');<br />
18443: Procedure CArcCosh( A : TComplex; var Z : TComplex)');<br />
18444: Procedure CArcTanh( A : TComplex; var Z : TComplex)');<br />
18445: Procedure CLnGamma( A : TComplex; var Z : TComplex)');<br />
18446: end;<br />
18447:<br />
18448: procedure SIRegister_XSBuiltIns(CL: TPSPascalCompiler);<br />
18449: begin<br />
18450: CL.AddConstantN('SHexMarker','String').SetString( '$');<br />
18451: Function DateTimeToXMLTime( Value : TDateTime; ApplyLocalBias : Boolean) : WideString');<br />
18452: Function XMLTimeToDateTime( const XMLDateTime : WideString; AsUTCTime : Boolean): TDateTime');<br />
18453: Function DateTimeToXSDateTime(const Value: TDateTime; ApplyLocalBias: Boolean): TXSDateTime');<br />
18454: Function GetDataFromFile( AFileName : string) : string');<br />
18455: Function SoapFloatToStr( Value : double) : string');<br />
18456: Function SoapStrToFloat( Value : string) : double');<br />
18457: Procedure InitXSTypes');<br />
18458: end;<br />
18459:<br />
18460: procedure SIRegister_CompFileIo(CL: TPSPascalCompiler);<br />
18461: begin<br />
18462: SIRegister_TComponentStream(CL);<br />
18463: CL.AddTypeS('TComponentStream', 'TMemoryStream');<br />
18464: CL.AddTypeS('TComponentFileFormat', '( cffText, cffBinary )');<br />
18465: CL.AddTypeS('TComponentArray', 'array of TComponent');<br />
18466: TResourceNaming',' rnClassNameTag, rnClassName, rnClassTag, rnNameTag, rnClass, rnName, rnTag )');<br />
18467: CL.AddDelphiFunction('Function VOID_COMP : ___Pointer');<br />
18468: CL.AddDelphiFunction('Function VOID_FORM : ___Pointer');<br />
18469: CL.AddDelphiFunction('Function CreateIoForm( AForm : TCustomForm; ClassType : TFormClass) : TCustomForm');<br />
18470: Function GetComponentTree(Component:TComponent;pComponents:TComponentArray; bAddSelf:Boolean):LongInt');<br />
18471: Function pPosEx( SearchStr : PChar; Str : PChar; var Pos : LongInt) : PChar');<br />
18472: Function pGetTextBetween(pBuff: PChar;bSearchCode:string; eSearchCode:string;Container:TStrings) :<br />
LongInt');<br />
18473: Function pComponentToString( Component : TComponent) : string');<br />
18474: //Function StringToComponent( Value : string; ComponentClass : TComponentClass) : TComponent');<br />
18475: Function StringToObjectBinaryStream( Value : string; BinStream : TMemoryStream; ResName : string):<br />
Boolean;<br />
18476: Function ObjectBinaryStreamToString(BinStream:TMemoryStream;var sResult:string;<br />
bResource:Boolean):Boolean;<br />
18477: Function ObjectTextToBinaryStream( StrStream, BinStream : TComponentStream; ObjCount : LongInt) :<br />
LongInt');<br />
18478: Function ObjectBinaryStreamToObjectTextStream( BinStream : TMemoryStream; StrStream : TMemoryStream;<br />
bResource : Boolean) : Boolean');<br />
18479: Function GetResHeaderInfo( Stream : TMemoryStream; sl : TStrings) : Boolean');<br />
18480: Function pGetResourceName( Component : TComponent; NamingMethod : TResourceNaming) : string');<br />
18481: Function GetFormResourceStream(Form:TCustomForm;ResName:string; var ResourceStream:TMemoryStream):Boolean;<br />
18482: Function WriteComponentsToFile( FormsAndComponents : array of TComponent; FileName : string; Format :<br />
TComponentFileFormat; StoreComponentNames : Boolean) : Boolean');<br />
18483: Function ReadComponentsFromFile( FormsAndComponents : array of TComponent; FileName: string): Boolean;');<br />
18484: //Function ReadComponentsFromFile1( FileName : string; pComponents : array of TPComponent;<br />
ComponentClasses : array of TComponentClass) : Boolean;');<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 215