mopemope

(defmodule kitty-server
  (export all))

(defrecord cat
  name
  (color 'green)
  description)

;; Client API
(defun start-link ()

mopemope

(defmodule kitty-server2
  (export all))

(defrecord cat
  name
  (color 'green)
  description)

(defun start-link ()
  (my-server:start-link (MODULE) ()))

mopemope

(defmodule kitty-gen-server
  (export all)
  (behavior 'gen_server))

(defrecord cat
  name
  (color 'green)
  description)

(defun start-link ()

mopemope

(defmodule curling-accumulator
  (export all)
  (behavior 'gen_event))

(defrecord state
  (teams (orddict:new))
  (round 0))

(defun init
  (('()) `#(ok ,(make-state))))

mopemope

(defmodule band-supervisor
  (export all)
  (behavior 'supervisor))

(defun start-link (type)
  (supervisor:start_link `#(local ,(MODULE)) (MODULE) type))

(defun start_link (type)
  (start-link type))

mopemope

(defmodule ppool-nagger
  (export all)
  (behavior gen_server))

(defun start-link (task delay max send-to)
  (gen_server:start_link (MODULE) `#(,task ,delay ,max ,send-to) '()))

(defun start_link (task delay max send-to)
  (start-link task delay max send-to))

mopemope

use "net/http"

actor Main
  new create(env: Env) =>
    let service = try env.args(1) else "50000" end
      let limit = try env.args(2).u64() else 100 end

    Server(Info(env), Handle, CommonLog(env.out) where service = service,
        limit = limit)

mopemope

from twisted.web import client
from twisted.internet import reactor, defer
from lxml import etree
from StringIO import StringIO
import re
import os

save_dir = "~/.video/xnxx/"
base_url = "http://video.xnxx.com"
download_re = re.compile("so.addVariable\('flv_url',\s*'([\w\d.:/_]*)'\);", re.M)

mopemope

from twisted.web import client
from twisted.internet import reactor, defer
from lxml import etree
from StringIO import StringIO
import re
import os

save_dir = "~/.video/jizzhut/"
base_url = "http://jizzhut.com"
download_re = re.compile('so.addVariable\("content_video",\s*"([\w\d.:/_]*)"\);', re.M)

mopemope

from twisted.web import client
from twisted.internet import reactor, defer
from lxml import etree
from StringIO import StringIO
import re
import os

save_dir = "~/.video/pornzapp/"
base_url = "http://www.pornzapp.com"
download_re = re.compile('"/js/interface.php\?id=([\w\d.:/_]*)"', re.M)