※コンパイルとリンクは出来たが動作が不完全だったためボツ
mingw-get install mingw32-pdcurses
#include <stdio.h> | |
#include <stdlib.h> | |
#include <dirent.h> | |
int main(int argc, char *argv[]) | |
{ | |
struct dirent *entry; | |
DIR *dir; | |
char *path; |
#include <stdio.h> | |
#include <stdint.h> | |
#include <time.h> | |
#include <unistd.h> | |
#include <sys/time.h> | |
#ifdef _WIN32 | |
#define WIN32_LEAN_AND_MEAN | |
#include <windows.h> | |
#define sleep(sec) Sleep(sec * 1000) |
(require 'wandbox) | |
;; wandbox-profiles | |
((:lang "C++" :name "gcc HEAD" :compiler "gcc-head" :options "warning,boost-1.56,sprout,gnu++1y" :ext "cc") | |
(:lang "C++" :name "gcc" :compiler "gcc-4.9.0" :options "warning,boost-1.56,sprout,gnu++1y" :ext "cc") | |
(:lang "C++" :name "gcc" :compiler "gcc-4.8.2" :options "warning,boost-1.56,sprout,gnu++1y" :ext "cc") | |
(:lang "C++" :name "gcc" :compiler "gcc-4.8.1" :options "warning,boost-1.56,sprout,gnu++1y" :ext "cc") | |
(:lang "C++" :name "gcc" :compiler "gcc-4.7.3" :options "warning,boost-1.56,sprout,gnu++11" :ext "cc") | |
(:lang "C++" :name "gcc" :compiler "gcc-4.6.4" :options "warning,boost-1.56,sprout,gnu++0x" :ext "cc") | |
(:lang "C++" :name "gcc" :compiler "gcc-4.5.4" :options "warning,boost-1.56,gnu++0x" :ext "cc") |
※コンパイルとリンクは出来たが動作が不完全だったためボツ
mingw-get install mingw32-pdcurses
// see also: | |
// http://msdn.microsoft.com/ja-jp/library/k3backsw.aspx | |
// http://linuxjm.sourceforge.jp/html/LDP_man-pages/man3/matherr.3.html | |
#define _SVID_SOURCE | |
#include <math.h> | |
#include <string.h> | |
#include <stdio.h> | |
#ifdef _WIN32 |
;;; wandbox.el --- Wandbox interface for Emacs | |
;; Let's Play Wandbox! | |
;; - http://melpon.org/wandbox/ | |
;; - https://github.com/melpon/wandbox >>> /kennel/API.rst | |
;;; Example: | |
;; ## インタラクティブに利用する | |
;; |
/* nl-json.c */ | |
#include "newlisp.h" | |
#include "protos.h" | |
#include "nl-json.h" | |
CELL * stuffList(int length, ...) | |
{ | |
CELL * list; | |
int i; |
#!/usr/bin/env newlisp | |
;; 可能ならbigintを使用する | |
(when (primitive? bigint) | |
(constant '_+ + | |
'+ (lambda () (apply _+ (map bigint (args)))))) | |
; (define (fibonacci n) | |
; (if (< n 2) | |
; 1 |
#!newlisp | |
;; PING for newLISP (win32) | |
;; | |
;; Usage: | |
;; > newlisp ping.lsp localhost | |
;; > newlisp ping.lsp -w 2000 gist.github.com | |
;; | |
;; License: | |
;; MIT License |
@echo off | |
rem for Google Chrome v21 or later | |
rem set TARGET=*.tmp | |
rem set SRC=%LOCALAPPDATA%\Google\Chrome\User Data\Default\Pepper Data\Shockwave Flash | |
rem for Chrome v20 or older (and v25) | |
set TARGET=fla*.tmp | |
set SRC=%LOCALAPPDATA%\Temp |