pebbles-sl 0.9.1

data/.gitignore

@@ -0,0 +1,10 @@
+*.gem
+.bundle
+Gemfile.lock
+pkg/*
+
+Makefile
+*.o
+*.log
+*.bundle
+*.so

data/COPYRIGHT.md

@@ -0,0 +1,24 @@
+# Copyright
+
+## Upstream
+
+Upstream Author: Toyoda Masashi <toyoda@is.titech.ac.jp>
+
+Copyright 1993,1998 Toyoda Masashi (toyoda@is.titech.ac.jp)
+
+Everyone is permitted to do anything on this program including copying,
+modifying, and improving, unless you try to pretend that you wrote it.
+i.e., the above copyright notice has to appear in all copies.
+THE AUTHOR DISCLAIMS ANY RESPONSIBILITY WITH REGARD TO THIS SOFTWARE.
+
+
+## This package
+
+Author: SAWADA Tadashi <cesare@mayverse.jp>
+
+Copyright 2011 SAWADA Tadashi <cesare@mayverse.jp>
+
+Everyone is permitted to do anything on this program including copying,
+modifying, and improving, unless you try to pretend that you wrote it.
+i.e., the above copyright notice has to appear in all copies.
+THE AUTHOR DISCLAIMS ANY RESPONSIBILITY WITH REGARD TO THIS SOFTWARE.

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in pebbles-sl.gemspec
+gemspec

data/README.md

@@ -0,0 +1,18 @@
+# Overview
+
+Run the SL on your terminal.
+
+# Installation
+
+	$ gem install pebbles-sl
+
+# Usage
+
+	$ sl
+
+in your terminal, or
+
+	require 'pebbles-sl'
+	Pebbles::SL.run
+
+in your Ruby script

data/Rakefile

@@ -0,0 +1,3 @@
+require "bundler/gem_tasks"
+
+task :default => :build

data/bin/sl

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+
+require 'pebbles/sl'
+Pebbles::SL.run(*ARGV)

data/ext/pebbles/extconf.rb

@@ -0,0 +1,6 @@
+require 'mkmf'
+
+dir_config("pebbles-sl")
+have_library("curses", "main")
+
+create_makefile("pebbles/sl")

data/ext/pebbles/sl.c

@@ -0,0 +1,242 @@
+/*========================================
+ *    sl.c:
+ *	Copyright 1993,1998 Toyoda Masashi 
+ *		(toyoda@is.titech.ac.jp)
+ *	Last Modified: 1998/ 7/22
+ *========================================
+ */
+/* sl version 3.03 : add usleep(20000)                                       */
+/*                                              by Toyoda Masashi 1998/ 7/22 */
+/* sl version 3.02 : D51 flies! Change options.                              */
+/*                                              by Toyoda Masashi 1993/ 1/19 */
+/* sl version 3.01 : Wheel turns smoother                                    */
+/*                                              by Toyoda Masashi 1992/12/25 */
+/* sl version 3.00 : Add d(D51) option                                       */
+/*                                              by Toyoda Masashi 1992/12/24 */
+/* sl version 2.02 : Bug fixed.(dust remains in screen)                      */
+/*                                              by Toyoda Masashi 1992/12/17 */
+/* sl version 2.01 : Smoke run and disappear.                                */
+/*                   Change '-a' to accident option.			     */
+/*                                              by Toyoda Masashi 1992/12/16 */
+/* sl version 2.00 : Add a(all),l(long),F(Fly!) options.                     */
+/* 						by Toyoda Masashi 1992/12/15 */
+/* sl version 1.02 : Add turning wheel.                                      */
+/*					        by Toyoda Masashi 1992/12/14 */
+/* sl version 1.01 : Add more complex smoke.                                 */
+/*                                              by Toyoda Masashi 1992/12/14 */
+/* sl version 1.00 : SL runs vomitting out smoke.                            */
+/*						by Toyoda Masashi 1992/12/11 */
+
+#include <curses.h>
+#include <signal.h>
+#include <unistd.h>
+#include "sl.h"
+
+#include <ruby.h>
+
+static int ACCIDENT  = 0;
+static int LOGO      = 0;
+static int FLY       = 0;
+
+static int my_mvaddstr(int y, int x, char *str);
+static void option(char *str);
+static int add_sl(int x);
+static add_D51(int x);
+static int add_man(int y, int x);
+static int add_smoke(int y, int x);
+
+
+static int my_mvaddstr(int y, int x, char *str)
+{
+    for ( ; x < 0; ++x, ++str)
+	if (*str == '\0')  return ERR;
+    for ( ; *str != '\0'; ++str, ++x)
+	if (mvaddch(y, x, *str) == ERR)  return ERR;
+    return OK;
+}
+
+static void option(char *str)
+{
+    extern int ACCIDENT, FLY, LONG;
+
+    while (*str != '\0') {
+	switch (*str++) {
+	    case 'a': ACCIDENT = 1; break;
+	    case 'F': FLY      = 1; break;
+	    case 'l': LOGO     = 1; break;
+	    default:                break;
+	}
+    }
+}
+
+static VALUE run(int argc, VALUE* argv, VALUE self)
+{
+    int x, i;
+
+    for (i = 0; i < argc; ++i) {
+	char* arg = RSTRING_PTR(argv[i]);
+	if (*arg == '-') {
+	    option(arg + 1);
+	}
+    }
+    initscr();
+    signal(SIGINT, SIG_IGN);
+    noecho();
+    leaveok(stdscr, TRUE);
+    scrollok(stdscr, FALSE);
+
+    for (x = COLS - 1; ; --x) {
+	if (LOGO == 0) {
+	    if (add_D51(x) == ERR) break;
+	} else {
+	    if (add_sl(x) == ERR) break;
+	}
+	refresh();
+	usleep(20000);
+    }
+    mvcur(0, COLS - 1, LINES - 1, 0);
+    endwin();
+}
+
+
+static int add_sl(int x)
+{
+    static char *sl[LOGOPATTERNS][LOGOHIGHT + 1]
+	= {{LOGO1, LOGO2, LOGO3, LOGO4, LWHL11, LWHL12, DELLN},
+	   {LOGO1, LOGO2, LOGO3, LOGO4, LWHL21, LWHL22, DELLN},
+	   {LOGO1, LOGO2, LOGO3, LOGO4, LWHL31, LWHL32, DELLN},
+	   {LOGO1, LOGO2, LOGO3, LOGO4, LWHL41, LWHL42, DELLN},
+	   {LOGO1, LOGO2, LOGO3, LOGO4, LWHL51, LWHL52, DELLN},
+	   {LOGO1, LOGO2, LOGO3, LOGO4, LWHL61, LWHL62, DELLN}};
+
+    static char *coal[LOGOHIGHT + 1]
+	= {LCOAL1, LCOAL2, LCOAL3, LCOAL4, LCOAL5, LCOAL6, DELLN};
+
+    static char *car[LOGOHIGHT + 1]
+	= {LCAR1, LCAR2, LCAR3, LCAR4, LCAR5, LCAR6, DELLN};
+
+    int i, y, py1 = 0, py2 = 0, py3 = 0;
+    
+    if (x < - LOGOLENGTH)  return ERR;
+    y = LINES / 2 - 3;
+
+    if (FLY == 1) {
+	y = (x / 6) + LINES - (COLS / 6) - LOGOHIGHT;
+	py1 = 2;  py2 = 4;  py3 = 6;
+    }
+    for (i = 0; i <= LOGOHIGHT; ++i) {
+	my_mvaddstr(y + i, x, sl[(LOGOLENGTH + x) / 3 % LOGOPATTERNS][i]);
+	my_mvaddstr(y + i + py1, x + 21, coal[i]);
+	my_mvaddstr(y + i + py2, x + 42, car[i]);
+	my_mvaddstr(y + i + py3, x + 63, car[i]);
+    }
+    if (ACCIDENT == 1) {
+	add_man(y + 1, x + 14);
+	add_man(y + 1 + py2, x + 45);  add_man(y + 1 + py2, x + 53);
+	add_man(y + 1 + py3, x + 66);  add_man(y + 1 + py3, x + 74);
+    }
+    add_smoke(y - 1, x + LOGOFUNNEL);
+    return OK;
+}
+
+
+static add_D51(int x)
+{
+    static char *d51[D51PATTERNS][D51HIGHT + 1]
+	= {{D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+	    D51WHL11, D51WHL12, D51WHL13, D51DEL},
+	   {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+	    D51WHL21, D51WHL22, D51WHL23, D51DEL},
+	   {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+	    D51WHL31, D51WHL32, D51WHL33, D51DEL},
+	   {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+	    D51WHL41, D51WHL42, D51WHL43, D51DEL},
+	   {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+	    D51WHL51, D51WHL52, D51WHL53, D51DEL},
+	   {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+	    D51WHL61, D51WHL62, D51WHL63, D51DEL}};
+    static char *coal[D51HIGHT + 1]
+	= {COAL01, COAL02, COAL03, COAL04, COAL05,
+	   COAL06, COAL07, COAL08, COAL09, COAL10, COALDEL};
+
+    int y, i, dy = 0;
+
+    if (x < - D51LENGTH)  return ERR;
+    y = LINES / 2 - 5;
+
+    if (FLY == 1) {
+	y = (x / 7) + LINES - (COLS / 7) - D51HIGHT;
+	dy = 1;
+    }
+    for (i = 0; i <= D51HIGHT; ++i) {
+	my_mvaddstr(y + i, x, d51[(D51LENGTH + x) % D51PATTERNS][i]);
+	my_mvaddstr(y + i + dy, x + 53, coal[i]);
+    }
+    if (ACCIDENT == 1) {
+	add_man(y + 2, x + 43);
+	add_man(y + 2, x + 47);
+    }
+    add_smoke(y - 1, x + D51FUNNEL);
+    return OK;
+}
+
+
+static int add_man(int y, int x)
+{
+    static char *man[2][2] = {{"", "(O)"}, {"Help!", "\\O/"}};
+    int i;
+
+    for (i = 0; i < 2; ++i) {
+	my_mvaddstr(y + i, x, man[(LOGOLENGTH + x) / 12 % 2][i]);
+    }
+}
+
+
+static int add_smoke(int y, int x)
+#define SMOKEPTNS	16
+{
+    static struct smokes {
+	int y, x;
+	int ptrn, kind;
+    } S[1000];
+    static int sum = 0;
+    static char *Smoke[2][SMOKEPTNS]
+	= {{"(   )", "(    )", "(    )", "(   )", "(  )",
+	    "(  )" , "( )"   , "( )"   , "()"   , "()"  ,
+	    "O"    , "O"     , "O"     , "O"    , "O"   ,
+	    " "                                          },
+	   {"(@@@)", "(@@@@)", "(@@@@)", "(@@@)", "(@@)",
+	    "(@@)" , "(@)"   , "(@)"   , "@@"   , "@@"  ,
+	    "@"    , "@"     , "@"     , "@"    , "@"   ,
+	    " "                                          }};
+    static char *Eraser[SMOKEPTNS]
+	=  {"     ", "      ", "      ", "     ", "    ",
+	    "    " , "   "   , "   "   , "  "   , "  "  ,
+	    " "    , " "     , " "     , " "    , " "   ,
+	    " "                                          };
+    static int dy[SMOKEPTNS] = { 2,  1, 1, 1, 0, 0, 0, 0, 0, 0,
+				 0,  0, 0, 0, 0, 0             };
+    static int dx[SMOKEPTNS] = {-2, -1, 0, 1, 1, 1, 1, 1, 2, 2,
+				 2,  2, 2, 3, 3, 3             };
+    int i;
+
+    if (x % 4 == 0) {
+	for (i = 0; i < sum; ++i) {
+	    my_mvaddstr(S[i].y, S[i].x, Eraser[S[i].ptrn]);
+	    S[i].y    -= dy[S[i].ptrn];
+	    S[i].x    += dx[S[i].ptrn];
+	    S[i].ptrn += (S[i].ptrn < SMOKEPTNS - 1) ? 1 : 0;
+	    my_mvaddstr(S[i].y, S[i].x, Smoke[S[i].kind][S[i].ptrn]);
+	}
+	my_mvaddstr(y, x, Smoke[sum % 2][0]);
+	S[sum].y = y;    S[sum].x = x;
+	S[sum].ptrn = 0; S[sum].kind = sum % 2;
+	sum ++;
+    }
+}
+
+void Init_sl() {
+    VALUE pebblesModule = rb_define_module("Pebbles");
+    VALUE pebblesSlModule = rb_define_module_under(pebblesModule, "SL");
+    rb_define_singleton_method(pebblesSlModule, "run", run, -1);
+}

data/ext/pebbles/sl.h

@@ -0,0 +1,104 @@
+/*========================================
+ *    sl.h: Text data of SL version 3.01
+ *	Copyright 1993 Toyoda Masashi 
+ *		(toyoda@is.titech.ac.jp)
+ *	Last Modified: 1992/12/23
+ *========================================
+ */
+
+#define D51HIGHT	10
+#define D51FUNNEL	 7
+#define D51LENGTH       83
+#define D51PATTERNS	 6
+
+
+#define D51STR1  "      ====        ________                ___________ "
+#define D51STR2  "  _D _|  |_______/        \\__I_I_____===__|_________| "
+#define D51STR3  "   |(_)---  |   H\\________/ |   |        =|___ ___|   "
+#define D51STR4  "   /     |  |   H  |  |     |   |         ||_| |_||   "
+#define D51STR5  "  |      |  |   H  |__--------------------| [___] |   "
+#define D51STR6  "  | ________|___H__/__|_____/[][]~\\_______|       |   "
+#define D51STR7  "  |/ |   |-----------I_____I [][] []  D   |=======|__ "
+
+#define D51WHL11 "__/ =| o |=-~~\\  /~~\\  /~~\\  /~~\\ ____Y___________|__ "
+#define D51WHL12 " |/-=|___|=    ||    ||    ||    |_____/~\\___/        "
+#define D51WHL13 "  \\_/      \\O=====O=====O=====O_/      \\_/            "
+
+#define D51WHL21 "__/ =| o |=-~~\\  /~~\\  /~~\\  /~~\\ ____Y___________|__ "
+#define D51WHL22 " |/-=|___|=O=====O=====O=====O   |_____/~\\___/        "
+#define D51WHL23 "  \\_/      \\__/  \\__/  \\__/  \\__/      \\_/            "
+
+#define D51WHL31 "__/ =| o |=-O=====O=====O=====O \\ ____Y___________|__ "
+#define D51WHL32 " |/-=|___|=    ||    ||    ||    |_____/~\\___/        "
+#define D51WHL33 "  \\_/      \\__/  \\__/  \\__/  \\__/      \\_/            "
+
+#define D51WHL41 "__/ =| o |=-~O=====O=====O=====O\\ ____Y___________|__ "
+#define D51WHL42 " |/-=|___|=    ||    ||    ||    |_____/~\\___/        "
+#define D51WHL43 "  \\_/      \\__/  \\__/  \\__/  \\__/      \\_/            "
+
+#define D51WHL51 "__/ =| o |=-~~\\  /~~\\  /~~\\  /~~\\ ____Y___________|__ "
+#define D51WHL52 " |/-=|___|=   O=====O=====O=====O|_____/~\\___/        "
+#define D51WHL53 "  \\_/      \\__/  \\__/  \\__/  \\__/      \\_/            "
+
+#define D51WHL61 "__/ =| o |=-~~\\  /~~\\  /~~\\  /~~\\ ____Y___________|__ "
+#define D51WHL62 " |/-=|___|=    ||    ||    ||    |_____/~\\___/        "
+#define D51WHL63 "  \\_/      \\_O=====O=====O=====O/      \\_/            "
+
+#define D51DEL   "                                                      "
+
+#define COAL01 "                              "
+#define COAL02 "                              "
+#define COAL03 "    _________________         "
+#define COAL04 "   _|                \\_____A  "
+#define COAL05 " =|                        |  "
+#define COAL06 " -|                        |  "
+#define COAL07 "__|________________________|_ "
+#define COAL08 "|__________________________|_ "
+#define COAL09 "   |_D__D__D_|  |_D__D__D_|   "
+#define COAL10 "    \\_/   \\_/    \\_/   \\_/    "
+
+#define COALDEL "                              "
+
+#define LOGOHIGHT    	 6
+#define LOGOFUNNEL  	 4
+#define LOGOLENGTH      84
+#define LOGOPATTERNS	 6
+
+#define LOGO1  "     ++      +------ "
+#define LOGO2  "     ||      |+-+ |  "
+#define LOGO3  "   /---------|| | |  "
+#define LOGO4  "  + ========  +-+ |  "
+
+#define LWHL11 " _|--O========O~\\-+  "
+#define LWHL12 "//// \\_/      \\_/    "
+
+#define LWHL21 " _|--/O========O\\-+  "
+#define LWHL22 "//// \\_/      \\_/    "
+
+#define LWHL31 " _|--/~O========O-+  "
+#define LWHL32 "//// \\_/      \\_/    "
+
+#define LWHL41 " _|--/~\\------/~\\-+  "
+#define LWHL42 "//// \\_O========O    "
+
+#define LWHL51 " _|--/~\\------/~\\-+  "
+#define LWHL52 "//// \\O========O/    "
+
+#define LWHL61 " _|--/~\\------/~\\-+  "
+#define LWHL62 "//// O========O_/    "
+
+#define LCOAL1 "____                 "
+#define LCOAL2 "|   \\@@@@@@@@@@@     "
+#define LCOAL3 "|    \\@@@@@@@@@@@@@_ "
+#define LCOAL4 "|                  | "
+#define LCOAL5 "|__________________| "
+#define LCOAL6 "   (O)       (O)     "
+
+#define LCAR1  "____________________ "
+#define LCAR2  "|  ___ ___ ___ ___ | "
+#define LCAR3  "|  |_| |_| |_| |_| | "
+#define LCAR4  "|__________________| "
+#define LCAR5  "|__________________| "
+#define LCAR6  "   (O)        (O)    "
+
+#define DELLN  "                     "

data/pebbles-sl.gemspec

@@ -0,0 +1,20 @@
+# -*- mode: ruby; coding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name        = "pebbles-sl"
+  s.version     = "0.9.1"
+  s.authors     = ["SAWADA Tadashi"]
+  s.email       = ["cesare@mayverse.jp"]
+  s.homepage    = "https://github.com/cesare/pebbles-sl"
+  s.summary     = %q{SL for Ruby}
+  s.description = %q{Run SL on your terminal}
+
+  s.rubyforge_project = "pebbles-sl"
+
+  s.files         = [".gitignore", "Gemfile", "COPYRIGHT.md", "README.md", "Rakefile", "bin/sl", "ext/pebbles/extconf.rb", "ext/pebbles/sl.c", "ext/pebbles/sl.h", "pebbles-sl.gemspec"]
+  s.executables   = ["sl"]
+  s.require_paths = ["ext"]
+  s.extensions    = ["ext/pebbles/extconf.rb"]
+  
+  s.add_runtime_dependency "pebbles"
+end

metadata

@@ -0,0 +1,76 @@
+--- !ruby/object:Gem::Specification 
+name: pebbles-sl
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 0.9.1
+platform: ruby
+authors: 
+- SAWADA Tadashi
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-10-17 00:00:00 +09:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: pebbles
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+description: Run SL on your terminal
+email: 
+- cesare@mayverse.jp
+executables: 
+- sl
+extensions: 
+- ext/pebbles/extconf.rb
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- Gemfile
+- COPYRIGHT.md
+- README.md
+- Rakefile
+- bin/sl
+- ext/pebbles/extconf.rb
+- ext/pebbles/sl.c
+- ext/pebbles/sl.h
+- pebbles-sl.gemspec
+has_rdoc: true
+homepage: https://github.com/cesare/pebbles-sl
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- ext
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+requirements: []
+
+rubyforge_project: pebbles-sl
+rubygems_version: 1.5.0
+signing_key: 
+specification_version: 3
+summary: SL for Ruby
+test_files: []
+