там функции как у Кернигана Ритчи объявляются. Никогда такого не видел.

generate(wf,buf,N,fr,A,S,R,afmt)
char wf;
char *buf;
unsigned int N;
unsigned int fr,A;
unsigned int S;
int R,afmt;
{
int i,h,nc,n;
char *p;

if (wf==NULL || fr>(N/2)) return(0);

n=strlen(p=wf);
for (i=0; WavNAMES[i]!=NULL; i++) {
if (chkword(2,WavNAMES[i])) {
if (VERBOSE) {
fputs(wf,stdout); fputs(" matches generator function : ",stdout);
fputs(WavNAMES[i],stdout); fputs("\n",stdout);
}
if (R==-1) R=WavDefr[i];
if ((n=(*(WavFuncs[i]))(buf,N,fr,A,S,R,afmt))==0) return(0);
/ put any common post-processing here /
/ here we fill the full N byte buf up with h (N/n) basic samples */
nc=(afmt==AFMT_S16_LE)?(n<<1):n ;
for (p=buf+nc,i=1,h=N/nc; i<h; i++) {
memcpy(p,buf,nc); p+=nc;
}
return(n*h);
}
}
return(0);
}