commit e4dc98ad3443ecb8d3c9e9dc5209cde695d9f954
Author: Sergey Kalinin <banzaj28@yandex.ru>
Date:   Wed May 16 14:17:27 2018 +0300

    Initial release

diff --git a/1c_srv.cfg b/1c_srv.cfg
new file mode 100644
index 0000000..985d5af
--- /dev/null
+++ b/1c_srv.cfg
@@ -0,0 +1,11 @@
+######################################################
+#                Rac GUI
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Copyright (c) "http://nuk-svk.ru", 2018,
+# https://bitbucket.org/svk28/rac-gui
+######################################################
+
+set host 1c-vm-srv
+set port 1541
+
diff --git a/CHANGELOG b/CHANGELOG
new file mode 100644
index 0000000..1970aa7
--- /dev/null
+++ b/CHANGELOG
@@ -0,0 +1,9 @@
+######################################################
+#	Rac GUI
+#	Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Home page: https://bitbucket.org/svk28/rac-gui
+######################################################
+
+16/05/2018
+	- Beginning the project
diff --git a/COPYING b/COPYING
new file mode 100644
index 0000000..80bda34
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,7 @@
+######################################################
+#	Rac GUI
+#	Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Home page: https://bitbucket.org/svk28/rac-gui
+######################################################
+
diff --git a/INSTALL b/INSTALL
new file mode 100644
index 0000000..80bda34
--- /dev/null
+++ b/INSTALL
@@ -0,0 +1,7 @@
+######################################################
+#	Rac GUI
+#	Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Home page: https://bitbucket.org/svk28/rac-gui
+######################################################
+
diff --git a/README b/README
new file mode 100644
index 0000000..80bda34
--- /dev/null
+++ b/README
@@ -0,0 +1,7 @@
+######################################################
+#	Rac GUI
+#	Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Home page: https://bitbucket.org/svk28/rac-gui
+######################################################
+
diff --git a/TODO b/TODO
new file mode 100644
index 0000000..80bda34
--- /dev/null
+++ b/TODO
@@ -0,0 +1,7 @@
+######################################################
+#	Rac GUI
+#	Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Home page: https://bitbucket.org/svk28/rac-gui
+######################################################
+
diff --git a/errors b/errors
new file mode 100644
index 0000000..e69de29
diff --git a/lib/function.tcl b/lib/function.tcl
new file mode 100644
index 0000000..bcab305
--- /dev/null
+++ b/lib/function.tcl
@@ -0,0 +1,60 @@
+######################################################
+#                Rac GUI
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Copyright (c) "http://nuk-svk.ru", 2018
+# https://bitbucket.org/svk28/rac-gui
+######################################################
+
+
+proc Quit {} {
+    exit
+}
+
+proc TreePress {tree} {
+    global host
+    set cluster [$tree item [$tree selection] -values]
+    set root [$tree selection]
+    RunCommand $root "infobase summary list --cluster=$cluster $host"
+
+}
+proc RunCommand {root par} {
+    global dir rac_cmd cluster
+    set pipe [open "|$rac_cmd $par" "r"]
+   while {[gets $pipe line]>=0} {
+        puts "$line"
+        set str [split $line ":"]
+        set param [string trim [lindex $str 0]]
+        set val [string trim [lindex $str 1]]
+        .frm_work.tree_work insert {} end -text "$param" -values "$val"
+        #.frm_work.tree_work insert {} end -text "$val" -values "$val"
+        if {$param eq "cluster"} {
+            set cluster $val
+        }
+        if {$param eq "name"} {
+            set cluster_name $val
+            .frm_tree.tree insert $root end -text "$val" -values "$cluster"
+        }
+    }
+   close $pipe
+#    fileevent $pipe readable [list DebugInfo .frm_work.tree_work $pipe]
+#    fconfigure $pipe -buffering none -blocking no
+}
+
+proc DebugInfo {widget f} {
+   if {[eof $f]} {
+        catch [close $f] msg
+        if {$msg != ""} {
+            puts $msg
+        } else {
+            puts $msg
+        }
+    }
+
+    while {[gets $f line]>=0} {
+        puts "$line"
+        $widget insert {} end -text "$line" -values "$line"
+    }
+
+
+}
diff --git a/lib/gui.tcl b/lib/gui.tcl
new file mode 100644
index 0000000..90183d8
--- /dev/null
+++ b/lib/gui.tcl
@@ -0,0 +1,81 @@
+######################################################
+#                Rac GUI
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Copyright (c) "http://nuk-svk.ru"
+# 2018, https://bitbucket.org/svk28/rac-gui
+######################################################
+
+
+
+if {[info exists topLevelGeometry]} {
+    wm geometry . $topLevelGeometry
+} else {
+    wm geometry . 1024x768+0+0
+}
+
+wm title . "1C Rac GUI"
+wm iconname . "1C Rac Gui"
+#image create photo icon -data {}
+#wm iconphoto . icon
+wm protocol . WM_DELETE_WINDOW Quit
+wm overrideredirect . 0
+wm positionfrom . user
+
+set frm_tree [frame .frm_tree]
+
+ttk::scrollbar $frm_tree.hsb1 -orient horizontal -command [list $frm_tree.tree xview]
+ttk::scrollbar $frm_tree.vsb1 -orient vertical -command [list $frm_tree.tree yview]
+set tree [ttk::treeview $frm_tree.tree -xscrollcommand [list $frm_tree.hsb1 set] -yscrollcommand [list $frm_tree.vsb1 set]]
+
+grid $tree -row 0 -column 0 -sticky nsew
+grid $frm_tree.vsb1 -row 0 -column 1 -sticky nsew
+grid $frm_tree.hsb1 -row 1 -column 0 -sticky nsew
+grid columnconfigure $frm_tree 0 -weight 1
+grid rowconfigure $frm_tree 0 -weight 1
+
+#bind $frm_tree.tree <ButtonRelease> "TreePress %x %y %X %Y $frm_tree.tree"
+bind $frm_tree.tree <ButtonRelease> "TreePress $frm_tree.tree"
+
+#$tree insert {} end -id Languages -text "Languages"
+#$tree insert Languages end -text C -values [list "Dennis Ritchie" "1990"]
+#$tree insert "" end -id Direct -text "Direct"   
+#$tree insert Direct end -text C -values [list "Dennis Ritchie" "1990"]
+
+set frm_work [frame .frm_work]
+ttk::scrollbar $frm_work.hsb -orient horizontal -command [list $frm_work.tree_work xview]
+ttk::scrollbar $frm_work.vsb -orient vertical -command [list $frm_work.tree_work yview]
+set tree_work [ttk::treeview $frm_work.tree_work -columns "par val" -displaycolumns "par val" -xscrollcommand [list $frm_work.hsb set] -yscrollcommand [list $frm_work.vsb set]]
+#set tree_work [ttk::treeview $frm_work.tree_work \
+
+#$tree_work heading Creator -text "Creator" -anchor center
+#$tree_work heading Year -text "Year" -anchor center
+
+grid $tree_work -row 0 -column 0 -sticky nsew
+grid $frm_work.vsb -row 0 -column 1 -sticky nsew
+grid $frm_work.hsb -row 1 -column 0 -sticky nsew
+grid columnconfigure $frm_work 0 -weight 1
+grid rowconfigure $frm_work 0 -weight 1
+
+#pack $tree_work -expand true -fill both
+#pack $frm_tree -side left -expand true -fill both
+pack $frm_tree $frm_work -side left -expand true -fill both
+
+# $tree_work insert {} end -id Languages -text "Languages"
+# $tree_work insert Languages end -text C -values [list "Dennis Ritchie" "1990"]
+# $tree_work insert "" end -id Direct -text "Direct"   
+# $tree_work insert Direct end -text C -values [list "Dennis Ritchie" "1990"]
+# 
+
+# #toplevel .
+# text .t.txt -wrap none -xscroll {.t.h set} -yscroll {.t.v set}
+# scrollbar .t.v -orient vertical   -command {.t.txt yview}
+# scrollbar .t.h -orient horizontal -command {.t.txt xview}
+# 
+# # Lay them out
+# grid .t.txt .t.v -sticky nsew
+# grid .t.h        -sticky nsew
+# 
+# # Tell the text widget to take all the extra room
+# grid rowconfigure    .t .t.txt -weight 1
+# grid columnconfigure .t .t.txt -weight 1
diff --git a/rac_gui.cfg b/rac_gui.cfg
new file mode 100644
index 0000000..b1c2230
--- /dev/null
+++ b/rac_gui.cfg
@@ -0,0 +1,10 @@
+######################################################
+#                Rac GUI
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Copyright (c) "http://nuk-svk.ru", 2018,
+# https://bitbucket.org/svk28/rac-gui
+######################################################
+set locale "ru"
+set rac_cmd "/opt/1C/v8.3/x86_64/rac"
+set dir(lib) [file join [pwd] lib]
diff --git a/rac_gui.tcl b/rac_gui.tcl
new file mode 100644
index 0000000..9162725
--- /dev/null
+++ b/rac_gui.tcl
@@ -0,0 +1,44 @@
+#!/bin/sh
+# Tcl ignores the next line -*- tcl -*- \
+exec wish "$0" -- "$@"
+
+######################################################
+#        Rac GUI
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Home page: https://bitbucket.org/svk28/rac-gui
+######################################################
+
+source [file join [pwd] rac_gui.cfg]
+source [file join [pwd] 1c_srv.cfg]
+
+set dir(root) [pwd]
+
+set dir(msg) "[file join $dir(root) msgs]"
+set dir(lib) "[file join $dir(root) lib]"
+
+## SETTINGS ENVIRONMENT LANGUAGE ##
+if [info exists env(LANG)] {
+    set locale $env(LANG)
+} else {
+    set locale $locale
+}
+
+::msgcat::mclocale $locale
+::msgcat::mcload $dir(msg)
+
+## LOAD FILE ##
+# Load modules but maain.tcl must last loaded
+foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] {
+    if {[file tail $modFile] ne "gui.tcl"} {
+        source $modFile
+        puts "Loaded module $modFile"
+    }
+}
+source [file join $dir(lib) gui.tcl]
+
+puts "$rac_cmd $dir(lib)"
+.frm_tree.tree insert {} end -id "$host" -text "$host" -values "$host"
+
+RunCommand $host "cluster list $host $port"
+