k-takata

let hds = []
for j in range(1, 200)
	for i in range(0x20, 0x7e)
		let hds += [printf("%02x", i)]
	endfor
endfor
let hd = join(hds, '')

" Time of split
let stime = reltime()

k-takata

diff --git a/autoload/vimproc.vim b/autoload/vimproc.vim
index bb79a8c..543af50 100644
--- a/autoload/vimproc.vim
+++ b/autoload/vimproc.vim
@@ -884,10 +884,8 @@ function! s:read(...) dict "{{{
   " return s:hd2str([hd])
 endfunction"}}}
 function! s:read_lines(...) dict "{{{
-  let res = self.buffer
-

k-takata

#!/usr/bin/env python
# -*- coding: utf-8 -*-

from __future__ import print_function, unicode_literals
import onig
import testpy
import sys

x2 = testpy.x2
x3 = testpy.x3

k-takata

#!/bin/sh

if stg top > /dev/null 2>&1; then
	echo error: patch applied.
	exit 1
fi

k-takata

#!/bin/sh

mainbundle=hg_main.bundle
mqbundle=hg_mq.bundle

rm -f $mainbundle $mqbundle

hg --pager=no incoming -v --bundle $mainbundle
if [ $? -eq 255 ]; then
  exit 1

k-takata

#include <windows.h>

main(int argc, char *argv[])
{
	char *filename = "あいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえお.txt";
	HANDLE h;

	h = CreateFileA(filename, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, 0, NULL);
	printf("handle:%p, length:%d\n", h, strlen(filename));
	CloseHandle(h);

k-takata

『はじめて読む486』のサンプルを OpenWatcom でビルドする

概要

『はじめて読む486』のサンプルプログラム集 をできるだけ簡単に試してみるために、OpenWatcom を使ってビルドしてみました。

※ 16bit 用の無料で使えるコンパイラとしては LSI C-86 試食版が有名ですが、関数の呼び出し規約が MSC や Borland C とは異なっているため、アセンブリプログラムの修正が必須となってしまいます。また、Turbo C 2.01 もありますが、インストールが面倒で TASM も含まれていません。

ダウンロード

k-takata

#!/bin/bash

version=7.4
#unstable=unstable/
unstable=
patch_url=http://ftp.vim.org/pub/vim/${unstable}patches/${version}

# Get start and end version
version_esc=${version//./\\.}	# Escape dots
start=$(gawk '{l = gensub(/'${version_esc}'\.([0-9]+)/, "\\1", 1, $2)} END {printf "%03d", l+1}' README 2> /dev/null || echo 001)

k-takata

--- a/autoload/proc_w32.c
+++ b/autoload/proc_w32.c
@@ -43,6 +43,7 @@
 #include <windows.h>
 #include <winbase.h>
 #include <shellapi.h>
+#include <shlobj.h>
 #include <shobjidl.h>
 #if 0
 # include <winsock2.h>

k-takata

let pathext = ".COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC;.PY;.tcl"
let s:path_separator = ";"

" Time of split
let stime = reltime()
for i in range(1, 1000)
  let s:path_extensions = split(tolower(pathext), s:path_separator)
endfor
echo reltimestr(reltime(stime)) . " (split) " . len(s:path_extensions)
echo s:path_extensions