source: trunk/idl-compiler/parser_c/classversion_parser.c

Last change on this file was 326, checked in by cinc, 17 years ago

Portability patches for Windows, Linux, Darwin by Bird.
File size: 4.6 KB
Line 
1/* ***** BEGIN LICENSE BLOCK *****
2* Version: CDDL 1.0/LGPL 2.1
3*
4* The contents of this file are subject to the COMMON DEVELOPMENT AND
5* DISTRIBUTION LICENSE (CDDL) Version 1.0 (the "License"); you may not use
6* this file except in compliance with the License. You may obtain a copy of
7* the License at http://www.sun.com/cddl/
8*
9* Software distributed under the License is distributed on an "AS IS" basis,
10* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11* for the specific language governing rights and limitations under the
12* License.
13*
14* The Original Code is "NOM" Netlabs Object Model
15*
16* The Initial Developer of the Original Code is
17* netlabs.org: Chris Wohlgemuth <cinc-ml@netlabs.org>.
18* Portions created by the Initial Developer are Copyright (C) 2007
19* the Initial Developer. All Rights Reserved.
20*
21* Contributor(s):
22*
23* Alternatively, the contents of this file may be used under the terms of
24* the GNU Lesser General Public License Version 2.1 (the "LGPL"), in which
25* case the provisions of the LGPL are applicable instead of those above. If
26* you wish to allow use of your version of this file only under the terms of
27* the LGPL, and not to allow others to use your version of this file under
28* the terms of the CDDL, indicate your decision by deleting the provisions
29* above and replace them with the notice and other provisions required by the
30* LGPL. If you do not delete the provisions above, a recipient may use your
31* version of this file under the terms of any one of the CDDL or the LGPL.
32*
33* ***** END LICENSE BLOCK ***** */
34#ifdef __OS2__
35# include <os2.h>
36#endif /* __OS2__ */
37
38#include <stdio.h>
39#include <stdlib.h>
40
41#include <glib.h>
42#include "parser.h"
43
44extern GScanner *gScanner;
45extern PPARSEINFO pParseInfo;
46
47/*
48 Parse the class version. Note that the identifier is the current symbol..
49
50 CV:= IDL_SYMBOL_CLSVERSION '(' NUM ',' NUM ')' ';'
51 */
52void parseClassVersion(void)
53{
54 GTokenValue value;
55
56 if(!matchNext('('))
57 {
58 getNextToken(); /* Make sure error references the correct token */
59 g_scanner_unexp_token(gScanner,
60 '(',
61 NULL,
62 NULL,
63 NULL,
64 "Error in NOMCLASSVERSION()",
65 TRUE); /* is_error */
66 exit(1);
67 }
68
69 if(!matchNext(G_TOKEN_INT))
70 {
71 getNextToken(); /* Make sure error references the correct token */
72 g_scanner_unexp_token(gScanner,
73 G_TOKEN_INT,
74 NULL,
75 NULL,
76 NULL,
77 "Error in NOMCLASSVERSION()",
78 TRUE); /* is_error */
79 exit(1);
80 }
81 value=gScanner->value;
82 pParseInfo->pCurInterface->ulMajor=value.v_int;
83
84 if(!matchNext(','))
85 {
86 getNextToken(); /* Make sure error references the correct token */
87 g_scanner_unexp_token(gScanner,
88 ',',
89 NULL,
90 NULL,
91 NULL,
92 "Error in NOMCLASSVERSION()",
93 TRUE); /* is_error */
94 exit(1);
95 }
96 if(!matchNext(G_TOKEN_INT))
97 {
98 getNextToken(); /* Make sure error references the correct token */
99 g_scanner_unexp_token(gScanner,
100 G_TOKEN_INT,
101 NULL,
102 NULL,
103 NULL,
104 "Error in NOMCLASSVERSION()",
105 TRUE); /* is_error */
106 exit(1);
107 }
108 value=gScanner->value;
109 pParseInfo->pCurInterface->ulMinor=value.v_int;
110
111 if(!matchNext(')'))
112 {
113 getNextToken(); /* Make sure error references the correct token */
114 g_scanner_unexp_token(gScanner,
115 ')',
116 NULL,
117 NULL,
118 NULL,
119 "Error in NOMCLASSVERSION()",
120 TRUE); /* is_error */
121 exit(1);
122 }
123 if(!matchNext(';'))
124 {
125 getNextToken(); /* Make sure error references the correct token */
126 g_scanner_unexp_token(gScanner,
127 ';',
128 NULL,
129 NULL,
130 NULL,
131 "Error in NOMCLASSVERSION()",
132 TRUE); /* is_error */
133 exit(1);
134 }
135}
Note: See TracBrowser for help on using the repository browser.