c6d09a58d6
If an old port is resurrected to work with current version code, its files can be relocated to the appropriate sys or win folder as required. In the meantime, the burden of upkeep can be avoided for the stuff in the outdated folder for now.
67 lines
1.7 KiB
C
67 lines
1.7 KiB
C
/* NetHack 3.6 mactopl.c $NHDT-Date: 1432512797 2015/05/25 00:13:17 $ $NHDT-Branch: master $:$NHDT-Revision: 1.9 $ */
|
|
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
|
|
/*-Copyright (c) Kenneth Lorber, Kensington, Maryland, 2015. */
|
|
/* NetHack may be freely redistributed. See license for details. */
|
|
|
|
#include "hack.h"
|
|
#include "mactty.h"
|
|
#include "macwin.h"
|
|
#include "macpopup.h"
|
|
|
|
char
|
|
queued_resp(char *resp)
|
|
{
|
|
char buf[30];
|
|
if (try_key_queue(buf)) {
|
|
if (!resp || strchr(resp, buf[0]))
|
|
return buf[0];
|
|
if (digit(buf[0]) && strchr(resp, '#')) {
|
|
yn_number = atoi(buf);
|
|
return '#';
|
|
}
|
|
}
|
|
return '\0';
|
|
}
|
|
|
|
char
|
|
topl_yn_function(const char *query, const char *resp, char def)
|
|
{
|
|
char buf[30];
|
|
char c = queued_resp((char *) resp);
|
|
if (!c) {
|
|
enter_topl_mode((char *) query);
|
|
topl_set_resp((char *) resp, def);
|
|
|
|
do {
|
|
c = readchar();
|
|
if (c && resp && !strchr(resp, c)) {
|
|
nhbell();
|
|
c = '\0';
|
|
}
|
|
} while (!c);
|
|
|
|
topl_set_resp("", '\0');
|
|
leave_topl_mode(buf);
|
|
if (c == '#')
|
|
yn_number = atoi(buf);
|
|
}
|
|
return c;
|
|
}
|
|
|
|
char
|
|
mac_yn_function(query, resp, def)
|
|
const char *query, *resp;
|
|
char def;
|
|
/*
|
|
* Generic yes/no function. 'def' is the default (returned by space or
|
|
* return; 'esc' returns 'q', or 'n', or the default, depending on
|
|
* what's in the string. The 'query' string is printed before the user
|
|
* is asked about the string.
|
|
* If resp is NULL, any single character is accepted and returned.
|
|
*/
|
|
{
|
|
return topl_yn_function(query, resp, def);
|
|
}
|
|
|
|
/* mactopl.c */
|