setwid2() [2/2]

void fapidxx::WID2container::setwid2	(	char *	fstring,
		ftnlen	slen
	)

fill data fields from a character string

set WID2 data from a Fortran character sequence

This function sets the data in WID2container::wid2 from an input character sequence. If encode uses a binary form to encode WID2 data, this function has to distinguish between both possible representations of WID2 data. This is not yet implemented.

Parameters

fstring	WID2 line character squence to set WID2 data in WID2container::wid2 (input value of function)
slen	length of character array fstring

Definition at line 75 of file wid2container.cc.

References fapidxx::WID2container::WID2struct::encodeID, FAPIDXX_assert, fapidxx::WID2container::WID2struct::get(), fapidxx::WID2container::WID2struct::ID, fapidxx::WID2container::WID2struct::idlen, setwid2(), fapidxx::stringfromfstring(), wasascii, and wid2.

  {
    /*
     * copy content immediately such that we do not rely on the ID string
     * being placed at byte offset 0 in WID2container::WID2struct
     */
    int w2size=sizeof(WID2container::WID2struct);
    FAPIDXX_assert(w2size<=slen,
                   "WID2container::setwid2: string is too short");
    WID2container::WID2struct* ws=new WID2container::WID2struct;
    std::memcpy(ws, fstring, w2size);
    // check for special ID, expect ASCII encoding if not ID does not match
    if (std::strncmp(ws->ID, WID2container::WID2struct::encodeID, 
                     WID2container::WID2struct::idlen)!=0)
    {
      this->setwid2(stringfromfstring(fstring, slen));
      this->wasascii=true;
    }
    else
    {
      /*
       * The byte sequence fstring points to is the content of a
       * WID2container::WID2struct struct. Create a WID2container::WID2struct
       * in memory, copy the memory contents fstring points to into
       * this struct and read the WID2 data from it.
       */
      this->wid2=ws->get();
      this->wasascii=false;
    }
    delete ws;
  } // void WID2container::setwid2(char *fstring, ftnlen slen)

Here is the call graph for this function: