Реклама

 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