tree.c

这是一个Linux下的集成开发环境

tTree pparam_names;
tTree pparameter;
tTree pblock;
tPosition pepos;
int pattribute;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ydestructor));
 Tree_InitHead (yyt, kdestructor)
 begintTree(yyt->destructor.env)
 yyt->destructor.next = pnext;
 yyt->destructor.qualification = pqualification;
 yyt->destructor.param_names = pparam_names;
 yyt->destructor.parameter = pparameter;
 yyt->destructor.block = pblock;
 yyt->destructor.epos = pepos;
 yyt->destructor.attribute = pattribute;
 return yyt;
}

tTree mnamespace_c
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tTree pqualification, tTree pblock, tPosition pepos, int pattribute)
#else
(pnext, pqualification, pblock, pepos, pattribute)
tTree pnext;
tTree pqualification;
tTree pblock;
tPosition pepos;
int pattribute;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ynamespace_c));
 Tree_InitHead (yyt, knamespace_c)
 begintTree(yyt->namespace_c.env)
 yyt->namespace_c.next = pnext;
 yyt->namespace_c.qualification = pqualification;
 yyt->namespace_c.block = pblock;
 yyt->namespace_c.epos = pepos;
 yyt->namespace_c.attribute = pattribute;
 return yyt;
}

tTree mnamespace
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tTree pqualification, tTree pblock, tPosition pepos, int pattribute)
#else
(pnext, pqualification, pblock, pepos, pattribute)
tTree pnext;
tTree pqualification;
tTree pblock;
tPosition pepos;
int pattribute;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ynamespace));
 Tree_InitHead (yyt, knamespace)
 begintTree(yyt->namespace.env)
 yyt->namespace.next = pnext;
 yyt->namespace.qualification = pqualification;
 yyt->namespace.block = pblock;
 yyt->namespace.epos = pepos;
 yyt->namespace.attribute = pattribute;
 return yyt;
}

tTree mclass
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tTree pqualification, tTree pblock, tPosition pepos, int pattribute)
#else
(pnext, pqualification, pblock, pepos, pattribute)
tTree pnext;
tTree pqualification;
tTree pblock;
tPosition pepos;
int pattribute;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yclass));
 Tree_InitHead (yyt, kclass)
 begintTree(yyt->class.env)
 yyt->class.next = pnext;
 yyt->class.qualification = pqualification;
 yyt->class.block = pblock;
 yyt->class.epos = pepos;
 yyt->class.attribute = pattribute;
 return yyt;
}

tTree mitcl_class
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tTree pqualification, tTree pblock, tPosition pepos, int pattribute)
#else
(pnext, pqualification, pblock, pepos, pattribute)
tTree pnext;
tTree pqualification;
tTree pblock;
tPosition pepos;
int pattribute;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yitcl_class));
 Tree_InitHead (yyt, kitcl_class)
 begintTree(yyt->itcl_class.env)
 yyt->itcl_class.next = pnext;
 yyt->itcl_class.qualification = pqualification;
 yyt->itcl_class.block = pblock;
 yyt->itcl_class.epos = pepos;
 yyt->itcl_class.attribute = pattribute;
 return yyt;
}

tTree mwords
#if defined __STDC__ | defined __cplusplus
(void)
#else
()
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ywords));
 Tree_InitHead (yyt, kwords)
 begintTree(yyt->words.env)
 return yyt;
}

tTree mnoword
#if defined __STDC__ | defined __cplusplus
(void)
#else
()
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ynoword));
 Tree_InitHead (yyt, knoword)
 begintTree(yyt->noword.env)
 return yyt;
}

tTree mword_c
#if defined __STDC__ | defined __cplusplus
(tTree pnext)
#else
(pnext)
tTree pnext;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yword_c));
 Tree_InitHead (yyt, kword_c)
 begintTree(yyt->word_c.env)
 yyt->word_c.next = pnext;
 return yyt;
}

tTree mone_word
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tIdent pident, tPosition ppos)
#else
(pnext, pident, ppos)
tTree pnext;
tIdent pident;
tPosition ppos;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yone_word));
 Tree_InitHead (yyt, kone_word)
 begintTree(yyt->one_word.env)
 yyt->one_word.next = pnext;
 yyt->one_word.ident = pident;
 yyt->one_word.pos = ppos;
 return yyt;
}

tTree mobj_word
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tIdent pident, tPosition ppos, tTree pobject)
#else
(pnext, pident, ppos, pobject)
tTree pnext;
tIdent pident;
tPosition ppos;
tTree pobject;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yobj_word));
 Tree_InitHead (yyt, kobj_word)
 begintTree(yyt->obj_word.env)
 yyt->obj_word.next = pnext;
 yyt->obj_word.ident = pident;
 yyt->obj_word.pos = ppos;
 yyt->obj_word.object = pobject;
 return yyt;
}

tTree mqual_word
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tTree pqualification)
#else
(pnext, pqualification)
tTree pnext;
tTree pqualification;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yqual_word));
 Tree_InitHead (yyt, kqual_word)
 begintTree(yyt->qual_word.env)
 yyt->qual_word.next = pnext;
 yyt->qual_word.qualification = pqualification;
 return yyt;
}

tTree mqual_words
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tTree pqualifications)
#else
(pnext, pqualifications)
tTree pnext;
tTree pqualifications;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yqual_words));
 Tree_InitHead (yyt, kqual_words)
 begintTree(yyt->qual_words.env)
 yyt->qual_words.next = pnext;
 yyt->qual_words.qualifications = pqualifications;
 return yyt;
}

tTree mqualifications
#if defined __STDC__ | defined __cplusplus
(void)
#else
()
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yqualifications));
 Tree_InitHead (yyt, kqualifications)
 begintTree(yyt->qualifications.env)
 return yyt;
}

tTree mnoqualification
#if defined __STDC__ | defined __cplusplus
(void)
#else
()
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ynoqualification));
 Tree_InitHead (yyt, knoqualification)
 begintTree(yyt->noqualification.env)
 return yyt;
}

tTree mone_qualification
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tTree pqualification)
#else
(pnext, pqualification)
tTree pnext;
tTree pqualification;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yone_qualification));
 Tree_InitHead (yyt, kone_qualification)
 begintTree(yyt->one_qualification.env)
 yyt->one_qualification.next = pnext;
 yyt->one_qualification.qualification = pqualification;
 return yyt;
}

tTree mtexts
#if defined __STDC__ | defined __cplusplus
(void)
#else
()
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ytexts));
 Tree_InitHead (yyt, ktexts)
 begintTree(yyt->texts.env)
 return yyt;
}

tTree mnotext
#if defined __STDC__ | defined __cplusplus
(void)
#else
()
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ynotext));
 Tree_InitHead (yyt, knotext)
 begintTree(yyt->notext.env)
 return yyt;
}

tTree mtext
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tPosition ppos)
#else
(pnext, ppos)
tTree pnext;
tPosition ppos;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ytext));
 Tree_InitHead (yyt, ktext)
 begintTree(yyt->text.env)
 yyt->text.next = pnext;
 yyt->text.pos = ppos;
 return yyt;
}

tTree mcharacter
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tPosition ppos, char ptext)
#else
(pnext, ppos, ptext)
tTree pnext;
tPosition ppos;
char ptext;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ycharacter));
 Tree_InitHead (yyt, kcharacter)
 begintTree(yyt->character.env)
 yyt->character.next = pnext;
 yyt->character.pos = ppos;
 yyt->character.text = ptext;
 return yyt;
}

tTree mident
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tPosition ppos, tIdent pident)
#else
(pnext, ppos, pident)
tTree pnext;
tPosition ppos;
tIdent pident;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yident));
 Tree_InitHead (yyt, kident)
 begintTree(yyt->ident.env)
 yyt->ident.next = pnext;
 yyt->ident.pos = ppos;
 yyt->ident.ident = pident;
 return yyt;
}

tTree mblock
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tPosition ppos, tPosition pepos, tTree pstmts, char ptype)
#else
(pnext, ppos, pepos, pstmts, ptype)
tTree pnext;
tPosition ppos;
tPosition pepos;
tTree pstmts;
char ptype;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yblock));
 Tree_InitHead (yyt, kblock)
 begintTree(yyt->block.env)
 yyt->block.next = pnext;
 yyt->block.pos = ppos;
 yyt->block.epos = pepos;
 yyt->block.stmts = pstmts;
 yyt->block.type = ptype;
 return yyt;
}

tTree mcontent
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tPosition ppos, tTree pqualification)
#else
(pnext, ppos, pqualification)
tTree pnext;
tPosition ppos;
tTree pqualification;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ycontent));
 Tree_InitHead (yyt, kcontent)
 begintTree(yyt->content.env)
 yyt->content.next = pnext;
 yyt->content.pos = ppos;
 yyt->content.qualification = pqualification;
 return yyt;
}

tTree mblock_content
#if defined __STDC__ | defined __cplusplus
(tTree pnext, tPosition ppos, tPosition pepos, tTree pstmts)
#else
(pnext, ppos, pepos, pstmts)
tTree pnext;
tPosition ppos;
tPosition pepos;
tTree pstmts;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yblock_content));
 Tree_InitHead (yyt, kblock_content)
 begintTree(yyt->block_content.env)
 yyt->block_content.next = pnext;
 yyt->block_content.pos = ppos;
 yyt->block_content.epos = pepos;
 yyt->block_content.stmts = pstmts;
 return yyt;
}

tTree mqualification_c
#if defined __STDC__ | defined __cplusplus
(tPosition ppos)
#else
(ppos)
tPosition ppos;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yqualification_c));
 Tree_InitHead (yyt, kqualification_c)
 yyt->qualification_c.pos = ppos;
 begintTree(yyt->qualification_c.env)
 return yyt;
}

tTree mlocal_ident
#if defined __STDC__ | defined __cplusplus
(tPosition ppos, tIdent pident)
#else
(ppos, pident)
tPosition ppos;
tIdent pident;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ylocal_ident));
 Tree_InitHead (yyt, klocal_ident)
 yyt->local_ident.pos = ppos;
 begintTree(yyt->local_ident.env)
 yyt->local_ident.ident = pident;
 return yyt;
}

tTree mglobal_ident
#if defined __STDC__ | defined __cplusplus
(tPosition ppos, tIdent pident)
#else
(ppos, pident)
tPosition ppos;
tIdent pident;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yglobal_ident));
 Tree_InitHead (yyt, kglobal_ident)
 yyt->global_ident.pos = ppos;
 begintTree(yyt->global_ident.env)
 yyt->global_ident.ident = pident;
 return yyt;
}

tTree mlocal_text
#if defined __STDC__ | defined __cplusplus
(tPosition ppos, tTree ptexts)
#else
(ppos, ptexts)
tPosition ppos;
tTree ptexts;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ylocal_text));
 Tree_InitHead (yyt, klocal_text)
 yyt->local_text.pos = ppos;
 begintTree(yyt->local_text.env)
 yyt->local_text.texts = ptexts;
 return yyt;
}

tTree mglobal_text
#if defined __STDC__ | defined __cplusplus
(tPosition ppos, tTree ptexts)
#else
(ppos, ptexts)
tPosition ppos;
tTree ptexts;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yglobal_text));
 Tree_InitHead (yyt, kglobal_text)
 yyt->global_text.pos = ppos;
 begintTree(yyt->global_text.env)
 yyt->global_text.texts = ptexts;
 return yyt;
}

tTree mqualification
#if defined __STDC__ | defined __cplusplus
(tPosition ppos, tTree pqualification, tIdent pident)
#else
(ppos, pqualification, pident)
tPosition ppos;
tTree pqualification;
tIdent pident;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (yqualification));
 Tree_InitHead (yyt, kqualification)
 yyt->qualification.pos = ppos;
 begintTree(yyt->qualification.env)
 yyt->qualification.qualification = pqualification;
 yyt->qualification.ident = pident;
 return yyt;
}

tTree mcomplex_qual
#if defined __STDC__ | defined __cplusplus
(tPosition ppos, tTree pqualification, tTree ptexts)
#else
(ppos, pqualification, ptexts)
tPosition ppos;
tTree pqualification;
tTree ptexts;
#endif
{
 register tTree yyt = yyALLOCt (sizeof (ycomplex_qual));
 Tree_InitHead (yyt, kcomplex_qual)
 yyt->complex_qual.pos = ppos;
 begintTree(yyt->complex_qual.env)
 yyt->complex_qual.qualification = pqualification;
 yyt->complex_qual.texts = ptexts;
 return yyt;
}

tTree msubscription
#if defined __STDC__ | defined __cplusplus
(tPosition ppos, tTree pqualification, tTree pindex)
#else
(ppos, pqualification, pindex)
tPosition ppos;