kosh04

#!/usr/bin/env newlisp

;; See also: http://id.fnshr.info/2013/01/25/upsidedowntext/

(unless utf8
  (throw-error "newlisp cannot use UTF-8 encoding"))

(new Tree 'FlipTable)

(FlipTable

kosh04

;;; -*- Mode: Lisp; Encoding: Shift_JIS -*-

;;; 英数字を180度回転した文字を表示するプログラム
;;; 元ネタ: http://id.fnshr.info/2013/01/25/upsidedowntext/

(provide "flippy")

(in-package "user")

(defvar *flippy-alist* nil)

kosh04

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

#define init(x) memset((x).byte, '\0', sizeof((x).byte))

int main()
{
  union{
    char c;

kosh04

@echo off
setlocal
if not defined XYZZYHOME set XYZZYHOME=%CD%
set XYZZYCONFIGPATH=
path %XYZZYHOME%\bin;%PATH%

start %XYZZYHOME%\xyzzycli.exe %*

kosh04

var app, chart;
app = new ActiveXObject("Excel.Application");
app.Visible = true;
app.Workbooks.Add();
app.Range("a1").Value = 3;
app.Range("a2").Value = 2;
app.Range("a3").Value = 1;
app.Range("a1:a3").Select();
chart = app.Charts.Add();
chart.Type = -4100;		// xl3DColumn

kosh04

/*
 * - Query the Value of a Semaphore
 *   http://www.codeguru.com/Cpp/W-P/win32/article.php/c1423/
 * - Code Snippet - Query Semaphore
 *   http://www.ragestorm.net/snippet?id=97
 * - Semaphores value - statckoverflow
 *   http://stackoverflow.com/questions/2579536/semaphores-values
 * - NtQuerySemaphore - Undocumented function of NTDLL
 *   http://undocumented.ntinternals.net/UserMode/Undocumented%20Functions/NT%20Objects/Semaphore/NtQuerySemaphore.html
 */

kosh04

;; FOOP in newLISP
;; * How find parent context?

(new Class 'Animal)
(new Animal 'Snake) (define Snake:super Animal)
(new Animal 'Horse) (define Horse:super Animal)

(context Animal)

;; constructor

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

(let ((i 0))
  (unless (get 'mode-line-format 'save)
    (setf (get 'mode-line-format 'save) mode-line-format))
  (defun u-nya- ()
    (let ((pattern '("(」・ω・)」うー！"
                     "(／・ω・)／にゃー！"
                     "(」・ω・)」うー！"
                     "(／・ω・)／にゃー！"
                     "(」・ω・)」うー！"
                     "(／・ω・)／にゃー！"

kosh04

;; -*- Mode: newlisp; Coding: utf-8; -*-

;; @module mlang.lsp
;; @description CodePage Conversion Library (Windows only)
;; @version 0.1 (2012-04-18) - first commit.
;; @author KOBAYASHI Shigeru (kosh)
;; @license MIT License

;; @links
;; - Introduction to MLang - MSDN