| blob | 1ae1eb4bd0b0af961069089c9766fdbea6fcbf62 |
1 class build {
3 # widgets
4 field w
5 field w_hpane
6 field w_vpane
8 field w_files
9 field w_diags
10 field w_errs
11 field ui_errs_width 3
12 field ui_errs_width_max
13 field w_warns
14 field ui_warns_width 3
15 field ui_warns_width_max
16 field ui_files_cols
18 field w_lnos
19 field ui_lnos_width 5
20 field ui_lnos_width_max
21 field w_hits
22 field ui_hits_cols
24 field w_indicator
25 field m_configs
26 field w_output
27 field ui_finder
28 field w_entry
30 field state
31 field state_change_cb
33 field file_list
34 field current_file_list
35 field file_info
36 field diag_list
37 field current_diag
38 field current_path {}
39 field current_path_label {}
40 field current_path_lno_hits
41 field file_list_needs_update 0
42 field busy 0
43 field file_list_busy 0
44 field hits_busy 0
45 field current_fd
47 field dir_stack {}
48 field run_nl {}
49 field hits_nl {}
51 field shell
52 field envmods
53 field configmods
54 field selected_configs
55 field buildconfig_config
56 field buildconfig_menu_id 0
58 # record and history
59 field current_cmd {}
60 field current_cmd_label {}
62 field build_name
63 field build_index
64 field output_hash_pipe
65 field output_hash_out
66 # static tree entries (cwd, environ)
67 field static_build_tree
68 # per run tree entries (output, exit status, worktree)
69 field build_tree
70 field build_start
71 field build_start_s
72 field build_end
73 field build_run_s 0
74 field build_timer
75 field cmd_history
76 field cmd_history_pos 0
77 field build_history
78 field build_history_pos -1
80 constructor embed {i_w {i_vpath {}} {i_ref {}} {i_shell {}} {i_envmods {}} {i_configs {}} {i_state_change_cb {}}} {
84 if {[catch {_init $this $i_vpath $i_ref $i_shell $i_envmods $i_configs $i_state_change_cb} err]} {
86 }
89 }
92 global env
96 }
100 */
104 refs/*
106 builds/*
108 *
110 }
111 }
119 }
133 }
134 }
141 # base path for all grep widgets
172 ## list of files with errors and warnings
180 -foreground black
195 -sticky nsew
225 -state disabled
238 -state disabled
243 # simulate linespacing, as if it has an icon like the index/worktree
244 # lists
252 incr b
253 }
256 }
257 }
270 -sticky we
277 -sticky we
287 rmsel_tag $i
294 }
296 ## error/warning description from one file
304 -anchor e
324 -font font_diff
341 -font font_diff
342 $w_hits tag conf normal
363 -sticky we
370 -sticky we
379 rmsel_tag $w_lnos
388 set bind_cmd delegator_bind
389 }
392 }
394 ## command output and entry
400 -foreground white
418 -font font_diff
419 $w_output tag conf out
423 #$w_output tag conf path -underline 1
424 #$w_output tag conf pos -underline 1
435 }
458 -sticky we
463 -sticky we
469 ]
479 -sticky we
502 # scoll of file list
507 }
524 set state running
532 _reset_diag_list $this
537 # resolve vpath
540 # make the vpath relative to gitwork_dir, when this is an ancestor
544 }
546 set cmd_dir .
547 }
550 blob \
553 # load history
565 continue
566 }
568 unset hist_entry
569 }
571 } err_info
572 }
574 method _run {} {
575 global env
582 return
583 }
590 set state running
594 array unset file_info
604 }
614 }
628 # record state of work tree
636 tree \
639 git_reset_env
641 set state failed
644 git_reset_env
652 return
653 }
658 # environ
660 # open pipe to git-hash-object
672 blob \
678 set state failed
687 return
688 }
690 # open pipe to git-hash-object
704 set state failed
715 return
716 }
720 -translation lf
722 }
724 method _load {} {
727 return
728 }
736 set state loading
738 foreach {build_c build_t build_run_s current_cmd} [lindex $build_history $build_history_pos] break
743 array unset file_info
744 _reset_diag_list $this
751 }
761 }
776 # load infos from build tree
784 continue
785 }
787 cwd {
790 }
791 }
792 exit_status {
795 }
796 }
797 output {
800 }
801 }
802 }
803 }
807 return
808 }
812 # read output
816 -translation lf
818 }
829 }
831 # pass the original line to git-hash-object
834 }
836 # parse color sequences and remove them
841 set type out
848 || [regexp -indices {^(?:In file included| ) from (.*?)(?::([0-9]+(?::[0-9]+)?))?[:,]} $line imatch ipath ipos]
851 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: At global scope:} $line imatch ipath ipos]
852 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: (?:instantiated|required) from .*$} $line imatch ipath ipos]
853 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: ((?:fatal )?(note|warning|WARNING|error): .*)$} $line imatch ipath ipos imsg itype]
854 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: .*? is expanded from...} $line imatch ipath ipos]
855 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: installing [`'].*'} $line imatch ipath ipos]
856 || [regexp -indices {^(.*?):(?:\(.*?\)): ((undefined reference to) [`'].*')} $line imatch ipath imsg itype]
857 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: ((undefined reference to) [`'].*')} $line imatch ipath ipos imsg itype]
858 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: ((required file) [`'].*' not found)} $line imatch ipath ipos imsg itype]
859 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: ([^\s]*? (multiply defined in condition) .* \.\.\.)} $line imatch ipath ipos imsg itype]
860 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: (\.\.\. [`'].*' (previously defined here))} $line imatch ipath ipos imsg itype]
861 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: (.* (does not appear in AM_CONDITIONAL))} $line imatch ipath ipos imsg itype]
862 || [regexp -indices {^(.*?)(?::([0-9]+(?::[0-9]+)?))?: ([`'].*' (included from here))} $line imatch ipath ipos imsg itype]
863 } {
864 #puts "work dir: $::GIT_WORK_TREE"
865 #puts "current stack: [lindex $dir_stack end]"
866 #puts "output: $line"
870 #puts "path: $path"
872 #puts "full path: $path"
874 #puts "normalized path: $path"
876 # only remove the gitwork dir prefix, if the normalized path is
877 # actually under the git work tree
878 #puts "work dir prefix: [string range $path 0 [string length $::GIT_WORK_TREE]-1]"
881 }
882 #puts "final path: $path"
883 #puts ""
886 set type note
894 }
897 }
901 }
902 }
903 }
905 # replace the original path in the output, when the file
906 # exists
911 # the message
914 # the linepos
918 }
922 _update_diag_list $this $cat
923 }
925 # (line in the output, line in the file, type of hit, message)
930 # path unknown, add it
932 # append this file to the list of path
934 }
946 break
947 }
948 }
958 }
959 }
963 # convert ipath and ipos after the original path was replaced
968 # shift the ipos only when it is not infront of the path
973 }
975 # file does not exists, clear ipath and ipos, so that there will
976 # be no tags for them
979 }
981 }
984 # huh, path maybe empty?
987 }
988 set type note
990 }
992 # huh, path maybe empty?
995 }
996 set type note
998 }
1006 set prefix clr
1009 # ignore bold (1), because it doesn't buy us anything
1013 continue
1014 }
1018 }
1019 }
1023 # tag the path
1028 # only add the pos tag, when there is a path too
1030 # tag the pos
1034 }
1035 }
1036 }
1040 }
1041 }
1050 set state committing
1056 }
1057 }
1059 # close the fd to git-hash-object, so that we can read the
1060 # result on the other end in
1064 blob \
1069 blob \
1072 _commit_build $this
1073 _safe_cmd $this
1077 }
1082 set state failed
1084 set state succeeded
1085 }
1089 }
1094 _update_file_list $this
1095 }
1102 }
1104 method _update_file_list {} {
1105 # TODO: remeber current position and selection
1106 # we append only, or update the number of errors/warnings
1111 return
1112 }
1121 }
1133 # filter based on diagnostic type
1149 }
1151 }
1162 }
1167 }
1171 }
1176 }
1177 }
1181 }
1184 }
1187 }
1189 # restore position
1198 # select the first file, when no one is selected
1202 # restore selection of current path
1204 incr lno
1205 }
1209 }
1210 }
1212 # reaload file and jump to last scroll pos
1213 _show_hits_for_file $this $current_path $hits_scroll_pos
1214 }
1219 # TODO: remeber scroll pos, when updating the same path?
1226 }
1229 return
1230 }
1234 }
1236 _show_hits_for_file $this $path
1237 }
1249 }
1255 # re-build current_path_lno_hits
1260 return
1261 }
1270 # filter based on diagnostic type
1278 }
1282 # lno unknown, add it
1286 }
1292 }
1295 }
1298 }
1302 # insert hits without line information
1319 }
1322 }
1329 }
1331 return
1332 }
1338 }
1343 }
1347 }
1352 git_reset_env
1353 # fallback to GNU nl and GNU grep to get the content
1354 set cmd2 [list | nl -s: -w1 -ba -- $current_path | env -u GREP_OPTIONS grep --color=never -C 3]
1357 }
1365 return
1366 }
1368 }
1369 git_reset_env
1376 -translation lf
1378 }
1388 # catch hunk sep --
1393 # remove any color from lno and sep
1401 # the actual line has the mark and the aux message of the primamry hit
1415 }
1419 }
1420 }
1421 }
1431 }
1435 }
1438 }
1440 }
1445 #update line number column width
1448 }
1454 }
1457 }
1463 }
1467 return
1468 }
1471 return
1472 }
1476 return
1477 }
1483 }
1487 return
1488 }
1491 return
1492 }
1498 set wlno [$w_lnos search -backwards -regexp {^[[:digit:]]+(?::[[:digit:]]+)?$} "@0,$y linestart" 1.0]
1499 }
1507 }
1508 }
1511 }
1513 method _safe_cmd {} {
1519 }
1521 }
1523 method _prev_cmd {} {
1527 }
1528 incr cmd_history_pos
1531 }
1532 }
1534 method _next_cmd {} {
1539 }
1540 }
1542 method _search_prev_cmd {} {
1545 _prev_cmd $this
1547 return
1548 }
1558 break
1559 }
1560 }
1561 }
1563 method _search_next_cmd {} {
1566 _next_cmd $this
1568 return
1569 }
1579 break
1580 }
1581 }
1582 }
1584 method _prev_build {} {
1586 incr build_history_pos
1587 _load $this
1588 }
1589 }
1591 method _next_build {} {
1594 _load $this
1595 }
1596 }
1598 method _cancel {} {
1605 set state canceling
1609 }
1616 # we killed the child ourself, don't handle this as an error
1620 }
1621 }
1624 set state failed
1626 set state succeeded
1627 }
1629 }
1630 }
1632 method _select_diagnostics {} {
1636 _update_file_list $this
1637 }
1639 method _reset_diag_list {} {
1646 }
1650 }
1662 }
1664 }
1668 }
1670 method reorder_bindtags {} {
1673 }
1674 }
1678 }
1688 }
1689 }
1701 }
1703 open_in_git_editor $path $lno
1704 }
1705 }
1708 # any change to current_path makes the current_path_lno_hits array invalid
1709 array unset current_path_lno_hits
1715 }
1716 }
1718 method _copy_path {} {
1719 clipboard clear
1724 }
1732 running {
1736 }
1737 succeeded {
1740 }
1741 failed {
1744 }
1745 canceling {
1748 }
1749 committing {
1752 }
1753 loading {
1757 }
1758 }
1762 }
1763 }
1764 }
1766 method _get_runtime {} {
1771 }
1773 && ![catch {set relative_start "[exec git log -1 -g --pretty=%ar $build_ref@{$build_history_pos}]"} err]} {
1775 }
1777 }
1779 method _update_runtime {} {
1784 }
1786 }
1788 method _commit_build {} {
1793 }
1797 }
1806 ]]
1810 restore_env $restore_envs
1817 }]} {
1819 }
1827 }
1833 return
1834 }
1841 return
1842 }
1847 }
1850 _show_hits_for_file $this $path
1851 }
1864 return
1865 }
1870 }
1873 _show_hits_for_file $this $path
1874 }
1876 method _visible {} {
1881 }
1882 }
1884 method _get_envmods {} {
1886 _load_config $this
1893 }
1894 }
1895 }
1897 }
1902 _load_config $this
1906 array unset selected_configs
1908 array unset menu_hierarchy
1909 # build the menu hierarchy first without actually entries
1911 set config [string range $full_config [string length {gui.buildconfig.}] end-[string length {.env}]]
1924 $parent index end
1926 }
1928 }
1929 }
1932 set config [string range $full_config [string length {gui.buildconfig.}] end-[string length {.env}]]
1937 }
1944 }
1961 }
1962 }
1965 }
1966 }
1968 method _load_config {} {
1969 global repo_config
1970 load_config 0
1971 array unset buildconfig_config
1972 # make this a list and iterate over all commands
1976 }
1980 }
1981 }
1982 }
1989 }
1990 }
1992 method _update_configs_from_menu {} {
1997 }
1998 }
1999 }
2001 }
2004 global env
2010 # remember, that the variable was set
2012 }
2016 }
2024 }
2031 }
2032 }
2038 # {$op eq "-"}
2040 }
2045 }
2046 }
2052 }
2053 }
2059 }
2060 }
2061 unset newenv
2064 }
2067 global env
2072 # remember, that the variable was set
2076 }
2081 }
2082 }
2084 }
2087 global env
2093 }
2094 }
2095 }