Updates for OpenVMS : New makefiles
[mesa.git] / src / mesa / shader / slang / slang_preprocess.c
1 /*
2 * Mesa 3-D graphics library
3 * Version: 6.3
4 *
5 * Copyright (C) 2005 Brian Paul All Rights Reserved.
6 *
7 * Permission is hereby granted, free of charge, to any person obtaining a
8 * copy of this software and associated documentation files (the "Software"),
9 * to deal in the Software without restriction, including without limitation
10 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
11 * and/or sell copies of the Software, and to permit persons to whom the
12 * Software is furnished to do so, subject to the following conditions:
13 *
14 * The above copyright notice and this permission notice shall be included
15 * in all copies or substantial portions of the Software.
16 *
17 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
18 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
19 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
20 * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
21 * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
22 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
23 */
24
25 /**
26 * \file slang_preprocess.c
27 * slang preprocessor
28 * \author Michal Krol
29 */
30
31 #include "imports.h"
32 #include "slang_compile.h"
33 #include "grammar_mesa.h"
34 #include "slang_preprocess.h"
35
36 static const char *slang_version_syn =
37 #include "library/slang_version_syn.h"
38 ;
39
40 int _slang_preprocess_version (const char *text, unsigned int *version, unsigned int *eaten,
41 slang_info_log *log)
42 {
43 grammar id;
44 byte *prod, *I;
45 unsigned int size;
46
47 id = grammar_load_from_text ((const byte *) slang_version_syn);
48 if (id == 0)
49 {
50 char buf[1024];
51 unsigned int pos;
52 grammar_get_last_error ( (unsigned char*) buf, 1024, (int*) &pos);
53 slang_info_log_error (log, buf);
54 return 0;
55 }
56
57 if (!grammar_fast_check (id, (const byte *) text, &prod, &size, 8))
58 {
59 char buf[1024];
60 unsigned int pos;
61 grammar_get_last_error ( (unsigned char*) buf, 1024, (int*) &pos);
62 slang_info_log_error (log, buf);
63 grammar_destroy (id);
64 return 0;
65 }
66
67 grammar_destroy (id);
68
69 I = prod;
70 while (I < prod + size)
71 {
72 *version = (unsigned int) I[0] + (unsigned int) I[1] * 100;
73 *eaten = (unsigned int) I[2] + ((unsigned int) I[3] << 8) +
74 ((unsigned int) I[4] << 16) + ((unsigned int) I[5] << 24);
75 I += 6;
76 }
77
78 grammar_alloc_free (prod);
79 return 1;
80 }
81