Artifact 0cbe74a449555207841f5dd288d7d593bc792651:

• Executable file build/tcl/ssh-agent.tcl — part of check-in [7336ecd46a] at 2019-06-08 22:18:11 on branch trunk — Start of Tcl-based SSH agent that uses JavaScript implementation (user: rkeene, size: 617) [annotate] [blame] [check-ins using]

#! /home/rkeene/tmp/cackey/build/tcl/tclkit

package require duktape
package require tuapi

proc initSSHAgent {} {
	if {[info exists ::jsHandle]} {
		return
	}

	set chromeEmuJS [read [open chrome-emu.js]]
	set sshAgentJS [read [open ssh-agent-noasync.js]]

	set ::jsHandle [::duktape::init]

	::duktape::eval $::jsHandle $chromeEmuJS
	::duktape::eval $::jsHandle $sshAgentJS

	puts [::duktape::eval $::jsHandle {
		chrome.runtime.connectCallbacks[0]({
			sender: {
				id: "pnhechapfaindjhompbnflcldabbghjo"
			},
			onMessage: {
				addListener: function() {
					/* XXX:TODO */
				}
			}
		})
	}]
}

initSSHAgent