void SCHEMAadd_use( Schema cur_schema, Symbol * ref_schema, Symbol * old, Symbol * nnew ) { Rename * r = REN_new(); r->schema_sym = ref_schema; r->old = old; r->nnew = nnew; r->rename_type = use; if( !cur_schema->u.schema->uselist ) { cur_schema->u.schema->uselist = LISTcreate(); } LISTadd( cur_schema->u.schema->uselist, ( Generic )r ); }
void SCHEMAadd_reference( Schema cur_schema, Symbol * ref_schema, Symbol * old, Symbol * snnew ) { Rename * r = REN_new(); r->schema_sym = ref_schema; r->old = old; r->nnew = snnew; r->rename_type = ref; if( !cur_schema->u.schema->reflist ) { cur_schema->u.schema->reflist = LISTcreate(); } LISTadd_last( cur_schema->u.schema->reflist, ( Generic )r ); }