Roxen.git
/
server
/
font_handlers
/
old.pike
version
»
Context lines:
10
20
40
80
file
none
3
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; } } }