private static bool DoMath(Interpreter interpreter, SourceReader reader, State state) { reader.Read(TokenType.LeftParen); bool isStatement = reader.Take(TokenType.At); var tokens = reader.ReadToScopeClose(TokenType.LeftParen, TokenType.RightParen, BracketPairs.All); interpreter.PushState(State.CreateDerivedDistinct(reader.Source, tokens, interpreter)); state.AddPreBlueprint(new FunctionBlueprint(interpreter, _ => { var v = Parser.Calculate(_, _.PopResultString()); if (!isStatement) { _.Print(_.FormatNumber(v)); } return false; })); return true; }
private static bool DoReplacer(Token<TokenType> name, Interpreter interpreter, SourceReader reader, State state) { reader.Read(TokenType.Colon); var args = reader.ReadItemsToClosureTrimmed(TokenType.LeftSquare, TokenType.RightSquare, TokenType.Semicolon, BracketPairs.All).ToArray(); if (args.Length != 2) throw new ProcessusException(reader.Source, name, "Replacer expected 2 arguments, but got " + args.Length + "."); state.AddPreBlueprint(new ReplacerBlueprint(interpreter, Util.ParseRegex(name.Value), args[1])); interpreter.PushState(State.CreateDerivedDistinct(reader.Source, args[0], interpreter)); return true; }
private static bool DoTag(Interpreter interpreter, SourceReader reader, State state) { reader.Read(TokenType.LeftSquare); var name = reader.ReadToken(); // Check if metapattern if (name.Identifier == TokenType.Question) { state.AddPreBlueprint(new MetapatternBlueprint(interpreter)); interpreter.PushState(State.CreateDerivedDistinct(reader.Source, reader.ReadToScopeClose(TokenType.LeftSquare, TokenType.RightSquare, BracketPairs.All), interpreter)); return true; } // Check if replacer if (name.Identifier == TokenType.Regex) { return DoReplacer(name, interpreter, reader, state); } if (name.Identifier == TokenType.Dollar) { return reader.IsNext(TokenType.Text) ? DoSubCall(name, interpreter, reader, state) : DoSubDefinition(name, interpreter, reader, state); } if (!Util.ValidateName(name.Value.Trim())) throw new ProcessusException(reader.Source, name, "Invalid tag name '" + name.Value + "'"); bool none = false; if (!reader.Take(TokenType.Colon)) { if (!reader.Take(TokenType.RightSquare)) throw new ProcessusException(reader.Source, name, "Expected ':' or ']' after tag name."); none = true; } if (none) { state.AddPreBlueprint(new TagBlueprint(interpreter, reader.Source, name)); } else { var items = reader.ReadItemsToClosureTrimmed(TokenType.LeftSquare, TokenType.RightSquare, TokenType.Semicolon, BracketPairs.All).ToArray(); state.AddPreBlueprint(new TagBlueprint(interpreter, reader.Source, name, items)); } return true; }
private static bool DoSubDefinition(Token<TokenType> first, Interpreter interpreter, SourceReader reader, State state) { bool meta = reader.Take(TokenType.Question); reader.Read(TokenType.LeftSquare); var parameters = new List<Tuple<string, TagArgType>>(); var tName = reader.Read(TokenType.Text, "subroutine name"); if (!Util.ValidateName(tName.Value)) throw new ProcessusException(reader.Source, tName, "Invalid subroutine name: '" + tName.Value + "'"); if (!reader.Take(TokenType.Colon)) { reader.Read(TokenType.RightSquare); } else { while (true) { bool isTokens = reader.Take(TokenType.At); parameters.Add(Tuple.Create(reader.Read(TokenType.Text, "parameter name").Value, isTokens ? TagArgType.Tokens : TagArgType.Result)); if (reader.Take(TokenType.RightSquare, false)) break; reader.Read(TokenType.Semicolon); } } reader.SkipSpace(); reader.Read(TokenType.Colon); var body = reader.ReadToScopeClose(TokenType.LeftSquare, TokenType.RightSquare, BracketPairs.All).ToArray(); if (meta) { interpreter.PushState(State.CreateDerivedDistinct(reader.Source, body, interpreter)); state.AddPreBlueprint(new FunctionBlueprint(interpreter, _ => { _.Engine.Subroutines.Define(tName.Value, Subroutine.FromString(tName.Value, _.PopResultString(), parameters.ToArray())); return false; })); } else { interpreter.Engine.Subroutines.Define(tName.Value, Subroutine.FromTokens(tName.Value, reader.Source, body, parameters.ToArray())); } return meta; }
public bool Iterate(Interpreter ii, RepeaterBlueprint bp) { if (Finished) { ii.PopRepeater(); return false; } // Queue the next iteration on the current state ii.CurrentState.AddPreBlueprint(bp); // Push separator if applicable if (!IsLast && _attribs.Separator != null && _attribs.Separator.Any()) { var sepState = Interpreter.State.CreateDerivedDistinct( ii.CurrentState.Reader.Source, _attribs.Separator, ii, ii.CurrentState.Output); // Make sure that the repeater is not available to the separator pattern sepState.AddPreBlueprint(new RepeaterStackBlueprint(ii, this, RepeaterStackAction.Pop)); sepState.AddPostBlueprint(new RepeaterStackBlueprint(ii, this, RepeaterStackAction.Push)); ii.PushState(sepState); } // Push postfix if applicable if (_attribs.After != null && _attribs.After.Any()) { ii.PushState(Interpreter.State.CreateDerivedDistinct( ii.CurrentState.Reader.Source, _attribs.After, ii, ii.CurrentState.Output)); } // Push next item var itemState = Interpreter.State.CreateDerivedDistinct(ii.CurrentState.Reader.Source, _items[_attribs.Sync != null ? _attribs.Sync.NextItem(_items.Length) : ii.RNG.Next(_items.Length)], ii, ii.CurrentState.Output); // Add a blueprint that iterates the repeater just before reading the item. This makes sure that tags like [first] can run before this happens. itemState.AddPostBlueprint(new FunctionBlueprint(ii, _ => { Next(); return false; })); ii.PushState(itemState); // Push prefix if applicable if (_attribs.Before != null && _attribs.Before.Any()) { ii.PushState(Interpreter.State.CreateDerivedDistinct( ii.CurrentState.Reader.Source, _attribs.Before, ii, ii.CurrentState.Output)); } return true; }
private static bool First(Interpreter interpreter, Source source, Stringe tagname, TagArg[] args) { if (interpreter.CurrentRepeater == null || !interpreter.CurrentRepeater.IsFirst) return false; interpreter.PushState(State.CreateDerivedDistinct(source, args[0].GetTokens(), interpreter, interpreter.CurrentState.Output)); return true; }
private static bool Nth(Interpreter interpreter, Source source, Stringe tagname, TagArg[] args) { int offset, interval; if (!Int32.TryParse(args[0].GetString(), out interval)) { throw new ProcessusException(source, tagname, "Invalid interval value."); } if (interval <= 0) { throw new ProcessusException(source, tagname, "Interval must be greater than zero."); } if (!Int32.TryParse(args[1].GetString(), out offset)) { throw new ProcessusException(source, tagname, "Invalid offset value."); } if (interpreter.CurrentRepeater == null || !interpreter.CurrentRepeater.Nth(offset, interval)) return false; interpreter.PushState(State.CreateDerivedDistinct(source, args[2].GetTokens(), interpreter, interpreter.CurrentState.Output)); return true; }
private static bool Alt(Interpreter interpreter, Source source, Stringe tagname, TagArg[] args) { var testState = State.CreateDerivedDistinct(source, args[0].GetTokens(), interpreter, interpreter.CurrentState.Output); testState.AddPostBlueprint(new AltBlueprint(interpreter, testState, args[1].GetTokens())); interpreter.PushState(testState); return true; }
private static bool Arg(Interpreter interpreter, Source source, Stringe tagname, TagArg[] args) { if (!interpreter.SubArgStack.Any()) throw new ProcessusException(source, tagname, "Tried to access arguments outside of a subroutine body."); TagArg arg; var argName = args[0].GetString().Trim(); if (!interpreter.SubArgStack.Peek().TryGetValue(argName, out arg)) throw new ProcessusException(source, tagname, "Could not find argument '" + argName + "'."); // Argument is string if (arg.Type == TagArgType.Result) { interpreter.Print(arg.GetString()); return false; } // Argument is tokens interpreter.PushState(State.CreateDerivedShared(source, arg.GetTokens(), interpreter)); return true; }