Recent Gists from nissuk

	using System;
	using System.Collections.Generic;
	using System.Linq;
	using System.Windows.Forms;

	namespace WindowsFormsApplication1
	{
	/// <summary>
	/// ボタン押下の操作をフィルタリングするクラスです。
	/// </summary>
	public class ButtonClickFilter : IMessageFilter
	{
	/// <summary>通常キー押下</summary>
	private const int WM_KEYDOWN = 0x100;
	/// <summary>マウス左ボタンクリック</summary>
	private const int WM_LBUTTONDOWN = 0x201;
	/// <summary>マウス左ボタンダブルクリック</summary>
	private const int WM_LBUTTONDBLCLK = 0x203;

	/// <summary>
	/// ボタン押下の操作をフィルタリングします。
	/// </summary>
	/// <param name="m">ディスパッチされるメッセージ。このメッセージは変更できません。</param>
	/// <returns>true の場合、メッセージはフィルタで排除され、ディスパッチされません。false の場合、メッセージは次のフィルタまたはコントロールに継続されます。</returns>
	public bool PreFilterMessage(ref Message m)
	{
	bool clickOrEnter
	= m.Msg == WM_LBUTTONDOWN
	\|\| m.Msg == WM_LBUTTONDBLCLK
	\|\| (m.Msg == WM_KEYDOWN && (Keys)m.WParam == Keys.Enter);

	// クリック/ダブルクリック時でもENTERキー押下時でもない場合、処理しません。
	if (!clickOrEnter) return false;

	Control control = Control.FromHandle(m.HWnd);
	// 対象コントロールが取得できない場合、処理しません。
	if (control == null) return false;
	// 対象コントロールがボタンでない場合、処理しません。
	if (!(control is Button)) return false;

	// 何らかの処理...
	MessageBox.Show("今はボタンを押さないで下さい…");

	// trueでメッセージをフィルタ
	return true;
	}
	}

	static class Program
	{
	/// <summary>
	/// アプリケーションのメインエントリポイントです。
	/// </summary>
	[STAThread]
	static void Main()
	{
	// フィルタ追加
	Application.AddMessageFilter(new ButtonClickFilter());

	Application.EnableVisualStyles();
	Application.SetCompatibleTextRenderingDefault(false);
	Application.Run(new Form1());
	}
	}
	}

Androidのイベントリスナ…

2012-11-10T08:04:54Z

	package com.example.listener;

	import java.lang.reflect.InvocationTargetException;
	import java.lang.reflect.Method;

	import android.os.Bundle;
	import android.app.Activity;
	import android.view.View;
	import android.view.View.OnClickListener;
	import android.widget.Toast;

	public class MainActivity extends Activity {

	@Override
	public void onCreate(Bundle savedInstanceState) {
	super.onCreate(savedInstanceState);
	setContentView(R.layout.activity_main);

	// findViewById(R.id.button1).setOnClickListener("onButton1Click"); とか
	// findViewById(R.id.button1).setOnClickListener("onButton1Click", this);
	// とかが全イベントで標準でできればいいような…
	setOnClickListener(findViewById(R.id.button1), "onButton1Click");
	}

	public void onButton1Click(View v) {
	Toast.makeText(this, "Hello !", Toast.LENGTH_LONG).show();
	}

	public void setOnClickListener(final View view, final String handlerName) {
	view.setOnClickListener(new OnClickListener() {
	private Method handler;

	public void onClick(View v) {
	if (handler == null)
	try {
	handler = view.getContext().getClass()
	.getMethod(handlerName, View.class);
	} catch (NoSuchMethodException e) {
	// throw ...
	return;
	}

	try {
	handler.invoke(view.getContext(), view);
	} catch (IllegalArgumentException e) {
	// throw ...
	} catch (IllegalAccessException e) {
	// throw ...
	} catch (InvocationTargetException e) {
	// throw ...
	}
	}
	});
	}
	}

WinNls.hのLOCALEの値のおおよそ一覧

2012-08-27T15:53:00Z

list.txt

	Name Hex Data
	---- --- ----
	LOCALE_ILANGUAGE 0x00000001 0411
	LOCALE_SLANGUAGE 0x00000002 日本語 (日本)
	LOCALE_SENGLANGUAGE 0x00001001 Japanese
	LOCALE_SABBREVLANGNAME 0x00000003 JPN
	LOCALE_SNATIVELANGNAME 0x00000004 日本語
	LOCALE_ICOUNTRY 0x00000005 81
	LOCALE_SCOUNTRY 0x00000006 日本
	LOCALE_SENGCOUNTRY 0x00001002 Japan
	LOCALE_SABBREVCTRYNAME 0x00000007 JPN
	LOCALE_SNATIVECTRYNAME 0x00000008 日本
	LOCALE_IGEOID 0x0000005B 122
	LOCALE_IDEFAULTLANGUAGE 0x00000009 0411
	LOCALE_IDEFAULTCOUNTRY 0x0000000A 81
	LOCALE_IDEFAULTCODEPAGE 0x0000000B 932
	LOCALE_IDEFAULTANSICODEPAGE 0x00001004 932
	LOCALE_IDEFAULTMACCODEPAGE 0x00001011 10001
	LOCALE_SLIST 0x0000000C ,
	LOCALE_IMEASURE 0x0000000D 0
	LOCALE_SDECIMAL 0x0000000E .
	LOCALE_STHOUSAND 0x0000000F ,
	LOCALE_SGROUPING 0x00000010 3;0
	LOCALE_IDIGITS 0x00000011 2
	LOCALE_ILZERO 0x00000012 1
	LOCALE_INEGNUMBER 0x00001010 1
	LOCALE_SNATIVEDIGITS 0x00000013 0123456789
	LOCALE_SCURRENCY 0x00000014 \
	LOCALE_SINTLSYMBOL 0x00000015 JPY
	LOCALE_SMONDECIMALSEP 0x00000016 .
	LOCALE_SMONTHOUSANDSEP 0x00000017 ,
	LOCALE_SMONGROUPING 0x00000018 3;0
	LOCALE_ICURRDIGITS 0x00000019 0
	LOCALE_IINTLCURRDIGITS 0x0000001A 0
	LOCALE_ICURRENCY 0x0000001B 0
	LOCALE_INEGCURR 0x0000001C 1
	LOCALE_SDATE 0x0000001D /
	LOCALE_STIME 0x0000001E :
	LOCALE_SSHORTDATE 0x0000001F yyyy/MM/dd
	LOCALE_SLONGDATE 0x00000020 yyyy'年'M'月'd'日'
	LOCALE_STIMEFORMAT 0x00001003 H:mm:ss
	LOCALE_IDATE 0x00000021 2
	LOCALE_ILDATE 0x00000022 2
	LOCALE_ITIME 0x00000023 1
	LOCALE_ITIMEMARKPOSN 0x00001005 0
	LOCALE_ICENTURY 0x00000024 1
	LOCALE_ITLZERO 0x00000025 0
	LOCALE_IDAYLZERO 0x00000026 1
	LOCALE_IMONLZERO 0x00000027 1
	LOCALE_S1159 0x00000028 午前
	LOCALE_S2359 0x00000029 午後
	LOCALE_ICALENDARTYPE 0x00001009 1
	LOCALE_IOPTIONALCALENDAR 0x0000100B 3
	LOCALE_IFIRSTDAYOFWEEK 0x0000100C 6
	LOCALE_IFIRSTWEEKOFYEAR 0x0000100D 0
	LOCALE_SDAYNAME1 0x0000002A 月曜日
	LOCALE_SDAYNAME2 0x0000002B 火曜日
	LOCALE_SDAYNAME3 0x0000002C 水曜日
	LOCALE_SDAYNAME4 0x0000002D 木曜日
	LOCALE_SDAYNAME5 0x0000002E 金曜日
	LOCALE_SDAYNAME6 0x0000002F 土曜日
	LOCALE_SDAYNAME7 0x00000030 日曜日
	LOCALE_SABBREVDAYNAME1 0x00000031 月
	LOCALE_SABBREVDAYNAME2 0x00000032 火
	LOCALE_SABBREVDAYNAME3 0x00000033 水
	LOCALE_SABBREVDAYNAME4 0x00000034 木
	LOCALE_SABBREVDAYNAME5 0x00000035 金
	LOCALE_SABBREVDAYNAME6 0x00000036 土
	LOCALE_SABBREVDAYNAME7 0x00000037 日
	LOCALE_SMONTHNAME1 0x00000038 1月
	LOCALE_SMONTHNAME2 0x00000039 2月
	LOCALE_SMONTHNAME3 0x0000003A 3月
	LOCALE_SMONTHNAME4 0x0000003B 4月
	LOCALE_SMONTHNAME5 0x0000003C 5月
	LOCALE_SMONTHNAME6 0x0000003D 6月
	LOCALE_SMONTHNAME7 0x0000003E 7月
	LOCALE_SMONTHNAME8 0x0000003F 8月
	LOCALE_SMONTHNAME9 0x00000040 9月
	LOCALE_SMONTHNAME10 0x00000041 10月
	LOCALE_SMONTHNAME11 0x00000042 11月
	LOCALE_SMONTHNAME12 0x00000043 12月
	LOCALE_SMONTHNAME13 0x0000100E
	LOCALE_SABBREVMONTHNAME1 0x00000044 1
	LOCALE_SABBREVMONTHNAME2 0x00000045 2
	LOCALE_SABBREVMONTHNAME3 0x00000046 3
	LOCALE_SABBREVMONTHNAME4 0x00000047 4
	LOCALE_SABBREVMONTHNAME5 0x00000048 5
	LOCALE_SABBREVMONTHNAME6 0x00000049 6
	LOCALE_SABBREVMONTHNAME7 0x0000004A 7
	LOCALE_SABBREVMONTHNAME8 0x0000004B 8
	LOCALE_SABBREVMONTHNAME9 0x0000004C 9
	LOCALE_SABBREVMONTHNAME10 0x0000004D 10
	LOCALE_SABBREVMONTHNAME11 0x0000004E 11
	LOCALE_SABBREVMONTHNAME12 0x0000004F 12
	LOCALE_SABBREVMONTHNAME13 0x0000100F
	LOCALE_SPOSITIVESIGN 0x00000050
	LOCALE_SNEGATIVESIGN 0x00000051 -
	LOCALE_IPOSSIGNPOSN 0x00000052 3
	LOCALE_INEGSIGNPOSN 0x00000053 3
	LOCALE_IPOSSYMPRECEDES 0x00000054 1
	LOCALE_IPOSSEPBYSPACE 0x00000055 0
	LOCALE_INEGSYMPRECEDES 0x00000056 1
	LOCALE_INEGSEPBYSPACE 0x00000057 0
	LOCALE_FONTSIGNATURE 0x00000058
	LOCALE_SISO639LANGNAME 0x00000059 ja
	LOCALE_SISO3166CTRYNAME 0x0000005A JP
	LOCALE_IDEFAULTEBCDICCODEPAGE 0x00001012 20290
	LOCALE_IPAPERSIZE 0x0000100A 9
	LOCALE_SENGCURRNAME 0x00001007 Japanese Yen
	LOCALE_SNATIVECURRNAME 0x00001008 円
	LOCALE_SYEARMONTH 0x00001006 yyyy'年'M'月'
	LOCALE_SSORTNAME 0x00001013 XJIS
	LOCALE_IDIGITSUBSTITUTION 0x00001014 1
	LOCALE_SNAME 0x0000005c ja-JP
	LOCALE_SDURATION 0x0000005d H:mm:ss
	LOCALE_SKEYBOARDSTOINSTALL 0x0000005e 0411:{03B5835F-F03C-411B-9CE2-AA23E1171E36}{A76C93D9-5523-4E90-AAFA-4DB112F9AC76}
	LOCALE_SSHORTESTDAYNAME1 0x00000060 月
	LOCALE_SSHORTESTDAYNAME2 0x00000061 火
	LOCALE_SSHORTESTDAYNAME3 0x00000062 水
	LOCALE_SSHORTESTDAYNAME4 0x00000063 木
	LOCALE_SSHORTESTDAYNAME5 0x00000064 金
	LOCALE_SSHORTESTDAYNAME6 0x00000065 土
	LOCALE_SSHORTESTDAYNAME7 0x00000066 日
	LOCALE_SISO639LANGNAME2 0x00000067 jpn
	LOCALE_SISO3166CTRYNAME2 0x00000068 JPN
	LOCALE_SNAN 0x00000069 NaN (非数値)
	LOCALE_SPOSINFINITY 0x0000006a +∞
	LOCALE_SNEGINFINITY 0x0000006b -∞
	LOCALE_SSCRIPTS 0x0000006c Hani;Hira;Jpan;Kana;
	LOCALE_SPARENT 0x0000006d ja
	LOCALE_SCONSOLEFALLBACKNAME 0x0000006e ja-JP
	LOCALE_SLANGDISPLAYNAME 0x0000006f 日本語

Program.cs

	using System;
	using System.Collections.Generic;
	using System.Linq;
	using System.Text;
	using System.Runtime.InteropServices;
	using System.IO;

	namespace LocaleInfo
	{
	class Program
	{
	[DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Unicode)]
	public static extern int GetLocaleInfoEx(string lpLocaleName, uint LCType, StringBuilder lpLCData, int cchData);

	static string GetLocaleInfoString(string hex, string lang)
	{
	var lcType = Convert.ToUInt32(hex, 16);
	var cchData = 512;
	var data = new StringBuilder(cchData);

	GetLocaleInfoEx(lang, lcType, data, cchData);
	return data.ToString();
	}

	static void Main(string[] args)
	{
	Console.WriteLine("{0, -30} {1, -11} {2}", "Name", "Hex", "Data");
	Console.WriteLine("{0, -30} {1, -11} {2}", "----", "---", "----");
	// WinNls.hから定数名とhexの一覧をCSVに保存したものを回します。
	foreach (var x in File.ReadAllLines("x.csv")) {
	var cells = x.Split(',');
	if (cells.Length <= 2) continue;

	var constName = cells[0];
	var hex = cells[1];
	var data = GetLocaleInfoString(cells[1], "ja-JP");
	Console.WriteLine(string.Format("{0, -30} {1, -11} {2}", constName, hex, data));
	}
	}
	}
	}

C#: Windowsで.weblocを開く

2012-08-01T13:10:48Z

Program.cs

	using System;
	using System.Collections.Generic;
	using System.Linq;
	using System.Text;
	using System.IO;
	using System.Xml.Linq;
	using System.Xml.XPath;
	using System.Diagnostics;

	namespace webloc
	{
	class Program
	{
	static void Main(string[] args)
	{
	if (args.Length <= 0) return;

	var filename = args[0];
	if (Path.GetExtension(filename) != ".webloc") return;

	var webloc = XDocument.Load(filename);
	//var urlNode = webloc.XPathSelectElements("/plist/dict/string[preceding-sibling::key/text()=\"URL\"]").First();
	var urlNode = webloc.Descendants("string").First();
	if (urlNode == null) return;

	Process.Start(urlNode.Value);
	}
	}
	}

PHP: eval

2012-05-13T16:33:17Z

	<?php
	eval('echo 1;'); // ok
	eval('<?php echo 2; ?>'); // parse error
	eval('?><?php echo 3;'); // ok
	eval('?><?php echo 4; ?>'); // ok
	?>

http://www.php.net/manual/ja/function.curl-multi-exec.php + 追加コメント

2012-05-13T14:35:07Z

	<?php


	// cURL リソースを作成します
	$ch1 = curl_init();
	$ch2 = curl_init();

	// URL およびその他適切なオプションを設定します。
	// (※ URLはCURLOPT_URLでなくても curl_init($url) に入れてもいい)
	curl_setopt($ch1, CURLOPT_URL, "http://lxr.php.net/");
	curl_setopt($ch1, CURLOPT_HEADER, 0);
	curl_setopt($ch2, CURLOPT_URL, "http://www.php.net/");
	curl_setopt($ch2, CURLOPT_HEADER, 0);

	// マルチ cURL ハンドルを作成します
	$mh = curl_multi_init();

	// ふたつのハンドルを追加します
	curl_multi_add_handle($mh,$ch1);
	curl_multi_add_handle($mh,$ch2);

	$active = null;
	// ハンドルを実行します
	// (※ マルチハンドル開始。最低1回で終わる
	// ※ do - while単位で1つの実行単位になっていて curl_multi_select() を初回スキップするために
	// ループが分割されている)
	do {
	$mrc = curl_multi_exec($mh, $active);
	} while ($mrc == CURLM_CALL_MULTI_PERFORM);

	// ※ $activeは curl_multi_exec() が処理中のとき1, 終了のとき0に書き換える(参照)
	// curl_multi_select() は次のactivityまで待つ
	while ($active && $mrc == CURLM_OK) {
	if (curl_multi_select($mh) != -1) {
	do {
	$mrc = curl_multi_exec($mh, $active);
	} while ($mrc == CURLM_CALL_MULTI_PERFORM);
	}
	}

	// ハンドルを閉じます
	curl_multi_remove_handle($mh, $ch1);
	curl_multi_remove_handle($mh, $ch2);
	curl_multi_close($mh);

	?>

test

2012-05-12T15:16:48Z

<?php echo "hello work"; ?>

Haml: Hamlでの属性のいくつかの書き方

2012-05-11T03:27:39Z

gistfile1.haml

	%a(href="http://example.com" title="title")
	Haml HTML-style Attributes -- 簡単！


	/ その他

	%a{"href"=>"http://example.com", "title"=>"title"}
	Ruby Hash (key: String)

	%a{:href=>"http://example.com", :title=>"title"}
	Ruby Hash (key: Symbol)

	%a{href:"http://example.com", title:"title"}
	Ruby Hash (key: Symbol, ver. 1.9)

C: 整数を2進数に変換して表示！

2012-04-27T10:30:16Z

gistfile1.c

	#include <stdio.h>

	void main() {
	int input;
	int bit;
	int show;
	int i;

	while (1) {
	printf(">> ");
	scanf("%d", &input);

	show = 0;
	for (i = sizeof(int) * 8 - 1; i > -1; i--) {
	bit = (input & (1 << i)) >> i;
	if (!show && bit == 1) show = 1;
	if (show) printf("%d", bit);
	}
	puts("");
	}
	}

TopCoder SRM 144(200)

2012-04-26T16:17:04Z

	public class Time {
	public String whatTime(int seconds) {
	return seconds / 3600 + ":" + seconds % 3600 / 60 + ":" + seconds % 60;
	}
	}

TopCoder SRM 144(550) リファクタ後

2012-04-26T15:37:37Z

	public class BinaryCode {

	public String[] decode(String message) {
	return new String[] { assume('0', message), assume('1', message) };
	}

	protected String assume(char p0, String message) {
	char[] q = message.toCharArray();
	int len = q.length;
	char[] p = new char[len];

	p[0] = p0;
	int i, pSum;
	for (i = 0; i < len - 1; i++) {
	pSum = (0 < i ? num(p[i-1]) : 0) + num(p[i]);
	p[i+1] = (char)('0' + num(q[i]) - pSum);
	if ('2' <= p[i+1]) return "NONE";
	}
	pSum = (0 < i ? num(p[i-1]) : 0) + num(p[i]);
	return (num(q[i]) == pSum) ? new String(p) : "NONE";
	}

	protected int num(char c) { return c - '0'; }

	}

C#: Excelの読み込み

2012-04-26T07:05:43Z

	using System;
	using System.Collections.Generic;
	using System.Linq;
	using System.Text;
	using System.Data;
	using System.Data.OleDb;

	namespace ConsoleApplication1
	{
	class Program
	{
	static void Main(string[] args)
	{
	// Microsoft.Jet.OLEDB.4.0がx64に対応していないのでx86でビルドして下さい。

	var filename = @"E:\test\Book1.xls";
	/*
	* 「Sheet1」に下記の内容が入っているものとします(例ではtab-separated)。
	* id name birthday
	* 1 fooさん 1990/12/31
	* 2 barさん 2001/1/1
	*/

	var builder = new OleDbConnectionStringBuilder() {
	{ "Provider", "Microsoft.Jet.OLEDB.4.0" },
	{ "Extended Properties", "Excel 8.0" },
	{ "Data Source", filename }
	};
	var sheetName = "[Sheet1$]";

	using (var a = new OleDbDataAdapter("SELECT * FROM " + sheetName, builder.ToString())) {
	var set = new DataSet("Data");
	a.FillSchema(set, SchemaType.Source, sheetName);
	a.Fill(set, sheetName);

	foreach (DataRow row in set.Tables[sheetName].Rows) {
	// id: 0001, name: fooさん, birth: 1999-12-31 のように表示
	Console.WriteLine("id: {0:04}, name: {1}, birth: {2:yyyy-MM-dd}", row["id"], row["name"], row["birthday"]);

	// 手っ取り早くCSV行として表示(.NET 4ならToArray()不要)
	Console.WriteLine(string.Join(",", row.ItemArray.Select(x => "\"" + x + "\"").ToArray()));
	}
	}
	}
	}
	}

C#(.NET 4): DataGridView→CSV(取り急ぎ)

2012-04-19T15:05:18Z

	var lines = dataGridView1.Rows.Cast<DataGridViewRow>().Select(row => {
	return string.Join(",",
	row.Cells.Cast<DataGridViewCell>().Select(cell => {
	return string.Format("\"{0}\"", (cell.Value ?? "").ToString().Replace("\"", "\"\""));
	})
	);
	});

	File.WriteAllLines("out.csv", lines, Encoding.GetEncoding(932));

Java: Exifから位置情報を取得する単純な例(Sanselan)

2012-04-12T13:51:30Z

	import java.io.File;
	import java.io.IOException;

	import org.apache.sanselan.Sanselan;
	import org.apache.sanselan.ImageReadException;
	import org.apache.sanselan.common.IImageMetadata;
	import org.apache.sanselan.formats.jpeg.JpegImageMetadata;
	import org.apache.sanselan.formats.tiff.TiffImageMetadata;
	import org.apache.sanselan.formats.tiff.TiffImageMetadata.GPSInfo;


	public class Main {

	/**
	* ファイル(JPEG)からGPS情報を取得します。
	* @param file 取得元のファイル
	* @return GPS情報
	*/
	public static GPSInfo getGPSInfo(File file) {
	IImageMetadata metadata = null;
	try {
	metadata = Sanselan.getMetadata(file);
	} catch (ImageReadException e) {
	} catch (IOException e) {
	}
	if (metadata == null) return null;

	if (!(metadata instanceof JpegImageMetadata)) return null;
	TiffImageMetadata exif = ((JpegImageMetadata) metadata).getExif();

	GPSInfo gpsInfo = null;
	try {
	gpsInfo = exif.getGPS();
	} catch (ImageReadException e) {
	}

	return gpsInfo;
	}


	public static void main(String[] args) {
	GPSInfo gpsInfo = getGPSInfo(new File("test.jpg"));
	if (gpsInfo != null) {
	try {
	double lat = gpsInfo.getLatitudeAsDegreesNorth();
	double lng = gpsInfo.getLongitudeAsDegreesEast();

	// lat: 35.366944, lng: 136.617833 等
	System.out.printf("lat: %f, lng: %f\n", lat, lng);
	} catch (ImageReadException e) {
	}
	}
	}

	}

2地点の緯度と経度から距離を計算する

2012-04-11T15:23:11Z

	import static java.lang.Math.*;

	public class Main {

	public static void main(String[] args) {
	double r = 6378.137; // 赤道半径[km]

	// 大垣駅(lat = 緯度, lng = 経度)
	double lat1 = 35.366944 * PI / 180;
	double lng1 = 136.617833 * PI / 180;

	// ソフトピアジャパンセンタービル
	double lat2 = 35.367572 * PI / 180;
	double lng2 = 136.639661 * PI / 180;

	// 2点間の距離[km]
	double distance = r * acos(sin(lat1) * sin(lat2) + cos(lat1) * cos(lat2) * cos(lng2 - lng1));

	System.out.printf("%f km", distance);
	}

	}

pChart 2.1.3: 散布図(XYグラフ)を描画する例

2011-12-19T15:51:44Z

	<?php
	/* pChartのexamplesディレクトリと同じ所に配置して下さい */

	require_once "../class/pData.class.php";
	require_once "../class/pDraw.class.php";
	require_once "../class/pImage.class.php";
	require_once "../class/pScatter.class.php";



	$data = new pData();

	// Y軸用に2種類の適当なデータを設定します。
	$data->addPoints(array(1, 4, 5, 4.5, 2, 3, 4.23, 5.1, 3, 3), "Y1");
	$data->addPoints(array(2, 3, 5.1, 6, 8.1, 6, 7.2, 5, 9, 8), "Y2");

	// データの色を設定します。
	$data->setPalette("Y1", array("R" => 130, "G" => 200, "B" => 0));
	$data->setPalette("Y2", array("R" => 0, "G" => 130, "B" => 200));

	// X軸用に2種類の適当なデータを設定します。
	$data->addPoints(array(0, 1.5, 2.2, 3.5, 4.3, 5.7, 6.1, 7, 8, 8.5), "X1");
	$data->addPoints(array(0, 1, 3, 3.5, 4.3, 5.7, 6.1, 7, 8, 8.5), "X2");

	// 0番目の軸をY軸として設定します。
	$data->setSerieOnAxis("Y1", 0);
	$data->setAxisName(0, "Y Axis");
	$data->setAxisXY(0, AXIS_Y);
	$data->setAxisPosition(0, AXIS_POSITION_TOP);

	// 1番目の軸をX1軸として設定します。
	$data->setSerieOnAxis("X1", 1);
	$data->setAxisName(1, "X1 Axis");
	$data->setAxisXY(1, AXIS_X);
	$data->setAxisPosition(1, AXIS_POSITION_RIGHT);

	// 2番目の軸をX2軸として設定します。
	$data->setSerieOnAxis("X2", 2);
	$data->setAxisName(2, "X2 Axis");
	$data->setAxisXY(2, AXIS_X);
	$data->setAxisPosition(2, AXIS_POSITION_LEFT);

	// それぞれのデータの系列と系列名を設定します。
	$data->setScatterSerie("X1", "Y1", 0);
	$data->setScatterSerieDescription(0, "X1 - Y1");

	$data->setScatterSerie("X2", "Y2", 1);
	$data->setScatterSerieDescription(1, "X2 - Y2");



	$image = new pImage(400, 200, $data);

	$image->setFontProperties(array("FontName" => "../fonts/pf_arma_five.ttf", "FontSize" => 6));
	$image->setGraphArea(50, 50, 350, 150);

	$scatter = new pScatter($image, $data);
	$scatter->drawScatterScale(array(
	// それぞれの軸の最小値と最大値を手動で決めます。
	"Mode" => SCALE_MODE_MANUAL,
	"ManualScale" => array(
	0 => array("Min" => 0, "Max" => 10),
	1 => array("Min" => -10, "Max" => 20),
	2 => array("Min" => 0, "Max" => 10),
	),
	// X軸ラベルが回転しないようにします。
	"XLabelsRotation" => 0,
	// グリッド線の色を変えます。
	"GridR" => 180, "GridG" => 180, "GridB" => 180,
	));

	// 折れ線とプロットを描画します。
	$scatter->drawScatterLineChart();
	$scatter->drawScatterPlotChart();

	// 凡例を描画します。
	$scatter->drawScatterLegend(250, 180, array("Mode" => LEGEND_HORIZONTAL, "Style" => LEGEND_NOBORDER));

	// グラフを出力します。
	$image->autoOutput();
	?>

C: 前置 < 間接参照 < 後置

2011-12-03T15:12:39Z

gistfile1.c

	#include <stdio.h>

	void main() {
	int a[] = {10, 20}, *p;
	p = a;
	printf("%d", ++p++); // == (++((p++)) == 11
	}

JSP: 単純なカレンダーを出力する(タグファイル)

2011-11-23T11:07:10Z

	<%@tag pageEncoding="UTF-8" body-content="empty"%>
	<%@tag import="java.util.Calendar"%>
	<%@attribute name="year" type="Integer" required="true" rtexprvalue="true" %>
	<%@attribute name="month" type="Integer" required="true" rtexprvalue="true" %>
	<%
	Calendar cal = Calendar.getInstance();
	cal.set(year, month - 1, 1);
	int firstDayOfWeek = cal.get(Calendar.DAY_OF_WEEK);
	int lastDay = cal.getActualMaximum(Calendar.DAY_OF_MONTH);

	int day = 2 - firstDayOfWeek;
	%><table><%
	for (int row = 0; row < 6; row++) {
	%><tr><%
	for (int col = 0; col < 7; col++) {
	%><td><%= (1 <= day && day <= lastDay) ? day : " " %></td><%
	day++;
	}
	%></tr><%
	}
	%></table>

PowerShell: PowerShell Image module Get-Exifの改変

2011-11-12T14:33:53Z

get-exif.ps1

	<#
	PowerShell Image module(http://archive.msdn.microsoft.com/PSImage/)のget-exif.ps1を改変して下記のプロパティを追加します。
	- Latitude (緯度。度表記)
	- Longitude (経度。度表記)
	- Name (ファイル名)

	使用例
	dir "*.jpg" \| get-exif \| select name, latitude, longitude \| export-csv out.csv

	ライセンス
	Ms-PL (元と同じ)
	#>

	#Constants for Strings
	$ExifIDDateTimeTaken = 36867 # 0x9003
	$ExifIDImageDescription = 270 # 0x010E
	$ExifIDMake = 271 # 0x010F
	$ExifIDModel = 272 # 0x0110
	$ExifIDSoftware = 305 # 0x0131
	$ExifIDArtist = 315 # 0x013B
	$ExifIDCopyright = 33432 # 0x8298
	$ExifIDGPSLatRef = 1
	$ExifIDGPSLongRef = 3
	$ExifIDGPSAltRef = 5

	#Constants For Unicode strings
	$ExifIDTitle = 40091 # 0x9C9B XP Title binary data
	$ExifIDAuthor = 40093 # 0x9C9D XP Author
	$ExifIDKeywords = 40094 # 0x9C9E XP Keywords
	$ExifIDSubject = 40095 # 0x9C9F XP Subject

	#$ExifIDComment = 40092 # 0x9C9C XP Comment
	$ExifIDComment = 37510 # 0x9286 UserComment

	#Constants For TOKEN numbers
	$ExifIDColorSpace = 40961 # 0xA001
	$ExifIDContrast = 41992 # 0xA408f
	$ExifIDExposureMode = 41986 # 0xA402
	$ExifIDExposureProgram = 34850 # 0x8822
	$ExifIDFlash = 37385 # 0x9209
	$ExifIDLightSource = 37384 # 0x9208
	$ExifIDMeteringMode = 37383 # 0x9207
	$ExifIDSaturation = 41993 # 0xA409
	$ExifIDSceneCaptutreMode = 41990 # 0xA406
	$ExifIDSharpness = 41994 # 0xA40A
	$ExifIDSubjectRange = 41996 # 0xA40C
	$ExifIDWhiteBalance = 41987 # 0xA403

	#Constants for special case ratios
	$ExifIDExposuretime = 33434 # 0x829A
	$ExifIDGPSLattitude = 2
	$ExifIDGPSLongitude = 4

	#Constants for normal numbers
	$ExifIDDigitalZoomRatio = 41988 # 0xA404
	$ExifIDExpbias = 37380 # 0x9204
	$ExifIDFNumber = 33437 # 0x829D
	$ExifIDFocalLength = 37386 # 0x920A
	$ExifIDFocalLengthIn35mmFormat = 41989 # 0xa405
	$ExifIDHeight = 40963 # 0xA003
	$ExifIDISO = 34855 # 0x8827
	$ExifIDMaxApperture = 37381 # 0x9205
	$ExifIDWidth = 40962 # 0xA002
	$ExifIDGPSAltitude = 6
	$ExifIDOrientation = 274 # 0x0112

	#Constants For Byte Arrays
	$ExifIDFileSource = 41728 # 0xA300
	$ExifIDMakerNote = 37500 # 0x927C
	$ExifIDGPSVer = 0

	Function Get-ExifItem {
	<#
	.Synopsis
	Returns an single item of Generic Exif data
	.Description
	Returns the data part of a single EXIF property item -not the type.
	.Example
	C:\PS> Get-ExifItem -image $image -ExifID $ExifIDModel
	Returns the Camera model string
	.Parameter image
	The image from which the data will be read
	.Parameter ExifID
	The ID of the required data field.
	The module defines constants with names beginning $ExifID for the most used ones.
	#>
	Param ( [__ComObject]$image, [string]$ExifID )
	try {$item = $image.Properties.Item("$ExifID") }
	Catch { Write-Verbose "Error getting exif item $ExifID - probably doesn't exist" ; return }
	if (($item.Type -eq 1007) -or ($item.Type -eq 1006) ) { # "Rational"=1006;"URational"=1007
	if (($ExifID -eq $ExifIDExposuretime) -and ($item.Value.Numerator -eq 1) ) {"1/$($item.Value.Denominator)"} else {$item.value.value} }
	elseif (($item.type -eq 1101) -or ($item.type -eq 1100)) {$item.value.string() } # "VectorOfByte"=1101
	else {$item.value}
	}

	Function Get-Exif{
	<#
	.Synopsis
	Returns an object containing Exif data
	.Description
	Returns an object containing Exif data
	.Parameter image
	The image from which the data will be read
	.Example
	C:\ps> get-image IMG_1234.JPG \| get-exif
	Returns the exif summary for the specified file
	.Example
	C:\ps> Get-exif .\*.JPG \| format-table -auto Path, iso,Fnumber,exposuretime
	Gets the exif data for all the files in the current folder
	and returns a table of exposure information.
	#>
	Param ( [Parameter(ValueFromPipeline=$true,Mandatory=$true)]$image)
	Process {
	if ($image -is [system.io.fileinfo] ) {$image = $image.FullName }
	if ($image -is [String] ) {$image = Get-Image $image}
	if ($image.count -gt 1 ) {$image \| ForEach-Object {Get-Exif $_} ; Return}
	$myvar =[int](Get-ExifItem -image $image -ExifID $ExifIDFlash)
	$flash=""
	If ($myvar –band 1) {$Flash += "Flash fired"}
	If ($myvar -bAnd 4) {$Flash += ", return"
	If ($myvar -bAnd 2) {$flash += " detected"} else {$Flash += "not detected"}
	}
	If ($myvar -bAnd 8) { If (($myvar-bAnd 16) -eq 16) {$Flash = "Flash Auto, " + $flash} else {$flash = "Flash on, " + $flash} }
	ElseIf ($myvar -bAnd 16) {$flash = "Flash off. " }
	If ($myvar -bAnd 32) {$flash = "No Flash function" }
	If ($myvar -bAnd 64) {$flash += ", Red Eye reduction" }

	$Keywords = Get-ExifItem -image $image -ExifID $ExifIDKeywords
	if ($keywords) {$keywords = $keywords.Split(";") }

	$gps = ""
	$Latitude = 0;
	$Longitude = 0;
	$l=(get-ExifItem -image $image -ExifID $ExifIDGPSLattitude)
	if ($l.count -eq 3) {$gps += "$($l[0].value)°$($l[1].value)'$($l[2].value)""" ; $Latitude = $l[0].value + $l[1].value/60 + $l[2].value/3600 }
	if ($l.count -eq 2) {$gps += "$($l[0].value)°$($l[1].value)'" ; $Latitude = $l[0].value + $l[1].value/60 }
	$gps = $GPS += (get-ExifItem -image $image -ExifID $ExifIDGPSLatRef)

	$l=(get-ExifItem -image $image -ExifID $ExifIDGPSLongitude)
	if ($l.count -eq 3) {$gps += " $($l[0].value)°$($l[1].value)'$($l[2].value)""" ; $Longitude = $l[0].value + $l[1].value/60 + $l[2].value/3600 }
	if ($l.count -eq 2) {$gps += " $($l[0].value)°$($l[1].value)'" ; $Longitude = $l[0].value + $l[1].value/60 }
	$gps = $GPS += (get-ExifItem -image $image -ExifID $ExifIDGPSLongRef)

	$altref = get-ExifItem -image $image -ExifID $ExifIDGPSAltRef
	if ($altRef -EQ 0) {$gps += ", $(get-ExifItem -image $image -ExifID $ExifIDGPSAltitude)M above Sea Level"}
	if ($altRef -EQ 1) {$gps += ", $(get-ExifItem -image $image -ExifID $ExifIDGPSAltitude)M below Sea Level"}

	$dt = (get-ExifItem -image $image -ExifID $ExifIDDateTimeTaken)
	if ($dt) {$dt = [DateTime]::ParseExact($dt,"yyyy:MM:dd HH:mm:ss",[System.Globalization.CultureInfo]::InvariantCulture) }


	$FullNameComponents = $Image.FullName -split "\\"
	$Name = $FullNameComponents[$FullNameComponents.Length - 1]

	New-Object PSObject -Property @{Flash = $flash
	Keywords = $Keywords
	GPS = $GPS
	Latitude = $Latitude
	Longitude = $Longitude
	DateTaken = $dt
	Path = $Image.FullName
	Name = $Name
	Manufacturer = (Get-ExifItem -image $image -ExifID $ExifIDMake)
	Model = (Get-ExifItem -image $image -ExifID $ExifIDModel)
	Software = (Get-ExifItem -image $image -ExifID $ExifIDSoftware)
	Subject = (Get-ExifItem -image $image -ExifID $ExifIDSubject)
	Title = (Get-ExifItem -image $image -ExifID $ExifIDTitle)
	Comment = (Get-ExifItem -image $image -ExifID $ExifIDComment)
	Author = (Get-ExifItem -image $image -ExifID $ExifIDAuthor)
	Copyright = (Get-ExifItem -image $image -ExifID $ExifIDCopyright)
	Artist = (Get-ExifItem -image $image -ExifID $ExifIDArtist)
	ISO = (Get-ExifItem -image $image -ExifID $ExifIDISO)
	ExposureBias = (Get-ExifItem -image $image -ExifID $ExifIDExpbias)
	Exposuretime = (Get-ExifItem -image $image -ExifID $ExifIDExposuretime)
	FNumber = (Get-ExifItem -image $image -ExifID $ExifIDFNumber)
	MaxApperture = (Get-ExifItem -image $image -ExifID $ExifIDMaxApperture)
	FocalLength = (Get-ExifItem -image $image -ExifID $ExifIDFocalLength)
	FocalLength35mm = (Get-ExifItem -image $image -ExifID $ExifIDFocalLengthIn35mmFormat)
	DigitalZoomRatio = (Get-ExifItem -image $image -ExifID $ExifIDDigitalZoomRatio)
	Height = (Get-ExifItem -image $image -ExifID $ExifIDHeight )
	Width = (Get-ExifItem -image $image -ExifID $ExifIDWidth)
	SubjectRange = @{1="Macro"; 2="Close"; 3="Distant"}[[int]( Get-ExifItem -image $image -ExifID $ExifIDSubjectRange)]
	ExposureMode = @{0="Auto"; 1="Manual"; 2="Auto Bracket"}[[int]( Get-ExifItem -image $image -ExifID $ExifIDExposureMode)]
	WhiteBalance = @{0="Auto"; 1="Manual" }[[int]( Get-ExifItem -image $image -ExifID $ExifIDWhiteBalance)]
	Contrast = @{0="Normal"; 1="Soft"; 2="Hard" }[[int]( Get-ExifItem -image $image -ExifID $ExifIDContrast)]
	Sharpness = @{0="Normal"; 1="Soft"; 2="Hard" }[[int]( Get-ExifItem -image $image -ExifID $ExifIDSharpness)]
	Saturation = @{0="Normal"; 1="Low"; 2 ="High"}[[int]( Get-ExifItem -image $image -ExifID $ExifIDSaturation)]
	Orientation = @{1="0"; 3="180"; 6="270"; 8="90"}[[int]( Get-ExifItem -image $image -ExifID $ExifIDOrientation) ] # (0 -=Row 0 is Top, Col 0 is left / 180=Inverted, Row 0 Bottom and col 0 is Right / 270=90 Degrees CounterClockWise, Row 0 is right and col 0 is top / 90=90 Degrees ClockWise, row 0 is left, Col 0 is bottom
	ColorSpace = @{1="sRGB"; 2="Adobe RGB" }[[int]( Get-ExifItem -image $image -ExifID $ExifIDColorSpace) ] #'(the value of 2 is not standard EXIF. Instead, an Adobe RGB image is indicated by "Uncalibrated" with an InteropIndex of "R03"')
	FileSource = @{1="Film scanner"; 2="Print scanner"; 3="Digital still camera"}[[int]( Get-ExifItem -image $image -ExifID $ExifIDFileSource)]
	CaptureMode = @{0="Standard"; 1="Landscape"; 2="Portrait"; 3="NightScene"}[[int]( Get-ExifItem -image $image -ExifID $ExifIDSceneCaptutreMode)]
	MeteringMode = @{1="Av"; 2="Centre"; 3="Spot"; 4="Multi-Spot"; 5="Multi-Segment"; 6="Partial"}[[int]( Get-ExifItem -image $image -ExifID $ExifIDMeteringMode)]
	ExposureProgram = @{1="Manual"; 2="Program: Normal"; 3="Aperture Priority"; 4="Shutter Priority"; 5="Program: Creative"; 6="Program: Action"; 7="Portrait Mode"; 8="Landscape Mode"}[[int]( Get-ExifItem -image $image -ExifID $ExifIDExposureProgram)] # Manual includes Bulb, X-Sync Mode Pentax Sv Mode and TAv mode report 0 - unknown. Creative is Depth of field Biased and Action is shutter biased
	LightSource = @{0="Auto"; 1="Daylight"; 2="Fluorescent"; 3="Tungsten"; 4="Flash"; 9="Fine Weather"; 10="Cloudy Weather"; 11="Shade"; 12="Daylight Fluorescent"; 13="Day White Fluorescent"; 14="Cool White Fluorescent"; 15="White Fluorescent"; 17="Standard Light A"; 18="Standard Light B"; 19="Standard Light C"; 20="D55"; 21="D65"; 22="D75"; 23="D50"; 24="ISO Studio Tungsten"}[[int]( Get-ExifItem -image $image -ExifID $ExifIDLightSource)]
	}
	}
	}

HAML, SCSS, CoffeeScriptの自動コンパイル実験(watchr)

2011-11-11T17:00:51Z

w.rb

	# based on http://www.223soft.net/35

	class W
	def initialize(opts)
	@dest_dir = opts[:dest_dir]
	end

	def exec(cmd, md)
	p = Pathname.new(@dest_dir + "/" + File.dirname(md[0]))
	p.mkdir if not p.exist?
	puts "compiled to #{md[0]}" if system(cmd)
	end
	end

	dest_dir = "dest"
	w = W.new(:dest_dir => dest_dir)

	watch("(.*)\.haml") {\|md\|
	w.exec("haml -f html5 #{md[0]} -E UTF-8 #{dest_dir}/#{md[1]}.html", md)
	}
	watch("(.*)\.scss") {\|md\|
	w.exec("sass --scss #{md[0]} #{dest_dir}/#{md[1]}.css", md)
	}
	watch("(.*)\.coffee") {\|md\|
	w.exec("coffee -o #{dest_dir} -c #{md[0]}", md)
	}

Aptana Studio 3.0.6: メニューのCommands > HAML にHAML形式をHTML形式に変換するメニューを追加する

2011-11-11T10:35:59Z

convert_haml_to_html.rb

	=begin
	適用方法
	1. Commands > HAML > Edit this bundle を開く
	2. 出てきたプロジェクトのbundle.rbに main_menu.command 'Convert HAML to HTML' を追加する
	3. このコードを commands/convert_haml_to_html.rb に保存する
	4. Aptanaを再起動する
	=end

	require 'ruble'

	#command 'Convert HTML to HAML' do \|cmd\|
	command 'Convert HAML to HTML' do \|cmd\|
	# cmd.key_binding = 'M1+M3+C' # Alt + Cmd not friendly for overseas users
	cmd.output = :replace_selection
	cmd.input = :selection, :document
	cmd.invoke do \|context\|
	#cmd_line = "ruby -e \"require 'rubygems'; gem 'haml'; require 'haml/html'; puts Haml::HTML.new(STDIN.read).render\""
	cmd_line = "ruby -e \"require 'rubygems'; gem 'haml'; require 'haml/html'; puts Haml::Engine.new(STDIN.read).render\""
	output = IO.popen(cmd_line, 'r+') do \|io\|
	io << $stdin.read
	io.close_write
	io.read
	end
	if output.nil? or output.strip.length == 0
	context.exit_show_tooltip "No output. May need to install haml or hpricot gem. hpricot must be installed through Ruby devkit's msys prompt!" if Ruble.is_windows?
	context.exit_discard
	end
	output
	end
	end

jQuery: smoothScroll

2011-10-30T08:00:10Z

gistfile1.js

	/**
	* jQuery smoothScroll
	* ページ内リンクをブラウザの挙動に近い形でスムーズにスクロールします。
	*
	* # 使用例
	* $("a").smoothScroll();
	* $("a").smoothScroll({ duration: "fast", easing: "swing" });
	*
	* # TODO
	* - vertical-alignがtopでないimgを持つaに移動する際上部の位置がずれる点の修正
	*/
	(function($){
	var pluginName = "smoothScroll";
	var plugin = function(options){
	var settings = $.extend({}, plugin.defaults, options);
	var complete = settings.complete \|\| function(){};

	var live = settings.live;
	delete settings.live;

	return this[ live ? "live" : "bind" ]("click", function(){
	// 同一ページ内のリンクでない場合は処理を中断します。
	if (!inPage(this.href)) return;
	// 同一ページでも「#」がなければリクエストが投げられるべきなので処理を中断します。
	// HTMLAnchorElement#hashだと「#」だけのときと「#」自体ないときの違いがわからないのでここで判定します。
	if (this.href.indexOf("#") == -1) return;

	var hash = this.hash;
	var target;

	// フラグメント識別子が空(「#」だけ)の場合は最上部に移動すべきなのでhtmlを対象にします。
	// 対象のIDを持つ要素が取得できない場合は移動せずその場に留まるべきなので処理を中断します。
	if (hash == "") {
	target = $("html");
	} else {
	target = $(hash);
	if (target.length <= 0) return;
	}
	var perSettings = $.extend({}, settings, {
	complete: function(){
	complete.apply(this, arguments);
	location.hash = hash;
	}
	});

	var offset = target.offset();
	var top = offset.top;
	var left = offset.left;
	$("html, body").stop(true).animate({ scrollTop: top, scrollLeft: left }, perSettings);
	return false;
	});
	};
	plugin.defaults = {
	live: true,
	duration: "slow"
	};
	$.fn[pluginName] = plugin;

	/**
	* 同一ページ内のリンクかどうかを判別します。
	*/
	var inPage = function(href){
	return href.split("#")[0] == location.href.split('#')[0];
	};
	})(jQuery);

jQuery: hoverOpacity

2011-10-30T04:54:13Z

gistfile1.js

	/**
	* jQuery hoverOpacity
	* hoverしたときにopacityを指定値まで段階的に変化させ、カーソルが離れたら1まで戻します。
	*
	* # 使用例
	* $("a:has(img)").hoverOpacity(0.5);
	*/
	(function($) {
	var pluginName = "hoverOpacity";
	var plugin = function(value, options) {
	var settings = $.extend({}, plugin.defaults, options);

	return this.hover(
	function(){ $(this).stop(true).animate({ opacity: value }, settings) },
	function(){ $(this).stop(true).animate({ opacity: 1 }, settings) }
	);
	};
	plugin.defaults = { duration: "fast" };
	$.fn[pluginName] = plugin;
	})(jQuery);

Java: static importの例

2011-10-26T01:29:45Z

	// Mathのstaticメンバを修飾なしで書けるようにします。
	import static java.lang.Math.*;
	// System.outを修飾なしで書けるようにします。
	// outはPrintStreamのインスタンスなので
	// import static java.lang.System.out.*;
	// とはできないそうです。
	import static java.lang.System.out;

	public class StaticImportExample {
	public static void main(String[] args) {
	out.println(pow(10, 2));
	}
	}

PHP: HTTPストリームコンテキスト+POSTの例

2011-10-24T17:13:05Z

	<?php
	$url = 'http://localhost/example/test.php'; // <?php var_dump($_POST)
	$params = array('foo' => 'bar');

	$context = stream_context_create(array(
	'http' => array(
	'method' => 'POST',
	'header' => 'Content-Type: application/x-www-form-urlencoded',
	'content' => http_build_query($params, '', '&')
	)
	));

	$contents = file_get_contents($url, false, $context);
	echo $contents;

C#: Bloggerに新しいエントリを投稿する例

2011-10-23T10:12:16Z