ichiban

angular.module('app').controller('MainController', ['$scope', 'userResource', function($scope, userResource) {
  $scope.current = {};
  $scope.$watch('current.user', function(user) {
    if (user) { return; }
    var user = userResource();
    user.then(function(user) {
      $scope.current.user = user;
    });
  });
}]);

ichiban

(function() {
    'use strict';

    var overlayVisible = 'overlay--visible';
    var $document = $(document);

    $document.on('overlay:open', function() {
        var $body = $('body');
        var $overlay = $('.overlay');

ichiban

(require :fare-matcher)

;; Clojure or ML's function syntax style defun

(defmacro defunction (name &body body)
  (flet ((match-clause (clause)
	   (cons `(list ,@(car clause)) (cdr clause))))
    (let ((args (gensym)))
      `(defun ,name (&rest ,args)
	 (fare-matcher:ematch ,args

ichiban

import static java.lang.System.*;

public class WhatIsJavaLibraryPath {
	public static void main(String[] args) {
		out.println(getProperty("java.library.path"));
	}
}

ichiban

(* cat.ml *)
(* simple cat command in O'Caml *)

open Sys
open Array
open List

let print_channel in_channel =
  let rec iter _ =
    print_endline (input_line in_channel);

ichiban

;; Flymake Ocaml
(add-to-list 'exec-path "~/bin")
(defun flymake-ocaml-init ()
  (flymake-simple-make-init-impl
   'flymake-create-temp-with-folder-structure nil nil
   (file-name-nondirectory buffer-file-name)
   'flymake-get-ocaml-cmdline))
(defun flymake-get-ocaml-cmdline (source base-dir)
  (list "ocaml_flycheck.pl"
	(list source base-dir)))

ichiban

;;; The following lines added by ql:add-to-init-file:
#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
                                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))

;;; make cffi to dlopen homebrewed libraries
(require :cffi)

ichiban

$ cat > kiku.c
#include <pthread.h>
char c;f(){while(1)c=~getchar();}main(t,p){pthread_create(&p,NULL,f,NULL);for(t=0;;t++)putchar(t>>~c|t>>5|t>>1000-c|t>>c);}
$ make kiku
cc     kiku.c   -o kiku
kiku.c: In function ‘main’:
kiku.c:2: warning: passing argument 1 of ‘pthread_create’ from incompatible pointer type
kiku.c:2: warning: passing argument 3 of ‘pthread_create’ from incompatible pointer type
$ sudo tcpdump | ./kiku | sox -traw -r8k -c1 -eunsigned -b8 - -d

ichiban

(require :lispbuilder-sdl)

(defun run ()
  (sdl:with-init ()
    (sdl:window 320 240)
    (draw-xor-texture)
    (sdl:with-events ()
      (:quit-event () t)
      (:idle
       (sdl:update-display)))))

ichiban

require 'sinatra'
require 'yajl/json_gem'

set(:mongrel2_upload) do |value|
  condition do
    case value
    when :start
      request.env.key?('x-mongrel2-upload-start')
    when :done
      request.env.key?('x-mongrel2-upload-done')