CResponseSystem::AppearsToBeANumber

/* CResponseSystem::AppearsToBeANumber(char const*) */

bool CResponseSystem::AppearsToBeANumber(char *param_1)

{
  char cVar1;
  bool bVar2;
  double dVar3;
  
  dVar3 = strtod(param_1,(char **)0x0);
  bVar2 = true;
  if ((dVar3 == 0.0) && (cVar1 = *param_1, cVar1 != '\0')) {
    bVar2 = cVar1 != '0' && cVar1 != '.';
    if (cVar1 != '0' && cVar1 != '.') {
      bVar2 = false;
    }
    else {
      do {
        param_1 = param_1 + 1;
        cVar1 = *param_1;
        if (cVar1 == '\0') {
          return true;
        }
      } while ((cVar1 == '.') || (cVar1 == '0'));
    }
  }
  return bVar2;
}