Method code for $scheduler.del_task()

[Turn on line numbering]

---

arg tid;
var task, n;

// sender must be system, for now.
if (type(tid) != 'integer)
    throw(~type, "Task Identification must be an integer");
for task in (task_queue) {
    n++;
    if (task[1] == tid) {
        sender() == task[4] && caller() == task[5] || (> .perms(sender(), 'system) <);
        .del_from_task_queue(n);
        return 1;
    }
}
throw(~tasknf, "No task found by that TID");

---

// Miroslav Silovic
// Created 05-Sep-1995 as a part of ColdCore, see: @help Credit