From: Markus Koenig <markus@...>
Date: 2004-11-03T12:08:48+09:00
Subject: curses and the ACS_* chars

Hi.

I recently did some Curses programming (for the Sokoban Quiz) when I
found that the 'curses' extension does not include the ACS_* constants
which would have been very useful (see `man curs_addch`).

Because I decided not to use only ASCII (that looked a bit strange)
I created my own extension, 'curses_acs'. Below is the source of it.
Could that please be included in the standard 'curses' extension? Matz?

Markus


markus@g204 curses_acs $ ruby -e "puts RUBY_VERSION"
1.8.2
markus@g204 curses_acs $ cat example.rb
require 'curses'
require 'curses_acs'

Curses.init_screen
begin
 Curses.define_acs
 Curses.addstr 'The greek letter pi: '
 Curses.addch_gen Curses::ACS_PI
 Curses.addch ?\n
 Curses.addstr "A box:\n"
 Curses.addch_gen Curses::ACS_ULCORNER
 Curses.addch_gen Curses::ACS_URCORNER
 Curses.addch ?\n
 Curses.addch_gen Curses::ACS_LLCORNER
 Curses.addch_gen Curses::ACS_LRCORNER
 Curses.getch
ensure
 Curses.close_screen
end

markus@g204 curses_acs $ cat extconf.rb
require 'mkmf'
have_library('ncurses', 'initscr') or have_library('curses', 'initscr')
have_header('curses.h')
create_makefile('curses_acs')

markus@g204 curses_acs $ cat curses_acs.c
#include <stdlib.h>
#include <curses.h>
#include <ruby.h>

/*
 * Curses#define_acs
 * Add the ACS constants to Curses.
 */
VALUE curses_define_acs(VALUE self) {
        rb_define_const(self, "ACS_BLOCK", ULONG2NUM(ACS_BLOCK));
        rb_define_const(self, "ACS_BOARD", ULONG2NUM(ACS_BOARD));
        rb_define_const(self, "ACS_BTEE", ULONG2NUM(ACS_BTEE));
        rb_define_const(self, "ACS_BULLET", ULONG2NUM(ACS_BULLET));
        rb_define_const(self, "ACS_CKBOARD", ULONG2NUM(ACS_CKBOARD));
        rb_define_const(self, "ACS_DARROW", ULONG2NUM(ACS_DARROW));
        rb_define_const(self, "ACS_DEGREE", ULONG2NUM(ACS_DEGREE));
        rb_define_const(self, "ACS_DIAMOND", ULONG2NUM(ACS_DIAMOND));
        rb_define_const(self, "ACS_GEQUAL", ULONG2NUM(ACS_GEQUAL));
        rb_define_const(self, "ACS_HLINE", ULONG2NUM(ACS_HLINE));
        rb_define_const(self, "ACS_LANTERN", ULONG2NUM(ACS_LANTERN));
        rb_define_const(self, "ACS_LARROW", ULONG2NUM(ACS_LARROW));
        rb_define_const(self, "ACS_LEQUAL", ULONG2NUM(ACS_LEQUAL));
        rb_define_const(self, "ACS_LLCORNER", ULONG2NUM(ACS_LLCORNER));
        rb_define_const(self, "ACS_LRCORNER", ULONG2NUM(ACS_LRCORNER));
        rb_define_const(self, "ACS_LTEE", ULONG2NUM(ACS_LTEE));
        rb_define_const(self, "ACS_NEQUAL", ULONG2NUM(ACS_NEQUAL));
        rb_define_const(self, "ACS_PI", ULONG2NUM(ACS_PI));
        rb_define_const(self, "ACS_PLMINUS", ULONG2NUM(ACS_PLMINUS));
        rb_define_const(self, "ACS_PLUS", ULONG2NUM(ACS_PLUS));
        rb_define_const(self, "ACS_RARROW", ULONG2NUM(ACS_RARROW));
        rb_define_const(self, "ACS_RTEE", ULONG2NUM(ACS_RTEE));
        rb_define_const(self, "ACS_S1", ULONG2NUM(ACS_S1));
        rb_define_const(self, "ACS_S3", ULONG2NUM(ACS_S3));
        rb_define_const(self, "ACS_S7", ULONG2NUM(ACS_S7));
        rb_define_const(self, "ACS_S9", ULONG2NUM(ACS_S9));
        rb_define_const(self, "ACS_STERLING", ULONG2NUM(ACS_STERLING));
        rb_define_const(self, "ACS_TTEE", ULONG2NUM(ACS_TTEE));
        rb_define_const(self, "ACS_UARROW", ULONG2NUM(ACS_UARROW));
        rb_define_const(self, "ACS_ULCORNER", ULONG2NUM(ACS_ULCORNER));
        rb_define_const(self, "ACS_URCORNER", ULONG2NUM(ACS_URCORNER));
        rb_define_const(self, "ACS_VLINE", ULONG2NUM(ACS_VLINE));
        return Qnil;
}

/*
 * Curses#addch_gen
 * addch for generic char values (Curses#addch truncates to 8 bit)
 */
static VALUE curses_addch_gen(VALUE self, VALUE c) {
        addch(NUM2ULONG(c));
        return Qnil;
}

/* This is called upon extension loading. */
void Init_curses_acs(void) {
        VALUE curses_cls;
        rb_require("curses");
        curses_cls = rb_eval_string("Curses");
        rb_define_singleton_method(curses_cls, "define_acs",
                curses_define_acs, 0);
        rb_define_singleton_method(curses_cls, "addch_gen",
                curses_addch_gen, 1);
}