This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
magicka/deps/cdk-5.0-20161210/template.c

920 lines
21 KiB
C
Raw Normal View History

#include <cdk_int.h>
/*
* $Author: tom $
* $Date: 2016/11/20 20:13:16 $
* $Revision: 1.142 $
*/
/*
* Declare file local prototypes.
*/
static void CDKTemplateCallBack (CDKTEMPLATE *widget, chtype input);
static void drawCDKTemplateField (CDKTEMPLATE *widget);
static void adjustCDKTemplateCursor (CDKTEMPLATE *widget, int direction);
#define isPlateChar(c) ((c) != 0 && strchr ("#ACcMXz", c) != 0)
DeclareCDKObjects (TEMPLATE, Template, setCdk, String);
/*
* This creates a cdktemplate widget.
*/
CDKTEMPLATE *newCDKTemplate (CDKSCREEN *cdkscreen,
int xplace,
int yplace,
const char *title,
const char *label,
const char *plate,
const char *Overlay,
boolean Box,
boolean shadow)
{
/* *INDENT-EQLS* */
CDKTEMPLATE *cdktemplate = 0;
int parentWidth = getmaxx (cdkscreen->window);
int parentHeight = getmaxy (cdkscreen->window);
int boxWidth = 0;
int boxHeight = Box ? 3 : 1;
int xpos = xplace;
int ypos = yplace;
int horizontalAdjust, oldWidth;
int fieldWidth = 0;
int plateLen = 0;
int junk = 0;
if (plate == 0
|| (cdktemplate = newCDKObject (CDKTEMPLATE, &my_funcs)) == 0)
return (0);
setCDKTemplateBox (cdktemplate, Box);
fieldWidth = (int)strlen (plate) + 2 * BorderOf (cdktemplate);
/* *INDENT-EQLS* Set some basic values of the cdktemplate field. */
cdktemplate->label = 0;
cdktemplate->labelLen = 0;
cdktemplate->labelWin = 0;
/* Translate the char * label to a chtype * */
if (label != 0)
{
cdktemplate->label = char2Chtype (label, &cdktemplate->labelLen, &junk);
}
/* Translate the char * Overlay to a chtype * */
if (Overlay != 0)
{
cdktemplate->overlay = char2Chtype (Overlay, &cdktemplate->overlayLen, &junk);
cdktemplate->fieldAttr = cdktemplate->overlay[0] & A_ATTRIBUTES;
}
else
{
/* *INDENT-EQLS* */
cdktemplate->overlay = 0;
cdktemplate->overlayLen = 0;
cdktemplate->fieldAttr = A_NORMAL;
}
/* Set the box width. */
boxWidth = fieldWidth + cdktemplate->labelLen + 2 * BorderOf (cdktemplate);
oldWidth = boxWidth;
boxWidth = setCdkTitle (ObjOf (cdktemplate), title, boxWidth);
horizontalAdjust = (boxWidth - oldWidth) / 2;
boxHeight += TitleLinesOf (cdktemplate);
/*
* Make sure we didn't extend beyond the dimensions of the window.
*/
/* *INDENT-EQLS* */
boxWidth = MINIMUM (boxWidth, parentWidth);
boxHeight = MINIMUM (boxHeight, parentHeight);
fieldWidth = MINIMUM (fieldWidth,
boxWidth - cdktemplate->labelLen - 2 * BorderOf (cdktemplate));
/* Rejustify the x and y positions if we need to. */
alignxy (cdkscreen->window, &xpos, &ypos, boxWidth, boxHeight);
/* Make the cdktemplate window */
cdktemplate->win = newwin (boxHeight, boxWidth, ypos, xpos);
/* Is the cdktemplate window null?? */
if (cdktemplate->win == 0)
{
destroyCDKObject (cdktemplate);
return (0);
}
keypad (cdktemplate->win, TRUE);
/* Make the label window. */
if (cdktemplate->label != 0)
{
cdktemplate->labelWin = subwin (cdktemplate->win,
1, cdktemplate->labelLen,
(ypos +
TitleLinesOf (cdktemplate) +
BorderOf (cdktemplate)),
(xpos +
horizontalAdjust +
BorderOf (cdktemplate)));
}
/* Make the field window. */
cdktemplate->fieldWin = subwin (cdktemplate->win,
1, fieldWidth,
(ypos +
TitleLinesOf (cdktemplate) +
BorderOf (cdktemplate)),
(xpos +
cdktemplate->labelLen +
horizontalAdjust +
BorderOf (cdktemplate)));
keypad (cdktemplate->fieldWin, TRUE);
/* Set up the info field. */
cdktemplate->plateLen = (int)strlen (plate);
cdktemplate->info = typeCallocN (char, cdktemplate->plateLen + 2);
if (cdktemplate->info == 0)
{
destroyCDKObject (cdktemplate);
return (0);
}
/* Copy the plate to the cdktemplate. */
plateLen = (int)strlen (plate);
cdktemplate->plate = typeMallocN (char, plateLen + 3);
if (cdktemplate->plate == 0)
{
destroyCDKObject (cdktemplate);
return (0);
}
strcpy (cdktemplate->plate, plate);
/* *INDENT-EQLS* Set up the rest of the structure */
ScreenOf (cdktemplate) = cdkscreen;
cdktemplate->parent = cdkscreen->window;
cdktemplate->shadowWin = 0;
cdktemplate->fieldWidth = fieldWidth;
cdktemplate->boxHeight = boxHeight;
cdktemplate->boxWidth = boxWidth;
cdktemplate->platePos = 0;
cdktemplate->screenPos = 0;
cdktemplate->infoPos = 0;
initExitType (cdktemplate);
cdktemplate->min = 0;
ObjOf (cdktemplate)->inputWindow = cdktemplate->win;
ObjOf (cdktemplate)->acceptsFocus = TRUE;
cdktemplate->shadow = shadow;
cdktemplate->callbackfn = CDKTemplateCallBack;
/* Do we need to create a shadow??? */
if (shadow)
{
cdktemplate->shadowWin = newwin (boxHeight, boxWidth, ypos + 1, xpos + 1);
}
registerCDKObject (cdkscreen, vTEMPLATE, cdktemplate);
return cdktemplate;
}
/*
* This actually manages the cdktemplate widget...
*/
char *activateCDKTemplate (CDKTEMPLATE *cdktemplate, chtype *actions)
{
chtype input = 0;
boolean functionKey;
char *ret = 0;
/* Draw the object. */
drawCDKTemplate (cdktemplate, ObjOf (cdktemplate)->box);
if (actions == 0)
{
for (;;)
{
input = (chtype)getchCDKObject (ObjOf (cdktemplate), &functionKey);
/* Inject the character into the widget. */
ret = injectCDKTemplate (cdktemplate, input);
if (cdktemplate->exitType != vEARLY_EXIT)
{
return ret;
}
}
}
else
{
int length = chlen (actions);
int x = 0;
/* Inject each character one at a time. */
for (x = 0; x < length; x++)
{
ret = injectCDKTemplate (cdktemplate, actions[x]);
if (cdktemplate->exitType != vEARLY_EXIT)
{
return ret;
}
}
}
/* Set the exit type and return. */
setExitType (cdktemplate, 0);
return ret;
}
/*
* This injects a character into the widget.
*/
static int _injectCDKTemplate (CDKOBJS *object, chtype input)
{
CDKTEMPLATE *widget = (CDKTEMPLATE *)object;
int ppReturn = 1;
char *ret = unknownString;
bool complete = FALSE;
/* Set the exit type and return. */
setExitType (widget, 0);
/* Move the cursor. */
drawCDKTemplateField (widget);
/* Check if there is a pre-process function to be called. */
if (PreProcessFuncOf (widget) != 0)
{
ppReturn = PreProcessFuncOf (widget) (vTEMPLATE,
widget,
PreProcessDataOf (widget),
input);
}
/* Should we continue? */
if (ppReturn != 0)
{
/* Check a predefined binding... */
if (checkCDKObjectBind (vTEMPLATE, widget, input) != 0)
{
checkEarlyExit (widget);
complete = TRUE;
}
else
{
switch (input)
{
case CDK_ERASE:
if (strlen (widget->info) != 0)
{
cleanCDKTemplate (widget);
drawCDKTemplateField (widget);
}
break;
case CDK_CUT:
if ((int)strlen (widget->info) != 0)
{
freeChar (GPasteBuffer);
GPasteBuffer = copyChar (widget->info);
cleanCDKTemplate (widget);
drawCDKTemplateField (widget);
}
else
{
Beep ();
}
break;
case CDK_COPY:
if ((int)strlen (widget->info) != 0)
{
freeChar (GPasteBuffer);
GPasteBuffer = copyChar (widget->info);
}
else
{
Beep ();
}
break;
case CDK_PASTE:
if (GPasteBuffer != 0)
{
int length, x;
cleanCDKTemplate (widget);
/* Start inserting each character one at a time. */
length = (int)strlen (GPasteBuffer);
for (x = 0; x < length; x++)
{
(widget->callbackfn) (widget, (chtype)GPasteBuffer[x]);
}
drawCDKTemplateField (widget);
}
else
{
Beep ();
}
break;
case KEY_TAB:
case KEY_ENTER:
if ((int)strlen (widget->info) < (int)widget->min)
{
Beep ();
}
else
{
setExitType (widget, input);
ret = widget->info;
complete = TRUE;
}
break;
case KEY_ESC:
setExitType (widget, input);
complete = TRUE;
break;
case KEY_ERROR:
setExitType (widget, input);
complete = TRUE;
break;
case CDK_REFRESH:
eraseCDKScreen (ScreenOf (widget));
refreshCDKScreen (ScreenOf (widget));
break;
default:
(widget->callbackfn) (widget, input);
break;
}
}
/* Should we call a post-process? */
if (!complete && (PostProcessFuncOf (widget) != 0))
{
PostProcessFuncOf (widget) (vTEMPLATE,
widget,
PostProcessDataOf (widget),
input);
}
}
if (!complete)
{
setExitType (widget, 0);
}
ResultOf (widget).valueString = ret;
return (ret != unknownString);
}
/*
* Return true if the given string matches the template (may be incomplete).
*/
static boolean validTemplate (CDKTEMPLATE *cdktemplate, char *input)
{
int pp, ip;
const char *plate = cdktemplate->plate;
for (pp = 0, ip = 0; input[ip] != '\0' && plate[pp] != '\0'; ++ip, ++pp)
{
int newchar = input[ip];
while (plate[pp] != '\0' && !isPlateChar (plate[pp]))
{
++pp;
}
if (plate[pp] == 0)
{
return FALSE;
}
/* check if the input matches the plate */
if (isdigit (CharOf (newchar)) &&
(plate[pp] == 'A' ||
plate[pp] == 'C' ||
plate[pp] == 'c'))
{
return FALSE;
}
if (!isdigit (CharOf (newchar)) &&
plate[pp] == '#')
{
return FALSE;
}
/* Do we need to convert the case??? */
if (plate[pp] == 'C' ||
plate[pp] == 'X')
{
newchar = toupper (newchar);
}
else if (plate[pp] == 'c' ||
plate[pp] == 'x')
{
newchar = tolower (newchar);
}
input[ip] = (char)newchar;
}
return TRUE;
}
/*
* This is the standard callback proc for the cdktemplate.
*/
static void CDKTemplateCallBack (CDKTEMPLATE *cdktemplate, chtype input)
{
boolean failed = FALSE;
boolean change = FALSE;
boolean moveby = FALSE;
int amount = 0;
size_t mark = (size_t) cdktemplate->infoPos;
size_t have = strlen (cdktemplate->info);
if (input == KEY_LEFT)
{
if (mark != 0)
{
moveby = TRUE;
amount = -1;
}
else
{
failed = TRUE;
}
}
else if (input == KEY_RIGHT)
{
if (cdktemplate->info[mark] != '\0')
{
moveby = TRUE;
amount = 1;
}
else
{
failed = TRUE;
}
}
else
{
char *test = (char *)malloc (have + 2);
if (test != 0)
{
strcpy (test, cdktemplate->info);
if (input == KEY_BACKSPACE)
{
if (mark != 0)
{
strcpy (test + mark - 1, cdktemplate->info + mark);
change = TRUE;
amount = -1;
}
else
{
failed = TRUE;
}
}
else if (input == KEY_DC)
{
if (test[mark] != '\0')
{
strcpy (test + mark, cdktemplate->info + mark + 1);
change = TRUE;
amount = 0;
}
else
{
failed = TRUE;
}
}
else if (isChar (input) &&
cdktemplate->platePos < cdktemplate->fieldWidth)
{
test[mark] = (char)(input);
strcpy (test + mark + 1, cdktemplate->info + mark + 1);
change = TRUE;
amount = 1;
}
else
{
failed = TRUE;
}
if (change)
{
if (validTemplate (cdktemplate, test))
{
strcpy (cdktemplate->info, test);
drawCDKTemplateField (cdktemplate);
}
else
{
failed = TRUE;
}
}
free (test);
}
}
if (failed)
{
Beep ();
}
else if (change || moveby)
{
cdktemplate->infoPos += amount;
cdktemplate->platePos += amount;
cdktemplate->screenPos += amount;
adjustCDKTemplateCursor (cdktemplate, amount);
}
}
/*
* Return a mixture of the plate-overlay and field-info.
*/
char *mixCDKTemplate (CDKTEMPLATE *cdktemplate)
{
char *mixedString = 0;
if (cdktemplate->info != 0 && cdktemplate->info[0] != '\0')
{
mixedString = typeCallocN (char, cdktemplate->plateLen + 3);
if (mixedString != 0)
{
int infoPos = 0;
int platePos = 0;
while (platePos < cdktemplate->plateLen)
{
mixedString[platePos] = (char)(isPlateChar (cdktemplate->plate[platePos])
? cdktemplate->info[infoPos++]
: cdktemplate->plate[platePos]);
platePos++;
}
}
}
return mixedString;
}
/*
* Return the field-info from the mixed string.
*/
char *unmixCDKTemplate (CDKTEMPLATE *cdktemplate, const char *info)
{
/* *INDENT-EQLS* */
int infolen = (int)strlen (info);
char *unmixedString = typeCallocN (char, infolen + 2);
if (unmixedString != 0)
{
int pos = 0;
int x = 0;
while (pos < infolen)
{
if (isPlateChar (cdktemplate->plate[pos]))
{
unmixedString[x++] = info[pos++];
}
else
{
pos++;
}
}
}
return unmixedString;
}
/*
* Move the cdktemplate field to the given location.
*/
static void _moveCDKTemplate (CDKOBJS *object,
int xplace,
int yplace,
boolean relative,
boolean refresh_flag)
{
CDKTEMPLATE *cdktemplate = (CDKTEMPLATE *)object;
/* *INDENT-EQLS* */
int currentX = getbegx (cdktemplate->win);
int currentY = getbegy (cdktemplate->win);
int xpos = xplace;
int ypos = yplace;
int xdiff = 0;
int ydiff = 0;
/*
* If this is a relative move, then we will adjust where we want
* to move to.
*/
if (relative)
{
xpos = getbegx (cdktemplate->win) + xplace;
ypos = getbegy (cdktemplate->win) + yplace;
}
/* Adjust the window if we need to. */
alignxy (WindowOf (cdktemplate), &xpos, &ypos, cdktemplate->boxWidth, cdktemplate->boxHeight);
/* Get the difference. */
xdiff = currentX - xpos;
ydiff = currentY - ypos;
/* Move the window to the new location. */
moveCursesWindow (cdktemplate->win, -xdiff, -ydiff);
moveCursesWindow (cdktemplate->labelWin, -xdiff, -ydiff);
moveCursesWindow (cdktemplate->fieldWin, -xdiff, -ydiff);
moveCursesWindow (cdktemplate->shadowWin, -xdiff, -ydiff);
/* Touch the windows so they 'move'. */
refreshCDKWindow (WindowOf (cdktemplate));
/* Redraw the window, if they asked for it. */
if (refresh_flag)
{
drawCDKTemplate (cdktemplate, ObjOf (cdktemplate)->box);
}
}
/*
* Draw the template widget.
*/
static void _drawCDKTemplate (CDKOBJS *object, boolean Box)
{
CDKTEMPLATE *cdktemplate = (CDKTEMPLATE *)object;
/* Do we need to draw the shadow. */
if (cdktemplate->shadowWin != 0)
{
drawShadow (cdktemplate->shadowWin);
}
/* Box it if needed */
if (Box)
{
drawObjBox (cdktemplate->win, ObjOf (cdktemplate));
}
drawCdkTitle (cdktemplate->win, object);
wrefresh (cdktemplate->win);
drawCDKTemplateField (cdktemplate);
}
/*
* Draw the cdktemplate field.
*/
static void drawCDKTemplateField (CDKTEMPLATE *cdktemplate)
{
/* *INDENT-EQLS* */
chtype fieldColor = 0;
int infolen = (int)strlen (cdktemplate->info);
/* Draw in the label and the cdktemplate object. */
if (cdktemplate->labelWin != 0)
{
writeChtype (cdktemplate->labelWin, 0, 0,
cdktemplate->label,
HORIZONTAL, 0,
cdktemplate->labelLen);
wrefresh (cdktemplate->labelWin);
}
/* Draw in the cdktemplate... */
if (cdktemplate->overlay != 0)
{
writeChtype (cdktemplate->fieldWin, 0, 0,
cdktemplate->overlay,
HORIZONTAL, 0,
cdktemplate->overlayLen);
/* Adjust the cursor. */
if (infolen != 0)
{
int pos = 0;
int x = 0;
for (x = 0; x < cdktemplate->fieldWidth; x++)
{
if (isPlateChar (cdktemplate->plate[x]) && pos < infolen)
{
fieldColor = cdktemplate->overlay[x] & A_ATTRIBUTES;
(void)mvwaddch (cdktemplate->fieldWin,
0, x,
CharOf (cdktemplate->info[pos++]) | fieldColor);
}
}
wmove (cdktemplate->fieldWin, 0, cdktemplate->screenPos);
}
else
{
adjustCDKTemplateCursor (cdktemplate, +1);
}
wrefresh (cdktemplate->fieldWin);
}
}
/*
* Adjust the cursor for the cdktemplate.
*/
static void adjustCDKTemplateCursor (CDKTEMPLATE *cdktemplate, int direction)
{
while (!isPlateChar (cdktemplate->plate[cdktemplate->platePos])
&& cdktemplate->platePos < cdktemplate->fieldWidth)
{
cdktemplate->platePos += direction;
cdktemplate->screenPos += direction;
}
wmove (cdktemplate->fieldWin, 0, cdktemplate->screenPos);
wrefresh (cdktemplate->fieldWin);
}
/*
* Set the background attribute of the widget.
*/
static void _setBKattrTemplate (CDKOBJS *object, chtype attrib)
{
if (object != 0)
{
CDKTEMPLATE *widget = (CDKTEMPLATE *)object;
wbkgd (widget->win, attrib);
wbkgd (widget->fieldWin, attrib);
if (widget->labelWin != 0)
{
wbkgd (widget->labelWin, attrib);
}
}
}
/*
* Destroy this widget.
*/
static void _destroyCDKTemplate (CDKOBJS *object)
{
if (object != 0)
{
CDKTEMPLATE *cdktemplate = (CDKTEMPLATE *)object;
cleanCdkTitle (object);
freeChtype (cdktemplate->label);
freeChtype (cdktemplate->overlay);
freeChar (cdktemplate->plate);
freeChar (cdktemplate->info);
/* Delete the windows. */
deleteCursesWindow (cdktemplate->fieldWin);
deleteCursesWindow (cdktemplate->labelWin);
deleteCursesWindow (cdktemplate->shadowWin);
deleteCursesWindow (cdktemplate->win);
/* Clean the key bindings. */
cleanCDKObjectBindings (vTEMPLATE, cdktemplate);
unregisterCDKObject (vTEMPLATE, cdktemplate);
}
}
/*
* Erase the widget.
*/
static void _eraseCDKTemplate (CDKOBJS *object)
{
if (validCDKObject (object))
{
CDKTEMPLATE *cdktemplate = (CDKTEMPLATE *)object;
eraseCursesWindow (cdktemplate->fieldWin);
eraseCursesWindow (cdktemplate->labelWin);
eraseCursesWindow (cdktemplate->win);
eraseCursesWindow (cdktemplate->shadowWin);
}
}
/*
* Set the value given to the cdktemplate.
*/
void setCDKTemplate (CDKTEMPLATE *cdktemplate, const char *newValue, boolean Box)
{
setCDKTemplateValue (cdktemplate, newValue);
setCDKTemplateBox (cdktemplate, Box);
}
/*
* Set the value given to the cdktemplate.
*/
void setCDKTemplateValue (CDKTEMPLATE *cdktemplate, const char *newValue)
{
/* *INDENT-EQLS* */
int len = 0;
int copychars = 0;
int x;
cleanCDKTemplate (cdktemplate);
/* Just to be sure, if let's make sure the new value isn't null. */
if (newValue == 0)
{
return;
}
/* Determine how many characters we need to copy. */
len = (int)strlen (newValue);
copychars = MINIMUM (len, cdktemplate->fieldWidth);
/* OK, erase the old value, and copy in the new value. */
cdktemplate->info[0] = '\0';
strncpy (cdktemplate->info, newValue, (size_t) copychars);
/* Use the function which handles the input of the characters. */
for (x = 0; x < len; x++)
{
(cdktemplate->callbackfn) (cdktemplate, (chtype)newValue[x]);
}
}
char *getCDKTemplateValue (CDKTEMPLATE *cdktemplate)
{
return cdktemplate->info;
}
/*
* Set the minimum number of characters to enter into the widget.
*/
void setCDKTemplateMin (CDKTEMPLATE *cdktemplate, int min)
{
if (min >= 0)
{
cdktemplate->min = min;
}
}
int getCDKTemplateMin (CDKTEMPLATE *cdktemplate)
{
return cdktemplate->min;
}
/*
* Set the box attribute of the cdktemplate widget.
*/
void setCDKTemplateBox (CDKTEMPLATE *cdktemplate, boolean Box)
{
ObjOf (cdktemplate)->box = Box;
ObjOf (cdktemplate)->borderSize = Box ? 1 : 0;
}
boolean getCDKTemplateBox (CDKTEMPLATE *cdktemplate)
{
return ObjOf (cdktemplate)->box;
}
/*
* Erase the information in the cdktemplate widget.
*/
void cleanCDKTemplate (CDKTEMPLATE *cdktemplate)
{
if (cdktemplate->fieldWidth > 0)
memset (cdktemplate->info, 0, (size_t) cdktemplate->fieldWidth);
/* *INDENT-EQLS* */
cdktemplate->screenPos = 0;
cdktemplate->infoPos = 0;
cdktemplate->platePos = 0;
}
/*
* Set the callback function for the widget.
*/
void setCDKTemplateCB (CDKTEMPLATE *cdktemplate, TEMPLATECB callback)
{
cdktemplate->callbackfn = callback;
}
static void _focusCDKTemplate (CDKOBJS *object)
{
CDKTEMPLATE *widget = (CDKTEMPLATE *)object;
drawCDKTemplate (widget, ObjOf (widget)->box);
}
static void _unfocusCDKTemplate (CDKOBJS *object)
{
CDKTEMPLATE *widget = (CDKTEMPLATE *)object;
drawCDKTemplate (widget, ObjOf (widget)->box);
}
dummyRefreshData (Template)
dummySaveData (Template)