関数論理チャート

        |  +------------------------------------+ 
   786  +--+ AnsiString TTuneRegion::GetInfo()  | 
   787     | {                                  | 
           +--+---------------------------------+ 
   788        +--- int i;
   789        +--- TSubRegion *SubRegion;
   790        +--- AnsiString s = "";
   791        +--- char *grpName[] = { "Install","Static","Dynamic" };
   792        +--- char *kindName[] = { "Define","Variable","Select","Unroll" };
   793        |    
   794        +--- s += (AnsiString)grpName[TuneGroup]+ " ";
   795        +--- s += (AnsiString)kindName[TuneKind]+ " ";
   796        +--- s += Name + "\r\n";
              |  +------------------------------+ 
   797        +--+ if(ArgValList->Count == 0){  | 
              |  +--+---------------------------+ 
   798        |     +--- s+= FuncName + "(";
              |   +-+---+ 
   799        |   |  }  | 
              |   +-+---+ 
              |   +-+-------+ 
   799        |   |  else{  | 
              |   +-+-------+ 
              |     |  +--------------------------------------------+ 
   800        |     +--+ for(i = 0 ; i < ArgValList->Count ; i++){  | 
              |     |  +--+-----------------------------------------+ 
              |     |     |  +--------------+ 
   801        |     |     +--+ if(i == 0){  | 
              |     |     |  +--+-----------+ 
   802        |     |     |     +--- s+= FuncName + "("+ ArgValList->Strings[i];
              |     |     |   +-+---+ 
   803        |     |     |   |  }  | 
              |     |     |   +-+---+ 
              |     |     |   +-+-------+ 
   803        |     |     |   |  else{  | 
              |     |     |   +-+-------+ 
   804        |     |     |     +--- s+= ","+ ArgValList->Strings[i];
              |     |     |   +-+---+ 
   805        |     |     |   |  }  | 
              |     |     |   +-----+ 
              |     |   +-+---+ 
   806        |     |   |  }  | 
              |     |   +-----+ 
              |   +-+---+ 
   807        |   |  }  | 
              |   +-----+ 
   808        +--- s += ") \r\n";
              |  +--------------------------------------+ 
   809        +--+ for(i = 0 ; i < variedCount ; i++){  | 
              |  +--+-----------------------------------+ 
   810        |     +--- s+= "    varied "+ variedValName[i] +
   811        |     |        " from " +IntToStr(variedFromValue[i])+        
   812        |     |        " to " + IntToStr(variedToValue[i])  +"\r\n";  
              |   +-+---+ 
   813        |   |  }  | 
              |   +-----+ 
   814        +--- s+= "  RefValStr = ( "+ RefValStr +" )\r\n";    // デバッグ用（変数参照文字列リスト）
   815        +--- s+= "  Case Count = "+ IntToStr(CaseCount)+"\r\n";
   816        +--- s+= "    SubRegion Count = "+ IntToStr(SubRegionList->Count)+"\r\n";
   817        |    
              |  +----------------------------------------------+ 
   818        +--+ for(i = 0 ; i < SubRegionList->Count; i++){  | 
              |  +--+-------------------------------------------+ 
   819        |     +--- SubRegion = (TSubRegion *)SubRegionList->Items[i];
   820        |     +--- s+= "    AccordingStr("+IntToStr(i)+") = "+ SubRegion->AccordingStr+"\r\n";
              |   +-+---+ 
   821        |   |  }  | 
              |   +-----+ 
   822        +--- #if 0
              |  +--------------------------------------------------+ 
   823        +--+ for(i = TokenStartPos ; i <= TokenEndPos ; i++){ | 
              |  +--+-----------------------------------------------+ 
   824        |     +--- s += IntToStr(i) + " : [" + ((TToken *)TokenList->Items[i])->OrgStr +"]\r\n";
              |   +-+---+ 
   825        |   |  }  | 
              |   +-----+ 
   826        +--- #endif
              |  +------------+ 
   827        +--+ return s;  | 
              |  +------------+ 
            +-+---+ 
   828      |  }  | 
            +-----+