Mercurial > ~darius > hgwebdir.cgi > paradise_server

comparison src/parsexbm.c @ 4:aa38447a4b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First entry of Paradise Server 2.9 patch 10 Beta
author darius
date Sat, 06 Dec 1997 04:37:03 +0000
parents
children
comparison
equal deleted inserted replaced
3:cafa94d86546 4:aa38447a4b21
1 /*--------------------------------------------------------------------------
2 NETREK II -- Paradise
3
4 Permission to use, copy, modify, and distribute this software and its
5 documentation, or any derivative works thereof, for any NON-COMMERCIAL
6 purpose and without fee is hereby granted, provided that this copyright
7 notice appear in all copies. No representations are made about the
8 suitability of this software for any purpose. This software is provided
9 "as is" without express or implied warranty.
10
11 Xtrek Copyright 1986 Chris Guthrie
12 Netrek (Xtrek II) Copyright 1989 Kevin P. Smith
13 Scott Silvey
14 Paradise II (Netrek II) Copyright 1993 Larry Denys
15 Kurt Olsen
16 Brandon Gillespie
17 --------------------------------------------------------------------------*/
18
19 #include "config.h"
20 #include <stdio.h>
21 #include <stdlib.h>
22 #include <string.h>
23
24 #define pm_error(str) {\
25 fprintf(stderr, "Error in ParseXbmFile(): %s\n", str);\
26 if(*dataP) { free(*dataP); *dataP = 0; }\
27 return -1; }
28
29 /*
30 * most of the following function came from xbmtopbm.c in the PBMPLUS library
31 */
32
33 #define MAX_LINE 500
34
35 int
36 ParseXbmFile(stream, widthP, heightP, dataP)
37 FILE *stream;
38 int *widthP;
39 int *heightP;
40 char **dataP;
41 {
42 char line[MAX_LINE], name_and_type[MAX_LINE];
43 char *ptr;
44 char *t;
45 int raster_length, v;
46 register int bytes, bytes_per_line;
47 register int c1, c2, value1, value2;
48 int hex_table[256];
49
50 *widthP = *heightP = -1;
51 *dataP = 0;
52
53 for (;;)
54 {
55 if (fgets(line, MAX_LINE, stream) == NULL)
56 pm_error("EOF / read error");
57 if (strlen(line) == MAX_LINE - 1)
58 pm_error("line too long");
59
60 if (sscanf(line, "#define %s %d", name_and_type, &v) == 2)
61 {
62 if ((t = strrchr(name_and_type, '_')) == NULL)
63 t = name_and_type;
64 else
65 ++t;
66 if (!strcmp("width", t))
67 *widthP = v;
68 else if (!strcmp("height", t))
69 *heightP = v;
70 continue;
71 }
72
73 if (sscanf(line, "static char %s = {", name_and_type) == 1 ||
74 sscanf(line, "static unsigned char %s = {", name_and_type) == 1)
75 break;
76 }
77
78 if (*widthP == -1)
79 pm_error("invalid width");
80 if (*heightP == -1)
81 pm_error("invalid height");
82
83 bytes_per_line = (*widthP + 7) / 8;
84
85 raster_length = bytes_per_line * *heightP;
86 *dataP = (char *) malloc(raster_length);
87 if (*dataP == (char *) 0)
88 pm_error("out of memory");
89
90 /* Initialize hex_table. */
91 for (c1 = 0; c1 < 256; ++c1)
92 hex_table[c1] = 256;
93
94 hex_table['0'] = 0;
95 hex_table['1'] = 1;
96 hex_table['2'] = 2;
97 hex_table['3'] = 3;
98 hex_table['4'] = 4;
99 hex_table['5'] = 5;
100 hex_table['6'] = 6;
101 hex_table['7'] = 7;
102 hex_table['8'] = 8;
103 hex_table['9'] = 9;
104 hex_table['A'] = 10;
105 hex_table['B'] = 11;
106 hex_table['C'] = 12;
107 hex_table['D'] = 13;
108 hex_table['E'] = 14;
109 hex_table['F'] = 15;
110 hex_table['a'] = 10;
111 hex_table['b'] = 11;
112 hex_table['c'] = 12;
113 hex_table['d'] = 13;
114 hex_table['e'] = 14;
115 hex_table['f'] = 15;
116
117 for (bytes = 0, ptr = *dataP; bytes < raster_length; ++bytes)
118 {
119 /*
120 * Skip until digit is found.
121 */
122 for (;;)
123 {
124 c1 = getc(stream);
125 if (c1 == EOF)
126 pm_error("EOF / read error");
127 value1 = hex_table[c1];
128 if (value1 != 256)
129 break;
130 }
131 /*
132 * Loop on digits.
133 */
134 for (;;)
135 {
136 c2 = getc(stream);
137 if (c2 == EOF)
138 pm_error("EOF / read error");
139 value2 = hex_table[c2];
140 if (value2 != 256)
141 {
142 value1 = (value1 << 4) | value2;
143 if (value1 >= 256)
144 pm_error("syntax error");
145 }
146 else if (c2 == 'x' || c2 == 'X')
147 {
148 if (value1 == 0)
149 continue;
150 else
151 pm_error("syntax error");
152 }
153 else
154 break;
155 }
156 *ptr++ = (char) (value1 ^ 0xFF);
157 }
158 return (raster_length);
159 }