| /* |
| * gen_ruby.c - Generate Ruby source code from "treecc" input files. |
| * |
| * Copyright (C) 2001, 2002 Southern Storm Software, Pty Ltd. |
| * |
| * Hacked by Peter Minten <silvernerd@users.sf.net> |
| * |
| * This program is free software; you can redistribute it and/or modify |
| * it under the terms of the GNU General Public License as published by |
| * the Free Software Foundation; either version 2 of the License, or |
| * (at your option) any later version. |
| * |
| * This program is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| * GNU General Public License for more details. |
| * |
| * You should have received a copy of the GNU General Public License |
| * along with this program; if not, write to the Free Software |
| * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| */ |
| |
| #include "system.h" |
| #include "input.h" |
| #include "info.h" |
| #include "gen.h" |
| |
| #ifdef __cplusplus |
| extern "C" { |
| #endif |
| |
| /* |
| * Declare the type definitions for a node type. |
| */ |
| static void DeclareTypeDefs(TreeCCContext *context, |
| TreeCCNode *node) |
| { |
| if((node->flags & TREECC_NODE_ENUM) != 0) |
| { |
| int counter = 0; |
| /* Define an enumerated type */ |
| TreeCCStream *stream = node->source; |
| TreeCCNode *child; |
| TreeCCStreamPrint(stream, "class %s \n", node->name); |
| child = node->firstChild; |
| while(child != 0) |
| { |
| if((child->flags & TREECC_NODE_ENUM_VALUE) != 0) |
| { |
| TreeCCStreamPrint(stream, " %s = %i\n", child->name, counter++); |
| } |
| |
| child = child->nextSibling; |
| } |
| TreeCCStreamPrint(stream, "end\n\n"); |
| } |
| } |
| |
| /* |
| * Output the parameters for a node creation function. |
| */ |
| static int CreateParams(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCNode *node, int needComma) |
| { |
| TreeCCField *field; |
| if(node->parent) |
| { |
| needComma = CreateParams(context, stream, node->parent, needComma); |
| } |
| field = node->fields; |
| while(field != 0) |
| { |
| if((field->flags & TREECC_FIELD_NOCREATE) == 0) |
| { |
| if(needComma) |
| { |
| TreeCCStreamPrint(stream, ", "); |
| } |
| /* Don't name the types, Ruby figures that out */ |
| TreeCCStreamPrint(stream, "%s", /*field->type,*/ field->name); |
| needComma = 1; |
| } |
| field = field->next; |
| } |
| return needComma; |
| } |
| |
| /* |
| * Output the parameters to call an inherited constructor. |
| */ |
| static int InheritParamsSource(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCNode *node, int needComma) |
| { |
| TreeCCField *field; |
| if(node->parent) |
| { |
| needComma = InheritParamsSource(context, stream, |
| node->parent, needComma); |
| } |
| field = node->fields; |
| while(field != 0) |
| { |
| if((field->flags & TREECC_FIELD_NOCREATE) == 0) |
| { |
| if(needComma) |
| { |
| TreeCCStreamPrint(stream, ", "); |
| } |
| TreeCCStreamPrint(stream, "%s", field->name); |
| needComma = 1; |
| } |
| field = field->next; |
| } |
| return needComma; |
| } |
| |
| /* |
| * Implement the virtual methods that have implementations in a node type. |
| */ |
| static void ImplementVirtuals(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCNode *node, TreeCCNode *actualNode) |
| { |
| TreeCCVirtual *virt; |
| TreeCCParam *param; |
| TreeCCOperationCase *operCase; |
| int declareCase, abstractCase; |
| TreeCCNode *tempNode; |
| int num, first; |
| int needComma; |
| if(node->parent) |
| { |
| ImplementVirtuals(context, stream, node->parent, actualNode); |
| } |
| virt = node->virtuals; |
| while(virt != 0) |
| { |
| /* Determine if we need a definition for this virtual, |
| and whether the definition is real or abstract */ |
| operCase = TreeCCOperationFindCase(context, actualNode, virt->name); |
| if(!operCase) |
| { |
| tempNode = actualNode->parent; |
| abstractCase = 1; |
| while(tempNode != 0) |
| { |
| operCase = TreeCCOperationFindCase |
| (context, tempNode, virt->name); |
| if(operCase != 0) |
| { |
| abstractCase = 0; |
| break; |
| } |
| tempNode = tempNode->parent; |
| } |
| declareCase = abstractCase; |
| } |
| else |
| { |
| declareCase = 1; |
| abstractCase = 0; |
| } |
| if(declareCase) |
| { |
| if(abstractCase) |
| { |
| if(node == actualNode) |
| { |
| TreeCCStreamPrint(stream, " def %s(", virt->name); |
| } |
| else |
| { |
| /* Inherit the "abstract" definition from the parent */ |
| virt = virt->next; |
| continue; |
| } |
| } |
| else |
| { |
| if(node == actualNode) |
| { |
| TreeCCStreamPrint(stream, " def %s(", virt->name); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, " def %s(", virt->name); |
| } |
| } |
| param = virt->oper->params; |
| needComma = 0; |
| num = 1; |
| first = 1; |
| while(param != 0) |
| { |
| if(needComma) |
| { |
| TreeCCStreamPrint(stream, ", "); |
| } |
| if(first) |
| { |
| /* Skip the first argument, which corresponds to "this" */ |
| if(!(param->name)) |
| { |
| ++num; |
| } |
| first = 0; |
| } |
| else |
| { |
| if(param->name) |
| { |
| TreeCCStreamPrint(stream, "%s", param->name); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, "P%d__", num); |
| ++num; |
| } |
| needComma = 1; |
| } |
| param = param->next; |
| } |
| if(!abstractCase) |
| { |
| TreeCCStreamPrint(stream, ")\n"); |
| TreeCCStreamLine(stream, operCase->codeLinenum, |
| operCase->codeFilename); |
| TreeCCStreamPrint(stream, " "); |
| if(!(virt->oper->params->name) || |
| !strcmp(virt->oper->params->name, "self")) |
| { |
| /* The first parameter is called "this", so we don't |
| need to declare it at the head of the function */ |
| TreeCCStreamCodeIndent(stream, operCase->code, 1); |
| } |
| else |
| { |
| /* The first parameter is called something else, |
| so create a temporary variable to hold "this" */ |
| TreeCCStreamPrint(stream, "\n %s %s = self\n ", |
| actualNode->name, |
| virt->oper->params->name); |
| TreeCCStreamCodeIndent(stream, operCase->code, 1); |
| } |
| TreeCCStreamPrint(stream, " end\n"); |
| TreeCCStreamFixLine(stream); |
| TreeCCStreamPrint(stream, "\n"); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, ")\n end\n"); |
| } |
| } |
| virt = virt->next; |
| } |
| } |
| |
| /* |
| * Build the type declarations for a node type. |
| */ |
| static void BuildTypeDecls(TreeCCContext *context, |
| TreeCCNode *node) |
| { |
| TreeCCStream *stream; |
| int needComma; |
| /*const char *constructorAccess; NOT USED*/ |
| TreeCCField *field; |
| int isAbstract; |
| |
| /* Ignore if this is an enumerated type node */ |
| if((node->flags & (TREECC_NODE_ENUM | TREECC_NODE_ENUM_VALUE)) != 0) |
| { |
| return; |
| } |
| |
| /* Determine if this class has abstract virtuals */ |
| isAbstract = TreeCCNodeHasAbstracts(context, node); |
| |
| /* Output the class header */ |
| stream = node->source; |
| if(node->parent) |
| { |
| /* Inherit from a specified parent type */ |
| /* Ruby doesn't know abstract */ |
| /* |
| if(isAbstract) |
| { |
| TreeCCStreamPrint(stream, "public abstract class %s : %s\n{\n", |
| node->name, node->parent->name); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, "public class %s : %s\n{\n", |
| node->name, node->parent->name); |
| } |
| */ |
| TreeCCStreamPrint(stream, "class %s < %s\n", |
| node->name, node->parent->name); |
| } |
| else |
| { |
| /* This type is the base of a class hierarchy */ |
| /* Ruby doesn't know abstract */ |
| /* if(isAbstract) |
| { |
| TreeCCStreamPrint(stream, "public abstract class %s\n{\n", |
| node->name); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, "public class %s\n{\n", node->name); |
| }*/ |
| |
| TreeCCStreamPrint(stream, "class %s\n", node->name); |
| |
| /* Declare the node kind member variable */ |
| /* No declaration needed in Ruby */ |
| |
| /* Declare the filename and linenum fields if we are tracking lines */ |
| /* Not needed */ |
| |
| /* Declare the public methods for access to the above fields */ |
| /* Ruby has handy accessor creating stuff */ |
| /*TreeCCStreamPrint(stream, |
| " public int getKind() { return kind__; }\n");*/ |
| TreeCCStreamPrint(stream, |
| " protected\n attr_reader :kind\n public\n\n"); |
| |
| if(context->track_lines) |
| { |
| /* A same kind of hack here*/ |
| /*TreeCCStreamPrint(stream, |
| " public String getFilename() { return filename__; }\n"); |
| TreeCCStreamPrint(stream, |
| " public long getLinenum() { return linenum__; }\n"); |
| TreeCCStreamPrint(stream, |
| " public void setFilename(String filename) " |
| "{ filename__ = filename; }\n"); |
| TreeCCStreamPrint(stream, |
| " public void setLinenum(long linenum) " |
| "{ linenum__ = linenum; }\n");*/ |
| TreeCCStreamPrint(stream, |
| " attr_accessor :Linenum, :Filename\n"); |
| } |
| TreeCCStreamPrint(stream, "\n"); |
| } |
| |
| /* Add the attr_accessor stuff for nodes specific to this node type */ |
| field = node->fields; |
| while(field != 0) |
| { |
| TreeCCStreamPrint(stream, " attr_accessor :%s\n", field->name); |
| field = field->next; |
| } |
| /* End this section with an extra newline */ |
| TreeCCStreamPrint(stream, "\n"); |
| |
| /* Declare the kind value */ |
| /* Stick to the Ruby convention of constants, start with Uppercase, |
| continue with lowercase */ |
| /* The parent doesn't matter, so don't check it */ |
| TreeCCStreamPrint(stream, " KIND = %d\n\n", |
| node->number); |
| |
| /* Declare the constructor for the node type */ |
| /* A constructor is always public (I hope) anyway I don't expect |
| Ruby to cause troubles here */ |
| |
| /* The constructor is ALWAYS called initialize */ |
| TreeCCStreamPrint(stream, " def initialize("); |
| if(context->reentrant) |
| { |
| TreeCCStreamPrint(stream, "state__"); |
| needComma = 1; |
| |
| } |
| else |
| { |
| needComma = 0; |
| } |
| |
| CreateParams(context, stream, node, needComma); |
| |
| TreeCCStreamPrint(stream, ")\n"); |
| |
| /* Enter the super call */ |
| /* Call the parent class constructor */ |
| if(node->parent) |
| { |
| /* Do not use base, Ruby uses super for that */ |
| /*TreeCCStreamPrint(stream, " : base(");*/ |
| TreeCCStreamPrint(stream, " super("); |
| if(context->reentrant) |
| { |
| TreeCCStreamPrint(stream, "@state"); |
| needComma = 1; |
| } |
| else |
| { |
| needComma = 0; |
| } |
| CreateParams(context, stream, node, needComma); |
| InheritParamsSource(context, stream, node->parent, needComma); |
| TreeCCStreamPrint(stream, ")\n"); |
| } |
| |
| /* Set the node kind */ |
| TreeCCStreamPrint(stream, " @kind = KIND\n"); |
| |
| /* Track the filename and line number if necessary */ |
| if(context->track_lines && !(node->parent)) |
| { |
| if(context->reentrant) |
| { |
| TreeCCStreamPrint(stream, |
| " @Filename = @state.currFilename\n"); |
| TreeCCStreamPrint(stream, |
| " @Finenum = @state.currLinenum\n"); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, |
| " @Filename = %s.state.currFilename()\n", |
| context->state_type); |
| TreeCCStreamPrint(stream, |
| " @Linenum = %s.state.currLinenum()\n", |
| context->state_type); |
| } |
| } |
| |
| /* Initialize the fields that are specific to this node type */ |
| field = node->fields; |
| while(field != 0) |
| { |
| if((field->flags & TREECC_FIELD_NOCREATE) == 0) |
| { |
| TreeCCStreamPrint(stream, " self.%s = %s\n", |
| field->name, field->name); |
| } |
| else if(field->value) |
| { |
| TreeCCStreamPrint(stream, " self.%s = %s\n", |
| field->name, field->value); |
| } |
| field = field->next; |
| } |
| TreeCCStreamPrint(stream, " end\n\n"); |
| |
| /* Implement the virtual functions */ |
| ImplementVirtuals(context, stream, node, node); |
| |
| /* Declare the "isA" and "getKindName" helper methods */ |
| |
| TreeCCStreamPrint(stream, " def isA(kind)\n"); |
| |
| TreeCCStreamPrint(stream, " if(@kind == KIND) then\n"); |
| TreeCCStreamPrint(stream, " return true\n"); |
| TreeCCStreamPrint(stream, " else\n"); |
| if(node->parent) |
| { |
| TreeCCStreamPrint(stream, " return super(kind)\n end\n"); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, " return 0\n end\n"); |
| } |
| TreeCCStreamPrint(stream, " end\n\n"); |
| |
| TreeCCStreamPrint(stream, " def KindName\n"); |
| |
| TreeCCStreamPrint(stream, " return \"%s\"\n", node->name); |
| TreeCCStreamPrint(stream, " end\n"); |
| |
| /* Output the class footer */ |
| TreeCCStreamPrint(stream, "end\n\n"); |
| } |
| |
| /* |
| * Declare the parameters for a factory method in the state type. |
| */ |
| static int FactoryCreateParams(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCNode *node, int needComma) |
| { |
| TreeCCField *field; |
| if(node->parent) |
| { |
| needComma = FactoryCreateParams(context, stream, |
| node->parent, needComma); |
| } |
| field = node->fields; |
| while(field != 0) |
| { |
| if((field->flags & TREECC_FIELD_NOCREATE) == 0) |
| { |
| if(needComma) |
| { |
| TreeCCStreamPrint(stream, ", "); |
| } |
| /* Delete the types */ |
| TreeCCStreamPrint(stream, "%s", field->name); |
| needComma = 1; |
| } |
| field = field->next; |
| } |
| return needComma; |
| } |
| |
| /* |
| * Output invocation parameters for a call to a constructor |
| * from within a factory method. |
| */ |
| static int FactoryInvokeParams(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCNode *node, int needComma) |
| { |
| TreeCCField *field; |
| if(node->parent) |
| { |
| needComma = FactoryInvokeParams(context, stream, |
| node->parent, needComma); |
| } |
| field = node->fields; |
| while(field != 0) |
| { |
| if((field->flags & TREECC_FIELD_NOCREATE) == 0) |
| { |
| if(needComma) |
| { |
| TreeCCStreamPrint(stream, ", "); |
| } |
| TreeCCStreamPrint(stream, "%s", field->name); |
| needComma = 1; |
| } |
| field = field->next; |
| } |
| return needComma; |
| } |
| |
| /* |
| * Implement the create function for a node type. |
| */ |
| static void ImplementCreateFuncs(TreeCCContext *context, TreeCCNode *node) |
| { |
| TreeCCStream *stream; |
| |
| /* Ignore if this is an enumerated type node */ |
| if((node->flags & (TREECC_NODE_ENUM | TREECC_NODE_ENUM_VALUE)) != 0) |
| { |
| return; |
| } |
| |
| /* Ignore this if it is an abstract node */ |
| if((node->flags & TREECC_NODE_ABSTRACT) != 0) |
| { |
| return; |
| } |
| |
| /* Determine which stream to write to */ |
| if(context->commonSource) |
| { |
| stream = context->commonSource; |
| } |
| else |
| { |
| stream = context->sourceStream; |
| } |
| |
| /* Output the start of the function definition */ |
| TreeCCStreamPrint(stream, " def %s %sCreate(", |
| node->name, node->name); |
| |
| /* Output the parameters for the create function */ |
| FactoryCreateParams(context, stream, node, 0); |
| |
| /* Output the body of the creation function */ |
| if(context->abstract_factory) |
| { |
| TreeCCStreamPrint(stream, ")\n"); |
| TreeCCStreamPrint(stream, "raise \"Abstract method called: %s\\n\"\n", node->name); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, ")\n"); |
| TreeCCStreamPrint(stream, " return %s.new(this", node->name); |
| FactoryInvokeParams(context, stream, node, 1); |
| TreeCCStreamPrint(stream, ")\n"); |
| TreeCCStreamPrint(stream, " end\n\n"); |
| } |
| } |
| |
| /* |
| * Implement the state type in the source stream. |
| */ |
| static void ImplementStateType(TreeCCContext *context, TreeCCStream *stream) |
| { |
| TreeCCStreamPrint(stream, "class %s\n", |
| context->state_type); |
| |
| TreeCCStreamPrint(stream, " @@state = nil\n"); |
| |
| /* Singleton handling for non-reentrant systems */ |
| if(!(context->reentrant)) |
| { |
| TreeCCStreamPrint(stream, " def %s.state\n", context->state_type); |
| TreeCCStreamPrint(stream, " return @@state unless @@state.nil?\n"); |
| TreeCCStreamPrint(stream, " @@state = %s.new()\n", |
| context->state_type); |
| TreeCCStreamPrint(stream, " return @@state\n"); |
| TreeCCStreamPrint(stream, " end\n\n"); |
| } |
| |
| /* Implement the constructor */ |
| if(context->reentrant) |
| { |
| /* No constructor */ |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, " def intialize \n @@state = self \n end\n\n"); |
| } |
| |
| /* Implement the create functions for all of the node types */ |
| if(context->reentrant) |
| { |
| TreeCCNodeVisitAll(context, ImplementCreateFuncs); |
| } |
| |
| /* Implement the line number tracking methods */ |
| if(context->track_lines) |
| { |
| TreeCCStreamPrint(stream, |
| " def currFilename \n return nil \n end\n\n"); |
| TreeCCStreamPrint(stream, |
| " def currLinenum \n return 0 \n end\n\n"); |
| } |
| |
| /* Declare the end of the state type */ |
| TreeCCStreamPrint(stream, "end\n\n"); |
| } |
| |
| /* |
| * Write out header information for all streams. |
| */ |
| static void WriteRubyHeaders(TreeCCContext *context) |
| { |
| TreeCCStream *stream = context->streamList; |
| while(stream != 0) |
| { |
| if(!(stream->isHeader)) |
| { |
| TreeCCStreamPrint(stream, |
| "# %s. Generated automatically by treecc \n\n", |
| stream->embedName); |
| if(context->namespace) |
| { |
| TreeCCStreamPrint(stream, "module %s\nbegin\n\n", |
| context->namespace); |
| } |
| /*Ruby doesn't require a System lib to be included*/ |
| /*TreeCCStreamPrint(stream, "using System;\n\n");*/ |
| TreeCCStreamSourceTopCS(stream); |
| } |
| if(stream->defaultFile) |
| { |
| /* Reset the dirty flag if this is a default stream, |
| because we don't want to write out the final file |
| if it isn't actually written to in practice */ |
| stream->dirty = 0; |
| } |
| stream = stream->nextStream; |
| } |
| } |
| |
| /* |
| * Write out footer information for all streams. |
| */ |
| static void WriteRubyFooters(TreeCCContext *context) |
| { |
| TreeCCStream *stream = context->streamList; |
| while(stream != 0) |
| { |
| if(stream->defaultFile && !(stream->dirty)) |
| { |
| /* Clear the default file's contents, which we don't need */ |
| TreeCCStreamClear(stream); |
| } |
| else if(!(stream->isHeader)) |
| { |
| TreeCCStreamSourceBottom(stream); |
| if(context->namespace) |
| { |
| TreeCCStreamPrint(stream, "end\n"); |
| } |
| } |
| stream = stream->nextStream; |
| } |
| } |
| |
| /* |
| * Determine if a type name corresponds to an enumerated type. |
| */ |
| static int IsEnumType(TreeCCContext *context, const char *type) |
| { |
| TreeCCNode *node = TreeCCNodeFindByType(context, type); |
| if(node) |
| { |
| if((node->flags & TREECC_NODE_ENUM) != 0) |
| { |
| return 1; |
| } |
| } |
| return 0; |
| } |
| |
| /* |
| * Output spaces's for a specific level of indenting. |
| */ |
| static void Indent(TreeCCStream *stream, int indent) |
| { |
| while(indent >= 4) |
| { |
| TreeCCStreamPrint(stream, " "); |
| indent -= 4; |
| } |
| if(indent == 1) |
| { |
| TreeCCStreamPrint(stream, " "); |
| } |
| else if(indent == 2) |
| { |
| TreeCCStreamPrint(stream, " "); |
| } |
| else if(indent == 3) |
| { |
| TreeCCStreamPrint(stream, " "); |
| } |
| } |
| |
| /* |
| * Non-virtual code generation functions start here |
| */ |
| |
| /* |
| * Generate the start declarations for a non-virtual operation. |
| */ |
| static void Ruby_GenStart(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperation *oper) |
| { |
| if(oper->className) |
| { |
| TreeCCStreamPrint(stream, "class %s\n", oper->className); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, "class %s\n", oper->name); |
| } |
| } |
| |
| /* |
| * Generate the entry point for a non-virtual operation. |
| */ |
| static void RubyGenEntry(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperation *oper, int number) |
| { |
| TreeCCParam *param; |
| int num; |
| int needComma; |
| char *cname; |
| |
| if(oper->className) |
| { |
| cname = oper->className; |
| } |
| else |
| { |
| cname = oper->name; |
| } |
| |
| if(number != -1) |
| { |
| TreeCCStreamPrint(stream, " private \n def %s.%s_split_%d__(", |
| cname, oper->name, number); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, " public \n def %s.%s(", |
| cname, oper->name); |
| } |
| |
| param = oper->params; |
| num = 1; |
| needComma = 0; |
| while(param != 0) |
| { |
| if(needComma) |
| { |
| TreeCCStreamPrint(stream, ", "); |
| } |
| if(param->name) |
| { |
| TreeCCStreamPrint(stream, "%s", param->name); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, "p%d__", num); |
| ++num; |
| } |
| if((param->flags & TREECC_PARAM_TRIGGER) != 0) |
| { |
| if(!IsEnumType(context, param->type)) |
| { |
| TreeCCStreamPrint(stream, "__"); |
| } |
| } |
| needComma = 1; |
| param = param->next; |
| } |
| TreeCCStreamPrint(stream, ")\n"); |
| } |
| |
| /* |
| * Generate the entry point for a non-virtual operation. |
| */ |
| static void Ruby_GenEntry(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperation *oper) |
| { |
| RubyGenEntry(context, stream, oper, -1); |
| } |
| |
| /* |
| * Generate the entry point for a split-out function. |
| */ |
| static void Ruby_GenSplitEntry(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperation *oper, int number) |
| { |
| RubyGenEntry(context, stream, oper, number); |
| } |
| |
| /* |
| * Generate the head of a "switch" statement. |
| */ |
| static void Ruby_GenSwitchHead(TreeCCContext *context, TreeCCStream *stream, |
| char *paramName, int level, int isEnum) |
| { |
| Indent(stream, level * 2 + 2); |
| if(isEnum) |
| { |
| TreeCCStreamPrint(stream, "case %s\n", paramName); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, "case %s__.type::KIND\n", paramName); |
| } |
| Indent(stream, level * 2 + 2); |
| TreeCCStreamPrint(stream, "\n"); |
| } |
| |
| /* |
| * Generate a selector for a "switch" case. |
| */ |
| static void Ruby_GenSelector(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCNode *node, int level) |
| { |
| if((node->flags & TREECC_NODE_ENUM_VALUE) != 0) |
| { |
| Indent(stream, level * 2 + 3); |
| TreeCCStreamPrint(stream, "when %s.%s\n", |
| node->parent->name, node->name); |
| } |
| else if((node->flags & TREECC_NODE_ENUM) == 0) |
| { |
| Indent(stream, level * 2 + 3); |
| TreeCCStreamPrint(stream, "when %s::KIND\n", node->name); |
| } |
| } |
| |
| /* |
| * Terminate the selectors and begin the body of a "switch" case. |
| */ |
| static void Ruby_GenEndSelectors(TreeCCContext *context, TreeCCStream *stream, |
| int level) |
| { |
| /* No use for this in Ruby */ |
| } |
| |
| /* |
| * Generate the code for a case within a function. |
| */ |
| static void Ruby_GenCaseFunc(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperationCase *operCase, int number) |
| { |
| TreeCCParam *param; |
| TreeCCTrigger *trigger; |
| int num; |
| int needComma; |
| char *type; |
| char *cname; |
| |
| if(operCase->oper->className) |
| { |
| cname = operCase->oper->className; |
| } |
| else |
| { |
| cname = operCase->oper->name; |
| } |
| |
| /* Output the header for the function */ |
| TreeCCStreamPrint(stream, " private \n def %s.%s_%d__(", |
| cname, operCase->oper->name, number); |
| param = operCase->oper->params; |
| trigger = operCase->triggers; |
| num = 1; |
| needComma = 0; |
| while(param != 0) |
| { |
| if(needComma) |
| { |
| TreeCCStreamPrint(stream, ", "); |
| } |
| if((param->flags & TREECC_PARAM_TRIGGER) != 0) |
| { |
| if((trigger->node->flags & TREECC_NODE_ENUM) == 0 && |
| (trigger->node->flags & TREECC_NODE_ENUM_VALUE) == 0) |
| { |
| type = trigger->node->name; |
| } |
| else |
| { |
| type = param->type; |
| } |
| trigger = trigger->next; |
| } |
| else |
| { |
| type = param->type; |
| } |
| if(param->name) |
| { |
| TreeCCStreamPrint(stream, "%s", param->name); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, "p%d__", num); |
| ++num; |
| } |
| needComma = 1; |
| param = param->next; |
| } |
| TreeCCStreamPrint(stream, ")\n"); |
| |
| /* Output the code for the operation case */ |
| if(operCase->code) |
| { |
| TreeCCStreamCodeIndent(stream, operCase->code, 1); |
| } |
| TreeCCStreamPrint(stream, "end\n"); |
| TreeCCStreamPrint(stream, "\n"); |
| } |
| |
| /* |
| * Generate a call to a case function from within the "switch". |
| */ |
| static void Ruby_GenCaseCall(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperationCase *operCase, int number, |
| int level) |
| { |
| TreeCCParam *param; |
| TreeCCTrigger *trigger; |
| int num; |
| int needComma; |
| |
| /* Indent to the correct level */ |
| Indent(stream, level * 2 + 1); |
| |
| /* Print out the call */ |
| TreeCCStreamPrint(stream, "%s_%d__(", operCase->oper->name, number); |
| param = operCase->oper->params; |
| trigger = operCase->triggers; |
| num = 1; |
| needComma = 0; |
| while(param != 0) |
| { |
| if(needComma) |
| { |
| TreeCCStreamPrint(stream, ", "); |
| } |
| /* if((param->flags & TREECC_PARAM_TRIGGER) != 0) |
| { |
| if((trigger->node->flags & TREECC_NODE_ENUM) == 0 && |
| (trigger->node->flags & TREECC_NODE_ENUM_VALUE) == 0) |
| { |
| TreeCCStreamPrint(stream, "(%s)", trigger->node->name); |
| } |
| }*/ |
| if(param->name) |
| { |
| TreeCCStreamPrint(stream, "%s", param->name); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, "p%d__", num); |
| ++num; |
| } |
| if((param->flags & TREECC_PARAM_TRIGGER) != 0) |
| { |
| if((trigger->node->flags & TREECC_NODE_ENUM) == 0 && |
| (trigger->node->flags & TREECC_NODE_ENUM_VALUE) == 0) |
| { |
| TreeCCStreamPrint(stream, "__"); |
| } |
| trigger = trigger->next; |
| } |
| needComma = 1; |
| param = param->next; |
| } |
| TreeCCStreamPrint(stream, ")\n"); |
| } |
| |
| /* |
| * Generate the code for a case inline within the "switch". |
| */ |
| static void Ruby_GenCaseInline(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperationCase *operCase, int level) |
| { |
| TreeCCParam *param; |
| TreeCCTrigger *trigger; |
| |
| /* Copy the parameters to new variables of the correct types */ |
| param = operCase->oper->params; |
| trigger = operCase->triggers; |
| while(param != 0) |
| { |
| if((param->flags & TREECC_PARAM_TRIGGER) != 0) |
| { |
| if(param->name != 0) |
| { |
| if((trigger->node->flags & TREECC_NODE_ENUM) == 0 && |
| (trigger->node->flags & TREECC_NODE_ENUM_VALUE) == 0) |
| { |
| Indent(stream, level * 2 + 4); |
| TreeCCStreamPrint(stream, "%s = %s__;\n", |
| param->name, param->name); |
| } |
| } |
| trigger = trigger->next; |
| } |
| param = param->next; |
| } |
| |
| /* Output the inline code for the case */ |
| Indent(stream, level * 2 + 4); |
| if(operCase->code) |
| { |
| /* Multiply the indent level by two because every ident is one space */ |
| TreeCCStreamCodeIndentCustom |
| (stream, operCase->code,' ',(level * 2 + 3) * 2); |
| } |
| Indent(stream, level * 2 + 4); |
| TreeCCStreamPrint(stream, "\n"); |
| } |
| |
| /* |
| * Generate a call to a split function from within the "switch". |
| */ |
| static void Ruby_GenCaseSplit(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperationCase *operCase, |
| int number, int level) |
| { |
| TreeCCParam *param; |
| TreeCCTrigger *trigger; |
| int num; |
| int needComma; |
| |
| /* Indent to the correct level */ |
| Indent(stream, level * 2 + 2); |
| |
| /* Print out the call */ |
| TreeCCStreamPrint(stream, "%s_split_%d__(", operCase->oper->name, number); |
| param = operCase->oper->params; |
| trigger = operCase->triggers; |
| num = 1; |
| needComma = 0; |
| while(param != 0) |
| { |
| if(needComma) |
| { |
| TreeCCStreamPrint(stream, ", "); |
| } |
| if((param->flags & TREECC_PARAM_TRIGGER) != 0) |
| { |
| if((trigger->node->flags & TREECC_NODE_ENUM) == 0 && |
| (trigger->node->flags & TREECC_NODE_ENUM_VALUE) == 0) |
| { |
| TreeCCStreamPrint(stream, "%s", trigger->node->name); |
| } |
| } |
| if(param->name) |
| { |
| TreeCCStreamPrint(stream, "%s", param->name); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, "p%d__", num); |
| ++num; |
| } |
| if((param->flags & TREECC_PARAM_TRIGGER) != 0) |
| { |
| if((trigger->node->flags & TREECC_NODE_ENUM) == 0 && |
| (trigger->node->flags & TREECC_NODE_ENUM_VALUE) == 0) |
| { |
| TreeCCStreamPrint(stream, "__"); |
| } |
| trigger = trigger->next; |
| } |
| needComma = 1; |
| param = param->next; |
| } |
| TreeCCStreamPrint(stream, ")\n"); |
| } |
| |
| /* |
| * Terminate a "switch" case. |
| */ |
| static void Ruby_GenEndCase(TreeCCContext *context, TreeCCStream *stream, |
| int level) |
| { |
| /*Indent(stream, level * 2 + 3); |
| TreeCCStreamPrint(stream, "\n");*/ |
| } |
| |
| /* |
| * Terminate the "switch" statement. |
| */ |
| static void Ruby_GenEndSwitch(TreeCCContext *context, TreeCCStream *stream, |
| int level) |
| { |
| Indent(stream, level * 2 + 3); |
| TreeCCStreamPrint(stream, "else\n"); |
| Indent(stream, level * 2 + 2); |
| TreeCCStreamPrint(stream, "end\n"); |
| } |
| |
| /* |
| * Generate the exit point for a non-virtual operation. |
| */ |
| static void Ruby_GenExit(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperation *oper) |
| { |
| if(strcmp(oper->returnType, "void") != 0) |
| { |
| /* Generate a default return value for the function */ |
| if(oper->defValue) |
| { |
| TreeCCStreamPrint(stream, " return %s\n", oper->defValue); |
| } |
| else |
| { |
| TreeCCStreamPrint(stream, " return 0\n"); |
| } |
| } |
| TreeCCStreamPrint(stream, " end\n"); |
| } |
| |
| /* |
| * Generate the end declarations for a non-virtual operation. |
| */ |
| static void Ruby_GenEnd(TreeCCContext *context, TreeCCStream *stream, |
| TreeCCOperation *oper) |
| { |
| TreeCCStreamPrint(stream, "end\n"); |
| } |
| |
| /* |
| * Table of non-virtual code generation functions. |
| */ |
| TreeCCNonVirtual const TreeCCNonVirtualFuncsRuby = { |
| Ruby_GenStart, |
| Ruby_GenEntry, |
| Ruby_GenSplitEntry, |
| Ruby_GenSwitchHead, |
| Ruby_GenSelector, |
| Ruby_GenEndSelectors, |
| Ruby_GenCaseFunc, |
| Ruby_GenCaseCall, |
| Ruby_GenCaseInline, |
| Ruby_GenCaseSplit, |
| Ruby_GenEndCase, |
| Ruby_GenEndSwitch, |
| Ruby_GenExit, |
| Ruby_GenEnd, |
| }; |
| |
| void TreeCCGenerateRuby(TreeCCContext *context) |
| { |
| /* Write all stream headers */ |
| WriteRubyHeaders(context); |
| |
| /* Generate the contents of the source stream */ |
| TreeCCNodeVisitAll(context, DeclareTypeDefs); |
| if(context->commonSource) |
| { |
| ImplementStateType(context, context->commonSource); |
| } |
| else |
| { |
| ImplementStateType(context, context->sourceStream); |
| } |
| TreeCCNodeVisitAll(context, BuildTypeDecls); |
| /* NO JAVA PLEASE */ |
| TreeCCGenerateNonVirtuals(context, &TreeCCNonVirtualFuncsRuby); |
| |
| |
| /* Write all stream footers */ |
| WriteRubyFooters(context); |
| } |
| |
| #ifdef __cplusplus |
| }; |
| #endif |