Subversion Repositories filter_foundry

Rev

Rev 79 | Rev 117 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 79 Rev 106
Line 272... Line 272...
272
 
272
 
273
        return d ? total/d : 0;
273
        return d ? total/d : 0;
274
#endif
274
#endif
275
}
275
}
276
 
276
 
-
 
277
/* rst(i) sets a random seed and returns 0. (undocumented Filter Factory function).
-
 
278
   Added by DM, 18 Dec 2018 */
-
 
279
value_type ff_rst(value_type seed){
-
 
280
        srand(seed);
-
 
281
        return 0;
-
 
282
}
-
 
283
 
277
value_type zero_val = 0;
284
value_type zero_val = 0;
278
 
285
 
279
/* predefined symbols */
286
/* predefined symbols */
280
struct sym_rec predefs[]={
287
struct sym_rec predefs[]={
281
        /* functions */
288
        /* functions */
Line 302... Line 309...
302
        {0,TOK_FN2,"c2d", (pfunc_type)ff_c2d, 0},
309
        {0,TOK_FN2,"c2d", (pfunc_type)ff_c2d, 0},
303
        {0,TOK_FN2,"c2m", (pfunc_type)ff_c2m, 0},
310
        {0,TOK_FN2,"c2m", (pfunc_type)ff_c2m, 0},
304
        {0,TOK_FN1,"get", (pfunc_type)ff_get, 0},
311
        {0,TOK_FN1,"get", (pfunc_type)ff_get, 0},
305
        {0,TOK_FN2,"put", (pfunc_type)ff_put, 0},
312
        {0,TOK_FN2,"put", (pfunc_type)ff_put, 0},
306
        {0,TOK_FN10,"cnv",(pfunc_type)ff_cnv, 0},
313
        {0,TOK_FN10,"cnv",(pfunc_type)ff_cnv, 0},
-
 
314
        {0,TOK_FN1,"rst", (pfunc_type)ff_rst, 0},
307
        /* predefined variables (names >1 characters) */
315
        /* predefined variables (names >1 characters) */
308
        {0,TOK_VAR,"dmin",0, &zero_val},
316
        {0,TOK_VAR,"dmin",0, &zero_val},
309
        {0,TOK_VAR,"mmin",0, &zero_val},
317
        {0,TOK_VAR,"mmin",0, &zero_val},
310
        {0,0,0,0,0}
318
        {0,0,0,0,0}
311
};
319
};