metanest

struct vec2d {
  int x;
  int y;
};

void foo(void) {
  struct vec2d a = {1, 2};  // 定義の右辺では初期化子としてこう書ける
  struct vec2d b, c;

  b = a;

metanest

#include <string.h>
#include <stdio.h>

struct foo_struct {
  char c6[6];
};

static inline struct foo_struct identity_foo(struct foo_struct it) {
  return it;
}

metanest

package main

import (
	"fmt"
	"time"
)

type fix_chan chan fix_chan

func main() {

metanest

#
# dump NetBSD or FreeBSD(>= 9) "script -r" file
#
require 'time'
open(ARGV[0], "rb:ASCII-8BIT"){|file|
    loop {
        stamp = file.read 24
        break if !stamp or stamp.bytesize != 24
        len, sec, usec, direction = stamp.unpack("Q2L2")
        rectime = Time.at sec, usec

metanest

*** m55.awk_ORG	Sat Nov 22 14:03:59 2014
--- m55.awk	Sat Nov 22 14:19:44 2014
***************
*** 102,117 ****
  		} else if (m55_frame_inmacro() && ((token = m55_input_get(tokens2)) != "")) {
  			if (m55_frame_inmacroname()) {
  				macroname = m55_frame_getmacroarg(0)
- 				m55_macro_lookup(macroname, buf)
- 				if (0 in buf) {
- 					m55_frame_setmacrobody(buf[0])

metanest

data Range a = MkRange a a deriving Show

mkRange :: Num a => a -> a -> Range a
mkRange p q = MkRange (p - q) (p + q)

(+-) :: Num a => a -> a -> Range a
p +- q = mkRange p q

(===) :: Ord a => a -> Range a -> Bool
a === (MkRange x y)

metanest

#!/usr/local/bin/ruby20
# coding:utf-8
# vi:set ts=3 sw=3:
# vim:set sts=0 noet:

require "find"
require "pathname"

ptn = Regexp.compile ARGV[0]

metanest

metanest

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:svg="http://www.w3.org/2000/svg">

  <xsl:output method="xml"/>

  <xsl:template match="/svg:svg">
    <xsl:copy>
      <xsl:apply-templates/>
    </xsl:copy>
  </xsl:template>

metanest

'use strict'

var def_num = function (n) {
	return function (cont) {
		return function() {
			return cont(n)
		}
	}
}