aboutsummaryrefslogtreecommitdiff
path: root/contrib/ncurses/tack/crum.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/ncurses/tack/crum.c')
-rw-r--r--contrib/ncurses/tack/crum.c426
1 files changed, 0 insertions, 426 deletions
diff --git a/contrib/ncurses/tack/crum.c b/contrib/ncurses/tack/crum.c
deleted file mode 100644
index 8cd40690d489..000000000000
--- a/contrib/ncurses/tack/crum.c
+++ /dev/null
@@ -1,426 +0,0 @@
-/*
-** Copyright (C) 1991, 1997 Free Software Foundation, Inc.
-**
-** This file is part of TACK.
-**
-** TACK is free software; you can redistribute it and/or modify
-** it under the terms of the GNU General Public License as published by
-** the Free Software Foundation; either version 2, or (at your option)
-** any later version.
-**
-** TACK is distributed in the hope that it will be useful,
-** but WITHOUT ANY WARRANTY; without even the implied warranty of
-** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-** GNU General Public License for more details.
-**
-** You should have received a copy of the GNU General Public License
-** along with TACK; see the file COPYING. If not, write to
-** the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-** Boston, MA 02110-1301, USA
-*/
-
-#include <tack.h>
-
-MODULE_ID("$Id: crum.c,v 1.5 2006/11/26 00:15:02 tom Exp $")
-
-/*
- * Test cursor movement.
- */
-
-static void crum_clear(struct test_list *t, int *state, int *ch);
-static void crum_home(struct test_list *t, int *state, int *ch);
-static void crum_ll(struct test_list *t, int *state, int *ch);
-static void crum_move(struct test_list *t, int *state, int *ch);
-static void crum_os(struct test_list *t, int *state, int *ch);
-
-static char crum_text[5][80];
-
-struct test_list crum_test_list[] = {
- {0, 0, 0, 0, "e) edit terminfo", 0, &edit_menu},
- {MENU_NEXT, 0, "clear", 0, 0, crum_clear, 0},
- {MENU_NEXT, 0, "home", 0, 0, crum_home, 0},
- {MENU_NEXT, 0, "ll", 0, 0, crum_ll, 0},
- {MENU_NEXT, 0, crum_text[0], "home cuu1", 0, crum_move, 0},
- {MENU_NEXT + 1, 0, crum_text[1], "cub1 cud1 cuf1 cuu1", 0, crum_move, 0},
- {MENU_NEXT + 2, 0, crum_text[2], "cub cud cuf cuu", 0, crum_move, 0},
- {MENU_NEXT + 3, 0, crum_text[3], "vpa hpa", 0, crum_move, 0},
- {MENU_NEXT + 4, 0, crum_text[4], "cup", 0, crum_move, 0},
- {MENU_NEXT, 0, "cup", "os", 0, crum_os, 0},
- {MENU_LAST, 0, 0, 0, 0, 0, 0}
-};
-
-/*
-** move_to(from-row, from-column, to-row, to-column, selection)
-**
-** move the cursor from (rf, cf) to (rt, ct) using sel
-*/
-static void
-move_to(
- int rf,
- int cf,
- int rt,
- int ct,
- int sel)
-{
- char *s;
-
- if (sel & 16) { /* use (cup) */
- s = TPARM_2(cursor_address, rt, ct);
- tputs(s, lines, tc_putch);
- return;
- }
- if (sel & 8) { /* use (hpa) (vpa) */
- if (column_address) {
- s = TPARM_1(column_address, ct);
- tputs(s, 1, tc_putch);
- cf = ct;
- }
- if (row_address) {
- s = TPARM_1(row_address, rt);
- tputs(s, 1, tc_putch);
- rf = rt;
- }
- }
- if (sel & 4) { /* parameterized relative cursor movement */
- if (parm_right_cursor)
- if (cf < ct) {
- s = TPARM_1(parm_right_cursor, ct - cf);
- tputs(s, ct - cf, tc_putch);
- cf = ct;
- }
- if (parm_left_cursor)
- if (cf > ct) {
- s = TPARM_1(parm_left_cursor, cf - ct);
- tputs(s, cf - ct, tc_putch);
- cf = ct;
- }
- if (parm_down_cursor)
- if (rf < rt) {
- s = TPARM_1(parm_down_cursor, rt - rf);
- tputs(s, rt - rf, tc_putch);
- rf = rt;
- }
- if (parm_up_cursor)
- if (rf > rt) {
- s = TPARM_1(parm_up_cursor, rf - rt);
- tputs(s, rf - rt, tc_putch);
- rf = rt;
- }
- }
- if (sel & 2) {
- if (cursor_left)
- while (cf > ct) {
- tc_putp(cursor_left);
- cf--;
- }
- /*
- do vertical motion next. Just in case cursor_down has a
- side effect of changing the column. This could happen if
- the tty handler translates NL to CRNL.
- */
- if (cursor_down)
- while (rf < rt) {
- tc_putp(cursor_down);
- rf++;
- }
- if (cursor_up)
- while (rf > rt) {
- tc_putp(cursor_up);
- rf--;
- }
- if (cursor_right)
- while (cf < ct) {
- tc_putp(cursor_right);
- cf++;
- }
- }
- /* last chance */
- if (rf > rt) {
- if (can_go_home) { /* a bit drastic but ... */
- go_home();
- cf = 0;
- rf = 0;
- } else if (cursor_up) {
- while (rf > rt) {
- tc_putp(cursor_up);
- rf--;
- }
- }
- }
- if (ct == 0 && rt > rf) {
- put_crlf();
- cf = 0;
- rf++;
- }
- if (ct == 0 && cf != 0) {
- put_cr();
- cf = 0;
- }
- while (rf < rt) {
- put_lf();
- rf++;
- }
- while (cf > ct) {
- put_str("\b");
- cf--;
- }
- if (cursor_right) {
- while (cf < ct) {
- tc_putp(cursor_right);
- cf++;
- }
- } else {
- /* go ahead and trash my display */
- while (cf < ct) {
- putchp(' ');
- cf++;
- }
- }
-}
-
-/*
-** display_it(selection, text)
-**
-** print the display using sel
-*/
-static void
-display_it(
- int sel,
- char *txt)
-{
- int i, done_line;
-
- put_clear();
- go_home();
- put_newlines(2);
- ptextln(" The top line should be alternating <'s and >'s");
- ptextln(" The left side should be alternating A's and V's");
- ptext(" Testing ");
- ptext(txt);
- put_cr();
-
- /* horizontal */
- move_to(done_line = line_count, 0, 0, 2, sel);
- for (i = 4; i < columns - 2; i += 2) {
- putchp('>');
- move_to(0, i - 1, 0, i, sel);
- }
- putchp('>');
- i -= 2;
- move_to(0, i + 1, 0, i - 1, sel);
- for (; i > 2; i -= 2) {
- putchp('<');
- move_to(0, i, 0, i - 3, sel);
- }
- putchp('<');
-
- /* vertical */
- move_to(0, 2, 0, 0, sel);
- for (i = 2; i < lines - 1; i += 2) {
- putchp('V');
- move_to(i - 2, 1, i, 0, sel);
- }
- putchp('V');
- i -= 2;
- move_to(i, 1, i + 1, 0, sel);
- for (; i > 0; i -= 2) {
- putchp('A');
- move_to(i + 1, 1, i - 1, 0, sel);
- }
- putchp('A');
- move_to(i + 1, 1, 0, 0, sel); /* go home first */
- move_to(0, 0, done_line + 1, 3, sel);
- put_str(txt);
- put_str(" Done. ");
-}
-
-/*
-** crum_clear(test_list, status, ch)
-**
-** (clear) test Clear screen
-*/
-static void
-crum_clear(
- struct test_list *t,
- int *state,
- int *ch)
-{
- int i;
-
- if (clear_screen) {
- for (i = lines; i > 1; i--) {
- putln("garbage");
- }
- put_clear();
- ptextln("This line should start in the home position.");
- ptext("The rest of the screen should be clear. ");
- } else {
- ptextln("(clear) Clear screen is not defined. ");
- }
- generic_done_message(t, state, ch);
-}
-
-/*
-** crum_home(test_list, status, ch)
-**
-** (home) test Home cursor
-*/
-static void
-crum_home(
- struct test_list *t,
- int *state,
- int *ch)
-{
- if (cursor_home) {
- put_clear();
- put_newlines(lines / 2);
- go_home();
- put_crlf();
- ptext("The bottom line should have text.");
- go_home();
- put_newlines(lines - 1);
- ptext("This line is on the bottom.");
- go_home();
- ptextln("This line starts in the home position.");
- put_crlf();
- } else {
- ptextln("(home) Home cursor is not defined. ");
- }
- generic_done_message(t, state, ch);
-}
-
-/*
-** crum_ll(test_list, status, ch)
-**
-** (ll) test Last line
-*/
-static void
-crum_ll(
- struct test_list *t,
- int *state,
- int *ch)
-{
- /*
- (ll) may be simulated with (cup). Don't complain if (cup) is present.
- */
- if (cursor_to_ll) {
- put_clear();
- put_str("This line could be anywhere.");
- tc_putp(cursor_to_ll);
- ptext("This line should be on the bottom");
- go_home();
- put_crlf();
- } else
- if (cursor_address) {
- return;
- } else {
- ptextln("(ll) Move to last line is not defined. ");
- }
- generic_done_message(t, state, ch);
-}
-
-/*
-** crum_move(test_list, status, ch)
-**
-** (*) test all cursor move commands
-*/
-static void
-crum_move(
- struct test_list *t,
- int *state,
- int *ch)
-{
- char buf[80];
- int n;
-
- switch (n = (t->flags & 15)) {
- case 0:
- sprintf(buf, " (cr) (nel) (cub1)%s",
- cursor_home ? " (home)" : (cursor_up ? " (cuu1)" : ""));
- break;
- case 1:
- sprintf(buf, "%s%s%s%s", cursor_left ? " (cub1)" : "",
- cursor_down ? " (cud1)" : "", cursor_right ? " (cuf1)" : "",
- cursor_up ? " (cuu1)" : "");
- if (buf[0] == '\0') {
- ptext(" (cub1) (cud1) (cuf1) (cuu1) not defined.");
- }
- break;
- case 2:
- sprintf(buf, "%s%s%s%s", parm_left_cursor ? " (cub)" : "",
- parm_down_cursor ? " (cud)" : "",
- parm_right_cursor ? " (cuf)" : "",
- parm_up_cursor ? " (cuu)" : "");
- if (buf[0] == '\0') {
- ptext(" (cub) (cud) (cuf) (cuu) not defined.");
- }
- break;
- case 3:
- sprintf(buf, "%s%s", row_address ? " (vpa)" : "",
- column_address ? " (hpa)" : "");
- if (buf[0] == '\0') {
- ptext(" (vpa) (hpa) not defined.");
- }
- break;
- case 4:
- if (!cursor_address) {
- ptext(" (cup) not defined. ");
- generic_done_message(t, state, ch);
- return;
- }
- strcpy(buf, " (cup)");
- break;
- }
- if (buf[0] == '\0') {
- put_str(" Done. ");
- } else {
- can_test(buf, FLAG_TESTED);
- strcpy(crum_text[n], &buf[2]);
- crum_text[n][strlen(buf) - 3] = '\0';
-
- display_it(1 << n, buf);
- }
- *ch = wait_here();
- if (*ch != 'r') {
- put_clear();
- }
-}
-
-/*
-** crum_os(test_list, status, ch)
-**
-** (cup) test Cursor position on overstrike terminals
-*/
-static void
-crum_os(
- struct test_list *t,
- int *state,
- int *ch)
-{
- int i;
-
- if (cursor_address && over_strike) {
- put_clear();
- for (i = 0; i < columns - 2; i++) {
- tc_putch('|');
- }
- for (i = 1; i < lines - 2; i++) {
- put_crlf();
- tc_putch('_');
- }
- for (i = 0; i < columns - 2; i++) {
- tputs(TPARM_2(cursor_address, 0, i), lines, tc_putch);
- tc_putch('+');
- }
- for (i = 0; i < lines - 2; i++) {
- tputs(TPARM_2(cursor_address, i, 0), lines, tc_putch);
- tc_putch(']');
- tc_putch('_');
- }
- go_home();
- put_newlines(3);
- ptext(" All the characters should look the same. ");
- generic_done_message(t, state, ch);
- put_clear();
- }
-}