Ĺadny brzuch
Czy znajdzie sie tu jakiś znawca C, który zarazem umiał by to przetłumaczyć na delphi ?
int hash(const char *format, ...) { unsigned int a, c, i, j; va_list ap; int b = -1; va_start(ap, format); for (j = 0; j < strlen(format); j++) { char *arg, buf[16]; if (format[j] == 'u') { snprintf(buf, sizeof(buf), "%d", va_arg(ap, uin_t)); arg = buf; } else { if (!(arg = va_arg(ap, char*))) arg = ""; } i = 0; while ((c = (unsigned char) arg[i++]) != 0) { a = (c ^ b) + (c << 8); b = (a >> 24) | (a << 8); } } va_end(ap); return (b < 0 ? -b : b); }
Czy znajdzie sie tu jakiś znawca C, który zarazem umiał by to przetłumaczyć na delphi ?
1. prztłumaczyć na Delphi? Delphi to nie jest język programowania tylko środowisko.
2. to nie jest cały kod programu, tam są odwołania do funkcji o których z tego fragmentu nic nie wiemy. skąd to wziąłeś i po co Ci to?
Oczywiście, że cały i wielkie sorry na odpowiednik PASCALA lepiej, a po za tym juz sobie poradziłam wiec mozna to juz wywalić. Dzieki za dobre chęci.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
int hash(const char *format, ...) { unsigned int a, c, i, j; va_list ap; int b = -1; va_start(ap, format); for (j = 0; j < strlen(format); j++) { char *arg, buf[16]; if (format[j] == 'u') { snprintf(buf, sizeof(buf), "%d", va_arg(ap, uin_t)); arg = buf; } else { if (!(arg = va_arg(ap, char*))) arg = ""; } i = 0; while ((c = (unsigned char) arg[i++]) != 0) { a = (c ^ b) + (c << 8); b = (a >> 24) | (a << 8); } } va_end(ap); return (b < 0 ? -b : b); }
Czy znajdzie sie tu jakiś znawca C, który zarazem umiał by to przetłumaczyć na delphi ?
1. prztłumaczyć na Delphi? Delphi to nie jest język programowania tylko środowisko.
2. to nie jest cały kod programu, tam są odwołania do funkcji o których z tego fragmentu nic nie wiemy. skąd to wziąłeś i po co Ci to?
Oczywiście, że cały i wielkie sorry na odpowiednik PASCALA lepiej, a po za tym juz sobie poradziłam wiec mozna to juz wywalić. Dzieki za dobre chęci.