Roxen.git / server / font_handlers / old.pike

version» Context lines:

Roxen.git/server/font_handlers/old.pike:1:   // This file is part of Roxen WebServer.   // Copyright © 1996 - 2000, Roxen IS.      #include <config.h> - constant cvs_version = "$Id: old.pike,v 1.8 2001/02/02 06:59:04 nilsson Exp $"; + constant cvs_version = "$Id: old.pike,v 1.9 2001/03/23 03:13:19 per Exp $";      constant name = "Compatibility bitmap fonts";   constant doc =   "Compatibility (bitmapped) fonts for Roxen 1.3 and earlier."   " Compact image file fonts are preferable to this format, since they are "   "almost always smaller, and easier to create.";      inherit FontHandler;      array available_fonts()
Roxen.git/server/font_handlers/old.pike:78:      string fix_name( string what )   {    return replace( lower_case(what), " ", "_" );   }      array has_font( string name, int size )   {    string base_dir;    array available; +  if( String.width( name ) > 8 ) +  return 0;    foreach(roxen->query("font_dirs"), string dir)    {    base_dir = dir+size+"/"+fix_name(name);    if((available = r_get_dir(base_dir))) break;    base_dir=dir+"/32/"+fix_name(name);    available = r_get_dir(base_dir);    }    if(!available) return 0;    return available - ({ "CVS" });   }
Roxen.git/server/font_handlers/old.pike:109:    void set_y_spacing(int|float delta) {    if(intp(delta))    ::set_y_spacing( (100.0+delta)/100.0 );    else    ::set_y_spacing( (float)delta );    }   }      Font open( string name, int size, int bold, int italic )   { +  if( String.width( name ) > 8 ) +  return 0;    string f = make_font_name( name, size, bold, italic );    Image.Font fn = MyFont();    foreach( roxen->query( "font_dirs"), string dir )    foreach( ({ size, 32 }), int sz )    {    if( r_file_stat( dir+"/"+sz+"/"+f ) )    {    if( fn->load( roxen_path( dir+"/"+sz+"/"+f ) ) )    return fn;    }    }   }