define join { # Copyright 2004 Thorsten Haude # # This is free software; you may modify and redistribute it under # the terms of the GNU General Public License, Version 2 or, at your # option, any later version. # (http://www.gnu.org/licenses/gpl.html) if ($n_args != 2) { # Wrong number of arguments beep() return "" } link = $1 list = $2 result = "" for (key in list) { result = result link list[key] } result = substring(result, length(link), length(result)) return result }