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 STR_OPS_H_INCLUDED
 35 
#ifndef STR_OPS_H_INCLUDED
36 
#define STR_OPS_H_INCLUDED
 36 
#define STR_OPS_H_INCLUDED
37 
 
 37 
 
38 
/* Operations for union STRING */
 38 
/* Operations for union STRING */
39 
 
 39 
 
40 
#pragma token PROC ( EXP : STRING : ) EXP : unsigned : TAG_str #
 40 
#pragma token PROC(EXP : STRING :) EXP : unsigned : TAG_str #
41 
#pragma interface TAG_str
 41 
#pragma interface TAG_str
42 
 
 42 
 
43 
 
 43 
 
44 
/* Operations for component next of union STRING */
 44 
/* Operations for component next of union STRING */
45 
 
 45 
 
46 
#pragma token PROC ( EXP : STRING : )\
 46 
#pragma token PROC(EXP : STRING :)\
47 
    EXP : PTR ( STRING ) : str_next #
 47 
    EXP : PTR(STRING) : str_next #
48 
#pragma interface str_next
 48 
#pragma interface str_next
49 
 
 49 
 
50 
/* Operations for field simple of union STRING */
 50 
/* Operations for field simple of union STRING */
51 
 
 51 
 
52 
#pragma token EXP const : unsigned : str_simple_tag #
 52 
#pragma token EXP const : unsigned : str_simple_tag #
53 
#pragma token PROC ( EXP : STRING : ) EXP : int : IS_str_simple #
 53 
#pragma token PROC(EXP : STRING :) EXP : int : IS_str_simple #
54 
#pragma interface str_simple_tag IS_str_simple
 54 
#pragma interface str_simple_tag IS_str_simple
55 
 
 55 
 
56 
#pragma token PROC ( EXP : STRING : )\
 56 
#pragma token PROC(EXP : STRING :)\
57 
    EXP : PTR ( ulong_type ) : str_simple_len #
 57 
    EXP : PTR(ulong_type) : str_simple_len #
58 
#pragma interface str_simple_len
 58 
#pragma interface str_simple_len
59 
 
 59 
 
60 
#pragma token PROC ( EXP : STRING : )\
 60 
#pragma token PROC(EXP : STRING :)\
61 
    EXP : PTR ( string ) : str_simple_text #
 61 
    EXP : PTR(string) : str_simple_text #
62 
#pragma interface str_simple_text
 62 
#pragma interface str_simple_text
63 
 
 63 
 
64 
#pragma token PROC ( EXP : STRING : )\
 64 
#pragma token PROC(EXP : STRING :)\
65 
    EXP : PTR ( unsigned ) : str_simple_kind #
 65 
    EXP : PTR(unsigned) : str_simple_kind #
66 
#pragma interface str_simple_kind
 66 
#pragma interface str_simple_kind
67 
 
 67 
 
68 
#pragma token PROC ( EXP : STRING : )\
 68 
#pragma token PROC(EXP : STRING :)\
69 
    EXP : PTR ( ulong_type ) : str_simple_tok #
 69 
    EXP : PTR(ulong_type) : str_simple_tok #
70 
#pragma interface str_simple_tok
 70 
#pragma interface str_simple_tok
71 
 
 71 
 
72 
#pragma token PROC (\
 72 
#pragma token PROC(\
73 
	EXP : ulong_type :,\
 73 
	EXP : ulong_type :,\
74 
	EXP : string :,\
 74 
	EXP : string :,\
75 
	EXP : unsigned :,\
 75 
	EXP : unsigned :,\
76 
	EXP lvalue : STRING :\
 76 
	EXP lvalue : STRING :\
77 
    ) STATEMENT MAKE_str_simple #
 77 
    ) STATEMENT MAKE_str_simple #
78 
#pragma interface MAKE_str_simple
 78 
#pragma interface MAKE_str_simple
79 
 
 79 
 
80 
#pragma token PROC (\
 80 
#pragma token PROC(\
81 
	EXP lvalue : STRING :,\
 81 
	EXP lvalue : STRING :,\
82 
	EXP lvalue : ulong_type :,\
 82 
	EXP lvalue : ulong_type :,\
83 
	EXP lvalue : string :,\
 83 
	EXP lvalue : string :,\
84 
	EXP lvalue : unsigned :,\
 84 
	EXP lvalue : unsigned :,\
85 
	EXP lvalue : ulong_type :,\
 85 
	EXP lvalue : ulong_type :,\
86 
	EXP : STRING :\
 86 
	EXP : STRING :\
87 
    ) STATEMENT DECONS_str_simple #
 87 
    ) STATEMENT DECONS_str_simple #
88 
#pragma interface DECONS_str_simple
 88 
#pragma interface DECONS_str_simple
89 
 
 89 
 
90 
#pragma token PROC (\
 90 
#pragma token PROC(\
91 
	EXP : DESTROYER :,\
 91 
	EXP : DESTROYER :,\
92 
	EXP lvalue : STRING :,\
 92 
	EXP lvalue : STRING :,\
93 
	EXP lvalue : ulong_type :,\
 93 
	EXP lvalue : ulong_type :,\
94 
	EXP lvalue : string :,\
 94 
	EXP lvalue : string :,\
95 
	EXP lvalue : unsigned :,\
 95 
	EXP lvalue : unsigned :,\