haruyama

<?php
// Copyright (c) HARUYAMA Seigo
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is furnished
// to do so, subject to the following conditions:
//

haruyama

(find-assertions (query-syntax-process '(job ?x (computer programmer)))
                 (singleton-stream '()))

haruyama

import ceylon.file { File, Path, parsePath }
import ceylon.io   { OpenFile, newOpenFile }
import ceylon.io.charset { utf8, Decoder }
import ceylon.io.buffer  { ByteBuffer }
import java.util { ArrayList }

shared void cat(String filename) {
    Path path = parsePath(filename);

    OpenFile file = newOpenFile(path.resource);

haruyama

#!/usr/bin/env ruby
# -*- encoding: utf-8 -*-

L2_COEFF = 1
RATE     = 10

TAGIDS = Hash.new { |hash, key| hash[key] = hash.size }
TAGIDS['<S>'] = 0

def dot(x, y)

haruyama

(define (fringe x)
  (define (loop x acc)
    (cond ((null? x) acc)
          ((not (pair? x)) (cons x acc))
          (else (loop (car x) (loop (cdr x) acc)))))
  (loop x '()))

haruyama

if exists('b:did_after_ftplugin_clojure')
  finish
endif
let b:did_after_ftplugin_clojure = 1
let s:save_cpo = &cpo
set cpo&vim

setl tabstop=2 expandtab shiftwidth=2 softtabstop=2 smarttab

if executable('lein') && filereadable('project.clj')

haruyama

if exists("g:loaded_syntastic_clojure_nrepl_checker")
    finish
endif
let g:loaded_syntastic_clojure_nrepl_checker=1

function! SyntaxCheckers_clojure_nrepl_IsAvailable()
    return executable('lein') && filereadable('project.clj')
endfunction

function! SyntaxCheckers_clojure_nrepl_GetLocList()

haruyama

function! s:run_tests(filename)
  let template = '(require ''clojure.tools.namespace) (require ''clojure.test) (let [namespaces (clojure.tools.namespace/find-namespaces-in-dir (java.io.File. "%s"))] (doseq [ns namespaces] (prn ns) (require ns :reload) (if (re-find #"-test\z" (name ns)) (clojure.test/run-tests ns) (try (let [test-ns (symbol (str (name ns) "-test"))] (prn test-ns) (require test-ns :reload) (clojure.test/run-tests test-ns)) (catch Exception e (.getMessage e))))))'
  let exp = printf(template, escape(a:filename, '"\'))
  call fireplace#session_eval(exp)
endfunction

autocmd! BufWritePost *.clj call s:run_tests(expand("<afile>"))

haruyama

import System.Environment
import System.IO
import System.Exit
import Control.Monad (filterM)
import qualified Data.Text as T
import qualified Data.Text.Lazy as TL
import qualified Data.Text.ICU.Regex as TIR
import qualified Data.Text.Lazy.IO as TILO

main :: IO ()

haruyama

import qualified System.Environment as SE
import qualified System.IO as SIO
import qualified Data.Text as T
import qualified Data.Text.ICU.Regex as TIR
import qualified Data.Text.IO as TIO
import Control.Monad (unless, when)

main :: IO ()
main = do
    args <- SE.getArgs