1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
#pike __REAL_VERSION__ 
 
// $Id: module.pmod,v 1.1 2002/05/31 16:20:18 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", 
                       "The Pike source is distributed under " + 
                       String.implode_nicely(licenses) + ". " 
                       "These licenses are listed in order below."); 
  foreach(licenses, string license) 
    ret += "\n\f" + Tools.Legal.License[license]->get_text(); 
 
  return ret; 
}