debian/cdesktop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial import of the CDE 2.1.30 sources from the Open Group.

Browse Source
This commit is contained in:
Peter Howkins
2012-03-10 18:21:40 +00:00
commit 83b6996daa
18978 changed files with 3945623 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

334
cde/lib/DtHelp/HyperText.c Normal file
View File

@@ -0,0 +1,334 @@
/* $TOG: HyperText.c /main/9 1999/10/14 14:45:38 mgreess $ */
/************************************<+>*************************************
****************************************************************************
**
** File: HyperText.c
**
** Project: Text Graphic Display Library
**
** Description: This body of code does all the work for hypertext links
**
**
** (c) Copyright 1987, 1988, 1989, 1990, 1991, 1992 Hewlett-Packard Company
**
** (c) Copyright 1993, 1994 Hewlett-Packard Company
** (c) Copyright 1993, 1994 International Business Machines Corp.
** (c) Copyright 1993, 1994 Sun Microsystems, Inc.
** (c) Copyright 1993, 1994 Novell, Inc.
**
**
**
****************************************************************************
************************************<+>*************************************/
/*
* system includes
*/
#include <errno.h>
#include <signal.h>
#include <stdlib.h>
#ifdef __hpux
#include <time.h>
#else /* SUN and IBM */
#ifdef _AIX
#include <sys/select.h>
#endif
#include <sys/time.h>
#include <sys/types.h>
#endif
#include <unistd.h>
#include <sys/wait.h>
#include <Xm/DialogS.h>
/*
* Canvas Engine
*/
#include "CanvasP.h"
/*
* private includes
*/
#include "HelpErrorP.h"
#include "DisplayAreaP.h"
#include "DisplayAreaI.h"
#include "FontI.h"
#include "HourGlassI.h"
#include "HyperTextI.h"
#include "HelposI.h"
#ifdef NLS16
#endif
/******** Private Function Declarations ********/
static void ProcessEvents (
DtHelpDispAreaStruct *pDAS,
pid_t child_pid,
Boolean child_flag);
/******** End Private Function Declarations ********/
/*********************************************************************
* Private Variables
*********************************************************************/
typedef struct {
char *link_spec;
int type;
char *descrip;
} HyperList;
/*********************************************************************
* Private Functions
*********************************************************************/
/*********************************************************************
* ProcessEvents
*
* ProcessEvents will do a select on the socket until the child
* dies.
*
*********************************************************************/
static void
ProcessEvents (
DtHelpDispAreaStruct *pDAS,
pid_t child_pid,
Boolean child_flag)
{
int result;
int rMask;
int myFd;
pid_t pid;
struct timeval *topPtr;
struct timeval toStruct;
Display *dpy = XtDisplay (pDAS->dispWid);
XEvent event;
/*
* set a small time out.
*/
toStruct.tv_usec = 500000; /* 500 miliseconds */
toStruct.tv_sec = 0;
topPtr = &toStruct;
/*
* get the socket's file descriptor
*/
myFd = ConnectionNumber (dpy);
do
{
rMask = (1 << (myFd % 32)); /* on t.o. select will clear */
if (!XPending(dpy))
{
#if 0
result = select(myFd+1, &rMask, 0, 0, topPtr);
#else
result = select(myFd+1, ((fd_set *)&rMask), 0, 0, topPtr);
#endif
/*
* check to see if the select happened because of
* a system interrupt.
*/
/*
* otherwise an exposure event happened.
* fall through and XPending will be true,
* forcing us to go to the XmUpdateDisplay call.
*/
}
else
{
/*
* SYSTEM - Use XtDisplatchEvent????
*/
XNextEvent (dpy, &event);
if (event.type == Expose)
XmUpdateDisplay (pDAS->dispWid);
}
/*
* check to see if the child is still going
*/
pid = waitpid (child_pid, (int *) 0, WNOHANG);
if (pid == child_pid || pid == -1)
child_flag = True;
} while (!child_flag);
}
/*********************************************************************
* Internal Public Functions
*********************************************************************/
/*********************************************************************
* _DtHelpExecProcedure
*
* _DtHelpExecProcedure will fork/exec the command passed in. It will
* then allow only exposure events to be processed until the
* child dies.
*
*********************************************************************/
void
_DtHelpExecProcedure (
XtPointer client_data,
char *cmd )
{
pid_t pid;
XWindowAttributes attr;
char *pShell = "sh";
Widget shellWidget;
Boolean childFlag = False;
pid_t childPid;
DtHelpDispAreaStruct *pDAS = (DtHelpDispAreaStruct *) client_data;
/*
* Turn on the wait cursor.
*/
shellWidget = pDAS->dispWid;
while (!XtIsSubclass(shellWidget, xmDialogShellWidgetClass))
shellWidget = XtParent(shellWidget);
_DtHelpTurnOnHourGlass(shellWidget);
/*
* Get the window event mask via the window attributes. Remember it.
* Set the Input to only Exposure events.
*/
XGetWindowAttributes (XtDisplay(pDAS->dispWid), XtWindow (pDAS->dispWid),
&attr);
XSelectInput (XtDisplay(pDAS->dispWid), XtWindow (pDAS->dispWid),
ExposureMask);
XSync (XtDisplay(pDAS->dispWid), 0);
/*
* initialize the global flag and variable.
*/
childPid = -1;
childFlag = False;
/*
* fork a child process.
*/
#ifdef __hpux
childPid = vfork ();
#else
childPid = fork ();
#endif /* __hpux */
/*
* If the child, exec the cmd with a shell parent
* so if the cmd ends in an ampersand, the command
* will be put in the background and the shell will
* die and return, creating a SIGCLD for us to catch.
*/
if (childPid == 0)
{
execlp (pShell, pShell, "-c", cmd, ((char *) 0));
_exit (1);
}
/*
* Check to make sure the vfork was successful.
*/
if (childPid != -1)
{
/*
* check to see if the child is still going
*/
pid = waitpid (childPid, (int *) 0, WNOHANG);
if (!(pid == childPid || pid == -1))
/*
* process the exposure events in a special routine.
*/
ProcessEvents (pDAS, childPid, childFlag);
}
/*
* reset the input mask
*/
XSelectInput (XtDisplay(pDAS->dispWid), XtWindow (pDAS->dispWid),
(attr.your_event_mask));
/*
* turn off the wait cursor
*/
_DtHelpTurnOffHourGlass(shellWidget);
} /* End _DtHelpExecProcedure */
/*********************************************************************
* Function: _DtHelpProcessHyperSelection
*
* Determine if the user selected a segment that is a hypertext
* link. If so, call the appropriate function to process it.
*
*********************************************************************/
void
_DtHelpProcessHyperSelection (
XtPointer client_data,
int downX,
int downY,
XEvent *event )
{
int upX;
int upY;
_DtCvLinkInfo ceHyper;
DtHelpHyperTextStruct callData;
DtHelpDispAreaStruct *pDAS = (DtHelpDispAreaStruct *) client_data;
if (pDAS->hyperCall == NULL)
return;
downY = downY + pDAS->firstVisible - pDAS->decorThickness;
downX = downX + pDAS->virtualX - pDAS->decorThickness;
upX = event->xbutton.x + pDAS->virtualX - pDAS->decorThickness;
upY = event->xbutton.y + pDAS->firstVisible - pDAS->decorThickness;
/*
* turn off the old traversal
*/
if (pDAS->neededFlags & _DT_HELP_FOCUS_FLAG)
{
pDAS->toc_flag |= _DT_HELP_DRAW_TOC_IND;
_DtCanvasMoveTraversal(pDAS->canvas, _DtCvTRAVERSAL_OFF, False,
(XtIsRealized(pDAS->dispWid) ? True : False),
NULL, NULL, NULL, NULL, NULL);
}
if (_DtCvSTATUS_OK ==
_DtCanvasGetPosLink(pDAS->canvas,downX,downY,upX,upY,&ceHyper))
{
/*
* turn the traversal on for the selected hyptext link.
*/
if (pDAS->neededFlags & _DT_HELP_FOCUS_FLAG)
{
pDAS->toc_flag |= _DT_HELP_DRAW_TOC_IND;
_DtCanvasMoveTraversal(pDAS->canvas, _DtCvTRAVERSAL_ID, False,
(XtIsRealized(pDAS->dispWid) ? True : False),
ceHyper.specification,
NULL, NULL, NULL, NULL);
}
callData.reason = XmCR_ACTIVATE;
callData.event = event;
callData.window = XtWindow (pDAS->dispWid);
callData.specification = ceHyper.specification;
callData.hyper_type = ceHyper.hyper_type;
callData.window_hint = ceHyper.win_hint;
(*(pDAS->hyperCall)) (pDAS, pDAS->clientData, &callData);
}
else if (pDAS->neededFlags & _DT_HELP_FOCUS_FLAG)
/*
* turn the traversal back on
*/
_DtCanvasMoveTraversal(pDAS->canvas, _DtCvTRAVERSAL_ON, False,
(XtIsRealized(pDAS->dispWid) ? True : False),
NULL, NULL, NULL, NULL, NULL);
} /* End _DtHelpProcessHyperSelection */