#define _MAX_PROTOCOL_LEN 25
#define _MAX_MODEL_LEN    25

int
tdSensor(SV* protocol_sv, SV* model_sv, SV* id_sv, SV* dataTypes_sv)
   CODE:
   {
      char protocol[_MAX_PROTOCOL_LEN + 1];
      char model[_MAX_MODEL_LEN + 1];
      int  id;
      int  dataTypes;

      RETVAL = tdSensor(
         protocol, sizeof(protocol),
         model, sizeof(model),
         &id,
         &dataTypes
      );

      if (RETVAL == TELLSTICK_SUCCESS) {
         SV* sv;
         sv = sv_2mortal(newSVpv(protocol, 0)));  SvSetMagicSV(protocol_sv,  sv);
         sv = sv_2mortal(newSVpv(model, 0));      SvSetMagicSV(model_sv,     sv);
         sv = sv_2mortal(newIV(id));              SvSetMagicSV(id_sv,        sv);
         sv = sv_2mortal(newIV(dataTypes));       SvSetMagicSV(dataTypes_sv, sv);
      } else {
         SvSetMagicSV(protocol_sv,  &PL_sv_undef);
         SvSetMagicSV(model_sv,     &PL_sv_undef);
         SvSetMagicSV(id_sv,        &PL_sv_undef);
         SvSetMagicSV(dataTypes_sv, &PL_sv_undef);
      }
   }
   OUTPUT:
       RETVAL