EnglishРусский  

   ..

   alias.c

   alias.h

   bcodes.c

   bcodes.h

   body.c

   compile.c

   compile.h

   define.c

   define.h

   desc.c

   expr.c

   extern.c

   for.c

   foreach.c

   func.c

   func.h

   global.c

   global.h

   goto.c

   if.c

   ifdef.c

   ifdef.h

   import.c

   import.h

   include.c

   include.h

   jump.c

   lexem.c

   lexem.h

   macro.c

   macro.h

   operlist.txt

   out.c

   out.h

   subfunc.c

   switch.c

   type.c

   type.h

   vars.c

   while.c

   with.c

Реклама

Инсталлятор CreateInstall
Бесплатные и коммерческие инсталляторы

 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: alias 06.07.07 0.0.A.
11 *
12 * Author: Alexey Krivonogov ( gentee )
13 *
14 * Summary: alias
15 *
16 ******************************************************************************/
17 
18 #include "../vm/vm.h"
19 #include "../vm/vmload.h"
20 #include "lexem.h"
21 #include "out.h"
22 
23 /*-----------------------------------------------------------------------------
24 *
25 * ID: alias_add 06.07.07 0.0.A.
26 * 
27 * Summary: Adding alias
28 *
29 -----------------------------------------------------------------------------*/
30 
31 plexem  STDCALL alias_add( plexem plex, puint id )
32 {
33    pubyte    pout;//, pdata;
34 
35    out_init( OVM_ALIAS, GHCOM_NAME, lexem_getname( plex ));
36    out_adduint( 0 );
37    pout = out_finish();
38    *id = load_alias( &pout )->id;
39    
40    return lexem_next( plex, LEXNEXT_IGNLINE );
41 }
42 
43 
Редактировать