mattn

#if _WIN32_WINNT < 0x0500
# error "should be NT"
#endif
#include    <windows.h>
#include    <tlhelp32.h>
#include	<winternl.h>
#include    <stdio.h>
 
DWORD getppid()
{

mattn

// Running JSDeferred on WSH
var _util = {
    cat : function(f){
        if(f.match(/^http:/)) {
            var xhr = new ActiveXObject("Microsoft.XMLHTTP");
            xhr.open("GET", f, false);
            xhr.send();
            return xhr.responseText;
        }
        return (new ActiveXObject("Scripting.FileSystemObject")).OpenTextFile(f,1,false).ReadAll();

mattn

#!/usr/bin/env perl 

use strict;
use warnings;
use Encode;
use Gtk2 -init;

my $data = decode_utf8 do { local $/; <STDIN> } || '';

&main();exit;

mattn

/*
fix: error C2016: C では、構造体または共用体に少なくとも 1 つのメンバが必要です。	
struct function {
};
*/

/*
foo.cxx(9) : error C2146: 構文エラー : ';' が、識別子 'foo' の前に必要です。
foo.cxx(9) : error C4430: 型指定子がありません - int と仮定しました。メモ: C++ は int を既定値としてサポートしていません
foo.cxx(9) : error C4430: 型指定子がありません - int と仮定しました。メモ: C++ は int を既定値としてサポートしていません

mattn

#include <stdio.h>

typedef enum { GU = 1, CHOKI = 2, PA = 3 } HAND;
void judge(HAND handA, HAND handB);
 
int
main(void) {
  judge(GU, GU);
  judge(GU, CHOKI);
  judge(GU, PA);

mattn

#include <stdio.h>
 
void *create_counter(int n)
{
	static int m = 0;
    int counter()
    {
        printf("address in closure %p\n", &m);
        return m++;
    }

mattn

// ==UserScript==
// @name           kurukuruimg
// @namespace      http://www.hatena.ne.jp/hitode909
// @include        *
// ==/UserScript==

var style = document.createElement('style');
document.body.appendChild(style);
style.textContent = "img, canvas, video {\n" + "-webkit-transform: rotate(0deg);\n" + "  }";

mattn

#!perl

# 日本の祝日をGoogleから持ってくるスクリプト
use strict;
use LWP::UserAgent;
use POSIX qw(strftime);
use URI;
use JSON::XS;
use XML::LibXML;
use XML::LibXML::XPathContext;

mattn

use strict;
use warnings;

use Net::Twitter;
use Path::Class;
use Array::Diff;
use Config::Pit;
use Getopt::Long;
use LWP::Simple;
use File::Temp;

mattn

#include <stdio.h>

void hoge(char *str) {
    str[1] = 'a';
}

int main(void) {
    char foo[10];
    char b[] = {0xe3,0x81,0xa0,0xe3,0x81,0xbe,0xe3,0x81,0xa3,0xe3,0x81,0xa6,0xe3,0x82,0xb3,0xe3,0x83,0xbc,0xe3,0x83,0x89,0xe3,0x82,0x92,0xe3,0x81,0x8b,0xe3,0x81,0x91,0xe3,0x82,0x88,0x00};
    strcpy(foo, "hoge");