summaryrefslogtreecommitdiff
path: root/src/tree.c
diff options
context:
space:
mode:
authorAdrian Thurston <thurston@complang.org>2015-01-27 10:04:21 -0500
committerAdrian Thurston <thurston@complang.org>2015-01-27 10:04:21 -0500
commit680cdd650f327b28129f23bf027ca5fa79b44ae3 (patch)
treeaed240b12154d39e989907de17957de7b48569ed /src/tree.c
parentd97898e259de2165599818287132ba1ee80390a2 (diff)
downloadcolm-680cdd650f327b28129f23bf027ca5fa79b44ae3.tar.gz
function name cleanup
Diffstat (limited to 'src/tree.c')
-rw-r--r--src/tree.c47
1 files changed, 0 insertions, 47 deletions
diff --git a/src/tree.c b/src/tree.c
index 442ed7e8..29d041ce 100644
--- a/src/tree.c
+++ b/src/tree.c
@@ -961,44 +961,6 @@ Tree *splitTree( Program *prg, Tree *tree )
return tree;
}
-Tree *constructGeneric( Program *prg, long genericId )
-{
- GenericInfo *genericInfo = &prg->rtd->genericInfo[genericId];
- Tree *newGeneric = 0;
- switch ( genericInfo->type ) {
- case GEN_MAP: {
- Map *map = colm_map_new( prg );
- map->genericInfo = genericInfo;
- newGeneric = (Tree*) map;
- break;
- }
- case GEN_MAP_EL: {
- break;
- }
- case GEN_LIST: {
- List *list = colm_list_new( prg );
- list->genericInfo = genericInfo;
- newGeneric = (Tree*) list;
- break;
- }
- case GEN_LIST_EL: {
- break;
- }
- case GEN_PARSER: {
- Parser *parser = colm_parser_new( prg, genericInfo );
- parser->input = (Tree*)colm_stream_new( prg );
- newGeneric = (Tree*) parser;
- break;
- }
- default:
- assert(false);
- return 0;
- }
-
- return newGeneric;
-}
-
-
/* We can't make recursive calls here since the tree we are freeing may be
* very large. Need the VM stack. */
void treeFreeRec( Program *prg, Tree **sp, Tree *tree )
@@ -1097,15 +1059,6 @@ free_tree:
break;
}
// case LEL_ID_STREAM: {
-// Stream *stream = (Stream*)tree;
-// clearSourceStream( prg, sp, stream->in );
-// if ( stream->in->file != 0 )
-// fclose( stream->in->file );
-// else if ( stream->in->fd >= 0 )
-// close( stream->in->fd );
-// free( stream->in );
-// streamFree( prg, stream );
-// break;
// }
default: {
if ( tree->id != LEL_ID_IGNORE )