Apple-2-SW
/
AppleSAWS
mirror of https://github.com/markdavidlong/AppleSAWS.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
AppleSAWS/src/applesoftfile/applesofttoken.cxx

349 lines
16 KiB
C++
Raw Blame History

#include "applesofttoken.h"
QMap<quint16, QString> ApplesoftToken::m_tokens = QMap<quint16, QString>();
ApplesoftToken::ApplesoftToken()
{
if (m_tokens.size() == 0) { initializeTokenTable(); }
setTokenId(DefaultTokenVal);
}
ApplesoftToken::ApplesoftToken(quint16 id)
{
if (m_tokens.size() == 0) { initializeTokenTable(); }
setTokenId(id);
}
ApplesoftToken::ApplesoftToken(quint16 id, QVariant payload)
{
if (m_tokens.size() == 0) { initializeTokenTable(); }
setTokenId(id);
setValue(payload);
}
void ApplesoftToken::setTokenId(quint16 id)
{
m_token_id = id;
m_token_type = UNKNOWN_TOKEN;
m_command_type = NONE;
if (id <= 0x7f) {
setValue(id);
m_token_type = ASCIICHAR_TOKEN;
m_command_type = NONE;
} else if (id <= 0xC7) {
setValue(id);
m_token_type = APPLESOFT_TOKEN;
m_command_type = COMMAND;
} else if (id <= 0xD1) {
setValue(id);
m_token_type = APPLESOFT_TOKEN;
m_command_type = OPERATOR;
} else if (id <= 0xEA) {
setValue(id);
m_token_type = APPLESOFT_TOKEN;
m_command_type = FUNCTION;
} else if (id <= 0xFF) {
setValue(id);
m_token_type = UNDEFINED_APPLESOFT_TOKEN;
m_command_type = NONE;
} else if (id == StringTokenVal) {
m_token_type = STRING_TOKEN;
m_command_type = NONE;
} else if (id == RemStringTokenVal) {
m_token_type = REM_TOKEN;
m_command_type = NONE;
} else if (id == DataStringTokenVal) {
m_token_type = DATASTRING_TOKEN;
m_command_type = NONE;
} else if (id == IntegerTokenVal) {
m_token_type = INTEGER_TOKEN;
m_command_type = NONE;
} else if (id == FloatTokenVal) {
m_token_type = FLOAT_TOKEN;
m_command_type = NONE;
} else if (id == IntVarTokenVal) {
m_token_type = INT_VARIABLE_TOKEN;
m_command_type = NONE;
} else if (id == IntAryVarTokenVal) {
m_token_type = INT_ARY_VARIABLE_TOKEN;
m_command_type = NONE;
} else if (id == FloatVarTokenVal) {
m_token_type = FLOAT_VARIABLE_TOKEN;
m_command_type = NONE;
} else if (id == FloatAryVarTokenVal) {
m_token_type = FLOAT_ARY_VARIABLE_TOKEN;
m_command_type = NONE;
} else if (id == StringVarTokenVal) {
m_token_type = STRING_VARIABLE_TOKEN;
m_command_type = NONE;
} else if (id == StringAryVarTokenVal) {
m_token_type = STRING_ARY_VARIABLE_TOKEN;
m_command_type = NONE;
} else if (id >= 0xe000 && id < 0xf000) {
m_token_type = OPTIONAL_FORMAT_TOKEN;
m_command_type = OPTIONAL_FORMAT;
}
}
void ApplesoftToken::setValue(QVariant value)
{
m_payload = value;
}
QString ApplesoftToken::getRawPrintableString() const
{
if (m_token_id == DefaultTokenVal) {
return "";
} else if (m_token_id == 0x00) {
return "";
} else if (m_token_id <= 0x7f) {
return QString((m_token_id));
} else if (m_token_id <= 0xff) {
return m_tokens[m_token_id];
} else if (m_token_id == StringTokenVal) {
return getStringValue();
} else if (m_token_id == RemStringTokenVal) {
return getStringValue();
} else if (m_token_id == DataStringTokenVal) {
return getStringValue();
} else if (m_token_id == IntegerTokenVal) {
return getStringValue();
} else if (m_token_id == FloatTokenVal) {
return getStringValue();
} else if (m_token_id == IntVarTokenVal) {
return getStringValue();
} else if (m_token_id == IntAryVarTokenVal) {
return getStringValue();
} else if (m_token_id == FloatVarTokenVal) {
return getStringValue();
} else if (m_token_id == FloatAryVarTokenVal) {
return getStringValue();
} else if (m_token_id == StringVarTokenVal) {
return getStringValue();
} else if (m_token_id == StringAryVarTokenVal) {
return getStringValue();
} else if (m_token_id >= 0xe000 && m_token_id < 0xf000) {
return "";
} else {
return "[temp undefined]";
}
}
QTextCharFormat ApplesoftToken::defaultTextFormat()
{
QTextCharFormat tf; // Default
// tf.setFont(QFont("Courier"));
// tf.setFontPointSize(10);
tf.setForeground(Qt::black);
return tf;
}
QTextCharFormat ApplesoftToken::textFormat(quint16 tokenType)
{
QTextCharFormat tf = defaultTextFormat();
if (tokenType < 0x80) // Ascii
{
tf.setForeground(Qt::black);
}
else if (tokenType < 0x100) // Applesoft Tokens
{
tf.setForeground(Qt::black);
}
else if (tokenType == StringTokenVal)
{
tf.setForeground(Qt::blue);
tf.setFontWeight(QFont::Bold);
}
else if (tokenType == IntegerTokenVal || tokenType == FloatTokenVal)
{
tf.setForeground(Qt::darkGreen);
tf.setFontWeight(QFont::Bold);
}
else if (tokenType == StringVarTokenVal ||
tokenType == StringAryVarTokenVal ||
tokenType == IntVarTokenVal ||
tokenType == IntAryVarTokenVal ||
tokenType == FloatVarTokenVal ||
tokenType == FloatAryVarTokenVal)
{
tf.setFontWeight(QFont::Bold);
tf.setForeground(Qt::darkMagenta);
}
else if (tokenType == RemStringTokenVal)
{
tf.setForeground(Qt::darkGray);
tf.setFontUnderline(true);
}
else if (tokenType == DataStringTokenVal)
{
tf.setForeground(Qt::darkRed);
}
return tf;
}
void ApplesoftToken::makeTextCharFormats()
{
// TCFDefault,
// TCFCtrlChar,
// TCFAscii,
// TCFFunction,
// TCFOperator,
// TCFUnusedToken,
// TCFNumber,
// TCFString,
// TCFVariable,
// TCFDataString,
// TCFRemString,
// TCFUnknown
}
void ApplesoftToken::initializeTokenTable()
{
m_tokens[ASEnd] = " END "; m_tokens[ASFor] = " FOR ";
m_tokens[ASNext] = " NEXT "; m_tokens[ASData] = " DATA ";
m_tokens[ASInput] = " INPUT "; m_tokens[ASDel] = " DEL ";
m_tokens[ASDim] = " DIM "; m_tokens[ASRead] = " READ ";
m_tokens[ASGr] = " GR "; m_tokens[ASText] = " TEXT ";
m_tokens[ASPr] = " PR# "; m_tokens[ASIn] = " IN# ";
m_tokens[ASCall] = " CALL "; m_tokens[ASPlot] = " PLOT ";
m_tokens[ASHlin] = " HLIN "; m_tokens[ASVlin] = " VLIN ";
m_tokens[ASHgr2] = " HGR2 "; m_tokens[ASHgr] = " HGR ";
m_tokens[ASHcolor] = " HCOLOR= "; m_tokens[ASHplot] = " HPLOT ";
m_tokens[ASDraw] = " DRAW "; m_tokens[ASXdraw] = " XDRAW ";
m_tokens[ASHtab] = " HTAB "; m_tokens[ASHome] = " HOME ";
m_tokens[ASRot] = " ROT= "; m_tokens[ASScale] = " SCALE= ";
m_tokens[ASShload] = " SHLOAD "; m_tokens[ASTrace] = " TRACE ";
m_tokens[ASNotrace] = " NOTRACE "; m_tokens[ASNormal] = " NORMAL ";
m_tokens[ASInverse] = " INVERSE "; m_tokens[ASFlash] = " FLASH ";
m_tokens[ASColor] = " COLOR= "; m_tokens[ASPop] = " POP ";
m_tokens[ASVtab] = " VTAB "; m_tokens[ASHimem] = " HIMEM: ";
m_tokens[ASLomem] = " LOMEM: "; m_tokens[ASOnerr] = " ONERR ";
m_tokens[ASResume] = " RESUME "; m_tokens[ASRecall] = " RECALL ";
m_tokens[ASStore] = " STORE "; m_tokens[ASSpeed] = " SPEED= ";
m_tokens[ASLet] = " LET "; m_tokens[ASGoto] = " GOTO ";
m_tokens[ASRun] = " RUN "; m_tokens[ASIf] = " IF ";
m_tokens[ASRestore] = " RESTORE "; m_tokens[ASAMP] = " & ";
m_tokens[ASGosub] = " GOSUB "; m_tokens[ASReturn] = " RETURN ";
m_tokens[ASRem] = " REM "; m_tokens[ASStop] = " STOP ";
m_tokens[ASOn] = " ON "; m_tokens[ASWait] = " WAIT ";
m_tokens[ASLoad] = " LOAD "; m_tokens[ASSave] = " SAVE ";
m_tokens[ASDef] = " DEF "; m_tokens[ASPoke] = " POKE ";
m_tokens[ASPrint] = " PRINT "; m_tokens[ASCont] = " CONT ";
m_tokens[ASList] = " LIST "; m_tokens[ASClear] = " CLEAR ";
m_tokens[ASGet] = " GET "; m_tokens[ASNew] = " NEW ";
m_tokens[ASTab] = " TAB("; m_tokens[ASTo] = " TO ";
m_tokens[ASFn] = " FN "; m_tokens[ASSpc] = " SPC( ";
m_tokens[ASThen] = " THEN "; m_tokens[ASAt] = " AT ";
m_tokens[ASNot] = " NOT "; m_tokens[ASStep] = " STEP ";
m_tokens[ASPLUS] = " + "; m_tokens[ASMINUS] = " - ";
m_tokens[ASASTERISK] = " * "; m_tokens[ASSLASH] = " / ";
m_tokens[ASCARET] = " ^ "; m_tokens[ASAnd] = " AND ";
m_tokens[ASOr] = " OR "; m_tokens[ASGREATER] = " > ";
m_tokens[ASEQUAL] = " = "; m_tokens[ASLESS] = " < ";
m_tokens[ASSgn] = " SGN"; m_tokens[ASInt] = " INT";
m_tokens[ASAbs] = " ABS"; m_tokens[ASUsr] = " USR";
m_tokens[ASFre] = " FRE"; m_tokens[ASScrn] = " SCRN( ";
m_tokens[ASPdl] = " PDL"; m_tokens[ASPos] = " POS";
m_tokens[ASSqr] = " SQR"; m_tokens[ASRnd] = " RND";
m_tokens[ASLog] = " LOG"; m_tokens[ASExp] = " EXP";
m_tokens[ASCos] = " COS"; m_tokens[ASSin] = " SIN";
m_tokens[ASTan] = " TAN"; m_tokens[ASAtn] = " ATN";
m_tokens[ASPeek] = " PEEK"; m_tokens[ASLen] = " LEN";
m_tokens[ASStr] = " STR$"; m_tokens[ASVal] = " VAL";
m_tokens[ASAsc] = " ASC"; m_tokens[ASChr] = " CHR$";
m_tokens[ASLeft] = " LEFT$ "; m_tokens[ASRight] = " RIGHT$ ";
m_tokens[ASMid] = " MID$ ";
m_tokens[AS_EB] = "{Token 0xEB} "; m_tokens[AS_EC] = "{Token 0xEC} ";
m_tokens[AS_ED] = "{Token 0xED} "; m_tokens[AS_EE] = "{Token 0xEE} ";
m_tokens[AS_EF] = "{Token 0xEF} "; m_tokens[AS_F0] = "{Token 0xF0} ";
m_tokens[AS_F1] = "{Token 0xF1} "; m_tokens[AS_F2] = "{Token 0xF2} ";
m_tokens[AS_F3] = "{Token 0xF3} "; m_tokens[AS_F4] = "{Token 0xF4} ";
m_tokens[AS_F5] = "{Token 0xF5} "; m_tokens[AS_F6] = "{Token 0xF6} ";
m_tokens[AS_F7] = "{Token 0xF7} "; m_tokens[AS_F8] = "{Token 0xF8} ";
m_tokens[AS_F9] = "{Token 0xF9} "; m_tokens[AS_FA] = "{Token 0xFA} ";
m_tokens[AS_FB] = "{Token 0xFB} "; m_tokens[AS_FC] = "{Token 0xFC} ";
m_tokens[AS_FD] = "{Token 0xFD} "; m_tokens[AS_FE] = "{Token 0xFE} ";
m_tokens[AS_FF] = "{Token 0xFF} ";
}
const quint16 ApplesoftToken::ASEnd = 0x80; const quint16 ApplesoftToken::ASFor = 0x81;
const quint16 ApplesoftToken::ASNext = 0x82; const quint16 ApplesoftToken::ASData = 0x83;
const quint16 ApplesoftToken::ASInput = 0x84; const quint16 ApplesoftToken::ASDel = 0x85;
const quint16 ApplesoftToken::ASDim = 0x86; const quint16 ApplesoftToken::ASRead = 0x87;
const quint16 ApplesoftToken::ASGr = 0x88; const quint16 ApplesoftToken::ASText = 0x89;
const quint16 ApplesoftToken::ASPr = 0x8A; const quint16 ApplesoftToken::ASIn = 0x8B;
const quint16 ApplesoftToken::ASCall = 0x8C; const quint16 ApplesoftToken::ASPlot = 0x8D;
const quint16 ApplesoftToken::ASHlin = 0x8E; const quint16 ApplesoftToken::ASVlin = 0x8F;
const quint16 ApplesoftToken::ASHgr2 = 0x90; const quint16 ApplesoftToken::ASHgr = 0x91;
const quint16 ApplesoftToken::ASHcolor = 0x92; const quint16 ApplesoftToken::ASHplot = 0x93;
const quint16 ApplesoftToken::ASDraw = 0x94; const quint16 ApplesoftToken::ASXdraw = 0x95;
const quint16 ApplesoftToken::ASHtab = 0x96; const quint16 ApplesoftToken::ASHome = 0x97;
const quint16 ApplesoftToken::ASRot = 0x98; const quint16 ApplesoftToken::ASScale = 0x99;
const quint16 ApplesoftToken::ASShload = 0x9A; const quint16 ApplesoftToken::ASTrace = 0x9B;
const quint16 ApplesoftToken::ASNotrace = 0x9C; const quint16 ApplesoftToken::ASNormal = 0x9D;
const quint16 ApplesoftToken::ASInverse = 0x9E; const quint16 ApplesoftToken::ASFlash = 0x9F;
const quint16 ApplesoftToken::ASColor = 0xA0; const quint16 ApplesoftToken::ASPop = 0xA1;
const quint16 ApplesoftToken::ASVtab = 0xA2; const quint16 ApplesoftToken::ASHimem = 0xA3;
const quint16 ApplesoftToken::ASLomem = 0xA4; const quint16 ApplesoftToken::ASOnerr = 0xA5;
const quint16 ApplesoftToken::ASResume = 0xA6; const quint16 ApplesoftToken::ASRecall = 0xA7;
const quint16 ApplesoftToken::ASStore = 0xA8; const quint16 ApplesoftToken::ASSpeed = 0xA9;
const quint16 ApplesoftToken::ASLet = 0xAA; const quint16 ApplesoftToken::ASGoto = 0xAB;
const quint16 ApplesoftToken::ASRun = 0xAC; const quint16 ApplesoftToken::ASIf = 0xAD;
const quint16 ApplesoftToken::ASRestore = 0xAE; const quint16 ApplesoftToken::ASAMP = 0xAF;
const quint16 ApplesoftToken::ASGosub = 0xB0; const quint16 ApplesoftToken::ASReturn = 0xB1;
const quint16 ApplesoftToken::ASRem = 0xB2; const quint16 ApplesoftToken::ASStop = 0xB3;
const quint16 ApplesoftToken::ASOn = 0xB4; const quint16 ApplesoftToken::ASWait = 0xB5;
const quint16 ApplesoftToken::ASLoad = 0xB6; const quint16 ApplesoftToken::ASSave = 0xB7;
const quint16 ApplesoftToken::ASDef = 0xB8; const quint16 ApplesoftToken::ASPoke = 0xB9;
const quint16 ApplesoftToken::ASPrint = 0xBA; const quint16 ApplesoftToken::ASCont = 0xBB;
const quint16 ApplesoftToken::ASList = 0xBC; const quint16 ApplesoftToken::ASClear = 0xBD;
const quint16 ApplesoftToken::ASGet = 0xBE; const quint16 ApplesoftToken::ASNew = 0xBF;
const quint16 ApplesoftToken::ASTab = 0xC0; const quint16 ApplesoftToken::ASTo = 0xC1;
const quint16 ApplesoftToken::ASFn = 0xC2; const quint16 ApplesoftToken::ASSpc = 0xC3;
const quint16 ApplesoftToken::ASThen = 0xC4; const quint16 ApplesoftToken::ASAt = 0xC5;
const quint16 ApplesoftToken::ASNot = 0xC6; const quint16 ApplesoftToken::ASStep = 0xC7;
const quint16 ApplesoftToken::ASPLUS = 0xC8; const quint16 ApplesoftToken::ASMINUS = 0xC9;
const quint16 ApplesoftToken::ASASTERISK = 0xCA; const quint16 ApplesoftToken::ASSLASH = 0xCB;
const quint16 ApplesoftToken::ASCARET = 0xCC; const quint16 ApplesoftToken::ASAnd = 0xCD;
const quint16 ApplesoftToken::ASOr = 0xCE; const quint16 ApplesoftToken::ASGREATER = 0xCF;
const quint16 ApplesoftToken::ASEQUAL = 0xD0; const quint16 ApplesoftToken::ASLESS = 0xD1;
const quint16 ApplesoftToken::ASSgn = 0xD2; const quint16 ApplesoftToken::ASInt = 0xD3;
const quint16 ApplesoftToken::ASAbs = 0xD4; const quint16 ApplesoftToken::ASUsr = 0xD5;
const quint16 ApplesoftToken::ASFre = 0xD6; const quint16 ApplesoftToken::ASScrn = 0xD7;
const quint16 ApplesoftToken::ASPdl = 0xD8; const quint16 ApplesoftToken::ASPos = 0xD9;
const quint16 ApplesoftToken::ASSqr = 0xDA; const quint16 ApplesoftToken::ASRnd = 0xDB;
const quint16 ApplesoftToken::ASLog = 0xDC; const quint16 ApplesoftToken::ASExp = 0xDD;
const quint16 ApplesoftToken::ASCos = 0xDE; const quint16 ApplesoftToken::ASSin = 0xDF;
const quint16 ApplesoftToken::ASTan = 0xE0; const quint16 ApplesoftToken::ASAtn = 0xE1;
const quint16 ApplesoftToken::ASPeek = 0xE2; const quint16 ApplesoftToken::ASLen = 0xE3;
const quint16 ApplesoftToken::ASStr = 0xE4; const quint16 ApplesoftToken::ASVal = 0xE5;
const quint16 ApplesoftToken::ASAsc = 0xE6; const quint16 ApplesoftToken::ASChr = 0xE7;
const quint16 ApplesoftToken::ASLeft = 0xE8; const quint16 ApplesoftToken::ASRight = 0xE9;
const quint16 ApplesoftToken::ASMid = 0xEA; const quint16 ApplesoftToken::AS_EB = 0xEB;
const quint16 ApplesoftToken::AS_EC = 0xEC; const quint16 ApplesoftToken::AS_ED = 0xED;
const quint16 ApplesoftToken::AS_EE = 0xEE; const quint16 ApplesoftToken::AS_EF = 0xEF;
const quint16 ApplesoftToken::AS_F0 = 0xF0; const quint16 ApplesoftToken::AS_F1 = 0xF1;
const quint16 ApplesoftToken::AS_F2 = 0xF2; const quint16 ApplesoftToken::AS_F3 = 0xF3;
const quint16 ApplesoftToken::AS_F4 = 0xF4; const quint16 ApplesoftToken::AS_F5 = 0xF5;
const quint16 ApplesoftToken::AS_F6 = 0xF6; const quint16 ApplesoftToken::AS_F7 = 0xF7;
const quint16 ApplesoftToken::AS_F8 = 0xF8; const quint16 ApplesoftToken::AS_F9 = 0xF9;
const quint16 ApplesoftToken::AS_FA = 0xFA; const quint16 ApplesoftToken::AS_FB = 0xFB;
const quint16 ApplesoftToken::AS_FC = 0xFC; const quint16 ApplesoftToken::AS_FD = 0xFD;
const quint16 ApplesoftToken::AS_FE = 0xFE; const quint16 ApplesoftToken::AS_FF = 0xFF;
Reference in New Issue View Git Blame Copy Permalink