UltimateZoneBuilder/Source/Core/GZBuilder/GZDoom/MapinfoParser.cs

using System;
using System.Drawing;
using System.Globalization;
using System.IO;
using SlimDX;
using CodeImp.DoomBuilder.ZDoom;
using CodeImp.DoomBuilder.GZBuilder.Data;

namespace CodeImp.DoomBuilder.GZBuilder.GZDoom {
	public sealed class MapinfoParser : ZDTextParser {

		private MapInfo mapInfo;
		public MapInfo MapInfo { get { return mapInfo; } }

		public bool Parse(Stream stream, string sourcefilename, string mapName) {
			base.Parse(stream, sourcefilename);

			mapName = mapName.ToLowerInvariant();
			mapInfo = new MapInfo();

			while (SkipWhitespace(true)) {
				string token = ReadToken();
				if (token != null) {
					token = token.ToLowerInvariant();

					if (parseBlock(token, mapName))
						break;
				}
			}

			//check values
			if (mapInfo.FadeColor.Red > 0 || mapInfo.FadeColor.Green > 0 || mapInfo.FadeColor.Blue > 0)
				mapInfo.HasFadeColor = true;

			if (mapInfo.OutsideFogColor.Red > 0 || mapInfo.OutsideFogColor.Green > 0 || mapInfo.OutsideFogColor.Blue > 0)
				mapInfo.HasOutsideFogColor = true;

			//Cannot fail here
			return true;
		}

		//returns true if parsing is finished
		private bool parseBlock(string token, string mapName) {
			string curBlockName;

			if (token == "map" || token == "defaultmap" || token == "adddefaultmap") {
				curBlockName = token;

				if (token == "map") { //check map name
					//get map name
					SkipWhitespace(true);
					token = ReadToken().ToLowerInvariant();

					if (token != mapName)
						return false; //not finished, search for next "map", "defaultmap" or "adddefaultmap" block
				} else if (token == "defaultmap") {
					//reset MapInfo
					mapInfo = new MapInfo();
				}

				//search for required keys
				while (SkipWhitespace(true)) {
					token = ReadToken().ToLowerInvariant();

//sky1 or sky2
					if (token == "sky1" || token == "sky2") {
						string skyType = token;
						SkipWhitespace(true);
						token = StripTokenQuotes(ReadToken()).ToLowerInvariant();

						//new format
						if (token == "=") {
							SkipWhitespace(true);

							//should be sky texture name
							token = StripTokenQuotes(ReadToken());
							bool gotComma = (token.IndexOf(",") != -1);
							if (gotComma)
								token = token.Replace(",", "");
							string skyTexture = StripTokenQuotes(token).ToLowerInvariant();

							if (!string.IsNullOrEmpty(skyTexture)) {
								if (skyType == "sky1")
									mapInfo.Sky1 = skyTexture;
								else
									mapInfo.Sky2 = skyTexture;

								//check if we have scrollspeed
								SkipWhitespace(true);
								token = StripTokenQuotes(ReadToken());

								if (!gotComma && token == ",") {
									gotComma = true;
									SkipWhitespace(true);
									token = ReadToken();
								}

								if (gotComma) {
									float scrollSpeed = 0;

									if (!ReadSignedFloat(token, ref scrollSpeed)) {
										// Not numeric!
										General.ErrorLogger.Add(ErrorType.Warning, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + skyType + " scroll speed value, but got '" + token + "'");
										datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
										continue;
									}

									if (skyType == "sky1")
										mapInfo.Sky1ScrollSpeed = scrollSpeed;
									else
										mapInfo.Sky2ScrollSpeed = scrollSpeed;
								} else {
									datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
								}
							} else {
								datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
								General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + skyType + " texture name.");
							}
							//old format
						} else {
							//token should be sky1/2 name
							if (!string.IsNullOrEmpty(token)) {
								if (skyType == "sky1")
									mapInfo.Sky1 = token;
								else
									mapInfo.Sky2 = token;

								//try to read scroll speed
								SkipWhitespace(true);
								token = StripTokenQuotes(ReadToken());

								float scrollSpeed = 0;
								if (!ReadSignedFloat(token, ref scrollSpeed)) {
									// Not numeric!
									datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
									continue;
								}

								if (skyType == "sky1")
									mapInfo.Sky1ScrollSpeed = scrollSpeed;
								else
									mapInfo.Sky2ScrollSpeed = scrollSpeed;

							} else {
								datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
								General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + skyType + " texture name.");
							}
						}
//fade or outsidefog
					} else if (token == "fade" || token == "outsidefog") {
						string fadeType = token;
						SkipWhitespace(true);
						token = StripTokenQuotes(ReadToken()).ToLowerInvariant();

						//new format
						if (token == "=") {
							SkipWhitespace(true);

							//red color value or color name...
							token = ReadToken();
							string colorVal = StripTokenQuotes(token).ToLowerInvariant();
							if (!string.IsNullOrEmpty(colorVal)) {
								Color4 color = new Color4();

								//is it color name?
								if (getColor(colorVal, ref color)) {
									if (fadeType == "fade")
										mapInfo.FadeColor = color;
									else
										mapInfo.OutsideFogColor = color;
								} else { //no, it's not
									//try to get color values
									int r, g, b;
									string[] parts = colorVal.Split(new[] { " " }, StringSplitOptions.RemoveEmptyEntries);

									if (parts.Length != 3) {
										General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + fadeType + " color values, but got '" + token + "'");
										datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
										continue;
									}

									if (!int.TryParse(parts[0], NumberStyles.HexNumber, CultureInfo.InvariantCulture, out r)) {
										General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + fadeType + " red value, but got '" + parts[0] + "'");
										datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
										continue;
									}
									if (!int.TryParse(parts[1], NumberStyles.HexNumber, CultureInfo.InvariantCulture, out g)) {
										General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + fadeType + " green value, but got '" + parts[1] + "'");
										datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
										continue;
									}
									if (!int.TryParse(parts[2], NumberStyles.HexNumber, CultureInfo.InvariantCulture, out b)) {
										General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + fadeType + " blue value, but got '" + parts[2] + "'");
										datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
										continue;
									}

									color.Red = (float)r / 255;
									color.Green = (float)g / 255;
									color.Blue = (float)b / 255;

									if (fadeType == "fade")
										mapInfo.FadeColor = color;
									else
										mapInfo.OutsideFogColor = color;
								}
							} else {
								General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + fadeType + " color value.");
								datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
							}

							//old format
						} else {
							//token should contain red color value or color name...
							if (!string.IsNullOrEmpty(token)) {
								int r, g, b;
								Color4 color = new Color4();

								if (!int.TryParse(token, NumberStyles.HexNumber, CultureInfo.InvariantCulture, out r)) {
									//Not numeric! Maybe it's a color name?
									if (getColor(token, ref color)) {
										if (fadeType == "fade")
											mapInfo.FadeColor = color;
										else
											mapInfo.OutsideFogColor = color;
									} else {
										datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
									}
									continue;
								}

								SkipWhitespace(true);
								token = ReadToken();

								//should be color, let's continue parsing it.
								if (!int.TryParse(token, NumberStyles.HexNumber, CultureInfo.InvariantCulture, out g)) {
									// Not numeric!
									General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + fadeType + " green value, but got '" + token + "'");
									datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
									continue;
								}

								SkipWhitespace(true);
								token = StripTokenQuotes(ReadToken());

								if (!int.TryParse(token, NumberStyles.HexNumber, CultureInfo.InvariantCulture, out b)) {
									// Not numeric!
									General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + fadeType + " blue value, but got '" + token + "'");
									datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
									continue;
								}

								color.Red = (float)r / 255;
								color.Green = (float)g / 255;
								color.Blue = (float)b / 255;

								if (fadeType == "fade")
									mapInfo.FadeColor = color;
								else
									mapInfo.OutsideFogColor = color;

							} else {
								General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + fadeType + " color value.");
								datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
							}
						}
//vertwallshade or horizwallshade
					} else if (token == "vertwallshade" || token == "horizwallshade") {
						string shadeType = token;
						SkipWhitespace(true);
						token = StripTokenQuotes(ReadToken());

						//new format
						if(token == "=") {
							SkipWhitespace(true);
							token = StripTokenQuotes(ReadToken());
						}

						int val = 0;
						if(!ReadSignedInt(token, ref val)) {
							// Not numeric!
							General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + shadeType + " value, but got '" + token + "'");
							datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
							continue;
						}

						if(shadeType == "vertwallshade")
							mapInfo.VertWallShade = General.Clamp(val, -255, 255);
						else
							mapInfo.HorizWallShade = General.Clamp(val, -255, 255);
//fogdensity or outsidefogdensity
					} else if(token == "fogdensity" || token == "outsidefogdensity") {
						string densityType = token;
						SkipWhitespace(true);
						token = StripTokenQuotes(ReadToken());

						//new format
						if(token == "=") {
							SkipWhitespace(true);
							token = StripTokenQuotes(ReadToken());
						}

						int val;
						if(!int.TryParse(token, NumberStyles.Integer, CultureInfo.InvariantCulture, out val)) {
							// Not numeric!
							General.ErrorLogger.Add(ErrorType.Error, "Unexpected token found in '" + sourcename + "' at line " + GetCurrentLineNumber() + ": expected " + densityType + " value, but got '" + token + "'");
							datastream.Seek(-token.Length - 1, SeekOrigin.Current); //step back and try parsing this token again
							continue;
						}

						if (densityType == "fogdensity") {
							mapInfo.FogDensity = (int)(1024 * (256.0f / val));
						} else {
							mapInfo.OutsideFogDensity = (int)(1024 * (256.0f / val));
						}
						//doublesky
					} else if (token == "doublesky") {
						mapInfo.DoubleSky = true;
//evenlighting
					} else if (token == "evenlighting") {
						mapInfo.EvenLighting = true;
//smoothlighting
					} else if (token == "smoothlighting") {
						mapInfo.SmoothLighting = true;
						//block end
					} else if (token == "}") {
						return (curBlockName == "map" || parseBlock(token, mapName));
					}
				}
			}
			return false;
		}

		private bool getColor(string name, ref Color4 color) {
			if (name == "black") return true;

			//probably it's a hex color (like FFCC11)?
			int ci;
			if (int.TryParse(name, NumberStyles.HexNumber, CultureInfo.InvariantCulture, out ci)) {
				color = new Color4(ci) {Alpha = 1.0f};
				return true;
			}

			//probably it's a color name?
			Color c = Color.FromName(name); //should be similar to C++ color name detection, I suppose
			if (c.IsKnownColor) {
				color = new Color4(c);
				return true;
			}
			return false;
		}
	}
}