kosh04

CC := gcc
CFLAGS := -std=c99 -Wall -Werror -g3 -O0
LDLIBS := $(if $(findstring MINGW,$(MSYSTEM)),-lws2_32)

TARGET := http-server echo-server

default: $(TARGET)

http-server: http-server.o server.o
echo-server: echo-server.o server.o

kosh04

#include <stdio.h>
#include <stdint.h>
#include <stddef.h>
#include <sys/types.h>
#include <wchar.h>
#include <time.h>

// XXX: "%zd" format cannot work in VC, MinGW
#define prints(type)  printf(#type "\t\t" "%lu\n", (unsigned long)sizeof(type))

kosh04

#!/bin/sh
set -eu
usage="usage: $0 [execute|compile] FILENAME"

url=https://play.rust-lang.org/${1?${usage}}
code=$(cat ${2?${usage}})

send() {
    curl -s -X POST -H "Content-Type: application/json" -d @- ${1}
}

kosh04

;;; -*- mode:newlisp; coding:utf-8 -*-

;; @module iconv.lsp
;; @description Yet Another Iconv Library
;; @version 0.5 初版
;; @version 0.6 Windows(DLL)でも使えるように
;; @version 0.7 関数を増やした
;; @version 0.8 変換後のNULL文字に対応したつもり
;; @version 0.8b newlisp_sjisでのバッファあふれ修正
;; @version 0.8c Rename iconv-handler -> call-with-iconv-descriptor

kosh04

CC ?= cc

usage := make -f $(notdir $(MAKEFILE_LIST)) [CC=cc]

platform_list := linux bsd darwin mingw cygwin solaris
machine := $(shell $(CC) -dumpmachine)

# $(call grep, string, word-list)
grep = $(strip $(foreach word,$2,$(findstring $(word),$1)))

kosh04

Link

• VERSIONINFO resource https://msdn.microsoft.com/en-us/library/aa381058.aspx
• VS_FIXEDFILEINFO structure https://msdn.microsoft.com/ja-jp/library/windows/desktop/ms646997(v=vs.85).aspx
• StringFileInfo BLOCK statement https://msdn.microsoft.com/en-us/library/windows/desktop/aa381049%28v=vs.85%29.aspx

kosh04

@echo off
setlocal

set LLVM_ROOT=C:\opt\LLVM

set PATH=%PATH%;C:\MinGW64\bin
set PATH=%PATH%;%LLVM_ROOT%\bin
set PATH=%PATH%;C:\opt\cmake\bin
set PATH=%PATH%;%HOME%\.emacs.d\bin

kosh04

;;; wandbox.el --- Wandbox interface for Emacs

;; Let's Play Wandbox!
;; - http://melpon.org/wandbox/
;; - https://github.com/melpon/wandbox >>> /kennel/API.rst

;;; Example:

;; ## インタラクティブに利用する
;;

kosh04

/* nl-json.c */

#include "newlisp.h"
#include "protos.h"
#include "nl-json.h"

CELL * stuffList(int length, ...)
{
  CELL * list;
  int i;

kosh04

#!/usr/bin/env newlisp

;; 可能ならbigintを使用する
(when (primitive? bigint)
  (constant '_+ +
            '+ (lambda () (apply _+ (map bigint (args))))))

; (define (fibonacci n)
;   (if (< n 2)
;       1