fxruby 1.6.20-universal-darwin-10

data/scripts/iface.rb

@@ -0,0 +1,391 @@
+#! /usr/bin/env ruby
+
+require "getoptlong"
+
+##
+# IFace data stucture
+#
+class IFace
+	attr_accessor :cat
+
+	def initialize
+		@cat = []
+		changeCat(nil)
+	end
+
+	def changeCat(_name)
+		@currentCat = IFaceCat.new(_name)
+		@cat << @currentCat
+	end
+
+	def addEmpty
+		@currentCat.addEntry(IFaceEmpty.new)
+	end
+
+	def addComment(_text)
+		@currentCat.addEntry(IFaceComment.new(_text))
+	end
+
+	def addVal(_name, _code)
+		@currentCat.addEntry(IFaceVal.new(_name, _code))
+	end
+
+	def addFun(_name, _code, _return, _args)
+		@currentCat.addEntry(IFaceFun.new(_name, _code, _return, _args))
+	end
+
+	def addGet(_name, _code, _return, _args)
+		@currentCat.addEntry(IFaceGet.new(_name, _code, _return, _args))
+	end
+
+	def addSet(_name, _code, _return, _args)
+		@currentCat.addEntry(IFaceSet.new(_name, _code, _return, _args))
+	end
+
+	def addEvt(_name, _code, _return, _args)
+		@currentCat.addEntry(IFaceEvt.new(_name, _code, _return, _args))
+	end
+end
+
+class IFaceCat
+	attr_reader :name, :entries
+
+	def initialize(_name)
+		@name = _name
+		@entries = []
+	end
+
+	def addEntry(_entry)
+		@entries << _entry
+	end
+end
+
+class IFaceEmpty
+	def accept(visitor)
+		visitor.visitIFaceEmpty(self)
+	end
+end
+
+class IFaceComment
+	attr_reader :text
+
+	def initialize(_text)
+		@text = _text
+	end
+
+	def accept(visitor)
+		visitor.visitIFaceComment(self)
+	end
+end
+
+class IFaceVal
+	attr_reader :name, :code
+
+	def initialize(_name, _code)
+		@name = _name
+		@code = _code
+	end
+
+	def accept(visitor)
+		visitor.visitIFaceVal(self)
+	end
+end
+
+class IFaceFunArg
+	attr_reader :name, :type
+	def initialize(_name, _type)
+		@name = _name
+		@type = _type
+	end
+end
+
+class IFaceFun < IFaceVal
+	attr_reader :return, :args
+
+	def initialize(_name, _code, _return, _args)
+		super(_name, _code)
+		@return = _return
+		@args = []
+		_args.each do |arg|
+			@args << IFaceFunArg.new(arg[1], arg[0])
+		end
+	end
+
+	def accept(visitor)
+		visitor.visitIFaceFun(self)
+	end
+end
+
+class IFaceGet < IFaceFun
+	def initialize(_name, _code, _return, _args)
+		super
+	end
+
+	def accept(visitor)
+		visitor.visitIFaceGet(self)
+	end
+end
+
+class IFaceSet < IFaceFun
+	def initialize(_name, _code, _return, _args)
+		super
+	end
+
+	def accept(visitor)
+		visitor.visitIFaceSet(self)
+	end
+end
+
+class IFaceEvt < IFaceFun
+	def initialize(_name, _code, _return, _args)
+		super
+	end
+
+	def accept(visitor)
+		visitor.visitIFaceEvt(self)
+	end
+end
+
+##
+# IFace parser
+#
+class IFaceParser
+	def initialize(_input, _output)
+		@input = _input
+		@output = _output
+		@iface = IFace.new
+	end
+
+	def process
+		@input.each_line do |line|
+			case line
+			when /^##/
+			when /^$/
+				processEmpty
+			when /^#(.*)/
+				processComment $1
+			else
+				command, args = line.split(/\s+/, 2)
+				processCommand(command, args)
+			end
+		end
+		@iface
+	end
+
+	def processEmpty
+		@iface.addEmpty
+	end
+
+	def processComment(_comment)
+		@iface.addComment(_comment)
+	end
+
+	def processCommand(_cmd, _args)
+		unless _cmd.empty?
+			process = "process" + _cmd[0..0].upcase + _cmd[1..-1]
+			if respond_to?(process)
+				method(process).call(_args)
+			else
+				puts "*** Unknown cmd: #{_cmd} #{_args}"
+			end
+		end
+	end
+
+	def processCat(_cat)
+		@iface.changeCat(_cat)
+	end
+
+	def processVal(_val)
+		name, value = _val.split(/\s*=\s*/)
+		@iface.addVal(name, value)
+	end
+
+	def parseFun(_fun)
+		returnType, _fun = _fun.split(/\s+/, 2)
+		name, _fun = _fun.split(/\s*=\s*/, 2)
+		_fun =~ /(\d+)\s*\((.*)\)/
+		code = $1
+		_fun = $2.split(/\s*,\s*/, -1)
+		args = _fun.collect do |arg|
+			argType, argName = arg.split
+			argType, argName = nil, nil if argName == ""
+			[argType, argName]
+		end
+		[name, code, returnType, args]
+	end
+
+	def processFun(_fun)
+		name, code, returnType, args = parseFun(_fun)
+		@iface.addFun(name, code, returnType, args)
+	end
+
+	def processGet(_fun)
+		name, code, returnType, args = parseFun(_fun)
+		@iface.addGet(name, code, returnType, args)
+	end
+
+	def processSet(_fun)
+		name, code, returnType, args = parseFun(_fun)
+		@iface.addSet(name, code, returnType, args)
+	end
+
+	def processEvt(_fun)
+		name, code, returnType, args = parseFun(_fun)
+		@iface.addEvt(name, code, returnType, args)
+	end
+
+	def processEnu(_enu)
+	end
+
+	def processLex(_lex)
+	end
+end
+
+##
+# Code to generate Scintilla.rb from an IFace data structure
+#
+class ScintillaIFaceToRuby
+	def initialize(_iface, _output)
+		@iface = _iface
+		@output = _output
+		@reserved = Hash["end", "last", "setFocus", "setFocusFlag"]
+	end
+
+	def generateHeader
+		@output.puts("# This file is automatically generated from Scintilla.iface")
+		@output.puts("# DO NOT MODIFY")
+		@output.puts
+	end
+
+	def generate
+		generateHeader
+		@output.puts("module Fox")
+		@output.puts("  class FXScintilla")
+		@iface.cat.each do |cat|
+			@output.puts("    # #{cat.name}")
+			cat.entries.each do |entry|
+				entry.accept(self)
+			end
+		end
+		@output.puts("  end")
+		@output.puts("end")
+	end
+
+	def visitIFaceEmpty(_empty)
+		@output.puts
+	end
+
+	def visitIFaceComment(_comment)
+		@output.puts("    ##{_comment.text}")
+	end
+
+	def visitIFaceVal(_val)
+		return if _val.name == "KeyMod"
+		return if _val.name == "Lexer"
+		@output.puts("    #{name(_val.name)} = #{_val.code}")
+	end
+
+	def visitIFaceFun(_fun)
+		stringresult = _fun.args[1].type == "stringresult" and _fun.return == "int"
+		stringresult1 = (stringresult and _fun.args[0].name == nil)
+
+		name = name(_fun.name[0..0].downcase + _fun.name[1..-1])
+		@output.print("    def #{name}")
+		args = _fun.args.collect do |arg|
+			if stringresult and arg.type == "stringresult"
+				nil
+			else
+				name(arg.name)
+			end
+		end
+		args.compact!
+		@output.print("(#{args.join(', ')})") unless args.empty?
+		@output.puts
+		
+		if stringresult and !stringresult1
+			@output.puts("      buffer = \"\".ljust(#{_fun.args[0].name})")
+		end
+
+		returnValue = "sendMessage(#{_fun.code}"
+		_fun.args.each do |arg|
+			if stringresult and !stringresult1 and arg.type == "stringresult"
+				returnValue += ", buffer"
+			else
+				returnValue += ", #{arg.name ? typeArg(arg.type, name(arg.name)) : 0}"
+			end
+		end
+		returnValue += ")"
+
+		if stringresult and !stringresult1
+			@output.puts("      #{returnValue}")
+			@output.puts("      buffer")
+		else
+			@output.puts("      #{typeRet(_fun.return, returnValue)}")
+		end
+		@output.puts("    end")
+	end
+
+	def visitIFaceGet(_get)
+		visitIFaceFun(_get)
+	end
+
+	def visitIFaceSet(_set)
+		visitIFaceFun(_set)
+	end
+
+	def visitIFaceEvt(_evt)
+		name = "SCN_" + _evt.name.upcase
+		@output.puts("    #{name} = #{_evt.code}")
+	end
+
+	def typeArg(_type, _value)
+		case _type
+		when "colour"
+			"#{_value} & 0xffffff"
+		else
+			_value
+		end
+	end
+
+	def typeRet(_type, _value)
+		case _type
+		when "bool"
+			"#{_value} == 1 ? true : false"
+		else
+			_value
+		end
+	end
+
+	def name(_name)
+		name = @reserved[_name]
+		name ? name : _name
+	end
+end
+
+def main
+	options = GetoptLong.new(["-i", GetoptLong::REQUIRED_ARGUMENT],
+													 ["-o", GetoptLong::REQUIRED_ARGUMENT])
+
+	input = output = nil
+	options.each do |opt, arg|
+		case opt
+		when "-i"
+			input = File.open(arg, File::RDONLY)
+		when "-o"
+			output = File.open(arg, File::CREAT|File::WRONLY|File::TRUNC)
+		end
+	end
+	input = $stdin unless input
+	output = $stdout unless output
+
+	parser = IFaceParser.new(input, output)
+	iface = parser.process
+
+	gen = ScintillaIFaceToRuby.new(iface, output)
+	gen.generate
+ensure
+	input.close
+	output.close
+end
+
+main

data/swig-interfaces/FX4Splitter.i

@@ -0,0 +1,149 @@
+/***********************************************************************
+ * FXRuby -- the Ruby language bindings for the FOX GUI toolkit.
+ * Copyright (c) 2001-2009 by Lyle Johnson. All Rights Reserved.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * For further information please contact the author by e-mail
+ * at "lyle@lylejohnson.name".
+ ***********************************************************************/
+
+// Splitter options
+enum {
+  FOURSPLITTER_TRACKING = 0x00008000,	// Track continuously during split
+  FOURSPLITTER_NORMAL   = 0
+  };
+
+
+/**
+* The Four-way splitter is a layout manager which manages
+* four children like four panes in a window.
+* You can use a four-way splitter for example in a CAD program
+* where you may want to maintain three orthographic views, and
+* one oblique view of a model.
+* The four-way splitter allows interactive repartitioning of the
+* panes by means of moving the central splitter bars.
+* When the four-way splitter is itself resized, each child is
+* proportionally resized, maintaining the same split-percentage.
+*/
+class FX4Splitter : public FXComposite {
+protected:
+  FX4Splitter();
+  FXuchar getMode(FXint x,FXint y);
+  void moveSplit(FXint x,FXint y);
+  void drawSplit(FXint x,FXint y);
+  void adjustLayout();
+public:
+  long onLeftBtnPress(FXObject*,FXSelector,void* PTR_EVENT);
+  long onLeftBtnRelease(FXObject*,FXSelector,void* PTR_EVENT);
+  long onMotion(FXObject*,FXSelector,void* PTR_EVENT);
+  long onFocusUp(FXObject*,FXSelector,void* PTR_EVENT);
+  long onFocusDown(FXObject*,FXSelector,void* PTR_EVENT);
+  long onFocusLeft(FXObject*,FXSelector,void* PTR_EVENT);
+  long onFocusRight(FXObject*,FXSelector,void* PTR_EVENT);
+  long onCmdExpand(FXObject*,FXSelector,void*);
+  long onUpdExpand(FXObject*,FXSelector,void*);
+public:
+  enum {
+    ExpandNone        = 0,                                  /// None expanded
+    ExpandTopLeft     = 1,                                  /// Expand top left child
+    ExpandTopRight    = 2,                                  /// Expand top right child
+    ExpandBottomLeft  = 4,                                  /// Expand bottom left child
+    ExpandBottomRight = 8,                                  /// Expand bottom right child
+    ExpandTop         = ExpandTopLeft|ExpandTopRight,       /// Expand top children
+    ExpandBottom      = ExpandBottomLeft|ExpandBottomRight, /// Expand bottom children
+    ExpandLeft        = ExpandTopLeft|ExpandBottomLeft,     /// Expand left children
+    ExpandRight       = ExpandTopRight|ExpandBottomRight,   /// Expand right children
+    ExpandAll         = ExpandLeft|ExpandRight              /// Expand all children
+    };
+public:
+  enum {
+    ID_EXPAND_NONE=FXComposite::ID_LAST+ExpandNone,
+    ID_EXPAND_TOP=ID_EXPAND_NONE+ExpandTop,
+    ID_EXPAND_BOTTOM=ID_EXPAND_NONE+ExpandBottom,
+    ID_EXPAND_LEFT=ID_EXPAND_NONE+ExpandLeft,
+    ID_EXPAND_RIGHT=ID_EXPAND_NONE+ExpandRight,
+    ID_EXPAND_TOPLEFT=ID_EXPAND_NONE+ExpandTopLeft,
+    ID_EXPAND_TOPRIGHT=ID_EXPAND_NONE+ExpandTopRight,
+    ID_EXPAND_BOTTOMLEFT=ID_EXPAND_NONE+ExpandBottomLeft,
+    ID_EXPAND_BOTTOMRIGHT=ID_EXPAND_NONE+ExpandBottomRight,
+    ID_EXPAND_ALL=ID_EXPAND_NONE+ExpandAll,
+    ID_LAST
+    };
+public:
+
+  %extend {
+    /// Create 4-way splitter, initially shown as four unexpanded panes
+    FX4Splitter(FXComposite* p,FXuint opts=FOURSPLITTER_NORMAL,FXint x=0,FXint y=0,FXint w=0,FXint h=0){
+      return new FXRb4Splitter(p,opts,x,y,w,h);
+      }
+  
+    /// Create 4-way splitter, initially shown as four unexpanded panes; notifies target about size changes
+    FX4Splitter(FXComposite* p,FXObject* tgt,FXSelector sel,FXuint opts=FOURSPLITTER_NORMAL,FXint x=0,FXint y=0,FXint w=0,FXint h=0){
+      return new FXRb4Splitter(p,tgt,sel,opts,x,y,w,h);
+      }
+    }
+
+  /// Get top left child, if any
+  FXWindow *getTopLeft() const;
+
+  /// Get top right child, if any
+  FXWindow *getTopRight() const;
+
+  /// Get bottom left child, if any
+  FXWindow *getBottomLeft() const;
+
+  /// Get bottom right child, if any
+  FXWindow *getBottomRight() const;
+
+  /// Get horizontal split fraction
+  FXint getHSplit() const;
+
+  /// Get vertical split fraction
+  FXint getVSplit() const;
+
+  /// Change horizontal split fraction
+  void setHSplit(FXint s);
+
+  /// Change vertical split fraction
+  void setVSplit(FXint s);
+
+  /// Return current splitter style
+  FXuint getSplitterStyle() const;
+  
+  /// Change splitter style
+  void setSplitterStyle(FXuint style);
+  
+  /// Change splitter bar width
+  void setBarSize(FXint bs);
+  
+  /// Get splitter bar width
+  FXint getBarSize() const;
+
+  /// Change set of expanded children
+  void setExpanded(FXuint set=FX4Splitter::ExpandAll);
+
+  /// Get expanded child, or -1 if not expanded
+  FXuint getExpanded() const;
+  
+  /// Destructor
+  virtual ~FX4Splitter();
+  };
+
+DECLARE_FXOBJECT_VIRTUALS(FX4Splitter)
+DECLARE_FXID_VIRTUALS(FX4Splitter)
+DECLARE_FXDRAWABLE_VIRTUALS(FX4Splitter)
+DECLARE_FXWINDOW_VIRTUALS(FX4Splitter)
+