Mercurial > botc / file comparison

comparison: src/preprocessor.cxx

src/preprocessor.cxx

changeset 72
03e4d9db3fd9
parent 71
11f23fabf8a6
equal deleted inserted replaced
71:11f23fabf8a6 72:03e4d9db3fd9
1 /*
2 * botc source code
3 * Copyright (C) 2012 Santeri `Dusk` Piippo
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions are met:
8 *
9 * 1. Redistributions of source code must retain the above copyright notice,
10 * this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright notice,
12 * this list of conditions and the following disclaimer in the documentation
13 * and/or other materials provided with the distribution.
14 * 3. Neither the name of the developer nor the names of its contributors may
15 * be used to endorse or promote products derived from this software without
16 * specific prior written permission.
17 * 4. Redistributions in any form must be accompanied by information on how to
18 * obtain complete source code for the software and any accompanying
19 * software that uses the software. The source code must either be included
20 * in the distribution or be available for no more than the cost of
21 * distribution plus a nominal fee, and must be freely redistributable
22 * under reasonable conditions. For an executable file, complete source
23 * code means the source code for all modules it contains. It does not
24 * include source code for modules or files that typically accompany the
25 * major components of the operating system on which the executable file
26 * runs.
27 *
28 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
29 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
30 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
31 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
32 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
33 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
34 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
35 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
36 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
37 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
38 * POSSIBILITY OF SUCH DAMAGE.
39 */
40
41 #define __PARSER_CXX__
42
43 #include <stdio.h> 1 #include <stdio.h>
44 #include <stdlib.h> 2 #include <stdlib.h>
45 #include "common.h" 3 #include "main.h"
46 #include "str.h" 4 #include "str.h"
47 #include "scriptreader.h" 5 #include "scriptreader.h"
48 6
49 /* Since the preprocessor is *called* from ReadChar and I don't want 7 /* Since the preprocessor is *called* from ReadChar and I don't want
50 * to worry about recursive preprocessing, the preprocessor uses its 8 * to worry about recursive preprocessing, the preprocessor uses its
64 ParserError ("expected `%c`, got `%d`", c, d); 22 ParserError ("expected `%c`, got `%d`", c, d);
65 } 23 }
66 24
67 // ============================================================================ 25 // ============================================================================
68 // Reads a word until whitespace 26 // Reads a word until whitespace
69 str ScriptReader::PPReadWord (char &term) { 27 string ScriptReader::PPReadWord (char &term) {
70 str word; 28 string word;
71 while (1) { 29 while (1) {
72 char c = PPReadChar(); 30 char c = PPReadChar();
73 if (feof (fp[fc]) || (IsCharWhitespace (c) && word.len ())) { 31 if (feof (fp[fc]) || (isspace (c) && word.len ())) {
74 term = c; 32 term = c;
75 break; 33 break;
76 } 34 }
77 word += c; 35 word += c;
78 } 36 }
99 if (PPReadChar() != '#') 57 if (PPReadChar() != '#')
100 return false; 58 return false;
101 59
102 // Read characters until next whitespace to 60 // Read characters until next whitespace to
103 // build the name of the directive 61 // build the name of the directive
104 str directive = PPReadWord (trash); 62 string directive = PPReadWord (trash);
105 63
106 // Now check the directive name against known names 64 // Now check the directive name against known names
107 if (directive == "include") { 65 if (directive == "include") {
108 // #include-directive 66 // #include-directive
109 char terminator; 67 char terminator;
110 str file = PPReadWord (terminator); 68 string file = PPReadWord (terminator);
111 69
112 if (!file.len()) 70 if (!file.len())
113 ParserError ("expected file name for #include, got nothing instead"); 71 ParserError ("expected file name for #include, got nothing instead");
114 OpenFile (file); 72 OpenFile (file);
115 return true; 73 return true;

Mercurial Repository: botc

mercurial