#!/usr/bin/tclsh
#    This is a part of LinuxCNC
#    Copyright 2006-2009 Jeff Epler <jepler@unpythonic.net>
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program 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 General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

# Load the Linuxcnc package, which defines variables for various useful paths
package require Linuxcnc

set ::program    $::argv0
set ::print_file [lindex $argv 1]
set ::debug_file [lindex $argv 0]

proc popup_msg {msg} {
  tk_messageBox \
    -title "$::program" \
    -type ok \
    -message "$msg"
}

proc create_report {} {
  set   info_file   /home/myfolder/linuxcnc_info.txt ;# created by linuxcnc_info
  set   report_file /home/myfolder/linuxcnc.report ;# created by this script
  exec  linuxcnc_info -s                 ;# -s: suppress opening by a viewer

  set   txt [.f2.t get 1.0 end]          ;# all text from text widget
  set   fd [open $report_file w]
  puts  $fd "Error report created by $::program:\n"
  puts  $fd $txt
  puts  $fd "-----------------------------------------------------------------------"
  puts  $fd "Info report created by linuxcnc_info:"
  close $fd
  exec  cat $info_file >> $report_file
  popup_msg "Report file created by linuxcnc_info:\n\n$report_file"
}

proc insert_file {w title f {p {}}} {
    if [catch {set fd [open $f r]
               set t [read $fd]
               close $fd
              } msg] {
       set t "$::program:\n   $msg" ;# info on failed open
       if {[string first dmesg $f] >= 0} {
          set sys ""
          catch {set sys [exec lsb_release -d]}
          set t "$t\n\ndmesg requires root privilege on this system\n$sys"
          set t "$t\nUse a terminal to issue the command: sudo dmesg"
       }
    }

    if {$p != {} && [regexp -all -linestop -lineanchor -indices $p $t match]} {
        set match [lindex $match 0]
        set t [string range $t $match end]
    }

    $w insert end "$title\n" title
    if {[string compare $t {}]} {
        $w insert end $t
    } else {
        $w insert end "(empty)\n"
    }
    $w insert end "\n"
}


wm ti . [msgcat::mc "System Errors"]
frame .f
label .f.b -bitmap error
label .f.l -justify l -wraplength 400 -text [msgcat::mc "System terminated with an error.  When reporting problems, please create a report file and include in your message."]
pack .f.b -side left -padx 8 -pady 8
pack .f.l -side left
pack .f -side top -fill x -anchor w

frame .f2
text .f2.t -yscrollcommand [list .f2.s set] -height 24
scrollbar .f2.s -command [list .f2.t yview]
grid rowconfigure .f2 0 -weight 1
grid columnconfigure .f2 0 -weight 1
grid .f2.t -row 0 -column 0 -sticky nsew
grid .f2.s -row 0 -column 1 -sticky ns
.f2.t tag configure title -font {Helvetica 16 bold}
pack .f2 -fill both -expand 1

insert_file .f2.t "Print file information:" $::print_file
insert_file .f2.t "Debug file information:" $::debug_file
if {"$linuxcnc::RTS" != "uspace"} {
    insert_file .f2.t "Kernel message information:" {|dmesg} \
	"^.*Adeos: Pipelining started\.|^.*RTAI registered\."
}
.f2.t configure -state disabled

frame .f3
#button .f3.b1 -text [msgcat::mc "Select All"] -command {.f2.t tag add sel 0.0 end; tk_textCopy .f2.t} -width 15 -padx 4 -pady 1

button .f3.b1a -text [msgcat::mc "Create Report File"] -command {create_report} -width 15 -padx 4 -pady 1

button .f3.b2 -text [msgcat::mc "Close"] -command {destroy .} -width 15 -padx 4 -pady 1
#pack .f3.b1 -side left -anchor e -padx 4 -pady 4
pack .f3.b1a -side left -anchor e -padx 4 -pady 4 -fill x -expand 1
pack .f3.b2 -side left -anchor e -padx 4 -pady 4
pack .f3 -side top -anchor e -fill x -expand 1
# Open the info file
%readfile("$info_file", "file_content")

# Check if the file contains the word USERMOT
if (contains(file_content, "USRMOT: ERROR: command 30 timeout"))
    # Found USERMOT, destroy immediately
    {destroy .}
else
    # Wait for 40 seconds before destroying
    wait 40s
    {destroy .}
endif