0a76aa | 1998-03-27 | David Hedbor | | constant cvs_version="$Id: graphic_text.pike,v 1.119 1998/03/27 23:22:21 neotron Exp $";
|
85e832 | 1997-08-31 | Peter Bortas | | constant thread_safe=1;
|
ebf60d | 1997-03-08 | Henrik Grubbström (Grubba) | |
|
d47cbf | 1996-12-02 | Per Hedbor | | #include <module.h>
|
e5bad2 | 1998-02-10 | Per Hedbor | | #include <stat.h>
|
d47cbf | 1996-12-02 | Per Hedbor | | inherit "module";
inherit "roxenlib";
|
3992de | 1997-09-28 | Henrik Grubbström (Grubba) | | #ifndef VAR_MORE
#define VAR_MORE 0
#endif /* VAR_MORE */
|
610bf9 | 1998-03-07 | Fredrik Noring | | static private int loaded;
static private string doc()
{
return !loaded?"":replace(Stdio.read_bytes("modules/tags/doc/graphic_text")
||"", ({ "{", "}" }), ({ "<", ">" }));
}
|
d47cbf | 1996-12-02 | Per Hedbor | | array register_module()
{
return ({ MODULE_LOCATION | MODULE_PARSER,
"Graphics text",
|
610bf9 | 1998-03-07 | Fredrik Noring | | ("Generates graphical texts.<p>"
"See <tt><gtext help></gtext></tt> for "
|
0a76aa | 1998-03-27 | David Hedbor | | "more information.\n<p>"+doc()),
#if 0
"Defines a few new containers, which all render text to gifs "
"using the image module in pike.\n<p>"
"<b><gh1></b> to <b><gh6>:</b> Headers<br>\n"
"<b><gh>:</b> Header<br>\n"
"<b><gtext>:</b> Graphical text<br>\n"
"<b><anfang>:</b> Make the first character a "
"graphical one. Not all that useful, really.<br>\n"
"<br>\n"
"<b>Common arguments:</b>\n <pre>"
" verbatim Do not try to be typographically correct\n"
" bg=color Use this background, default taken from the\n"
" <body> tag, if any\n"
" fg=color Use this foreground, default taken from the\n"
" <body> tag, if any\n"
" nfont=fnt Use this font. The fonts can be found in the\n"
" directory specified in the configuration\n"
" interface.\n"
" If no font is specified, the one from the\n"
" define 'nfont' is used, or if there is no\n"
" define, the default font will be used.\n"
" bold Try to find a bold version of the font.\n"
" italic Try to find an italic version of the font.\n"
" black Try to find a black (heavy) version of the font.\n"
" light Try to find a light version of the font.\n"
" scale=float Scale to this font, mostly useful in the <gtext>\n"
" tag, will not work at all in the <gh[number]>\n"
" tags.\n"
" 2 3 4 5 6 Short for scale=1.0/([number]*0.6)\n"
" notrans Do _not_ make the background color transparent\n"
" split Make each word into a separate gif image\n"
" split=char Split the string also at CHAR\n"
" href=url Link the image to the specified URL\n"
" The 'link' color of the document will be\n"
" used as the default foreground of the text\n"
" alt=message Sets the 'alt' attribute.\n"
" Use alt=\"\" if no alternate message is wanted.\n"
" quant=cols Use this number of colors\n"
" magic[=message] Modifier to href, more flashy links\n"
" Does <b>not</b> work with 'split'\n"
" magicbg=bg As background, but for the 'magic' image\n"
" magic_X same as X, where X is any other argument,\n"
" but for the 'magic' image.\n"
" fuzz[=color] Apply the 'glow' effect to the result\n"
" fs Use floyd-steinberg dithering\n"
" border=int,col. Draw an border (width is the first argument\n"
" in the specified color\n"
" spacing=int Add this amount of spacing around the text\n"
" xspacing=int like spacing, but only horizontal\n"
" yspacing=int like spacing, but only vertical\n"
" size=int,int Use this (absolute) size\n"
" xsize=int Use this (absolute) size\n"
" ysize=int Use this (absolute) size\n"
" bevel=int Draw a bevel box (width is the argument)\n"
" pressed Invert the \"direction\" of the bevel box\n"
" talign=dir Justify the text to the left, right, or center\n"
" textbox=al,col. Use 'al' as opaque value to draw a box below\n"
" the text with the specified color.\n"
" xpad=X% Increase padding between characters with X%\n"
" xpad=Y% Increase padding between lines with Y%\n"
" shadow=int,dist Draw a drop-shadow (variable distance/intensity)\n"
" bshadow=dist Draw a blured drop-shadow (variable distance)\n"
" scolor=color Use this color as the shadow color.\n"
" ghost=dist,blur,col\n"
" Do a 'ghost text'. Do NOT use together with\n"
" 'shadow'. Magic coloring won't work with it.\n"
" glow=color Draw a 'glow' outline around the text.\n"
" opaque=0-100% Draw with more or less opaque text (100%\n"
" is default)\n"
" rotate=ang(deg.)Rotate the finished image\n"
" background=file Use the specifed file as a background\n"
" Supported file-formats: gif and ppm, jpeg if\n"
" the jpeg library was available when roxen was\n"
" compiled\n"
" texture=file Use the specified file as text texture\n"
" tile Tile the background and foreground images\n"
" if they are smaller than the actual image\n"
" mirrortile same as above, but mirror around x and y axis\n"
" for odd frames, creating seamless textures\n"
" turbulence=args args is: frequency,color;freq,col;freq,col\n"
" Apply a turbulence filter, and use this as the\n"
" background.\n"
" maxlen=arg The maximum length of the rendered text will be\n"
" the specified argument. The default is 300, this\n"
" is used to safeguard against mistakes like\n"
" <gh1></gh>, which would otherwise\n"
" parse the whole document.\n"
" help Display this text\n"
" scroll=width,steps,delay Make a horrible scrolltext\n"
" fadein=blur,steps,delay,initialdelay Make a (somewhat less) horrible fadein\n"
"\n"
"<b>Arguments passed on the the <a> tag (if href is specified):</b>\n "
" target=...\n"
" onClick=...\n"
"</pre>\n",
#endif
0,
1,
});
}
array (string) list_fonts()
{
array fnts;
catch(fnts = get_dir("fonts/32/") - ({".",".."}));
if(!fnts)
{
return ({});
}
return fnts;
|
d47cbf | 1996-12-02 | Per Hedbor | | }
void create()
{
|
8afc81 | 1998-02-04 | Per Hedbor | | defvar("cache_dir", "../gtext_cache", "Cache directory for gtext images",
|
20ca2b | 1998-01-26 | Per Hedbor | | TYPE_DIR,
"The gtext tag saves images when they are calculated in this "
"directory. We currently do not clean this directory.");
|
e5bad2 | 1998-02-10 | Per Hedbor | | defvar("cache_age", 48, "Cache max age",
|
0a76aa | 1998-03-27 | David Hedbor | |
|
e5bad2 | 1998-02-10 | Per Hedbor | | TYPE_INT,
|
0a76aa | 1998-03-27 | David Hedbor | |
|
e5bad2 | 1998-02-10 | Per Hedbor | | "If the images in the cache have not been accessed for this "
"number of hours they are removed.");
|
426799 | 1997-08-23 | Per Hedbor | | defvar("speedy", 0, "Avoid automatic detection of document colors",
TYPE_FLAG|VAR_MORE,
"If this flag is set, the tags 'body', 'tr', 'td', 'font' and 'th' "
" will <b>not</b> be parsed to automatically detect the colors of "
" a document. You will then have to specify all colors in all calls "
" to <gtext>");
|
9b9f70 | 1997-08-12 | Per Hedbor | | defvar("deflen", 300, "Default maximum text-length", TYPE_INT|VAR_MORE,
|
bfc707 | 1997-01-13 | Per Hedbor | | "The module will, per default, not try to render texts "
"longer than this. This is a safeguard for things like "
"<gh1></gh>, which would otherwise parse the"
" whole document. This can be overrided with maxlen=... in the "
"tag.");
|
9b9f70 | 1997-08-12 | Per Hedbor | | defvar("location", "/gtext/", "Mountpoint", TYPE_LOCATION|VAR_MORE,
|
f6d62d | 1997-03-26 | Per Hedbor | | "The URL-prefix for the graphic characters.");
|
d47cbf | 1996-12-02 | Per Hedbor | |
defvar("cols", 16, "Default number of colors per image", TYPE_INT_LIST,
"The default number of colors to use. 16 seems to be enough. "
"The size of the image depends on the number of colors",
({ 1,2,3,4,5,6,7,8,10,16,32,64,128,256 }));
|
8e727d | 1997-03-11 | Per Hedbor | |
|
974b2a | 1997-10-02 | Peter Bortas | | defvar("gif", 0, "Append .gif to all images", TYPE_FLAG|VAR_MORE,
"Append .gif to all images made by gtext. Normally this will "
"only waste bandwidth");
|
0a76aa | 1998-03-27 | David Hedbor | |
#ifdef TYPE_FONT
|
8e727d | 1997-03-11 | Per Hedbor | |
defvar("default_size", 32, 0, TYPE_INT,0,0,1);
defvar("default_font", "urw_itc_avant_garde-demi-r",0,TYPE_STRING,0,0,1);
|
0a76aa | 1998-03-27 | David Hedbor | | #else
defvar("default_size", 32, "Default font size", TYPE_INT_LIST,
"The default size for the font. This is used for the 'base' size, "
"and can be scaled up or down in the tags.",
({ 16, 32, 64 }));
defvar("default_font", "urw_itc_avant_garde-demi-r", "Default font",
TYPE_STRING_LIST,
"The default font. The 'font dir' will be prepended to the path",
list_fonts());
#endif
|
d47cbf | 1996-12-02 | Per Hedbor | | }
string query_location() { return query("location"); }
|
e5bad2 | 1998-02-10 | Per Hedbor | | object load_font(string name, string justification, int xs, int ys)
|
d47cbf | 1996-12-02 | Per Hedbor | | {
|
e5bad2 | 1998-02-10 | Per Hedbor | | object fnt = Image.font();
|
38dca8 | 1996-12-10 | Per Hedbor | |
|
52a7d2 | 1997-09-01 | Per Hedbor | | if ((!name)||(name == ""))
{
|
9e0c5f | 1997-09-01 | Per Hedbor | | return get_font("default",32,0,0,lower_case(justification||"left"),
|
52a7d2 | 1997-09-01 | Per Hedbor | | (float)xs, (float)ys);
|
b677b7 | 1997-02-22 | Henrik Grubbström (Grubba) | | } else if(sscanf(name, "%*s/%*s") != 2) {
|
38dca8 | 1996-12-10 | Per Hedbor | | name=QUERY(default_size)+"/"+name;
|
b677b7 | 1997-02-22 | Henrik Grubbström (Grubba) | | }
|
d47cbf | 1996-12-02 | Per Hedbor | |
name = "fonts/" + name;
|
38dca8 | 1996-12-10 | Per Hedbor | | if(!fnt->load( name ))
{
|
52a7d2 | 1997-09-01 | Per Hedbor | | report_debug("Failed to load the compatibility font "+name+
", using the default font.\n");
|
9e0c5f | 1997-09-01 | Per Hedbor | | return get_font("default",32,0,0,lower_case(justification||"left"),
|
52a7d2 | 1997-09-01 | Per Hedbor | | (float)xs, (float)ys);
|
38dca8 | 1996-12-10 | Per Hedbor | | }
|
52a7d2 | 1997-09-01 | Per Hedbor | | catch
{
|
9d16ce | 1997-03-01 | Per Hedbor | | if(justification=="right") fnt->right();
if(justification=="center") fnt->center();
if(xs)fnt->set_x_spacing((100.0+(float)xs)/100.0);
if(ys)fnt->set_y_spacing((100.0+(float)ys)/100.0);
};
|
d47cbf | 1996-12-02 | Per Hedbor | | return fnt;
}
static private mapping (int:mapping(string:mixed)) cached_args = ([ ]);
|
0a76aa | 1998-03-27 | David Hedbor | | #define MAX(a,b) ((a)<(b)?(b):(a))
#if !efun(make_matrix)
static private mapping (int:array(array(int))) matrixes = ([]);
array (array(int)) make_matrix(int size)
{
if(matrixes[size]) return matrixes[size];
array res;
int i;
int j;
res = Array.map(allocate(size), lambda(int s, int size){
return allocate(size); }, size);
for(i=0; i<size; i++)
for(j=0; j<size; j++)
res[i][j] = (int)MAX((float)size/2.0-sqrt((size/2-i)*(size/2-i) + (size/2-j)*(size/2-j)),0);
return matrixes[size] = res;
}
#endif
string fix_relative(string file, object id)
{
if(file != "" && file[0] == '/') return file;
file = combine_path(dirname(id->not_query) + "/", file);
return file;
}
object last_image;
string last_image_name;
object load_image(string f,object id)
{
if(last_image_name == f && last_image) return last_image->copy();
string data;
object file;
object img
#if !constant(Image.PNM)
=Image.image()
#endif
;
if(!(data=roxen->try_get_file(fix_relative(f, id),id)))
if(!(file=open(f,"r")) || (!(data=file->read())))
return 0;
#if constant(Image.PNM.decode)
catch { if(!img) img = Image.PNM.decode( data ); };
#endif
#if constant(Image.GIF.decode)
catch { if(!img) img = Image.GIF.decode( data ); };
#endif
#if constant(Image.JPEG.decode)
catch { if(!img) img = Image.JPEG.decode( data ); };
#endif
#if !constant(Image.PNM.decode)
if (catch { if(!img->frompnm(data)) return 0;}) return 0;
#endif
if(!img) return 0;
last_image = img; last_image_name = f;
return img->copy();
}
object blur(object img, int amnt)
{
img->setcolor(0,0,0);
img = img->autocrop(amnt, 0,0,0,0, 0,0,0);
for(int i=0; i<amnt; i++)
img = img->apply_matrix( make_matrix((int)sqrt(img->ysize()+20)));
return img;
}
object outline(object on, object with,
array (int) color, int radie, int x, int y)
{
int steps=10;
for(int j=0; j<=steps; j++)
on->paste_alpha_color(with, @color,
(int)(0.5+x-(sin((float)j/steps*3.145*2)*radie)),
(int)(0.5+y-(cos((float)j/steps*3.145*2)*radie)));
return on;
}
array white = ({ 255,255,255 });
array lgrey = ({ 200,200,200 });
array grey = ({ 128,128,128 });
array black = ({ 0,0,0 });
array wwwb = ({ lgrey,lgrey,grey,black });
object bevel(object in, int width, int|void invert)
{
int h=in->ysize();
int w=in->xsize();
object corner = Image.image(width+1,width+1);
object corner2 = Image.image(width+1,width+1);
object pix = Image.image(1,1);
for(int i=-1; i<=width; i++) {
corner->line(i,width-i,i,-1, @white);
corner2->setpixel(width-i, width-i, @white);
in->paste_alpha(pix, 185, w - width + i+1, h - width + i+1);
}
if(!invert)
{
in->paste_alpha(Image.image(width,h-width*2,@white), 160, 0, width);
in->paste_alpha(Image.image(width,h-width*2,@black), 128, in->xsize()-width, width);
in->paste_alpha(Image.image(w-width,width,@white), 160, 0, 0);
in->paste_alpha(Image.image(w-width,width,@black), 128, width, in->ysize()-width);
} else {
corner=corner->invert();
corner2=corner2->invert();
in->paste_alpha(Image.image(width,h-width*2,@black), 160, 0, width);
in->paste_alpha(Image.image(width,h-width*2,@white), 128, in->xsize()-width, width);
in->paste_alpha(Image.image(w-width,width,@black), 160, 0, 0);
in->paste_alpha(Image.image(w-width,width,@white), 128, width, in->ysize()-width);
}
in->paste_mask(corner, corner->color(95,95,95), in->xsize()-width,-1);
in->paste_mask(corner, corner->invert()->color(128,128,128),
in->xsize()-width,-1);
in->paste_mask(corner, corner->color(95,95,95), -1, in->ysize()-width);
in->paste_mask(corner, corner->invert()->color(128,128,128),
-1, in->ysize()-width);
corner=0;
in->paste_mask(corner2, corner2->color(70,70,70), -1, -1);
corner2 = pix = 0;
return in;
}
object make_text_image(mapping args, object font, string text,object id)
{
object text_alpha=font->write(@(text/"\n"));
int xoffset=0, yoffset=0;
if(!text_alpha->xsize() || !text_alpha->ysize())
text_alpha = Image.image(10,10, 0,0,0);
if(int op=((((int)args->opaque)*255)/100))
text_alpha=text_alpha->color(op,op,op);
int txsize=text_alpha->xsize();
int tysize=text_alpha->ysize();
int xsize=txsize;
int ysize=tysize;
if(args->bevel)
{
xoffset += (int)args->bevel;
yoffset += (int)args->bevel;
xsize += ((int)args->bevel)*2;
ysize += ((int)args->bevel)*2;
}
if(args->spacing)
{
xoffset += (int)args->spacing;
yoffset += (int)args->spacing;
xsize += ((int)args->spacing)*2;
ysize += ((int)args->spacing)*2;
}
if(args->yspacing)
{
yoffset += (int)args->yspacing;
ysize += ((int)args->yspacing)*2;
}
if(args->shadow)
{
xsize+=((int)(args->shadow/",")[-1])+2;
ysize+=((int)(args->shadow/",")[-1])+2;
}
if(args->bshadow)
{
xsize+=(int)args->bshadow+3;
ysize+=(int)args->bshadow+3;
}
if(args->fadein)
{
xsize+=6;
ysize+=6;
xoffset+=3;
yoffset+=3;
}
if(args->move)
{
int dx,dy;
sscanf(args->move, "%d,%d", dx, dy);
xoffset += dx;
yoffset += dy;
}
if(args->ghost)
{
int howmuch=(int)args->ghost;
xsize+=howmuch*2+10;
xoffset += 3;
ysize+=howmuch*2+10;
}
if(args->xspacing)
{
xoffset += (int)args->xspacing;
xsize += ((int)args->xspacing)*2;
}
if(args->border)
{
xoffset += (int)args->border;
yoffset += (int)args->border;
xsize += ((int)args->border)*2;
ysize += ((int)args->border)*2;
}
array (int) bgcolor = parse_color(args->bg);
array (int) fgcolor = parse_color(args->fg);
object background,foreground;
if(args->texture) {
foreground = load_image(args->texture,id);
if(args->tile)
{
object b2 = Image.image(xsize,ysize);
for(int x=0; x<xsize; x+=foreground->xsize())
for(int y=0; y<ysize; y+=foreground->ysize())
b2->paste(foreground, x, y);
foreground = b2;
} else if(args->mirrortile) {
object b2 = Image.image(xsize,ysize);
object b3 = Image.image(foreground->xsize()*2,foreground->ysize()*2);
b3->paste(foreground,0,0);
b3->paste(foreground->mirrorx(),foreground->xsize(),0);
b3->paste(foreground->mirrory(),0,foreground->ysize());
b3->paste(foreground->mirrorx()->mirrory(),foreground->xsize(),
foreground->ysize());
foreground = b3;
for(int x=0; x<xsize; x+=foreground->xsize())
{
for(int y=0; y<ysize; y+=foreground->ysize())
if(y%2)
b2->paste(foreground->mirrory(), x, y);
else
b2->paste(foreground, x, y);
foreground = foreground->mirrorx();
}
foreground = b2;
}
}
if((args->background) && (background = load_image(args->background, id))) {
background = background;
if((float)args->scale >= 0.1)
background = background->scale(1.0/(float)args->scale);
if(args->tile)
{
object b2 = Image.image(xsize,ysize);
for(int x=0; x<xsize; x+=background->xsize())
for(int y=0; y<ysize; y+=background->ysize())
b2->paste(background, x, y);
background = b2;
} else if(args->mirrortile) {
object b2 = Image.image(xsize,ysize);
object b3 = Image.image(background->xsize()*2,background->ysize()*2);
b3->paste(background,0,0);
b3->paste(background->mirrorx(),background->xsize(),0);
b3->paste(background->mirrory(),0,background->ysize());
b3->paste(background->mirrorx()->mirrory(),background->xsize(),
background->ysize());
background = b3;
for(int x=0; x<xsize; x+=background->xsize())
{
for(int y=0; y<ysize; y+=background->ysize())
if(y%2)
b2->paste(background->mirrory(), x, y);
else
b2->paste(background, x, y);
background = background->mirrorx();
}
background = b2;
}
xsize = background->xsize();
ysize = background->ysize();
switch(lower_case(args->talign||"left")) {
case "center":
xoffset = (xsize/2 - txsize/2);
yoffset = (ysize/2 - tysize/2);
break;
case "right":
xoffset = (xsize - txsize);
break;
case "left":
}
} else
background = Image.image(xsize, ysize, @bgcolor);
if(args->border)
{
int b = (int)args->border;
background->setcolor(@parse_color((args->border/",")[-1]));
for(--b;b>=0;b--)
{
background->line(b,b, xsize-b-1, b);
background->line(b,ysize-b-1, xsize-b-1, ysize-b-1);
background->line(b,b, b, ysize-b-1);
background->line(xsize-b-1,b, xsize-b-1, ysize-b-1);
}
}
background->setcolor(@bgcolor);
if(args->size || args->xsize || args->ysize)
{
int xs=background->xsize(), ys=background->ysize();
if(args->size) { xs=(int)args->size; ys=(int)(args->size/",")[-1]; }
if(args->xsize) xs=(int)args->xsize;
if(args->ysize) ys=(int)args->ysize;
background = background->copy(0,0,xs,ys);
}
if(args->turbulence)
{
array (float|array(int)) arg=({});
foreach((args->turbulence/";"), string s)
{
array q= s/",";
if(sizeof(q)<2) args+=({ ((float)s)||0.2, ({ 255,255,255 }) });
arg+=({ ((float)q[0])||0.2, parse_color(q[1]) });
}
background=background->turbulence(arg);
}
if(args->bevel)
background = bevel(background,(int)args->bevel,!!args->pressed);
if(args->textbox)
{
int alpha,border;
string bg;
sscanf(args->textbox, "%d,%s", alpha, bg);
sscanf(bg,"%s,%d", bg,border);
background->paste_alpha(Image.image(txsize+border*2,tysize+border*2,
@parse_color(bg)),
255-(alpha*255/100),xoffset-border,yoffset-border);
}
if(args->ghost)
{
int sdist = (int)args->ghost;
int bl=(int)(args->ghost/",")[1];
array(int)clr=parse_color((args->ghost/",")[-1]);
int j;
object ta = text_alpha->copy();
for (j=0;j<bl;j++)
ta=ta->apply_matrix(({
({6,7,7,7,6}),({7,8,8,8,7}),({7,8,8,8,7}),({7,8,8,8,7}),({6,7,7,7,6})
}));
background->paste_alpha_color(ta,@clr,xoffset+sdist,yoffset+sdist);
fgcolor=bgcolor;
}
if(args->shadow)
{
int sd = ((int)args->shadow+10)*2;
int sdist = ((int)(args->shadow/",")[-1])+2;
object ta = text_alpha->copy();
ta = ta->color(256-sd,256-sd,256-sd);
array sc = parse_color(args->scolor||"black");
background->paste_alpha_color(ta,sc[0],sc[1],sc[2],
xoffset+sdist,yoffset+sdist);
}
#define MIN(x,y) ((x)<(y)?(x):(y))
if(args->bshadow)
{
int sdist = (int)(args->bshadow)+1;
int xs,ys;
xs = text_alpha->xsize()+sdist*2+4;
ys = text_alpha->ysize()+sdist*2+4;
object ta = Image.image(xs+sdist*2,ys+sdist*2);
array sc = parse_color(args->scolor||"black");
ta->paste_alpha_color(text_alpha,255,255,255,sdist,sdist);
ta = blur(ta, MIN((sdist/2),1))->color(256,256,256);
background->paste_alpha_color(ta,sc[0],sc[1],sc[2],
xoffset+sdist,yoffset+sdist);
}
if(args->glow)
{
int amnt = (int)(args->glow/",")[-1]+2;
array (int) blurc = parse_color((args->glow/",")[0]);
background->paste_alpha_color(blur(text_alpha, amnt),@blurc,
xoffset-amnt, yoffset-amnt);
}
if(args->chisel)
foreground=text_alpha->apply_matrix(({ ({8,1,0}),
({1,0,-1}),
({0,-1,-8}) }),
128,128,128, 15 )
->color(@fgcolor);
if(!foreground) foreground=Image.image(txsize, tysize, @fgcolor);
if(args->textscale)
{
string c1="black",c2="black",c3="black",c4="black";
sscanf(args->textscale, "%s,%s,%s,%s", c1, c2, c3, c4);
foreground->tuned_box(0,0, txsize,tysize,
({parse_color(c1),parse_color(c2),parse_color(c3),
parse_color(c4)}));
}
if(args->outline)
outline(background, text_alpha, parse_color((args->outline/",")[0]),
((int)(args->outline/",")[-1])+1, xoffset, yoffset);
background->paste_mask(foreground, text_alpha, xoffset, yoffset);
if(args->scale)
if((float)args->scale <= 2.0)
background = background->scale((float)args->scale);
foreground = text_alpha = 0;
if(args->rotate)
{
string c;
if(sscanf(args->rotate, "%*d,%s", c)==2)
background->setcolor(@parse_color(c));
else
background->setcolor(@bgcolor);
background = background->rotate((float)args->rotate);
}
if(args->crop) background = background->autocrop();
return background;
}
|
2468b2 | 1997-07-06 | Henrik Grubbström (Grubba) | | string base_key;
|
fe21a7 | 1997-08-25 | Per Hedbor | | object mc;
|
2468b2 | 1997-07-06 | Henrik Grubbström (Grubba) | |
|
e5bad2 | 1998-02-10 | Per Hedbor | |
array to_clean = ({});
void clean_cache_dir()
{
if(!sizeof(to_clean))
to_clean = get_dir(query("cache_dir"));
if(!sizeof(to_clean)) return;
int md = file_stat(query("cache_dir")+to_clean[0])[ST_ATIME];
if((time() - md) > (query("cache_age")*3600))
rm(query("cache_dir")+to_clean[0]);
to_clean = to_clean[1..];
if(sizeof(to_clean))
call_out(clean_cache_dir, 0.1);
else
call_out(clean_cache_dir, 3600);
}
|
08df12 | 1997-08-19 | Henrik Grubbström (Grubba) | | void start(int|void val, object|void conf)
|
2468b2 | 1997-07-06 | Henrik Grubbström (Grubba) | | {
|
610bf9 | 1998-03-07 | Fredrik Noring | | loaded = 1;
|
fe21a7 | 1997-08-25 | Per Hedbor | | if(conf)
{
|
eb0b9a | 1998-03-10 | Henrik Grubbström (Grubba) | | mkdirhier( query( "cache_dir" )+"/.foo" );
|
c79b26 | 1998-02-05 | Johan Schön | | #ifndef __NT__
|
8afc81 | 1998-02-04 | Per Hedbor | | #if efun(chmod)
|
4c3541 | 1998-03-10 | Henrik Grubbström (Grubba) | |
catch { chmod( query( "cache_dir" ), 0777 ); };
|
c79b26 | 1998-02-05 | Johan Schön | | #endif
|
8afc81 | 1998-02-04 | Per Hedbor | | #endif
|
e5bad2 | 1998-02-10 | Per Hedbor | | remove_call_out(clean_cache_dir);
call_out(clean_cache_dir, 10);
|
fe21a7 | 1997-08-25 | Per Hedbor | | mc = conf;
base_key = "gtext:"+(conf?conf->name:roxen->current_configuration->name);
}
|
2468b2 | 1997-07-06 | Henrik Grubbström (Grubba) | | }
|
c3655b | 1997-01-27 | Per Hedbor | |
|
0a76aa | 1998-03-27 | David Hedbor | | #ifdef QUANT_DEBUG
void print_colors(array from)
{
#if efun(color_name)
for(int i=0; i<sizeof(from); i++)
perror("%d: %s\n", i, color_name(from[i]));
#endif
}
#endif
|
68e030 | 1997-08-19 | Per Hedbor | | int number=0;
|
0a76aa | 1998-03-27 | David Hedbor | |
|
68e030 | 1997-08-19 | Per Hedbor | | mapping find_cached_args(int num);
|
d24995 | 1996-12-10 | Per Hedbor | |
|
20ca2b | 1998-01-26 | Per Hedbor | |
#if !constant(iso88591)
constant iso88591
=([ " ": " ", "¡": "¡", "¢": "¢", "£": "£",
"¤": "¤", "¥": "¥", "¦": "¦", "§": "§",
"¨": "¨", "©": "©", "ª": "ª", "«": "«",
"¬": "¬", "­": "", "®": "®", "¯": "¯",
"°": "°", "±": "±", "²": "²", "³": "³",
"´": "´", "µ": "µ", "¶": "¶", "·": "·",
"¸": "¸", "¹": "¹", "º": "º", "»": "»",
"¼": "¼", "½": "½", "¾": "¾", "¿": "¿",
"À": "À", "Á": "Á", "Â": "Â", "Ã": "Ã",
"Ä": "Ä", "Å": "Å", "Æ": "Æ", "Ç": "Ç",
"È": "È", "É": "É", "Ê": "Ê", "Ë": "Ë",
"Ì": "Ì", "Í": "Í", "Î": "Î", "Ï": "Ï",
"Ð": "Ð", "Ñ": "Ñ", "Ò": "Ò", "Ó": "Ó",
"Ô": "Ô", "Õ": "Õ", "Ö": "Ö", "×": "×",
"Ø": "Ø", "Ù": "Ù", "Ú": "Ú", "Û": "Û",
"Ü": "Ü", "Ý": "Ý", "Þ": "Þ", "ß": "ß",
"à": "à", "á": "á", "â": "â", "ã": "ã",
"ä": "ä", "å": "å", "æ": "æ", "ç": "ç",
"è": "è", "é": "é", "ê": "ê", "ë": "ë",
"ì": "ì", "í": "í", "î": "î", "ï": "ï",
"ð": "ð", "ñ": "ñ", "ò": "ò", "ó": "ó",
"ô": "ô", "õ": "õ", "ö": "ö", "÷": "÷",
"ø": "ø", "ù": "ù", "ú": "ú", "û": "û",
"ü": "ü", "ý": "ý", "þ": "þ", "ÿ": "ÿ",
]);
#endif
|
b1ab8d | 1997-12-23 | Per Hedbor | | constant nbsp = iso88591[" "];
|
0a76aa | 1998-03-27 | David Hedbor | |
|
b1ab8d | 1997-12-23 | Per Hedbor | | constant replace_from = indices( iso88591 )+ ({"&ss;","<",">","&",});
constant replace_to = values( iso88591 ) + ({ nbsp, "<", ">", "&", });
#define simplify_text( from ) replace(from,replace_from,replace_to)
|
06583f | 1997-09-03 | Per Hedbor | |
|
8afc81 | 1998-02-04 | Per Hedbor | | #define FNAME(a,b) (query("cache_dir")+sprintf("%x",hash(reverse(a[6..])))+sprintf("%x",hash(b))+sprintf("%x",hash(reverse(b-" ")))+sprintf("%x",hash(b[12..])))
|
20ca2b | 1998-01-26 | Per Hedbor | |
array get_cache_file(string a, string b)
{
|
8afc81 | 1998-02-04 | Per Hedbor | | object fd = open(FNAME(a,b), "r");
|
20ca2b | 1998-01-26 | Per Hedbor | | if(!fd) return 0;
array r = decode_value(fd->read());
if(r[0]==a && r[1]==b) return r[2];
}
void store_cache_file(string a, string b, array data)
{
|
8afc81 | 1998-02-04 | Per Hedbor | | object fd = open(FNAME(a,b), "wct");
|
c79b26 | 1998-02-05 | Johan Schön | | #ifndef __NT__
|
8afc81 | 1998-02-04 | Per Hedbor | | #if efun(chmod)
|
4c3541 | 1998-03-10 | Henrik Grubbström (Grubba) | |
catch { chmod( FNAME(a,b), 0666 ); };
|
c79b26 | 1998-02-05 | Johan Schön | | #endif
|
8afc81 | 1998-02-04 | Per Hedbor | | #endif
|
20ca2b | 1998-01-26 | Per Hedbor | | if(!fd) return;
fd->write(encode_value(({a,b,data})));
destruct(fd);
}
|
8afc81 | 1998-02-04 | Per Hedbor | | array(int)|string write_text(int _args, string text, int size, object id)
|
d47cbf | 1996-12-02 | Per Hedbor | | {
|
68e030 | 1997-08-19 | Per Hedbor | | string key = base_key+_args;
|
7faa95 | 1997-09-01 | Per Hedbor | | array err;
|
420fd9 | 1998-02-27 | Per Hedbor | | string orig_text = text;
mixed data;
mapping args = find_cached_args(_args);
|
86352a | 1998-03-01 | Per Hedbor | |
if(!args)
{
throw( ({ "Internal error in gtext: Got request for non-existant gtext class", backtrace() }) );
}
|
420fd9 | 1998-02-27 | Per Hedbor | | if(data = cache_lookup(key, text))
{
if(args->nocache)
cache_remove(key, text);
if(size) return data[1];
return data[0];
} else if(data = get_cache_file( key, text )) {
cache_set(key, text, data);
if(size) return data[1];
|
86352a | 1998-03-01 | Per Hedbor | | return data[0];
|
420fd9 | 1998-02-27 | Per Hedbor | | }
|
86352a | 1998-03-01 | Per Hedbor | |
|
0a76aa | 1998-03-27 | David Hedbor | | err = catch
|
ba73a2 | 1996-12-10 | Per Hedbor | | {
|
0a76aa | 1998-03-27 | David Hedbor | | object img;
if(!args)
{
args=(["fg":"black","bg":"white","notrans":"1"]);
text="Please reload this page";
}
|
ce9d8d | 1997-09-06 | Per Hedbor | |
|
0a76aa | 1998-03-27 | David Hedbor | | if(!args->verbatim)
|
06583f | 1997-09-03 | Per Hedbor | | {
|
0a76aa | 1998-03-27 | David Hedbor | | text = replace(text, nbsp, " ");
text = simplify_text( text );
string res="",nspace="",cspace="";
foreach(text/"\n", string line)
|
06583f | 1997-09-03 | Per Hedbor | | {
|
0a76aa | 1998-03-27 | David Hedbor | | cspace="";nspace="";
foreach(line/" ", string word)
{
string nonum;
if(strlen(word) &&
(nonum = replace(word,
({"1","2","3","4","5","6","7","8","9","0","."}),
({"","","","","","","","","","",""}))) == "") {
cspace=nbsp+nbsp;
if((strlen(word)-strlen(nonum)<strlen(word)/2) &&
(upper_case(word) == word)) {
word=((word/"")*nbsp);
}
} else if(cspace!="") {
cspace=" ";
|
4b6447 | 1997-09-04 | Henrik Grubbström (Grubba) | | }
|
0a76aa | 1998-03-27 | David Hedbor | | res+=(nspace==cspace?nspace:" ")+word;
|
1cd5eb | 1998-03-20 | Per Hedbor | |
|
0a76aa | 1998-03-27 | David Hedbor | | if(cspace!="") nspace=cspace;
else nspace=" ";
}
res+="\n";
|
06583f | 1997-09-03 | Per Hedbor | | }
|
0a76aa | 1998-03-27 | David Hedbor | | text = replace(res[..strlen(res)-2], ({ "!","?",": " }), ({ nbsp+"!",nbsp+"?",nbsp+": " }));
text = replace(replace(replace(text,({". ",". "+nbsp}), ({"\000","\001"})),".","."+nbsp+nbsp),({"\000","\001"}),({". ","."+nbsp}));
|
06583f | 1997-09-03 | Per Hedbor | | }
|
20ca2b | 1998-01-26 | Per Hedbor | |
|
420fd9 | 1998-02-27 | Per Hedbor | |
|
b551e1 | 1996-12-10 | Per Hedbor | |
|
0a76aa | 1998-03-27 | David Hedbor | | #if efun(get_font)
if(args->nfont)
{
int bold, italic;
if(args->bold) bold=1;
if(args->light) bold=-1;
if(args->italic) italic=1;
if(args->black) bold=2;
data = get_font(args->nfont,(int)args->font_size||32,bold,italic,
lower_case(args->talign||"left"),
(float)(int)args->xpad, (float)(int)args->ypad);
}
else if(args->font)
{
#endif
string fkey = args->font+"/"+args->talign+"/"+args->xpad+"/"+args->ypad;
data = load_font(args->font, lower_case(args->talign||"left"),
(int)args->xpad,(int)args->ypad);
#if efun(get_font)
} else {
int bold, italic;
if(args->bold) bold=1;
if(args->light) bold=-1;
if(args->italic) italic=1;
if(args->black) bold=2;
data = get_font(roxen->QUERY(default_font),32,bold,italic,
lower_case(args->talign||"left"),
(float)(int)args->xpad, (float)(int)args->ypad);
}
#endif
|
dbcf85 | 1997-09-05 | Henrik Grubbström (Grubba) | |
|
0a76aa | 1998-03-27 | David Hedbor | | if (!data) {
roxen_perror("gtext: No font!\n");
return(0);
}
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
0a76aa | 1998-03-27 | David Hedbor | |
img = make_text_image(args,data,text,id);
if(!img) {
return 0;
}
|
1cd5eb | 1998-03-20 | Per Hedbor | |
|
0a76aa | 1998-03-27 | David Hedbor | | int q = (int)args->quant||(args->background||args->texture?250:QUERY(cols));
|
7faa95 | 1997-09-01 | Per Hedbor | | if(q>255) q=255;
if(q<3) q=3;
|
c3655b | 1997-01-27 | Per Hedbor | |
|
0a76aa | 1998-03-27 | David Hedbor | |
if(!args->fs)
|
7faa95 | 1997-09-01 | Per Hedbor | | {
|
0a76aa | 1998-03-27 | David Hedbor | | #ifdef QUANT_DEBUG
print_colors(img->select_colors(q-1)+({parse_color(args->bg)}));
#endif
img = img->map_closest(img->select_colors(q-1)+({parse_color(args->bg)}));
}
if(!args->scroll)
if(args->fadein)
|
e8c29c | 1997-09-12 | Johan Schön | | {
|
0a76aa | 1998-03-27 | David Hedbor | | int amount=2, steps=10, delay=10, initialdelay=0, ox;
string res = img->gif_begin();
sscanf(args->fadein, "%d,%d,%d,%d", amount, steps, delay, initialdelay);
if(initialdelay)
{
object foo=Image.image(img->xsize(),img->ysize(),@parse_color(args->bg));
res += foo->gif_add(0,0,initialdelay);
}
for(int i = 0; i<(steps-1); i++)
{
object foo=img->clone();
foo = foo->apply_matrix(make_matrix(( (int)((steps-i)*amount))));
res += foo->gif_add(0,0,delay);
}
res+= img->gif_add(0,0,delay);
res += img->gif_end();
data = ({ res, ({ img->xsize(), img->ysize() }) });
|
1cd5eb | 1998-03-20 | Per Hedbor | | }
else
|
0a76aa | 1998-03-27 | David Hedbor | | {
if(args->fs)
data=({ img->togif_fs(@(args->notrans?({}):parse_color(args->bg))),
({img->xsize(),img->ysize()})});
else
data=({ img->togif(@(args->notrans?({}):parse_color(args->bg))),
({img->xsize(),img->ysize()})});
img=0;
} else {
int len=100, steps=30, delay=5, ox;
string res = img->gif_begin() + img->gif_netscape_loop();
sscanf(args->scroll, "%d,%d,%d", len, steps, delay);
img=img->copy(0,0,(ox=img->xsize())+len-1,img->ysize()-1);
img->paste(img, ox, 0);
for(int i = 0; i<steps; i++)
{
int xp = i*ox/steps;
res += img->copy(xp, 0, xp+len, img->ysize(),
@parse_color(args->bg))->gif_add(0,0,delay);
}
res += img->gif_end();
data = ({ res, ({ len, img->ysize() }) });
|
1cd5eb | 1998-03-20 | Per Hedbor | | }
|
e8c29c | 1997-09-12 | Johan Schön | |
|
0a76aa | 1998-03-27 | David Hedbor | |
if(!args->nocache)
store_cache_file( key, orig_text, data );
cache_set(key, orig_text, data);
if(size) return data[1];
return data[0];
};
cache_set(key, text, 0);
throw(err);
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
f3a6b1 | 1998-02-22 | David Hedbor | | mapping find_file(string f, object rid);
void restore_cached_args();
|
41d0f9 | 1998-02-20 | Per Hedbor | | array stat_file(string f, object rid)
{
if(f[-1]=='/') f = f[..strlen(f)-2];
if(sizeof(f/"/")==1) return ({ 509,-3,time(),time(),time(),0,0 });
int len=4711;
catch(len= strlen(find_file(f,rid)->data));
return ({ 33204,len,time(),time(),time(),0,0 });
}
array find_dir(string f, object rid)
{
if(!strlen(f))
{
restore_cached_args();
return Array.map(indices(cached_args), lambda(mixed m){return (string)m;});
}
return ({"Example"});
}
|
d47cbf | 1996-12-02 | Per Hedbor | |
mapping find_file(string f, object rid)
{
|
f6d62d | 1997-03-26 | Per Hedbor | | int id;
|
41d0f9 | 1998-02-20 | Per Hedbor | | if(rid->method != "GET") return 0;
|
d47cbf | 1996-12-02 | Per Hedbor | | sscanf(f,"%d/%s", id, f);
|
974b2a | 1997-10-02 | Peter Bortas | |
if( query("gif") )
f = f[..strlen(f)-5];
|
b8e11a | 1997-09-26 | Henrik Grubbström (Grubba) | | if (sizeof(f)) {
object g;
|
0a76aa | 1998-03-27 | David Hedbor | | if (f[0] == '$') {
|
1a6758 | 1997-09-26 | Henrik Grubbström (Grubba) | | f = f[1..];
|
b8e11a | 1997-09-26 | Henrik Grubbström (Grubba) | | } else if (sizeof(indices(g=Gz))) {
catch(f = g->inflate()->inflate(MIME.decode_base64(f)));
} else if (sizeof(f)) {
|
1a6758 | 1997-09-26 | Henrik Grubbström (Grubba) | | catch(f = MIME.decode_base64(f));
}
|
701977 | 1997-09-24 | Henrik Grubbström (Grubba) | | }
|
1a6758 | 1997-09-26 | Henrik Grubbström (Grubba) | |
|
f6d62d | 1997-03-26 | Per Hedbor | | return http_string_answer(write_text(id,f,0,rid), "image/gif");
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
ce9d8d | 1997-09-06 | Per Hedbor | | mapping url_cache = ([]);
|
d47cbf | 1996-12-02 | Per Hedbor | | string quote(string in)
{
|
701977 | 1997-09-24 | Henrik Grubbström (Grubba) | | string option;
|
1a6758 | 1997-09-26 | Henrik Grubbström (Grubba) | | if(option = url_cache[in]) return option;
object g;
|
701977 | 1997-09-24 | Henrik Grubbström (Grubba) | | if (sizeof(indices(g=Gz))) {
option=MIME.encode_base64(g->deflate()->deflate(in));
} else {
option=MIME.encode_base64(in);
}
|
1a6758 | 1997-09-26 | Henrik Grubbström (Grubba) | | if(search(in,"/")!=-1) return url_cache[in]=option;
|
eb6392 | 1997-09-26 | Henrik Grubbström (Grubba) | | string res="$";
|
d47cbf | 1996-12-02 | Per Hedbor | | for(int i=0; i<strlen(in); i++)
switch(in[i])
{
case 'a'..'z':
case 'A'..'Z':
case '0'..'9':
|
06583f | 1997-09-03 | Per Hedbor | | case '.': case ',': case '!':
|
d47cbf | 1996-12-02 | Per Hedbor | | res += in[i..i];
break;
default:
res += sprintf("%%%02x", in[i]);
}
|
ce9d8d | 1997-09-06 | Per Hedbor | | if(strlen(res) < strlen(option)) return url_cache[in]=res;
return url_cache[in]=option;
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
8afc81 | 1998-02-04 | Per Hedbor | | #define ARGHASH query("cache_dir")+"ARGS_"+hash(mc->name)
|
68e030 | 1997-08-19 | Per Hedbor | | int args_restored = 0;
void restore_cached_args()
{
args_restored = 1;
|
8afc81 | 1998-02-04 | Per Hedbor | | object o = open(ARGHASH, "r");
|
68e030 | 1997-08-19 | Per Hedbor | | if(o)
{
string data = o->read();
catch {
|
d7b087 | 1997-08-31 | Per Hedbor | | object q;
if(sizeof(indices(q=Gz)))
data=q->inflate()->inflate(data);
|
68e030 | 1997-08-19 | Per Hedbor | | };
catch {
cached_args |= decode_value(data);
};
}
|
4f5702 | 1997-09-03 | Henrik Grubbström (Grubba) | | if (cached_args && sizeof(cached_args)) {
|
06583f | 1997-09-03 | Per Hedbor | | number = sort(indices(cached_args))[-1]+1;
|
4f5702 | 1997-09-03 | Henrik Grubbström (Grubba) | | } else {
cached_args = ([]);
number = 0;
}
|
68e030 | 1997-08-19 | Per Hedbor | | }
void save_cached_args()
{
|
f7d981 | 1997-09-12 | Per Hedbor | | int on;
on = number;
|
68e030 | 1997-08-19 | Per Hedbor | | restore_cached_args();
|
f7d981 | 1997-09-12 | Per Hedbor | | if(on > number) number=on;
|
8afc81 | 1998-02-04 | Per Hedbor | | object o = open(ARGHASH, "wct");
|
c79b26 | 1998-02-05 | Johan Schön | | #ifndef __NT__
|
8afc81 | 1998-02-04 | Per Hedbor | | #if efun(chmod)
|
4c3541 | 1998-03-10 | Henrik Grubbström (Grubba) | |
catch { chmod( ARGHASH, 0666 ); };
|
c79b26 | 1998-02-05 | Johan Schön | | #endif
|
8afc81 | 1998-02-04 | Per Hedbor | | #endif
|
68e030 | 1997-08-19 | Per Hedbor | | string data=encode_value(cached_args);
catch {
|
d7b087 | 1997-08-31 | Per Hedbor | | object q;
if(sizeof(indices(q=Gz)))
data=q->deflate()->deflate(data);
|
68e030 | 1997-08-19 | Per Hedbor | | };
o->write(data);
}
mapping find_cached_args(int num)
{
if(!args_restored) restore_cached_args();
if(cached_args[num]) return cached_args[num];
restore_cached_args();
if(cached_args[num]) return cached_args[num];
return 0;
}
|
d47cbf | 1996-12-02 | Per Hedbor | |
int find_or_insert(mapping find)
{
|
f1be80 | 1998-02-22 | Per Hedbor | | mapping f2 = copy_value(find);
foreach(glob("magic_*", indices(f2)), string q) m_delete(f2,q);
|
8840de | 1998-02-27 | Per Hedbor | | if(!args_restored) restore_cached_args();
|
d47cbf | 1996-12-02 | Per Hedbor | | array a = indices(cached_args);
array b = values(cached_args);
int i;
|
f1be80 | 1998-02-22 | Per Hedbor | |
|
df8d71 | 1998-02-27 | Per Hedbor | | for(i=0; i<sizeof(a); i++) if(equal(f2, b[i])) return a[i];
restore_cached_args();
for(i=0; i<sizeof(a); i++) if(equal(f2, b[i])) return a[i];
|
d47cbf | 1996-12-02 | Per Hedbor | | cached_args[number]=find;
|
68e030 | 1997-08-19 | Per Hedbor | | remove_call_out(save_cached_args);
call_out(save_cached_args, 10);
|
d47cbf | 1996-12-02 | Per Hedbor | | return number++;
}
string magic_javascript_header(object id)
{
|
273a9a | 1997-10-17 | Johan Schön | | if(!id->supports->netscape_javascript || !id->supports->images) return "";
|
d47cbf | 1996-12-02 | Per Hedbor | | return
|
094371 | 1997-02-25 | Per Hedbor | | ("\n<script>\n"
|
e8790b | 1998-02-19 | Per Hedbor | | "function i(ri,hi,txt)\n"
|
d47cbf | 1996-12-02 | Per Hedbor | | "{\n"
|
094371 | 1997-02-25 | Per Hedbor | | " document.images[ri].src = hi.src;\n"
" setTimeout(\"top.window.status = '\"+txt+\"'\", 100);\n"
|
d47cbf | 1996-12-02 | Per Hedbor | | "}\n"
"</script>\n");
|
6909c9 | 1997-09-22 | Johan Schön | |
|
d47cbf | 1996-12-02 | Per Hedbor | | }
string magic_image(string url, int xs, int ys, string sn,
string image_1, string image_2, string alt,
|
b91fd5 | 1996-12-10 | Per Hedbor | | string mess,object id,string input,string extra_args)
|
d47cbf | 1996-12-02 | Per Hedbor | | {
if(!id->supports->images) return alt;
|
273a9a | 1997-10-17 | Johan Schön | | if(!id->supports->netscape_javascript)
|
38dca8 | 1996-12-10 | Per Hedbor | | return (!input)?
|
41d0f9 | 1998-02-20 | Per Hedbor | | ("<a "+extra_args+"href=\""+url+"\"><img src=\""+image_1+"\" name="+sn+" border=0 "+
|
eab422 | 1997-09-19 | Johan Schön | | "alt=\""+alt+"\"></a>\n"):
|
f6d62d | 1997-03-26 | Per Hedbor | | ("<input type=image "+extra_args+" src=\""+image_1+"\" name="+input+">");
|
d47cbf | 1996-12-02 | Per Hedbor | |
return
("<script>\n"
|
e8790b | 1998-02-19 | Per Hedbor | | " "+sn+"l = new Image("+xs+", "+ys+");"+sn+"l.src = \""+image_1+"\";\n"
" "+sn+"h = new Image("+xs+", "+ys+");"+sn+"h.src = \""+image_2+"\";\n"
|
38dca8 | 1996-12-10 | Per Hedbor | | "</script>\n"+
|
ca0f08 | 1997-02-22 | Per Hedbor | | ("<a "+extra_args+"href=\""+url+"\" "+
(input?"onClick='document.forms[0].submit();' ":"")
|
e8790b | 1998-02-19 | Per Hedbor | | +"onMouseover=\"i('"+sn+"',"+sn+"h,'"+(mess||url)+"'); return true;\"\n"
|
41d0f9 | 1998-02-20 | Per Hedbor | | "onMouseout='top.window.status=\"\";document.images[\""+sn+"\"].src = "+sn+"l.src;'><img "
"width="+xs+" height="+ys+" src=\""+image_1+"\" name="+sn+
|
094371 | 1997-02-25 | Per Hedbor | | " border=0 alt=\""+alt+"\" ></a>\n"));
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
b91fd5 | 1996-12-10 | Per Hedbor | |
string extra_args(mapping in)
{
string s="";
foreach(indices(in), string i)
{
switch(i)
{
case "target":
|
bfc707 | 1997-01-13 | Per Hedbor | | case "hspace":
case "vspace":
case "onclick":
|
80739c | 1996-12-10 | Per Hedbor | | s+=i+"='"+in[i]+"' ";
|
b91fd5 | 1996-12-10 | Per Hedbor | | m_delete(in, i);
break;
}
}
return s;
}
|
07969c | 1997-02-25 | Per Hedbor | | string tag_gtext_id(string t, mapping arg,
object id, object foo, mapping defines)
{
int short=!!arg->short;
|
fc5752 | 1998-03-06 | Per Hedbor | | if(arg->help) return "Arguments are identical to the argumets to <gtext>. This tag returns a url-prefix that can be used to generate gtexts.";
|
07969c | 1997-02-25 | Per Hedbor | | m_delete(arg, "short"); m_delete(arg, "maxlen");
m_delete(arg,"magic"); m_delete(arg,"submit");
extra_args(arg); m_delete(arg,"split");
if(defines->fg && !arg->fg) arg->fg=defines->fg;
if(defines->bg && !arg->bg) arg->bg=defines->bg;
|
48fa36 | 1997-04-05 | Per Hedbor | | #if efun(get_font)
|
f6d62d | 1997-03-26 | Per Hedbor | | if(!arg->nfont) arg->nfont=defines->nfont;
|
48fa36 | 1997-04-05 | Per Hedbor | | #endif
|
3a4d7e | 1997-09-03 | Per Hedbor | | if(!arg->font) arg->font=defines->font
#if !efun(get_font)
||QUERY(default_font)
#endif
;
|
07969c | 1997-02-25 | Per Hedbor | | int num = find_or_insert( arg );
if(!short)
return query_location()+num+"/";
else
return (string)num;
}
|
62d8c4 | 1997-10-16 | Per Hedbor | | string tag_graphicstext(string t, mapping arg, string contents,
object id, object foo, mapping defines)
{
|
fc5752 | 1998-03-06 | Per Hedbor | |
if(t=="gtext" && arg->help)
|
610bf9 | 1998-03-07 | Fredrik Noring | | return doc();
|
fc5752 | 1998-03-06 | Per Hedbor | | else if(arg->help)
return "This tag calls <gtext> with different default values.";
|
41d0f9 | 1998-02-20 | Per Hedbor | | if(arg->background)
arg->background = fix_relative(arg->background,id);
if(arg->texture)
arg->texture = fix_relative(arg->texture,id);
if(arg->magic_texture)
arg->magic_texture=fix_relative(arg->magic_texture,id);
if(arg->magic_background)
arg->magic_background=fix_relative(arg->magic_background,id);
if(arg->magicbg)
arg->magicbg = fix_relative(arg->magicbg,id);
|
974b2a | 1997-10-02 | Peter Bortas | | string gif="";
|
62d8c4 | 1997-10-16 | Per Hedbor | | if(query("gif")) gif=".gif";
|
974b2a | 1997-10-02 | Peter Bortas | |
|
033c7e | 1997-02-27 | Per Hedbor | | #if efun(_static_modules)
contents = parse_rxml(contents, id, foo, defines);
#else
contents = parse_rxml(contents, id, foo);
#endif
|
62d8c4 | 1997-10-16 | Per Hedbor | | string lp, url, ea;
|
d47cbf | 1996-12-02 | Per Hedbor | | string pre, post, defalign, gt, rest, magic;
|
1bd5c9 | 1997-09-26 | Henrik Grubbström (Grubba) | | int i;
string split;
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
f1be80 | 1998-02-22 | Per Hedbor | |
|
d47cbf | 1996-12-02 | Per Hedbor | | if(!id->supports->images || id->prestate->noimages)
{
if(!arg->split) contents=replace(contents,"\n", "\n<br>\n");
|
974b2a | 1997-10-02 | Peter Bortas | | if(arg->submit) return "<input type=submit name=\""+(arg->name+".x")
+ "\" value=\""+contents+"\">";
|
d47cbf | 1996-12-02 | Per Hedbor | | switch(t)
{
case "gtext":
case "anfang":
if(arg->href)
return "<a href=\""+arg->href+"\">"+contents+"</a>";
return contents;
default:
if(sscanf(t, "%s%d", t, i)==2)
rest="<h"+i+">"+contents+"</h"+i+">";
else
rest="<h1>"+contents+"</h1>";
if(arg->href)
return "<a href=\""+arg->href+"\">"+rest+"</a>";
return rest;
}
}
|
bfc707 | 1997-01-13 | Per Hedbor | | contents = contents[..((int)arg->maxlen||QUERY(deflen))];
m_delete(arg, "maxlen");
|
d47cbf | 1996-12-02 | Per Hedbor | | if(arg->magic)
{
|
d23e42 | 1997-05-08 | Per Hedbor | | magic=replace(arg->magic,"'","`");
|
d47cbf | 1996-12-02 | Per Hedbor | | m_delete(arg,"magic");
}
|
38dca8 | 1996-12-10 | Per Hedbor | |
int input;
if(arg->submit)
{
input=1;
m_delete(arg,"submit");
}
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
bfc707 | 1997-01-13 | Per Hedbor | |
|
80739c | 1996-12-10 | Per Hedbor | | ea = extra_args(arg);
|
bfc707 | 1997-01-13 | Per Hedbor | |
|
094371 | 1997-02-25 | Per Hedbor | |
|
d47cbf | 1996-12-02 | Per Hedbor | | if(arg->href)
{
url = arg->href;
|
80739c | 1996-12-10 | Per Hedbor | | lp = "<a href=\""+arg->href+"\" "+ea+">";
|
d47cbf | 1996-12-02 | Per Hedbor | | if(!arg->fg) arg->fg=defines->link||"#0000ff";
|
094371 | 1997-02-25 | Per Hedbor | | m_delete(arg, "href");
|
d47cbf | 1996-12-02 | Per Hedbor | | }
if(defines->fg && !arg->fg) arg->fg=defines->fg;
if(defines->bg && !arg->bg) arg->bg=defines->bg;
|
f6d62d | 1997-03-26 | Per Hedbor | | if(!arg->nfont) arg->nfont=defines->nfont;
|
f1be80 | 1998-02-22 | Per Hedbor | | if(!arg->font) arg->font=defines->font;
|
f6d62d | 1997-03-26 | Per Hedbor | | if(!arg->bold) arg->bold=defines->bold;
if(!arg->italic) arg->italic=defines->italic;
if(!arg->black) arg->black=defines->black;
if(!arg->narrow) arg->narrow=defines->narrow;
|
d47cbf | 1996-12-02 | Per Hedbor | |
if(arg->split)
{
|
f1be80 | 1998-02-22 | Per Hedbor | | if (sizeof(split=arg->split) != 1)
|
1bd5c9 | 1997-09-26 | Henrik Grubbström (Grubba) | | split = " ";
|
d47cbf | 1996-12-02 | Per Hedbor | | m_delete(arg,"split");
}
for(i=2; i<10; i++)
if(arg[(string)i])
{
arg->scale = 1.0 / ((float)i*0.6);
m_delete(arg, (string)i);
|
9d16ce | 1997-03-01 | Per Hedbor | | break;
|
d47cbf | 1996-12-02 | Per Hedbor | | }
if(sscanf(t, "%s%d", t, i)==2)
if(i > 1) arg->scale = 1.0 / ((float)i*0.6);
|
094371 | 1997-02-25 | Per Hedbor | | string na = arg->name, al=arg->align;
m_delete(arg, "name"); m_delete(arg, "align");
|
d47cbf | 1996-12-02 | Per Hedbor | |
int num = find_or_insert( arg );
gt=contents;
rest="";
|
f6d62d | 1997-03-26 | Per Hedbor | | switch(t)
{
case "gh1": case "gh2": case "gh3": case "gh4":
case "gh5": case "gh6": case "gh7":
case "gh": pre="<p>"; post="<br>"; defalign="top"; break;
case "gtext":
pre=""; post=""; defalign="bottom";
break;
case "anfang":
gt=contents[0..0]; rest=contents[1..];
pre="<br clear=left>"; post=""; defalign="left";
break;
}
|
d47cbf | 1996-12-02 | Per Hedbor | | if(split)
{
string word;
|
bfb80b | 1997-09-26 | Henrik Grubbström (Grubba) | | array res = ({ pre });
string pre = query_location() + num + "/";
|
d47cbf | 1996-12-02 | Per Hedbor | |
if(lp) res+=({ lp });
gt=replace(gt, "\n", " ");
foreach(gt/" "-({""}), word)
{
|
1bd5c9 | 1997-09-26 | Henrik Grubbström (Grubba) | | if (split != " ") {
array arr = word/split;
int i;
|
f1be80 | 1998-02-22 | Per Hedbor | | for (i = sizeof(arr)-1; i--;)
|
1bd5c9 | 1997-09-26 | Henrik Grubbström (Grubba) | | arr[i] += split;
|
f1be80 | 1998-02-22 | Per Hedbor | | if (arr[-1] == "")
|
1bd5c9 | 1997-09-26 | Henrik Grubbström (Grubba) | | arr = arr[..sizeof(arr)-2];
foreach (arr, word) {
array size = write_text(num,word,1,id);
|
41d0f9 | 1998-02-20 | Per Hedbor | | res += ({ "<img border=0 alt=\"" +
|
bfb80b | 1997-09-26 | Henrik Grubbström (Grubba) | | replace(arg->alt || word, "\"", "'") +
|
974b2a | 1997-10-02 | Peter Bortas | | "\" src=\"" + pre + quote(word) + gif + "\" width=" +
|
bfb80b | 1997-09-26 | Henrik Grubbström (Grubba) | | size[0] + " height=" + size[1] + " " + ea + ">"
|
1bd5c9 | 1997-09-26 | Henrik Grubbström (Grubba) | | });
}
|
bfb80b | 1997-09-26 | Henrik Grubbström (Grubba) | | res += ({"\n"});
|
1bd5c9 | 1997-09-26 | Henrik Grubbström (Grubba) | | } else {
array size = write_text(num,word,1,id);
|
41d0f9 | 1998-02-20 | Per Hedbor | | res += ({ "<img border=0 alt=\"" +
|
bfb80b | 1997-09-26 | Henrik Grubbström (Grubba) | | replace(arg->alt || word, "\"", "'") +
|
974b2a | 1997-10-02 | Peter Bortas | | "\" src=\"" + pre + quote(word) + gif + "\" width=" +
|
bfb80b | 1997-09-26 | Henrik Grubbström (Grubba) | | size[0] + " height=" + size[1] + " " + ea + ">\n"
|
1bd5c9 | 1997-09-26 | Henrik Grubbström (Grubba) | | });
}
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
bfb80b | 1997-09-26 | Henrik Grubbström (Grubba) | | if(lp) res += ({ "</a>"+post });
|
d47cbf | 1996-12-02 | Per Hedbor | | return res*"";
}
|
9d16ce | 1997-03-01 | Per Hedbor | | array size = write_text(num,gt,1,id);
|
f1be80 | 1998-02-22 | Per Hedbor | | if(!size)
|
f7d981 | 1997-09-12 | Per Hedbor | | return ("<font size=+1><b>Missing font or other similar error -- "
"failed to render text</b></font>");
|
f1be80 | 1998-02-22 | Per Hedbor | |
|
d47cbf | 1996-12-02 | Per Hedbor | | if(magic)
{
string res = "";
|
bfc707 | 1997-01-13 | Per Hedbor | | if(!arg->fg) arg->fg=defines->link||"#0000ff";
|
d47cbf | 1996-12-02 | Per Hedbor | | arg = mkmapping(indices(arg), values(arg));
|
bfc707 | 1997-01-13 | Per Hedbor | | if(arg->fuzz)
if(arg->fuzz != "fuzz")
arg->glow = arg->fuzz;
else
arg->glow = arg->fg;
|
d47cbf | 1996-12-02 | Per Hedbor | | arg->fg = defines->alink||"#ff0000";
|
9f67f3 | 1997-10-27 | Per Hedbor | | if(arg->magicbg) arg->background = arg->magicbg;
|
38dca8 | 1996-12-10 | Per Hedbor | | if(arg->bevel) arg->pressed=1;
|
094371 | 1997-02-25 | Per Hedbor | |
|
20ca2b | 1998-01-26 | Per Hedbor | | foreach(glob("magic_*", indices(arg)), string q)
{
arg[q[6..]]=arg[q];
m_delete(arg, q);
}
|
d47cbf | 1996-12-02 | Per Hedbor | | int num2 = find_or_insert(arg);
|
9d16ce | 1997-03-01 | Per Hedbor | | array size = write_text(num2,gt,1,id);
|
094371 | 1997-02-25 | Per Hedbor | |
|
38dca8 | 1996-12-10 | Per Hedbor | | if(!defines->magic_java) res = magic_javascript_header(id);
|
d47cbf | 1996-12-02 | Per Hedbor | | defines->magic_java="yes";
|
094371 | 1997-02-25 | Per Hedbor | |
|
e8790b | 1998-02-19 | Per Hedbor | | return replace(res +
magic_image(url||"", size[0], size[1], "i"+(defines->mi++),
query_location()+num+"/"+quote(gt)+gif,
query_location()+num2+"/"+quote(gt)+gif,
(arg->alt?arg->alt:replace(gt, "\"","'")),
(magic=="magic"?0:magic),
id,input?na||"submit":0,ea),
"</script>\n<script>","");
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
ca0f08 | 1997-02-22 | Per Hedbor | | if(input)
|
094371 | 1997-02-25 | Per Hedbor | | return (pre+"<input type=image name=\""+na+"\" border=0 alt=\""+
|
eab422 | 1997-09-19 | Johan Schön | | (arg->alt?arg->alt:replace(gt,"\"","'"))+
|
974b2a | 1997-10-02 | Peter Bortas | | "\" src="+query_location()+num+"/"+quote(gt)+gif
|
094371 | 1997-02-25 | Per Hedbor | | +" align="+(al || defalign)+ea+
|
38dca8 | 1996-12-10 | Per Hedbor | | " width="+size[0]+" height="+size[1]+">"+rest+post);
|
974b2a | 1997-10-02 | Peter Bortas | |
return (pre+(lp?lp:"")
|
41d0f9 | 1998-02-20 | Per Hedbor | | + "<img border=0 alt=\""
|
219eec | 1998-02-02 | Jens Utbult | | + (arg->alt?arg->alt:replace(gt,"\"","'"))
|
974b2a | 1997-10-02 | Peter Bortas | | + "\" src=\""
+ query_location()+num+"/"+quote(gt)+gif+"\" "+ea
+ " align="+(al || defalign)
+ " width="+size[0]+" height="+size[1]+">"+rest+(lp?"</a>":"")+post);
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
bfc707 | 1997-01-13 | Per Hedbor | | inline string ns_color(array (int) col)
{
if(!arrayp(col)||sizeof(col)!=3)
return "#000000";
return sprintf("#%02x%02x%02x", col[0],col[1],col[2]);
}
string make_args(mapping in)
{
array a=indices(in), b=values(in);
for(int i=0; i<sizeof(a); i++)
if(lower_case(b[i])!=a[i])
if(search(b,"\"")==-1)
a[i]+="=\""+b[i]+"\"";
else
a[i]+="='"+b[i]+"'";
return a*" ";
}
|
fc5752 | 1998-03-06 | Per Hedbor | | string|array (string) tag_body(string t, mapping args, object id, object file,
mapping defines)
|
d47cbf | 1996-12-02 | Per Hedbor | | {
|
bfc707 | 1997-01-13 | Per Hedbor | | int cols,changed;
|
fc5752 | 1998-03-06 | Per Hedbor | | if(args->help) return "This tag is parsed by <gtext> to get the document colors.";
|
bfc707 | 1997-01-13 | Per Hedbor | | if(args->bgcolor||args->text||args->link||args->alink
||args->background||args->vlink)
cols=1;
|
40325f | 1997-12-17 | Henrik Grubbström (Grubba) | | #define FIX(Y,Z,X) do{if(!args->Y || args->Y==""){if(cols){defines->X=Z;args->Y=Z;changed=1;}}else{defines->X=args->Y;if(args->Y[0]!='#'){args->Y=ns_color(parse_color(args->Y));changed=1;}}}while(0)
|
bfc707 | 1997-01-13 | Per Hedbor | |
|
0a76aa | 1998-03-27 | David Hedbor | | if(!search(id->client*"","Mosaic"))
|
0ee085 | 1997-02-08 | Per Hedbor | | {
FIX(bgcolor,"#bfbfbf",bg);
FIX(text, "#000000",fg);
FIX(link, "#0000b0",link);
FIX(alink, "#3f0f7b",alink);
FIX(vlink, "#ff0000",vlink);
} else {
FIX(bgcolor,"#c0c0c0",bg);
FIX(text, "#000000",fg);
FIX(link, "#0000ee",link);
FIX(alink, "#ff0000",alink);
FIX(vlink, "#551a8b",vlink);
}
|
0fb7be | 1998-02-27 | Per Hedbor | | if(changed) return ({make_tag("body", args) });
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
196dac | 1997-02-22 | Per Hedbor | |
|
fc5752 | 1998-03-06 | Per Hedbor | | string|array(string) tag_fix_color(string tagname, mapping args, object id,
object file, mapping defines)
|
bfc707 | 1997-01-13 | Per Hedbor | | {
int changed;
|
196dac | 1997-02-22 | Per Hedbor | |
|
fc5752 | 1998-03-06 | Per Hedbor | | if(args->help) return "This tag is parsed by <gtext> to get the document colors.";
|
196dac | 1997-02-22 | Per Hedbor | | if(!id->misc->colors)
|
5f0d91 | 1997-02-27 | Per Hedbor | | id->misc->colors = ({ ({ defines->fg, defines->bg, tagname }) });
|
196dac | 1997-02-22 | Per Hedbor | | else
|
5f0d91 | 1997-02-27 | Per Hedbor | | id->misc->colors += ({ ({ defines->fg, defines->bg, tagname }) });
|
f7d981 | 1997-09-12 | Per Hedbor | | #undef FIX
|
52c854 | 1997-12-19 | Henrik Grubbström (Grubba) | | #define FIX(X,Y) if(args->X && args->X!=""){defines->Y=args->X;if(args->X[0]!='#'){args->X=ns_color(parse_color(args->X));changed = 1;}}
|
bfc707 | 1997-01-13 | Per Hedbor | |
FIX(bgcolor,bg);
FIX(text,fg);
FIX(color,fg);
|
0a76aa | 1998-03-27 | David Hedbor | | if(changed)
return ({"<"+tagname+" "+make_args(args)+">"});
|
bfc707 | 1997-01-13 | Per Hedbor | | return 0;
}
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
fc5752 | 1998-03-06 | Per Hedbor | | string|void pop_color(string tagname,mapping args,object id,object file,
|
196dac | 1997-02-22 | Per Hedbor | | mapping defines)
{
|
0a76aa | 1998-03-27 | David Hedbor | | array c = copy_value(id->misc->colors);
|
fc5752 | 1998-03-06 | Per Hedbor | | if(args->help) return "This end-tag is parsed by <gtext> to get the document colors.";
|
0a76aa | 1998-03-27 | David Hedbor | | if(!c ||!sizeof(c))
return;
|
df8d71 | 1998-02-27 | Per Hedbor | | int i;
tagname = tagname[1..];
for(i=0;i<sizeof(c);i++)
if(c[-i-1][2]==tagname)
|
5f0d91 | 1997-02-27 | Per Hedbor | | {
|
df8d71 | 1998-02-27 | Per Hedbor | | defines->fg = c[-i-1][0];
defines->bg = c[-i-1][1];
|
5f0d91 | 1997-02-27 | Per Hedbor | | break;
}
|
0a76aa | 1998-03-27 | David Hedbor | | c = c[..sizeof(c)-i-2];
|
5f0d91 | 1997-02-27 | Per Hedbor | | id->misc->colors = c;
|
0a76aa | 1998-03-27 | David Hedbor | |
|
196dac | 1997-02-22 | Per Hedbor | | }
|
bfc707 | 1997-01-13 | Per Hedbor | | mapping query_tag_callers()
|
d47cbf | 1996-12-02 | Per Hedbor | | {
|
fe21a7 | 1997-08-25 | Per Hedbor | | return ([ "gtext-id":tag_gtext_id, ]) | (query("speedy")?([]):
|
f7d981 | 1997-09-12 | Per Hedbor | | (["font":tag_fix_color,
"body":tag_body,
|
bfc707 | 1997-01-13 | Per Hedbor | | "table":tag_fix_color,
|
196dac | 1997-02-22 | Per Hedbor | | "tr":tag_fix_color,
"td":tag_fix_color,
|
5f0d91 | 1997-02-27 | Per Hedbor | | "layer":tag_fix_color,
"ilayer":tag_fix_color,
|
196dac | 1997-02-22 | Per Hedbor | | "/td":pop_color,
"/tr":pop_color,
"/font":pop_color,
"/body":pop_color,
"/table":pop_color,
|
5f0d91 | 1997-02-27 | Per Hedbor | | "/layer":pop_color,
|
f7d981 | 1997-09-12 | Per Hedbor | | "/ilayer":pop_color,
]));
|
d47cbf | 1996-12-02 | Per Hedbor | | }
mapping query_container_callers()
{
return ([ "anfang":tag_graphicstext,
"gh":tag_graphicstext,
|
bfc707 | 1997-01-13 | Per Hedbor | | "gh1":tag_graphicstext, "gh2":tag_graphicstext,
"gh3":tag_graphicstext, "gh4":tag_graphicstext,
"gh5":tag_graphicstext, "gh6":tag_graphicstext,
|
d47cbf | 1996-12-02 | Per Hedbor | | "gtext":tag_graphicstext, ]);
}
|