pc-tools/ldc2/src/data_block_6.cpp

   1 #include "data_block_6.hh"
   2
   3 /*!
   4  *\brief Specialisation constructor.
   5  */
   6 data_block_6::data_block_6(data_block & org)
   7   :data_block(org)
   8 {
   9   m_has_known_type=false;
  10 }
  11
  12
  13 /*!
  14  *\brief Describe the block.
  15  *\return A vector of text lines describing this block.
  16  */
  17 vector<string> data_block_6::get_description(){
  18   vector<string> result;
  19   result.insert(result.end(),extract_label(3)+"     "+get_typestring()+"Subroutine or Common Block Definition");
  20   return result;
  21 }
  22
  23 /***************************************************************/
  24 /*!
  25  *\brief Get exported symbols.
  26  *\return A vector containing the symbol names exported by this
  27  *        block.
  28  */
  29 vector<string> data_block_6::get_exported_symbols(){
  30   vector<string> result;
  31   string rs=extract_label(3);
  32   if (rs!="      ") result.insert(result.end(),rs);
  33   return result;
  34 }
  35
  36