jl2

function randInt(minv, maxv) {
    var rv = minv + Math.floor(Math.random()*(maxv-minv));
    return rv;
}

function initialize(width, height, prob) {
    var life = new Array(height);
    for (var i = 0; i<height; ++i) {
        life[i] = new Array(width);
        for (var j=0; j<width; ++j) {

jl2

-- haskell code that spits out cgm3dt javascript calls to solidblock and point to create a menger sponge.

class JSObject a where
  to_js :: a -> String

class PtOffset a where
  add :: a -> CgmPt -> a

data CgmPt = CgmPt {
  x :: Double,

jl2

if (location.hostname.indexOf('sourceforge.net') != -1) {
    window.opera.addEventListener('BeforeScript', function (e) {
        e.preventDefault();
    }, false);
    window.opera.addEventListener('BeforeEvent.load', function (e)
                                  {
                                      if (e.event.target instanceof Document)
                                      {
                                          e.preventDefault();
                                          var nodes = e.event.target.getElementsByClassName('direct-download');

jl2

#!/usr/bin/ruby
 
require 'win32ole'
 
def get_catia()
  catia = nil
  catia = WIN32OLE.connect('CATIA.Application')
  if catia == nil then
      catia = WIN32OLE.new('CATIA.Application')
  end

jl2

(defun replace-python-exp ()
  "Run the region as a Python script, kill the region, insert the output of the Python script."
  (interactive)
  (let* ((tmp-file (make-temp-file "tmppl"))
         (rb (region-beginning))
         (re (region-end))
         (str (buffer-substring-no-properties rb re)))
    (if (string-match "print" str)
        (progn
          (write-region rb re tmp-file nil 1)

jl2

(global-set-key "\C-\M-g" 'ddg-bang-search)

(defun ddg-bang-search (bang)
  (interactive "s!")
  (let* ((search-query (replace-regexp-in-string " " "+" (buffer-substring-no-properties (region-beginning) (region-end))))
         (search-string (if (> (length bang) 0)
                            (concat "!" bang "+" search-query)
                          search-query)))
    (browse-url (concat "http://duckduckgo.com/?ka=h&kh=1&kj=b2&km=m&ko=1&ks=n&kt=h&ku=-1&kv=1&kw=s&kx=e&ky=b&k1=-1&q=" search-string))))

jl2

Traceback (most recent call last):
  File "/Library/Frameworks/Python.framework/Versions/3.2/lib/python3.2/site-packages/SQLAlchemy-0.7.3-py3.2.egg/sqlalchemy/pool.py", line 675, in _do_get
    return self._pool.get(wait, self._timeout)
  File "/Library/Frameworks/Python.framework/Versions/3.2/lib/python3.2/site-packages/SQLAlchemy-0.7.3-py3.2.egg/sqlalchemy/util/queue.py", line 137, in get
    raise Empty
sqlalchemy.util.queue.Empty

During handling of the above exception, another exception occurred:

Traceback (most recent call last):

jl2

79a80,81
>     description_encoding = 'use_encoding'
> 
116c118
<         return connection.connection.get_characterset_info()
---
>         return connection.connection.get_charset()

jl2

Traceback (most recent call last):
  File "/Library/Frameworks/Python.framework/Versions/3.2/lib/python3.2/site-packages/SQLAlchemy-0.7.3-py3.2.egg/sqlalchemy/pool.py", line 675, in _do_get
    return self._pool.get(wait, self._timeout)
  File "/Library/Frameworks/Python.framework/Versions/3.2/lib/python3.2/site-packages/SQLAlchemy-0.7.3-py3.2.egg/sqlalchemy/util/queue.py", line 137, in get
    raise Empty
sqlalchemy.util.queue.Empty

During handling of the above exception, another exception occurred:

Traceback (most recent call last):

jl2

(setq load-path (cons "~/emacs" load-path))
(setq load-path (cons "~/.emacs_stuff" load-path))
(setq load-path (cons "c:/emacs/site-lisp" load-path))
;; (setq load-path (cons "c:/emacs/site-lisp/color-theme" load-path))

(defadvice replace-string (around turn-off-case-fold-search)
  (let ((case-fold-search nil))
    ad-do-it))