tecscde 0.6.0

data/glade/test-cell-plugin.rb

@@ -0,0 +1,51 @@
+# まずは決まり文句
+require "gtk2"
+
+builder = Gtk::Builder.new
+builder.add_from_file(File.expand_path(File.join(__dir__, "../lib/tecscde/cell_plugin_dialog.glade"))) # 読み込むgladeファイルを指定
+
+# p builder
+# p builder.objects
+
+# 後で処理を書くウィジェットは下のような形で、変数に代入しておくのよ
+main_window = builder["dialog_cell_plugin"]
+# @btn_quit = builder["quit"]
+label_cell_name = builder["label_cell_name"]
+
+builder.objects.each{|obj|
+  p obj
+}
+
+COL_NAME = 0
+COL_OPTION = 1
+
+plugin_list = builder["treeview_plugin_list"]
+liststore = Gtk::ListStore.new(String, String)
+plugin_list.set_model(liststore)
+
+# create renderer for text
+renderer = Gtk::CellRendererText.new
+
+# set column information
+col = Gtk::TreeViewColumn.new("Plugin", renderer, :text => COL_NAME)
+plugin_list.append_column(col)
+
+col = Gtk::TreeViewColumn.new("Option", renderer, :text => COL_OPTION)
+plugin_list.append_column(col)
+
+liststore.set_sort_column_id(COL_NAME)
+
+# ウィンドウのクローズボタンが押されたら終了
+main_window.signal_connect("destroy") do
+  Gtk.main_quit
+end
+
+# 終了ボタンがクリックされたら終了
+# btn_quit.signal_connect("clicked") do
+#   Gtk.main_quit
+# end
+
+# メインウィンドウの表示
+main_window.show_all
+
+Gtk.main

data/glade/test-cell-property.rb

@@ -0,0 +1,35 @@
+#! /usr/bin/ruby
+
+p __FILE__
+
+# まずは決まり文句
+require "gtk2"
+p 0
+
+builder = Gtk::Builder.new
+builder.add_from_file("tecscde-cell-property.glade") # 読み込むgladeファイルを指定
+
+p 1
+# p builder
+# p builder.objects
+
+# 後で処理を書くウィジェットは下のような形で、変数に代入しておくのよ
+main_window = builder["dialog_cell_property"]
+
+p 2
+# ウィンドウのクローズボタンが押されたら終了
+main_window.signal_connect("destroy") do
+  Gtk.main_quit
+end
+
+# 終了ボタンがクリックされたら終了
+# btn_quit.signal_connect("clicked") do
+#   Gtk.main_quit
+# end
+
+p 3
+# メインウィンドウの表示
+main_window.show_all
+
+p 4
+Gtk.main

data/glade/test-export.rb

@@ -0,0 +1,35 @@
+#! /usr/bin/ruby
+
+p __FILE__
+
+# まずは決まり文句
+require "gtk2"
+p 0
+
+builder = Gtk::Builder.new
+builder.add_from_file("tecscde-export.glade") # 読み込むgladeファイルを指定
+
+p 1
+# p builder
+# p builder.objects
+
+# 後で処理を書くウィジェットは下のような形で、変数に代入しておくのよ
+main_window = builder["dialog_export"]
+
+p 2
+# ウィンドウのクローズボタンが押されたら終了
+main_window.signal_connect("destroy") do
+  Gtk.main_quit
+end
+
+# 終了ボタンがクリックされたら終了
+# btn_quit.signal_connect("clicked") do
+#   Gtk.main_quit
+# end
+
+p 3
+# メインウィンドウの表示
+main_window.show_all
+
+p 4
+Gtk.main

data/glade/test-palette.rb

@@ -0,0 +1,26 @@
+# まずは決まり文句
+require "gtk2"
+
+builder = Gtk::Builder.new
+builder.add_from_file(File.expand_path("../lib/tecscde/palette.glade", __dir__)) # 読み込むgladeファイルを指定
+
+# p builder
+# p builder.objects
+
+# 後で処理を書くウィジェットは下のような形で、変数に代入しておくのよ
+main_window = builder["window_palette"]
+
+# ウィンドウのクローズボタンが押されたら終了
+main_window.signal_connect("destroy") do
+  Gtk.main_quit
+end
+
+# 終了ボタンがクリックされたら終了
+# btn_quit.signal_connect("clicked") do
+#   Gtk.main_quit
+# end
+
+# メインウィンドウの表示
+main_window.show_all
+
+Gtk.main

data/lib/tcflow.rb

@@ -0,0 +1,148 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+#
+#  TCFlow
+#     Clanguage flow analyzer
+#  
+#   Copyright (C) 2008-2019 by TOPPERS Project
+#--
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#  
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#  
+#   $Id: bnf.y.rb 2850 2018-04-01 12:38:45Z okuma-top $
+#++
+
+require 'optparse'
+require_relative "flowlib/classes.rb"
+
+$exe_name="tcflow"
+$version="V1.0.0.1"
+$cpp_cmd=nil
+$b_version=false
+$b_summarize = false
+$b_list = false
+$gen_dir = "gen"
+$read_dump = false
+$b_print_all_token = false
+###$debug = true
+begin
+
+  ARGV.options {|parser|
+    parser.banner = "Usage: tcflow [options] files"
+    parser.on('-c', '--cpp=cpp_cmd', 'C pre-processor command, if not specified cpp not invoked,  ex) "-cpp_cmd=cl /E -I include_path"' ){
+      |arg|
+      $cpp_cmd = arg
+    }
+    parser.on('-l', '--list', 'list all functions') {
+      $b_list = true
+    }
+    parser.on('-s', '--summarize', 'summarize for top functions') {
+      $b_summarize = true
+    }
+    parser.on( "-g", "--gen=dir", "generate dir"){ |arg|
+      $gen_dir = arg
+    }
+    parser.on( "-r", "--read-rbdmp", "read ruby dump"){
+      $read_dump = true
+    }
+    parser.on( "-t", "--print-all-token", "print all token"){
+      $b_print_all_token = true
+    }
+    parser.version = "#{$version}"
+    parser.release = nil
+    parser.parse!
+  }
+  if ARGV.empty? && $read_dump == false
+    ARGV.options{|parser|
+      puts "#{$exe_name} : #{$version}"
+      puts parser.help
+      exit 1
+    }
+  end
+
+#  $file = open("#{$gen_dir}/FlowC.txt", "w") ##
+
+  if $read_dump then
+    TCFlow::Function.load_funclist "#{$gen_dir}/tcflow.rbdmp"
+  else
+    require_relative "flowlib/C_parser.tab.rb"
+    STDERR.puts "#{$exe_name} : #{$version}"
+    ARGV.each{ |file|
+
+      if /\@(.*)/ =~ file
+        file_list = []
+        begin
+          File.open( $1, "r" ).each{ |f|
+            if /^\s*#/ =~ f
+              next
+            end
+            f.strip!
+            if f != ""
+              file_list << f
+            end
+         }
+        rescue
+          STDERR.print "faile to open #{file}"
+          exit 1
+        end
+      else
+        file_list = [ file ]
+      end
+
+      file_list.each{ |f|
+        # C 言語のパーサインスタンスを生成
+        c_parser = TCFLOW_Cparser.new
+
+        # パース
+        c_parser.parse( [ f ], $cpp_cmd )
+
+        # 終期化
+        c_parser.finalize
+      }
+    }
+    TCFlow::Function.dump_funclist "#{$gen_dir}/tcflow.rbdmp"
+# if $b_summarize
+#   TCFlow::Function.print_summarize
+# else
+#    TCFlow::Function.print_all_functions
+# end
+
+# if $b_list
+#    Function.list_all_functions
+# end
+  end
+
+rescue Exception => evar
+  # "stack level too deep" が exerb 版では、表示されなかった。非 exerb 版を利用すべし。
+  STDERR.print "fatal error: " + evar.to_s + "\n"
+  # "stack level too deep" の場合、大量に表示されるので、コメントアウトしてある
+  # p $@
+# ensure
+  # $file.close
+end

data/lib/tecscde.rb

@@ -0,0 +1,65 @@
+require "gtk2"
+
+require "tecscde/version"
+require "tecscde/main_view_and_model"
+
+module TECSCDE
+  class Error < StandardError; end
+
+  #=== TECSCDE.message_box
+  # Function to open a dialog box displaying the message provided.
+  # ok_yn_okcan::
+  # RETURN
+  def self.message_box(message, ok_yn_okcan)
+    dialog = Gtk::Dialog.new("Message",
+                             nil,
+                             nil,
+                             [Gtk::Stock::OK, Gtk::Dialog::RESPONSE_OK])
+
+    dialog.vbox.add(Gtk::Label.new(message))
+    dialog.show_all
+
+    res = nil
+    dialog.run do |response|
+      res = response
+    end
+    dialog.destroy
+    res
+  end
+
+  def self.confirm?(message, parent = nil)
+    dialog = Gtk::Dialog.new(
+      "Confirm",
+      parent,
+      Gtk::Dialog::Flags::MODAL | Gtk::Dialog::Flags::DESTROY_WITH_PARENT,
+      [Gtk::Stock::OK, Gtk::ResponseType::OK],
+      [Gtk::Stock::CANCEL, Gtk::ResponseType::CANCEL]
+    )
+    dialog.vbox.add(Gtk::Label.new(message))
+    dialog.show_all
+    response = dialog.run
+    dialog.destroy
+    response == Gtk::ResponseType::OK
+  end
+
+  def self.quit(model, parent = nil)
+    if model.modified?
+      if TECSCDE.confirm?("変更を保存せずに終了しますか？")
+        Gtk.main_quit
+      end
+    else
+      Gtk.main_quit
+    end
+  end
+
+  def self.main(tecsgen)
+    MainViewAndModel.new(tecsgen)
+    Gtk.main
+  end
+
+  def self.test
+    MainViewAndModel.new.test_main
+  end
+end
+
+require "tecscde/logger"

data/lib/tecscde/attr_tree_view.rb

@@ -0,0 +1,253 @@
+#
+# TECSCDE - TECS Component Diagram Editor
+#
+# Copyright (C) 2014-2019 by TOPPERS Project
+#
+#  The above copyright holders grant permission gratis to use,
+#  duplicate, modify, or redistribute (hereafter called use) this
+#  software (including the one made by modifying this software),
+#  provided that the following four conditions (1) through (4) are
+#  satisfied.
+#
+#  (1) When this software is used in the form of source code, the above
+#      copyright notice, this use conditions, and the disclaimer shown
+#      below must be retained in the source code without modification.
+#
+#  (2) When this software is redistributed in the forms usable for the
+#      development of other software, such as in library form, the above
+#      copyright notice, this use conditions, and the disclaimer shown
+#      below must be shown without modification in the document provided
+#      with the redistributed software, such as the user manual.
+#
+#  (3) When this software is redistributed in the forms unusable for the
+#      development of other software, such as the case when the software
+#      is embedded in a piece of equipment, either of the following two
+#      conditions must be satisfied:
+#
+#    (a) The above copyright notice, this use conditions, and the
+#        disclaimer shown below must be shown without modification in
+#        the document provided with the redistributed software, such as
+#        the user manual.
+#
+#    (b) How the software is to be redistributed must be reported to the
+#        TOPPERS Project according to the procedure described
+#        separately.
+#
+#  (4) The above copyright holders and the TOPPERS Project are exempt
+#      from responsibility for any type of damage directly or indirectly
+#      caused from the use of this software and are indemnified by any
+#      users or end users of this software from any and all causes of
+#      action whatsoever.
+#
+#  THIS SOFTWARE IS PROVIDED "AS IS." THE ABOVE COPYRIGHT HOLDERS AND
+#  THE TOPPERS PROJECT DISCLAIM ANY EXPRESS OR IMPLIED WARRANTIES,
+#  INCLUDING, BUT NOT LIMITED TO, ITS APPLICABILITY TO A PARTICULAR
+#  PURPOSE. IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS AND THE
+#  TOPPERS PROJECT BE LIABLE FOR ANY TYPE OF DAMAGE DIRECTLY OR
+#  INDIRECTLY CAUSED FROM THE USE OF THIS SOFTWARE.
+#
+
+module TECSCDE
+  #== AttrTreeView: show cell list
+  # formerly this class is sub-class of Gtk::TreeView
+  # currently this class has Gtk::TreeView
+  class AttrTreeView
+    # @choice_list::{name=>ListStore}
+    # @cell::TmCell
+    # @ct_attr_list::{ String(attr_name) => String(initializer) }
+    # @view::TECSCDE::View::MainView
+    # @tree_view::Gtk::TreeView
+
+    COL_NAME = 0
+    COL_TYPE = 1
+    COL_VALUE = 2
+
+    attr_reader :tree_view # Gtk::TreeView
+
+    #=== initialize
+    def initialize(tree_view)
+      @tree_view = tree_view
+
+      combo_list = Gtk::ListStore.new(String)
+      iter = combo_list.append
+      iter[0] = "a0"
+      combo_list = Gtk::ListStore.new(String, String, String)
+      # iter = combo_list.append
+      # iter[0] = "a0"
+      # iter[1] = "b0"
+      # iter[2] = "c0"
+      # iter = combo_list.append
+      # iter[0] = "a1"
+      # iter[1] = "b1"
+      # iter[2] = "c1"
+
+      # combo_list2 = Gtk::ListStore.new(String, String, String)
+      # iter = combo_list2.append
+      # iter[0] = "A0"
+      # iter[1] = "B0"
+      # iter[2] = "C0"
+      # iter = combo_list2.append
+      # iter[0] = "A1"
+      # iter[1] = "B1"
+      # iter[2] = "C1"
+
+      # create data model
+      liststore = Gtk::ListStore.new(String, String, String)
+
+      # set data model to tree view(self)
+      @tree_view.set_model(liststore)
+
+      # create renderer for text
+      renderer = Gtk::CellRendererText.new
+
+      #----- set column information -----#
+
+      # ATTRIBUTE column
+      col = Gtk::TreeViewColumn.new("attribute", renderer, text: COL_NAME)
+      col.set_cell_data_func(renderer) do |_col, renderer, _model, iter|
+        if iter[COL_VALUE].nil? || iter[COL_VALUE] == ""
+          renderer.foreground = "red"
+        elsif @cell.editable?
+          renderer.foreground = "black"
+        else
+          renderer.foreground = "blue"
+        end
+      end
+      @tree_view.append_column(col)
+
+      # TYPE column
+      col = Gtk::TreeViewColumn.new("type", renderer, text: COL_TYPE)
+      col.set_cell_data_func(renderer) do |_col, renderer, _model, _iter|
+        if @cell.editable?
+          renderer.foreground = "black"
+        else
+          renderer.foreground = "blue"
+        end
+      end
+      @tree_view.append_column(col)
+
+      # VALUE column
+      renderer = Gtk::CellRendererCombo.new
+      renderer.text_column = 0
+      renderer.model = combo_list
+      col = Gtk::TreeViewColumn.new("value", renderer, text: COL_VALUE)
+      col.set_cell_data_func(renderer) do |_col, renderer, _model, iter|
+        # p "iter[0]=#{iter[0]}"
+        if @cell.get_attr_list[iter[COL_NAME].to_sym].nil?
+          renderer.foreground = "orange"
+        elsif @cell.editable?
+          renderer.foreground = "black"
+        else
+          renderer.foreground = "blue"
+        end
+
+        if @cell.editable?
+          renderer.editable = true
+        else
+          renderer.editable = false
+        end
+
+        if @choice_list[iter[0]]
+          renderer.model = @choice_list[iter[0]]
+          renderer.has_entry = false
+          renderer.text_column = 0
+        else
+          renderer.model = nil
+          renderer.text_column = 0
+          renderer.has_entry = true
+        end
+
+        # if iter[2] && iter[2] != ""
+        # if iter[1] == "ID"
+        #   renderer.model = combo_list
+        #   renderer.has_entry = false
+        #   renderer.text_column = 0
+        # elsif iter[1] == "SIZE"
+        #   renderer.model = combo_list2
+        #   renderer.has_entry = false
+        #   renderer.text_column = 1
+        # elsif iter[1] == "PRI"
+        #   renderer.model = combo_list
+        #   renderer.has_entry = false
+        #   renderer.text_column = 2
+        # else
+        #   renderer.model = nil
+        #   renderer.text_column = 0
+        #   renderer.has_entry = true
+        # end
+      end
+      renderer.signal_connect("edited") do |_w, path, new_text|
+        # new_text can be wrong if 'text_column' is changed in each row
+        # after selection is changed, before sending signal, many rows are redrawn
+
+        # p "new_text='#{new_text}'"
+        if (iter = @tree_view.model.get_iter(path))
+          if new_text.nil? || new_text == ""
+            if @ct_attr_list[iter[COL_NAME]]
+              iter[COL_VALUE] = @ct_attr_list[iter[COL_NAME]]
+            else
+              iter[COL_VALUE] = new_text
+            end
+            if new_text == ""
+              new_text = nil
+            end
+          else
+            iter[COL_VALUE] = new_text
+          end
+          @cell.set_attr(iter[COL_NAME].to_sym, new_text)
+          @cell.model.set_undo_point
+          @view.paint_canvas
+        end
+      end
+      @tree_view.append_column(col)
+    end
+
+    #=== AttrTreeView#set_cell
+    # cell::TmCell
+    def set_cell(cell)
+      clear
+      @cell = cell
+      @choice_list = {}
+      @ct_attr_list = {}
+      cell_attr_list = cell.get_attr_list
+
+      ct = @cell.get_celltype
+      return unless ct
+      #----- register attributes and initializer to tree view model -----#
+      ct.get_attribute_list.each do |attr|
+        iter = @tree_view.model.append
+        name = attr.get_name.to_s
+        if attr.get_initializer
+          @ct_attr_list[name] = attr.get_initializer.to_CDL_str
+        end
+
+        iter[COL_NAME] = name
+        iter[COL_TYPE] = "#{attr.get_type.get_type_str}#{attr.get_type.get_type_str_post}"
+        if cell_attr_list[name.to_sym]
+          iter[COL_VALUE] = cell_attr_list[name.to_sym]
+        elsif attr.get_initializer
+          iter[COL_VALUE] = attr.get_initializer.to_CDL_str
+        end
+
+        #----- choice list model -----#
+        if attr.get_choice_list
+          @choice_list[name] = Gtk::ListStore.new(String)
+          attr.get_choice_list.each do |choice|
+            iter = @choice_list[name].append
+            iter[0] = CDLString.remove_dquote(choice.val)
+          end
+        end
+      end
+    end
+
+    def clear
+      @tree_view.model.clear
+    end
+
+    #=== AttrTreeView#set_view
+    # view::TECSCDE::View::MainView
+    def set_view(view)
+      @view = view
+    end
+  end
+end