@@ -18,10 +18,19 @@ package require duktape 0.7 package require tuapi package require pki 0.6 package require pki::pkcs11 0.9.9 + +# Files +set ::files(chrome-emu.js) { +@@CHROME_EMU_JS@@ +} + +set ::files(ssh-agent-noasync.js) { +@@SSH_AGENT_NOASYNC_JS@@ +} ## HACK: Fix up older versions of "pki" to include the raw certificate ## this is needed apply {{} { set procToUpdate ::pki::x509::parse_cert @@ -154,10 +163,17 @@ delete __parseCert; } } proc readFile {fileName} { + if {[info exists ::files($fileName)]} { + set data $::files($fileName) + if {[string range [string trim $data] 0 1] ne "@@"} { + return $data + } + } + set fileName [file join $::dir $fileName] if {![info exists ::readFile($fileName)]} { catch { set fd [open $fileName] set ::readFile($fileName) [read $fd]