administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

/Define arg

Browse source
This commit is contained in:
Sun Serega 2021-11-17 16:10:37 +02:00
parent 2333105466
commit 94670c408d
2 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Compiler/Compiler.cs
View file

@ -553,6 +553,8 @@ namespace PascalABCCompiler
//
public string SystemDirectory;
public List<string> ForceDefines = new List<string>();
public List<string> SearchDirectory;
private bool useDllForSystemUnits = false;
@ -2981,6 +2983,7 @@ namespace PascalABCCompiler
DefinesList.Add("RELEASE");
else
DefinesList.Add("DEBUG");
DefinesList.AddRange(CompilerOptions.ForceDefines);
SyntaxTree.compilation_unit SyntaxTree = InternalParseText(FileName, SourceText, errorsList, warnings, DefinesList);
if (errorsList.Count > 0)
throw errorsList[0];
@ -3277,6 +3280,7 @@ namespace PascalABCCompiler
DefinesList.Add("RELEASE");
else
DefinesList.Add("DEBUG");
DefinesList.AddRange(CompilerOptions.ForceDefines);
if (compilerOptions.UnitSyntaxTree != null)
{
CurrentUnit.SyntaxTree = compilerOptions.UnitSyntaxTree;

14
pabcnetc_clear/ConsoleCompiler.cs
View file

@ -76,6 +76,10 @@ namespace PascalABCCompiler
return false;
}
case "define":
co.ForceDefines.Add(value);
return true;
case "output":
co.OutputFileName = Path.GetFileName(value);
if (Path.IsPathRooted(value))
@ -111,12 +115,14 @@ namespace PascalABCCompiler
Console.WriteLine("pabcnetcclear /directive1:value1 /directive2:value2 ... [inputfile]\n");
Console.WriteLine("Available directives:");
Console.WriteLine(" /Help /H /?");
Console.WriteLine(" /Debug:0(1)");
Console.WriteLine(" /output:[<path>\\name]");
Console.WriteLine(" /Debug:<0/1>");
Console.WriteLine(" /Define:<name>");
Console.WriteLine(" /Output:<[path\\]name>");
Console.WriteLine(" /SearchDir:<path>");
Console.WriteLine();
Console.WriteLine("/output:[ <path>\\name ] compile into an executable called \"name\" and save it in \"path\" directory");
Console.WriteLine("/Debug:0 generates code with all .NET optimizations!");
Console.WriteLine("/Help show this message");
Console.WriteLine("/Output:<[path\\]name> compile into an executable called \"name\" and save it in \"path\" directory");
Console.WriteLine("/Debug:0 generates code with all .NET optimizations");
Console.WriteLine("/SearchDir:<path> add \"path\" to list of standart unit search directories. Last added paths would be searched first");
}