Subversion Repositories tendra.SVN

Rev

Rev 5 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 6
Line 35... Line 35...
35 
#ifndef LINK_OPS_H_INCLUDED
 35 
#ifndef LINK_OPS_H_INCLUDED
36 
#define LINK_OPS_H_INCLUDED
 36 
#define LINK_OPS_H_INCLUDED
37 
 
 37 
 
38 
/* Operations for union LINKAGE */
 38 
/* Operations for union LINKAGE */
39 
 
 39 
 
40 
#pragma token PROC ( EXP : LINKAGE : ) EXP : unsigned : TAG_link #
 40 
#pragma token PROC(EXP : LINKAGE :) EXP : unsigned : TAG_link #
41 
#pragma interface TAG_link
 41 
#pragma interface TAG_link
42 
 
 42 
 
43 
 
 43 
 
44 
/* Operations for component name of union LINKAGE */
 44 
/* Operations for component name of union LINKAGE */
45 
 
 45 
 
46 
#pragma token PROC ( EXP : LINKAGE : )\
 46 
#pragma token PROC(EXP : LINKAGE :)\
47 
    EXP : PTR ( string ) : link_name #
 47 
    EXP : PTR(string) : link_name #
48 
#pragma interface link_name
 48 
#pragma interface link_name
49 
 
 49 
 
50 
/* Operations for component type of union LINKAGE */
 50 
/* Operations for component type of union LINKAGE */
51 
 
 51 
 
52 
#pragma token PROC ( EXP : LINKAGE : )\
 52 
#pragma token PROC(EXP : LINKAGE :)\
53 
    EXP : PTR ( SORT ) : link_type #
 53 
    EXP : PTR(SORT) : link_type #
54 
#pragma interface link_type
 54 
#pragma interface link_type
55 
 
 55 
 
56 
/* Operations for field basic of union LINKAGE */
 56 
/* Operations for field basic of union LINKAGE */
57 
 
 57 
 
58 
#pragma token EXP const : unsigned : link_basic_tag #
 58 
#pragma token EXP const : unsigned : link_basic_tag #
59 
#pragma token PROC ( EXP : LINKAGE : ) EXP : int : IS_link_basic #
 59 
#pragma token PROC(EXP : LINKAGE :) EXP : int : IS_link_basic #
60 
#pragma interface link_basic_tag IS_link_basic
 60 
#pragma interface link_basic_tag IS_link_basic
61 
 
 61 
 
62 
#pragma token PROC (\
 62 
#pragma token PROC(\
63 
	EXP : string :,\
 63 
	EXP : string :,\
64 
	EXP : SORT :,\
 64 
	EXP : SORT :,\
65 
	EXP lvalue : LINKAGE :\
 65 
	EXP lvalue : LINKAGE :\
66 
    ) STATEMENT MAKE_link_basic #
 66 
    ) STATEMENT MAKE_link_basic #
67 
#pragma interface MAKE_link_basic
 67 
#pragma interface MAKE_link_basic
68 
 
 68 
 
69 
#pragma token PROC (\
 69 
#pragma token PROC(\
70 
	EXP lvalue : string :,\
 70 
	EXP lvalue : string :,\
71 
	EXP lvalue : SORT :,\
 71 
	EXP lvalue : SORT :,\
72 
	EXP : LINKAGE :\
 72 
	EXP : LINKAGE :\
73 
    ) STATEMENT DECONS_link_basic #
 73 
    ) STATEMENT DECONS_link_basic #
74 
#pragma interface DECONS_link_basic
 74 
#pragma interface DECONS_link_basic
75 
 
 75 
 
76 
#pragma token PROC (\
 76 
#pragma token PROC(\
77 
	EXP : DESTROYER :,\
 77 
	EXP : DESTROYER :,\
78 
	EXP lvalue : string :,\
 78 
	EXP lvalue : string :,\
79 
	EXP lvalue : SORT :,\
 79 
	EXP lvalue : SORT :,\
80 
	EXP : LINKAGE :\
 80 
	EXP : LINKAGE :\
81 
    ) STATEMENT DESTROY_link_basic #
 81 
    ) STATEMENT DESTROY_link_basic #