Roxen.git/ server/ base_server/ roxen.pike

1998-11-02

1998-11-02 06:53:41 by Per Hedbor <ph@opera.com>

• fb7ef999bb8d30b2b63519e5b63a74e491dd4cbd (30 lines) (+8/-22) ^{[ Show | Annotate ]}
  Branch: 5.2

Moved available_fonts() to fonts.pike

Rev: server/base_server/fonts.pike:1.24
Rev: server/base_server/roxen.pike:1.250

1:   /* -  * $Id: roxen.pike,v 1.249 1998/10/16 20:56:29 grubba Exp $ +  * $Id: roxen.pike,v 1.250 1998/11/02 06:53:41 per Exp $    *    * The Roxen Challenger main program.    *
8:      // ABS and suicide systems contributed freely by Francesco Chemolli    - constant cvs_version="$Id: roxen.pike,v 1.249 1998/10/16 20:56:29 grubba Exp $"; + constant cvs_version="$Id: roxen.pike,v 1.250 1998/11/02 06:53:41 per Exp $";         // Some headerfiles
59:      // Locale support   object(Locale.Roxen.standard) default_locale = Locale.Roxen.svenska; // standard; + object fonts;   #ifdef THREADS   object locale = thread_local();   #else
1104:    add_constant("roxen", this_object());    add_constant("load", load);    (object)"color.pike"; -  (object)"fonts.pike"; +  fonts = (object)"fonts.pike";    Configuration = (program)"configuration";    call_out(post_create,1); //we just want to delay some things a little   }
1819:   array font_cache;   array available_fonts(int cache)   { -  array res = ({}); -  if(cache && font_cache) return font_cache; -  foreach(QUERY(font_dirs), string dir) -  { -  dir+="32/"; -  array d; -  if(array d = get_dir(dir)) -  { -  foreach(d,string f) -  { -  if(f=="CVS") continue; -  array a; -  if((a=file_stat(dir+f)) && (a[1]==-2)) -  res |= ({ replace(f,"_"," ") }); +  if(cache && font_cache) +  return font_cache; +  return font_cache = fonts->available_fonts();   } -  } -  } -  sort(res); -  return font_cache = res; - } +          // Somewhat misnamed, since there can be more then one