| 508 | */ |
| 509 | |
| 510 | udf* MET_get_udf(gpre_dbb* db, const TEXT* string) |
| 511 | { |
| 512 | SCHAR name[NAME_SIZE]; |
| 513 | |
| 514 | strcpy(name, string); |
| 515 | udf* udf_val = NULL; |
| 516 | for (gpre_sym* symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym) |
| 517 | { |
| 518 | if (symbol->sym_type == SYM_udf && |
| 519 | (udf_val = (udf*) symbol->sym_object) && udf_val->udf_database == db) |
| 520 | { |
| 521 | break; |
| 522 | } |
| 523 | } |
| 524 | |
| 525 | if (!udf_val) |
| 526 | return NULL; |
| 527 | |
| 528 | fb_assert(0); |
| 529 | return NULL; |
| 530 | } |
| 531 | |
| 532 | |
| 533 | /*____________________________________________________________ |