Skip to content

Instantly share code, notes, and snippets.

View carlohamalainen's full-sized avatar

Carlo Hamalainen carlohamalainen

29 followers · 8 following
View GitHub Profile
@carlohamalainen
carlohamalainen / gist:1318790
Created October 27, 2011 04:42
(ns blerp
(:require [clojure.xml :as xml])
(import (java.io ByteArrayInputStream)))
(def xml-data "<body> <myheader> <author> bob </author> </myheader> <data> d1 </data> <data>d2</data> <data>d3</data> </body>")
(def xml-parsed (let [input-stream (ByteArrayInputStream. (.getBytes xml-data))]
(xml-seq (xml/parse input-stream))))
(let [name-blob (for [x xml-parsed
@carlohamalainen
carlohamalainen / gist:4128947
Created November 22, 2012 01:37
Fiddling with STM and processes
-- Fiddling around with STM and shell processes.
-- Carlo Hamalainen <carlo.hamalainen@gmail.com>
import Control.Concurrent
import Control.Concurrent.MVar
import Control.Concurrent.STM
import Control.Concurrent.STM.TChan
import Control.Exception
@carlohamalainen
carlohamalainen / install_wxWidgets_2.9.4.sh
Created November 24, 2012 07:21
Install wxWidgets 2.9.4 on Debian Squeeze
#!/bin/bash
set -x
set -e
module load python/2.7.3
mkdir -p /opt/src
cd /opt/src
@carlohamalainen
carlohamalainen / launcher-06.py
Created December 9, 2012 22:57
Debugging threading problem in launcher.py
# Debugging for a threading/ui problem. Sometimes get stuck in an infinite
# loop just after the line "logger.debug('AAA 6')"
import logging
from StringIO import StringIO
# The top-level logging object. We call this with things like
# logger.debug(...), logger.error(...), etc.
@carlohamalainen
carlohamalainen / launcher-08a.py
Created December 10, 2012 20:49
GUI threading printing thread ident
# Debugging for a threading/ui problem. Sometimes get stuck in an infinite
# loop just after the line "logger.debug('AAA 6')"
import logging
from StringIO import StringIO
# The top-level logging object. We call this with things like
# logger.debug(...), logger.error(...), etc.
@carlohamalainen
carlohamalainen / callafter-01.py
Created December 10, 2012 23:13
callafter thread debugging
# Debugging for a threading/ui problem. Sometimes get stuck in an infinite
# loop just after the line "logger.debug('AAA 6')"
import logging
from StringIO import StringIO
# The top-level logging object. We call this with things like
# logger.debug(...), logger.error(...), etc.
@carlohamalainen
carlohamalainen / blammo.py
Created December 11, 2012 03:59
thread timing issues with CallAfter
"""
Typical failure, about 70% of the time on a Debian Squeeze 32bit VM (in VirtualBox, with Debian Squeeze 64bit host OS).
Exception in thread Thread-1:
Traceback (most recent call last):
File "/opt/sw/32bit/debian/python/2.7.3/lib/python2.7/threading.py", line 551, in __bootstrap_inner
self.run()
File "blammo.py", line 49, in run
myappMainFrame.loginThread.boo = 42
AttributeError: 'MyAppMainFrame' object has no attribute 'loginThread'
@carlohamalainen
carlohamalainen / sencommand.clj
Created December 18, 2012 20:45
(defn create-session [hostname username password]
(doto (. (new JSch) getSession username hostname 22)
(.setPassword password)
(.setConfig "StrictHostKeyChecking" "no")
(.connect)
(.setServerAliveInterval 1000)
(.setServerAliveCountMax 30)))
(defn sleep [seconds]
(. Thread (sleep (* 1000 seconds))))
@carlohamalainen
carlohamalainen / sendcommand.java
Created December 18, 2012 20:44
// Somewhere earlier:
session = jsch.getSession(cvlUsername, cvlHost, 22);
session.setPassword(cvlPassword);
session.setConfig("StrictHostKeyChecking", "no");
session.connect();
session.setServerAliveInterval(1000);
session.setServerAliveCountMax(30);
commandOutput = sendCommand(session, "uptime", true, launcherLogWindowTextArea);
@carlohamalainen
carlohamalainen / ReadNovaList.hs
Created February 19, 2013 03:10
Uses Parsec to read the results of "nova list".
import Control.Applicative hiding ((<|>),many)
import Control.Monad
import Control.Monad.State
import Text.Parsec
import Text.Parsec.String
import Data.Functor.Identity
import Safe (headMay)
data Network = Network { networkCell :: String
, networkIP :: String