with open('/home/dotcloud/environment.json') as f:
    dotcloud_env = json.load(f)

DATABASES = {
    'default': {
        'ENGINE': 'django.db.backends.postgresql_psycopg2',
        'NAME': 'template1',
        'USER': dotcloud_env['DOTCLOUD_DB_SQL_LOGIN'],
        'PASSWORD': dotcloud_env['DOTCLOUD_DB_SQL_PASSWORD'],
        'HOST': dotcloud_env['DOTCLOUD_DB_SQL_HOST'],
        'PORT': int(dotcloud_env['DOTCLOUD_DB_SQL_PORT']),
    }
}

DATABASES = {
    'default': {
        'ENGINE': 'django.db.backends.mysql',
        'NAME': 'mysql', #这里我记不太清楚了, 应该是这个, 如果不行的话自己google下吧, 别忘了在下面留言 :D
        'USER': dotcloud_env['DOTCLOUD_DB_MYSQL_LOGIN'],
        'PASSWORD': dotcloud_env['DOTCLOUD_DB_MYSQL_PASSWORD'],
        'HOST': dotcloud_env['DOTCLOUD_DB_MYSQL_HOST'],
        'PORT': int(dotcloud_env['DOTCLOUD_DB_MYSQL_PORT']),
    }
}

MEDIA_ROOT = '/home/dotcloud/data/media/'
 
MEDIA_URL = 'http://{ project_url }/media/'
 
STATIC_ROOT = '/home/dotcloud/data/static/' # 这个地址是用来存放通过collectstatic收集的静态文件
 
STATIC_URL = '/static/'
 
STATICFILES_DIRS = (
    '/home/dotcloud/current/{ project_name }/static', # 总之是你各种静态文件的目录 也可以用下面模板目录的写法
)
 
TEMPLATE_DIRS = (
    os.path.join(os.path.dirname(__file__), 'templates'),
)

   url(r'^static/(?P<path>.*)$', 'django.views.static.serve', {
           'document_root': settings.STATIC_ROOT,
       }),
   url(r'^media/(?P<path>.*)$', 'django.views.static.serve', {
            'document_root': settings.MEDIA_ROOT,
        }),

www:
  type: python 
db:
  type: postgresql

Django
oauth2
feedparser
PIL
django-celery

location /media/ { root /home/dotcloud/data ; }
location /static/ { root /home/dotcloud/data ; }

import os
os.environ['DJANGO_SETTINGS_MODULE'] = '{ project_name }.settings'
import django.core.handlers.wsgi
application = django.core.handlers.wsgi.WSGIHandler()

#!/bin/sh
python { project_name }/manage.py syncdb --noinput
mkdir -p /home/dotcloud/data/media
mkdir -p /home/dotcloud/data/static
python { project_name }/manage.py collectstatic --noinput

deploy: settings_server.py
	mkdir ../dotcloud_tmp
	mkdir ../dotcloud_tmp/{ project_name }
	cp -a . ../dotcloud_tmp/{ project_name }
	mv ../dotcloud_tmp/ .
	mv dotcloud_tmp/{ project_name }/dotcloud_conf/* dotcloud_tmp/
	rm -f dotcloud_tmp/{ project_name }/settings.py
	rm -f dotcloud_tmp/{ project_name }/urls.py
	mv dotcloud_tmp/{ project_name }/settings_server.py dotcloud_tmp/{ project_name }/settings.py
	mv dotcloud_tmp/{ project_name }/urls_server.py dotcloud_tmp/{ project_name }/urls.py
	dotcloud push { project_name } dotcloud_tmp
	rm -rf dotcloud_tmp

%% -*- mode: nitrogen -*-
-module (chat).
-compile(export_all).
-include_lib("nitrogen/include/wf.hrl").
-include("records.hrl").
 
main() ->
  case wf:role(chatroom_user) of
    true ->
      #template { file="./site/templates/bare.html" };
    false ->
      wf:redirect_to_login("/login")
  end.
 
title() -> "Chatroom".
 
body() ->
  wf:comet_global(fun() -> wait_message() end, chatroom_pool),
  wf:flash(#span { text="Welcome " ++ wf:session(userID) ++ "!" }),
  #panel { style="margin: 50px;", body=[
    #flash {},
    #h1 { style="margin-bottom: 5px;", text="A Real Time Chatroom" },
    #textbox { id=message_box, style="margin-left: 10px;", text="input message here...", next=submit_button },
    #button { id=submit_button, text="Enter", postback=submit_message },
    #button { id=clear_button, text="Clear", postback=clear_history },
    #button { id=logout_button, text="Logout", postback=log_out },
    #hr {},
    #panel { id=message_list }
  ]}.
 
wait_message() ->
  receive
    {msg, Message, Author, Time} ->
      {{Year, Mouth, Day}, {Hour, Minute, Second}} = Time,
      Header = io_lib:format(" @ ~4p.~2p.~2p, ~2p:~2p:~2p", [Year, Mouth, Day, Hour, Minute, Second]),
      wf:insert_top(message_list, #panel { style="border: solid 1px blue; padding: 5px; margin-bottom: 5px;", body=[
        Author,
        #span { style="font-size: 0.75em", text=Header },
        #br {},
        #span { style="margin-left: 10px; font-size: 1.5em;", text=Message }
      ]})
  end,
  wf:flush(),
  wait_message().
 
event(clear_history) ->
  wf:flash(#span { text="Chat history cleared." }),
  wf:replace(message_list, #panel { id=message_list });
event(submit_message) ->
  case wf:role(chatroom_user) of
    true ->
      wf:send_global(chatroom_pool, {msg, wf:q(message_box), wf:session(userID), calendar:local_time()}),
      wf:replace(message_box, #textbox { id=message_box, style="margin-left: 10px;", next=submit_button });
    false ->
      wf:redirect_to_login("/login")
  end;
event(log_out) ->
  wf:logout(),
  wf:redirect("/chat").

%% -*- mode: nitrogen -*-
-module (login).
-compile(export_all).
-include_lib("nitrogen/include/wf.hrl").
-include("records.hrl").
 
main() -> #template { file="./site/templates/bare.html" }.
 
title() -> "Login".
 
body() ->
  wf:wire(submit, username, #validate { validators=[
    #is_required { text="Required." }
  ]}),
  wf:wire(submit, password, #validate { validators=[
    #is_required { text="Required." },
    #custom {
      text="Invalid password.",
      function=fun(_, Value) -> Value == "chatroom" end
    }
  ]}),
  #panel { style="margin: 50px;", body=[
    #flash {},
    #label { text="Username" },
    #textbox { id=username, next=password },
    #br {},
    #label { text="Password" },
    #password { id=password, next=submit },
    #br {},
    #button { text="Login", id=submit, postback=login }
  ]}.
 
event(login) ->
  wf:role(chatroom_user, true),
  wf:session_default(userID, wf:q(username)),
  wf:session(userID, wf:q(username)),
  wf:redirect_from_login("/").

-- Prob 1&2
ex3_len :: [a] -> Int
ex3_len [] = 0
ex3_len xs = (+) 1 (ex3_len (tail xs))
 
-- Prob 3
ex3_avg :: [Double] -> Double
ex3_avg [] = 0.0
ex3_avg xs = (/) (ex3_sum xs) (fromIntegral (ex3_len xs))
    where ex3_sum [] = 0.0
          ex3_sum (x:xs) = (+) x (ex3_sum xs)
 
-- Prob 4
ex3_palind :: [t] -> [t]
ex3_palind xs = xs ++ (reverse xs)
    where reverse :: [a] -> [a]
          reverse [] = []
          reverse (x:xs) = (reverse xs) ++ [x]
 
-- Prob 5
ex3_ispalind :: [Int] -> Bool
ex3_ispalind [] = True
ex3_ispalind xs | null (tail xs) = True
ex3_ispalind (x:xs) = let la = last xs
                          nolast (t:ts) | null ts = []
                          nolast (t:ts) = t : (nolast ts)
                          nola = nolast xs
                      in if x /= la
                          then False
                          else ex3_ispalind nola
 
-- Prob 6
ex3_sortLength :: [[t]] -> [[t]]
ex3_sortLength [] = []
ex3_sortLength (x:xs) = let seperate :: ([[a]], [[a]]) -> [a] -> [[a]] -> ([[a]], [[a]])
                            seperate (l, r) _ [] = (l, r)
                            seperate (l, r) tt (t:ts) = if (ex3_len t) < (ex3_len tt)
                                                        then seperate (t:l, r) tt ts
                                                        else seperate (l, t:r) tt ts
                            sep = seperate ([], []) x xs
                            left = fst sep
                            right = snd sep
                        in ex3_sortLength(left) ++ [x] ++ ex3_sortLength(right)
 
-- Prob 7
ex3_intersperse :: a -> [[a]] -> [a]
ex3_intersperse _ [[]] = []
ex3_intersperse _ (x:xs) | null xs = x
ex3_intersperse a (x:xs) = x ++ (a : (ex3_intersperse a xs))
 
-- Prob 8
data Tree a = Node a (Tree a) (Tree a)
            | Empty
              deriving (Show)
 
ex3_treeHeight :: (Tree a) -> Int
ex3_treeHeight Empty = 0
ex3_treeHeight (Node a l r) = (+) 1 (bigger (ex3_treeHeight l) (ex3_treeHeight r))
    where bigger :: Int -> Int -> Int
          bigger a b | a < b = b
          bigger a _ = a
 
-- Prob 9&10
data Direction = TurnLeft
               | TurnRight
               | GoStraight
                 deriving (Eq, Show)
 
data Point = Point Double Double
             deriving (Eq, Show)
 
ex3_whichDirection :: Point -> Point -> Point -> Direction
ex3_whichDirection (Point x1 y1) (Point x2 y2) (Point x3 y3) = testCrossProduct ((-) ((*) ((-) x2 x1) ((-) y3 y1)) ((*) ((-) x3 x1) ((-) y2 y1)))
    where testCrossProduct :: Double -> Direction
          testCrossProduct 0 = GoStraight
          testCrossProduct n | n > 0 = TurnLeft
          testCrossProduct _ = TurnRight
 
-- Prob 11
ex3_directions :: [Point] -> [Direction]
ex3_directions notEnough | (ex3_len notEnough) < 3 = []
ex3_directions (p:ps) = ex3_whichDirection p (head ps) (head (tail ps)) : (ex3_directions ps)

.286
data segment
buf db 5, 0, 5 dup(0)
cr db 0Dh, 0Ah, '$'
hex db '0123456789ABCDEF'
data ends
code segment
assume cs:code, ds:data
main:
    mov ax, data
    mov ds, ax
    mov cx, 2
read:    
    mov ah, 0Ah
    mov dx, offset buf
    int 21h
    mov ah, 9
    mov dx, offset cr
    int 21h
    lea bx, buf[2]
    push cx
    xor cx, cx
    mov cl, buf[1]
    xor ax, ax
    push ax
atoi:
    xor dx, dx
    mov al, [bx]
check:
    lea di, hex
    add di, dx
    mov ah, [di]
    cmp al, ah
    je checked
    inc dx
    jmp check
checked:
    pop ax
    shl ax, 4
    or ax, dx
    push ax
    inc bx
    loop atoi
    pop ax
    pop cx
    push ax
    loop read 
    pop ax
    pop dx
    add ax, dx
    push ax
    pushf
    pop cx
    and cl, 01h
    test cl, cl
    jz nocarry
    mov ah, 2
    mov dl, '1'
    int 21h
    pop ax
nocarry:
    xor cx, cx
    mov cl, buf[1]
next:
    mov dx, ax
    and dh, 0F0h
    shr dh, 4
    mov dl, dh
    xor dh, dh
    mov di, dx
    push ax
    mov ah, 2
    mov dl, hex[di]
    int 21h
    pop ax
    inc bx
    shl ax, 4
    loop next
done:
    mov ah, 4ch
    int 21h
code ends
end main

-module(echo).
-export([start/0, print/1, stop/0, loop/0]).
 
loop() ->
  receive
    {print, Term} ->
      io:format("~p~n",[Term]),
      loop();
    stop -> true
  end.
 
start() ->
  register(echo, spawn(echo, loop, [])).
 
print(Term) ->
  echo ! {print, Term}.
 
stop() ->
  echo ! stop.

-module(ring).
-export([start/3, proc/2]).
 
start(_NM, 0, _M) ->
  true;
start(0, _NP, _M) ->
  true;
start(NumMessage, NumProcess, Message) ->
  Next = spawn(ring, proc, [NumProcess - 1, self()]),
  receive
    crf -> true % create ring finished
  end,
  sendMsg(NumMessage, Message, Next),
  Next ! stop,
  receive
    stop -> true
  end,
  io:format("~p~n", ["Main process terminated"]).
 
proc(0, Head) ->
  Head ! crf,
  proc_loop(Head);
proc(NumProcess, Head) ->
  Next = spawn(ring, proc, [NumProcess - 1, Head]),
  proc_loop(Next).
 
proc_loop(NextProcess) ->
  receive
    {msg, Message} ->
      io:format("This is proc: ~p, the msg is: ~p~n", [self(), Message]),
      NextProcess ! {msg, Message},
      proc_loop(NextProcess);
    stop ->
      NextProcess ! stop,
      io:format("Process ~p terminated.~n", [self()])
  end.
 
sendMsg(0, _M, _P) -> true;
sendMsg(NumMessage, Message, Pid) ->
  Pid ! {msg, Message},
  receive
    {msg, Message} ->
      io:format("~p rounds left.~n", [NumMessage - 1]),
      sendMsg(NumMessage - 1, Message, Pid);
    _ -> true
  end.

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
 
int main() {
    char a[] = "This is a test for the --kmp algori--kmpthm.";
    char b[] = "--kmp";
    int p[6];
    int i, j, n = strlen(a), m = strlen(b);
    p[0] = 0;
    p[1] = 0;
    j = 0;
    for (i=1; i<m; i++) {
        while ((j > 0) && (b[j] != b[i])) j = p[j];
        if (b[j] == b[i]) j++;
        p[i+1] = j;
    }
    j = 0;
    for (i=0; i<n; i++) {
        while ((j > 0) && (b[j] != a[i])) j = p[j];
        if (b[j] == a[i]) j++;
        if (j == m) {
            printf("occur: %d\n", i);
            j = p[j];
        }
    }
 
    return 0;
}

-module(bool).
-export([b_not/1, b_and/2, b_nand/2]).
 
b_not(true) ->
  false;
b_not(false) ->
  true.
 
b_and(true, B) ->
  B;
b_and(false, _B) ->
  false.
 
b_nand(A, B) ->
  b_not(b_and(A,B)).

20> c(bool).
{ok,bool}
21> bool:b_not(false).
true
22> bool:b_not(true). 
false
23> bool:b_and(false, true).
false
24> bool:b_and(true, false).
false
25> bool:b_and(true, true). 
true
26> bool:b_and(false, false).
false
27> bool:b_nand(false, false).
true