示例#1
0
        static void Main(string[] args)
        {
            //LispTest.UnitTest();

            bool needHelp = true;

            for (int i = 0; i < args.Length; ++i)
            {
                switch (args[i])
                {
                case "-include":
                    // 読み込むファイルが指定されている。
                    eval(args[i + 1], true);
                    needHelp = false;
                    ++i;
                    break;

                case "-import":
                    // 読み込むファイルが指定されている。
                    eval(args[i + 1], false);
                    needHelp = false;
                    ++i;
                    break;

                case "-test":
                    // UnitTest
                    LispTest.UnitTest();
                    needHelp = false;
                    break;

                // http://d.hatena.ne.jp/ak11/20091122 のpatch
                case "-compile":
                    try
                    {
                        string filename = args[++i];
                        string output   = args[++i];
                        // 出力ファイルよりソースファイルが新しい時のみ処理
                        if (!File.Exists(output) ||
                            File.GetLastWriteTime(output) < File.GetLastWriteTime(filename))
                        {
                            Console.WriteLine(filename + " => " + output);
                            var lisp = new Lisp();
                            lisp.setVar("outfile", new SExp {
                                elms = output
                            });
                            SExp ret = lisp.eval(new ConvSExp().import(filename));
                            //	Console.WriteLine(lisp.SExp2string(ret));
                        }
                    }
                    catch (Exception ex)
                    {
                        Console.WriteLine(ex.ToString());
                    }
                    needHelp = false;
                    break;


                case "-help":
                case "-h":
                    Help();
                    needHelp = false;
                    break;
                }
            }

            if (needHelp)
            {
                Help();
            }
        }