1/* Extracted from the sdm module in perl. */ 2typedef struct { 3 char *dptr; 4 int dsize; 5} datum; 6extern long sdbm_hash (char *, int) ; 7extern void sdbm__putpair (char *, datum, datum) ; 8void 9sdbm__splpage (char *pag, char *New, long int sbit) 10{ 11 datum key; 12 datum val; 13 register int n; 14 register int off = 1024 ; 15 char cur[1024 ]; 16 register short *ino = (short *) cur; 17 (void) memcpy(cur, pag, 1024 ); 18 (void) ({ void *__s = ( pag ); __builtin_memset ( __s , '\0', 1024 ) ; __s; }); 19 (void) ({ void *__s = ( New ); __builtin_memset ( __s , '\0', 1024 ) ; __s; }); 20 n = ino[0]; 21 for (ino++; n > 0; ino += 2) { 22 key.dptr = cur + ino[0]; 23 key.dsize = off - ino[0]; 24 val.dptr = cur + ino[1]; 25 val.dsize = ino[0] - ino[1]; 26 (void) sdbm__putpair ((sdbm_hash(( key ).dptr, ( key ).dsize) & sbit) ? New : pag, key, val); 27 off = ino[1]; 28 n -= 2; 29 } 30} 31