pascalabcnet/pabcnetc_clear/ConsoleCompiler.cs

// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
using System;
using PascalABCCompiler.Errors;
using System.IO;
using System.Linq;
using System.Collections.Generic;

namespace PascalABCCompiler
{
    /*class mc<T>
    {
        public static int meth()
        {
            return 3;
        }
    }*/
	class ConsoleCompiler
	{        
        private static string StringsPrefix = "PABCNETC_";
        public static PascalABCCompiler.Compiler Compiler=null;
        public static string FileName = "";
        public static CompilerOptions.OutputType outputType;
        public static DateTime StartTime;

        private static string StringResourcesGet(string Key)
        {
            return StringResources.Get(StringsPrefix + Key);
        }

        public static void ShowConnectedParsers()
        {
            if (Compiler.SupportedSourceFiles.Length > 0)
            {
                Console.Write(StringResourcesGet("CONNECTED_PARSERS"));
                foreach (PascalABCCompiler.SupportedSourceFile ssf in Compiler.SupportedSourceFiles)
                    Console.Write(ssf+"; ");
                Console.WriteLine();
            }
        }

        public static bool CheckAndSplitDirective(string directive, out string name, out string value)
        {
            System.Diagnostics.Debug.Assert(directive[0] == '/');
            directive = directive.Remove(0, 1);

            name = null;
            value = null;
            var ss = directive.Split( new[]{':'}, 2);
            name = ss[0].ToLower();
            if (ss.Length > 1)
            {
                value = ss[1].Trim().ToLower();
            }

            return true;
        }

        public static bool ApplyDirective(string name, string value, CompilerOptions co)
        {
            switch (name)
            {
                case "debug":
                    switch (value)
                    {
                        case "0":
                            co.Debug = false;
                            co.Optimise = true;
                            return true;
                        case "1":
                            co.Debug = true;
                            return true;
                        default:
                            Console.WriteLine("Bad value in 'Debug' directive '{0}'. Acceptable values are 0 or 1", value);
                            return false;
                    }
                    case "output":
                        co.OutputFileName = Path.GetFileName(value);
                        if (Path.IsPathRooted(value))
                        {
                            co.OutputDirectory = Path.GetDirectoryName(value);
                        }
                        return true;
                default:
                    Console.WriteLine("No such directive name: '{0}'", name);
                    return false;
            }
        }

        public static bool CheckAndApplyDirective(string directive, CompilerOptions co)
        {
            string name, value;
            var b = CheckAndSplitDirective(directive,out name, out value);
            if (!b)
                return false;

            b = ApplyDirective(name, value, co);
            return b;
        }

        public static void OutputHelp()
        {
            Console.WriteLine("Command line: ");
            Console.WriteLine("pabcnetcclear /directive1:value1 /directive2:value2 ... [inputfile]\n");
            Console.WriteLine("Available directives:\n  /Help  /H  /?\n  /Debug:0(1)\n  /output:[<path>\\name]\n");
            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!");
        }

        public static int Main(string[] args)
		{
            // SSM 18.03.19 Делаю параметры командной строки. Формат: pabcnetc.exe /Dir1=value1 /Dir2=value2 ... fname dir
            // dir - это пережиток старого - так можно было задавать каталог раньше. Пока - увы - пусть останется
            // Пока сделаю только директивы /Help /H /? и /Debug=0(1)
            // Имя директивы - это одно слово. Равенства может не быть - тогда value директивы равно null
            // Вычленяем первое равенство и делим директиву: до него - name, после него - value. Если name или value - пустые строки, то ошибка

            DateTime ldt = DateTime.Now;
            PascalABCCompiler.StringResourcesLanguage.LoadDefaultConfig();

            Compiler = new PascalABCCompiler.Compiler(null, null);
            Compiler.InternalDebug.SkipPCUErrors = false;
            StringResourcesLanguage.CurrentLanguageName = StringResourcesLanguage.AccessibleLanguages[0];
            //Console.WriteLine("OK {0}ms", (DateTime.Now - ldt).TotalMilliseconds);
            ldt = DateTime.Now;

            //ShowConnectedParsers();

            var n = args.Length;
            if (n == 0)
            {
                //Console.WriteLine(StringResourcesGet("COMMANDLINEISABSENT"));
                OutputHelp();
                return 2;
            }

            var n1 = args.TakeWhile(a => a[0] == '/').Count(); // количество директив

            if (n1<n-2)
            {
                Console.WriteLine("Error in argument {0}", args[n1+2]);
                Console.WriteLine("Command line cannot contain any arguments after filename '{0}' and outdirname '{1}'", args[n1], args[n1 + 1]);
                return 4;
            }

            if (n1 == n) // только директивы
            {
                string name, value;
                var b = CheckAndSplitDirective(args[0], out name, out value);
                if (!b) // Сообщение уже будет выдано
                    return 4;
                switch (name)
                {
                    case "help":
                    case "h":
                    case "?":
                        OutputHelp();
                        return 0;
                    default:
                        Console.WriteLine("Filename is absent. Nothing to compile");
                        return 4;
                }
            }

            FileName = args[n1]; // следующий аргумент за директивами - имя файла
            if (!File.Exists(FileName))
            {
                Console.WriteLine(StringResourcesGet("FILEISABSENT{0}"), "'" + FileName + "'");
                return 3;
            }

            outputType = CompilerOptions.OutputType.ConsoleApplicaton;

            CompilerOptions co = new CompilerOptions(FileName, outputType);
            if (FileName.ToLower().EndsWith(".pabcproj"))
                co.ProjectCompiled = true;
            if (n1 == n - 1)
                //co.OutputDirectory = ""
                ;
            else co.OutputDirectory = args[n - 1];
            co.Rebuild = false;
            co.Debug = false;
            co.UseDllForSystemUnits = false;

            for (var i = 0; i < n1; i++)
            {
                var b = CheckAndApplyDirective(args[i], co);
                if (!b)
                    return 4;
            }


            bool success = true;
            if (Compiler.Compile(co) != null)
                Console.WriteLine("OK");
            else
            {
                Console.WriteLine(StringResourcesGet("COMPILEERRORS"));
                success = false;
            }
            // Console.WriteLine("OK {0}ms", (DateTime.Now - ldt).TotalMilliseconds); /////

            for (int i = 0; i < Compiler.ErrorsList.Count; i++)
            {
                if (Compiler.ErrorsList[i] is LocatedError)
                {
                    SourceLocation sl;
                    if ((sl = (Compiler.ErrorsList[i] as LocatedError).SourceLocation) != null)
                        Console.WriteLine(string.Format("[{0},{1}] {2}: {3}", sl.BeginPosition.Line, sl.BeginPosition.Column, Path.GetFileName(sl.FileName), Compiler.ErrorsList[i].Message));
                    else
                        Console.WriteLine(Compiler.ErrorsList[i]);
                }
                else
                {
                    Console.WriteLine(Compiler.ErrorsList[i].Message);
                    Console.WriteLine(Compiler.ErrorsList[i].StackTrace);
                }
                break; // выйти после первой же ошибки
            }
            if (success)
                return 0;
            else return 1;
		}
	}
}