private static bool Extern(Interpreter interpreter, Source source, Stringe tagname, TagArg[] args) { var name = args[0].GetString(); var result = interpreter.Engine.Hooks.Call(name); if (result == null) { throw new ProcessusException(source, tagname, "A hook with the name '" + name + "' does not exist."); } interpreter.Print(result); return false; }
private static bool DoQuery(Interpreter interpreter, SourceReader reader, State state) { var first = reader.ReadToken(); reader.SkipSpace(); var namesub = reader.Read(TokenType.Text, "list name").Split(new[] { '.' }, 2).ToArray(); var q = new Query(namesub[0].Value.Trim(), namesub.Length == 2 ? namesub[1].Value : "", "", reader.Take(TokenType.Dollar), null, null); Token<TokenType> token = null; // Class filter list. Not initialized unless class filters actually exist. List<Tuple<bool, string>> cfList = null; while (true) { if (reader.Take(TokenType.Hyphen)) { // Initialize the filter list. (cfList ?? (cfList = new List<Tuple<bool, string>>())).Clear(); do { bool notin = reader.Take(TokenType.Exclamation); if (notin && q.Exclusive) throw new ProcessusException(reader.Source, reader.PrevToken, "Cannot use the '!' modifier on exclusive class filters."); cfList.Add(Tuple.Create(!notin, reader.Read(TokenType.Text, "class identifier").Value.Trim())); } while (reader.Take(TokenType.Pipe)); q.ClassFilters.Add(cfList.ToArray()); } else if (reader.Take(TokenType.Question)) { token = reader.Read(TokenType.Regex, "regex"); q.RegexFilters.Add(Tuple.Create(true, Util.ParseRegex(token.Value))); } else if (reader.Take(TokenType.Without)) { token = reader.Read(TokenType.Regex, "regex"); q.RegexFilters.Add(Tuple.Create(false, Util.ParseRegex(token.Value))); } else if (reader.Take(TokenType.DoubleColon)) { token = reader.Read(TokenType.Text, "carrier name"); q.Carrier = token.Value.Trim(); if (!reader.Take(TokenType.RightAngle)) { throw new ProcessusException(reader.Source, token, "Expected '>' after carrier. (The carrier should be your last query argument!)"); } break; } else if (reader.Take(TokenType.RightAngle)) { break; } else if (!reader.SkipSpace()) { var t = !reader.End ? reader.ReadToken() : null; throw new ProcessusException(reader.Source, t, t == null ? "Unexpected end-of-file in query." : "Unexpected token '" + t.Value + "' in query."); } } interpreter.Print(interpreter.Engine.Vocabulary.Query(interpreter.RNG, q)); return false; }
private static bool DoEscape(Interpreter interpreter, SourceReader reader, State state) { interpreter.Print(Util.Unescape(reader.ReadToken().Value, interpreter.RNG)); return false; }
private static bool DoConstant(Interpreter interpreter, SourceReader reader, State state) { interpreter.Print(Util.UnescapeConstantLiteral(reader.ReadToken().Value)); return false; }
private static bool DoText(Interpreter interpreter, SourceReader reader, State state) { interpreter.Print(reader.ReadToken().Value); return false; }
private static bool Number(Interpreter interpreter, Source source, Stringe tagName, TagArg[] args) { int a, b; if (!Int32.TryParse(args[0].GetString(), out a) || !Int32.TryParse(args[1].GetString(), out b)) { throw new ProcessusException(source, tagName, "Range values could not be parsed. They must be numbers."); } interpreter.Print(interpreter.FormatNumber(interpreter.RNG.Next(a, b + 1))); return false; }
private static bool RepNum(Interpreter interpreter, Source source, Stringe tagname, TagArg[] args) { if (interpreter.CurrentRepeater == null) throw new ProcessusException(source, tagname, "No active repeaters."); interpreter.Print(interpreter.FormatNumber(interpreter.CurrentRepeater.Index + 1)); return false; }
private static bool ReplaceMatch(Interpreter interpreter, Source source, Stringe tagname, TagArg[] args) { interpreter.Print(interpreter.GetMatchString()); return false; }
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; }