Ejemplo n.º 1
0
        private void btnOK_Click(object sender, EventArgs e)
        {
            int lineStart       = GR.Convert.ToI32(editStartLine.Text);
            int lineStep        = GR.Convert.ToI32(editLineStep.Text);
            int firstLineNumber = GR.Convert.ToI32(editFirstLineNumber.Text);
            int lastLineNumber  = GR.Convert.ToI32(editLastLineNumber.Text);

            string newText = m_Core.Compiling.ParserBasic.Renumber(lineStart, lineStep, firstLineNumber, lastLineNumber);

            if (m_SymbolMode)
            {
                bool hadError = false;
                newText = m_Core.Compiling.ParserBasic.ReplaceAllMacrosBySymbols(newText, out hadError);
            }
            else
            {
                newText = m_Core.Compiling.ParserBasic.ReplaceAllSymbolsByMacros(newText);
            }

            if (m_Basic.m_LowerCaseMode)
            {
                newText = Parser.BasicFileParser.MakeLowerCase(newText, !m_Core.Settings.BASICUseNonC64Font);
            }

            m_Basic.FillContent(newText, true);
            Close();
        }
Ejemplo n.º 2
0
        private void btnOK_Click(object sender, EventArgs e)
        {
            int lineStart = GR.Convert.ToI32(editStartLine.Text);
            int lineStep  = GR.Convert.ToI32(editLineStep.Text);

            string newText = m_Core.Compiling.ParserBasic.Renumber(lineStart, lineStep);

            m_Basic.FillContent(newText);
            Close();
        }
Ejemplo n.º 3
0
        private void btnOK_Click(object sender, EventArgs e)
        {
            int lineStart = GR.Convert.ToI32(editStartLine.Text);
            int lineStep  = GR.Convert.ToI32(editLineStep.Text);

            string newText = m_Core.Compiling.ParserBasic.Renumber(lineStart, lineStep);

            if (m_SymbolMode)
            {
                bool hadError = false;
                newText = m_Core.Compiling.ParserBasic.ReplaceAllMacrosBySymbols(newText, out hadError);
            }
            else
            {
                newText = m_Core.Compiling.ParserBasic.ReplaceAllSymbolsByMacros(newText);
            }

            m_Basic.FillContent(newText);
            Close();
        }
Ejemplo n.º 4
0
        private void ExportToBASIC(Types.FileInfo fileToExport, C64Models.BASIC.Dialect Dialect)
        {
            C64Studio.Types.FileInfo fileInfo = null;

            if (m_Media != null)
            {
                fileInfo = m_Media.LoadFile(fileToExport.Filename);
            }
            if (fileInfo != null)
            {
                if (fileInfo.Data.Length >= 2)
                {
                    //if ( startAddress == 0x0801 )
                    {
                        // can only load from that address

                        List <string> lines;

                        // trunc load address
                        var parser = new Parser.BasicFileParser(new Parser.BasicFileParser.ParserSettings());
                        parser.SetBasicDialect(Dialect);
                        if (parser.Disassemble(fileInfo.Data.SubBuffer(2), out lines))
                        {
                            var document = new SourceBasicEx(Core);
                            document.ShowHint = DockState.Document;

                            document.Core = Core;
                            document.Show(Core.MainForm.panelMain);
                            document.SetBASICDialect(Dialect);

                            StringBuilder sb = new StringBuilder();
                            foreach (string line in lines)
                            {
                                sb.AppendLine(line);
                            }
                            document.FillContent(sb.ToString(), false);
                        }
                    }
                }
            }
        }