Delphi に対応する

Delphi に対応する

Delphi用に処理を変更しなければいけないのは、
・「(*」〜「*)」は複数行コメント
・「{」〜「}」は複数行コメント
・「'」〜「'」は文字列
・「{$」〜「}」はコンパイラ指令
・8進表記はない
・16進表記は「$」ではじまる
・整数定数を「#」〜であらわす (たとえば、改行コードは、#13#10)
などである。

//読み込んだ文字の種類を取得・状態を更新

protected override Token getCurrToken(char cPrev, char cCurr, char cNext)

{

    Token currToken = new Token(cCurr.ToString(), "その他");
    do

    {

        if ((_state == "その他") || (_state == "区切り記号") || (_state == "不明"))

        {

            if (cCurr == '/')

            {

                if (cNext == '/')

                    _state              = "単一行コメント";

                else

                    _state              = "区切り記号";

            }

            else if (cCurr == '(')

            {

                if (cNext == '*')

                    _state              = "複数行コメント1";

                else

                    _state              = "区切り記号";

            }

            else if (cCurr == '{')

            {

                if (cNext == '$')

                    _state              = "ディレクティブ";

                else

                    _state              = "複数行コメント2";

            }

            else if (cCurr == '\'')

                _state = "文字列";
            else if (cCurr == '$')

                _state = "数字";
            else if (cCurr == '#')

                _state = "文字";
            else if (Char.IsLetter(cCurr) || (cCurr == '_'))

                _state = "識別子";
            else if (Char.IsDigit(cCurr))

                _state = "数字";
            else if (Char.IsPunctuation(cCurr) || Char.IsSymbol(cCurr))

                _state = "区切り記号";
            else

                _state = "その他";
            if (_state == "区切り記号")

            {

                if (_operators.IndexOf(cCurr) >= 0)

                    currToken.tokenKind = "演算子";

                else

                    currToken.tokenKind = "区切り記号";

            }

            else if ((_state == "単一行コメント") || (_state == "複数行コメント1") || (_state == "複数行コメント2"))

            {

                currToken.tokenKind = "コメント";

            }

            else

                currToken.tokenKind = _state;

        }
        else if (_state == "複数行コメント1")

        {

            currToken.tokenKind = "コメント";
            if ((cCurr == ')') && (cPrev == '*'))

                _state = "その他";

        }
        else if (_state == "複数行コメント2")

        {

            currToken.tokenKind = "コメント";
            if (cCurr == '}')

                _state = "その他";

        }
        else if (_state == "単一行コメント")

        {

            currToken.tokenKind = "コメント";
            if (cCurr == '\n')

            {

                currToken.tokenKind = "その他";

                _state = "その他";

            }

        }
        else if (_state == "ディレクティブ")

        {

            currToken.tokenKind = "ディレクティブ";
            if (cCurr == '}')

                _state = "その他";

        }
        else if (_state == "文字列")

        {

            currToken.tokenKind = "文字列";
            if (cCurr == '\'')

                _state =   "その他";

        }
        else if (_state == "識別子")

        {

            currToken.tokenKind = "識別子";
            if (!Char.IsLetter(cCurr) && !Char.IsDigit(cCurr) && (cCurr != '_'))

            {

                _state =   "不明";
                //文字種が変わって、前のトークンが、"." でなければ、識別子が 予約語ではないか 確認する

                if ((prevToken != null) && (prevToken.tokenString != "."))

                {

                    int idxKeyWord = _keyWordsNoCase.IndexOf(mikakuteiToken.tokenString.ToLower());

                    if (idxKeyWord > 0)

                    {

                        mikakuteiToken.tokenKind   = "予約語";

                        mikakuteiToken.tokenString = _keyWords[idxKeyWord];

                    }

                }

            }

        }
        else if (_state == "数字")

        {

            currToken.tokenKind = "数字";
            if ((cCurr == '.') && (cNext == '.'))

                _state =   "不明";
            else if (!Char.IsLetter(cCurr) && !Char.IsDigit(cCurr) && (cCurr != '.'))

            {

                if ((cCurr == '+') || (cCurr == '-'))

                {

                    //１つ前の文字が "e" か "E" か

                    if ((cPrev == 'e') || (cPrev == 'E'))

                    {

                        //16進表記か?

                        if ((mikakuteiToken.tokenString.Length > 0) && (mikakuteiToken.tokenString[0] == '$'))

                            _state =   "不明";

                    }

                    else

                        _state =   "不明";

                }

                else

                    _state =   "不明";

            }

        }
        else if (_state == "文字")

        {

            currToken.tokenKind = "文字";
            if (!Char.IsDigit(cCurr))

                _state =   "不明";

        }
    } while(_state == "不明");
    return currToken;

}