Re: Problems with vsllib

[Zdenek Sekera]

address@hidden wrote:
> 
> Hello,
> 
> I just compiled ddd 3.3.1.  I used gcc 2.9.  My platform is
> Sun/Sparc/Solaris 2.6.
> 
> The first time I ran configure/make, then I ran the finished ddd.  It
> complained that it could not find vsllib.
> 
> So I deleted EVERYTHING, and I ran configure/make again.  This time,
> I used
>      configure --enable-builtin-vsllib
> 
> I ran ddd again.  This time, it complained
>      VSL ../vsllib/builtin.vsl:110 'font(box, font)' already defined
> 
> Any suggestions?

I had this problem before and someone posted a patch for this on this
forum.

I appologize for not giving the proper credit to the author, I've lost
all
references ;-(.

I don't have the patch anymore but I am attaching the fonts.vsl file
already
patched, I think this will solve your problem. The file should replace
the original 'vsllib/fonts.vsl'.

Here are the differences:

10:1:0 (258) [425]$ diff fonts.vsl fonts.vsl.orig 

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));
address@hidden: ~/src/ddd-3.3/vsllib


Good luck!

---Zdenek

--
=========================================================
Zdenek Sekera / address@hidden       Scalable Platforms Group
VNET: 557-4844                      Silicon Graphics SA
Tel : +41-22-710.4844       18, Ave. Louis Casai, 1209 Geneva
Fax : +41-22-710.4860                   Switzerland

// $Id: fonts.vsl,v 1.1 2000/06/09 09:27:26 andreas Exp $
// VSL font library

// Copyright (C) 1993 Technische Universitaet Braunschweig, Germany.
// Written by Andreas Zeller <address@hidden>.
// 
// This file is part of DDD.
// 
// DDD is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public
// License as published by the Free Software Foundation; either
// version 2 of the License, or (at your option) any later version.
// 
// DDD is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU General Public License for more details.
// 
// You should have received a copy of the GNU General Public
// License along with DDD -- see the file COPYING.
// If not, write to the Free Software Foundation, Inc.,
// 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// 
// DDD is the data display debugger.
// For details, see the DDD World-Wide-Web page, 
// `http://www.gnu.org/software/ddd/',
// or send a mail to the DDD developers <address@hidden>.

// Version
fonts_version() = "$Id: fonts.vsl,v 1.1 2000/06/09 09:27:26 andreas Exp $";

// Synonyms
_font(box, font) = font(box, font);
_fontfix(box) = fontfix(box);

// Standard interface
//#pragma override font
the_font(box, font) = _fontfix(_font(box, string(font)));

// Constants
slant_unslanted()    = "r";
slant_italic()       = "*";
weight_medium()      = "medium";
weight_bold()        = "bold";
family_times()       = "times";
family_courier()     = "courier";
family_helvetica()   = "helvetica";
family_new_century() = "new century schoolbook";
family_typewriter()  = "lucidatypewriter";

// Defaults
stdfontfamily() = family_times();
stdfontpixels() = 0;            // 0 means to use stdfontpoints()
stdfontpoints() = 120;          // 0 means to use stdfontpixels()
stdfontslant()  = slant_unslanted();
stdfontweight() = weight_medium();
stdfontsize()   = (stdfontpixels(), stdfontpoints());

// Convert size spec
fontnum(n) = if n > 0 then num(n) else "*" fi;

// Font names
// X11 system interface
sysfontname(fndry, family, weight, slant, sWdth, adstyl, pxlsz, ptSz,
        resx, resy, spc, avgWdth, rgstry, encdng) = string(
        "-" & fndry &
        "-" & family &
        "-" & weight &
        "-" & slant &
        "-" & sWdth &
        "-" & adstyl &
        "-" & pxlsz &
        "-" & ptSz &
        "-" & resx &
        "-" & resy &
        "-" & spc &
        "-" & avgWdth &
        "-" & rgstry &
        "-" & encdng);

// ``Official'' interface
fontname(weight, slant, family, (pixels, points)) = string(
        "-" & "*" &
        "-" & family &
        "-" & weight &
        "-" & slant &
        "-" & "*" &                             // sWdth
        "-" & "*" &                             // adstyl
        "-" & fontnum(pixels) &                 // pxlSz
        "-" & fontnum(points) &                 // ptSz
        "-" & "*" &                             // resx
        "-" & "*" &                             // resy
        "-" & "*" &                             // spc
        "-" & "*" &                             // avgWdth
        "-" & "*" &                             // rgstry
        "-" & "*");                             // encdng

// Defaults
fontname(weight, slant, family, size) =
        fontname(weight, slant, family, size);
fontname(weight, slant, family) =
        fontname(weight, slant, family, stdfontsize());
fontname(weight, slant) =
        fontname(weight, slant, stdfontfamily());
fontname(weight) =
        fontname(weight, stdfontslant());
fontname() =
        fontname(stdfontweight());

// Font names
// For the sake of efficiency, we avoid the ellipsis  ("...") where possible
fontname_rm() = 
        fontname(weight_medium(), slant_unslanted());
fontname_bf() = 
        fontname(weight_bold(), slant_unslanted());
fontname_it() = 
        fontname(weight_medium(), slant_italic());
fontname_bi() = 
        fontname(weight_bold(), slant_italic());

fontname_rm(family) = 
        fontname(weight_medium(), slant_unslanted(), family);
fontname_bf(family) = 
        fontname(weight_bold(), slant_unslanted(), family);
fontname_it(family) = 
        fontname(weight_medium(), slant_italic(), family);
fontname_bi(family) = 
        fontname(weight_bold(), slant_italic(), family);

fontname_rm(family, size) = 
        fontname(weight_medium(), slant_unslanted(), family, size);
fontname_bf(family, size) = 
        fontname(weight_bold(), slant_unslanted(), family, size);
fontname_it(family, size) = 
        fontname(weight_medium(), slant_italic(), family, size);
fontname_bi(family, size) = 
        fontname(weight_bold(), slant_italic(), family, size);


// Macros for font settings
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));


// Synonyms
sl(...) = it(...);
bs(...) = bi(...);