Branch: Tag:

2002-05-31

2002-05-31 22:24:27 by Martin Nilsson <mani@lysator.liu.se>

Makes better get_text output.

Rev: lib/modules/Tools.pmod/Legal.pmod/License.pmod/module.pmod:1.2

1:   #pike __REAL_VERSION__    - // $Id: module.pmod,v 1.1 2002/05/31 16:20:18 nilsson Exp $ + // $Id: module.pmod,v 1.2 2002/05/31 22:24:27 nilsson Exp $      //! Returns all the licenses as a string, suitable for   //! saving as a file.   string get_text() {    array licenses = sort(indices(Tools.Legal.License)) -    ({ "get_text", "module" }); -  string ret = sprintf("%-=80s\n\n", +  array list = map(licenses, +  lambda(string lic) { +  return lic + " (" + Tools.Legal.License[lic]->get_name() + ")"; +  }); +  string ret = sprintf("%-=80s\n",    "The Pike source is distributed under " + -  String.implode_nicely(licenses) + ". " +  String.implode_nicely(list) + ". "    "These licenses are listed in order below.");    foreach(licenses, string license) -  ret += "\n\f" + Tools.Legal.License[license]->get_text(); +  ret += "\n\n\f\n" + Tools.Legal.License[license]->get_text();       return ret;   }