1 // SPDX-License-Identifier: GPL-2.0-or-later
11  * Copyright (C) 1995-1997 H. Peter Anvin
20 #define MAX_FONTLEN 256
33   char *p = *p0;  in getunicode()  local
35   while (*p == ' ' || *p == '\t')  in getunicode()
36     p++;  in getunicode()
37   if (*p != 'U' || p[1] != '+' ||  in getunicode()
38       !isxdigit(p[2]) || !isxdigit(p[3]) || !isxdigit(p[4]) ||  in getunicode()
39       !isxdigit(p[5]) || isxdigit(p[6]))  in getunicode()
40     return -1;  in getunicode()
41   *p0 = p+6;  in getunicode()
42   return strtol(p+2,0,16);  in getunicode()
84   char *p, *p1;  in main()  local
89   if ( !strcmp(argv[1],"-") )  in main()
104   /* For now we assume the default font is always 256 characters. */  in main()
105   fontlen = 256;  in main()
116       if ( (p = strchr(buffer, '\n')) != NULL )  in main()
117 	*p = '\0';  in main()
121       p = buffer;  in main()
129  * where <range> ::= <fontpos>-<fontpos>  in main()
134       while (*p == ' ' || *p == '\t')  in main()
135 	p++;  in main()
136       if (!*p || *p == '#')  in main()
139       fp0 = strtol(p, &p1, 0);  in main()
140       if (p1 == p)  in main()
145       p = p1;  in main()
147       while (*p == ' ' || *p == '\t')  in main()
148 	p++;  in main()
149       if (*p == '-')  in main()
151 	  p++;  in main()
152 	  fp1 = strtol(p, &p1, 0);  in main()
153 	  if (p1 == p)  in main()
158 	  p = p1;  in main()
182 	  while (*p == ' ' || *p == '\t')  in main()
183 	    p++;  in main()
184 	  if (!strncmp(p, "idem", 4))  in main()
188 	      p += 4;  in main()
192 	      un0 = getunicode(&p);  in main()
193 	      while (*p == ' ' || *p == '\t')  in main()
194 		p++;  in main()
195 	      if (*p != '-')  in main()
202 	      p++;  in main()
203 	      un1 = getunicode(&p);  in main()
207 "%s: Bad Unicode range corresponding to font position range 0x%x-0x%x\n",  in main()
211 	      if (un1 - un0 != fp1 - fp0)  in main()
214 "%s: Unicode range U+%x-U+%x not of the same length as font position range 0x%x-0x%x\n",  in main()
219 		addpair(i,un0-fp0+i);  in main()
226 	    while ( (un0 = getunicode(&p)) >= 0 )  in main()
229       while (*p == ' ' || *p == '\t')  in main()
230 	p++;  in main()
231       if (*p && *p != '#')  in main()
232 	fprintf(stderr, "%s: trailing junk (%s) ignored\n", tblname, p);  in main()
258       if ( i == fontlen-1 )  in main()
278       if ( i == nuni-1 )  in main()