CydandClaude Fable 5
db7745fcd0
Un-ignored: the dev drive is the ground truth the restoration and emulator work constantly reference (DPL3/LIBDPL + VRENDER i860 renderer source, BT/RP live+dev game trees, VGL_LABS pod boot, scene/audio content). Kept in-repo for the pod-owner community. Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
74 lines
1.5 KiB
Plaintext
74 lines
1.5 KiB
Plaintext
/*
|
|
** BRIEF -- Basic Reconfigurable Interactive Editing Facility
|
|
**
|
|
** Written by Dave Nanian and Michael Strickman.
|
|
*/
|
|
|
|
/*
|
|
** key.cb:
|
|
**
|
|
** This macro makes it easy to input the yucchy assign_to_key
|
|
** key descriptions. Note that if the user answers yes to the
|
|
** question "Recognize that specific %c? ", the entire keycode,
|
|
** including the scan code, is used as a string. This forces
|
|
** BRIEF to use only that specific key on the keyboard.
|
|
*/
|
|
|
|
void key ()
|
|
{
|
|
int key_value,
|
|
done;
|
|
|
|
string to_insert = "\"",
|
|
reply;
|
|
|
|
message ("Press the keys you want converted, Esc to end.");
|
|
|
|
while (!done)
|
|
{
|
|
while ((key_value = read_char ()) == -1);
|
|
|
|
if (key_value != key_to_int ("<Esc>"))
|
|
{
|
|
if (key_value % 256)
|
|
{
|
|
sprintf (reply, "%c", key_value % 256);
|
|
|
|
if (index ("0123456789*.-+\t\n", reply))
|
|
{
|
|
sprintf (reply, "Recognize only that specific %c? ", key_value);
|
|
|
|
if (get_parm (NULL, reply, reply, 1))
|
|
{
|
|
if (!index ("yY", reply))
|
|
key_value %= 256;
|
|
}
|
|
else
|
|
done = 2;
|
|
}
|
|
else
|
|
key_value %= 256;
|
|
}
|
|
if (!done)
|
|
{
|
|
sprintf (reply, "#%d", key_value);
|
|
to_insert += reply;
|
|
}
|
|
}
|
|
else
|
|
done = 1;
|
|
|
|
if (!done)
|
|
message ("Continue, or Esc to end.");
|
|
}
|
|
if (done != 2)
|
|
if (strlen (to_insert) > 1)
|
|
{
|
|
to_insert += "\"";
|
|
insert (to_insert);
|
|
message ("Sequence inserted.");
|
|
}
|
|
else
|
|
message ("Nothing to insert.");
|
|
}
|