Ejemplo n.º 1
0
 public Umarci
 (
     PftContext context
 )
 {
     Context = context;
 }
Ejemplo n.º 2
0
 public override void Execute
 (
     PftContext context
 )
 {
     // Really nothing to do!
 }
Ejemplo n.º 3
0
 public string Evaluate
 (
     PftContext context
 )
 {
     return(context.Evaluate(this));
 }
Ejemplo n.º 4
0
 public override void Execute
 (
     PftContext context
 )
 {
     context.WriteLine();
 }
Ejemplo n.º 5
0
        public PftContext
        (
            PftContext parent
        )
        {
            _parent = parent;

            PftOutputBuffer parentBuffer = (parent == null)
                ? null
                : parent.Output;

            Output = new PftOutputBuffer(parentBuffer);

            Globals = (parent == null)
                ? new PftGlobalManager()
                : parent.Globals;

            Record = (parent == null)
                ? new IrbisRecord()
                : parent.Record;

            Client = (parent == null)
                ? new ManagedClient64()
                : parent.Client;
        }
Ejemplo n.º 6
0
 public override bool Evaluate
 (
     PftContext context
 )
 {
     return(Inner.Evaluate(context));
 }
Ejemplo n.º 7
0
 public PftFormatter
 (
     PftContext context
 )
 {
     Context = context;
 }
Ejemplo n.º 8
0
 public override void Execute
 (
     PftContext context
 )
 {
     Arguments.Execute(context);
 }
Ejemplo n.º 9
0
        public override bool Evaluate
        (
            PftContext context
        )
        {
            Left.Execute(context);
            Right.Execute(context);
            // ReSharper disable CompareOfFloatsByEqualityOperator
            switch (Op)
            {
            case "=":
                return(Left.Value == Right.Value);

            case "<>":
                return(Left.Value != Right.Value);

            case ">":
                return(Left.Value > Right.Value);

            case ">=":
                return(Left.Value >= Right.Value);

            case "<":
                return(Left.Value < Right.Value);

            case "<=":
                return(Left.Value <= Right.Value);
            }
            // ReSharper restore CompareOfFloatsByEqualityOperator

            throw new ArgumentException();
        }
Ejemplo n.º 10
0
 public override void Execute
 (
     PftContext context
 )
 {
     context.Write(RealText);
 }
Ejemplo n.º 11
0
 public override void Execute
 (
     PftContext context
 )
 {
     context.Output.RemoveEmptyLine();
 }
Ejemplo n.º 12
0
        /// <summary>
        /// Возможность вычислить значение без записи
        /// в выходной буфер.
        /// </summary>
        /// <param name="context"></param>
        /// <returns></returns>
        public string Evaluate
        (
            PftContext context
        )
        {
            string result;

            if (Group != null)
            {
                if (Group.GroupIndex >= Group.GroupItems.Length)
                {
                    result = string.Empty;
                }
                else
                {
                    RecordField[] fields =
                    {
                        Group.GroupItems[Group.GroupIndex]
                    };
                    result = Field.FormatSingle(fields);
                }
            }
            else
            {
                result = Field.FormatSingle(context.Record);
            }

            return(result);
        }
Ejemplo n.º 13
0
        public PftContext
        (
            PftFormatter formatter,
            PftContext parent
        )
        {
            _formatter = formatter;

            _parent = parent;

            PftOutputBuffer parentBuffer = (parent == null)
                ? null
                : parent.Output;

            Output = new PftOutputBuffer(parentBuffer);

            Globals = (parent == null)
                ? new PftGlobalManager()
                : parent.Globals;

            // Переменные в каждом контексте свои
            Variables = new PftVariableManager();

            // Процедуры в каждом контексте свои
            Procedures = new PftProcedureManager();

            Record = (parent == null)
                ? new IrbisRecord()
                : parent.Record;

            Client = (parent == null)
                ? new ManagedClient64()
                : parent.Client;
        }
Ejemplo n.º 14
0
 public Unifor
 (
     PftContext context
 )
 {
     Context = context;
 }
Ejemplo n.º 15
0
        public override void Execute
        (
            PftContext context
        )
        {
            if (SimpleValue != null)
            {
                SimpleValue.Execute(context);
                Value = SimpleValue.Value;
            }
            else
            {
                Left.Execute(context);
                Right.Execute(context);
                switch (Op)
                {
                case "+":
                    Value = Left.Value + Right.Value;
                    break;

                case "-":
                    Value = Left.Value - Right.Value;
                    break;

                case "*":
                    Value = Left.Value * Right.Value;
                    break;

                case "/":
                    Value = Left.Value / Right.Value;
                    break;
                }
            }
        }
Ejemplo n.º 16
0
 public override void Execute
 (
     PftContext context
 )
 {
     context.OutputMode = OutputMode;
     context.UpperMode  = UpperMode;
 }
Ejemplo n.º 17
0
        public override void Execute
        (
            PftContext context
        )
        {
            string text = context.Evaluate(Statement);

            Trace.WriteLine(text);
        }
Ejemplo n.º 18
0
        public override void Execute
        (
            PftContext context
        )
        {
            string text = context.Evaluate(Statement);

            context.Output.Error.WriteLine(text);
        }
Ejemplo n.º 19
0
        public override void Execute
        (
            PftContext context
        )
        {
            string text = Reference.FormatSingle(context.Globals.Get(Index));

            context.Write(text);
        }
Ejemplo n.º 20
0
 public override void Execute
 (
     PftContext context
 )
 {
     Value = (context.Record == null)
         ? 0
         : context.Record.Mfn;
 }
Ejemplo n.º 21
0
 public Unifor
 (
     PftContext context,
     PftGroupStatement grp
 )
 {
     Context = context;
     Group   = grp;
 }
Ejemplo n.º 22
0
        public override void Execute
        (
            PftContext context
        )
        {
            string argument = context.Evaluate(Argument);

            Value = ExtractNumber(argument);
        }
Ejemplo n.º 23
0
 public Umarci
 (
     PftContext context,
     PftGroupStatement grp
 )
 {
     Context = context;
     Group   = grp;
 }
Ejemplo n.º 24
0
        public string Evaluate
        (
            PftContext context
        )
        {
            string result = context.Evaluate(this);

            return(result);
        }
Ejemplo n.º 25
0
        public override void Execute
        (
            PftContext context
        )
        {
            string text = Evaluate(context);

            context.Write(text);
        }
Ejemplo n.º 26
0
        public override void Execute
        (
            PftContext context
        )
        {
            string text = context.Evaluate(Argument);

            double[] values = ExtractNumbers(text);
            Value = values.Min();
        }
Ejemplo n.º 27
0
        public override bool Evaluate
        (
            PftContext context
        )
        {
            string formatted = Field.Field.FormatSingle(context.Record);
            bool   result    = string.IsNullOrEmpty(formatted) != MustPresent;

            return(result);
        }
Ejemplo n.º 28
0
 public override bool Execute
 (
     PftContext context
 )
 {
     return(Arguments.Execute
            (
                context
            ));
 }
Ejemplo n.º 29
0
        public string Evaluate
        (
            PftAst ast
        )
        {
            PftContext copy = Push();

            ast.Execute(copy);
            return(copy.ToString());
        }
Ejemplo n.º 30
0
 public override void Execute
 (
     PftContext context
 )
 {
     if (!context.Output.HaveEmptyLine())
     {
         context.WriteLine();
     }
 }