public static BytecodeProgram Read(string program, bool isMiniMaestro) { InitDictionary(); var bytecodeProgram = new BytecodeProgram(); mode = Mode.NORMAL; if (program == null) { program = ""; } var strArray = program.Split(new string[2] { "\r\n", "\n" }, StringSplitOptions.None); for (int lineNumber = 1; lineNumber <= strArray.Length; ++lineNumber) { string str1 = strArray[lineNumber - 1]; bytecodeProgram.AddSourceLine(str1); int column_number = 1; string str2 = Regex.Replace(str1, "#.*", ""); char[] chArray = new char[2] { ' ', '\t' }; foreach (string str3 in str2.Split(chArray)) { if (str3 == "") { ++column_number; } else { string upperInvariant = str3.ToUpperInvariant(); switch (mode) { case Mode.NORMAL: ParseString(upperInvariant, bytecodeProgram, "script", lineNumber, column_number, isMiniMaestro); break; case Mode.GOTO: ParseGoto(upperInvariant, bytecodeProgram, "script", lineNumber, column_number); break; case Mode.SUBROUTINE: ParseSubroutine(upperInvariant, bytecodeProgram, "script", lineNumber, column_number); break; } column_number += upperInvariant.Length + 1; } } } if (bytecodeProgram.BlockIsOpen) { string currentBlockStartLabel = bytecodeProgram.GetCurrentBlockStartLabel(); var inst = bytecodeProgram.FindLabelInstruction(currentBlockStartLabel); throw new ParsingException($"{inst.FileName}:{inst.LineNumber}:{inst.ColumnNumber}: BEGIN block was never closed"); } bytecodeProgram.CompleteLiterals(); bytecodeProgram.CompleteCalls(isMiniMaestro); bytecodeProgram.CompleteJumps(); return(bytecodeProgram); }
private static void ParseString(string s, BytecodeProgram bytecodeProgram, string filename, int lineNumber, int columnNumber, bool isMiniMaestro) { try { if (LooksLikeLiteral(s)) { Decimal num; if (s.StartsWith("0X")) { num = (Decimal)long.Parse(s.Substring(2), NumberStyles.HexNumber); if (num > new Decimal((int)ushort.MaxValue) || num < new Decimal(0)) { throw new Exception("Value " + s + " is not in the allowed range of " + (object)(ushort)0 + " to " + (object)ushort.MaxValue + "."); } if ((Decimal)(ushort)num != num) { throw new Exception("Value " + s + " must be an integer."); } } else { num = Decimal.Parse(s); if (num > new Decimal((int)short.MaxValue) || num < new Decimal((int)short.MinValue)) { throw new Exception("Value " + s + " is not in the allowed range of " + (object)short.MinValue + " to " + (object)short.MaxValue + "."); } if ((Decimal)(short)num != num) { throw new Exception("Value " + s + " must be an integer."); } } int literal = (int)(short)(long)(num % new Decimal((int)ushort.MaxValue)); bytecodeProgram.AddLiteral(literal, filename, lineNumber, columnNumber, isMiniMaestro); return; } } catch (Exception ex) { throw new Exception("Error parsing " + s + ": " + ex.ToString()); } if (s == Keyword.GOTO.ToString()) { mode = Mode.GOTO; } else if (s == Keyword.SUB.ToString()) { mode = Mode.SUBROUTINE; } else { Match match = Regex.Match(s, "(.*):$"); if (match.Success) { bytecodeProgram.AddInstruction(BytecodeInstruction.NewLabel("USER_" + match.Groups[1].ToString(), filename, lineNumber, columnNumber)); } else if (s == Keyword.BEGIN.ToString()) { bytecodeProgram.OpenBlock(BlockType.BEGIN, filename, lineNumber, columnNumber); } else if (s == Keyword.WHILE.ToString()) { if (bytecodeProgram.GetCurrentBlockType() != BlockType.BEGIN) { throw new Exception("WHILE must be inside a BEGIN...REPEAT block"); } bytecodeProgram.AddInstruction(BytecodeInstruction.NewConditionalJumpToLabel(bytecodeProgram.GetCurrentBlockEndLabel(), filename, lineNumber, columnNumber)); } else if (s == Keyword.REPEAT.ToString()) { try { if (bytecodeProgram.GetCurrentBlockType() != BlockType.BEGIN) { throw new Exception("REPEAT must end a BEGIN...REPEAT block"); } bytecodeProgram.AddInstruction(BytecodeInstruction.NewJumpToLabel(bytecodeProgram.GetCurrentBlockStartLabel(), filename, lineNumber, columnNumber)); bytecodeProgram.CloseBlock(filename, lineNumber, columnNumber); } catch (InvalidOperationException) { throw new Exception(filename + ":" + (object)lineNumber + ":" + (object)columnNumber + ": Found REPEAT without a corresponding BEGIN"); } } else if (s == Keyword.IF.ToString()) { bytecodeProgram.OpenBlock(BlockType.IF, filename, lineNumber, columnNumber); bytecodeProgram.AddInstruction(BytecodeInstruction.NewConditionalJumpToLabel(bytecodeProgram.GetCurrentBlockEndLabel(), filename, lineNumber, columnNumber)); } else if (s == Keyword.ENDIF.ToString()) { try { if (bytecodeProgram.GetCurrentBlockType() != BlockType.IF && bytecodeProgram.GetCurrentBlockType() != BlockType.ELSE) { throw new Exception("ENDIF must end an IF...ENDIF or an IF...ELSE...ENDIF block."); } bytecodeProgram.CloseBlock(filename, lineNumber, columnNumber); } catch (InvalidOperationException) { throw new Exception(filename + ":" + (object)lineNumber + ":" + (object)columnNumber + ": Found ENDIF without a corresponding IF"); } } else if (s == Keyword.ELSE.ToString()) { try { if (bytecodeProgram.GetCurrentBlockType() != BlockType.IF) { throw new Exception("ELSE must be part of an IF...ELSE...ENDIF block."); } bytecodeProgram.AddInstruction(BytecodeInstruction.NewJumpToLabel(bytecodeProgram.GetNextBlockEndLabel(), filename, lineNumber, columnNumber)); bytecodeProgram.CloseBlock(filename, lineNumber, columnNumber); bytecodeProgram.OpenBlock(BlockType.ELSE, filename, lineNumber, columnNumber); } catch (InvalidOperationException) { throw new Exception(filename + ":" + (object)lineNumber + ":" + (object)columnNumber + ": Found ELSE without a corresponding IF"); } } else { try { OperationCode op = dictionary[s]; switch (op) { case OperationCode.LITERAL: case OperationCode.LITERAL8: case OperationCode.LITERAL_N: case OperationCode.LITERAL8_N: throw new Exception(filename + ":" + (object)lineNumber + ":" + (object)columnNumber + ": Literal commands may not be used directly in a program. Integers should be entered directly."); case OperationCode.JUMP: case OperationCode.JUMP_Z: throw new Exception(filename + ":" + (object)lineNumber + ":" + (object)columnNumber + ": Jumps may not be used directly in a program."); default: if (!isMiniMaestro && (byte)op >= (byte)50) { throw new Exception(filename + ":" + (object)lineNumber + ":" + (object)columnNumber + ": " + op.ToString() + " is only available on the Mini Maestro 12, 18, and 24."); } bytecodeProgram.AddInstruction(new BytecodeInstruction(op, filename, lineNumber, columnNumber)); break; } } catch (KeyNotFoundException) { bytecodeProgram.AddInstruction(BytecodeInstruction.NewCall(s, filename, lineNumber, columnNumber)); } } } }