ddd: The VSL interpreter failed

[Zdenek SEKERA]

ddd 3.3.1, compiled with --enable-builtin-vsllib
                on Linux 7.2.1 (c++ was gcc 2.96) as well as
                on IRIX6.5 (c++ was MIPSpro 7.3.1.3m)

when I start the ddd, I get the following window:

        The VSL interpreter failed:
        ../vsllib/builtin.vsl:110: 'font(box, font)' already defined


'ddd' seems to work OK, but even if it isn't a 'showstopper'
it is highly irritating.

The problem is in vsllib/fonts.vsl.
The problem exists since several versions ago, probably as far
as 3.0. The fix below has been sent to me long time ago by
somebody whose email I've lost. My appologies and thanks to him.

diff fonts.vsl fonts.vsl.release
37,38c37,38
< // #pragma override font
< the_font(box, font) = _fontfix(_font(box, string(font)));
---
> #pragma override font
> font(box, font) = _fontfix(_font(box, string(font)));
141,154c141,154
< rm(box) = the_font(box, fontname_rm());
< bf(box) = the_font(box, fontname_bf());
< it(box) = the_font(box, fontname_it());
< bi(box) = the_font(box, fontname_bi());
<
< rm(box, family) = the_font(box, fontname_rm(family));
< bf(box, family) = the_font(box, fontname_bf(family));
< it(box, family) = the_font(box, fontname_it(family));
< bi(box, family) = the_font(box, fontname_bi(family));
<
< rm(box, family, size) = the_font(box, fontname_rm(family, size));
< bf(box, family, size) = the_font(box, fontname_bf(family, size));
< it(box, family, size) = the_font(box, fontname_it(family, size));
< bi(box, family, size) = the_font(box, fontname_bi(family, size));
---
> rm(box) = font(box, fontname_rm());
> bf(box) = font(box, fontname_bf());
> it(box) = font(box, fontname_it());
> bi(box) = font(box, fontname_bi());
>
> rm(box, family) = font(box, fontname_rm(family));
> bf(box, family) = font(box, fontname_bf(family));
> it(box, family) = font(box, fontname_it(family));
> bi(box, family) = font(box, fontname_bi(family));
>
> rm(box, family, size) = font(box, fontname_rm(family, size));
> bf(box, family, size) = font(box, fontname_bf(family, size));
> it(box, family, size) = font(box, fontname_it(family, size));
> bi(box, family, size) = font(box, fontname_bi(family, size));

--
----------------------------------------------------
Zdenek Sekera               | zdenek.sekera@cern.ch
LHC Computing Grid Project  | tel:   +41-22-767.1068
CERN - IT Division          | fax:   +41-22-767.4900
CH-1211 Geneva 23           |
Switzerland                 |
----------------------------------------------------