ssig33

#!/usr/bin/env ruby
#coding:utf-8
require 'mechanize'
alice = Mechanize.new

page = alice.get ARGV[0]

url = CGI.unescape page.root.xpath('//*[@id="flash-player-embed"]')[0]['flashvars'].split('&flv_url=').last.split('&').first

title = page.root.xpath('//td/strong')[0].inner_text.gsub(/\//, '／')+'.flv'

tily

NOUN_PREFIX = %w|こんもりした 恥じらうような たわわに実る 熟れた
                 爛れた 濡れた 黒光りする びっしりと密生した もりあがった
                 甘美な びしょ濡れの ぐしょ濡れの むっちりとした むっちりした 柔らかな
                 突起した 盛り上がった 嗚咽にも似た ピンク色の 薄紫色の
                 一糸纏わぬ 光沢のある 熱のこもった ヌメヌメとした ヌルヌルとした
                |
VERB_PREFIX = %w|こんもりと 恥じらいながら 恥じらうように たわわに実らせて
                 ぐっしょりと びっしょりと たわわに 微かに 大胆にも もじもじと
                |

rummelonp

  --- 
:consumer_key: consumer_key
:consumer_secret: consumer_secret
:oauth_token: oauth_token
:oauth_token_secret: oauth_token_secret

Constellation

// 2 space の場合

// cond_c の前のindent, こんな感じで調節できる!!
if ((cond_a || cond_b ||
     cond_c || cond_d) || cond_e) {
}

// 引数の場合とかでも
test(value1, value2,
     value3, value4);

hitode909

(defun _zizo (begin end format)
  (let (
        (str (buffer-substring-no-properties begin end))
        (rules '((" " "+") ("|" "%7C") ("\n" "|") ("?" "%3F") ("&" "%26")))
        (rule nil))
    (while rules
      (setq rule (car rules))
      (setq rules (cdr rules))
            (let (
                  (a (car rule))

yukioc

#ifndef __macrounit_h__
#define __macrounit_h__
#define mu_prn_failed(file,line,expr) printf( "%s:%u: failed assertion `%s'\n",file,line,expr)
#define mu_prn_test(test,passed) printf( "  Test: %s ... %s\n",test,(passed)?"passed":"FAILED")
#define mu_prn_suite(suite) printf( "Suite: %s\n",suite)

#define mu_assert(file,line,expr) do { ++mu_asserts; if (!(expr)) { ++mu_failures; mu_prn_failed(file,line,#expr); }} while (0)
#define MU_ASSERT(expr) mu_assert(__FILE__,__LINE__,expr)

#define mu_run_test(test) do { int f=mu_failures; ++mu_tests; test(); mu_prn_test(#test,(f==mu_failures)); } while (0)