manqod 1.1505.0

data/lib/ManqodCommon.rb

@@ -0,0 +1,295 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+module ManqodCommon
+	include Eprint
+	
+	CRITICAL = "critical"
+	ERROR = "error"
+	WARNING = "warning"
+	NORMAL = "normal"
+	INFO = "info"
+	DEBUG = "debug"
+	
+
+	def backtrace_to_debug(c)
+		r="#{c}\n"
+		c.backtrace.each{|i| r=r+"\t#{i}\n"}
+		r
+	end
+
+	def measure(d="",color="default")
+		c=case color
+			when "red" then 31
+			when "blue" then 34
+			when "green" then 32
+			when "yellow" then 33
+			when "magenta" then 35
+			when "cyan" then 36
+			when "white" then 37
+			when "default" then 39
+		end
+		before_=Time.now
+		yield
+		time_diff=Time.now.to_f-before_.to_f;edebug("\e[#{c}m#{self} #{d} measured: "+sprintf("%.2fs",time_diff)+"\e[0m","time","normal")
+	end
+
+def lzero(s,n)
+	while s.to_s.length<n
+		s="0#{s}"
+	end
+	s
+end
+
+def number_format(f,d)
+	s=f.to_s
+	if i=s.index(".")
+		p1=s[0 .. i-1]
+		p2=(s+"0000")[i .. i+d]
+		else
+		p1=s
+		p2=".0000"
+	end
+	if d==0
+		p1.gsub(/(\d)(?=(\d\d\d)+(?!\d))/, "\\1,")
+		else
+		p1.gsub(/(\d)(?=(\d\d\d)+(?!\d))/, "\\1,") + p2
+	end
+end
+
+	def eeval(command,context=self)
+  	ret=nil
+  	begin
+			edebug("Running: #{command}","eval","debug")
+			if context and b=context.getBinding then
+				ret=eval(command, b)
+				else
+				ret=eval(command)
+			end
+		rescue SyntaxError, NameError => err
+	  	tell_exception("Syntax error: #{command}",backtrace_to_debug(err),"eval","error",true,false)
+		rescue  => err
+#	  edebug("String doesn't run: #{command}\n"+backtrace_to_debug(b),"eval","error")
+	  	tell_exception("String doesn't run: #{command}",backtrace_to_debug(err),"eval","error",true,false)
+  	end
+  	ret
+	end
+
+	def getBinding
+		binding
+	end
+
+	def run_events(gtkobjectid,event_name)
+		edebug("Running events #{event_name} for #{gtkobjectid}","events","debug")
+		EventCache.instance.gtkobject_events(gtkobjectid,event_name){|event_command| eeval(event_command,self)}
+#		edebug("Running events #{event_name} for #{gtkobjectid} finished.","events","debug")
+	end
+
+	def myexec(filename,filedata)
+		Myexec.instance.myexec(filename,filedata)
+	end
+
+	def nick
+		Nick.instance.get_nick
+	end
+
+	def nick_id
+		Nick.instance.nick_id
+	end
+
+	def set_nick(new_nick)
+		Nick.instance.set_nick(new_nick)
+	end
+
+	def set_manqod_db_uri(uri)
+			ManqodDB.instance.set_manqod_db_uri(uri)
+	end
+
+	def reconnect_manqod_db
+			ManqodDB.instance.connect_to_server
+	end
+
+	def manqod_db
+		begin
+			ManqodDB.instance.manqod_db
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+	def cache
+		ManqodDB.instance.cache
+	end
+	def admin_cache
+		ManqodDB.instance.acache
+	end
+	
+#	def prep_sql(isql)
+#		ManqodDB.instance.manqod_db.client.escape_string(isql)
+#	end
+
+	def client
+		begin
+			ManqodDB.instance.manqod_db.client
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def client_query(sql)
+		begin
+			einfo("Client query: #{sql}","sql")
+			ManqodDB.instance.manqod_db.client.query(sql)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def client_fields(sql)
+		begin
+			ManqodDB.instance.manqod_db.client.fields(sql).each{|row| yield row}
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def client_qrow(sql)
+		begin
+			ManqodDB.instance.manqod_db.client.qrow(sql)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def client_rows(sql)
+		begin
+			ManqodDB.instance.manqod_db.client.rows(sql).each{|row| yield row}
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def admin
+		begin
+			ManqodDB.instance.manqod_db.admin
+		rescue =>err
+			retry if warn("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def query(sql)
+		begin
+			einfo("query: #{sql}","sql")
+			ret=ManqodDB.instance.manqod_db.query(sql)
+			tell_exception("Database Error","Duplicate entry","sql","error") if ret == -1
+			ret
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def add_where(sql,where)
+		begin
+			ret=ManqodDB.instance.manqod_db.add_where(sql,where)
+			tell_exception("Database Error","Duplicate entry","sql","error") if ret == -1
+			ret
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def qrow(sql,with_table=false)
+		begin
+			ManqodDB.instance.manqod_db.qrow(sql,with_table)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def rows(sql,with_table=false)
+		begin
+			i=ManqodDB.instance.manqod_db.rows(sql,with_table).each{|row| yield row}
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def admin_rows(sql,with_table=false)
+#		ecode("#{sql}")
+		begin
+			ManqodDB.instance.manqod_db.admin.rows(sql,with_table).each{|row| yield row}
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def admin_qrow(sql,with_table=false)
+		begin
+			ManqodDB.instance.manqod_db.admin.qrow(sql,with_table)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def guess_table(sql,field)
+		begin
+			ManqodDB.instance.manqod_db.guess_table(sql,field)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+	def guess_base(sql)
+		begin
+			ManqodDB.instance.manqod_db.guess_base(sql)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+	def escape_string(sql)
+		begin
+			ManqodDB.instance.manqod_db.escape_string(sql)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def image_of_id(image_id=nil,resize=nil)
+		begin
+			DrbImages.instance.image_of_id(image_id,resize)
+		rescue =>err
+			ewarn(backtrace_to_debug(err))
+		end
+	end
+	def client_image_of_id(image_id=nil,resize=nil)
+		begin
+			DrbImages.instance.image_of_id(image_id,resize,true)
+		rescue =>err
+			ewarn(backtrace_to_debug(err))
+		end
+	end
+
+
+	def changed_ids_of_base(base,ids)
+		begin
+			ManqodDB.instance.manqod_db.changed_ids_of_base(base,ids,nick)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+
+	def sendmail(*args)
+		begin
+			ManqodDB.instance.manqod_db.sendmail(*args)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+	def send_message(*args)
+		begin
+			ManqodDB.instance.manqod_db.send_message(*args)
+		rescue =>err
+			retry if tell_exception("RunTime error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+		end
+	end
+end
+

data/lib/ManqodHelp/FormatEditor/FormatJustificationWidget.rb

@@ -0,0 +1,76 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+class FormatJustificationWidget < Gtk::HBox
+	def initialize(fe)
+		@fe=fe
+		super()
+		pack_start(@fill=Gtk::ToggleButton.new(Gtk::Stock::JUSTIFY_FILL))
+		pack_start(@left=Gtk::ToggleButton.new(Gtk::Stock::JUSTIFY_LEFT))
+		pack_start(@center=Gtk::ToggleButton.new(Gtk::Stock::JUSTIFY_CENTER))
+		pack_start(@right=Gtk::ToggleButton.new(Gtk::Stock::JUSTIFY_RIGHT))
+		
+		@fill.signal_connect('toggled'){|me|
+			if me.active?
+				@left.set_active(false)
+				@center.set_active(false)
+				@right.set_active(false)
+				if tag=@fe.current_tag
+					tag.set_justification(Gtk::Justification::FILL).set_justification_set(true)
+					@fe.help.browser.save_current_item
+				end
+			end
+		}
+		@left.signal_connect('toggled'){|me|
+			if me.active?
+				@fill.set_active(false)
+				@center.set_active(false)
+				@right.set_active(false)
+				if tag=@fe.current_tag
+					tag.set_justification(Gtk::Justification::LEFT).set_justification_set(true)
+					@fe.help.browser.save_current_item
+				end
+			end
+		}
+		@center.signal_connect('toggled'){|me|
+			if me.active?
+				@left.set_active(false)
+				@fill.set_active(false)
+				@right.set_active(false)
+				if tag=@fe.current_tag
+					tag.set_justification(Gtk::Justification::CENTER).set_justification_set(true)
+					@fe.help.browser.save_current_item
+				end
+			end
+		}
+		@right.signal_connect('toggled'){|me|
+			if me.active?
+				@left.set_active(false)
+				@center.set_active(false)
+				@fill.set_active(false)
+				if tag=@fe.current_tag
+					tag.set_justification(Gtk::Justification::RIGHT).set_justification_set(true)
+					@fe.help.browser.save_current_item
+				end
+			end
+		}
+		add_events(Gdk::Event::Mask::ALL_EVENTS_MASK)
+	end
+	def set_value(val)
+		case val
+			when Gtk::Justification::FILL then @fill.set_active(true)
+			when Gtk::Justification::LEFT then @left.set_active(true)
+			when Gtk::Justification::CENTER then @center.set_active(true)
+			when Gtk::Justification::RIGHT then @right.set_active(true)
+		end
+	end
+	def value
+		val=nil
+		val=Gtk::Justification::FILL if @fill.active?
+		val=Gtk::Justification::LEFT if @left.active?
+		val=Gtk::Justification::CENTER if @center.active?
+		val=Gtk::Justification::RIGHT if @right.active?
+	end
+end
+

data/lib/ManqodHelp/FormatsEditor.rb

@@ -0,0 +1,139 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+class FormatsEditor < Gtk::Window
+	def initialize(help)
+		@help=help
+		super()
+		set_transient_for(help)
+		set_modal(true)
+		add(Gtk::VBox.new.
+			pack_start(Gtk::HBox.new.pack_start(@names=Gtk::ComboBox.new).
+				pack_start(@new_format=Gtk::Button.new(Gtk::Stock::NEW),false,false).
+				pack_start(@remove_format=Gtk::Button.new(Gtk::Stock::REMOVE),false,false)
+			).
+			pack_start(@props=Gtk::Table.new(2,1))
+		)
+		append_widget("Name(unique):",@name=Gtk::Entry.new)
+		append_widget("Code(regexp escaped):",@code=Gtk::Entry.new)
+		append_widget("Font:",@font=Gtk::FontButton.new)
+		append_widget("Foreground:",Gtk::HBox.new.pack_start(@foreground=Gtk::ColorButton.new).pack_start(@foreground_set=Gtk::ToggleButton.new("set"),false,false))
+		append_widget("Background:",Gtk::HBox.new.pack_start(@background=Gtk::ColorButton.new).pack_start(@background_set=Gtk::ToggleButton.new("set"),false,false))
+		append_widget("Justification:",@justification=FormatJustificationWidget.new(self))
+		append_widget(nil,Gtk::HBox.new.pack_start(@underline=Gtk::ToggleButton.new(Gtk::Stock::UNDERLINE)).pack_start(@strikethrough=Gtk::ToggleButton.new(Gtk::Stock::STRIKETHROUGH)))
+
+		@code.signal_connect('changed'){|me|
+			if tag=tag_table.lookup(@names.active_text)
+				tag.set_code(me.text).save
+			end
+		}
+		@font.signal_connect("font-set"){|me|
+			if tag=tag_table.lookup(@names.active_text)
+				tag.set_font(me.font_name).save
+			end
+		}
+		@foreground.signal_connect("color-set"){|me|
+			if tag=tag_table.lookup(@names.active_text)
+				tag.set_foreground_gdk(me.color).save
+			end
+		}
+		@foreground_set.signal_connect('toggled'){|me|
+			if tag=tag_table.lookup(@names.active_text)
+				tag.set_foreground_set(me.active?).save
+			end			
+		}
+		@background.signal_connect("color-set"){|me|
+			if tag=tag_table.lookup(@names.active_text)
+				tag.set_background_gdk(me.color).set_background_set(true).save
+			end
+		}
+		@background_set.signal_connect('toggled'){|me|
+			if tag=tag_table.lookup(@names.active_text)
+				tag.set_background_set(me.active?).save
+			end			
+		}
+		@underline.signal_connect("toggled"){|me|
+			if tag=tag_table.lookup(@names.active_text)
+				tag.set_underline(me.active? ? Pango::AttrUnderline::SINGLE : Pango::AttrUnderline::NONE).set_underline_set(me.active?).save
+			end			
+		}
+		@strikethrough.signal_connect("toggled"){|me|
+			if tag=tag_table.lookup(@names.active_text)
+				tag.set_strikethrough(me.active?).set_strikethrough_set(me.active?).save
+			end			
+		}
+		
+		set_width_request(500)
+		@names.signal_connect("changed"){|me|
+			populate
+		}
+		@new_format.signal_connect('clicked',self){|me,fe|
+			w=Gtk::Dialog.new("New format name",fe,Gtk::Dialog::MODAL|Gtk::Dialog::DESTROY_WITH_PARENT,[Gtk::Stock::NEW,Gtk::Dialog::RESPONSE_ACCEPT],[Gtk::Stock::CANCEL,Gtk::Dialog::RESPONSE_REJECT]).set_default_response(Gtk::Dialog::RESPONSE_ACCEPT)
+			w.vbox.pack_start(Gtk::Label.new("Format Name(only use names that can't be links):"),false,false).pack_start(e=Gtk::Entry.new,false,false)
+			w.show_all.run{|response|
+				if response == Gtk::Dialog::RESPONSE_ACCEPT
+					tag_table.add({"name"=>e.text})
+					populate_names(e.text)
+					tag=tag_table.lookup(e.text)
+					ManqodDB.instance.manqod_db.save_help_format(e.text,tag.export)
+				end
+				w.destroy
+			}
+		}
+		@remove_format.signal_connect('clicked'){|me|
+			if tag=tag_table.lookup(@names.active_text)
+				tag_table.remove(tag)
+				populate_names
+				ManqodDB.instance.manqod_db.remove_help_format(@names.active_text)
+			end
+		}
+	end
+	attr_reader :help
+	
+	def tag_table
+		@help.browser.buffer.tag_table
+	end
+	def current_tag
+		tag_table.lookup(@names.active_text)
+	end
+
+	def populate_names(active=nil)
+		@names.model.clear
+		tag_table.each{|tag|
+			@names.append_text(tag.name) unless tag.link
+		}
+		i=nil
+		while (i ? i.next! : i=@names.model.iter_first)
+			@names.set_active_iter(i) if i[0] == active
+		end
+	end
+
+	def populate
+#		{"name"=>"_header","code"=>Regexp.escape("[h1]"),"font"=>"Sans Bold 20"}
+		if @names.active_text && tag=tag_table.lookup(@names.active_text)
+			@name.set_text(tag.name)
+			@code.set_text(tag.code.to_s)
+			@font.set_font_name(tag.font)
+			@foreground.set_color(tag.foreground_gdk)
+			@background.set_color(tag.background_gdk)
+			@foreground_set.set_active(tag.foreground_set?)
+			@background_set.set_active(tag.background_set?)
+			@justification.set_value(tag.justification)
+			@underline.set_active(tag.underline == Pango::AttrUnderline::SINGLE)
+			@strikethrough.set_active(tag.strikethrough?)
+		end
+	end
+	def append_widget(text,widget)
+		r=@props.n_rows
+		@props.n_rows=@props.n_rows+1
+		@props.attach_defaults(Gtk::Label.new(text),0,1,r,r+1)
+		@props.attach_defaults(widget,1,2,r,r+1)
+	end
+	def run
+		populate_names
+		populate
+		show_all
+	end
+end
+

data/lib/ManqodHelp/HelpBrowser/FormatTagTable/FormatTag.rb

@@ -0,0 +1,84 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+class FormatTag < Gtk::TextTag
+	def initialize(table,arg=nil)
+		@tag_table=table
+		@link=nil
+		@code=nil
+		case arg.class.name
+			when "String"
+				@link=arg
+				super(@link)
+				set_foreground("#0000BB")
+				set_background("white")
+				signal_connect("event"){|tag,text_view,ev,iter|
+					if ev.event_type == Gdk::Event::Type::BUTTON_PRESS
+						@tag_table.browser.help.index.set_cursor(@link)
+					end
+				}
+			when "Hash"
+				if arg.has_key?("name")
+					super(arg["name"])
+					arg.delete("name")
+					import(arg)
+				end
+			else 
+				p "unalble to create tag:#{arg.inspect}"
+				super()
+		end
+	end
+	attr_reader :code, :link
+
+	def set_code(c)
+		@code=c
+		self
+	end
+	
+	def export
+		unless @link
+			e={"name"=>name,
+				"code"=>@code ? Regexp.escape(@code) : "\\.",
+				"foreground"=>foreground_gdk.to_a,
+				"foreground_set"=>foreground_set?,
+				"background"=>background_gdk.to_a,
+				"background_set"=>background_set?,
+				"justification"=>case justification
+					when Gtk::Justification::LEFT then 0
+					when Gtk::Justification::RIGHT then 1
+					when Gtk::Justification::CENTER then 2
+					when Gtk::Justification::FILL then 3
+					else 0
+					end,
+				"font"=>font,
+				"underline"=>case underline
+					when Pango::AttrUnderline::Underline::SINGLE then 1
+					when Pango::AttrUnderline::Underline::NONE then 0
+					else 0
+					end,
+				"strikethrough"=>strikethrough?
+			}
+			return e
+		end
+	end
+	def import(arg)
+		@code=arg["code"]
+		set_foreground_gdk(Gdk::Color.new(arg["foreground"][0],arg["foreground"][1],arg["foreground"][2])) if arg["foreground"]
+		set_foreground_set(arg["foreground_set"] == true)
+		set_background_gdk(Gdk::Color.new(arg["background"][0],arg["background"][1],arg["background"][2])) if arg["background"]
+		set_background_set(arg["background_set"] == true)
+		if arg["justification"]
+			set_justification(arg["justification"]).set_justification_set(true)
+			else
+			set_justification_set(false)
+		end
+		set_underline(arg["underline"]).set_underline_set(true) if arg["underline"]
+		set_font(arg["font"]) if arg["font"]
+	end
+
+	def save
+		ManqodDB.instance.manqod_db.save_help_format(name,export)
+	end
+end
+

data/lib/ManqodHelp/HelpBrowser/FormatTagTable.rb

@@ -0,0 +1,39 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+class FormatTagTable < Gtk::TextTagTable
+	def initialize(browser)
+		@browser=browser
+		super()
+	end
+	attr_reader :browser
+
+	def add(arg)
+		tag=FormatTag.new(self,arg)
+		super(tag) if tag.name
+		tag
+	end
+
+	def markup_regexp
+		r=""
+		each{|tag| r=r+tag.code+"|" if tag.code && tag.code.length>1}
+		r[r.length-1]="" if r.length>0 #remove the last |
+		Regexp.compile(r)
+	end
+
+	def lookup_by_code(str)
+		found=nil
+		each{|tag| found=tag if tag.code == Regexp.escape(str)}
+		found
+	end
+	def lookup(name)
+		name.nil? ? nil : super(name)
+	end
+	def clear
+		a=Array.new
+		each{|tag| a.push(tag)}
+		a.each{|tag| remove(tag)}
+	end
+end
+