diff --git a/src/CompilerTests/Applications/D000/Prg/D000.prg b/src/CompilerTests/Applications/D000/Prg/D000.prg new file mode 100644 index 0000000000..71c507f90c --- /dev/null +++ b/src/CompilerTests/Applications/D000/Prg/D000.prg @@ -0,0 +1,78 @@ +//test primary constructor-core dialect/net framework +FUNCTION Start( ) AS VOID + LOCAL TypedCntr:=TestC1{1} AS TestC1 + xAssert(TypedCntr:Value()==1) + + LOCAL PrimaryCntr:=TestC2{2} AS TestC2 + xAssert(PrimaryCntr:Value==2) + + LOCAL BothCntr1:=TestC3{} AS TestC3 + xAssert(BothCntr1:Value()==0) + LOCAL BothCntr2:=TestC3{3} AS TestC3 + xAssert(BothCntr2:Value()==3) + LOCAL BothCntr3:=TestC3{3,1} AS TestC3 + xAssert(BothCntr3:Value()==3) + + LOCAL TypedStr:=TestS1{1} AS TestS1 + xAssert(TypedStr:Value()==1) + + LOCAL PrimaryStr:=TestS2{2} AS TestS2 + xAssert(PrimaryStr:Value==2) + + LOCAL BothStr1:=TestS3{} AS TestS3 + xAssert(BothStr1:Value()==0) + LOCAL BothStr2:=TestS3{3} AS TestS3 + xAssert(BothStr2:Value()==3) + LOCAL BothStr3:=TestS3{3,1} AS TestS3 + xAssert(BothStr3:Value()==3) + +RETURN + +#region Class +CLASS TestC1 //Class with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END CLASS + +CLASS TestC2(x AS INT) //Class with just a primary constructor + PUBLIC Value:= x AS INT +END CLASS + +CLASS TestC3 (x AS INT) //Class with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END CLASS +#endregion + +#region Struct +STRUCT TestS1 //Struct with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END STRUCT + +STRUCT TestS2(x AS INT) //Struct with just a primary constructor + PUBLIC Value:= x AS INT +END STRUCT + +STRUCT TestS3 (x AS INT) //Struct with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END STRUCT +#endregion + +PROC xAssert(l AS LOGIC) +IF .NOT. l + THROW Exception{"Incorrect result in line " + System.Diagnostics.StackTrace{TRUE}:GetFrame(1):GetFileLineNumber():ToString()} +END IF +? "Assertion passed" +RETURN diff --git a/src/CompilerTests/Applications/D001/Prg/D001.prg b/src/CompilerTests/Applications/D001/Prg/D001.prg new file mode 100644 index 0000000000..410077cc5e --- /dev/null +++ b/src/CompilerTests/Applications/D001/Prg/D001.prg @@ -0,0 +1,146 @@ +//test primary constructor-core dialect/net sdk +FUNCTION Start( ) AS VOID + LOCAL TypedCntr:=TestC1{1} AS TestC1 + xAssert(TypedCntr:Value()==1) + + LOCAL PrimaryCntr:=TestC2{2} AS TestC2 + xAssert(PrimaryCntr:Value==2) + + LOCAL BothCntr1:=TestC3{} AS TestC3 + xAssert(BothCntr1:Value()==0) + LOCAL BothCntr2:=TestC3{3} AS TestC3 + xAssert(BothCntr2:Value()==3) + LOCAL BothCntr3:=TestC3{3,1} AS TestC3 + xAssert(BothCntr3:Value()==3) + + LOCAL TypedStr:=TestS1{1} AS TestS1 + xAssert(TypedStr:Value()==1) + + LOCAL PrimaryStr:=TestS2{2} AS TestS2 + xAssert(PrimaryStr:Value==2) + + LOCAL BothStr1:=TestS3{} AS TestS3 + xAssert(BothStr1:Value()==0) + LOCAL BothStr2:=TestS3{3} AS TestS3 + xAssert(BothStr2:Value()==3) + LOCAL BothStr3:=TestS3{3,1} AS TestS3 + xAssert(BothStr3:Value()==3) + + LOCAL TypedRcd:=TestR1{1} AS TestR1 + xAssert(TypedRcd:Value()==1) + + LOCAL PrimaryRcd:=TestR2{2} AS TestR2 + xAssert(PrimaryRcd:Value==2) + + LOCAL BothRcd1:=TestR3{} AS TestR3 + xAssert(BothRcd1:Value()==0) + LOCAL BothRcd2:=TestR3{3} AS TestR3 + xAssert(BothRcd2:Value()==3) + LOCAL BothRcd3:=TestR3{3,1} AS TestR3 + xAssert(BothRcd3:Value()==3) + + LOCAL TypedRStr:=TestRS1{1} AS TestRS1 + xAssert(TypedRStr:Value()==1) + + LOCAL PrimaryRStr:=TestRS2{2} AS TestRS2 + xAssert(PrimaryRStr:Value==2) + + LOCAL BothRStr1:=TestRS3{} AS TestRS3 + xAssert(BothRStr1:Value()==0) + LOCAL BothRStr2:=TestRS3{3} AS TestRS3 + xAssert(BothRStr2:Value()==3) + LOCAL BothRStr3:=TestRS3{3,1} AS TestRS3 + xAssert(BothRStr3:Value()==3) + +RETURN + +#region Class +CLASS TestC1 //Class with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END CLASS + +CLASS TestC2(x AS INT) //Class with just a primary constructor + PUBLIC Value:= x AS INT +END CLASS + +CLASS TestC3 (x AS INT) //Class with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END CLASS +#endregion + +#region Struct +STRUCT TestS1 //Struct with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END STRUCT + +STRUCT TestS2(x AS INT) //Struct with just a primary constructor + PUBLIC Value:= x AS INT +END STRUCT + +STRUCT TestS3 (x AS INT) //Struct with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END STRUCT +#endregion + +#region Record +RECORD TestR1 //Record with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END RECORD + +RECORD TestR2(x AS INT) //Record with just a primary constructor + PUBLIC Value:= x AS INT +END RECORD + +RECORD TestR3 (x AS INT) //Record with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END RECORD +#endregion + +#region Record Struct +RECORD STRUCT TestRS1 //Record Struct with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END STRUCT + +RECORD STRUCT TestRS2(x AS INT) //Record Struct with just a primary constructor + PUBLIC Value:= x AS INT +END STRUCT + +RECORD STRUCT TestRS3 (x AS INT) //Record Struct with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END STRUCT +#endregion + +PROC xAssert(l AS LOGIC) +IF .NOT. l + THROW Exception{"Incorrect result in line " + System.Diagnostics.StackTrace{TRUE}:GetFrame(1):GetFileLineNumber():ToString()} +END IF +? "Assertion passed" +RETURN diff --git a/src/CompilerTests/Applications/D002/Prg/D002.prg b/src/CompilerTests/Applications/D002/Prg/D002.prg new file mode 100644 index 0000000000..2d59900af3 --- /dev/null +++ b/src/CompilerTests/Applications/D002/Prg/D002.prg @@ -0,0 +1,96 @@ +//test primary constructor-vo dialect/net framework +FUNCTION Start( ) AS VOID + LOCAL TypedCntr:=TestC1{1} AS TestC1 + xAssert(TypedCntr:Value()==1) + + LOCAL PrimaryCntr:=TestC2{2} AS TestC2 + xAssert(PrimaryCntr:Value==2) + + LOCAL BothCntr1:=TestC3{} AS TestC3 + xAssert(BothCntr1:Value()==0) + LOCAL BothCntr2:=TestC3{3} AS TestC3 + xAssert(BothCntr2:Value()==3) + LOCAL BothCntr3:=TestC3{3,1} AS TestC3 + xAssert(BothCntr3:Value()==3) + + LOCAL ClipperCntr:=TestC4{"apple", 42} AS TestC4 + xAssert(ClipperCntr:Value()==4) + + LOCAL TypedStr:=TestS1{1} AS TestS1 + xAssert(TypedStr:Value()==1) + + LOCAL PrimaryStr:=TestS2{2} AS TestS2 + xAssert(PrimaryStr:Value==2) + + LOCAL BothStr1:=TestS3{} AS TestS3 + xAssert(BothStr1:Value()==0) + LOCAL BothStr2:=TestS3{3} AS TestS3 + xAssert(BothStr2:Value()==3) + LOCAL BothStr3:=TestS3{3,1} AS TestS3 + xAssert(BothStr3:Value()==3) + + LOCAL ClipperStr:=TestS4{"notapple"} AS TestS4 + xAssert(ClipperStr:Value()==4) + +RETURN + +#region Class +CLASS TestC1 //Class with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END CLASS + +CLASS TestC2(x AS INT) //Class with just a primary constructor + PUBLIC Value:= x AS INT +END CLASS + +CLASS TestC3 (x AS INT) //Class with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END CLASS + +CLASS TestC4 //Class with clipper constructor + PUBLIC CONSTRUCTOR(a) CLIPPER + PUBLIC METHOD Value() AS INT + RETURN 4 +END CLASS +#endregion + +#region Struct +STRUCT TestS1 //Struct with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END STRUCT + +STRUCT TestS2(x AS INT) //Struct with just a primary constructor + PUBLIC Value:= x AS INT +END STRUCT + +STRUCT TestS3 (x AS INT) //Struct with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END STRUCT + +STRUCT TestS4 //Struct with clipper constructor + PUBLIC CONSTRUCTOR(b) CLIPPER + PUBLIC METHOD Value() AS INT + RETURN 4 +END STRUCT +#endregion + +PROC xAssert(l AS LOGIC) +IF .NOT. l + THROW Exception{"Incorrect result in line " + System.Diagnostics.StackTrace{TRUE}:GetFrame(1):GetFileLineNumber():ToString()} +END IF +? "Assertion passed" +RETURN diff --git a/src/CompilerTests/Applications/D003/Prg/D003.prg b/src/CompilerTests/Applications/D003/Prg/D003.prg new file mode 100644 index 0000000000..7f7480996f --- /dev/null +++ b/src/CompilerTests/Applications/D003/Prg/D003.prg @@ -0,0 +1,121 @@ +//test primary constructor-vo dialect/net sdk +FUNCTION Start( ) AS VOID + LOCAL TypedCntr:=TestC1{1} AS TestC1 + xAssert(TypedCntr:Value()==1) + + LOCAL PrimaryCntr:=TestC2{2} AS TestC2 + xAssert(PrimaryCntr:Value==2) + + LOCAL BothCntr1:=TestC3{} AS TestC3 + xAssert(BothCntr1:Value()==0) + LOCAL BothCntr2:=TestC3{3} AS TestC3 + xAssert(BothCntr2:Value()==3) + LOCAL BothCntr3:=TestC3{3,1} AS TestC3 + xAssert(BothCntr3:Value()==3) + + LOCAL ClipperCntr:=TestC4{"apple", 42} AS TestC4 + xAssert(ClipperCntr:Value()==4) + + LOCAL TypedStr:=TestS1{1} AS TestS1 + xAssert(TypedStr:Value()==1) + + LOCAL PrimaryStr:=TestS2{2} AS TestS2 + xAssert(PrimaryStr:Value==2) + + LOCAL BothStr1:=TestS3{} AS TestS3 + xAssert(BothStr1:Value()==0) + LOCAL BothStr2:=TestS3{3} AS TestS3 + xAssert(BothStr2:Value()==3) + LOCAL BothStr3:=TestS3{3,1} AS TestS3 + xAssert(BothStr3:Value()==3) + + LOCAL ClipperStr:=TestS4{"notapple"} AS TestS4 + xAssert(ClipperStr:Value()==4) + +// LOCAL RecordCntr:=TestR{1} AS TestR +// xAssert(RecordCntr:Value()==4) + +// LOCAL RStructCntr:=TestRS{1} AS TestRS +// xAssert(RStructCntr:Value()==4) + +RETURN + + + + +#region Class +CLASS TestC1 //Class with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END CLASS + +CLASS TestC2(x AS INT) //Class with just a primary constructor + PUBLIC Value:= x AS INT +END CLASS + +CLASS TestC3 (x AS INT) //Class with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END CLASS + +CLASS TestC4 //Class with clipper constructor + PUBLIC CONSTRUCTOR(a) CLIPPER + PUBLIC METHOD Value() AS INT + RETURN 4 +END CLASS +#endregion + +#region Struct +STRUCT TestS1 //Struct with only a typed constructor + PUBLIC CONSTRUCTOR (y AS INT) + PUBLIC METHOD Value() AS INT + RETURN 1 +END STRUCT + +STRUCT TestS2(x AS INT) //Struct with just a primary constructor + PUBLIC Value:= x AS INT +END STRUCT + +STRUCT TestS3 (x AS INT) //Struct with a primary construstor and two typed constructor + PUBLIC CONSTRUCTOR () + SELF(0) + PUBLIC CONSTRUCTOR(a AS INT, b AS INT) + SELF(a) + PUBLIC METHOD Value() AS INT + RETURN x +END STRUCT + +STRUCT TestS4 + PUBLIC CONSTRUCTOR(b) CLIPPER + PUBLIC METHOD Value() AS INT + RETURN 4 +END STRUCT +#endregion +//Record with clipper constructor throws internal compiler error +#region Record +//RECORD TestR //Record with only a clipper constructor +// PUBLIC CONSTRUCTOR (y) CLIPPER +// PUBLIC METHOD Value() AS INT +// RETURN 4 +//END RECORD +#endregion + +#region Record Struct +//RECORD STRUCT TestRS //Record Struct with only a clipper constructor +// PUBLIC CONSTRUCTOR (y) CLIPPER +// PUBLIC METHOD Value() AS INT +// RETURN 4 +//END STRUCT +#endregion + +PROC xAssert(l AS LOGIC) +IF .NOT. l + THROW Exception{"Incorrect result in line " + System.Diagnostics.StackTrace{TRUE}:GetFrame(1):GetFileLineNumber():ToString()} +END IF +? "Assertion passed" +RETURN diff --git a/src/CompilerTests/xSharp Tests30.viproj b/src/CompilerTests/xSharp Tests30.viproj index 28adf44554..8f4a8e44ab 100644 --- a/src/CompilerTests/xSharp Tests30.viproj +++ b/src/CompilerTests/xSharp Tests30.viproj @@ -3,7 +3,7 @@ PROJECT = xSharp 3 Tests IDEVersion = 1.06 OutputFolder = %ProjectPath%\Bin\ Description = -GUID = 21F41501-E628-4FA2-BDC3-0C4DE74BE31D +GUID = FA865802-A64E-4F2A-A76E-25A8B921AFC4 PrgEncoding = Default SupportCF = 0 NoAppFileCreate = 1 @@ -28,10 +28,10 @@ CustomControlsGuid = 91D751CB-030B-4A75-98B9-05D9B82C3067 DefaultPropertiesGuid = 25819EAF-9863-441B-90D0-A9072599943A [Application Groups] -ApplicationGroup = BUGS,E440B545-3C18-4457-A54F-4F3256349ABE,21F41501-E628-4FA2-BDC3-0C4DE74BE31D +ApplicationGroup = BUGS,E440B545-3C18-4457-A54F-4F3256349ABE,FA865802-A64E-4F2A-A76E-25A8B921AFC4 ApplicationGroup = Runtime issues,D2167BBF-156A-4E64-861D-753C3894EE87,E440B545-3C18-4457-A54F-4F3256349ABE -ApplicationGroup = MUST REPORT ERROR,A95A4D23-3574-40FD-B873-22D28ACCA212,21F41501-E628-4FA2-BDC3-0C4DE74BE31D -ApplicationGroup = FIXED,715D7617-320E-41FF-B82F-E314D950CD23,21F41501-E628-4FA2-BDC3-0C4DE74BE31D +ApplicationGroup = MUST REPORT ERROR,A95A4D23-3574-40FD-B873-22D28ACCA212,FA865802-A64E-4F2A-A76E-25A8B921AFC4 +ApplicationGroup = FIXED,715D7617-320E-41FF-B82F-E314D950CD23,FA865802-A64E-4F2A-A76E-25A8B921AFC4 ApplicationGroup = C250-C299,F5307DDC-4DCD-4576-89C9-1B07F6C6D655,715D7617-320E-41FF-B82F-E314D950CD23 ApplicationGroup = C350-C399,CB2E170B-0122-4D3B-8692-FF0130BAE231,715D7617-320E-41FF-B82F-E314D950CD23 ApplicationGroup = C400-C449,C8A205F1-7289-4E5A-A714-71E5A29AFFCE,715D7617-320E-41FF-B82F-E314D950CD23 @@ -58,9 +58,9 @@ ApplicationGroup = R900-R949,1BBEE766-1BC4-4BAE-9C98-BAEB270E8A0F,715D7617-320E- ApplicationGroup = C900-C949,3AF1ABF5-A5F7-479A-BB57-D226C13AA002,715D7617-320E-41FF-B82F-E314D950CD23 ApplicationGroup = R850-R899,4913BA1E-7338-4E92-9D0A-7C3EABF0B562,715D7617-320E-41FF-B82F-E314D950CD23 ApplicationGroup = C950-C999,61836030-A334-4343-8288-FCFDE6361FD6,715D7617-320E-41FF-B82F-E314D950CD23 -ApplicationGroup = NEW,B9CFE839-D401-428D-94E9-E9D21E9F772D,21F41501-E628-4FA2-BDC3-0C4DE74BE31D -ApplicationGroup = Known Incompatibilities with VO,40E29AF9-85EE-4D50-BADC-953EE318D423,21F41501-E628-4FA2-BDC3-0C4DE74BE31D -ApplicationGroup = Broken,B7F6C4E3-31FD-40FC-B820-C57110817A58,21F41501-E628-4FA2-BDC3-0C4DE74BE31D +ApplicationGroup = NEW,B9CFE839-D401-428D-94E9-E9D21E9F772D,FA865802-A64E-4F2A-A76E-25A8B921AFC4 +ApplicationGroup = Known Incompatibilities with VO,40E29AF9-85EE-4D50-BADC-953EE318D423,FA865802-A64E-4F2A-A76E-25A8B921AFC4 +ApplicationGroup = Broken,B7F6C4E3-31FD-40FC-B820-C57110817A58,FA865802-A64E-4F2A-A76E-25A8B921AFC4 [Applications] @@ -146518,6 +146518,506 @@ AppConfig = Release,22222222-2222-2222-2222-222222222222 ForceX86=0 Optimize=0 ENDApplication = C969 - Nested WITH statements produce a bogus compiler error #1991 + +ApplicationGroup = B9CFE839-D401-428D-94E9-E9D21E9F772D +; ************** APPLICATION D000 ************* +Application = D000 +IDEVersion = 1.06 +GalleryName = +GalleryPage = +GalleryDefaultName = +Target = 0 +Platform = AnyCPU +Language = XSharp +Runtime = CLR4 +NetVersion = +Dialect = Core +Folder = %ProjectPath%\Applications\D000\ +PrgSubFolder = \Prg +ResourcesSubFolder = \Resources +Description = Test primary constructor (core dialect) +NameSpace = +Assembly = D000 +Extension = +ApplicationIcon = +OutputFolder = +Frameworks = 1 +GUID = 05C6C038-BA96-46DA-867B-417B73622D15 +IncludeInProjectBuild = 1 +IncludeInProjectSearch = 1 +IncludeInProjectExport = 1 +EmitAssemblyProperties = 0 +EmitNetVersion = 0 +IncludePath = +StdDefsFile = +AppToRun = +SignAssembly = 0 +KeyFile = + +[ExportOptions] +ExportResources = 0 +ExportImages = 0 +[D000 FileGroups] +[D000 Files] +File = %AppPath%\Prg\D000.prg +FileGUID = 72286ACD-96AB-48BB-83EB-548C56FD8FA2 +FileType = Code +CopyToBin = 0 +[D000 References] +ReferenceGAC = CLR4,System,1,0,4.0.0.0 +ReferenceGAC = CLR4,System.Core,1,0,4.0.0.0 +[D000 Resources] +[D000 Native Resources] +[D000 License files] +[D000 General Options] +Switches= +IgnoreWarnings= +ZeroArrays=0 +CaseSensitive=0 +ImplicitNamespace=0 +VO1=0 +VO2=0 +VO3=0 +VO4=0 +VO5=0 +VO6=0 +VO7=0 +VO8=0 +VO9=0 +VO10=0 +VO11=0 +VO12=0 +VO13=0 +VO14=0 +VO15=0 +VO16=0 +VO17=0 +FOX1=0 +FOX2=0 +XPP1=0 +LateBound=0 +Unsafe=0 +Undeclared=0 +EnforceSelf=0 +EnforceOverride=0 +UseNativeVersion=0 +MemVar=0 +IgnoreStdDefs=0 +Ovf=0 +FOvf=0 +ModernSyntax=0 +NamedArgs=0 +InitLocals=0 +AllowOldStyleAssignments=0 +AllowDotOption=0 +ResponseOnly=0 +[D000 Configurations] +AppConfig = Debug,11111111-1111-1111-1111-111111111111 + Switches= + SwitchesCF= + CommandLine= + CommandLineCF= + Debug=1 + DebugInit=1 + DefineDebug=1 + DefineTrace=0 + SyntaxOnly=0 + WarningsErrors=0 + ForceConsole=0 + ForceX86=0 + Optimize=0 +AppConfig = Release,22222222-2222-2222-2222-222222222222 + Switches= + SwitchesCF= + CommandLine= + CommandLineCF= + Debug=0 + DebugInit=0 + DefineDebug=0 + DefineTrace=0 + SyntaxOnly=0 + WarningsErrors=0 + ForceConsole=0 + ForceX86=0 + Optimize=0 +ENDApplication = D000 + +ApplicationGroup = B9CFE839-D401-428D-94E9-E9D21E9F772D +; ************** APPLICATION D001 ************* +Application = D001 +IDEVersion = 1.06 +GalleryName = +GalleryPage = +GalleryDefaultName = +Target = 0 +Platform = AnyCPU +Language = XSharp +Runtime = NetCore +NetVersion = 9.0.17 +Dialect = Core +Folder = %ProjectPath%\Applications\D001\ +PrgSubFolder = \Prg +ResourcesSubFolder = \Resources +Description = NetCore Console Application +NameSpace = +Assembly = D001 +Extension = +ApplicationIcon = +OutputFolder = +Frameworks = 1 +GUID = EBE51B8B-A083-4C57-9CA0-A3B3CC767F42 +IncludeInProjectBuild = 1 +IncludeInProjectSearch = 1 +IncludeInProjectExport = 1 +EmitAssemblyProperties = 0 +EmitNetVersion = 0 +IncludePath = +StdDefsFile = +AppToRun = +SignAssembly = 0 +KeyFile = + +[ExportOptions] +ExportResources = 0 +ExportImages = 0 +[D001 FileGroups] +[D001 Files] +File = %AppPath%\Prg\D001.prg +FileGUID = 5BD0733C-4C02-449B-A971-9D847164FA2C +FileType = Code +CopyToBin = 0 +[D001 References] +ReferenceGAC = NetCore|Microsoft.NETCore.App,System.dll,1,0 +ReferenceGAC = NetCore|Microsoft.NETCore.App,System.Runtime.dll,1,0 +ReferenceGAC = NetCore|Microsoft.NETCore.App,System.Private.CoreLib.dll,1,0 +ReferenceGAC = NetCore|Microsoft.NETCore.App,System.Console.dll,1,0 +[D001 Resources] +[D001 Native Resources] +[D001 License files] +[D001 General Options] +Switches= +IgnoreWarnings= +ZeroArrays=0 +CaseSensitive=0 +ImplicitNamespace=0 +VO1=0 +VO2=0 +VO3=0 +VO4=0 +VO5=0 +VO6=0 +VO7=0 +VO8=0 +VO9=0 +VO10=0 +VO11=0 +VO12=0 +VO13=0 +VO14=0 +VO15=0 +VO16=0 +VO17=0 +FOX1=0 +FOX2=0 +XPP1=0 +LateBound=0 +Unsafe=0 +Undeclared=0 +EnforceSelf=0 +EnforceOverride=0 +UseNativeVersion=0 +MemVar=0 +IgnoreStdDefs=0 +Ovf=0 +FOvf=0 +ModernSyntax=0 +NamedArgs=0 +InitLocals=0 +AllowOldStyleAssignments=0 +AllowDotOption=0 +ResponseOnly=0 +[D001 Configurations] +AppConfig = Debug,11111111-1111-1111-1111-111111111111 + Switches= + SwitchesCF= + CommandLine= + CommandLineCF= + Debug=1 + DebugInit=1 + DefineDebug=1 + DefineTrace=0 + SyntaxOnly=0 + WarningsErrors=0 + ForceConsole=0 + ForceX86=0 + Optimize=0 +AppConfig = Release,22222222-2222-2222-2222-222222222222 + Switches= + SwitchesCF= + CommandLine= + CommandLineCF= + Debug=0 + DebugInit=0 + DefineDebug=0 + DefineTrace=0 + SyntaxOnly=0 + WarningsErrors=0 + ForceConsole=0 + ForceX86=0 + Optimize=0 +ENDApplication = D001 + +ApplicationGroup = B9CFE839-D401-428D-94E9-E9D21E9F772D +; ************** APPLICATION D002 ************* +Application = D002 +IDEVersion = 1.06 +GalleryName = +GalleryPage = +GalleryDefaultName = +Target = 0 +Platform = AnyCPU +Language = XSharp +Runtime = CLR4 +NetVersion = +Dialect = VO +Folder = %ProjectPath%\Applications\D002\ +PrgSubFolder = \Prg +ResourcesSubFolder = \Resources +Description = Just a simple x# application +NameSpace = +Assembly = D002 +Extension = +ApplicationIcon = +OutputFolder = +Frameworks = 1 +GUID = 407B546B-0A6E-4F1C-9A71-CC29B7288ECD +IncludeInProjectBuild = 1 +IncludeInProjectSearch = 1 +IncludeInProjectExport = 1 +EmitAssemblyProperties = 0 +EmitNetVersion = 0 +IncludePath = +StdDefsFile = +AppToRun = +SignAssembly = 0 +KeyFile = + +[ExportOptions] +ExportResources = 0 +ExportImages = 0 +[D002 FileGroups] +[D002 Files] +File = %AppPath%\Prg\D002.prg +FileGUID = C2A0A77F-D61B-43A4-B309-EB59295016BD +FileType = Code +CopyToBin = 0 +[D002 References] +ReferenceGAC = CLR4,System,1,0,4.0.0.0 +ReferenceGAC = CLR4,System.Core,1,0,4.0.0.0 +ReferenceBrowse = C:\Program Files (x86)\XSharp\Redist\net46\XSharp.RT.dll,1,1 +ReferenceBrowse = C:\Program Files (x86)\XSharp\Redist\net46\XSharp.Core.dll,1,1 +[D002 Resources] +[D002 Native Resources] +[D002 License files] +[D002 General Options] +Switches= +IgnoreWarnings= +ZeroArrays=0 +CaseSensitive=0 +ImplicitNamespace=0 +VO1=0 +VO2=0 +VO3=0 +VO4=0 +VO5=0 +VO6=0 +VO7=0 +VO8=0 +VO9=0 +VO10=0 +VO11=0 +VO12=0 +VO13=0 +VO14=0 +VO15=0 +VO16=0 +VO17=0 +FOX1=0 +FOX2=0 +XPP1=0 +LateBound=0 +Unsafe=0 +Undeclared=0 +EnforceSelf=0 +EnforceOverride=0 +UseNativeVersion=0 +MemVar=0 +IgnoreStdDefs=0 +Ovf=0 +FOvf=0 +ModernSyntax=0 +NamedArgs=0 +InitLocals=0 +AllowOldStyleAssignments=0 +AllowDotOption=0 +ResponseOnly=0 +[D002 Configurations] +AppConfig = Debug,11111111-1111-1111-1111-111111111111 + Switches= + SwitchesCF= + CommandLine= + CommandLineCF= + Debug=1 + DebugInit=1 + DefineDebug=1 + DefineTrace=0 + SyntaxOnly=0 + WarningsErrors=0 + ForceConsole=0 + ForceX86=0 + Optimize=0 +AppConfig = Release,22222222-2222-2222-2222-222222222222 + Switches= + SwitchesCF= + CommandLine= + CommandLineCF= + Debug=0 + DebugInit=0 + DefineDebug=0 + DefineTrace=0 + SyntaxOnly=0 + WarningsErrors=0 + ForceConsole=0 + ForceX86=0 + Optimize=0 +ENDApplication = D002 + +ApplicationGroup = B9CFE839-D401-428D-94E9-E9D21E9F772D +; ************** APPLICATION D003 ************* +Application = D003 +IDEVersion = 1.06 +GalleryName = +GalleryPage = +GalleryDefaultName = +Target = 0 +Platform = AnyCPU +Language = XSharp +Runtime = NetCore +NetVersion = +Dialect = VO +Folder = %ProjectPath%\Applications\D003\ +PrgSubFolder = \Prg +ResourcesSubFolder = \Resources +Description = Just a simple x# application +NameSpace = +Assembly = D003 +Extension = +ApplicationIcon = +OutputFolder = +Frameworks = 1 +GUID = FEE67880-B77E-4DA3-8458-0DE7355BE19D +IncludeInProjectBuild = 1 +IncludeInProjectSearch = 1 +IncludeInProjectExport = 1 +EmitAssemblyProperties = 0 +EmitNetVersion = 0 +IncludePath = +StdDefsFile = +AppToRun = +SignAssembly = 0 +KeyFile = + +[ExportOptions] +ExportResources = 0 +ExportImages = 0 +[D003 FileGroups] +[D003 Files] +File = %AppPath%\Prg\D003.prg +FileGUID = AAC36CD5-0869-4014-ADF1-197F7D346E97 +FileType = Code +CopyToBin = 0 +[D003 References] +ReferenceBrowse = C:\Program Files (x86)\XSharp\Redist\net8.0\XSharp.Core.dll,1,1 +ReferenceBrowse = C:\Program Files (x86)\XSharp\Redist\net8.0\XSharp.RT.dll,1,1 +ReferenceGAC = NetCore|Microsoft.NETCore.App,System.Core.dll,1,0 +ReferenceGAC = NetCore|Microsoft.NETCore.App,System.dll,1,0 +ReferenceGAC = NetCore|Microsoft.NETCore.App,System.Runtime.dll,1,0 +ReferenceGAC = NetCore|Microsoft.NETCore.App,System.Private.CoreLib.dll,1,0 +[D003 Resources] +[D003 Native Resources] +[D003 License files] +[D003 General Options] +Switches= +IgnoreWarnings= +ZeroArrays=0 +CaseSensitive=0 +ImplicitNamespace=0 +VO1=0 +VO2=0 +VO3=0 +VO4=0 +VO5=0 +VO6=0 +VO7=0 +VO8=0 +VO9=0 +VO10=0 +VO11=0 +VO12=0 +VO13=0 +VO14=0 +VO15=0 +VO16=0 +VO17=0 +FOX1=0 +FOX2=0 +XPP1=0 +LateBound=0 +Unsafe=0 +Undeclared=0 +EnforceSelf=0 +EnforceOverride=0 +UseNativeVersion=0 +MemVar=0 +IgnoreStdDefs=0 +Ovf=0 +FOvf=0 +ModernSyntax=0 +NamedArgs=0 +InitLocals=0 +AllowOldStyleAssignments=0 +AllowDotOption=0 +ResponseOnly=0 +[D003 Configurations] +AppConfig = Debug,11111111-1111-1111-1111-111111111111 + Switches= + SwitchesCF= + CommandLine= + CommandLineCF= + Debug=1 + DebugInit=1 + DefineDebug=1 + DefineTrace=0 + SyntaxOnly=0 + WarningsErrors=0 + ForceConsole=0 + ForceX86=0 + Optimize=0 +AppConfig = Release,22222222-2222-2222-2222-222222222222 + Switches= + SwitchesCF= + CommandLine= + CommandLineCF= + Debug=0 + DebugInit=0 + DefineDebug=0 + DefineTrace=0 + SyntaxOnly=0 + WarningsErrors=0 + ForceConsole=0 + ForceX86=0 + Optimize=0 +ENDApplication = D003 [EndApplications] [Configurations] diff --git a/src/CompilerTests/xSharp Tests30.xicfg b/src/CompilerTests/xSharp Tests30.xicfg index 00b2f9990e..a50ed2bdcf 100644 --- a/src/CompilerTests/xSharp Tests30.xicfg +++ b/src/CompilerTests/xSharp Tests30.xicfg @@ -23,6 +23,14 @@ RecentReference = Browse:E:\XSharp\Dev\src\CompilerTests\Runtime\VORDDClasses.dl RecentReference = Browse:E:\XSharp\Dev\src\CompilerTests\Runtime\VOSystemClasses.dll RecentReference = Browse:E:\XSharp\Dev\src\CompilerTests\Runtime\VOWin32APILibrary.dll RecentReference = Browse:E:\XSharp\Dev\src\CompilerTests\Runtime\XSharp.VFP.dll +RecentReference = Browse:C:\Program Files (x86)\XSharp\Redist\net46\XSharp.RT.dll +RecentReference = Browse:C:\Program Files (x86)\XSharp\Redist\net46\XSharp.Core.dll +RecentReference = Browse:C:\Program Files (x86)\XSharp\Redist\net8.0\XSharp.Core.dll +RecentReference = Browse:C:\Program Files (x86)\XSharp\Redist\net8.0\XSharp.RT.dll +RecentReference = GAC:System.Core.dll,NetCore,9.0.17 +RecentReference = GAC:System.dll,NetCore,9.0.17 +RecentReference = GAC:System.Runtime.dll,NetCore,9.0.17 +RecentReference = GAC:System.Private.CoreLib.dll,NetCore,9.0.17 [Application Settings] APPLICATION = A445509F-0879-4CB9-8BA3-12FAA3692871 @@ -2383,6 +2391,16 @@ APPLICATION = 12516140-6191-478F-8F12-50F6F3A4E12A LASTTOUCHED = 20260609204226 APPLICATION = FDF3D475-BE42-4456-A0F3-9499FD906A1B LASTTOUCHED = 20260612103125 +APPLICATION = 3F761D9D-A513-4257-862E-6605E19385C3 +LASTTOUCHED = 20260715175326 +APPLICATION = 05C6C038-BA96-46DA-867B-417B73622D15 +LASTTOUCHED = 20260717205812 +APPLICATION = EBE51B8B-A083-4C57-9CA0-A3B3CC767F42 +LASTTOUCHED = 20260717205842 +APPLICATION = 407B546B-0A6E-4F1C-9A71-CC29B7288ECD +LASTTOUCHED = 20260717205854 +APPLICATION = FEE67880-B77E-4DA3-8458-0DE7355BE19D +LASTTOUCHED = 20260717205907 [File Settings] FILE = 018196BD-ED9B-4D28-B739-2F6F63EF85DB @@ -2425,11 +2443,19 @@ FILE = 5797D5DA-9BBD-4F97-A986-E7C20B6C8B87 BREAKPOINT = 1,5 FILE = 5B6FF8D8-B702-4977-8EDC-D8968EA496BD BREAKPOINT = 1,3 +FILE = 5BD0733C-4C02-449B-A971-9D847164FA2C +COLLAPSED = 57 +COLLAPSED = 78 +COLLAPSED = 99 +COLLAPSED = 120 FILE = 6F2C8527-5B35-4177-AC71-96A9CE85C8D3 BREAKPOINT = 1,7 BREAKPOINT = 1,75 BREAKPOINT = 1,74 BREAKPOINT = 1,66 +FILE = 72286ACD-96AB-48BB-83EB-548C56FD8FA2 +COLLAPSED = 31 +COLLAPSED = 52 FILE = 74B99918-7878-43A7-A196-449CB16B08B9 BREAKPOINT = 1,13 BREAKPOINT = 1,8 @@ -2439,6 +2465,9 @@ FILE = 89588B9D-7507-4740-BA5D-DB4A62808C97 BREAKPOINT = 1,7 FILE = 968230E8-7951-4887-8E20-8E13D7460531 BREAKPOINT = 1,36 +FILE = AAC36CD5-0869-4014-ADF1-197F7D346E97 +COLLAPSED = 46 +COLLAPSED = 73 FILE = AB82FEA7-7AE2-4A2E-92B8-69CEE680A4C0 BREAKPOINT = 1,27 FILE = B7EF8BA3-6D2B-4919-85E8-450924CD316F @@ -2449,6 +2478,10 @@ FILE = C0B59A90-5B62-4ED2-A896-FFFFA423701D BREAKPOINT = 1,5 FILE = C101C109-5BBA-413D-84E3-6B0D02DB91B4 BREAKPOINT = 1,108 +FILE = C2A0A77F-D61B-43A4-B309-EB59295016BD +COLLAPSED = 2 +COLLAPSED = 37 +COLLAPSED = 64 FILE = C5AA8DEE-6C0B-4A3E-A391-952ACD2386D5 BREAKPOINT = 1,89 FILE = C67A356B-362C-47D0-89FF-8D2548C0A313 @@ -2464,22 +2497,9 @@ FILE = E9DF3356-7242-433B-9896-D95855934DB3 BREAKPOINT = 1,10 [OpenFiles] -OPENFILE=270282CA-C8AE-44E5-B5A9-A0D849E188BD,1,1 -OPENFILE=4419F2FB-ACB8-460D-8A03-B4B97F9D9804,9,1 -OPENFILE=8F1897CF-7670-41D5-90A4-A47624548D38,12,1 -OPENFILE=7B4DD920-5928-4A7C-B3B6-F0E0C9FF09F3,1,1 -OPENFILE=9ACDE361-9A40-4DF9-9D9F-E611C199FF12,1,1 -OPENFILE=60EE1917-0688-4344-94FA-F997F5C16803,1003,1 -OPENFILE=76EE3E9E-4D4F-4FA5-A3D7-B978BFFBA5FB,4,1 -OPENFILE=2C68FD3D-54AA-4DC5-B576-F9A97BDBA6DD,3,1 -OPENFILE=8866804B-644A-400D-B70E-AA468FEB9A4F,35,1 -OPENFILE=E3AA9AC5-E231-45E8-8015-DA4C10D48B34,1,1 -OPENFILE=3060D6E8-5005-46EA-BB6E-62B7C260CADB,1,1 -OPENFILE=06A82BE0-C96B-4B58-99A9-9FF819D04C5D,1,1 -OPENFILE=3255F485-D7AC-492F-ADE1-C271B46AEA50,36,1 -OPENFILE=1A935D59-6EE2-4C92-BA5E-8B1721B5A7EB,1,1 -OPENFILE=9091A8D1-5308-4154-9A13-DE36D93AEE50,27,1 -OPENFILE=E1162ACA-B5BE-4ACF-9538-F34545360299,10,1 -ACTIVEFILE=3D47244A-55B1-414F-AD89-64BD7DB6F186,1,1 -OPENFILE=E3E7C45D-CB35-4EE7-8B03-197BB21A2143,1,1 -OPENFILE=BBF26038-AE2D-4828-8C2F-0635179FAD88,31,1 +ACTIVEFILE=72286ACD-96AB-48BB-83EB-548C56FD8FA2,7,1 +OPENFILE=5BD0733C-4C02-449B-A971-9D847164FA2C,1,1 +OPENFILE=C2A0A77F-D61B-43A4-B309-EB59295016BD,1,1 +OPENFILE=AAC36CD5-0869-4014-ADF1-197F7D346E97,1,1 +OPENFILE=3D47244A-55B1-414F-AD89-64BD7DB6F186,12,1 +OPENFILE=EE937975-BA57-435D-8439-46F8F2935893,13,1