Check-in [d36db7c01b]
Overview
Comment:Made wrappers around minirivet for some XVFS calls
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: d36db7c01b0755f9544b80da4a9df2bb556a83c71e1ca2232f05d94f328d7afc
User & Date: rkeene on 2019-09-20 15:22:58
Other Links: manifest | tags
Context
2019-09-20
15:25
Logical cleanup check-in: 12383d30b7 user: rkeene tags: trunk
15:22
Made wrappers around minirivet for some XVFS calls check-in: d36db7c01b user: rkeene tags: trunk
15:18
Improved how the XVFS package finds its source files check-in: 2b7fa3a8fa user: rkeene tags: trunk
Changes

Modified lib/xvfs/xvfs.tcl from [53029d2552] to [4523133852].

246
247
248
249
250
251
252

253
254
255









256
257
	set ::xvfs::outputFiles [processDirectory $fsName $rootDirectory]

	set ::xvfs::fsName $fsName
	set ::xvfs::rootDirectory $rootDirectory
}

proc ::xvfs::run {} {

	::minirivet::parse [file join $::xvfs::_xvfsDir xvfs.c.rvt]
}











package provide xvfs 1







>



>
>
>
>
>
>
>
>
>


246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
	set ::xvfs::outputFiles [processDirectory $fsName $rootDirectory]

	set ::xvfs::fsName $fsName
	set ::xvfs::rootDirectory $rootDirectory
}

proc ::xvfs::run {} {
	uplevel #0 { package require minirivet }
	::minirivet::parse [file join $::xvfs::_xvfsDir xvfs.c.rvt]
}

proc ::xvfs::setOutputChannel {channel} {
	uplevel #0 { package require minirivet }
	tailcall ::minirivet::setOutputChannel $channel
}

proc ::xvfs::setOutputVariable {variable} {
	uplevel #0 { package require minirivet }
	tailcall ::minirivet::setOutputVariable $variable
}

package provide xvfs 1

Modified xvfs-create from [ef2102737b] to [934e8154c8].

39
40
41
42
43
44
45


46
47
48
49
50
51
52
53
54
55
56
57
58
	}

	return [join $output "\n"]
}

switch -- $mode {
	"run" {


		if {[info exists outputFile]} {
			set fd [open $outputFile w]
			::minirivet::setOutputChannel $fd
		}

		package require xvfs
		set ::xvfs::argv $argv
		::xvfs::run

		if {[info exists fd]} {
			close $fd
		}
	}







>
>


|


<







39
40
41
42
43
44
45
46
47
48
49
50
51
52

53
54
55
56
57
58
59
	}

	return [join $output "\n"]
}

switch -- $mode {
	"run" {
		package require xvfs

		if {[info exists outputFile]} {
			set fd [open $outputFile w]
			::xvfs::setOutputChannel $fd
		}


		set ::xvfs::argv $argv
		::xvfs::run

		if {[info exists fd]} {
			close $fd
		}
	}