mzp

<Action3 minorVersion="16" majorVersion="46">
  <constants>
    <Constants>
      <ints/>
      <uints/>
      <doubles/>
      <strings>
        <String2 value=""/>
        <String2 value="Hello"/>
        <String2 value="Hello,world!!"/>

mzp

// ==UserScript==
// @name opera focus imitation
// @namespace 
// @description this script imitate focus on opera by shift + cursor key
// @include *
// ==/UserScript==
// 問題：位置取得の効率が悪すぎる
//       要素が重なっていると隣の要素として判定ができない
//       iframe 内には入れない、または出れない
window.addEventListener('load',function(){

mzp

// ==UserScript==
// @name          Dokusyo meter no confirm
// @namespace     http://d.hatena.ne.jp/mzp/
// @description   Disable dokusyo meter confirm
// @include       http://book.akahoshitakuya.com/b/*
// ==/UserScript==
function del(){
   return true;
}
function add(){

mzp

;;; toggle-scala.el --- Toggle between test and implementation files.

;; Author: MIZUNO Hiroki<mzp.ppp_at_gmail.com>
;; Keywords: tools

;;;  Usage:
;;   Insert into your .emacs file the following line, (and eval it for
;;  immediate usage:
;;
;;   (require 'toggle-scala)

mzp

type 'a t = {
  front: 'a list;
  back : 'a list
}
exception Empty

let empty = {front = []; back = []}
let is_empty x = x = empty

mzp

type 'a t = {
  front: 'a list;
  back : 'a list
}
exception Empty

let empty = {front = []; back = []}
let is_empty x = x = empty

mzp

(* ocamlc -pp 'camlp4orf pa_monad.cmo' parserMonad.ml *)

type ('a,'b) either = Left of 'a | Right of 'b

module Make
    (T : sig
      type ts
      type error
     end) : sig
      type ts = T.ts

mzp

;; Copyright (C) 2009  mzp
;; Author: mzp <mzp@debian.clovernet.ne.jp>
;; Keywords:

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.

;; This file is distributed in the hope that it will be useful,

mzp

(*
e = .     |
    e*    |
    e e   |
    ( e ) |
    c
*)
#load "dynlink.cma";;
#load "camlp4o.cma";;

mzp

(*
  pa_field.ml

  To compile:
    ocamlc -pp camlp4oof -g -I . -I +camlp4 -c pa_field.ml

  To use:
    ocamlc -pp 'camlp4o pa_field.cmo' example.ml
  or
    ocaml dynlink.cma camlp4o.cma pa_field.cmo