psihy

## gist:6181856
import std.traits;

struct Signed {}
struct Unsigned {}

struct Wrapper(V, T) {
    private V value;
    private T tag;
    alias value this;

## datatime_timestamp.d
// dmd 2.063
// ref. http://d.hatena.ne.jp/yutakikuchi/20130617/1371425713

import std.array, std.conv, std.datetime;
import std.stdio;

void main() {
    // 現在時刻のDateTimeを取得
    {
        const current = Clock.currTime;

## ugomemo.scm
;; gauche 0.9.3.3
;; ref. http://developer.hatenastaff.com/entry/2013/04/11/143235

(use rfc.json)
(use rfc.http)
(use rfc.uri)

(define (api-request uri)
  (receive (scheme user-info hostname port path query fragment) (uri-parse uri)
    (receive (status header body) (http-get hostname path)

## gist:5003421
import std.algorithm, std.array, std.stdio, std.typecons;

immutable statusCode = [
    tuple("100", "Continue"),
    tuple("101", "Switching Protocols"),
    tuple("102", "Processing"),
    tuple("200", "OK"),
    tuple("201", "Created"),
    tuple("202", "Accepted"),
    tuple("203", "Non-Authoritative Information"),

## gist:4225738
<!-- BiwaScheme 0.6.1 -->

<html>
<head>
  <title>enchant.js sample in BiwaScheme</title>
</head>

<body>
  <div id="enchant-stage" />

## gist:4225578
;; JavaScript の関数を呼び出す
;; e.g. rosso(fantasma)
(js-call (js-eval "rosso") fantasma)

;; クラスのインスタンスを生成する
;; e.g. new Tiro(finale)
(js-new "Tiro" finale)

;; クラスのメソッドを呼び出す
;; e.g. homu.attack(baretter, eagle, remington, m249)

## gist:3180908
<!-- BiwaScheme 0.6.1 -->

<html>
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
  <title>Powered by BiwaScheme</title>
  <style>
    input#fire { width: 50px; height: 24px; font-size: 14px; }
  </style>
</head>

## gist:2206070
; Gauche 0.9.2

(use srfi-43)
(use rfc.http)
(use rfc.json)
(use rfc.uri)
(use util.list)
(use util.match)
(use file.util)
(use gauche.threads)
	import std.traits;

	struct Signed {}
	struct Unsigned {}

	struct Wrapper(V, T) {
	private V value;
	private T tag;
	alias value this;
	// dmd 2.063
	// ref. http://d.hatena.ne.jp/yutakikuchi/20130617/1371425713

	import std.array, std.conv, std.datetime;
	import std.stdio;

	void main() {
	// 現在時刻のDateTimeを取得
	{
	const current = Clock.currTime;
	;; gauche 0.9.3.3
	;; ref. http://developer.hatenastaff.com/entry/2013/04/11/143235

	(use rfc.json)
	(use rfc.http)
	(use rfc.uri)

	(define (api-request uri)
	(receive (scheme user-info hostname port path query fragment) (uri-parse uri)
	(receive (status header body) (http-get hostname path)
	import std.algorithm, std.array, std.stdio, std.typecons;

	immutable statusCode = [
	tuple("100", "Continue"),
	tuple("101", "Switching Protocols"),
	tuple("102", "Processing"),
	tuple("200", "OK"),
	tuple("201", "Created"),
	tuple("202", "Accepted"),
	tuple("203", "Non-Authoritative Information"),
	<!-- BiwaScheme 0.6.1 -->

	<html>
	<head>
	<title>enchant.js sample in BiwaScheme</title>
	</head>

	<body>
	<div id="enchant-stage" />
	;; JavaScript の関数を呼び出す
	;; e.g. rosso(fantasma)
	(js-call (js-eval "rosso") fantasma)

	;; クラスのインスタンスを生成する
	;; e.g. new Tiro(finale)
	(js-new "Tiro" finale)

	;; クラスのメソッドを呼び出す
	;; e.g. homu.attack(baretter, eagle, remington, m249)
	; Gauche 0.9.2

	(use srfi-43)
	(use rfc.http)
	(use rfc.json)
	(use rfc.uri)
	(use util.list)
	(use util.match)
	(use file.util)
	(use gauche.threads)