abc プロジェクト
14.8.7. GetDefStr メンバ関数説明 |
メンバ関数名 | GetDefStr |
定義ファイル名 | TuneRegion.cpp |
定義行 | 2198 |
所属名 | TTuneRegion |
アクセス属性 | private |
宣言形式 | AnsiString GetDefStr ( TValData * ValData ) |
概要 | 変数の定義文字列を返す。 |
戻り値 | 定義文字列 |
パラメタ説明 | ValData 変数データ |
機能説明 | |
備考 | |
呼出し元関数一覧表
参照メンバ変数一覧表
参照先一覧表
関数論理チャート
| +------------------------------------------------------+
2198 +--+ AnsiString TTuneRegion::GetDefStr(TValData *ValData) |
2199 | { |
+--+---------------------------------------------------+
2200 +--- int j;
2201 +--- AnsiString s;
2202 +--- TToken *Token;
2203 |
2204 +--- s = "";
| +------------------------------+
2205 +--+ if(ValData->DefPosS != -1){ |
| +--+---------------------------+
| | +----------------------------------------------------------+
2206 | +--+ for(j = ValData->DefPosS ; j < ValData->DefPosE ; j++){ |
| | +--+-------------------------------------------------------+
2207 | | +--- Token = (TToken *)TokenList->Items[j];
2208 | | +--- s += Token->OrgStr;
| | +-+---+
2209 | | | } |
| | +-----+
| +-+---+
2210 | | } |
| +-+---+
| +-+-------+
2210 | | else{ |
| +-+-------+
2211 | +--- // 定義文字がない場合は、暗黙の了解として作成して返す。
2212 | | // 先頭の空白は、6文字(デフォルト)とする。
| | +----------------------------+
2213 | +--+ switch(ValData->DataType){ |
| | +--+-------------------------+
| | +---------------+
2214 | | | case dt_Int: |
| | +---------------+
2215 | | +--- s += "integer";
| | | +--------+
2216 | | +--+ break; |
| | | +--------+
| | +-----------------+
2217 | | | case dt_Real: |
| | +-----------------+
2218 | | +--- s += "real";
| | | +--------+
2219 | | +--+ break; |
| | | +--------+
| | +-----------------+
2220 | | | case dt_Char: |
| | +-----------------+
2221 | | +--- s += "character";
| | | +--------+
2222 | | +--+ break; |
| | | +--------+
| | +-----------------+
2223 | | | case dt_Logic: |
| | +-----------------+
2224 | | +--- s += "logical";
| | | +--------+
2225 | | +--+ break; |
| | | +--------+
| | +-------------------+
2226 | | | case dt_Complex: |
| | +-------------------+
2227 | | +--- s += "complex";
| | | +--------+
2228 | | +--+ break; |
| | | +--------+
| | +-----------+
2229 | | | default: |
| | +-----------+
| | | +------------+
2230 | | +--+ return ""; |
| | | +------------+
| | +-+---+
2231 | | | } |
| | +-----+
2232 | +--- s = " "+s;
| +-+---+
2233 | | } |
| +-----+
| +------------+
2234 +--+ return s; |
| +------------+
+-+---+
2235 | } |
+-----+