Реклама

 1 /******************************************************************************
 2 *
 3 * Copyright (C) 2006, The Gentee Group. All rights reserved.
 4 * This file is part of the Gentee open source project - http://www.gentee.com.
 5 *
 6 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT").
 7 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS
 8 * ACCEPTANCE OF THE AGREEMENT.
 9 *
10 * ID: extern 03.11.06 0.0.A.
11 *
12 * Author: Alexander Krivonogov ( algen )
13 *
14 ******************************************************************************/
15 
16 #include "func.h"
17 
18 /*-----------------------------------------------------------------------------
19 *
20 * ID: m_extern 03.11.06 0.0.A.
21 *
22 * Summary: The extern command processing
23 *
24 -----------------------------------------------------------------------------*/
25 
26 plexem STDCALL m_extern( plexem curlex )
27 {
28    D( "Extern start\n" );
29    curlex = lexem_next( curlex, LEXNEXT_IGNLINE );
30    curlex = lexem_next( curlex, LEXNEXT_LCURLY | LEXNEXT_IGNLINE );
31    while ( 1 )
32    {
33       if ( curlex->type == LEXEM_KEYWORD )
34       {
35          switch ( curlex->key )
36          {
37             case KEY_FUNC:
38             case KEY_METHOD:
39             case KEY_OPERATOR:
40             case KEY_TEXT:
41             case KEY_PROPERTY:
42                curlex = m_func( curlex, 1 );
43                break;
44             default: msg( MNokeyword | MSG_LEXERR, curlex );
45          }
46       }
47       if ( curlex->type == LEXEM_OPER )
48       {
49          if ( curlex->oper.operid == OpRcrbrack )
50             break;
51          if ( curlex->oper.operid == OpLine )
52          {
53             curlex = lexem_next( curlex, LEXNEXT_IGNLINE );
54             continue;
55          }
56       }
57       msg( MSyntax | MSG_LEXNAMEERR, curlex );
58    }
59    D( "Extern stop\n" );
60    return lexem_next( curlex, LEXNEXT_NULL );
61 }
62