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