[Turn off line numbering]1: arg subs, fields; 2: var subbed_list, elem; 3: 4: subbed_list = []; 5: for elem in (subs) { 6: if (type(elem) == 'string) 7: subbed_list += [elem]; 8: else if (type(elem) == 'integer) 9: subbed_list += [(> fields[elem] <)]; 10: else 11: throw(~type, "Substitution element is of wrong type."); 12: } 13: return subbed_list;
// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit