Example #1
0
		public override IEnumerator<RantAction> Run(Sandbox sb)
		{
			if (sb.Objects[Name] == null)
				throw new RantRuntimeException(sb.Pattern, _name, $"The subroutine '{Name}' does not exist.");
			var sub = (RADefineSubroutine)sb.Objects[Name].Value;
			if (sub.Parameters.Keys.Count != Arguments.Count)
				throw new RantRuntimeException(sb.Pattern, _name, "Argument mismatch on subroutine call.");
			var action = sub.Body;
			var args = new Dictionary<string, RantAction>();
			var parameters = sub.Parameters.Keys.ToArray();
			for (var i = 0; i < Arguments.Count; i++)
			{
				if (sub.Parameters[parameters[i]] == SubroutineParameterType.Greedy)
				{
					sb.AddOutputWriter();
					yield return Arguments[i];
					var output = sb.Return();
					args[parameters[i]] = new RAText(_name, output.Main);
				}
				else
					args[parameters[i]] = Arguments[i];
			}
			sb.SubroutineArgs.Push(args);
            yield return action;
			sb.SubroutineArgs.Pop();
			yield break;
		}
Example #2
0
        public override IEnumerator <RantAction> Run(Sandbox sb)
        {
            if (_inModule)
            {
                if (!sb.Modules.ContainsKey(Name))
                {
                    throw new RantRuntimeException(
                              sb.Pattern,
                              _name,
                              $"The module '{Name}' does not exist or has not been imported."
                              );
                }
                if (sb.Modules[Name][_moduleFunctionName] == null)
                {
                    throw new RantRuntimeException(
                              sb.Pattern,
                              _name,
                              $"The function '{_moduleFunctionName}' cannot be found in the module '{Name}'."
                              );
                }
            }
            else if (sb.Objects[Name] == null)
            {
                throw new RantRuntimeException(sb.Pattern, _name, $"The subroutine '{Name}' does not exist.");
            }
            var sub = (RADefineSubroutine)(_inModule ? sb.Modules[Name][_moduleFunctionName] : sb.Objects[Name].Value);

            if (sub.Parameters.Keys.Count != Arguments.Count)
            {
                throw new RantRuntimeException(sb.Pattern, _name, "Argument mismatch on subroutine call.");
            }
            var action     = sub.Body;
            var args       = new Dictionary <string, RantAction>();
            var parameters = sub.Parameters.Keys.ToArray();

            for (var i = 0; i < Arguments.Count; i++)
            {
                if (sub.Parameters[parameters[i]] == SubroutineParameterType.Greedy)
                {
                    sb.AddOutputWriter();
                    yield return(Arguments[i]);

                    var output = sb.Return();
                    args[parameters[i]] = new RAText(_name, output.Main);
                }
                else
                {
                    args[parameters[i]] = Arguments[i];
                }
            }
            sb.SubroutineArgs.Push(args);
            yield return(action);

            sb.SubroutineArgs.Pop();
            yield break;
        }
Example #3
0
        private IEnumerable<Parselet> BlockWeight(Token<R> token)
        {
            Token<R> funcToken = null;
            var actions = new List<RantAction>();

            while (!reader.End)
            {
                funcToken = reader.ReadToken();

                if (funcToken.ID == R.RightParen)
                {
                    reader.SkipSpace();

                    if (!actions.Any())
                        compiler.SyntaxError(funcToken, "Expected weight value");

					RantAction weightAction;
					// probably a number
					if (actions[0] is RAText)
					{
						if (actions.Count > 1)
						{
							if (!(actions[1] is RAText) || ((RAText)actions[1]).Text != "." || actions.Count != 3)
								compiler.SyntaxError(actions[1].Range, "Invalid block weight value.");
							weightAction = new RAText(actions[0].Range,
								(actions[0] as RAText).Text +
								(actions[1] as RAText).Text +
								(actions[2] as RAText).Text);
						}
						else
							weightAction = actions[0];
					}
					else
						weightAction = new RASequence(actions, funcToken);

                    AddToOutput(weightAction);
                    yield break;
                }

                yield return Parselet.GetParselet(funcToken, actions.Add);
            }

            // TODO: this token is "our" (the one that result is us being yielded) token. maybe have the 'fromToken' passed?
            compiler.SyntaxError(token, "Unterminated function: unexpected end of file");
        }