This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
var http = require('http'); | |
var tcl = require('./nodetcl.node'); | |
var interp = new tcl.NodeTcl(); | |
interp.eval("package require flightaware"); | |
interp.eval("package require flightaware-core"); | |
interp.eval("set startTime [clock seconds]"); | |
http.createServer(function (req, res) { | |
res.writeHead(200, {'Content-Type': 'text/plain'}); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/tclsh8.5 | |
package require speedtable | |
speedtables Animinfo 1.1 { | |
table animation_characters { | |
varstring name indexed 1 unique 0 | |
varstring home | |
varstring show indexed 1 unique 0 | |
varstring dad |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- web/skins/classic/views/options.php (revision 3648) | |
+++ web/skins/classic/views/options.php (working copy) | |
@@ -211,10 +211,13 @@ | |
{ | |
$shortName = preg_replace( '/^ZM_/', '', $name ); | |
$optionPromptText = !empty($OLANG[$shortName])?$OLANG[$shortName]:$value['Prompt']; | |
+ | |
+ $optionHelpText = !empty($OLANG[$shortName])?$OLANG[$shortName]:$config[$name]['Help']; | |
+ $optionHelpText = preg_replace( "/~~/", "\n", $optionHelpText ); | |
?> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#include <boost/interprocess/managed_mapped_file.hpp> | |
#include <boost/interprocess/managed_shared_memory.hpp> | |
#include <boost/interprocess/allocators/allocator.hpp> | |
#include <boost/interprocess/containers/string.hpp> | |
#include <boost/flyweight.hpp> | |
#include <boost/flyweight/no_tracking.hpp> | |
#include <boost/flyweight/hashed_factory.hpp> | |
using namespace boost::flyweights; | |
using namespace boost::container; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff -uwr mod_rivet.orig/Makefile mod_rivet/Makefile | |
--- mod_rivet.orig/Makefile 2014-03-12 18:03:28.000000000 -0500 | |
+++ mod_rivet/Makefile 2014-03-12 18:03:52.000000000 -0500 | |
@@ -16,7 +16,7 @@ | |
LIB_DEPENDS= libitcl.so:${PORTSDIR}/lang/itcl | |
USE_APACHE= 22+ | |
-USE_AUTOTOOLS= aclocal automake libtool libtoolize | |
+USE_AUTOTOOLS= aclocal libtool libtoolize autoheader automake autoconf | |
USE_LDCONFIG= ${PREFIX}/lib/rivet |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/local/bin/tclsh | |
proc doit {newkey} { | |
global myarray | |
global clocknow | |
# store a new value into the array | |
set myarray($newkey) $clocknow |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/local/bin/tclsh8.6 | |
package require http | |
package require autoproxy | |
package require tls | |
proc init1 {} { | |
set http_proxy_host "proxy" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/local/bin/tclsh | |
package require Thread | |
set threadstart { | |
puts "thread started" | |
tsv::incr sharedData threadCount | |
} | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/local/bin/tclsh | |
package require Thread | |
# initialize the thread pool | |
set mypool [tpool::create -minworkers 1 -maxworkers 5] | |
# queue up something that exits the thread | |
tpool::post $mypool "puts \"hello\"; thread::exit" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/local/bin/tclsh | |
package require Thread | |
# initialize the thread pool | |
set mypool [tpool::create -minworkers 1 -maxworkers 5] | |
# queue up something that exits the thread. | |
# this will be unable to process more than 5 events because all of the workers have gone away. | |
for {set i 0} {$i < 10} {incr i} { |
OlderNewer