/****************************************************************************
- * Copyright (c) 2013-2014,2017 Free Software Foundation, Inc. *
+ * Copyright 2018-2022,2023 Thomas E. Dickey *
+ * Copyright 2013-2014,2017 Free Software Foundation, Inc. *
* *
* Permission is hereby granted, free of charge, to any person obtaining a *
* copy of this software and associated documentation files (the *
/*
* Author: Thomas E. Dickey
*
- * $Id: dots_termcap.c,v 1.16 2017/10/22 15:21:34 tom Exp $
+ * $Id: dots_termcap.c,v 1.32 2023/02/25 18:11:21 tom Exp $
*
* A simple demo of the termcap interface.
*/
#define USE_TINFO
#include <test.priv.h>
-#if !defined(__MINGW32__)
+#if !defined(_NC_WINDOWS)
#include <sys/time.h>
#endif
outs(t_cl);
outs(t_ve);
- printf("\n\n%ld total cells, rate %.2f/sec\n",
- total_chars,
- ((double) (total_chars) / (double) (time((time_t *) 0) - started)));
+ fflush(stdout);
+ fprintf(stderr, "\n\n%ld total cells, rate %.2f/sec\n",
+ total_chars,
+ ((double) (total_chars) / (double) (time((time_t *) 0) - started)));
}
static void
return ((double) r / 32768.);
}
+/*
+ * napms is a curses function which happens to be usable without initializing
+ * the screen, but if this program happened to be build with a "real" termcap
+ * library, there is nothing like napms.
+ */
+#if HAVE_NAPMS
+#define my_napms(ms) napms(ms)
+#else
static void
my_napms(int ms)
{
if (ms > 0) {
-#if defined(__MINGW32__) || !HAVE_GETTIMEOFDAY
- Sleep((DWORD) ms);
+#if defined(_NC_WINDOWS)
+ Sleep((unsigned int) ms);
#else
struct timeval data;
data.tv_sec = 0;
#endif
}
}
+#endif
static int
get_number(NCURSES_CONST char *cap, const char *env)
}
static void
-usage(void)
+usage(int ok)
{
static const char *msg[] =
{
"Usage: dots_termcap [options]"
,""
+ ,USAGE_COMMON
,"Options:"
," -T TERM override $TERM"
," -e allow environment $LINES / $COLUMNS"
," -m SIZE set margin (default: 2)"
+ ," -r SECS self-interrupt/exit after specified number of seconds"
," -s MSECS delay 1% of the time (default: 1 msecs)"
};
size_t n;
for (n = 0; n < SIZEOF(msg); n++)
fprintf(stderr, "%s\n", msg[n]);
- ExitProgram(EXIT_FAILURE);
+ ExitProgram(ok ? EXIT_SUCCESS : EXIT_FAILURE);
}
+/* *INDENT-OFF* */
+VERSION_COMMON()
+/* *INDENT-ON* */
int
main(int argc, char *argv[])
{
- int x, y, z, p;
+ int ch;
int num_colors;
int num_lines;
int num_columns;
int e_option = 0;
int m_option = 2;
+ int r_option = 0;
int s_option = 1;
double r;
double c;
char buffer[1024];
char area[1024];
char *name;
+ size_t need;
+ char *my_env;
- while ((x = getopt(argc, argv, "T:em:s:")) != -1) {
- switch (x) {
+ while ((ch = getopt(argc, argv, OPTS_COMMON "T:em:r:s:")) != -1) {
+ switch (ch) {
case 'T':
- putenv(strcat(strcpy(malloc(6 + strlen(optarg)), "TERM="), optarg));
+ need = 6 + strlen(optarg);
+ if ((my_env = malloc(need)) != NULL) {
+ _nc_SPRINTF(my_env, _nc_SLIMIT(need) "TERM=%s", optarg);
+ putenv(my_env);
+ }
break;
case 'e':
e_option = 1;
case 'm':
m_option = atoi(optarg);
break;
+ case 'r':
+ r_option = atoi(optarg);
+ break;
case 's':
s_option = atoi(optarg);
break;
+ case OPTS_VERSION:
+ show_version(argv);
+ ExitProgram(EXIT_SUCCESS);
default:
- usage();
- break;
+ usage(ch == OPTS_USAGE);
+ /* NOTREACHED */
}
}
srand((unsigned) time(0));
- InitAndCatch(z = tgetent(buffer, name), onsig);
- if (z < 0) {
+ SetupAlarm((unsigned) r_option);
+ InitAndCatch(ch = tgetent(buffer, name), onsig);
+ if (ch < 0) {
fprintf(stderr, "terminal description not found\n");
ExitProgram(EXIT_FAILURE);
} else {
started = time((time_t *) 0);
while (!interrupted) {
- x = (int) (c * ranf()) + m_option;
- y = (int) (r * ranf()) + m_option;
- p = (ranf() > 0.9) ? '*' : ' ';
+ int x = (int) (c * ranf()) + m_option;
+ int y = (int) (r * ranf()) + m_option;
+ int p = (ranf() > 0.9) ? '*' : ' ';
tputs(tgoto(t_cm, x, y), 1, outc);
if (num_colors > 0) {
- z = (int) (ranf() * num_colors);
+ int z = (int) (ranf() * num_colors);
if (ranf() > 0.01) {
tputs(tgoto(t_AF, 0, z), 1, outc);
} else {
tputs(tgoto(t_AB, 0, z), 1, outc);
- my_napms(s_option);
+ if (s_option)
+ my_napms(s_option);
}
} else if (VALID_STRING(t_me)
&& VALID_STRING(t_mr)) {
outs((ranf() > 0.6)
? t_mr
: t_me);
- my_napms(s_option);
+ if (s_option)
+ my_napms(s_option);
}
}
outc(p);
}
#else
int
-main(int argc GCC_UNUSED,
- char *argv[]GCC_UNUSED)
+main(void)
{
fprintf(stderr, "This program requires termcap\n");
exit(EXIT_FAILURE);