Check-in [26eece52d6]

Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Bit of extended debugging in meta data handling. Fixed issue with name to use in the meta data of apps.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:26eece52d65068e7b87237d8c3205d42e887af26
User & Date: aku 2017-06-14 23:40:33
Context
2017-06-14
23:41
Fix sorting of test times in summary output, note we are sorting numbers. check-in: 966cb6e777 user: aku tags: trunk
23:40
Bit of extended debugging in meta data handling. Fixed issue with name to use in the meta data of apps. check-in: 26eece52d6 user: aku tags: trunk
2015-05-06
18:31
Prevent installation abort when fossil executable is missing. Also made code more robust against an early fail leaving some variables undefined. check-in: 8efd9e603c user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to meta.tcl.

70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
    return
}

proc ::kettle::meta::read-internal {file etype ename} {
    variable md
    variable mduser

    #puts I|$file
    set block [lindex [GetInternal [path cat $file]] 1]
    if {$block eq {}} {
	return 0
    }

    set ekey [list $etype $ename]
    set has  [Parse $block]







|







70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
    return
}

proc ::kettle::meta::read-internal {file etype ename} {
    variable md
    variable mduser

    #puts I|$file|$etype|$ename
    set block [lindex [GetInternal [path cat $file]] 1]
    if {$block eq {}} {
	return 0
    }

    set ekey [list $etype $ename]
    set has  [Parse $block]

Changes to tclapp.tcl.

18
19
20
21
22
23
24


25
26
27
28
29
30
31
32
    set src [path sourcedir $fname]

    if {![file exists $src]} {
	io trace {    NOT FOUND}
	return
    }



    set name [file rootname $fname]
    meta read-internal $src application $name

    io trace {    Accepted: $fname}

    recipe define install-app-$fname "Install application $fname" {name src} {
	path install-script \
	    $src [path bindir] [info nameofexecutable] \







>
>
|







18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    set src [path sourcedir $fname]

    if {![file exists $src]} {
	io trace {    NOT FOUND}
	return
    }

    # Derive application name from the path. Ignore extension and the
    # directory the app file is in.
    set name [file tail [file rootname $fname]]
    meta read-internal $src application $name

    io trace {    Accepted: $fname}

    recipe define install-app-$fname "Install application $fname" {name src} {
	path install-script \
	    $src [path bindir] [info nameofexecutable] \