alias list_need_count { @ list.count = 0 foreach list_need ii { @ list.count = list.count + 1 } } alias list_needlink { if ([$1] == [1]) { eval @ list_need.$encode($0) = 1} { eval assign -list_need.$encode($0)} list_need_count echo We need $list.count more hosts to reply. if (list.count == 0) {list_serv_end} } alias list_need { foreach list_need ii { echo Still need a response from $decode($ii) } } alias list_serv { @ list_serv_fd = fopen_write(out.file) on ^364 * @bytes = fwrite($list_serv_fd 1 $1)\;if (index(* $1)!=[-1]) {list_needlink $1 1;links $1 $1} on ^365 * list_needlink $$1 0 list_needlink * 1 links } alias list_serv_end { @list_serv_close = fclose($list_serv_fd) } echo ALIASES list_need, list_serv and list_serv_end defined.