1 files changed, 274 insertions, 0 deletions
diff --git a/externals/gridflow/base/source_filter.rb b/externals/gridflow/base/source_filter.rb
new file mode 100644
index 00000000..59e24867
--- /dev/null
+++ b/externals/gridflow/base/source_filter.rb
@@ -0,0 +1,274 @@
+$keywords = %w(class decl def end grdecl)
+$stack = []
+$classes = []
+
+ClassDecl = Struct.new(:name,:supername,:methods,:grins,:attrs,:info)
+MethodDecl = Struct.new(:rettype,:selector,:arglist,:minargs,:maxargs,:where)
+Arg = Struct.new(:type,:name,:default)
+
+class MethodDecl
+	def ==(o)
+		return false unless rettype==o.rettype &&
+		maxargs==o.maxargs # && minargs==o.minargs 
+		arglist.each_index{|i| arglist[i] == o.arglist[i] or return false }
+		return true
+	end
+end
+
+class Arg
+	def ==(o)
+		type==o.type && name==o.name # && default==o.default
+	end
+end
+
+In = File.open ARGV[0], "r"
+Out = File.open ARGV[1], "w"
+
+def handle_class(line)
+	raise "already in class #{where}" if $stack[-1] and ClassDecl===$stack[-1]
+	#STDERR.puts "class: #{line}"
+	/^(\w+)(?:\s*<\s*(\w+))?$/.match line or raise "syntax error #{where}"
+	q=ClassDecl.new($1,$2,{},{},{},false)
+	$stack << q
+	$classes << q
+	Out.puts ""
+end
+
+def parse_methoddecl(line,term)
+	/^(\w+)\s+(\w+)\s*\(([^\)]*)\)\s*#{term}/.match line or
+		raise "syntax error #{where} #{line}"
+	rettype,selector,arglist = $1,$2,$3
+	arglist,minargs,maxargs = parse_arglist arglist
+	MethodDecl.new(rettype,selector,arglist,minargs,maxargs,where)
+end
+
+def parse_arglist(arglist)
+	arglist = arglist.split(/,/)
+	maxargs = arglist.length
+	args = arglist.map {|arg|
+		if /^\s*\.\.\.\s*$/.match arg then maxargs=-1; next end
+		/^\s*([\w\s\*<>]+)\s*\b(\w+)\s*(?:\=(.*))?/.match arg or
+			raise "syntax error in \"#{arg}\" #{where}"
+		type,name,default=$1,$2,$3
+		Arg.new(type.sub(/\s+$/,""),name,default)
+	}.compact
+	minargs = args.length
+	minargs-=1 while minargs>0 and args[minargs-1].default
+	[args,minargs,maxargs]
+end
+
+def unparse_arglist(arglist,with_default=true)
+	arglist.map {|arg|
+		x="#{arg.type} #{arg.name} "
+		x<<'='<<arg.default if with_default and arg.default
+		x
+	}.join(", ")
+end
+
+def where
+  "[#{ARGV[0]}:#{$linenumber}]"
+end
+
+def handle_attr(line)
+	type = line.gsub(%r"//.*$","").gsub(%r"/\*.*\*/","").gsub(%r";?\s*$","")
+	name = type.slice!(/\w+$/)
+	raise "missing \\class #{where}" if
+		not $stack[-1] or not ClassDecl===$stack[-1]
+	$stack[-1].attrs[name]=Arg.new(type,name,nil)
+	Out.print line
+	Out.puts "//FCS"
+	handle_decl "void _0_#{name}_m (#{type} #{name});"
+	Out.puts "# #{$linenumber}"
+end
+
+def handle_decl(line)
+	raise "missing \\class #{where}" if
+		not $stack[-1] or not ClassDecl===$stack[-1]
+	classname = $stack[-1].name
+	m = parse_methoddecl(line,";\s*$")
+	$stack[-1].methods[m.selector] = m
+
+	Out.print "#{m.rettype} #{m.selector}(int argc, Ruby *argv"
+	Out.print "," if m.arglist.length>0
+	Out.print "#{unparse_arglist m.arglist});"
+	Out.puts "static Ruby #{m.selector}_wrap"+
+	"(int argc, Ruby *argv, Ruby rself);//FCS"
+	Out.puts "# #{$linenumber+1}"
+end
+
+def handle_def(line)
+	m = parse_methoddecl(line,"\{?.*$")
+	term = line[/\{.*/]
+	qlass = $stack[-1]
+	raise "missing \\class #{where}" if not qlass or not ClassDecl===qlass
+	classname = qlass.name
+	if qlass.methods[m.selector]
+		n = m; m = qlass.methods[m.selector]
+		if m!=n then
+			STDERR.puts "warning: def does not match decl:"
+			STDERR.puts "#{m.where}: \\decl #{m.inspect}"
+			STDERR.puts "#{n.where}: \\def #{n.inspect}"
+		end
+	else
+		qlass.methods[m.selector] = m
+	end
+
+	Out.print "Ruby #{classname}::#{m.selector}_wrap"+
+	"(int argc, Ruby *argv, Ruby rself) {"+
+	"static const char *methodspec = "+
+	"\"#{qlass.name}::#{m.selector}(#{unparse_arglist m.arglist,false})\";"+
+	"DGS(#{classname});"
+
+	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);"
+
+	error = proc {|x,y|
+		"RAISE(\"got %s instead of #{x} in %s\","+
+		"rb_str_ptr(rb_inspect(rb_obj_class(#{y}))),methodspec)"
+	}
+
+	m.arglist.each_with_index{|arg,i|
+		case arg.type
+		when "Symbol"
+			Out.print "if (argc>#{i} && TYPE(argv[#{i}])!=T_SYMBOL) "+
+			error[arg.type,"argv[#{i}]"]+";"
+		when "Array"
+			Out.print "if (argc>#{i} && TYPE(argv[#{i}])!=T_ARRAY) "+
+			error[arg.type,"argv[#{i}]"]+";"
+		when "String"
+			Out.print "if (argc>#{i} && TYPE(argv[#{i}])==T_SYMBOL) "+
+			"argv[#{i}]=rb_funcall(argv[#{i}],SI(to_s),0);"
+			Out.print "if (argc>#{i} && TYPE(argv[#{i}])!=T_STRING) "+
+			error[arg.type,"argv[#{i}]"]+";"
+		end
+	}
+
+#	Out.print "return " if m.rettype!="void"
+	Out.print "VALUE foo = " if m.rettype!="void" ###
+
+	Out.print " self->#{m.selector}(argc,argv"
+	m.arglist.each_with_index{|arg,i|
+		if arg.default then
+			Out.print ",argc<#{i+1}?#{arg.default}:convert(argv[#{i}],(#{arg.type}*)0)"
+		else
+			Out.print ",convert(argv[#{i}],(#{arg.type}*)0)"
+		end
+	}
+	Out.print ");"
+	Out.print "self->check_magic();"
+	Out.print "return Qnil;" if m.rettype=="void"
+	Out.print "return foo;" if m.rettype!="void" ###
+	Out.print "} #{m.rettype} #{classname}::#{m.selector}(int argc, Ruby *argv"
+	Out.print "," if m.arglist.length>0
+	Out.puts "#{unparse_arglist m.arglist, false})#{term}//FCS"
+end
+
+def handle_classinfo(line)
+	frame = $stack[-1]
+	cl = frame.name
+	line="{}" if /^\s*$/ =~ line
+	Out.puts "static void #{cl}_startup (Ruby rself);"
+	Out.puts "static void *#{cl}_allocator () {return new #{cl};}"
+	Out.puts "static MethodDecl #{cl}_methods[] = {"
+	Out.puts frame.methods.map {|foo,method|
+		c,s = frame.name,method.selector
+		"{ \"#{s}\",(RMethod)#{c}::#{s}_wrap }"
+	}.join(",")
+	Out.puts "}; FClass ci#{cl} = { #{cl}_allocator, #{cl}_startup,"
+	Out.puts "#{cl.inspect}, COUNT(#{cl}_methods), #{cl}_methods };"
+	Out.puts "void #{frame.name}_startup (Ruby rself) "+line
+end
+
+def handle_grin(line)
+	fields = line.split(/\s+/)
+	i = fields[0].to_i
+	c = $stack[-1].name
+	Out.print "template <class T> void grin_#{i}(GridInlet *in, int n, Pt<T> data);"
+	Out.print "template <class T> static void grinw_#{i} (GridInlet *in, int n, Pt<T> data);"
+	Out.print "static GridHandler grid_#{i}_hand;"
+	handle_decl "Ruby _#{i}_grid(...);"
+	$stack[-1].grins[i] = fields.dup
+end
+
+def handle_end(line)
+	frame = $stack.pop
+	fields = line.split(/\s+/)
+	n = fields.length
+	if ClassDecl===frame then
+		#handle_classinfo if not frame.info
+		cl = frame.name
+		if fields[0]!="class" or
+		(n>1 and fields[1]!=cl)
+		then raise "end not matching #{where}" end
+		$stack.push frame
+		frame.attrs.each {|name,attr|
+			type,name,default = attr.to_a
+			#STDERR.puts "type=#{type} name=#{name} default=#{default}"
+			handle_def "void _0_#{name}_m (#{type} #{name}) { this->#{name}=#{name}; }"
+		}
+		frame.grins.each {|i,v|
+			k = case v[1]
+			when nil; '4'
+			when 'int32'; '1'
+			when 'int'; '2'
+			when 'float'; 'F'
+			else raise 'BORK BORK BORK' end
+			Out.print "static GridHandler #{cl}_grid_#{i}_hand = GRIN#{k}(#{cl},#{i});"
+			handle_def "Ruby _#{i}_grid(...) {"+
+				"if (in.size()<=#{i}) in.resize(#{i}+1);"+
+				"if (!in[#{i}]) in[#{i}]=new GridInlet((GridObject *)this,&#{cl}_grid_#{i}_hand);"+
+				"return in[#{i}]->begin(argc,argv);}"
+
+		}
+		$stack.pop
+		Out.puts "# #{$linenumber}"
+	end
+	if :ruby==frame then
+		if fields[0]!="ruby" then raise "expected \\end ruby" end
+	end
+	Out.puts ""
+end
+
+def handle_startall(line)
+	$classes.each {|q|
+		Out.print "rb_funcall(EVAL(\"GridFlow\"),SI(fclass_install),2,PTR2FIX(&ci#{q.name}),"
+		if q.supername then
+			Out.print "EVAL(\"GridFlow::#{q.supername}\"));"
+		else
+			Out.print "Qnil);"
+		end
+	}
+	Out.puts ""
+end
+
+def handle_ruby(line)
+	Out.puts ""
+	$stack.push :ruby
+end
+
+$rubymode=false
+$linenumber=1
+loop{
+	x = In.gets
+	break if not x
+	if /^\s*\\(\w+)\s*(.*)$/.match x then
+		begin
+			send("handle_#{$1}",$2)
+		rescue StandardError => e
+			STDERR.puts e.inspect
+			STDERR.puts "at line #{$linenumber}"
+			STDERR.puts e.backtrace
+			File.unlink ARGV[1]
+			exit 1
+		end
+	else
+		if $stack[-1]==:ruby then
+			x.gsub!(/([\\\"])/) { "\\"+$1 }
+			x="\"#{x.chomp}\\n\"\n"
+		end
+		Out.puts x
+	end
+	$linenumber+=1
+}