From 5ec77bbd5583d3c90f8a6a2f121dc59e9d103a48 Mon Sep 17 00:00:00 2001 From: cvs2snv Date: Thu, 24 Feb 2000 10:39:37 +0000 Subject: [PATCH] This commit was manufactured by cvs2svn to create tag 'init2'. --- coclmaindll/cocl.prj | 3025 +++++++++++++++++ main/CleanCocl.icl | 24 + main/Mac/CoclSystemDependent.dcl | 13 + main/Mac/CoclSystemDependent.icl | 69 + main/Version.dcl | 18 + main/Version.icl | 32 + .../Clean System Files/set_return_code.obj | Bin 0 -> 464 bytes main/Windows/CoclSystemDependent.dcl | 14 + main/Windows/CoclSystemDependent.icl | 15 + main/Windows/set_return_code.dcl | 7 + main/Windows/set_return_code.icl | 17 + main/cocl.icl | 38 + main/coclmain.dcl | 37 + main/coclmain.icl | 63 + main/compile.dcl | 5 + main/compile.icl | 173 + 16 files changed, 3550 insertions(+) create mode 100644 coclmaindll/cocl.prj create mode 100644 main/CleanCocl.icl create mode 100644 main/Mac/CoclSystemDependent.dcl create mode 100644 main/Mac/CoclSystemDependent.icl create mode 100644 main/Version.dcl create mode 100644 main/Version.icl create mode 100644 main/Windows/Clean System Files/set_return_code.obj create mode 100644 main/Windows/CoclSystemDependent.dcl create mode 100644 main/Windows/CoclSystemDependent.icl create mode 100644 main/Windows/set_return_code.dcl create mode 100644 main/Windows/set_return_code.icl create mode 100644 main/cocl.icl create mode 100644 main/coclmain.dcl create mode 100644 main/coclmain.icl create mode 100644 main/compile.dcl create mode 100644 main/compile.icl diff --git a/coclmaindll/cocl.prj b/coclmaindll/cocl.prj new file mode 100644 index 00000000..5a5a8560 --- /dev/null +++ b/coclmaindll/cocl.prj @@ -0,0 +1,3025 @@ +Version: 1.4 +Global + Built: True + Target: StdEnv + Exec: cocl.exe + CodeGen + CheckStacks: True + CheckIndexes: True + TargetProcessor: CurrentProcessor + Application + HeapSize: 12582912 + StackSize: 1048576 + ExtraMemory: 0 + IntialHeapSize: 6291456 + HeapSizeMultiplier: 1024 + ShowExecutionTime: False + ShowGC: False + ShowStackSize: False + MarkingCollector: True + StandardRuntimeEnv: True + Profile + Memory: False + MemoryMinimumHeapSize: 0 + Time601: False + Time: True + Output + Output: NoConsole + Font: MS Sans Serif + FontSize: 8 + WriteStdErr: False + Project + Verbose: True + Link + LinkMethod: Static + GenerateRelocations: False + Paths + Path: {Project}\compiler + Path: {Project}\ArgEnvWindows + Path: {Project}\WrapDebug + Path: {Project}\backend + Path: {Project}\backendCModules + Path: {Project}\main + Path: {Project}\main\Windows +MainModule + Name: cocl + Dir: {Project}\main + IclOpen: True + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: True + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 136 + Y: 365 + SizeX: 960 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 155 + Y: 87 + SizeX: 939 + SizeY: 565 + IclOpen: True + LastModified: Yes 1999 7 6 9 53 53 +OtherModules + Module + Name: comparedefimp + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: NoTypes + ListAttributes: False + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: False + Dcl + Editor + TabSize: 4 + Font: Courier + FontSize: 9 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier + FontSize: 9 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: coclmain + Dir: {Project}\main + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdString + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdOverloaded + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdEnv + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdBool + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdInt + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdReal + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdChar + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdArray + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: _SystemArray + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdFile + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdClass + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdList + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdOrdList + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdTuple + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdCharList + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdFunc + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdMisc + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdEnum + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: _SystemEnum + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: ArgEnv + Dir: {Project}\ArgEnvWindows + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + NeededObjFiles + ObjectFile: ArgEnvC.obj + Module + Name: Version + Dir: {Project}\main + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: set_return_code + Dir: {Project}\main\Windows + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + NeededObjFiles + ObjectFile: set_return_code.obj + Module + Name: compile + Dir: {Project}\main + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: frontend + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: scanner + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: general + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: checksupport + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: syntax + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: typeproperties + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: Heap + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: predef + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: hashtable + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: transform + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: overloading + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: check + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: typesupport + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdCompare + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: compare_constructor + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: unitype + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: analunitypes + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: analtypes + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: backendinterface + Dir: {Project}\backend + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: backend + Dir: {Project}\backendCModules + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: backendpreprocess + Dir: {Project}\backend + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: backendsupport + Dir: {Project}\backend + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: utilities + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: _aconcat + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: RWSDebug + Dir: {Project}\WrapDebug + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 110 + Y: 76 + SizeX: 775 + SizeY: 408 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: backendconvert + Dir: {Project}\backend + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 137 + Y: 46 + SizeX: 500 + SizeY: 301 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + NeededLibraries + Library: backend_library + Module + Name: CoclSystemDependent + Dir: {Project}\main\Windows + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: parse + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: postparse + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: type + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: refmark + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 575 + SizeY: 371 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: Debug + Dir: {Project}\WrapDebug + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 301 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: trans + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: StdDebug + Dir: {Application}\1.3.3\StdEnv + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: convertcases + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: convertDynamics + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: checktypes + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: explicitimports + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: cheat + Dir: {Project}\compiler + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: Wrap + Dir: {Project}\WrapDebug + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 + Module + Name: ShowWrapped + Dir: {Project}\WrapDebug + IclOpen: False + Compiler + NeverTimeProfile: False + StrictnessAnalysis: True + ListTypes: AllTypes + ListAttributes: True + Warnings: False + Verbose: False + ReadableABC: False + ReuseUniqueNodes: True + Dcl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + DclOpen: False + Icl + Editor + TabSize: 4 + Font: Courier New + FontSize: 10 + AutoIndent: True + ShowTabs: False + ShowLins: False + WindowPosition + X: 0 + Y: 0 + SizeX: 500 + SizeY: 300 + IclOpen: False + LastModified: No 0 0 0 0 0 0 +Static + Mods + Path: {Project}\main\cocl.icl + Path: {Project}\compiler\comparedefimp.icl + Path: {Project}\main\coclmain.icl + Path: {Application}\1.3.3\StdEnv\StdString.icl + Path: {Application}\1.3.3\StdEnv\StdOverloaded.icl + Path: {Application}\1.3.3\StdEnv\StdEnv.icl + Path: {Application}\1.3.3\StdEnv\StdBool.icl + Path: {Application}\1.3.3\StdEnv\StdInt.icl + Path: {Application}\1.3.3\StdEnv\StdReal.icl + Path: {Application}\1.3.3\StdEnv\StdChar.icl + Path: {Application}\1.3.3\StdEnv\StdArray.icl + Path: {Application}\1.3.3\StdEnv\_SystemArray.icl + Path: {Application}\1.3.3\StdEnv\StdFile.icl + Path: {Application}\1.3.3\StdEnv\StdClass.icl + Path: {Application}\1.3.3\StdEnv\StdList.icl + Path: {Application}\1.3.3\StdEnv\StdOrdList.icl + Path: {Application}\1.3.3\StdEnv\StdTuple.icl + Path: {Application}\1.3.3\StdEnv\StdCharList.icl + Path: {Application}\1.3.3\StdEnv\StdFunc.icl + Path: {Application}\1.3.3\StdEnv\StdMisc.icl + Path: {Application}\1.3.3\StdEnv\StdEnum.icl + Path: {Application}\1.3.3\StdEnv\_SystemEnum.icl + Path: {Project}\ArgEnvWindows\ArgEnv.icl + Path: {Project}\main\Version.icl + Path: {Project}\main\Windows\set_return_code.icl + Path: {Project}\main\compile.icl + Path: {Project}\compiler\frontend.icl + Path: {Project}\compiler\scanner.icl + Path: {Project}\compiler\general.icl + Path: {Project}\compiler\checksupport.icl + Path: {Project}\compiler\syntax.icl + Path: {Project}\compiler\typeproperties.icl + Path: {Project}\compiler\Heap.icl + Path: {Project}\compiler\predef.icl + Path: {Project}\compiler\hashtable.icl + Path: {Project}\compiler\transform.icl + Path: {Project}\compiler\overloading.icl + Path: {Project}\compiler\check.icl + Path: {Project}\compiler\typesupport.icl + Path: {Project}\compiler\StdCompare.icl + Path: {Project}\compiler\compare_constructor.icl + Path: {Project}\compiler\unitype.icl + Path: {Project}\compiler\analunitypes.icl + Path: {Project}\compiler\analtypes.icl + Path: {Project}\backend\backendinterface.icl + Path: {Project}\backendCModules\backend.icl + Path: {Project}\backend\backendpreprocess.icl + Path: {Project}\backend\backendsupport.icl + Path: {Project}\compiler\utilities.icl + Path: {Project}\compiler\_aconcat.icl + Path: {Project}\WrapDebug\RWSDebug.icl + Path: {Project}\backend\backendconvert.icl + Path: {Project}\main\Windows\CoclSystemDependent.icl + Path: {Project}\compiler\parse.icl + Path: {Project}\compiler\postparse.icl + Path: {Project}\compiler\type.icl + Path: {Project}\compiler\refmark.icl + Path: {Project}\WrapDebug\Debug.icl + Path: {Project}\compiler\trans.icl + Path: {Application}\1.3.3\StdEnv\StdDebug.icl + Path: {Project}\compiler\convertcases.icl + Path: {Project}\compiler\convertDynamics.icl + Path: {Project}\compiler\checktypes.icl + Path: {Project}\compiler\explicitimports.icl + Path: {Project}\compiler\cheat.icl + Path: {Project}\WrapDebug\Wrap.icl + Path: {Project}\WrapDebug\ShowWrapped.icl + Objs + Path: {Application}\1.3.3\StdRTE\Clean System Files\_startup0.o + Path: {Application}\1.3.3\StdRTE\Clean System Files\_startup1Profile.o + Path: {Application}\1.3.3\StdRTE\Clean System Files\_startup2.o + Path: {Application}\1.3.3\StdRTE\Clean System Files\_system.o + Path: {Project}\WrapDebug\Clean System Files\ShowWrapped.o + Path: {Project}\WrapDebug\Clean System Files\Wrap.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdDebug.o + Path: {Project}\compiler\Clean System Files\refmark.o + Path: {Project}\WrapDebug\Clean System Files\Debug.o + Path: {Project}\backend\Clean System Files\backendconvert.o + Path: {Project}\backend\Clean System Files\backendsupport.o + Path: {Project}\backend\Clean System Files\backendpreprocess.o + Path: {Project}\backendCModules\Clean System Files\backend.o + Path: {Project}\compiler\Clean System Files\analtypes.o + Path: {Project}\compiler\Clean System Files\cheat.o + Path: {Project}\compiler\Clean System Files\comparedefimp.o + Path: {Project}\compiler\Clean System Files\explicitimports.o + Path: {Project}\compiler\Clean System Files\checktypes.o + Path: {Project}\compiler\Clean System Files\_aconcat.o + Path: {Project}\compiler\Clean System Files\utilities.o + Path: {Project}\compiler\Clean System Files\convertDynamics.o + Path: {Project}\compiler\Clean System Files\convertcases.o + Path: {Project}\compiler\Clean System Files\trans.o + Path: {Project}\compiler\Clean System Files\type.o + Path: {Project}\compiler\Clean System Files\postparse.o + Path: {Project}\compiler\Clean System Files\parse.o + Path: {Project}\WrapDebug\Clean System Files\RWSDebug.o + Path: {Project}\main\Windows\Clean System Files\CoclSystemDependent.o + Path: {Project}\backend\Clean System Files\backendinterface.o + Path: {Project}\compiler\Clean System Files\analunitypes.o + Path: {Project}\compiler\Clean System Files\unitype.o + Path: {Project}\compiler\Clean System Files\compare_constructor.o + Path: {Project}\compiler\Clean System Files\StdCompare.o + Path: {Project}\compiler\Clean System Files\typesupport.o + Path: {Project}\compiler\Clean System Files\check.o + Path: {Project}\compiler\Clean System Files\overloading.o + Path: {Project}\compiler\Clean System Files\transform.o + Path: {Project}\compiler\Clean System Files\hashtable.o + Path: {Project}\compiler\Clean System Files\predef.o + Path: {Project}\compiler\Clean System Files\Heap.o + Path: {Project}\compiler\Clean System Files\typeproperties.o + Path: {Project}\compiler\Clean System Files\syntax.o + Path: {Project}\compiler\Clean System Files\checksupport.o + Path: {Project}\compiler\Clean System Files\general.o + Path: {Project}\compiler\Clean System Files\scanner.o + Path: {Project}\compiler\Clean System Files\frontend.o + Path: {Project}\main\Clean System Files\compile.o + Path: {Project}\main\Windows\Clean System Files\set_return_code.o + Path: {Project}\main\Clean System Files\Version.o + Path: {Project}\ArgEnvWindows\Clean System Files\ArgEnv.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\_SystemEnum.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdEnum.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdMisc.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdFunc.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdCharList.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdTuple.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdOrdList.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdList.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdClass.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdFile.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\_SystemArray.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdArray.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdChar.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdReal.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdInt.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdBool.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdEnv.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdOverloaded.o + Path: {Application}\1.3.3\StdEnv\Clean System Files\StdString.o + Path: {Project}\main\Clean System Files\coclmain.o + Path: {Project}\main\Clean System Files\cocl.o + Path: {Project}\ArgEnvWindows\Clean System Files\ArgEnvC.obj + Path: {Project}\main\Windows\Clean System Files\set_return_code.obj + Dlib + Path: {Application}\1.3.3\StdEnv\Clean System Files\kernel_library + Path: {Application}\1.3.3\StdEnv\Clean System Files\user_library + Path: {Application}\1.3.3\StdEnv\Clean System Files\gdi_library + Path: {Application}\1.3.3\StdEnv\Clean System Files\comdlg_library + Path: {Project}\backend\Clean System Files\backend_library + Pths + Path: {Project}\compiler + Path: {Project}\ArgEnvWindows + Path: {Project}\WrapDebug + Path: {Project}\backend + Path: {Project}\backendCModules + Path: {Project}\main + Path: {Project}\main\Windows + Path: {Application}\1.3.3\StdEnv + Path: {Application}\1.3.3\StdRTE + AppP: E:\Users\Ronny\Develop\CleanSystem + PrjP: E:\Users\Ronny\Develop\backenddll diff --git a/main/CleanCocl.icl b/main/CleanCocl.icl new file mode 100644 index 00000000..69915fd6 --- /dev/null +++ b/main/CleanCocl.icl @@ -0,0 +1,24 @@ +module CleanCocl + +import StdEnv +import deltaEventIO, deltaIOState +import CoclSystemDependent + +Don`tCareId + :== 0 + +Start :: !*World -> *World +Start world + # (_, world) + = StartIO [menus : SystemDependentDevices] 0 SystemDependentInitialIO world + with + menus + = MenuSystem [file] + file + = PullDownMenu Don`tCareId "File" Able + [MenuItem Don`tCareId "Quit" (Key 'Q') Able Quit] + = world + +Quit :: *s (IOState *s) -> (*s, IOState *s) +Quit s io + = (s, QuitIO io) diff --git a/main/Mac/CoclSystemDependent.dcl b/main/Mac/CoclSystemDependent.dcl new file mode 100644 index 00000000..319b75c3 --- /dev/null +++ b/main/Mac/CoclSystemDependent.dcl @@ -0,0 +1,13 @@ +// this is for the PowerMac +definition module CoclSystemDependent + +from deltaIOSystem import DeviceSystem +from deltaEventIO import InitialIO, IOState + +PathSeparator + :== ',' +DirectorySeparator + :== ':' + +SystemDependentDevices :: [DeviceSystem .a (IOState .a)] +SystemDependentInitialIO :: InitialIO *s diff --git a/main/Mac/CoclSystemDependent.icl b/main/Mac/CoclSystemDependent.icl new file mode 100644 index 00000000..971105c3 --- /dev/null +++ b/main/Mac/CoclSystemDependent.icl @@ -0,0 +1,69 @@ +// this is for the PowerMac +implementation module CoclSystemDependent + +import StdEnv +import deltaIOSystem, deltaEventIO, deltaIOState +import AppleEventDevice +import compile +import docommand +import RWSDebug + +PathSeparator + :== ',' +DirectorySeparator + :== ':' + +SystemDependentDevices :: [DeviceSystem .a (IOState .a)] +SystemDependentDevices + = [AppleEventSystem {openHandler = openDummy, quitHandler = Quit, + clipboardChangedHandler = clipboardDummy, scriptHandler = scriptHandler}]; + where + openDummy filePath s io + = (s, io) <<- ("open", filePath) + clipboardDummy s io + = (s, io) <<- "clipboard" + + /* + scriptHandler script s io + # (result, env) = DoCommandNullTerminated (script +++ "\0") 17 + | result >= 0 + = (s, io) + // otherwise + = (s, io) <<- ("error in docommand", result, script) + */ + scriptHandler script s io + = (s, appFiles (compile (processArgs script)) io) <<- ("script", processArgs script) + where + processArgs s + = [replace arg \\ arg <- filter ((<>) "") (splitArgs s)] + + replace s + | s == "\xb3" /* \xb3 == >= ligature */ + = "-RE" + | s == ">" + = "-RO" + // otherwise + = s + splitArgs s + = split False 0 0 (size s) s + split quoted frm to n s + | to >= n + = [s % (frm, to)] + | s.[to] == '\\' && to < n-1 + = split quoted frm (to+2) n s + | s.[to] == ' ' && not quoted + = [s % (frm, to-1) : split False (to+1) (to+1) n s] + | s.[to] == '\'' && quoted + = [s % (frm, to-1) : split False (to+1) (to+1) n s] + | s.[to] == '\'' + = [s % (frm, to-1) : split True (to+1) (to+1) n s] + // otherwise + = split quoted frm (to+1) n s + +SystemDependentInitialIO :: InitialIO *s +SystemDependentInitialIO + = [] + +Quit :: *s (IOState *s) -> (*s, IOState *s) +Quit s io + = (s, QuitIO io) diff --git a/main/Version.dcl b/main/Version.dcl new file mode 100644 index 00000000..e70f4206 --- /dev/null +++ b/main/Version.dcl @@ -0,0 +1,18 @@ +definition module Version + +:: VersionInfo = + { versionCurrent + :: Int + , versionOldestDefinition + :: Int + , versionOldestImplementation + :: Int + } + +:: VersionsCompatability + = VersionsAreCompatible + | VersionObservedIsTooOld + | VersionObservedIsTooNew + +versionCompare :: VersionInfo VersionInfo -> VersionsCompatability +// expected observed diff --git a/main/Version.icl b/main/Version.icl new file mode 100644 index 00000000..71ab7611 --- /dev/null +++ b/main/Version.icl @@ -0,0 +1,32 @@ +implementation module Version + +import StdInt, StdClass + +:: VersionInfo = + { versionCurrent + :: Int + , versionOldestDefinition + :: Int + , versionOldestImplementation + :: Int + } + +:: VersionsCompatability + = VersionsAreCompatible + | VersionObservedIsTooOld + | VersionObservedIsTooNew + +versionCompare :: VersionInfo VersionInfo -> VersionsCompatability +versionCompare expected observed + | expected.versionCurrent < observed.versionCurrent + | expected.versionCurrent >= observed.versionOldestDefinition + = VersionsAreCompatible + // otherwise + = VersionObservedIsTooNew + | expected.versionCurrent == observed.versionCurrent + = VersionsAreCompatible + // expected.versionCurrent > observed.versionCurrent + | expected.versionOldestImplementation <= observed.versionCurrent + = VersionsAreCompatible + // otherwise + = VersionObservedIsTooOld diff --git a/main/Windows/Clean System Files/set_return_code.obj b/main/Windows/Clean System Files/set_return_code.obj new file mode 100644 index 0000000000000000000000000000000000000000..d8325065cad51dfcbcaa57414afa1c2e4a06e888 GIT binary patch literal 464 zcmeZaWM;T|NWtP60|Ns$5QBhTN>OTZNm(j{$H1TlWc0u|Fq)T3fI+V$wW0(j0Hg(g zcoPsGf{HN$X$66R1ih5hq|$U1H>faJ-5DU~4w5<#0Rbo7l+?7u(wvf<%p@xxPbX&u zWC4F47e7Z|*I9~fXriN1ce1EKn?^ZpcFGB zC>UV2BUmg@ZA=Ub3?Ow345CmG5XA(v3lT`nKoL}Pm>59bR0867H0LrPyPW|5`sGEY literal 0 HcmV?d00001 diff --git a/main/Windows/CoclSystemDependent.dcl b/main/Windows/CoclSystemDependent.dcl new file mode 100644 index 00000000..42cf82e5 --- /dev/null +++ b/main/Windows/CoclSystemDependent.dcl @@ -0,0 +1,14 @@ +// this is for Windows +definition module CoclSystemDependent + +// RWS split +// from deltaIOSystem import DeviceSystem +// from deltaEventIO import InitialIO, IOState + +PathSeparator + :== ';' +DirectorySeparator + :== '\\' + +SystemDependentDevices :: [a] +SystemDependentInitialIO :: [a] diff --git a/main/Windows/CoclSystemDependent.icl b/main/Windows/CoclSystemDependent.icl new file mode 100644 index 00000000..dc1d17bd --- /dev/null +++ b/main/Windows/CoclSystemDependent.icl @@ -0,0 +1,15 @@ +// this is for Windows +implementation module CoclSystemDependent + +PathSeparator + :== ';' +DirectorySeparator + :== '\\' + +SystemDependentDevices :: [a] +SystemDependentDevices + = [] + +SystemDependentInitialIO :: [a] +SystemDependentInitialIO + = [] diff --git a/main/Windows/set_return_code.dcl b/main/Windows/set_return_code.dcl new file mode 100644 index 00000000..bcbde6f7 --- /dev/null +++ b/main/Windows/set_return_code.dcl @@ -0,0 +1,7 @@ +definition module set_return_code; + +from StdString import String; + +:: *UniqueWorld :== World; +set_return_code :: !Int !UniqueWorld -> UniqueWorld; +// void set_return_code (int return_code); diff --git a/main/Windows/set_return_code.icl b/main/Windows/set_return_code.icl new file mode 100644 index 00000000..780fa84f --- /dev/null +++ b/main/Windows/set_return_code.icl @@ -0,0 +1,17 @@ +implementation module set_return_code; + +import code from "set_return_code.obj"; + +from StdString import String; + +:: *UniqueWorld :== World; + +set_return_code :: !Int !UniqueWorld -> UniqueWorld; +set_return_code a0 a1 = code +{ + ccall set_return_code "I:V:A" + fill_a 0 1 + pop_a 1 +} + +// void set_return_code (int return_code); diff --git a/main/cocl.icl b/main/cocl.icl new file mode 100644 index 00000000..15c62b4e --- /dev/null +++ b/main/cocl.icl @@ -0,0 +1,38 @@ +module cocl + +import coclmain +import StdString +import StdEnv + +Start :: *World -> *World +Start world + = coclMain testArgs world + where + testArgs + = [ + // main module +// "Dialog1" + "t" +// "typesupport.icl" +// "EdProject.icl" + // list all types + , "-lat" + // generate readable abc code + , "-d" + // redirect out + , "-RO", "messages.txt" + // redirect errors + , "-RE", "errors.txt" + // paths + , "-P", clean20Dir +++ "StdEnv" +++ ";" +++ clean20Dir +++ "IOInterface" + // test specific + +++ ";" +++ testDir +// +++ ";" +++ clean20Dir +++ "test\\Clean 2 Compiler Test" +// +++ ";" +++ ideDir +++ ";" +++ ideDir +++ "Windows\\" +++ ";" +++ ideDir +++ "Util\\" + ] + testDir + = "e:\\Users\\Ronny\\Develop\\Clean Programs\\" + clean20Dir + = "e:\\Users\\Ronny\\Develop\\CleanSystem\\2.0\\" + ideDir + = clean20Dir +++ "test\\Clean IDE\\" diff --git a/main/coclmain.dcl b/main/coclmain.dcl new file mode 100644 index 00000000..6366623c --- /dev/null +++ b/main/coclmain.dcl @@ -0,0 +1,37 @@ +definition module coclmain + +/* + The coclmain library + + includes + compile + backend (needs dynamic library backend.dll) + ArgEnv + Version + set_return_code + + uses + StdEnv + compiler + + This library is compiled with profiling code. This means that profiling + should also be enabled in projects that use the coclmain library. + + Note: The interface from coclmain to the compiler is not version checked. + It's safest to build and use a new coclmain library whenever the + type of the compiler's syntax tree changes. +*/ + +// coclMain :: ![{#Char}] !*World -> *World +// testArgs world +coclMain :== coclMainWithVersionCheck CoclMainVersionCurrent CoclMainVersionLatestDef CoclMainVersionLatestImp + +CoclMainVersionCurrent + :== 0x02000205 +CoclMainVersionLatestDef + :== 0x02000205 +CoclMainVersionLatestImp + :== 0x02000205 + +coclMainWithVersionCheck :: !Int !Int !Int ![{#Char}] !*World -> *World +// currentVersion latestDefVersion latestImpVersion testArgs world diff --git a/main/coclmain.icl b/main/coclmain.icl new file mode 100644 index 00000000..811f76d7 --- /dev/null +++ b/main/coclmain.icl @@ -0,0 +1,63 @@ +implementation module coclmain + +CoclMainVersion :== 0 + +import StdEnv +import ArgEnv +import Version +import set_return_code + +import compile + +// coclMain :: ![{#Char}] !*World -> *World +// testArgs world +coclMain :== coclMainWithVersionCheck CoclMainVersionCurrent CoclMainVersionLatestDef CoclMainVersionLatestImp + +CoclMainVersionCurrent + :== 0x02000205 +CoclMainVersionLatestDef + :== 0x02000205 +CoclMainVersionLatestImp + :== 0x02000205 + +checkVersion :: VersionsCompatability *File -> (!Bool, !*File) +checkVersion VersionsAreCompatible errorFile + = (True, errorFile) +checkVersion VersionObservedIsTooNew errorFile + # errorFile + = fwrites "[Coclmain] the library is too new\n" errorFile + = (False, errorFile) +checkVersion VersionObservedIsTooOld errorFile + # errorFile + = fwrites "[Coclmain] the library is too old\n" errorFile + = (False, errorFile) + +coclMainWithVersionCheck :: !Int !Int !Int ![{#Char}] !*World -> *World +// currentVersion latestDefVersion latestImpVersion testArgs world +coclMainWithVersionCheck currentVersion latestDefVersion latestImpVersion testArgs world + # observedVersion = + { versionCurrent + = CoclMainVersionCurrent + , versionOldestDefinition + = CoclMainVersionLatestDef + , versionOldestImplementation + = CoclMainVersionLatestImp + } + expectedVersion = + { versionCurrent + = currentVersion + , versionOldestDefinition + = latestDefVersion + , versionOldestImplementation + = latestImpVersion + } + | not (fst (checkVersion (versionCompare expectedVersion observedVersion) stderr)) + = set_return_code (-1) world + # (success, world) + = accFiles (compile commandArgs) world + = set_return_code (if success 0(-1)) world + where + commandArgs + = if (length realArgs == 0) testArgs realArgs + realArgs + = tl [arg \\ arg <-: getCommandLine] diff --git a/main/compile.dcl b/main/compile.dcl new file mode 100644 index 00000000..f4c09531 --- /dev/null +++ b/main/compile.dcl @@ -0,0 +1,5 @@ +definition module compile + +from StdFile import Files + +compile :: [{#Char}] *Files -> (!Bool, !*Files) diff --git a/main/compile.icl b/main/compile.icl new file mode 100644 index 00000000..938ea8d2 --- /dev/null +++ b/main/compile.icl @@ -0,0 +1,173 @@ +implementation module compile + +import StdEnv +import frontend +import backendinterface +import CoclSystemDependent +import RWSDebug + +:: CoclOptions = + { + moduleName + :: {#Char} + , pathName + :: {#Char} + , errorPath + :: {#Char} + , errorMode + :: Int + , outPath + :: {#Char} + , outMode + :: Int + , searchPaths + :: SearchPaths + } + +InitialCoclOptions = + { moduleName + = "" + , pathName + = "" + , errorPath + = "errors" + , errorMode + = FWriteText + , outPath + = "messages" + , outMode + = FWriteText + , searchPaths +// RWS, voor Maarten +++ = {sp_locations = [], sp_paths = []} + = [] + } + +compile :: [{#Char}] *Files -> (!Bool, !*Files) +compile args files + = compileModule (parseCommandLine args InitialCoclOptions) args files + +parseCommandLine :: [{#Char}] CoclOptions -> CoclOptions +parseCommandLine [] options + = prependModulePath options + where + // RWS +++ hack, both module name and file path should be passed to frontEndInterface + prependModulePath options=:{pathName, searchPaths} + = { options + & moduleName = baseName pathName +// RWS, voor Maarten +++ , searchPaths = {searchPaths & sp_paths = [directoryName pathName : searchPaths.sp_paths]} + , searchPaths = [directoryName pathName : searchPaths] + } +parseCommandLine ["-P", searchPathsString : args] options=:{searchPaths} +// RWS, voor Maarten +++ = parseCommandLine args {options & searchPaths = {searchPaths & sp_paths = splitPaths searchPathsString}} + = parseCommandLine args {options & searchPaths = splitPaths searchPathsString} +parseCommandLine ["-RO", outPath : args] options + = parseCommandLine args {options & outPath = stripQuotes outPath, outMode = FWriteText} +parseCommandLine ["-RAO", outPath : args] options + = parseCommandLine args {options & outPath = stripQuotes outPath, outMode = FAppendText} +parseCommandLine ["-RE", errorPath : args] options + = parseCommandLine args {options & errorPath = stripQuotes errorPath, errorMode = FWriteText} +parseCommandLine ["-RAE", errorPath : args] options + = parseCommandLine args {options & errorPath = stripQuotes errorPath, errorMode = FAppendText} +parseCommandLine [arg : args] options + | arg.[0] == '-' + = parseCommandLine args options + // otherwise + = parseCommandLine args {options & pathName = stripExtension ".icl" (stripQuotes arg)} + +stripExtension :: {#Char} {#Char} -> {#Char} +stripExtension extension string + | stringSize >= extensionSize && (string % (stringSize-extensionSize, stringSize-1)) == extension + = string % (0, stringSize-extensionSize-1) + // otherwise + = string + where + stringSize + = size string + extensionSize + = size extension + +stripQuotes :: {#Char} -> {#Char} +stripQuotes string + | stringSize > 1 && string.[0] == '"' && string.[stringSize-1] == '"' + = string % (1, stringSize-2) + // otherwise + = string + where + stringSize + = size string + +splitPaths :: {#Char} -> [{#Char}] +splitPaths paths + = [path +++ {DirectorySeparator} \\ path <- splitBy PathSeparator paths] + +splitBy :: Char {#Char} -> [{#Char}] +splitBy char string + = splitBy` 0 0 + where + splitBy` frm to + | to >= stringSize + = [string % (frm, to-1)] + | string.[to] == char + = [string % (frm, to-1) : splitBy` (to+1) (to+1)] + // otherwise + = splitBy` frm (to+1) + stringSize + = size string + +baseName :: {#Char} -> {#Char} +baseName path + = last (splitBy DirectorySeparator path) + +directoryName :: {#Char} -> {#Char} +directoryName path + = foldr (\p ps -> p +++ {DirectorySeparator} +++ ps) "" (init (splitBy DirectorySeparator path)) + +compileModule :: CoclOptions [{#Char}] *Files -> (!Bool, !*Files) +compileModule options commandLineArgs files + # (opened, error, files) + = fopen options.errorPath options.errorMode files + | not opened + = abort ("couldn't open error file \"" +++ options.errorPath +++ "\"\n") + # (opened, out, files) + = fopen options.outPath options.outMode files + | not opened + = abort ("couldn't open out file \"" +++ options.outPath +++ "\"\n") + # (io, files) + = stdio files + + # (predefSymbols, hashTable) = buildPredefinedSymbols newHashTable + (moduleIdent, hashTable) = putIdentInHashTable options.moduleName IC_Module hashTable + # (predefs, _, files, error, io, out, optionalSyntaxTree) + = frontEndInterface moduleIdent options.searchPaths predefSymbols hashTable files error io out + # (closed, files) + = fclose io files + | not closed + = abort ("couldn't close stdio") + # (closed, files) + = fclose out files + | not closed + = abort ("couldn't close out file \"" +++ options.outPath +++ "\"\n") + # (success, error, files) + = case optionalSyntaxTree of + Yes syntaxTree + -> backEndInterface outputPath (map appendRedirection commandLineArgs) predefs syntaxTree error files + with + appendRedirection arg + = case arg of + "-RE" + -> "-RAE" + "-RO" + -> "-RAO" + arg + -> arg + No + -> (False, error, files) + with + outputPath + // = /* directoryName options.pathName +++ "Clean System Files" +++ {DirectorySeparator} +++ */ baseName options.pathName + = baseName options.pathName + # (closed, files) + = fclose error files + | not closed + = abort ("couldn't close error file \"" +++ options.errorPath +++ "\"\n") + = (success, files) \ No newline at end of file -- GitLab