283b622013-03-26Martin Nilsson #pike __REAL_VERSION__
71e1342013-02-17Bill Welliver  constant BSONBinary = 1;
ff17962014-08-15Martin Nilsson  protected string data; protected int subtype = 0x00;
9cfb5c2016-10-20Henrik Grubbström (Grubba)  // NB: Code duplication from module.pmod to avoid circular dependencies. private constant BINARY_OLD = 0x02;
71e1342013-02-17Bill Welliver  //!
ff17962014-08-15Martin Nilsson  protected void create(string _data, int|void _subtype)
71e1342013-02-17Bill Welliver  { subtype = _subtype;
9cfb5c2016-10-20Henrik Grubbström (Grubba)  if(subtype == BINARY_OLD)
71e1342013-02-17Bill Welliver  {
061e362017-07-16Martin Nilsson  if( !sscanf(_data, "%-4H", data) )
dd08cc2013-05-19Martin Nilsson  throw(Error.Generic("old binary data length does not match actual data length.\n"));
71e1342013-02-17Bill Welliver  } else data = _data; } int get_subtype() { return subtype; } void set_subtype(int _subtype) { subtype = _subtype; }
dd08cc2013-05-19Martin Nilsson 
ff17962014-08-15Martin Nilsson  protected int _sizeof()
9cfb5c2016-10-20Henrik Grubbström (Grubba)  { if(subtype == BINARY_OLD)
71e1342013-02-17Bill Welliver  return sizeof(data) + 4; else return sizeof(data); }
ff17962014-08-15Martin Nilsson  protected mixed cast(string type)
71e1342013-02-17Bill Welliver  { if(type == "string")
061e362017-07-16Martin Nilsson  return data;
ec1a0f2014-08-16Martin Nilsson  return UNDEFINED;
71e1342013-02-17Bill Welliver  }