snd/snd-21.2/s7.c

3472   static s7_double Imag(complex<s7_double> x) {return(imag(x));}
13928   char sign;
13976   sign = K + ndigits - 1 < 0 ? '-' : '+';
13977   dest[idx++] = sign;
14058   bool sign;
14078   sign = (n < 0);
14079   if (sign) n = -n;
14092   if (sign) len++;
14094   if (sign)
14111   bool sign;
14122   sign = (num < 0);
14123   if (sign) num = -num;  /* we need a positive index below */
14125   if (sign)
14139   bool sign;
14145   sign = (num < 0);
14146   if (sign) num = -num;
14148   if (sign)
14278 	char *imag;
14282 …imag = copy_string(number_to_string_base_10(sc, sc->real_wrapper4, 0, precision, float_choice, &le…
14289 … = catstrs(sc->num_to_str, sc->num_to_str_size, ((imag[0] == '+') || (imag[0] == '-')) ? "" : "+",…
14290 	free(imag);
14369 	bool sign = false;
14385 	    sign = true;
14400 …(*nlen) = catstrs(p, len + 8, (sign) ? "-" : "", (char *)block_data(b), (radix == 16) ? "@" : "e",…
14426 	len = catstrs(p, 256, (sign) ? "-" : "", n, ".", d, (char *)NULL);
15093   int32_t i, sign = 1, frac_len, int_len, dig, max_len, exponent = 0;
15114 	sign = -1;
15279       return(sign * dval);
15409   return(sign * dval);
15440 	  s7_pointer imag;
15442 	  imag = make_atom(sc, ip, radix, NO_SYMBOLS, WITHOUT_OVERFLOW_ERROR);
15444 	  if (s7_is_real(imag))
15445 	    return(make_complex(sc, x, real_to_double(sc, imag, __func__))); /* +nan.0+2/3i etc */
53736 	  s7_pointer errp;
53737 	  errp = stacktrace_1(sc,
53743 	  if (string_length(errp) > 0)
53745 …    port_write_string(sc->error_port)(sc, string_value(errp), string_length(errp), sc->error_port);