This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<Action3 minorVersion="16" majorVersion="46"> | |
<constants> | |
<Constants> | |
<ints/> | |
<uints/> | |
<doubles/> | |
<strings> | |
<String2 value=""/> | |
<String2 value="Hello"/> | |
<String2 value="Hello,world!!"/> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ==UserScript== | |
// @name opera focus imitation | |
// @namespace | |
// @description this script imitate focus on opera by shift + cursor key | |
// @include * | |
// ==/UserScript== | |
// 問題:位置取得の効率が悪すぎる | |
// 要素が重なっていると隣の要素として判定ができない | |
// iframe 内には入れない、または出れない | |
window.addEventListener('load',function(){ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ==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(){ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; 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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
type 'a t = { | |
front: 'a list; | |
back : 'a list | |
} | |
exception Empty | |
let empty = {front = []; back = []} | |
let is_empty x = x = empty |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
type 'a t = { | |
front: 'a list; | |
back : 'a list | |
} | |
exception Empty | |
let empty = {front = []; back = []} | |
let is_empty x = x = empty |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; 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, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* | |
e = . | | |
e* | | |
e e | | |
( e ) | | |
c | |
*) | |
#load "dynlink.cma";; | |
#load "camlp4o.cma";; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* | |
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 |
OlderNewer