Roxen.git/ server/ font_handlers/ old.pike

2000-09-03

2000-09-03 16:45:56 by Martin Nilsson <mani@lysator.liu.se>

• b82467a6c0bf8d0bd12f3b4874798ae96b2c71fa (31 lines) (+20/-11) ^{[ Show | Annotate ]}
  Branch: 5.2

Added missing include. font_information returns different styles as different fonts.

Rev: server/font_handlers/old.pike:1.2

1: - constant cvs_version = "$Id: old.pike,v 1.1 2000/09/03 02:33:01 per Exp $"; + // This file is part of Roxen WebServer. + // Copyright © 1996 - 2000, Roxen IS.    -  + #include <config.h> + constant cvs_version = "$Id: old.pike,v 1.2 2000/09/03 16:45:56 nilsson Exp $"; +    constant name = "Compatibility bitmap fonts";   constant doc = "Compatibility (bitmapped) fonts for Roxen 1.3 and earlier.";   
35:    return res;   }    - mapping font_information( string fnt ) + array(mapping) font_information( string fnt )   { -  int styles; -  string path_found; +  array font_infos=({});    foreach(roxen->query("font_dirs"), string dir)    {    dir+="32/";
50:    string style)    if(has_value(d, style))    { -  path_found = dir+fnt; -  styles++; +  mapping font_info = ([ "name":fnt, +  "path":dir+fnt, +  "styles":styles, +  "format":"bitmap dump" ]); +  switch(style[0]) { +  case 'l': font_info->name+="light"; break; +  case 'b': font_info->name+="bold"; break; +  case 'B': font_info->name+="black"; break;    } -  +  if(style[1]=='i') font_info->name+="italic"; +  font_infos+=({ font_info });    }    } -  if(!styles) return 0; -  return ([ "name":fnt, -  "path":path_found, -  "styles":styles, -  "ttf":"no" ]); +     } -  +  return font_infos; + }      string fix_name( string what )   {