pascalabcnet/SyntaxTreeConverters/SampleSyntaxTreeConverter.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using PascalABCCompiler.SyntaxTree;
using PascalABCCompiler.Errors;

namespace PascalABCCompiler.SyntaxTreeConverters
{
    public class EmptyVisitor : BaseEnterExitVisitor
    {
        System.IO.StreamWriter fs;
        DateTime d;
        public EmptyVisitor()
        {
            fs = File.CreateText("logSampleVisitor.log");
            d = DateTime.Now;
        }
        public override void Exit(syntax_tree_node st)
        {
            if (st.GetType() == typeof(program_module))
            {
                var t = (DateTime.Now - d).Milliseconds;
                fs.WriteLine(t.ToString());
                fs.Close();
            }
                
        }
    }

    public class SampleVisitor: BaseEnterExitVisitor
    {
        int Tabs = -2;
        System.IO.StreamWriter fs;
        public SampleVisitor()
        {
            fs = File.CreateText("logSampleVisitor.log");
        }

        public string TabString
        {
            get
            {
                return new string(' ', Tabs);
            }
        }
        public override void Enter(syntax_tree_node st)
        {
            Tabs += 2;
            fs.Write(TabString);
        }
        public override void Exit(syntax_tree_node st)
        {
            Tabs -= 2;
            if (st.GetType()==typeof(program_module))
                fs.Close();
        }
        public override void DefaultVisit(syntax_tree_node n)
        {
            fs.WriteLine(n.GetType().Name);
            base.DefaultVisit(n);
        }
        public override void visit(ident id)
        {
            fs.WriteLine(id.name);
        }
        public override void visit(int32_const i)
        {
            fs.WriteLine(i.val);
        }
        public override void visit(token_info n)
        {
            fs.WriteLine(n.text);
        }
        public override void visit(bin_expr n)
        {
            fs.WriteLine(n.GetType().Name + " " + n.operation_type);
            base.DefaultVisit(n);
        }
    }

    public class SampleSyntaxTreeConvIChangeNameToExcludeFromConvertersList: ISyntaxTreeConverter
    {
        public string Name { get; } = "Sample";
        public syntax_tree_node Convert(syntax_tree_node root)
        {
            //var v = new SampleVisitor();
            //v.ProcessNode(root);
            return root;
        }
    }
}