コード例 #1
0
        public static List <Binding> BindValues(List <GPLCSource> subBlocks, int offset, List <string> errorLog)
        {
            int            i = 0, j;
            List <Binding> bs    = new List <Binding>();
            Binding        thisB = new Binding();

            for (j = 0; j < subBlocks.Count; j = j + 2)
            {
                thisB.symbol     = subBlocks[j].content;
                thisB.readIndex  = i;
                thisB.writeIndex = offset + i;
                thisB.initValue  = SafeArgumentHandler.ReadLiteral(subBlocks[j + 1], errorLog, 0);
                bs.Add(thisB);
                i++;
            }
            return(bs);
        }
コード例 #2
0
        private List <int> PatchCode(List <int> bytecode, List <GPLCSource> patchList, List <Binding> bs)
        {
            int           i, offset, patch;
            List <string> errorLog = new List <string>();

            for (i = 7; i < patchList.Count; i = i + 2)
            {
                offset           = SafeArgumentHandler.RefToOffset(bs, patchList[i], 2, errorLog) + 1;
                patch            = SafeArgumentHandler.ReadLiteral(patchList[i + 1], errorLog, 2);
                bytecode[offset] = patch;
            }
            if (errorLog.Count > 0)
            {
                foreach (string error in errorLog)
                {
                    Console.Write(error);
                }
                Console.Write("\n\nCompilation aborted at data block patching stage.");
                Console.ReadLine();
                Environment.Exit(1);
            }
            return(bytecode);
        }
コード例 #3
0
        private List <int> TransformArguments(List <GPLCSource> source, List <Binding> bs, List <int> mode, List <string> errorLog, int i)
        {
            int        n;
            List <int> transformedArguments = new List <int>();

            i++;
            for (n = 0; n < mode.Count; n++)
            {
                if (mode[n] == 0)
                {
                    transformedArguments.Add(SafeArgumentHandler.RefToOffset(bs, source[i], 0, errorLog));
                }
                else if (mode[n] == 1)
                {
                    transformedArguments.Add(SafeArgumentHandler.RefToOffset(bs, source[i], 1, errorLog));
                }
                else
                {
                    transformedArguments.Add(SafeArgumentHandler.ReadLiteral(source[i], errorLog, 1));
                }
                i++;
            }
            return(transformedArguments);
        }
コード例 #4
0
        public void TransformProgram(GPLCProgramIn progIn, List <string> errorLog)
        {
            int        offset = 0, blockSize = 0, i, n;
            List <int> sigBlock  = new List <int>();
            List <int> codeBlock = new List <int>();
            List <int> result    = new List <int> {
                0, 0, 0
            };
            string errorDetail;
            bool   blockStart = true;

            for (i = 0; i < progIn.subBlocks.Count;)
            {
                if (blockStart == true && progIn.subBlocks[i].content != "--signal")
                {
                    errorDetail = "\n\nError at line " + Convert.ToString(progIn.subBlocks[i].line) + " column " + Convert.ToString(progIn.subBlocks[i].column) + ".  Every block of code must begin with --signal x, where x is the integer signal to be handled by the block.";
                    errorLog.Add(errorDetail);
                    break;
                }
                else if (blockStart == true)
                {
                    try
                    {
                        sigBlock.Add(Convert.ToInt32(progIn.subBlocks[i + 1].content));
                        sigBlock.Add(offset);
                        blockStart = false;
                        i          = i + 2;
                    }
                    catch (FormatException)
                    {
                        errorDetail = "\n\nError at line " + Convert.ToString(progIn.subBlocks[i + 1].line) + " column " + Convert.ToString(progIn.subBlocks[i + 1].column) + ".  The second term in a signal handler statement must be an integer.";
                        errorLog.Add(errorDetail);
                        break;
                    }
                }
                else
                {
                    if (progIn.subBlocks[i].content == "if")
                    {
                        List <int> mode = new List <int> {
                            2, 0, 0, 2, 2
                        };
                        List <int> thisLine = new List <int> {
                            1
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 6;
                        offset    = offset + 6;
                        blockSize = blockSize + 6;
                    }
                    else if (progIn.subBlocks[i].content == "chg_state")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0, 0, 0, 0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            2
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 10;
                        offset    = offset + 10;
                        blockSize = blockSize + 10;
                    }
                    else if (progIn.subBlocks[i].content == "chg_grid")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0, 0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            3
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 8;
                        offset    = offset + 8;
                        blockSize = blockSize + 8;
                    }
                    else if (progIn.subBlocks[i].content == "send_signal")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            4
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 5;
                        offset    = offset + 5;
                        blockSize = blockSize + 5;
                    }
                    else if (progIn.subBlocks[i].content == "chg_value")
                    {
                        List <int> mode = new List <int> {
                            1, 0, 0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            5
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 7;
                        offset    = offset + 7;
                        blockSize = blockSize + 7;
                    }
                    else if (progIn.subBlocks[i].content == "chg_value_")
                    {
                        List <int> mode = new List <int> {
                            2, 0, 0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            5
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 7;
                        offset    = offset + 7;
                        blockSize = blockSize + 7;
                    }
                    else if (progIn.subBlocks[i].content == "chg_floor")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            6
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 7;
                        offset    = offset + 7;
                        blockSize = blockSize + 7;
                    }
                    else if (progIn.subBlocks[i].content == "chg_ps1")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            7
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 4;
                        offset    = offset + 4;
                        blockSize = blockSize + 4;
                    }
                    else if (progIn.subBlocks[i].content == "chg_obj_type")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            8
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 5;
                        offset    = offset + 5;
                        blockSize = blockSize + 5;
                    }
                    else if (progIn.subBlocks[i].content == "chg_grid_")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0, 0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            10
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 8;
                        offset    = offset + 8;
                        blockSize = blockSize + 8;
                    }
                    else if (progIn.subBlocks[i].content == "copy_ps1")
                    {
                        List <int> mode = new List <int> {
                            1, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            11
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 5;
                        offset    = offset + 5;
                        blockSize = blockSize + 5;
                    }
                    else if (progIn.subBlocks[i].content == "copy_lstate")
                    {
                        List <int> mode = new List <int> {
                            1, 0, 0, 0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            12
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 8;
                        offset    = offset + 8;
                        blockSize = blockSize + 8;
                    }
                    else if (progIn.subBlocks[i].content == "pass_msg")
                    {
                        List <int> mode = new List <int> {
                            0
                        };
                        List <int> thisLine = new List <int> {
                            13
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i + 1));
                        for (n = 3; n <= SafeArgumentHandler.ReadLiteral(progIn.subBlocks[i + 1], errorLog, 1); n++)
                        {
                            thisLine.Add(SafeArgumentHandler.ReadLiteral(progIn.subBlocks[i + n], errorLog, 1));
                        }
                        codeBlock.AddRange(thisLine);
                        i         = i + n;
                        offset    = offset + n - 1;
                        blockSize = blockSize + n - 1;
                    }
                    else if (progIn.subBlocks[i].content == "chg_ps0")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            14
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 4;
                        offset    = offset + 4;
                        blockSize = blockSize + 4;
                    }
                    else if (progIn.subBlocks[i].content == "copy_ps0")
                    {
                        List <int> mode = new List <int> {
                            1, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            15
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 5;
                        offset    = offset + 5;
                        blockSize = blockSize + 5;
                    }
                    else if (progIn.subBlocks[i].content == "binary_dice")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0, 0, 0, 2
                        };
                        List <int> thisLine = new List <int> {
                            16
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 7;
                        offset    = offset + 7;
                        blockSize = blockSize + 7;
                    }
                    else if (progIn.subBlocks[i].content == "project_init")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0
                        };
                        List <int> thisLine = new List <int> {
                            17
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 14;
                        offset    = offset + 14;
                        blockSize = blockSize + 14;
                    }
                    else if (progIn.subBlocks[i].content == "project_update")
                    {
                        List <int> mode = new List <int> {
                            0, 1, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            18
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 6;
                        offset    = offset + 6;
                        blockSize = blockSize + 6;
                    }
                    else if (progIn.subBlocks[i].content == "init_npc")
                    {
                        List <int> mode = new List <int> {
                            0, 0
                        };
                        List <int> thisLine = new List <int> {
                            19
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 3;
                        offset    = offset + 3;
                        blockSize = blockSize + 3;
                    }
                    else if (progIn.subBlocks[i].content == "npc_decision")
                    {
                        List <int> mode = new List <int> {
                            1
                        };
                        List <int> thisLine = new List <int> {
                            20
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 2;
                        offset    = offset + 2;
                        blockSize = blockSize + 2;
                    }
                    else if (progIn.subBlocks[i].content == "npc_move")
                    {
                        List <int> mode = new List <int> {
                            1
                        };
                        List <int> thisLine = new List <int> {
                            21
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 2;
                        offset    = offset + 2;
                        blockSize = blockSize + 2;
                    }
                    else if (progIn.subBlocks[i].content == "npc_damage")
                    {
                        List <int> mode = new List <int> {
                            2
                        };
                        List <int> thisLine = new List <int> {
                            22
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 2;
                        offset    = offset + 2;
                        blockSize = blockSize + 2;
                    }
                    else if (progIn.subBlocks[i].content == "cpede_move")
                    {
                        List <int> mode = new List <int> {
                            1, 2
                        };
                        List <int> thisLine = new List <int> {
                            23
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 3;
                        offset    = offset + 3;
                        blockSize = blockSize + 3;
                    }
                    else if (progIn.subBlocks[i].content == "block")
                    {
                        List <int> mode = new List <int> {
                            2, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            5, 536870910, 0
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 5;
                        offset    = offset + 7;
                        blockSize = blockSize + 7;
                    }
                    else if (progIn.subBlocks[i].content == "place_light")
                    {
                        List <int> mode = new List <int> {
                            0, 0, 0, 0, 0, 0
                        };
                        List <int> thisLine = new List <int> {
                            9
                        };
                        thisLine.AddRange(TransformArguments(progIn.subBlocks, progIn.bs, mode, errorLog, i));
                        codeBlock.AddRange(thisLine);
                        i         = i + 7;
                        offset    = offset + 7;
                        blockSize = blockSize + 7;
                    }
                    else if (progIn.subBlocks[i].content == "--signal")
                    {
                        sigBlock.Add(blockSize);
                        blockSize  = 0;
                        blockStart = true;
                    }
                    else
                    {
                        errorDetail = "\n\nError at line " + Convert.ToString(progIn.subBlocks[i].line) + " column " + Convert.ToString(progIn.subBlocks[i].column) + ".  " + progIn.subBlocks[i].content + " is an invalid GPLC op - code.";
                        errorLog.Add(errorDetail);
                        break;
                    }
                }
            }
            List <int> dataBlock = new List <int>(AddDataBlock(progIn.bs));

            sigBlock.Add(blockSize);
            result.AddRange(sigBlock); result.Add(536870911); result.AddRange(codeBlock); result.Add(536870911); result.AddRange(dataBlock);
            result[0] = result.Count - 1;
            GPLCProgramOut thisProg = new GPLCProgramOut(progIn.progName, result, progIn.bs);

            progGroup.Add(thisProg);
        }