31 lines
505 B
C
31 lines
505 B
C
# include "amx.h"
|
|
|
|
delete()
|
|
{
|
|
register AMX_REL *r;
|
|
|
|
if (!(r = Scan_rel))
|
|
return (amxerror(190));
|
|
|
|
Qry_mode = AMX_DELETE;
|
|
|
|
/* check DELETE permission */
|
|
qry_perm(r, "delete");
|
|
|
|
fprintf(FILE_tmp, msg(160), ++AP_level);
|
|
fprintf(FILE_tmp, msg(162), r->rel_uniq, r->rel_uniq);
|
|
fprintf(FILE_tmp, msg(164), AP_level--);
|
|
}
|
|
|
|
|
|
scan_goto(val)
|
|
register int val;
|
|
{
|
|
register AMX_REL *r;
|
|
|
|
if (!(r = Scan_rel))
|
|
return (amxerror(122 + 2 * val));
|
|
|
|
fprintf(FILE_tmp, msg(99), 2 * AP_label[AP_level] + val);
|
|
}
|