ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/common/font.c
(Generate patch)

Comparing ray/src/common/font.c (file contents):
Revision 2.5 by greg, Mon Sep 21 12:02:03 1992 UTC vs.
Revision 2.22 by greg, Fri Nov 19 22:51:31 2021 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1992 Regents of the University of California */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char       RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   * Polygonal font handling routines
6   */
7  
8 < #include "standard.h"
8 > #include "copyright.h"
9  
10 + #include <stdlib.h>
11 +
12 + #include "paths.h"
13 + #include "rtio.h"
14   #include "font.h"
15  
16   #define galloc(nv)      (GLYPH *)malloc(sizeof(GLYPH)+2*sizeof(GORD)*(nv))
17  
18 + int     retainfonts = 0;                /* retain loaded fonts? */
19  
18 – extern char  *libpath;                  /* list of library directories */
19 –
20 – extern char  *fgetword();
21 –
20   static FONT     *fontlist = NULL;       /* list of loaded fonts */
21  
22  
23   FONT *
24 < getfont(fname)                          /* return font fname */
25 < char  *fname;
24 > getfont(                        /* return font fname */
25 >        char  *fname
26 > )
27   {
29 –        char  buf[16];
28          FILE  *fp;
29 <        char  *pathname, *err;
29 >        char  *pathname, *err = NULL;
30          unsigned  wsum, hsum, ngly;
31 <        int  gn, ngv;
32 <        register int  gv;
35 <        register GLYPH  *g;
31 >        int  gn, ngv, gv;
32 >        GLYPH   *g;
33          GORD  *gp;
34 <        register FONT  *f;
34 >        FONT  *f;
35  
36          for (f = fontlist; f != NULL; f = f->next)
37 <                if (!strcmp(f->name, fname))
37 >                if (!strcmp(f->name, fname)) {
38 >                        f->nref++;
39                          return(f);
40 +                }
41                                                  /* load the font file */
42 <        if ((pathname = getpath(fname, libpath, R_OK)) == NULL) {
43 <                sprintf(errmsg, "cannot find font file \"%s\"", fname);
44 <                error(USER, errmsg);
42 >        if ((pathname = getpath(fname, getrlibpath(), R_OK)) == NULL) {
43 >                fprintf(stderr, "cannot find font file \"%s\"\n", fname);
44 >                return(NULL);
45          }
46 +        if ((fp = fopen(pathname, "r")) == NULL) {
47 +                fprintf(stderr, "cannot open font file \"%s\"\n", pathname);
48 +                return(NULL);
49 +        }
50          f = (FONT *)calloc(1, sizeof(FONT));
51          if (f == NULL)
52                  goto memerr;
53 <        f->name = savestr(fname);
54 <        if ((fp = fopen(pathname, "r")) == NULL) {
55 <                sprintf(errmsg, "cannot open font file \"%s\"",
56 <                                pathname);
57 <                error(SYSTEM, errmsg);
55 <        }
56 <        wsum = hsum = ngly = 0;
57 <        while (fgetword(buf,sizeof(buf),fp) != NULL) {  /* get each glyph */
58 <                if (!isint(buf))
53 >        strcpy(f->name, fname);
54 >        f->nref = 1;
55 >        wsum = hsum = ngly = 0;                 /* get each glyph */
56 >        while ((ngv = fgetval(fp, 'i', (char *)&gn)) != EOF) {
57 >                if (ngv == 0)
58                          goto nonint;
60 –                gn = atoi(buf);
59                  if (gn < 1 || gn > 255) {
60                          err = "illegal";
61                          goto fonterr;
# Line 66 | Line 64 | char  *fname;
64                          err = "duplicate";
65                          goto fonterr;
66                  }
67 <                if (fgetword(buf,sizeof(buf),fp) == NULL || !isint(buf) ||
68 <                                (ngv = atoi(buf)) < 0 || ngv > 32000) {
67 >                if (fgetval(fp, 'i', (char *)&ngv) <= 0 ||
68 >                                ngv < 0 || ngv > 32000) {
69                          err = "bad # vertices for";
70                          goto fonterr;
71                  }
# Line 79 | Line 77 | char  *fname;
77                  ngv *= 2;
78                  gp = gvlist(g);
79                  while (ngv--) {
80 <                        if (fgetword(buf,sizeof(buf),fp) == NULL ||
81 <                                        !isint(buf) ||
84 <                                        (gv = atoi(buf)) < 0 || gv > 255) {
80 >                        if (fgetval(fp, 'i', (char *)&gv) <= 0 ||
81 >                                        gv < 0 || gv > 255) {
82                                  err = "bad vertex for";
83                                  goto fonterr;
84                          }
# Line 113 | Line 110 | char  *fname;
110          f->next = fontlist;
111          return(fontlist = f);
112   nonint:
113 <        sprintf(errmsg, "non-integer in font file \"%s\"", pathname);
114 <        error(USER, errmsg);
113 >        fprintf(stderr, "non-integer in font file \"%s\"\n", pathname);
114 >        fclose(fp);
115 >        return(NULL);
116   fonterr:
117 <        sprintf(errmsg, "%s character (%d) in font file \"%s\"",
117 >        fprintf(stderr, "%s character (%d) in font file \"%s\"\n",
118                          err, gn, pathname);
119 <        error(USER, errmsg);
119 >        fclose(fp);
120 >        return(NULL);
121   memerr:
122 <        error(SYSTEM, "out of memory in fontglyph");
122 >        fprintf(stderr, "out of memory in getfont()\n");
123 >        fclose(fp);
124 >        return(NULL);
125   }
126  
127  
128 + void
129 + freefont(                       /* release a font (free all if NULL) */
130 +        FONT *fnt
131 + )
132 + {
133 +        FONT  head;
134 +        FONT  *fl, *f;
135 +        int  i;
136 +                                        /* check reference count */
137 +        if (fnt != NULL && ((fnt->nref-- > 1) | retainfonts))
138 +                return;
139 +        head.next = fontlist;
140 +        fl = &head;
141 +        while ((f = fl->next) != NULL)
142 +                if ((fnt == NULL) | (fnt == f)) {
143 +                        fl->next = f->next;
144 +                        for (i = 0; i < 256; i++)
145 +                                if (f->fg[i] != NULL)
146 +                                        free((void *)f->fg[i]);
147 +                        free((void *)f);
148 +                } else
149 +                        fl = f;
150 +        fontlist = head.next;
151 + }
152 +
153 +
154   int
155 < uniftext(sp, tp, f)                     /* uniformly space text line */
156 < register short  *sp;            /* returned character spacing */
157 < register char  *tp;             /* text line */
158 < register FONT  *f;              /* font */
155 > uniftext(                       /* uniformly space text line */
156 >        short   *sp,            /* returned character spacing */
157 >        char  *tp,              /* text line */
158 >        FONT  *f                /* font */
159 > )
160   {
161          int  linelen;
162  
# Line 137 | Line 165 | register FONT  *f;             /* font */
165                  if (f->fg[*tp++&0xff] == NULL)
166                          *sp++ = 0;
167                  else
168 <                        linelen += *sp++ = 256;
168 >                        linelen += *sp++ = 255;
169          return(linelen);
170   }
171  
172  
173   int
174 < squeeztext(sp, tp, f, cis)              /* squeeze text line */
175 < short  *sp;                     /* returned character spacing */
176 < char  *tp;                      /* text line */
177 < FONT  *f;                       /* font */
178 < int  cis;                       /* intercharacter spacing */
174 > squeeztext(             /* squeeze text line */
175 >        short  *sp,                     /* returned character spacing */
176 >        char  *tp,                      /* text line */
177 >        FONT  *f,                       /* font */
178 >        int  cis                        /* intercharacter spacing */
179 > )
180   {
181          int  linelen;
182 <        register GLYPH  *gp;
182 >        GLYPH   *gp;
183  
184 +        linelen = 0;
185          gp = NULL;
186          while (*tp && (gp = f->fg[*tp++&0xff]) == NULL)
187                  *sp++ = 0;
188          cis /= 2;
189 <        linelen = *sp = cis;
189 >        *sp = cis;
190          while (gp != NULL) {
191                  if (gp->nverts) {               /* regular character */
192                          linelen += *sp++ += cis - gp->left;
# Line 177 | Line 207 | int  cis;                      /* intercharacter spacing */
207  
208  
209   int
210 < proptext(sp, tp, f, cis, nsi)           /* space line proportionally */
211 < short  *sp;                     /* returned character spacing */
212 < char  *tp;                      /* text line */
213 < FONT  *f;                       /* font */
214 < int  cis;                       /* target intercharacter spacing */
215 < int  nsi;                       /* minimum number of spaces for indent */
210 > proptext(               /* space line proportionally */
211 >        short  *sp,                     /* returned character spacing */
212 >        char  *tp,                      /* text line */
213 >        FONT  *f,                       /* font */
214 >        int  cis,                       /* target intercharacter spacing */
215 >        int  nsi                        /* minimum number of spaces for indent */
216 > )
217   {
218 <        register char  *end, *tab;
218 >        char  *end, *tab = NULL;
219          GLYPH  *gp;
220          short  *nsp;
221          int  alen, len, width;
222                                          /* start by squeezing it */
223          squeeztext(sp, tp, f, cis);
224                                          /* now, realign spacing */
225 <        len = 0;
195 <        width = alen = *sp++;
225 >        width = *sp++;
226          while (*tp) {
227 +                len = alen = 0;
228                  nsp = sp;
229                  for (end = tp; *end; end = tab) {
230                          tab = end + 1;
# Line 217 | Line 248 | int  nsi;                      /* minimum number of spaces for indent */
248                          *sp++ += alen;
249                          len -= alen;
250                  }
220 –                len = 0;
221 –                alen = 0;
251                  tp = tab;
252          }
253          return(width);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines