pc-tools/ldc2/src/data_block_6.cpp

   1 /******************************************************************************
   2  *
   3  * LDC2 source code
   4  *
   5  * $Date: 2007/03/26 01:00:39 $
   6  * $Author: hachti $
   7  *
   8  * $Log: data_block_6.cpp,v $
   9  * Revision 2.0  2007/03/26 01:00:39  hachti
  10  * *** empty log message ***
  11  *
  12  *
  13  ******************************************************************************/
  14
  15 #include "data_block_6.hh"
  16
  17 /*!
  18  *\brief Specialisation constructor.
  19  */
  20 data_block_6::data_block_6(data_block & org)
  21   :data_block(org)
  22 {
  23   m_has_known_type=false;
  24 }
  25
  26
  27 /*!
  28  *\brief Describe the block.
  29  *\return A vector of text lines describing this block.
  30  */
  31 vector<string> data_block_6::get_description(){
  32   vector<string> result;
  33   result.insert(result.end(),extract_label(3)+"     "+get_typestring()+"Subroutine or Common Block Definition");
  34   return result;
  35 }
  36
  37 /***************************************************************/
  38 /*!
  39  *\brief Get exported symbols.
  40  *\return A vector containing the symbol names exported by this
  41  *        block.
  42  */
  43 vector<string> data_block_6::get_exported_symbols(){
  44   vector<string> result;
  45   string rs=extract_label(3);
  46   if (rs!="      ") result.insert(result.end(),rs);
  47   return result;
  48 }
  49
  50