Click here to Skip to main content
15,881,413 members
Articles / Programming Languages / ASM

Bird Programming Language: Part 3

Rate me:
Please Sign up or sign in to vote.
4.88/5 (5 votes)
1 Jan 2013GPL35 min read 29.7K   282   14  
A new general purpose language that aims to be fast, high level and simple to use.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace Bird.Recognizers
{
	public abstract class SkippedBetweenRecognizer : LanguageNode, IResultSkippingHandler
	{
		public char Marker;
		public bool UseMarker;

		public SkippedBetweenRecognizer(LanguageNode Parent, LanguageNodeFlags Flags = LanguageNodeFlags.None)
			: base(Parent, Flags)
		{
		}

        public override void Init(LanguageInitData InitData)
		{
			if (Operators.Length == 1 && Operators[0].Length > 0)
			{
				Marker = Operators[0][0];
				UseMarker = true;
			}
			else
			{
				UseMarker = false;
			}

			base.Init(InitData);
		}

		public SkippingHandlerResult SkipResult(ref ResultSkippingManager RSM)
		{
			if (RSM.CurrentChar == Marker || !UseMarker)
			{
				var Result = RSM.String.SubstringEquals(RSM.Current, Operators, Skip);
				if (Result.Position != -1)
				{
					if (RSM.Back)
					{
						var NewString = RSM.String.Substring(0, RSM.Current);
						var Res = NewString.Find(Operators, Skip, Back: true);
						if (Res.Position != -1) return new SkippingHandlerResult(Res.Position);
					}
					else
					{
						var NewString = RSM.String.Substring(RSM.Current + Result.String.Length);
						var Res = NewString.Find(Operators, Skip, Back: false);

						if (Res.Position != -1)
						{
							var P = Res.Position + RSM.Current + Result.String.Length;
							return new SkippingHandlerResult(P);
						}
					}
				}
			}

			return new SkippingHandlerResult(-1);
		}

		public CodeString BetweenOperatos(CodeString Code)
		{
			if (UseMarker)
			{
				var StrLength = Code.Length;
				if (StrLength < 2 || Code[0] != Marker || Code[StrLength - 1] != Marker)
					return new CodeString();
			}

			var StartRes = Code.StartsWith(Operators, Skip);
			var EndRes = Code.EndsWith(Operators, Skip);
			if (StartRes.Index == -1 || EndRes.Index == -1) return new CodeString();
			if (StartRes.Index != EndRes.Index) return new CodeString();
			
			var Length = StartRes.String.Length;
			if (EndRes.Position < Length) return new CodeString();

			Code = Code.Substring(Length, Code.Length - Length * 2);
			if (Code.Find(Operators, Skip).Index != -1) return new CodeString();
			return Code;
		}
	}

}

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The GNU General Public License (GPLv3)


Written By
Software Developer
Hungary Hungary
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions