[Gridflow-cvs] [svn] commit: r4918 - /trunk/src/source_filter.rb

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Sun Jan 24 14:35:00 EST 2010


Author: matju
Date: Sun Jan 24 14:35:00 2010
New Revision: 4918

Log:
DEF_IN,DEF_OUT also for \constructor

Modified:
    trunk/src/source_filter.rb

Modified: trunk/src/source_filter.rb
==============================================================================
--- trunk/src/source_filter.rb (original)
+++ trunk/src/source_filter.rb Sun Jan 24 14:35:00 2010
@@ -199,7 +199,7 @@
 	m = parse_methoddecl("void constructor"+line,"(.*)$")
 	Out.print "#{frame.name}(BFObject *bself, MESSAGE) : #{frame.supername}(bself,MESSAGE2) {"
 	Out.print "static const char *methodspec = \"#{frame.name}::#{m.selector}(#{unparse_arglist m.arglist,false})\";"
-
+	Out.print "DEF_IN;"
 	Out.print "if (argc<#{m.minargs}"
 	Out.print "||argc>#{m.maxargs}" if m.maxargs!=-1
 	Out.print ") RAISE(\"got %d args instead of %d..%d in %s\",argc,#{m.minargs},#{m.maxargs},methodspec);"
@@ -211,7 +211,7 @@
 			Out.print ",convert(argv[#{i}],(#{arg.type}*)0)"
 		end
 	}
-	Out.print ");}"
+	Out.print ");DEF_OUT;}"
 	Out.print "#{m.rettype} #{m.selector}(MESSAGE"
 	Out.print ", #{unparse_arglist m.arglist}" if m.arglist.length>0
 	Out.print ") "+line[/\{.*/]



More information about the Gridflow-cvs mailing list