VOID WINAPI ServiceMain (DWORD argc, LPWSTR argv[]){
setPWD(NULL);
hServStatus.dwServiceType = SERVICE_WIN32_OWN_PROCESS;
hServStatus.dwCurrentState = SERVICE_START_PENDING;
hServStatus.dwControlsAccepted = SERVICE_ACCEPT_STOP | SERVICE_ACCEPT_SHUTDOWN;
hServStatus.dwWin32ExitCode = ERROR_SERVICE_SPECIFIC_ERROR;
hServStatus.dwServiceSpecificExitCode = 0;
hServStatus.dwCheckPoint = 0;
hServStatus.dwWaitHint = 3*000; //wait 10 seconds
hSStat = RegisterServiceCtrlHandler( L"", ServerCtrlHandler);
if (hSStat == 0) {
hServStatus.dwCurrentState = SERVICE_STOPPED;
hServStatus.dwWin32ExitCode = ERROR_SERVICE_SPECIFIC_ERROR;
hServStatus.dwServiceSpecificExitCode = 1;
UpdateStatus (SERVICE_STOPPED, -1);
return;
}
SetServiceStatus (hSStat, &hServStatus);
/* Start the service-specific work, now that the generic work is complete */
if (ServiceSpecific() != 0) {
hServStatus.dwCurrentState = SERVICE_STOPPED;
hServStatus.dwServiceSpecificExitCode = 1; /* Server initilization failed */
SetServiceStatus (hSStat, &hServStatus);
return;
}
UpdateStatus (SERVICE_STOPPED, 0);
return;
}
/*
* This sets the current directory of the file selector.
*/
int setCDKFselectDirectory (CDKFSELECT *fselect, char *directory)
{
/* Declare local variables. */
CDKENTRY *fentry = fselect->entryField;
CDKSCROLL *fscroll = fselect->scrollField;
int ret;
/*
* If the directory supplied is the same as what is already
* there, return.
*/
if (fselect->pwd == directory)
{
return 1;
}
/* Try to chdir into the given directory. */
ret = chdir (directory);
if (ret != 0)
{
return 0;
}
setPWD(fselect);
/* Set the contents of the entry field. */
setCDKEntryValue (fentry, fselect->pwd);
drawCDKEntry (fentry, ObjOf(fentry)->box);
/* Get the directory contents. */
if (setCDKFselectDirContents (fselect) == 0)
{
return 0;
}
/* Set the values in the scrolling list. */
setCDKScrollItems (fscroll, fselect->dirContents,
fselect->fileCounter,
FALSE);
return 1;
}
void ki(void)
{
#if defined(HAVE_SVR4)
aplusPageMask=sysconf(_SC_PAGESIZE)-1;
#elif __VISUAL_C_2_0__
aplusPageMask=CLBYTES;
#else
aplusPageMask=getpagesize()-1;
#endif
X=Y=XY=(K=MY)+2000;
*X=*K=0;
*++K=0;
symhti();
Rx=Cx=(CX)cxhti();
aplus_nl=gv(Et,0);
aplus_nl->c=0;
p0hti();
xshti();
te();
mts=MS(si(""));
setPWD();
}
/*
* This function sets the information inside the file selector.
*/
void setCDKFselect (CDKFSELECT *fselect, char *directory, chtype fieldAttrib, chtype filler, chtype highlight, char *dirAttribute, char *fileAttribute, char *linkAttribute, char *sockAttribute, boolean Box GCC_UNUSED)
{
/* Declare local variables. */
CDKSCROLL *fscroll = fselect->scrollField;
CDKENTRY *fentry = fselect->entryField;
char *tempDir = 0;
char *mesg[10], newDirectory[2000], temp[100];
int ret;
/* Keep the info sent to us. */
fselect->fieldAttribute = fieldAttrib;
fselect->fillerCharacter = filler;
fselect->highlight = highlight;
strcpy (newDirectory, directory);
/* Set the attributes of the entry field/scrolling list. */
setCDKEntryFillerChar (fentry, filler);
setCDKScrollHighlight (fscroll, highlight);
/* Only do the directory stuff if the directory is not null. */
if (directory != 0)
{
/* Try to expand the directory if it starts with a ~ */
if (directory[0] == '~')
{
tempDir = expandFilename (directory);
if (tempDir != 0)
{
strcpy (newDirectory, tempDir);
freeChar (tempDir);
}
}
/* Change directories. */
ret = chdir (newDirectory);
if (ret != 0)
{
/* Beep at them. */
Beep();
/* Couldn't get into the directory, pop up a little message. */
sprintf (temp, "<C>Could not change into %s", newDirectory);
mesg[0] = copyChar (temp);
#ifdef HAVE_STRERROR
sprintf (temp, "<C></U>%s", strerror(errno));
mesg[1] = copyChar (temp);
#else
sprintf (temp, "<C></U>Unknown reason.");
mesg[1] = copyChar (temp);
#endif
mesg[2] = " ";
mesg[3] = "<C>Press Any Key To Continue.";
/* Pop Up a message. */
popupLabel (ScreenOf(fselect), mesg, 4);
/* Clean up some memory. */
freeCharList (mesg, 4);
/* Get out of here. */
eraseCDKFselect (fselect);
drawCDKFselect (fselect, ObjOf(fselect)->box);
return;
}
}
/*
* If the information coming in is the same as the information
* that is already there, there is no need to destroy it.
*/
if (fselect->pwd != directory)
{
setPWD(fselect);
}
if (fselect->fileAttribute != fileAttribute)
{
/* Remove the old pointer and set the new value. */
freeChar (fselect->fileAttribute);
fselect->fileAttribute = copyChar (fileAttribute);
}
if (fselect->dirAttribute != dirAttribute)
{
/* Remove the old pointer and set the new value. */
freeChar (fselect->dirAttribute);
fselect->dirAttribute = copyChar (dirAttribute);
}
if (fselect->linkAttribute != linkAttribute)
{
/* Remove the old pointer and set the new value. */
freeChar (fselect->linkAttribute);
fselect->linkAttribute = copyChar (linkAttribute);
}
if (fselect->sockAttribute != sockAttribute)
{
/* Remove the old pointer and set the new value. */
freeChar (fselect->sockAttribute);
fselect->sockAttribute = copyChar (sockAttribute);
}
/* Set the contents of the entry field. */
setCDKEntryValue (fentry, fselect->pwd);
drawCDKEntry (fentry, ObjOf(fentry)->box);
/* Get the directory contents. */
if (setCDKFselectDirContents (fselect) == 0)
{
Beep();
return;
}
/* Set the values in the scrolling list. */
setCDKScrollItems (fscroll,
fselect->dirContents,
fselect->fileCounter,
FALSE);
}
/*
* This creates a file selection widget.
*/
CDKFSELECT *newCDKFselect (CDKSCREEN *cdkscreen, int xplace, int yplace, int height, int width, char *title, char *label, chtype fieldAttribute, chtype fillerChar, chtype highlight, char *dAttribute, char *fAttribute, char *lAttribute, char *sAttribute, boolean Box, boolean shadow)
{
/* Set up some variables. */
CDKFSELECT *fselect = newCDKObject(CDKFSELECT, &my_funcs);
int parentWidth = getmaxx(cdkscreen->window) - 1;
int parentHeight = getmaxy(cdkscreen->window) - 1;
int boxWidth = width;
int boxHeight = height;
int xpos = xplace;
int ypos = yplace;
int entryWidth, x, labelLen, junk;
chtype *chtypeString;
/*
* If the height is a negative value, the height will
* be ROWS-height, otherwise, the height will be the
* given height.
*/
boxHeight = setWidgetDimension (parentHeight, height, 0);
/*
* If the width is a negative value, the width will
* be COLS-width, otherwise, the width will be the
* given width.
*/
boxWidth = setWidgetDimension (parentWidth, width, 0);
/* Rejustify the x and y positions if we need to. */
alignxy (cdkscreen->window, &xpos, &ypos, boxWidth, boxHeight);
/* Make sure the box isn't too small. */
boxWidth = (boxWidth < 15 ? 15 : boxWidth);
boxHeight = (boxHeight < 6 ? 6 : boxHeight);
/* Make the file selector window. */
fselect->win = newwin (boxHeight, boxWidth, ypos, xpos);
/* Is the window null? */
if (fselect->win == 0)
{
return (0);
}
keypad (fselect->win, TRUE);
/* Set some variables. */
ScreenOf(fselect) = cdkscreen;
fselect->parent = cdkscreen->window;
fselect->dirAttribute = copyChar (dAttribute);
fselect->fileAttribute = copyChar (fAttribute);
fselect->linkAttribute = copyChar (lAttribute);
fselect->sockAttribute = copyChar (sAttribute);
fselect->highlight = highlight;
fselect->fillerCharacter = fillerChar;
fselect->fieldAttribute = fieldAttribute;
fselect->boxHeight = boxHeight;
fselect->boxWidth = boxWidth;
fselect->fileCounter = 0;
fselect->pwd = 0;
fselect->exitType = vNEVER_ACTIVATED;
ObjOf(fselect)->box = Box;
fselect->shadow = shadow;
fselect->shadowWin = 0;
/* Zero out the contents of the directory listing. */
for (x=0; x < MAX_ITEMS; x++)
{
fselect->dirContents[x] = 0;
}
/* Get the present working directory. */
setPWD(fselect);
/* Get the contents of the current directory. */
setCDKFselectDirContents (fselect);
/* Create the entry field in the selector. */
chtypeString = char2Chtype (label, &labelLen, &junk);
freeChtype (chtypeString);
entryWidth = boxWidth - labelLen - 3;
fselect->entryField = newCDKEntry (cdkscreen,
getbegx(fselect->win),
getbegy(fselect->win),
title, label,
fieldAttribute, fillerChar,
vMIXED, entryWidth, 0, 512,
Box, FALSE);
/* Make sure the widget was created. */
if (fselect->entryField == 0)
{
/* Clean up. */
freeCharList (fselect->dirContents, MAX_ITEMS);
freeChar (fselect->pwd);
freeChar (fselect->dirAttribute);
freeChar (fselect->fileAttribute);
freeChar (fselect->linkAttribute);
freeChar (fselect->sockAttribute);
deleteCursesWindow (fselect->win);
return (0);
}
/* Set the lower left/right characters of the entry field. */
setCDKEntryLLChar (fselect->entryField, ACS_LTEE);
setCDKEntryLRChar (fselect->entryField, ACS_RTEE);
/* Define the callbacks for the entry field. */
bindCDKObject (vENTRY, fselect->entryField, KEY_UP, fselectAdjustScrollCB, fselect);
bindCDKObject (vENTRY, fselect->entryField, KEY_PPAGE, fselectAdjustScrollCB, fselect);
bindCDKObject (vENTRY, fselect->entryField, CONTROL('B'), fselectAdjustScrollCB, fselect);
bindCDKObject (vENTRY, fselect->entryField, KEY_DOWN, fselectAdjustScrollCB, fselect);
bindCDKObject (vENTRY, fselect->entryField, KEY_NPAGE, fselectAdjustScrollCB, fselect);
bindCDKObject (vENTRY, fselect->entryField, CONTROL('F'), fselectAdjustScrollCB, fselect);
bindCDKObject (vENTRY, fselect->entryField, KEY_TAB, completeFilenameCB, fselect);
bindCDKObject (vENTRY, fselect->entryField, CONTROL('^'), displayFileInfoCB, fselect);
/* Put the current working directory in the entry field. */
setCDKEntryValue (fselect->entryField, fselect->pwd);
/* Create the scrolling list in the selector. */
fselect->scrollField = newCDKScroll (cdkscreen,
getbegx(fselect->win),
getbegy(fselect->win) + (fselect->entryField)->titleLines + 2,
RIGHT,
boxHeight - (fselect->entryField)->titleLines - 3,
boxWidth-2,
0,
fselect->dirContents,
fselect->fileCounter,
NONUMBERS, fselect->highlight,
Box, FALSE);
/* Set the lower left/right characters of the entry field. */
setCDKScrollULChar (fselect->scrollField, ACS_LTEE);
setCDKScrollURChar (fselect->scrollField, ACS_RTEE);
/* Do we want a shadow? */
if (shadow)
{
fselect->shadowWin = newwin (boxHeight, boxWidth, ypos + 1, xpos + 1);
}
/* Register this baby. */
registerCDKObject (cdkscreen, vFSELECT, fselect);
/* Return the file selector pointer. */
return (fselect);
}
