xpred.c File Reference

x windows predicates More...

Go to the source code of this file.

Data Structures
struct	wl_EventClosure

Macros
#define	stdin_fileno   fileno(stdin)
#define	CR   0x0d
#define	BS   0x08
#define	DrawableGC(w)   (GC)GetIntAttr(GetPsiAttr(w,"graphic_context"),"id")
#define	WindowDisplayList(w)   GetIntAttr(GetPsiAttr(w,"display_list"),"id")
#define	DISP(X)   (Display *)val[X]
#define	DRAW(X)   (Drawable)val[X]
#define	WIND(X)   (Window)val[X]
#define	GCVAL(X)   (GC)val[X]
#define	FONT(X)   (Font)val[X]
#define	CMAP(X)   (Colormap)val[X]
#define	STRG(X)   ((char *)val[X])

Typedefs
typedef struct wl_EventClosure	EventClosure

Functions
static int	x_handle_error (Display *display, XErrorEvent *x_error)
	x_handle_error More...
static int	x_handle_fatal_error (Display *display)
	x_handle_fatal_error More...
void	bk_stack_add_int_attr (ptr_psi_term t, char *attrname, long value)
	bk_stack_add_int_attr More...
void	bk_change_psi_attr (ptr_psi_term t, char *attrname, ptr_psi_term value)
	bk_change_psi_attr More...
long	unify_int_result (ptr_psi_term t, long v)
	unify_int_result More...
static ptr_psi_term	NewPsi (ptr_definition t, char *f, long v)
	ptr_psi_term NewPsi More...
long	GetIntAttr (ptr_psi_term psiTerm, char *attributeName)
	GetIntAttr. More...
ptr_psi_term	GetPsiAttr (ptr_psi_term psiTerm, char *attributeName)
	GetPsiAttr. More...
static void	ResizePixmap (ptr_psi_term psi_window, Display *display, Window window, unsigned long width, unsigned long height)
	ResizePixmap. More...
static void	FreeWindow (Display *display, ptr_psi_term psi_window)
	FreeWindow. More...
long	xcOpenConnection ()
	xcOpenConnection More...
long	xcDefaultRootWindow ()
	xcDefaultRootWindow More...
static long	GetConnectionAttribute (Display *display, long attributeId, long *attribute)
	GetConnectionAttribute. More...
long	xcGetConnectionAttribute ()
	xcGetConnectionAttribute More...
static long	GetScreenAttribute (Display *display, long screen, long attributeId, long *attribute)
	GetScreenAttribute. More...
long	xcGetScreenAttribute ()
	xcGetScreenAttribute More...
long	xcCloseConnection ()
	xcCloseConnection More...
long	xcCreateSimpleWindow ()
	xcCreateSimpleWindow More...
long	xcSetStandardProperties ()
	xcSetStandardProperties More...
long	xcGetWindowGeometry ()
	xcGetWindowGeometry More...
static long	GetWindowAttribute (Display *display, long window, long attributeId, long *attribute)
	GetWindowAttribute. More...
long	xcGetWindowAttribute ()
	xcGetWindowAttribute More...
long	xcSetWindowGeometry ()
	xcSetWindowGeometry More...
long	xcMoveWindow ()
	xcMoveWindow More...
static long	SetWindowAttribute (ptr_psi_term psi_window, Display *display, Drawable window, unsigned long attributeId, unsigned long attribute)
	SetWindowAttribute. More...
long	xcSetWindowAttribute ()
	xcSetWindowAttribute More...
long	xcMapWindow ()
	xcMapWindow More...
long	xcRaiseWindow ()
	xcRaiseWindow More...
long	xcUnmapWindow ()
	xcUnmapWindow More...
long	xcMapSubwindows ()
	xcMapSubwindows More...
long	xcUnmapSubwindows ()
	xcUnmapSubwindows More...
long	xcClearWindow ()
	xcClearWindow More...
long	xcResizeWindowPixmap ()
	xcResizeWindowPixmap More...
long	xcSelectInput ()
	xcSelectInput More...
long	xcRefreshWindow ()
	xcRefreshWindow More...
long	xcPostScriptWindow ()
	xcPostScriptWindow More...
long	xcDestroyWindow ()
	xcDestroyWindow More...
long	xcCreateGC ()
	xcCreateGC More...
static long	GetGCAttribute (GC gc, long attributeId, long *attribute)
	GetGCAttribute. More...
long	xcGetGCAttribute ()
	xcGetGCAttribute More...
static long	SetGCAttribute (Display *display, GC gc, long attributeId, long attribute)
	SetGCAttribute. More...
long	xcSetGCAttribute ()
	xcSetGCAttribute More...
long	xcDestroyGC ()
	xcDestroyGC More...
long	xcRequestColor ()
	xcRequestColor More...
long	xcRequestNamedColor ()
	xcRequestNamedColor More...
long	xcFreeColor ()
	xcFreeColor More...
long	xcDrawLine ()
	xcDrawLine More...
long	xcDrawArc ()
	xcDrawArc More...
long	xcDrawRectangle ()
	xcDrawRectangle More...
long	xcFillRectangle ()
	xcFillRectangle More...
long	xcFillArc ()
	xcFillArc More...
long	xcPointsAlloc ()
	xcPointsAlloc More...
long	xcCoordPut ()
	xcCoordPut More...
long	xcPointsFree ()
	xcPointsFree More...
long	xcDrawPolygon ()
	xcDrawPolygon More...
long	xcFillPolygon ()
	xcFillPolygon More...
long	xcLoadFont ()
	xcLoadFont More...
long	xcUnloadFont ()
	xcUnloadFont More...
long	xcDrawString ()
	xcDrawString More...
long	xcDrawImageString ()
	xcDrawImageString More...
long	xcStringWidth ()
	xcStringWidth More...
long	xcSync ()
	xcSync More...
static ptr_psi_term	xcEventToPsiTerm (XEvent *event)
	xcEventToPsiTerm More...
long	list_is_nil (ptr_psi_term lst)
ptr_psi_term	list_cdr (ptr_psi_term lst)
	list_cdr More...
ptr_psi_term	list_car (ptr_psi_term lst)
	list_car More...
void	list_set_car (ptr_psi_term lst, ptr_psi_term value)
	list_set_car More...
void	list_set_cdr (ptr_psi_term lst, ptr_psi_term value)
	list_set_cdr More...
ptr_psi_term	list_last_cdr (ptr_psi_term lst)
	list_last_cdr More...
ptr_psi_term	append_to_list (ptr_psi_term lst, ptr_psi_term value)
	append_to_list More...
long	map_funct_over_list (ptr_psi_term lst, long(*proc)(), long *closure)
	map_funct_over_list More...
long	map_funct_over_cars (ptr_psi_term lst, long(*proc)(), long *closure)
	map_funct_over_cars More...
void	list_remove_value (ptr_psi_term lst, ptr_psi_term value)
	list_remove_value More...
static long	x_union_event (ptr_psi_term psiEvent, EventClosure *closure)
	x_union_event More...
long	xcGetEvent ()
	xcGetEvent More...
static long	x_flush_event (ptr_psi_term eventElt, EventClosure *closure)
	x_flush_event More...
long	xcFlushEvents ()
	xcFlushEvents More...
long	xcQueryPointer ()
	xcQueryPointer More...
void	x_setup_builtins ()
	x_setup_builtins More...
static long	WaitNextEvent (long *ptreventflag)
	WaitNextEvent. More...
long	x_read_stdin_or_event (long *ptreventflag)
	x_read_stdin_or_event More...
static long	mask_match_type (long mask, long type)
	mask_match_type More...
static ptr_psi_term	x_what_psi_event (ptr_psi_term beginSpan, ptr_psi_term endSpan, long eventType)
	x_what_psi_event More...
static void	x_build_existing_event (XEvent *event, ptr_psi_term beginSpan, ptr_psi_term endSpan, long eventType)
	x_build_existing_event More...
static long	x_next_event_span (ptr_psi_term eventElt, EventClosure *eventClosure)
	x_next_event_span More...
long	x_exist_event ()
	x_exist_event More...
void	x_destroy_window (Display *display, Window window)
	x_destroy_window More...
void	x_show_window (Display *display, long window)
	x_show_window More...
void	x_hide_window (Display *display, long window)
	x_hide_window More...
void	x_show_subwindow (Display *display, long window)
	x_show_subwindow More...
void	x_hide_subwindow (Display *display, long window)
	x_hide_subwindow More...
long	xcQueryTextExtents ()
	xcQueryTextExtents More...
ptr_goal	GoalFromPsiTerm (ptr_psi_term psiTerm)
	GoalFromPsiTerm. More...

Variables
ptr_psi_term	xevent_existing = NULL
ptr_psi_term	xevent_list = NULL
ptr_definition	xevent
ptr_definition	xkeyboard_event
ptr_definition	xbutton_event
ptr_definition	xexpose_event
ptr_definition	xdestroy_event
ptr_definition	xmotion_event
ptr_definition	xenter_event
ptr_definition	xleave_event
ptr_definition	xmisc_event
ptr_definition	xdisplay
ptr_definition	xdrawable
ptr_definition	xwindow
ptr_definition	xpixmap
ptr_definition	xconfigure_event
ptr_definition	xgc
ptr_definition	xdisplaylist
long	x_window_creation = FALSE
static long	xevent_mask []
static char *	xevent_name []

Detailed Description

x windows predicates

Definition in file xpred.c.

Macro Definition Documentation

#define BS   0x08

Definition at line 26 of file xpred.c.

#define CMAP

(

X

)

(Colormap)val[X]

Definition at line 154 of file xpred.c.

#define CR   0x0d

Definition at line 25 of file xpred.c.

#define DISP

(

X

)

(Display *)val[X]

Definition at line 149 of file xpred.c.

#define DRAW

(

X

)

(Drawable)val[X]

Definition at line 150 of file xpred.c.

#define DrawableGC

(

w

)

(GC)GetIntAttr(GetPsiAttr(w,"graphic_context"),"id")

Definition at line 145 of file xpred.c.

#define FONT

(

X

)

(Font)val[X]

Definition at line 153 of file xpred.c.

#define GCVAL

(

X

)

(GC)val[X]

Definition at line 152 of file xpred.c.

#define stdin_fileno   fileno(stdin)

Definition at line 24 of file xpred.c.

#define STRG

(

X

)

((char *)val[X])

Definition at line 155 of file xpred.c.

#define WIND

(

X

)

(Window)val[X]

Definition at line 151 of file xpred.c.

#define WindowDisplayList

(

w

)

GetIntAttr(GetPsiAttr(w,"display_list"),"id")

Definition at line 146 of file xpred.c.

Typedef Documentation

typedef struct wl_EventClosure EventClosure

Function Documentation

ptr_psi_term append_to_list	(	ptr_psi_term	lst,
		ptr_psi_term	value
	)

append_to_list

Parameters

lst	- ptr_psi_term lst
value	- ptr_psi_term value

Definition at line 3035 of file xpred.c.

References wl_psi_term::coref, list_last_cdr(), psi_term_ptr, push_ptr_value_global(), stack_cons(), and stack_nil().

{
  ptr_psi_term end;
  
  end=list_last_cdr(lst);
  push_ptr_value_global(psi_term_ptr,(GENERIC *)&(end->coref));
  end->coref=stack_cons(value,stack_nil());
  return end->coref;
}

void bk_change_psi_attr	(	ptr_psi_term	t,
		char *	attrname,
		ptr_psi_term	value
	)

bk_change_psi_attr

Parameters

t	- ptr_psi_term t
attrname	- char *attrname
value	- ptr_psi_term value

Definition at line 240 of file xpred.c.

References wl_psi_term::attr_list, bk_stack_insert(), wl_psi_term::coref, wl_node::data, deref_ptr, FEATCMP, find(), and heap_copy_string().

{
  ptr_psi_term t1;
  ptr_node n;
  char *perm;
  

  perm=(char *)heap_copy_string(attrname);
  n=find(FEATCMP,perm,t->attr_list);
  if(n) {
    t1=(ptr_psi_term)n->data;
    deref_ptr(t1);
    *t1= *value;
    /*push_ptr_value(psi_term_ptr,(GENERIC *)&(t1->coref));*/
    if(value!=t1)
      value->coref=t1;
  }
  else
    bk_stack_insert(FEATCMP,perm,&(t->attr_list),(GENERIC)value);
}

void bk_stack_add_int_attr	(	ptr_psi_term	t,
		char *	attrname,
		long	value
	)

bk_stack_add_int_attr

Parameters

t	- ptr_psi_term t
attrname	- char * attrname
value	- long value

Definition at line 206 of file xpred.c.

References wl_psi_term::attr_list, bk_stack_insert(), wl_node::data, deref_ptr, FEATCMP, find(), heap_alloc(), heap_copy_string(), int_ptr, integer, push_ptr_value(), REAL, stack_psi_term(), wl_psi_term::type, and wl_psi_term::value_3.

{
  ptr_psi_term t1;
  ptr_node n;
  char *perm;

  perm=(char *)heap_copy_string(attrname);
  n=find(FEATCMP,perm,t->attr_list);
  if(n) {
    t1=(ptr_psi_term)n->data;
    deref_ptr(t1);
    if(!t1->value_3) {
      push_ptr_value(int_ptr,(GENERIC *)&(t1->value_3));
      t1->value_3=heap_alloc(sizeof(REAL));
    }
    *((REAL *)(t1->value_3)) = *(REAL *) value; // debugged 12/11/2016 DJD
  }
  else {
    t1=stack_psi_term(4);
    t1->type=integer;
    t1->value_3=heap_alloc(sizeof(REAL));
    *((REAL *)(t1->value_3)) = *(REAL *) value;  // debugged 12/11/2016 DJD
    bk_stack_insert(FEATCMP,perm,&(t->attr_list),(GENERIC)t1);
  }
}

static void FreeWindow ( Display *  display, ptr_psi_term  psi_window  )

static

FreeWindow.

Parameters

display	- Display *display
psi_window	- ptr_psi_term psi_window

Static free all attributes of a window,that is: its display list,its gc, its pixmap ...

Definition at line 463 of file xpred.c.

References DrawableGC, GetIntAttr(), GetPsiAttr(), WindowDisplayList, and x_free_display_list().

{
  ptr_psi_term psiPixmap;
  
  
  XFreeGC(display,DrawableGC(psi_window));
  x_free_display_list((ListHeader *)WindowDisplayList(psi_window));
  
  psiPixmap = GetPsiAttr(psi_window,"pixmap");
  XFreeGC(display,DrawableGC(psiPixmap));
  XFreePixmap(display,GetIntAttr(psiPixmap,"id"));
}

static long GetConnectionAttribute ( Display *  display, long  attributeId, long *  attribute  )

static

GetConnectionAttribute.

Parameters

display	- Display *display
attributeId	- long attributeId
attribute	- long *attribute

static GetConnectionAttribute

Definition at line 560 of file xpred.c.

References FALSE, and TRUE.

{
  switch(attributeId) 
    {
    case 0: 
      *attribute =(unsigned long) ConnectionNumber(display);
      break;
    case 1: 
#ifndef __alpha
      *attribute = display->proto_major_version;
#endif
      break;
    case 2: 
#ifndef __alpha
      *attribute =(unsigned long)(display->proto_minor_version);
#endif
      break;
    case 3: 
      *attribute =(unsigned long) ServerVendor(display);
      break;
    case 4: 
      *attribute =(unsigned long) ImageByteOrder(display);
      break;
    case 5: 
      *attribute =(unsigned long) BitmapUnit(display);
      break;
    case 6: 
      *attribute =(unsigned long) BitmapPad(display);
      break;
    case 7: 
      *attribute =(unsigned long) BitmapBitOrder(display);
      break;
    case 8: 
      *attribute =(unsigned long) VendorRelease(display);
      break;
    case 9:
#ifndef __alpha
      *attribute =(unsigned long)(display->qlen);
#endif
      break;
    case 10: 
      *attribute =(unsigned long) LastKnownRequestProcessed(display);
      break;
    case 11: 
#ifndef __alpha
      *attribute =(unsigned long)(display->request);
#endif
      break;
    case 12: 
      *attribute =(unsigned long) DisplayString(display); 
      break;
    case 13: 
      *attribute =(unsigned long) DefaultScreen(display); 
      break;
    case 14: 
#ifndef __alpha
      *attribute =(unsigned long)(display->min_keycode);
#endif
      break;
    case 15: 
#ifndef __alpha
      *attribute =(unsigned long)(display->max_keycode);
#endif
      break;
    default: 
      return FALSE;
      break;
    }
  
  return TRUE;
}

static long GetGCAttribute ( GC  gc, long  attributeId, long *  attribute  )

static

GetGCAttribute.

Parameters

gc	- GC gc
attributeId	- long attributeId
attribute	- long *attribute

GETGCATTRIBUTE

Definition at line 1846 of file xpred.c.

References FALSE, and TRUE.

{
#ifndef __alpha
  switch(attributeId) 
    {
    case 0:
      *attribute = gc->values.function;
      break;
    case 1:
      *attribute = gc->values.plane_mask;
      break;
    case 2:
      *attribute = gc->values.foreground;
      break;
    case 3:
      *attribute = gc->values.background;
      break;
    case 4:
      *attribute = gc->values.line_width;
      break;
    case 5:
      *attribute = gc->values.line_style;
      break;
    case 6:
      *attribute = gc->values.cap_style;
      break;
    case 7:
      *attribute = gc->values.join_style;
      break;
    case 8:
      *attribute = gc->values.fill_style;
      break;
    case 9:
      *attribute = gc->values.fill_rule;
      break;
    case 10:
      *attribute = gc->values.tile;
      break;
    case 11:
      *attribute = gc->values.stipple;
      break;
    case 12:
      *attribute = gc->values.ts_x_origin;
      break;
    case 13:
      *attribute = gc->values.ts_y_origin;
      break;
    case 14:
      *attribute = gc->values.font;
      break;
    case 15:
      *attribute = gc->values.subwindow_mode;
      break;
    case 16:
      *attribute = gc->values.graphics_exposures;
      break;
    case 17:
      *attribute = gc->values.clip_x_origin;
      break;
    case 18:
      *attribute = gc->values.clip_y_origin;
      break;
    case 19:
      *attribute = gc->values.clip_mask;
      break;
    case 20:
      *attribute = gc->values.dash_offset;
      break;
    case 21: 
      *attribute =(unsigned char)(gc->values.dashes);
      break;
    case 22:
      *attribute = gc->values.arc_mode;
      break;
    case 23:
      *attribute = gc->rects;
      break;
    case 24:
      *attribute = gc->dashes;
      break;
    default: 
      return FALSE;
      break;
    }
#endif
  return TRUE;
}

long GetIntAttr	(	ptr_psi_term	psiTerm,
		char *	attributeName
	)

GetIntAttr.

Parameters

psiTerm	- ptr_psi_term psiTerm
attributeName	- char *attributeName

Utilities return the value of the attribute attributeName on the psi-term psiTerm

Definition at line 333 of file xpred.c.

References wl_psi_term::attr_list, wl_node::data, deref_ptr, Errorline(), exit_life(), FEATCMP, find(), REAL, TRUE, and wl_psi_term::value_3.

{
  ptr_node nodeAttr;
  ptr_psi_term psiValue;
  
  
  deref_ptr(psiTerm);
  nodeAttr=find(FEATCMP,attributeName,psiTerm->attr_list);
  if(!nodeAttr) {
    Errorline("in GetIntAttr: didn't find %s on %P\n",
           attributeName,
           psiTerm);
    exit_life(TRUE);
  }
  
  psiValue=(ptr_psi_term)nodeAttr->data;
  deref_ptr(psiValue);
  if(psiValue->value_3)
    return *(REAL *) psiValue->value_3;
  else {
    /* Errorline("in GetIntAttr: no value!\n"); */
    return -34466; /* Real nasty hack for now  RM: Apr 23 1993  */
  }
}

ptr_psi_term GetPsiAttr	(	ptr_psi_term	psiTerm,
		char *	attributeName
	)

GetPsiAttr.

Parameters

psiTerm	- ptr_psi_term psiTerm
attributeName	- char *attributeName

Utilities return the psi-term of the attribute attributeName on the psi-term psiTerm

Definition at line 367 of file xpred.c.

References wl_psi_term::attr_list, wl_node::data, Errorline(), exit_life(), FEATCMP, find(), NULL, and TRUE.

{
  ptr_node nodeAttr;
  ptr_psi_term psiValue;
  
  
  if((nodeAttr = find(FEATCMP,attributeName,psiTerm->attr_list)) == NULL)
    {
      Errorline("in GetPsiAttr: no attribute name on psi-term ?\n");
      exit_life(TRUE);
    }
  
  if((psiValue =(ptr_psi_term) nodeAttr->data) == NULL)
    {
      Errorline("in GetPsiAttr: no value on psi-term ?\n");
      exit_life(TRUE);
    }
  
  return psiValue;
}

static long GetScreenAttribute ( Display *  display, long  screen, long  attributeId, long *  attribute  )

static

GetScreenAttribute.

Parameters

display	- Display *display
screen	- long screen
attributeId	- long attributeId
attribute	- long *attribute

GetScreenAttribute

Definition at line 677 of file xpred.c.

References FALSE, and TRUE.

{
  Screen *s;
  
  
  s = ScreenOfDisplay(display,screen);
  switch(attributeId) 
    {
    case 0: 
      *attribute =(unsigned long) DisplayOfScreen(s);
      break;
    case 1: 
      *attribute =(unsigned long) RootWindowOfScreen(s);
      break;
    case 2: 
      *attribute =(unsigned long) WidthOfScreen(s);
      break;
    case 3: 
      *attribute =(unsigned long) HeightOfScreen(s);
      break;
    case 4: 
      *attribute =(unsigned long) WidthMMOfScreen(s);
      break;
    case 5: 
      *attribute =(unsigned long) HeightMMOfScreen(s);
      break;
    case 6: 
      *attribute =(unsigned long) DefaultDepthOfScreen(s);
      break;
    case 7: 
      *attribute =(unsigned long) DefaultVisualOfScreen(s);
      break;
    case 8: 
      *attribute =(unsigned long) DefaultGCOfScreen(s);
      break;
    case 9: 
      *attribute =(unsigned long) DefaultColormapOfScreen(s);
      break;
    case 10: 
      *attribute =(unsigned long) WhitePixelOfScreen(s);
      break;
    case 11: 
      *attribute =(unsigned long) BlackPixelOfScreen(s);
      break;
    case 12: 
      *attribute =(unsigned long) MaxCmapsOfScreen(s);
      break;
    case 13: 
      *attribute =(unsigned long) MinCmapsOfScreen(s);
      break;
    case 14: 
      *attribute =(unsigned long) DoesBackingStore(s);
      break;
    case 15: 
      *attribute =(unsigned long) DoesSaveUnders(s);
      break;
    case 16: 
      *attribute =(unsigned long) EventMaskOfScreen(s);
      break;
    default: 
      return FALSE;
      break;
    }
  
  return TRUE;
}

static long GetWindowAttribute ( Display *  display, long  window, long  attributeId, long *  attribute  )

static

GetWindowAttribute.

Parameters

display	- Display *display
window	- long window
attributeId	- long attributeId
attribute	- long *attribute

GetWindowAttribute

Definition at line 1129 of file xpred.c.

References FALSE, and TRUE.

{
  XWindowAttributes windowAttributes;
  
  
  XGetWindowAttributes(display,window,&windowAttributes);
  switch(attributeId) 
    {
    case 0: 
      *attribute = windowAttributes.x;  
      break;
    case 1: 
      *attribute = windowAttributes.y;
      break;
    case 2: 
      *attribute = windowAttributes.width;
      break;
    case 3: 
      *attribute = windowAttributes.height;
      break;
    case 4: 
      *attribute = windowAttributes.border_width;
      break;
    case 5: 
      *attribute = windowAttributes.depth;
      break;
    case 6: 
      *attribute = windowAttributes.root;
      break;
    case 7: 
      *attribute =(unsigned long)windowAttributes.screen;
      break;
    case 8: 
      *attribute =(unsigned long)windowAttributes.visual;
      break;
    case 9: 
      *attribute = windowAttributes.class;
      break;
    case 10: 
      *attribute = windowAttributes.all_event_masks;
      break;
    case 11: 
      *attribute = windowAttributes.bit_gravity;
      break;
    case 12: 
      *attribute = windowAttributes.win_gravity;
      break;
    case 13: 
      *attribute = windowAttributes.backing_store;
      break;
    case 14: 
      *attribute = windowAttributes.backing_planes;
      break;
    case 15: 
      *attribute = windowAttributes.backing_pixel;
      break;
    case 16: 
      *attribute = windowAttributes.override_redirect;
      break;
    case 17: 
      *attribute = windowAttributes.save_under;
      break;
    case 18: 
      *attribute = windowAttributes.your_event_mask;
      break;
    case 19: 
      *attribute = windowAttributes.do_not_propagate_mask;
      break;
    case 20: 
      *attribute = windowAttributes.colormap;
      break;
    case 21: 
      *attribute = windowAttributes.map_installed;
      break;
    case 22: 
      *attribute = windowAttributes.map_state;
      break;
    default: 
      return FALSE;
      break;
    }
  return TRUE;
}

ptr_goal GoalFromPsiTerm

(

ptr_psi_term

psiTerm

)

GoalFromPsiTerm.

Parameters

psiTerm

- ptr_psi_term psiTerm

not used anymore, but interesting

Definition at line 3992 of file xpred.c.

References aim, Errorline(), FALSE, wl_residuation::goal, wl_residuation::next, NULL, and wl_psi_term::resid.

{
  ptr_residuation resid;
  ptr_goal aim;
  
  if(psiTerm == NULL)
    {
      Errorline("X error in GoalFromPsiTerm: psiTerm is null\n");
      return FALSE;
    }
  
  if((resid = psiTerm->resid) == NULL)
    {
      Errorline("X error in GoalFromPsiTerm: psiTerm has no residuating functions\n");
      return FALSE;
    }
  
  if(resid->next != NULL)
    {
      Errorline("X error in GoalFromPsiTerm: psiTerm has more than one residuating function\n");
      return FALSE;
    }
  
  if((aim = resid->goal) == NULL)
    {
      Errorline("X error in GoalFromPsiTerm: psiTerm has no goal\n");
      return FALSE;
    }
  
  return aim;
}

ptr_psi_term list_car

(

ptr_psi_term

lst

)

list_car

Parameters

lst	ptr_psi_term lst

HAD BEEN ptr_psi_term list_car(ptr_psi_term(lst)) changed 2.30 DJD 12/22/2016

Definition at line 2963 of file xpred.c.

References alist, wl_psi_term::attr_list, deref_ptr, Errorline(), get_two_args(), and wl_psi_term::type.

{
  ptr_psi_term car;
  ptr_psi_term cdr;
  
  deref_ptr(lst);
  if(lst->type==alist) {
    get_two_args(lst->attr_list,&car,&cdr);
    if(car) {
      deref_ptr(car);
      return car;
    }
  }
  
  Errorline("X event handling error in CAR(%P)\n",lst);
  return lst;
}

ptr_psi_term list_cdr

(

ptr_psi_term

lst

)

list_cdr

Parameters

lst	ptr_psi_term lst

HAD BEEN ptr_psi_term list_cdr(ptr_psi_term(lst)) changed 2.30 DJD 12/22/2016

Definition at line 2936 of file xpred.c.

References alist, wl_psi_term::attr_list, deref_ptr, Errorline(), get_two_args(), and wl_psi_term::type.

{
  ptr_psi_term car;
  ptr_psi_term cdr;
  
  deref_ptr(lst);
  if(lst->type==alist) {
    get_two_args(lst->attr_list,&car,&cdr);
    if(cdr) {
      deref_ptr(cdr);
      return cdr;
    }
  }
  
  Errorline("X event handling error in CDR(%P)\n",lst);
  return lst;
}

long list_is_nil

(

ptr_psi_term

lst

)

Definition at line 2923 of file xpred.c.

References deref_ptr, nil, and wl_psi_term::type.

{
  deref_ptr(lst);
  return lst->type==nil;
}

ptr_psi_term list_last_cdr

(

ptr_psi_term

lst

)

list_last_cdr

Parameters

lst	- ptr_psi_term lst

Definition at line 3019 of file xpred.c.

References list_cdr(), and list_is_nil().

{
  while(!list_is_nil(lst))
    lst=list_cdr(lst);
  return lst;
}

void list_remove_value	(	ptr_psi_term	lst,
		ptr_psi_term	value
	)

list_remove_value

Parameters

lst	- ptr_psi_term lst
value	- ptr_psi_term value

Definition at line 3103 of file xpred.c.

References wl_psi_term::coref, deref_ptr, FALSE, list_car(), list_cdr(), list_is_nil(), psi_term_ptr, push_ptr_value_global(), and TRUE.

{
  ptr_psi_term car,cdr;
  long still_there=TRUE;
  
  deref_ptr(value);
  while(!list_is_nil(lst) && still_there) {
    car=list_car(lst);
    cdr=list_cdr(lst);
    if(car==value) {
      still_there=FALSE;
      push_ptr_value_global(psi_term_ptr,(GENERIC *)&(lst->coref));
      lst->coref=cdr;
    }
    lst=cdr;
  }
}

void list_set_car	(	ptr_psi_term	lst,
		ptr_psi_term	value
	)

list_set_car

Parameters

lst	- ptr_psi_term lst
value	- ptr_psi_term value

Definition at line 2990 of file xpred.c.

References wl_psi_term::attr_list, deref_ptr, FEATCMP, one, and stack_insert().

{
  deref_ptr(lst);
  stack_insert(FEATCMP,one,&(lst->attr_list),(GENERIC)value);
}

void list_set_cdr	(	ptr_psi_term	lst,
		ptr_psi_term	value
	)

list_set_cdr

Parameters

lst	- ptr_psi_term lst
value	- ptr_psi_term value

Definition at line 3005 of file xpred.c.

References wl_psi_term::attr_list, deref_ptr, FEATCMP, stack_insert(), and two.

{
  deref_ptr(lst);
  stack_insert(FEATCMP,two,&(lst->attr_list),(GENERIC)value);
}

long map_funct_over_cars	(	ptr_psi_term	lst,
		long(*)()	proc,
		long *	closure
	)

map_funct_over_cars

Parameters

lst	- ptr_psi_term lst
proc	- long(*proc)()
closure	- long *closure

Definition at line 3078 of file xpred.c.

References list_car(), list_cdr(), list_is_nil(), and TRUE.

{
  ptr_psi_term cdr;
  int   notInterrupted = TRUE;
  
  while(notInterrupted && !list_is_nil(lst)) {
    /* save the next because the current could be removed
      (eg: xcFlushEvents) */
    
    cdr=list_cdr(lst);
    notInterrupted=(*proc)(list_car(lst),closure);
    lst=cdr;
  }
  
  return notInterrupted;
}

long map_funct_over_list	(	ptr_psi_term	lst,
		long(*)()	proc,
		long *	closure
	)

map_funct_over_list

Parameters

lst	- ptr_psi_term lst
proc	- long(*proc)()
closure	- long *closure

Definition at line 3056 of file xpred.c.

References list_cdr(), list_is_nil(), and TRUE.

{
  long notInterrupted=TRUE;
  
  while(notInterrupted && !list_is_nil(lst)) {
    notInterrupted =(*proc)(lst,closure);
    lst=list_cdr(lst);
  }
  
  return notInterrupted;
}

static long mask_match_type ( long  mask, long  type  )

static

mask_match_type

Parameters

mask	- long mask
type	- long type

Static returns TRUE if the mask matches the type

Definition at line 3628 of file xpred.c.

References FALSE, TRUE, and xevent_mask.

{
  long em;

  /* printf("mask=%d,type=%d=%s\n",mask,type,xevent_name[type]); */

  em=xevent_mask[type];
  if(!em ||(em & mask))
    return TRUE;

  /* printf("FALSE\n"); printf("event mask=%d\n",em); */
  
  return FALSE;
}

static ptr_psi_term NewPsi ( ptr_definition  t, char *  f, long  v  )

static

ptr_psi_term NewPsi

Parameters

t	- ptr_definition t
f	- char *f
v	- long v

Static build a psi-term of type t with a feature f of value v

Definition at line 314 of file xpred.c.

References bk_stack_add_int_attr(), stack_psi_term(), and wl_psi_term::type.

{
  ptr_psi_term p;
  
  p = stack_psi_term(4);
  p->type = t;
  bk_stack_add_int_attr(p,f,v);
  return p;
}

static void ResizePixmap ( ptr_psi_term  psi_window, Display *  display, Window  window, unsigned long  width, unsigned long  height  )

static

ResizePixmap.

Parameters

psi_window	- ptr_psi_term psi_window
display	- Display *display
window	- Window window
width	- unsigned long width
height	- unsigned long height

Static resize the pixmap of the window

Definition at line 400 of file xpred.c.

References bk_change_psi_attr(), bk_stack_add_int_attr(), GetIntAttr(), GetPsiAttr(), NewPsi(), and NULL.

{
  Pixmap pixmap;
  GC pixmapGC;
  ptr_psi_term psiPixmap,psiPixmapGC;
  XGCValues gcvalues;
  XWindowAttributes attr;
  ptr_psi_term psi_gc;
  
    
  /* free the old pixmap */
  psiPixmap = GetPsiAttr(psi_window,"pixmap");
  psiPixmapGC=NULL;
  
  if((pixmap = GetIntAttr(psiPixmap,"id")) != 0)
    {
      /* change the pixmap */
      XFreePixmap(display,pixmap);
      /* change the pixmap'gc too,because the gc is created on the pixmap ! */

      psiPixmapGC = GetPsiAttr(psiPixmap,"graphic_context");

      /*  RM: Jun 24 1993  */
      pixmapGC=(GC)GetIntAttr(psiPixmapGC,"id");
      if(pixmapGC)
    XFreeGC(display,pixmapGC);
      
      bk_stack_add_int_attr(psiPixmap,"id",(long)NULL);
      bk_stack_add_int_attr(psiPixmapGC,"id",(long)NULL);
    }
  
  /* init a new pixmap on the window */
  XGetWindowAttributes(display,window,&attr);
  if((pixmap = XCreatePixmap(display,window,
                   attr.width+1,attr.height+1,
                   attr.depth)) != 0)
    {
      bk_stack_add_int_attr(psiPixmap,"id",(long)pixmap);
      gcvalues.cap_style = CapRound;
      gcvalues.join_style = JoinRound;
      pixmapGC = XCreateGC(display,pixmap,
                GCJoinStyle|GCCapStyle,&gcvalues);

      /*  RM: Jun 24 1993  */
      if(psiPixmapGC)
    bk_stack_add_int_attr(psiPixmapGC,"id",(long)pixmapGC); // add cast DJD
      else
    psiPixmapGC=NewPsi(xgc,"id",(long)pixmapGC); // add cast DJD
      bk_change_psi_attr(psiPixmap,"graphic_context",psiPixmapGC);
    }
}

static long SetGCAttribute ( Display *  display, GC  gc, long  attributeId, long  attribute  )

static

SetGCAttribute.

Parameters

display	- Display *display
gc	- GC gc
attributeId	- long attributeId
attribute	- long attribute

SETGCATTRIBUTE

Definition at line 1978 of file xpred.c.

References FALSE, and TRUE.

{
  XGCValues attributes;
  unsigned long attributesMask = 0;
  
  switch(attributeId) 
    {
    case 0:
      attributes.function = attribute;
      attributesMask |= GCFunction;
      break;
    case 1:
      attributes.plane_mask = attribute;
      attributesMask |= GCPlaneMask;
      break;
    case 2:
      attributes.foreground = attribute;
      attributesMask |= GCForeground;
      break;
    case 3:
      attributes.background = attribute;
      attributesMask |= GCBackground;
      break;
    case 4:
      attributes.line_width = attribute;
      attributesMask |= GCLineWidth;
      break;
    case 5:
      attributes.line_style = attribute;
      attributesMask |= GCLineStyle;
      break;
    case 6:
      attributes.cap_style = attribute;
      attributesMask |= GCCapStyle;
      break;
    case 7:
      attributes.join_style = attribute;
      attributesMask |= GCJoinStyle;
      break;
    case 8:
      attributes.fill_style = attribute;
      attributesMask |= GCFillStyle;
      break;
    case 9:
      attributes.fill_rule = attribute;
      attributesMask |= GCFillRule;
      break;
    case 10:
      attributes.tile = attribute;
      attributesMask |= GCTile;
      break;
    case 11:
      attributes.stipple = attribute;
      attributesMask |= GCStipple;
      break;
    case 12:
      attributes.ts_x_origin = attribute;
      attributesMask |= GCTileStipXOrigin;
      break;
    case 13:
      attributes.ts_y_origin = attribute;
      attributesMask |= GCTileStipYOrigin;
      break;
    case 14:
      attributes.font = attribute;
      attributesMask |= GCFont;
      break;
    case 15:
      attributes.subwindow_mode = attribute;
      attributesMask |= GCSubwindowMode;
      break;
    case 16:
      attributes.graphics_exposures = attribute;
      attributesMask |= GCGraphicsExposures;
      break;
    case 17:
      attributes.clip_x_origin = attribute;
      attributesMask |= GCClipXOrigin;
      break;
    case 18:
      attributes.clip_y_origin = attribute;
      attributesMask |= GCClipYOrigin;
      break;
    case 19:
      attributes.clip_mask = attribute;
      attributesMask |= GCClipMask;
      break;
    case 20:
      attributes.dash_offset = attribute;
      attributesMask |= GCDashOffset;
      break;
    case 21: 
      attributes.dashes =(char)(0xFF & attribute);
      attributesMask |= GCDashList;
      break;
    case 22:
      attributes.arc_mode = attribute;
      attributesMask |= GCArcMode;
      break;
    default: 
      return FALSE;
      break;
    }
  
  XChangeGC(display,gc,attributesMask,&attributes);
  return TRUE;
}

static long SetWindowAttribute ( ptr_psi_term  psi_window, Display *  display, Drawable  window, unsigned long  attributeId, unsigned long  attribute  )

static

SetWindowAttribute.

Parameters

psi_window	- ptr_psi_term psi_window
display	- Display *display
window	- Drawable window
attributeId	- unsigned long attributeId
attribute	- unsigned long attribute

SetWindowAttribute

Definition at line 1318 of file xpred.c.

References FALSE, ResizePixmap(), and TRUE.

{
  XSetWindowAttributes attributes;
  XWindowChanges changes;
  unsigned long attributesMask = 0;
  unsigned long changesMask = 0;
  long backgroundChange = FALSE;
  long sizeChange = FALSE;
  unsigned int width,height;
  int x,y;
  unsigned int bw,d;
  Window r;
  
  switch(attributeId) 
    {
    case 0: 
      changes.x = attribute;
      changesMask |= CWX;
      break;
    case 1:
      changes.y = attribute;
      changesMask |= CWY;
      break;
    case 2:
      changes.width = attribute;
      changesMask |= CWWidth;
      XGetGeometry(display,window,&r,&x,&y,&width,&height,&bw,&d);
      width = attribute;
      sizeChange = TRUE;
      break;
    case 3:
      changes.height = attribute;
      changesMask |= CWHeight;
      XGetGeometry(display,window,&r,&x,&y,&width,&height,&bw,&d);
      height = attribute;
      sizeChange = TRUE;
      break;
    case 4:
      changes.border_width = attribute;
      changesMask |= CWBorderWidth;
      break;
    case 11:
      attributes.bit_gravity = attribute;
      attributesMask |= CWBitGravity;
      break;
    case 12:
      attributes.win_gravity = attribute;
      attributesMask |= CWWinGravity;
      break;
    case 13:
      attributes.backing_store = attribute;
      attributesMask |= CWBackingStore;
      break;
    case 14:
      attributes.backing_planes = attribute;
      attributesMask |= CWBackingPlanes;
      break;
    case 15:
      attributes.backing_pixel = attribute;
      attributesMask |= CWBackingPixel;
      break;
    case 16:
      attributes.override_redirect = attribute;
      attributesMask |= CWOverrideRedirect;
      break;
    case 17:
      attributes.save_under = attribute;
      attributesMask |= CWSaveUnder;
      break;
    case 18:
      attributes.event_mask = attribute;
      attributesMask |= CWEventMask;
      break;
    case 19:
      attributes.do_not_propagate_mask = attribute;
      attributesMask |= CWDontPropagate;
      break;
    case 20:
      attributes.colormap = attribute;
      attributesMask |= CWColormap;
      break;
    case 23:
      changes.sibling = attribute;
      changesMask |= CWSibling;
      break;
    case 24:
      changes.stack_mode = attribute;
      changesMask |= CWStackMode;
      break;
    case 25:
      attributes.background_pixmap = attribute;
      attributesMask |= CWBackPixmap;
      break;
    case 26:
      attributes.background_pixel = attribute;
      attributesMask |= CWBackPixel;
      backgroundChange = TRUE;
      
      /* change the backing_pixel in order to fill the pixmap with */
      attributes.backing_pixel = attribute;
      attributesMask |= CWBackingPixel;
      break;
    case 27:
      attributes.border_pixmap = attribute;
      attributesMask |= CWBorderPixmap;
      break;
    case 28:
      attributes.border_pixel = attribute;
      attributesMask |= CWBorderPixel;
      break;
    case 29:
      attributes.cursor = attribute;
      attributesMask |= CWCursor;
      break;
    default: 
      return FALSE;
      break;
    }
  
  if(changesMask)
    XConfigureWindow(display,window,changesMask,&changes);
  
  if(attributesMask)
    XChangeWindowAttributes(display,window,attributesMask,&attributes);
  
  if(backgroundChange)
    XClearArea(display,window,0,0,0,0,True);
  
  if(sizeChange)
    ResizePixmap(psi_window,display,window,width,height);
  
  return TRUE;
}

long unify_int_result	(	ptr_psi_term	t,
		long	v
	)

unify_int_result

Parameters

t	- ptr_psi_term t
v	- long v

Utility unify psi_term T to the integer value V could be in builtins.c

Definition at line 271 of file xpred.c.

References def_ptr, deref_ptr, FALSE, heap_alloc(), i_check_out(), int_ptr, integer, matches(), push_ptr_value(), REAL, release_resid(), wl_psi_term::resid, wl_psi_term::status, TRUE, wl_psi_term::type, and wl_psi_term::value_3.

{
  long smaller;
  long success=TRUE;
  
  
  deref_ptr(t);
  push_ptr_value(int_ptr,(GENERIC *)&(t->value_3));
  t->value_3 = heap_alloc(sizeof(REAL));
  *(REAL *) t->value_3 = v;
  
  matches(t->type,integer,&smaller);
  
  if(!smaller) 
    {
      push_ptr_value(def_ptr,(GENERIC *)&(t->type));
      t->type = integer;
      t->status = 0;
    }
  else
    success = FALSE;
  
  if(success) 
    {
      i_check_out(t);
      if(t->resid)
    release_resid(t);
    }
  
  return success;
}

static long WaitNextEvent ( long *  ptreventflag )

static

WaitNextEvent.

Parameters

ptreventflag

- long *ptreventflag

not a built-in called by what_next_aim in login.c

Definition at line 3496 of file xpred.c.

References Errorline(), exit_life(), FALSE, input_stream, interrupt(), start_of_line, stdin_fileno, TRUE, and x_exist_event().

{
  long nfds;
  fd_set readfd,writefd,exceptfd;
  struct timeval timeout;
  long charflag = FALSE,nbchar;
  char c = 0;
  
  *ptreventflag = FALSE;
  
  do
    {
      FD_ZERO(&readfd);
      FD_SET(stdin_fileno, &readfd);
      FD_ZERO(&writefd);
      FD_ZERO(&exceptfd);
      timeout.tv_sec = 0;
      timeout.tv_usec = 100000;

      nfds = select(32,&readfd,&writefd,&exceptfd,&timeout);
      if(nfds == -1)
    {
#if 0
      /* not an error,but a signal has been occured */
      /* handle_interrupt(); does not work */
      exit();
#endif
      if(errno != EINTR) 
        {
          Errorline("in select: interruption error.\n");
          exit_life(TRUE);
        }
      else 
        interrupt();
    }
      
      else
    if(nfds == 0)
      {
#ifdef X11
        if(x_exist_event())
          {
        *ptreventflag = TRUE;
        start_of_line = TRUE;
          }     
#endif
      }
    else
      {
        if(FD_ISSET(stdin_fileno, &readfd) != 0)
          {
#if 0
        if((nbchar = read(stdin_fileno,&c,1)) == -1)
          {
            Errorline("in select: keyboard error.\n");
            exit_life(TRUE);
          }
        
        /* see manpage of read */
        if(nbchar == 0)
          c = EOF;
#endif
        c = fgetc(input_stream);
        charflag = TRUE;
          }
        else
          {
        Errorline("select error.\n");
        exit_life(TRUE);
          }
      }
    } while(!(charflag || *ptreventflag));
  
  return c;
}

static void x_build_existing_event ( XEvent *  event, ptr_psi_term  beginSpan, ptr_psi_term  endSpan, long  eventType  )

static

x_build_existing_event

Parameters

event	- XEvent *event
beginSpan	- ptr_psi_term beginSpan
endSpan	- ptr_psi_term endSpan
eventType	- long eventType

Static builds xevent_existing

Definition at line 3677 of file xpred.c.

References bk_change_psi_attr(), list_remove_value(), psi_term_ptr, push_ptr_value_global(), warningline(), x_what_psi_event(), and xcEventToPsiTerm().

{
  ptr_psi_term psiEvent;

  /* printf("building event: type=%s event=%s\n",
     xevent_name[type],xevent_name[event->type]); */
  
  /* get the event from the list */
  psiEvent = x_what_psi_event(beginSpan,endSpan,eventType);
  
  /* put the event on the waiting event */
  bk_change_psi_attr(psiEvent,"event",xcEventToPsiTerm(event));
  
  /* set the global */
  if(xevent_existing)
    warningline("xevent_existing is non-null in x_build_existing_event");
  push_ptr_value_global(psi_term_ptr,(GENERIC *)&xevent_existing);
  xevent_existing = psiEvent;
  
  /* remove the event from the list */
  /* 9.10 */
  /* if(list_car(xevent_list) == psiEvent) */
  /*     push_ptr_value_global(psi_term_ptr,(GENERIC *)&xevent_list); */
  /* xevent_list = list_remove_value(xevent_list,psiEvent); */
  list_remove_value(xevent_list,psiEvent); /*  RM: Dec 15 1992  */
}

void x_destroy_window	(	Display *	display,
		Window	window
	)

x_destroy_window

Parameters

display	- Display *display
window	- Window window

used when backtracking a created window in order to destroy the window

Definition at line 3852 of file xpred.c.

{
  /* we need the psi-term window(not the value) to get the display list,the pixmap ...
     jch - Fri Aug  7 15:29:14 MET DST 1992
     
     FreeWindow(display,window);
     */
  XDestroyWindow(display,window);
  XSync(display,0);
}

long x_exist_event

(

)

x_exist_event

not a built-in used by main_prove() and what_next()

Definition at line 3787 of file xpred.c.

References wl_EventClosure::beginSpan, wl_EventClosure::display, FALSE, list_is_nil(), list_last_cdr(), map_funct_over_list(), wl_EventClosure::mask, NULL, TRUE, wl_psi_term::type, wl_EventClosure::window, x_build_existing_event(), and x_next_event_span().

{
  XEvent event,exposeEvent;
  ptr_psi_term eventElt;
  EventClosure eventClosure;
  

  /*Infoline("xevent_list=%P\n",xevent_list); */

  if(xevent_existing)
    return TRUE;
  
  if(list_is_nil(xevent_list)) {
    /* printf("nil event list\n"); */
    return FALSE;
  }

  
  /* traverse the list of waiting events */
  eventClosure.display = NULL;
  if(!map_funct_over_list(xevent_list,x_next_event_span,(long *)&eventClosure))
    return TRUE;

  /* printf("display=%d,window=%d,mask=%d\n",
     eventClosure.display,eventClosure.window,eventClosure.mask); */
  

  
  /* check the last span */
  if(XCheckWindowEvent(eventClosure.display,
             eventClosure.window,
             eventClosure.mask,
             &event)) {

    /* printf("*** here event %d ***\n",event.xany.type); */

    if(event.xany.window==eventClosure.window) {
      if(event.type == Expose)
    while(XCheckWindowEvent(eventClosure.display,
                  eventClosure.window,
                  ExposureMask,
                  &exposeEvent))
      ; /* that is continue until no expose event */
      
      /* build a psi-term containing the event */
      x_build_existing_event(&event,
                  eventClosure.beginSpan,
                  list_last_cdr(xevent_list),/* RM: Dec 15 1992*/
                  event.type);
      return TRUE;
    }
  }
  else
    return FALSE;
}

static long x_flush_event ( ptr_psi_term  eventElt, EventClosure *  closure  )

static

x_flush_event

Parameters

eventElt	- ptr_psi_term eventElt
closure	- EventClosure *closure

Static remove the event from the queue if matching

Definition at line 3215 of file xpred.c.

References wl_EventClosure::display, GetIntAttr(), list_car(), list_remove_value(), wl_EventClosure::mask, TRUE, and wl_EventClosure::window.

{
  ptr_psi_term psiEvent;
  
  psiEvent = list_car(eventElt);
  if ((Display *)GetIntAttr(psiEvent,"display") == closure->display
       && (Window)GetIntAttr(psiEvent,"window") ==closure->window
       && (GetIntAttr(psiEvent,"mask") & closure->mask) != 0)
    {
      /* 9.10 */
      /* if(xevent_list == eventElt) */
      /*     push_ptr_value_global(psi_term_ptr,(GENERIC *)&xevent_list); */
      /* xevent_list = list_remove_value(xevent_list,psiEvent); */
      list_remove_value(xevent_list,psiEvent); /*  RM: Dec 15 1992  */
    }
  
  return TRUE;
}

static int x_handle_error ( Display *  display, XErrorEvent *  x_error  )

static

x_handle_error

Parameters

display	- Display *display
x_error	- XErrorEvent *x_error

Definition at line 170 of file xpred.c.

References Errorline(), exit_life(), and TRUE.

{
  char msg[128];
  XGetErrorText(display,x_error->error_code,msg,128);
  Errorline("X error message: %s.\n",msg);
  /* don't use abort_life(TRUE) because it tries to destroy windows ...
     and loops because the window is yet in the stack !!
     jch - Fri Aug  7 17:58:27 MET DST 1992
     */
  exit_life(TRUE);
}

static int x_handle_fatal_error ( Display *  display )

static

x_handle_fatal_error

Parameters

display

- Display *display

Definition at line 188 of file xpred.c.

References Errorline(), exit_life(), and TRUE.

{
  Errorline("fatal X Error.\n");
  exit_life(TRUE);
}

void x_hide_subwindow	(	Display *	display,
		long	window
	)

x_hide_subwindow

Parameters

display	- Display *display
window	- long window

used when backtracking a xcMapWindow in order to hide the window

Definition at line 3915 of file xpred.c.

{
  XUnmapSubwindows(display,window);
  XSync(display,0);
}

void x_hide_window	(	Display *	display,
		long	window
	)

x_hide_window

Parameters

display	- Display *display
window	- long window

used when backtracking a xcMapWindow in order to hide the window

Definition at line 3885 of file xpred.c.

{
  XUnmapWindow(display,window);
  XSync(display,0);
}

static long x_next_event_span ( ptr_psi_term  eventElt, EventClosure *  eventClosure  )

static

x_next_event_span

Parameters

eventElt	- ptr_psi_term eventElt
eventClosure	- EventClosure *eventClosure

Static get the next span of waiting events

Definition at line 3713 of file xpred.c.

References wl_EventClosure::beginSpan, wl_EventClosure::display, FALSE, GetIntAttr(), list_car(), wl_EventClosure::mask, NULL, TRUE, wl_psi_term::type, wl_EventClosure::window, and x_build_existing_event().

{
  ptr_psi_term psiEvent;
  Display *display;
  Window window;
  long mask;
  XEvent event;

  
  psiEvent = list_car(eventElt);
  display =(Display *)GetIntAttr(psiEvent,"display");
  window =(Window)GetIntAttr(psiEvent,"window");
  mask = GetIntAttr(psiEvent,"mask");
  
  if(eventClosure->display == NULL) {
    /* new span */
    eventClosure->display = display;
    eventClosure->window = window;
    eventClosure->mask = mask;
    eventClosure->beginSpan = eventElt;
    return TRUE;
  }
  else
    if(eventClosure->display == display && eventClosure->window == window) {
      /* same span */
      eventClosure->mask |= mask;
      return TRUE;
    }
    else {
      /* a next span begins,check the current span */
    Repeat:
      if(XCheckWindowEvent(eventClosure->display,eventClosure->window,
                 eventClosure->mask,&event)
      /* && event.xany.window == eventClosure->window */)
    {
      /* 9.10 */
      /* printf("Event type = %ld.\n",event.type); */

      
      if((event.type==Expose || event.type==GraphicsExpose)
          && event.xexpose.count!=0) {
        /* printf("Expose count = %ld.\n", event.xexpose.count); */
        goto Repeat;
      }
      
      /* build a psi-term containing the event */
      
      /* printf("*** event %d ***\n",event.type); */
      
      x_build_existing_event(&event,
                  eventClosure->beginSpan,
                  eventElt,event.type);

      return FALSE; /* stop ! we have an existing event !! */
    }
      else
    {
      /* init the new span */
      eventClosure->display = display;
      eventClosure->window = window;
      eventClosure->mask = mask;
      eventClosure->beginSpan = eventElt;
      return TRUE;
    }
    }
}

long x_read_stdin_or_event

(

long *

ptreventflag

)

x_read_stdin_or_event

Parameters

ptreventflag

- long *ptreventflag

Definition at line 3578 of file xpred.c.

References EOLN, FALSE, infoline(), input_stream, line_count, NOTQUIET, NULL, old_saved_char, output_stream, prompt, saved_char, start_of_line, TRUE, verbose, and WaitNextEvent().

{
  long c = 0;
  
  *ptreventflag = FALSE;
  
  if(c = saved_char) /* not an error ;-) */
    {
      saved_char = old_saved_char;
      old_saved_char=0;
    }
  else
    {
      if(input_stream == NULL || feof(input_stream))
    c = EOF;
      else 
    {
      if(start_of_line) 
        {
          start_of_line = FALSE;
          line_count ++ ;
          infoline("%s",prompt); 
          fflush(output_stream);
        }
      
      c = WaitNextEvent(ptreventflag);
      
      if(*ptreventflag)
        {
          if(verbose) printf("<X event>");
          if(NOTQUIET) printf("\n"); /* 21.1 */
        }
      
      if(c == EOLN)
        start_of_line = TRUE;
    }
    }
  
  return c;
}

void x_setup_builtins

(

)

x_setup_builtins

SETUPBUILTINS Set up the X built-in predicates.

Definition at line 3374 of file xpred.c.

References function_it, new_built_in(), predicate_it, raw_setup_builtins(), set_current_module(), update_symbol(), x_handle_error(), x_handle_fatal_error(), x_module, xcClearWindow(), xcCloseConnection(), xcCoordPut(), xcCreateGC(), xcCreateSimpleWindow(), xcDefaultRootWindow(), xcDestroyGC(), xcDestroyWindow(), xcDrawArc(), xcDrawImageString(), xcDrawLine(), xcDrawPolygon(), xcDrawRectangle(), xcDrawString(), xcFillArc(), xcFillPolygon(), xcFillRectangle(), xcFlushEvents(), xcFreeColor(), xcGetConnectionAttribute(), xcGetEvent(), xcGetGCAttribute(), xcGetScreenAttribute(), xcGetWindowAttribute(), xcGetWindowGeometry(), xcLoadFont(), xcMapSubwindows(), xcMapWindow(), xcMoveWindow(), xcOpenConnection(), xcPointsAlloc(), xcPointsFree(), xcPostScriptWindow(), xcQueryPointer(), xcQueryTextExtents(), xcRaiseWindow(), xcRefreshWindow(), xcRequestColor(), xcRequestNamedColor(), xcResizeWindowPixmap(), xcSelectInput(), xcSetGCAttribute(), xcSetStandardProperties(), xcSetWindowAttribute(), xcSetWindowGeometry(), xcStringWidth(), xcSync(), xcUnloadFont(), xcUnmapSubwindows(), and xcUnmapWindow().

{
  set_current_module(x_module); /*  RM: Feb  3 1993  */
  
  raw_setup_builtins(); /* to move in life.c */
  
  XSetErrorHandler(x_handle_error);
  XSetIOErrorHandler(x_handle_fatal_error);
  
  set_current_module(x_module); /*  RM: Feb  3 1993  */
  xevent = update_symbol(x_module,"event");
  xkeyboard_event = update_symbol(x_module,"keyboard_event");
  xbutton_event = update_symbol(x_module,"button_event");
  xexpose_event = update_symbol(x_module,"expose_event");
  xdestroy_event = update_symbol(x_module,"destroy_event");
  
  /*** RM: 7/12/92 ***/
  xconfigure_event = update_symbol(x_module,"configure_event");
  xmotion_event = update_symbol(x_module,"motion_event");
  /*** RM: 7/12/92 ***/
  
  
  /*** RM: 3 May 92 ***/
  xenter_event = update_symbol(x_module,"enter_event");
  xleave_event = update_symbol(x_module,"leave_event");
  xmisc_event  = update_symbol(x_module,"misc_event");
  
  /*** RM: 3 May 92 ***/
  
  xdisplay = update_symbol(x_module,"display");
  xdrawable = update_symbol(x_module,"drawable");
  xwindow = update_symbol(x_module,"window");
  xpixmap = update_symbol(x_module,"pixmap");
  
  xgc = update_symbol(x_module,"graphic_context");
  xdisplaylist = update_symbol(x_module,"display_list");
  
  new_built_in(x_module,"xcOpenConnection",       (def_type) predicate_it,xcOpenConnection);
  new_built_in(x_module,"xcDefaultRootWindow",    (def_type) predicate_it,xcDefaultRootWindow);
  new_built_in(x_module,"xcGetScreenAttribute",   (def_type) predicate_it,xcGetScreenAttribute);
  new_built_in(x_module,"xcGetConnectionAttribute",(def_type) predicate_it,xcGetConnectionAttribute);
  new_built_in(x_module,"xcCloseConnection",      (def_type) predicate_it,xcCloseConnection);
  
  new_built_in(x_module,"xcCreateSimpleWindow", (def_type) predicate_it,xcCreateSimpleWindow);
#if 0
  new_built_in(x_module,"xcCreateWindow",       (def_type) predicate_it,xcCreateWindow);
#endif
  
  new_built_in(x_module,"xcSetStandardProperties", (def_type) predicate_it,xcSetStandardProperties);
  new_built_in(x_module,"xcGetWindowGeometry",  (def_type) predicate_it,xcGetWindowGeometry);
  new_built_in(x_module,"xcSetWindowGeometry",  (def_type) predicate_it,xcSetWindowGeometry);
  new_built_in(x_module,"xcGetWindowAttribute", (def_type) predicate_it,xcGetWindowAttribute);
  new_built_in(x_module,"xcSetWindowAttribute", (def_type) predicate_it,xcSetWindowAttribute);
  new_built_in(x_module,"xcMapWindow",          (def_type) predicate_it,xcMapWindow);
  
  /*  RM: May  6 1993  */
  new_built_in(x_module,"xcRaiseWindow",          (def_type) predicate_it,xcRaiseWindow);
  
  new_built_in(x_module,"xcUnmapWindow",        (def_type) predicate_it,xcUnmapWindow);
  
  /*** RM 8/12/92 ***/
  new_built_in(x_module,"xcMapSubwindows",          (def_type) predicate_it,xcMapSubwindows);
  new_built_in(x_module,"xcUnmapSubwindows",        (def_type) predicate_it,xcUnmapSubwindows);
  /*** RM 8/12/92 ***/
  
  new_built_in(x_module,"xcClearWindow",        (def_type) predicate_it,xcClearWindow);
  new_built_in(x_module,"xcResizeWindowPixmap", (def_type) predicate_it,xcResizeWindowPixmap);
  
  new_built_in(x_module,"xcSelectInput",        (def_type) predicate_it,xcSelectInput);
  new_built_in(x_module,"xcRefreshWindow",      (def_type) predicate_it,xcRefreshWindow);
  new_built_in(x_module,"xcPostScriptWindow",   (def_type) predicate_it,xcPostScriptWindow);
  new_built_in(x_module,"xcDestroyWindow",      (def_type) predicate_it,xcDestroyWindow);
  
  new_built_in(x_module,"xcCreateGC",           (def_type) predicate_it,xcCreateGC);
  new_built_in(x_module,"xcGetGCAttribute",     (def_type) predicate_it,xcGetGCAttribute);
  new_built_in(x_module,"xcSetGCAttribute",     (def_type) predicate_it,xcSetGCAttribute);
  new_built_in(x_module,"xcDestroyGC",          (def_type) predicate_it,xcDestroyGC);
  
  new_built_in(x_module,"xcDrawLine",           (def_type) predicate_it,xcDrawLine);
  new_built_in(x_module,"xcMoveWindow",         (def_type) predicate_it,xcMoveWindow);
  new_built_in(x_module,"xcDrawArc",            (def_type) predicate_it,xcDrawArc);
  new_built_in(x_module,"xcDrawRectangle",      (def_type) predicate_it,xcDrawRectangle);
  new_built_in(x_module,"xcDrawPolygon",        (def_type) predicate_it,xcDrawPolygon);
  
  new_built_in(x_module,"xcLoadFont",           (def_type) predicate_it,xcLoadFont);
  new_built_in(x_module,"xcUnloadFont",         (def_type) predicate_it,xcUnloadFont);
  new_built_in(x_module,"xcDrawString",         (def_type) predicate_it,xcDrawString);
  new_built_in(x_module,"xcDrawImageString",    (def_type) predicate_it,xcDrawImageString);
  new_built_in(x_module,"xcStringWidth",        (def_type) function_it, xcStringWidth);
  
  new_built_in(x_module,"xcRequestColor",       (def_type) predicate_it,xcRequestColor);
  new_built_in(x_module,"xcRequestNamedColor",  (def_type) predicate_it,xcRequestNamedColor);
  new_built_in(x_module,"xcFreeColor",          (def_type) predicate_it,xcFreeColor);
  
  new_built_in(x_module,"xcFillRectangle",      (def_type) predicate_it,xcFillRectangle);
  new_built_in(x_module,"xcFillArc",            (def_type) predicate_it,xcFillArc);
  new_built_in(x_module,"xcFillPolygon",        (def_type) predicate_it,xcFillPolygon);
  
  new_built_in(x_module,"xcPointsAlloc",        (def_type) predicate_it,xcPointsAlloc);
  new_built_in(x_module,"xcCoordPut",           (def_type) predicate_it,xcCoordPut);
  new_built_in(x_module,"xcPointsFree",         (def_type) predicate_it,xcPointsFree);
  
  new_built_in(x_module,"xcSync",               (def_type) predicate_it,xcSync);
  new_built_in(x_module,"xcGetEvent",           (def_type) function_it, xcGetEvent);
  new_built_in(x_module,"xcFlushEvents",        (def_type) predicate_it,xcFlushEvents);
  
  /*** RM: 7/12/92 ***/
  new_built_in(x_module,"xcQueryPointer",       (def_type) predicate_it,xcQueryPointer);
  /*** RM: 7/12/92 ***/
  
  /*  RM: Apr 20 1993  */
  new_built_in(x_module,"xcQueryTextExtents",(def_type) predicate_it,xcQueryTextExtents);
}

void x_show_subwindow	(	Display *	display,
		long	window
	)

x_show_subwindow

Parameters

display	- Display *display
window	- long window

used when backtracking a xcUnmapWindow in order to show the window

Definition at line 3901 of file xpred.c.

{
  XMapSubwindows(display,window);
  XSync(display,0);
}

void x_show_window	(	Display *	display,
		long	window
	)

x_show_window

Parameters

display	- Display *display
window	- long window

used when backtracking a xcUnmapWindow in order to show the window

Definition at line 3871 of file xpred.c.

{
  XMapWindow(display,window);
  XSync(display,0);
}

static long x_union_event ( ptr_psi_term  psiEvent, EventClosure *  closure  )

static

x_union_event

Parameters

psiEvent	- ptr_psi_term psiEvent
closure	- EventClosure *closure

Static return FALSE if the events match

Definition at line 3130 of file xpred.c.

References wl_EventClosure::display, GetIntAttr(), wl_EventClosure::mask, and wl_EventClosure::window.

{
  return !((Display *)GetIntAttr(psiEvent,"display") == closure->display
       && (Window)GetIntAttr(psiEvent,"window") == closure->window
       &&(GetIntAttr(psiEvent,"mask") & closure->mask) != 0);
}

static ptr_psi_term x_what_psi_event ( ptr_psi_term  beginSpan, ptr_psi_term  endSpan, long  eventType  )

static

x_what_psi_event

Parameters

beginSpan	- ptr_psi_term beginSpan
endSpan	- ptr_psi_term endSpan
eventType	- long eventType

Static returns the psi-event of the list corresponding to the existing event

Definition at line 3653 of file xpred.c.

References GetIntAttr(), list_car(), list_cdr(), and mask_match_type().

{
  if(beginSpan == endSpan)
    return list_car(beginSpan);
  else
    if(mask_match_type(GetIntAttr(list_car(beginSpan),"mask"),
             eventType))
      return list_car(beginSpan);
    else
      return x_what_psi_event(list_cdr(beginSpan),
                   endSpan,eventType);
}

long xcClearWindow

(

)

xcClearWindow

xcClearWindow xcClearWindow(+Connection,+Window) clear the Window on the display Connection.

Definition at line 1633 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, real, TRUE, WIND, WindowDisplayList, x_free_display_list(), and xwindow.

{
  include_var_builtin(2);
  ptr_definition types[2];
  
  types[0] = real;
  types[1] = xwindow;
  
  begin_builtin(xcClearWindow,2,2,types);
  
  XClearWindow(DISP(0),WIND(1));
XSync(DISP(0),0);
  
 x_free_display_list((ListHeader *)WindowDisplayList(args[1]));
  success = TRUE;
  
  end_builtin();
}

long xcCloseConnection

(

)

xcCloseConnection

xcCloseConnection xcCloseConnection(+Connection) Close the connection.

Definition at line 787 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, real, and TRUE.

{
  include_var_builtin(1);
  ptr_definition types[1];
  
  
  types[0] = real;
  
  begin_builtin(xcCloseConnection,1,1,types);
  
  XCloseDisplay(DISP(0));
  success = TRUE;
  
  end_builtin();
}

long xcCoordPut

(

)

xcCoordPut

CoordPut xcCoordPut(+Points,+N,+Coord) put nth coordinate in Points

Definition at line 2471 of file xpred.c.

References begin_builtin, end_builtin, include_var_builtin, real, and TRUE.

{
  include_var_builtin(3);
  ptr_definition types[3];
  short *Points;
  
  types[0] = real;
  types[1] = real;
  types[2] = real;
  
  begin_builtin(xcCoordPut,3,3,types);
  
  Points =(short *) val [0];
  Points += val[1];
  *Points = val[2];
  
  success = TRUE;
  
  end_builtin();
}

long xcCreateGC

(

)

xcCreateGC

CREATEGC xcCreateGC(+Connection,+Drawable,-GC) create a graphic context.

Definition at line 1810 of file xpred.c.

References begin_builtin, DISP, end_builtin, Errorline(), FALSE, include_var_builtin, REAL, real, TRUE, unify_real_result(), WIND, and xdrawable.

{
  include_var_builtin(3);
  ptr_definition types[3];
  GC gc;
  XGCValues GCvalues;
  
  types[0] = real;
  types[1] = xdrawable;
  types[2] = real;
  
  begin_builtin(xcCreateGC,3,2,types);
  
  if(gc = XCreateGC(DISP(0),WIND(1),0,&GCvalues))  /* RM: Feb  7 1994 */
    {
      unify_real_result(args[2],(REAL)(unsigned long) gc);
      success = TRUE;
    }
  else
    {
      Errorline("could not create gc in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcCreateSimpleWindow

(

)

xcCreateSimpleWindow

xcCreateSimpleWindow

xcCreateSimpleWindow(+Display,+Parent,+X,+Y,+Width,+Height, +BackGroundColor,+WindowTitle,+IconTitle, +BorderWidth,+BorderColor, +Permanent,+Show,-Window)

create a simple window.

Definition at line 816 of file xpred.c.

References arg_c, arg_v, begin_builtin, bk_change_psi_attr(), bk_stack_add_int_attr(), boolean, destroy_window, DISP, end_builtin, Errorline(), FALSE, include_var_builtin, NewPsi(), NULL, push_goal(), push_window(), quoted_string, real, ResizePixmap(), show(), show_window, stack_psi_term(), STRG, TRUE, wl_psi_term::type, unify, WIND, x_display_list(), x_show_window(), x_window_creation, and xwindow.

{
  include_var_builtin(14);
  ptr_definition types[14];
  Window window;
  Pixmap life_icon;
  XSizeHints hints;
  XWindowChanges changes;
  unsigned long changesMask;
  XSetWindowAttributes attributes;
  unsigned long attributesMask;
  long j;
  long permanent,show;
  Display *display;
  GC gc;
  XGCValues gcvalues;
  ptr_psi_term psiWindow;
  
  for(j = 0; j < 14; j++)
    types[j] = real;
  types[7]= quoted_string;
  types[8]= quoted_string;
  types[11]= boolean;
  types[12]= boolean;
  
  begin_builtin(xcCreateSimpleWindow,14,13,types);
  
  permanent = val[11];
  show = val[12];
  
  if(window = XCreateSimpleWindow(DISP(0),WIND(1),/* display,parent */
                    val[2],val[3],/* X,Y */
                    val[4],val[5],/* Width,Height */
                    val[9],val[10],/* BorderWidth,BorderColor */
                    val[6]))        /* BackGround */
    {
      psiWindow = stack_psi_term(4);
      psiWindow->type = xwindow;
      bk_stack_add_int_attr(psiWindow,"id",(long)window); // added cast DJD
      
      /* attach the icon of life */
      life_icon = XCreateBitmapFromData(DISP(0),window,life_icon_bits,
                     life_icon_width,life_icon_height);
      /* set properties */
#if 0
      hints.x = val[2];
      hints.y = val[3];
      hints.width =val[4] ;
      hints.height = val[5];
      hints.flags = PPosition | PSize;
#endif
      hints.flags = 0;
      XSetStandardProperties(DISP(0),window,
                 STRG(7),STRG(8),
                 life_icon,arg_v,arg_c,
                 &hints);   
#if 0
      changes.x = val[2];
      changes.y = val[3];
      changes.width =val[4] ;
      changes.height = val[5];
      changesMask = CWX | CWY | CWWidth | CWHeight;
      display = DISP(0);
      XReconfigureWMWindow(DISP(0),window,DefaultScreen(display),
                changesMask,&changes);
#endif
      /* set the background color */
      XSetWindowBackground(DISP(0),window,val[6]);
#if 0
      /* set the geometry before to show the window */
      XMoveResizeWindow(DISP(0),window,
             val[2],val[3],val[4],val[5]);
#endif
      /* set the back pixel in order to have the color when deiconify */
      attributes.background_pixel = val[6];
      attributes.backing_pixel = val[6];
      attributesMask = CWBackingPixel|CWBackPixel;
      XChangeWindowAttributes(DISP(0),window,
                   attributesMask,&attributes);
      
      if(!permanent)
    {
      push_window(destroy_window,(long)DISP(0),window);
      x_window_creation = TRUE;
    }
      else
    if(show)
      push_window(show_window,(long)DISP(0),window);
      
#if 0
      /* map window is made in xCreateWindow(see xpred.lf) */
      /* due to the flag overrideRedirect */
      if(show)
    x_show_window(DISP(0),window);
#endif
      
      /* create a GC on the window for the next outputs */
      gcvalues.cap_style = CapRound;
      gcvalues.join_style = JoinRound;
      gc = XCreateGC(DISP(0),window,GCJoinStyle|GCCapStyle,&gcvalues);
      bk_change_psi_attr(psiWindow,"graphic_context",
             NewPsi(xgc,"id",(long)gc));  // added cast DJD
      
      /* init a display list on the window for the refresh window */
      bk_change_psi_attr(psiWindow,"display_list",
             NewPsi(xdisplaylist,"id",(long)x_display_list())); // added cast DJD
      
      /* init a pixmap on the window for the refresh mechanism */
      bk_change_psi_attr(psiWindow,"pixmap",
             NewPsi(xpixmap,"id",(long)NULL));
      ResizePixmap(psiWindow,DISP(0),window,val[4],val[5]);
      
      push_goal(unify,psiWindow,args[13],NULL);
      success = TRUE;
    }
  else
    {
      Errorline("could not create a simple window in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcDefaultRootWindow

(

)

xcDefaultRootWindow

xcDefaultRootWindow xcDefaultRootWindow(+Display,-Root) return the root window of the given display

Definition at line 529 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, NewPsi(), NULL, push_goal(), real, TRUE, unify, and xdrawable.

{
  include_var_builtin(2);
  ptr_definition types[2];
  Display *display;
  ptr_psi_term psiRoot;
  
  types[0] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcDefaultRootWindow,2,1,types);
  
  display = DISP(0);
  
  psiRoot = NewPsi(xwindow,"id",(long)DefaultRootWindow(display)); // added cast DJD
  
  push_goal(unify,psiRoot,args[1],NULL);
  success = TRUE;
  
  end_builtin();
}

long xcDestroyGC

(

)

xcDestroyGC

DESTROYGC xcDestroyGC(+Connection,+GC) destroys a graphic context.

Definition at line 2126 of file xpred.c.

References begin_builtin, DISP, end_builtin, GCVAL, include_var_builtin, real, and TRUE.

{
  include_var_builtin(2);
  ptr_definition types[2];
  
  types[0] = real;
  types[1] = real;
  
  begin_builtin(xcDestroyGC,2,2,types);
  
  XFreeGC(DISP(0),GCVAL(1));
  success = TRUE;
  
  end_builtin();
}

long xcDestroyWindow

(

)

xcDestroyWindow

xcDestroyWindow xcDestroyWindow(+Connection,+Window) Close and destroy the window(unbacktrable).

Definition at line 1773 of file xpred.c.

References begin_builtin, clean_undo_window(), DISP, end_builtin, Errorline(), exit_life(), FALSE, FreeWindow(), GetPsiAttr(), include_var_builtin, wl_definition::keyword, real, wl_keyword::symbol, TRUE, wl_psi_term::type, WIND, and xwindow.

{
  include_var_builtin(2);
  ptr_definition types[2];
  ptr_psi_term psi;
  
  types[0] = real;
  types[1] = xwindow;
  
  begin_builtin(xcDestroyWindow,2,2,types);
  
  psi = GetPsiAttr(args[1],"permanent");
  if(!strcmp(psi->type->keyword->symbol,"true"))
    {
      Errorline("cannot destroy a permanent window.\n");
      exit_life(TRUE); /* was: main_loop_ok=FALSE; - jch */
      success = FALSE;
    }
  else
    {
      FreeWindow((Display *)val[0],args[1]);
      XDestroyWindow(DISP(0),WIND(1));
XSync(DISP(0),0);
      clean_undo_window((long)DISP(0),WIND(1));
      success = TRUE;
    }
  
  end_builtin();
}

long xcDrawArc

(

)

xcDrawArc

DrawArc xcDrawArc(+Connection,+Drawable,+X,+Y,+Width,+Height,+StartAngle,+ArcAngle, +Function,+Color,+LineWidth) draw arc(see X Vol.2 page 135 for the meanings of the arguments).

Definition at line 2291 of file xpred.c.

References begin_builtin, DISP, DrawableGC, end_builtin, include_var_builtin, real, TRUE, WindowDisplayList, x_record_arc(), x_set_gc(), xDefaultFont, and xdrawable.

{
  include_var_builtin(11);
  ptr_definition types[11];
  long j;
  GC gc;
  
  for(j = 0; j < 11; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcDrawArc,11,11,types);
  
  gc = DrawableGC(args[1]);
  x_set_gc((Display *)val[0],gc,val[8],val[9],val[10],xDefaultFont);
  
  XDrawArc(DISP(0),(Window) val[1],gc,/* Display,Window,GC */
        val[2],val[3],val[4],val[5],         /* X,Y,Width,Height */
        val[6],val[7]);                         /* StartAngle,ArcAngle */
  
  x_record_arc((ListHeader *)WindowDisplayList(args[1]),DRAW_ARC,
        val[2],val[3],val[4],val[5],
        val[6],val[7],val[8],val[9],val[10]);
  
XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

long xcDrawImageString

(

)

xcDrawImageString

DrawImageString xcDrawImageString(+Connection,+Drawable,+X,+Y,String, +Font,+Function,+Color) Print the string(foreground+background).

Definition at line 2699 of file xpred.c.

References begin_builtin, DISP, DrawableGC, end_builtin, include_var_builtin, quoted_string, real, STRG, TRUE, WIND, WindowDisplayList, x_record_string(), x_set_gc(), xDefaultLineWidth, and xdrawable.

{
  include_var_builtin(8);
  ptr_definition types[8];
  long j;
  GC gc;
  
  for(j = 0; j < 8; j++)
    types[j] = real;
  types[1] = xdrawable;
  types[4] = quoted_string;
  
  begin_builtin(xcDrawImageString,8,8,types);
  
  gc = DrawableGC(args[1]);
  x_set_gc((Display *)val[0],gc,val[6],val[7],xDefaultLineWidth,val[5]);
  
  XDrawImageString(DISP(0),WIND(1),gc,          /* Display,Window,GC */
            val[2],val[3],              /* X,Y */
            STRG(4),                      /* String */
            strlen(STRG(4)));    /* Length */
  
  x_record_string((ListHeader *)WindowDisplayList(args[1]),DRAW_IMAGE_STRING,
           val[2],val[3],               /* X,Y */
          STRG(4),              /* String */
           val[5],                       /* Font */
           val[6],val[7]);               /* Function,Color */
  
  XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

long xcDrawLine

(

)

xcDrawLine

DrawLine xcDrawLine(+Connection,+Drawable,+X0,+Y0,+X1,+Y1, +Function,+Color,+LineWidth) draw a line(X0,Y0) ->(X1,Y1)

Definition at line 2253 of file xpred.c.

References begin_builtin, DISP, DrawableGC, end_builtin, include_var_builtin, real, TRUE, WindowDisplayList, x_record_line(), x_set_gc(), xDefaultFont, and xdrawable.

{
  include_var_builtin(9);
  ptr_definition types[9];
  long j;
  GC gc;
  
  for(j = 0; j < 9; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcDrawLine,9,9,types);
  
  gc = DrawableGC(args[1]);
  x_set_gc((Display *)val[0],gc,val[6],val[7],val[8],xDefaultFont);
  
  XDrawLine(DISP(0),(Window) val[1],gc,/* Display,Window,GC */
         val[2],val[3],val[4],val[5]);         /* X0,Y0,X1,Y1 */
  
  x_record_line((ListHeader *)WindowDisplayList(args[1]),DRAW_LINE,
         val[2],val[3],val[4],val[5],
         val[6],val[7],val[8]);
  
XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

long xcDrawPolygon

(

)

xcDrawPolygon

DrawPolygon xcDrawPolygon(+Connection,+Drawable,+Points,+NbPoints, +Function,+Color,+LineWidth) draw a polygon.

Definition at line 2523 of file xpred.c.

References begin_builtin, DISP, DrawableGC, end_builtin, include_var_builtin, real, TRUE, WindowDisplayList, x_record_polygon(), x_set_gc(), xDefaultFont, and xdrawable.

{
  include_var_builtin(7);
  ptr_definition types[7];
  long j;
  GC gc;
  
  for(j = 0; j < 7; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcDrawPolygon,7,7,types);
  
  gc = DrawableGC(args[1]);
  x_set_gc((Display *)val[0],gc,val[4],val[5],val[6],xDefaultFont); 
  
  XDrawLines(DISP(0),(Window) val[1],gc,/* Display,Window,GC */
         (XPoint *)val[2],val[3],CoordModeOrigin);        /* Points,NbPoints,mode */
  
  x_record_polygon((ListHeader *)WindowDisplayList(args[1]),DRAW_POLYGON,
           (XPoint *)val[2],val[3],val[4],val[5],val[6]);
  
XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

long xcDrawRectangle

(

)

xcDrawRectangle

DrawRectangle xcDrawRectangle(+Connection,+Drawable,+X,+Y,+Width,+Height, +Function,+Color,+LineWidth) draw a rectangle.

Definition at line 2330 of file xpred.c.

References begin_builtin, DISP, DrawableGC, end_builtin, include_var_builtin, real, TRUE, WindowDisplayList, x_record_rectangle(), x_set_gc(), xDefaultFont, and xdrawable.

{
  include_var_builtin(9);
  ptr_definition types[9];
  long j;
  GC gc;
  
  for(j = 0; j < 9; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcDrawRectangle,9,9,types);
  
  gc = DrawableGC(args[1]);
  x_set_gc((Display *)val[0],gc,val[6],val[7],val[8],xDefaultFont);
  
  XDrawRectangle(DISP(0),(Window) val[1],gc,/* Display,Window,GC */
          val[2],val[3],val[4],val[5]);         /* X,Y,Width,Height */
  
  x_record_rectangle((ListHeader *)WindowDisplayList(args[1]),DRAW_RECTANGLE,
              val[2],val[3],val[4],val[5],
              val[6],val[7],val[8]);
  
XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

long xcDrawString

(

)

xcDrawString

DrawString xcDrawString(+Connection,+Drawable,+X,+Y,String, +Font,+Function,+Color) Print the string(only foreground).

Definition at line 2657 of file xpred.c.

References begin_builtin, DISP, DrawableGC, end_builtin, include_var_builtin, quoted_string, real, STRG, TRUE, WindowDisplayList, x_record_string(), x_set_gc(), xDefaultLineWidth, and xdrawable.

{
  include_var_builtin(8);
  ptr_definition types[8];
  long j;
  GC gc;
  
  for(j = 0; j < 8; j++)
    types[j] = real;
  types[1] = xdrawable;
  types[4] = quoted_string;
  
  begin_builtin(xcDrawString,8,8,types);
  
  gc = DrawableGC(args[1]);
  x_set_gc((Display *)val[0],gc,val[6],val[7],xDefaultLineWidth,val[5]);
  
  XDrawString(DISP(0),(Window) val[1],gc, /* Display,Window,GC */
           val[2],val[3],STRG(4),                  /* X,Y *//* String */
           strlen(STRG(4)));                /* Length */
  
  x_record_string((ListHeader *)WindowDisplayList(args[1]),DRAW_STRING,
           val[2],val[3],      /* X,Y */
          STRG(4),     /* String */
           val[5],              /* Font */
           val[6],val[7]);      /* Function,Color */
  
  XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

static ptr_psi_term xcEventToPsiTerm ( XEvent *  event )

static

xcEventToPsiTerm

Parameters

event

- XEvent *event

EVENTtoPSITERM

Definition at line 2802 of file xpred.c.

References bk_stack_add_int_attr(), BS, buffer, CR, NULL, stack_psi_term(), wl_psi_term::type, xbutton_event, xconfigure_event, xdestroy_event, xenter_event, xexpose_event, xkeyboard_event, xleave_event, xmisc_event, and xmotion_event.

{
  ptr_psi_term psiEvent,psi_str;
  KeySym keysym;
  char buffer[10];
  char tstr[2], *str;

  str=tstr;
  tstr[1]=0;
  
  psiEvent = stack_psi_term(4);
  bk_stack_add_int_attr(psiEvent,"display",(long)event->xany.display);
  bk_stack_add_int_attr(psiEvent,"window",(long)event->xany.window);
  
  switch(event->type) {
  case KeyPress:
  case KeyRelease:
    psiEvent->type = xkeyboard_event;
    bk_stack_add_int_attr(psiEvent,"x",event->xkey.x);
    bk_stack_add_int_attr(psiEvent,"y",event->xkey.y);
    bk_stack_add_int_attr(psiEvent,"state",event->xkey.state);
    
    buffer[0] = 0;
    *str = 0;
    XLookupString((XKeyEvent*)event,buffer,sizeof(buffer),&keysym,NULL);
    bk_stack_add_int_attr(psiEvent,"keycode",(long)buffer[0]);
    if(keysym==XK_Return || keysym==XK_KP_Enter || keysym==XK_Linefeed)
      *str = CR;
    else
      if(keysym == XK_BackSpace || keysym == XK_Delete)
    *str = BS;
      else
    if(isascii(buffer[0]))
      /* if(isalnum(buffer[0]) || isspace(buffer[0])) 8.10 */
      *str = buffer[0];
    
    bk_stack_add_int_attr(psiEvent,"char",(long)*str);
    break;
    
  case ButtonPress:
  case ButtonRelease:
    psiEvent->type = xbutton_event;
    bk_stack_add_int_attr(psiEvent,"x",(long)event->xbutton.x);
    bk_stack_add_int_attr(psiEvent,"y",(long)event->xbutton.y);
    bk_stack_add_int_attr(psiEvent,"x_root",(long)event->xbutton.x_root);
    bk_stack_add_int_attr(psiEvent,"y_root",(long)event->xbutton.y_root);
    bk_stack_add_int_attr(psiEvent,"state",(long)event->xbutton.state);
    bk_stack_add_int_attr(psiEvent,"button",(long)event->xbutton.button);
    break;
    
  case Expose:
    psiEvent->type = xexpose_event;
    bk_stack_add_int_attr(psiEvent,"width",(long)event->xexpose.width);
    bk_stack_add_int_attr(psiEvent,"height",(long)event->xexpose.height);
    break;
    
  case DestroyNotify:
    psiEvent->type = xdestroy_event;
    break;
    
    /*** RM 7/12/92 ***/
  case MotionNotify:
    psiEvent->type = xmotion_event;
    bk_stack_add_int_attr(psiEvent,"x",(long)event->xbutton.x);
    bk_stack_add_int_attr(psiEvent,"y",(long)event->xbutton.y);
    bk_stack_add_int_attr(psiEvent,"x_root",(long)event->xbutton.x_root);
    bk_stack_add_int_attr(psiEvent,"y_root",(long)event->xbutton.y_root);
    break;
    
  case ConfigureNotify:
    psiEvent->type = xconfigure_event;
    bk_stack_add_int_attr(psiEvent,"x",(long)event->xconfigure.x);
    bk_stack_add_int_attr(psiEvent,"y",(long)event->xconfigure.y);
    bk_stack_add_int_attr(psiEvent,"width",(long)event->xconfigure.width);
    bk_stack_add_int_attr(psiEvent,"height",(long)event->xconfigure.height);
    bk_stack_add_int_attr(psiEvent,"border_width",
               (long)event->xconfigure.border_width);
    break;
    /*** RM 7/12/92(END) ***/
    
    
    /*** RM: May 3rd 1993 ***/
  case EnterNotify:
    psiEvent->type = xenter_event;
    goto LeaveEnterCommon;
    
  case LeaveNotify:
    psiEvent->type = xleave_event;
    
  LeaveEnterCommon:
    bk_stack_add_int_attr(psiEvent,"root",    (long) event->xcrossing.root);
    bk_stack_add_int_attr(psiEvent,"subwindow",(long)event->xcrossing.subwindow);
    
    bk_stack_add_int_attr(psiEvent,"x",(long)event->xcrossing.x);
    bk_stack_add_int_attr(psiEvent,"y",(long)event->xcrossing.y);
    
    bk_stack_add_int_attr(psiEvent,"focus",(long)event->xcrossing.focus);
    bk_stack_add_int_attr(psiEvent,"state",(long)event->xcrossing.state);
    
    break;
    
    
  default:
    psiEvent->type = xmisc_event;
    bk_stack_add_int_attr(psiEvent,"event_type",(long)event->type);
    break;
  }
  
  return psiEvent;
}

long xcFillArc

(

)

xcFillArc

FillArc xcFillArc(+Connection,+Drawable,+X,+Y,+Width,+Height,+StartAngle,+ArcAngle, +Function,+Color) fill an arc.

Definition at line 2407 of file xpred.c.

References begin_builtin, DISP, DrawableGC, end_builtin, include_var_builtin, real, TRUE, WindowDisplayList, x_record_arc(), x_set_gc(), xDefaultFont, xDefaultLineWidth, and xdrawable.

{
  include_var_builtin(10);
  ptr_definition types[10];
  long j;
  GC gc;
  
  for(j = 0; j < 10; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcFillArc,10,10,types);
  
  gc = DrawableGC(args[1]);
  x_set_gc((Display *)val[0],gc,val[8],val[9],xDefaultLineWidth,xDefaultFont);
  
  XFillArc(DISP(0),(Window) val[1],gc,/* Display,Window,GC */
        val[2],val[3],val[4],val[5],         /* X,Y,Width,Height */
        val[6],val[7]);                         /* StartAngle,ArcAngle */
  
  x_record_arc((ListHeader *)WindowDisplayList(args[1]),FILL_ARC,
        val[2],val[3],val[4],val[5],
        val[6],val[7],val[8],val[9],
        xDefaultLineWidth);
  
XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

long xcFillPolygon

(

)

xcFillPolygon

FillPolygon xcFillPolygon(+Connection,+Drawable,+Points,+NbPoints,+Function,+Color) fill a polygon.

Definition at line 2558 of file xpred.c.

References begin_builtin, DISP, DrawableGC, end_builtin, include_var_builtin, real, TRUE, WindowDisplayList, x_record_polygon(), x_set_gc(), xDefaultFont, xDefaultLineWidth, and xdrawable.

{
  include_var_builtin(6);
  ptr_definition types[6];
  long j;
  GC gc;
  
  for(j = 0; j < 6; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcFillPolygon,6,6,types);
  
  gc = DrawableGC(args[1]);
  x_set_gc((Display *)val[0],gc,val[4],val[5],xDefaultLineWidth,xDefaultFont); 
  
  XFillPolygon(DISP(0),(Window) val[1],gc,/* Display,Window,GC */
           (XPoint *)val[2],val[3],   /* Points,NbPoints */
           Complex,CoordModeOrigin);  /* shape,mode */
  
  x_record_polygon((ListHeader *)WindowDisplayList(args[1]),FILL_POLYGON,
           (XPoint *)val[2],val[3],val[4],val[5],
            xDefaultLineWidth);
  
  XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

long xcFillRectangle

(

)

xcFillRectangle

FillRectangle xcFillRectangle(+Connection,+Drawable,+X,+Y,+Width,+Height, +Function,+Color) fill a rectangle.

Definition at line 2368 of file xpred.c.

References begin_builtin, DISP, DrawableGC, end_builtin, include_var_builtin, real, TRUE, WindowDisplayList, x_record_rectangle(), x_set_gc(), xDefaultFont, xDefaultLineWidth, and xdrawable.

{
  include_var_builtin(8);
  ptr_definition types[8];
  long j;
  GC gc;
  
  for(j = 0; j < 8; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcFillRectangle,8,8,types);
  
  gc = DrawableGC(args[1]);
  x_set_gc((Display *)val[0],gc,val[6],val[7],xDefaultLineWidth,xDefaultFont); 
  
  XFillRectangle(DISP(0),(Window) val[1],gc,/* Display,Window,GC */
          val[2],val[3],val[4],val[5]);         /* X,Y,Width,Height */
  
  x_record_rectangle((ListHeader *)WindowDisplayList(args[1]),FILL_RECTANGLE,
              val[2],val[3],val[4],val[5],
              val[6],val[7],
              xDefaultLineWidth);
  
XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

long xcFlushEvents

(

)

xcFlushEvents

FlushEvents xcFlushEvents(+Display,+Window,+Mask) flush all residuated events matching(display,window,mask).

Definition at line 3242 of file xpred.c.

References begin_builtin, DISP, wl_EventClosure::display, end_builtin, include_var_builtin, map_funct_over_list(), wl_EventClosure::mask, real, TRUE, wl_EventClosure::window, x_flush_event(), and xwindow.

{
  include_var_builtin(3);
  ptr_definition types[3];
  EventClosure eventClosure;
  
  types[0] = real;
  types[1] = xwindow;
  types[2] = real;
  
  begin_builtin(xcFlushEvents,3,3,types);
  
  eventClosure.display =DISP(0);
  eventClosure.window  = val[1];
  eventClosure.mask    = val[2];
  map_funct_over_list(xevent_list,x_flush_event,(long *)&eventClosure);
  
  success = TRUE;
  
  end_builtin();
}

long xcFreeColor

(

)

xcFreeColor

FREECOLOR xcFreeColor(+Connection,+ColorMap,+Pixel) free the color in the colormap

Definition at line 2225 of file xpred.c.

References begin_builtin, CMAP, DISP, end_builtin, include_var_builtin, real, and TRUE.

{
  include_var_builtin(3);
  ptr_definition types[3];
  long j;
  unsigned long pixel;
  
  for(j=0; j<3; j++)
    types[j] = real;
  
  begin_builtin(xcFreeColor,3,3,types);
  
  pixel = val[2];
  XFreeColors(DISP(0),CMAP(1),&pixel,1,0);
  success = TRUE;
  
  end_builtin();
}

long xcGetConnectionAttribute

(

)

xcGetConnectionAttribute

long xcQueryTextExtents(); xcGetConnectionAttribute xcGetConnectionAttribute(+Display,+AttributeId,-Value) returns the value corresponding to the attribute id.

Definition at line 641 of file xpred.c.

References begin_builtin, DISP, DRAW, end_builtin, Errorline(), FALSE, GetConnectionAttribute(), include_var_builtin, REAL, real, TRUE, and unify_real_result().

{
  include_var_builtin(3);
  ptr_definition types[3];
  long attr;
  
  types[0] = real;
  types[1] = real;
  types[2] = real;
  
  begin_builtin(xcGetConnectionAttribute,3,2,types);
  
  if(GetConnectionAttribute(DISP(0),DRAW(1),&attr))
    {
      unify_real_result(args[2],(REAL) attr);
      success = TRUE;
    }
  else
    {
      Errorline("could not get connection attribute in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcGetEvent

(

)

xcGetEvent

GetEvent xcGetEvent(+Display,+Window,+Mask) return an event matching the mask in the window. if no event residuate the call else return a null event.

Definition at line 3146 of file xpred.c.

References aim, append_to_list(), wl_goal::bbbb_1, begin_builtin, bk_stack_add_int_attr(), DISP, wl_EventClosure::display, end_builtin, GetPsiAttr(), include_var_builtin, map_funct_over_cars(), wl_EventClosure::mask, NULL, psi_term_ptr, push_goal(), push_ptr_value_global(), real, residuate(), stack_psi_term(), TRUE, unify, warningline(), WIND, wl_EventClosure::window, x_union_event(), and xwindow.

{
  include_var_builtin(3);
  ptr_definition types[3];
  XEvent event;
  ptr_psi_term psiEvent;
  ptr_psi_term eventElt;
  EventClosure eventClosure;
  ptr_psi_term result;
  
  types[0] = real;
  types[1] = xwindow;
  types[2] = real;

  result=aim->bbbb_1;
  
  begin_builtin(xcGetEvent,3,3,types);
  
  if(!xevent_existing) {
        
    /* warning if a same event is already waiting */
    eventClosure.display =DISP(0);
    eventClosure.window  =WIND(1);
    eventClosure.mask    = val[2];
    if(!map_funct_over_cars(xevent_list,x_union_event,(long *)&eventClosure))
      warningline("you have coinciding event handlers on the same window");
    
    /* transform the request into a psi-term */
    eventElt = stack_psi_term(4);
    bk_stack_add_int_attr(eventElt,"display",(long)val[0]);
    bk_stack_add_int_attr(eventElt,"window",(long)val[1]);
    bk_stack_add_int_attr(eventElt,"mask",(long)val[2]);

    /* stack_insert(FEATURECMP,"event",&(eventElt->attr_list),(GENERIC)result); */
           
    /* add the request in the list of waiting events */
    append_to_list(xevent_list,eventElt); /*  RM: Dec 15 1992  */
      
    /* residuate the call */
    residuate(eventElt);  /* RM: May  5 1993  */
    
    /* return a psi-term containing an `empty' event */
    /* psiEvent = stack_psi_term(4);
       psiEvent->type = xevent;  RM: May  5 1993  */
  }
  else {
    /* get the event built by x_exist_event */
    psiEvent = GetPsiAttr(xevent_existing,"event");
    push_ptr_value_global(psi_term_ptr,(GENERIC *)&xevent_existing);
    xevent_existing = NULL;
    push_goal(unify,psiEvent,aim->bbbb_1,NULL); /*  RM: May  5 1993  */
  }
  
  /* push_goal(unify,psiEvent,aim->bbbb_1,NULL);   RM: May  5 1993  */
  
  success = TRUE;
  
  end_builtin();
}

long xcGetGCAttribute

(

)

xcGetGCAttribute

GETGCATTRIBUTE xcGetGCAttribute(+GC,+AttributeId,-Val) get the value of the attribute id of GC.

Definition at line 1942 of file xpred.c.

References begin_builtin, DISP, end_builtin, Errorline(), FALSE, GCVAL, GetGCAttribute(), include_var_builtin, REAL, real, TRUE, and unify_real_result().

{
  include_var_builtin(3);
  ptr_definition types[3];
  long attr;
  
  types[0] = real;
  types[1] = real;
  types[2] = real;
  
  begin_builtin(xcGetGCAttribute,3,2,types);
  
  if(GetGCAttribute((GC)DISP(0),(long)GCVAL(1),&attr))
    {
      unify_real_result(args[2],(REAL) attr);
      success = TRUE;
    }
  else
    {
      Errorline("could not get gc attribute in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcGetScreenAttribute

(

)

xcGetScreenAttribute

xcGetScreenAttribute xcGetScreenAttribute(+Display,+Screen,+AttributeId,-Value) returns the value corresponding to the attribute id.

Definition at line 752 of file xpred.c.

References begin_builtin, DISP, DRAW, end_builtin, Errorline(), FALSE, GetScreenAttribute(), include_var_builtin, REAL, real, TRUE, and unify_real_result().

{
  include_var_builtin(4);
  ptr_definition types[4];
  long attr;
  
  types[0] = real;
  types[1] = real;
  types[2] = real;
  types[3] = real;
  
  begin_builtin(xcGetScreenAttribute,4,3,types);
  
  if(GetScreenAttribute(DISP(0),DRAW(1),val[2],&attr))
    {
      unify_real_result(args[3],(REAL) attr);
      success = TRUE;
    }
  else
    {
      Errorline("could not get screen attribute in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcGetWindowAttribute

(

)

xcGetWindowAttribute

xcGetWindowAttribute xcGetWindowAttribute(+Display,+Window,+AttributeId,-Value) returns the value corresponding to the attribute id of the window.

Definition at line 1221 of file xpred.c.

References begin_builtin, DISP, end_builtin, Errorline(), FALSE, GetWindowAttribute(), include_var_builtin, REAL, real, TRUE, unify_real_result(), WIND, and xwindow.

{
  include_var_builtin(4);
  ptr_definition types[4];
  long attr;
  
  
  types[0] = real;
  types[1] = xwindow;
  types[2] = real;
  types[3] = real;
  
  begin_builtin(xcGetWindowAttribute,4,3,types);
  
  if(GetWindowAttribute(DISP(0),WIND(1),val[2],&attr))
    {
      unify_real_result(args[3],(REAL) attr);
      success = TRUE;
    }
  else
    {
      Errorline("could not get a window attribute in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcGetWindowGeometry

(

)

xcGetWindowGeometry

xcGetWindowGeometry xcGetWindowGeometry(+Display,+Window,-X,-Y,-Width,-Height) returns the geometry of the window.

Definition at line 1087 of file xpred.c.

References begin_builtin, DISP, DRAW, end_builtin, Errorline(), FALSE, include_var_builtin, REAL, real, TRUE, unify_real_result(), and xdrawable.

{
  include_var_builtin(6);
  ptr_definition types[6];
  int j,x,y;
  unsigned int w,h,bw,d;
  Window r;
  
  for(j=0; j<6; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcGetWindowGeometry,6,2,types);
  
  if(XGetGeometry(DISP(0),DRAW(1),
            &r,&x,&y,&w,&h,&bw,&d))
    {
      unify_real_result(args[2],(REAL) x);
      unify_real_result(args[3],(REAL) y);
      unify_real_result(args[4],(REAL) w);
      unify_real_result(args[5],(REAL) h);
      success = TRUE;
    }
  else
    {
      Errorline("could not get the geometry in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcLoadFont

(

)

xcLoadFont

LoadFont xcLoadFont(+Connection,+Name,-Font) load a font.

Definition at line 2596 of file xpred.c.

References begin_builtin, DISP, end_builtin, Errorline(), FALSE, include_var_builtin, quoted_string, REAL, real, STRG, TRUE, and unify_real_result().

{
  include_var_builtin(3);
  ptr_definition types[3];
  Font font;
  
  types[0] = real;
  types[1] = quoted_string;
  types[2] = real;
  
  begin_builtin(xcLoadFont,3,2,types);
  
  if(font=XLoadFont(DISP(0),STRG(1)))
    {
      unify_real_result(args[2],(REAL) font);
      XSync(DISP(0),0);
      success = TRUE;
    }
  else
    {
      Errorline("could not load a font in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcMapSubwindows

(

)

xcMapSubwindows

xcMapSubwindows xcMapSubwindows(+Connection,+Window) map the sub-windows on the display Connection.

Definition at line 1577 of file xpred.c.

References begin_builtin, DISP, end_builtin, hide_subwindow, include_var_builtin, push_window(), real, TRUE, and WIND.

{
  include_var_builtin(2);
  ptr_definition types[2];
  
  types[0] = real;
  types[1] = real;
  
  begin_builtin(xcMapSubwindow,2,2,types);
  
  XMapSubwindows(DISP(0),WIND(1));
  XSync(DISP(0),0);
  
  push_window(hide_subwindow,(long)DISP(0),WIND(1));
  success = TRUE;
  
  end_builtin();
}

long xcMapWindow

(

)

xcMapWindow

xcMapWindow xcMapWindow(+Connection,+Window) map the Window on the display Connection.

Definition at line 1494 of file xpred.c.

References begin_builtin, DISP, end_builtin, hide_window, include_var_builtin, push_window(), real, TRUE, and WIND.

{
  include_var_builtin(2);
  ptr_definition types[2];
  
  types[0] = real;
  types[1] = real;
  
  begin_builtin(xcMapWindow,2,2,types);
  
  XMapWindow(DISP(0),WIND(1));
  XSync(DISP(0),0);
  
  push_window(hide_window,(long)DISP(0),val[1]);
  success = TRUE;
  
  end_builtin();
}

long xcMoveWindow

(

)

xcMoveWindow

xcMoveWindow xcMoveWindow(+Display,+Window,+X,+Y) Move a window to a different location.

Definition at line 1288 of file xpred.c.

References begin_builtin, DISP, DRAW, end_builtin, include_var_builtin, real, TRUE, and xdrawable.

{
  include_var_builtin(4);
  ptr_definition types[4];
  long j;
  
  for(j=0; j<4; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcMoveWindow,4,4,types);
  
  XMoveWindow(DISP(0),DRAW(1), val[2],val[3]);
  
  success = TRUE;
  
  end_builtin();
}

long xcOpenConnection

(

)

xcOpenConnection

xcOpenConnection xcOpenConnection(+Name,-Connection) open a connection to the X server.

Definition at line 485 of file xpred.c.

References begin_builtin, end_builtin, Errorline(), FALSE, include_var_builtin, NewPsi(), NULL, push_goal(), quoted_string, STRG, TRUE, unify, and xdisplay.

{
  include_var_builtin(2);
  ptr_definition types[2];
  char *display;
  Display * connection;
  ptr_psi_term psiConnection;
  
  
  types[0] = quoted_string;
  types[1] = xdisplay;
  
  
  begin_builtin(xcOpenConnection,2,1,types);
  
  if(strcmp(STRG(0),""))
    display =STRG(0);
  else
    display = NULL; 
  
  if(connection = XOpenDisplay(display))
    {
      psiConnection = NewPsi(xdisplay,"id",(long)connection); // add cast DJD
      push_goal(unify,psiConnection,args[1],NULL);
      
      success = TRUE;
    }
  else
    {
      Errorline("could not open connection in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcPointsAlloc

(

)

xcPointsAlloc

PointsAlloc xcPointsAlloc(+NbPoints,-Points) allocate n points

Definition at line 2445 of file xpred.c.

References begin_builtin, end_builtin, include_var_builtin, REAL, real, TRUE, and unify_real_result().

{
  include_var_builtin(2);
  ptr_definition types[2];
  long Points;
  
  types[0] = real;
  types[1] = real;
  
  begin_builtin(xcPointsAlloc,2,1,types);
  Points =(long) malloc((val [0]) * 2 * sizeof(short));
  unify_real_result(args[1],(REAL) Points);
  
  success = TRUE;
  
  end_builtin();
}

long xcPointsFree

(

)

xcPointsFree

PointsFree xcPointsFree(+Points) free points

Definition at line 2500 of file xpred.c.

References begin_builtin, end_builtin, include_var_builtin, real, and TRUE.

{
  include_var_builtin(1);
  ptr_definition types[1];
  
  types[0] = real;
  
  begin_builtin(xcPointsFree,1,1,types);
  free((void *)val [0]);
  success = TRUE;
  
  end_builtin();
}

long xcPostScriptWindow

(

)

xcPostScriptWindow

xcPostScriptWindow xcPostScriptWindow(+Display,+Window,Filename) output the contents of the window in Filename

Definition at line 1749 of file xpred.c.

References begin_builtin, end_builtin, GetIntAttr(), GetPsiAttr(), include_var_builtin, quoted_string, real, x_postscript_window(), and xwindow.

{
  include_var_builtin(3);
  ptr_definition types[3];
  
  types[0] = real;
  types[1] = xwindow;
  types[2] = quoted_string;
  
  begin_builtin(xcPostScriptWindow,3,3,types);
  
  success = x_postscript_window((Display *) val[0],val[1],(ListHeader *)GetIntAttr(GetPsiAttr(args[1],"display_list"),"id"),(char *)val[2]);
  
  end_builtin();
}

long xcQueryPointer

(

)

xcQueryPointer

xcQueryPointer xcQueryPointer(+Display,+Window, -root_return, -child_return, -root_x_return,-root_y_return, -win_x_return, -win_y_return, -mask_return, -same_screen)

this predicate returns a psi-term containing loads of info about where the pointer is at. See 'XQueryPointer' for a complete definition(the boolean result of XQueryPointer is stored as 'same_screen'.

Definition at line 3322 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, REAL, real, TRUE, unify_real_result(), WIND, and xdrawable.

{
  include_var_builtin(10);
  ptr_definition types[10];
  Window root_return,child_return;
  int root_x_return,root_y_return;
  int win_x_return,win_y_return;
  unsigned int mask_return;
  long same_screen;
  long j;
  
  for(j=0; j<10; j++)
    types[j] = real;
  
  types[1] = xdrawable;
  
  begin_builtin(xcQueryPointer,10,2,types);
  
  
  same_screen=XQueryPointer(DISP(0),
                WIND(1),
                &root_return,  &child_return,
                &root_x_return,&root_y_return,
                &win_x_return, &win_y_return,
                &mask_return);
  
  
  unify_real_result(args[2],(REAL)root_return);
  unify_real_result(args[3],(REAL)child_return);
  unify_real_result(args[4],(REAL)root_x_return);
  unify_real_result(args[5],(REAL)root_y_return);
  unify_real_result(args[6],(REAL)win_x_return);
  unify_real_result(args[7],(REAL)win_y_return);
  unify_real_result(args[8],(REAL)mask_return);
  unify_real_result(args[9],(REAL)same_screen);
  
  /* printf("root: %ld\nchild: %ld\n",root_return,child_return); */
  
  success = TRUE;
  
  end_builtin();
}

long xcQueryTextExtents

(

)

xcQueryTextExtents

xcQueryTextExtents(display,font,string, direction,font-ascent,font-descent, left-bearing,right-bearing,width,ascent,descent)

Definition at line 3933 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, quoted_string, REAL, real, STRG, unify_real_result(), and xcLoadFont().

{
  include_var_builtin(11);
  ptr_definition types[11];
  Font font;
  XCharStruct over;
  int i;
  int direction,ascent,descent; /* RM: 28 Jan 94 */
  
  types[0] = real;   /* +Display       */
  types[1] = real;   /* +Font ID       */
  types[2] = quoted_string; /* +String        */
  types[3] = real;   /* -Direction     */
  types[4] = real;   /* -Font-ascent   */
  types[5] = real;   /* -Font-descent  */
  types[6] = real;   /* -left bearing  */
  types[7] = real;   /* -right bearing */
  types[8] = real;   /* -width         */
  types[9] = real;   /* -ascent        */
  types[10]= real;   /* -descent       */
  
  
  
  begin_builtin(xcLoadFont,11,3,types);
  

  XQueryTextExtents(DISP(0),
            (XID)val[1],
            STRG(2),
            strlen(STRG(2)),
            &direction,
            &ascent,
            &descent,
            &over);

  val[3]=direction;
  val[4]=ascent;
  val[5]=descent;
  
  val[6] =over.lbearing;
  val[7] =over.rbearing;
  val[8] =over.width;
  val[9] =over.ascent;
  val[10]=over.descent;
  
  for(i=3;i<11;i++)
    unify_real_result(args[i],(REAL)val[i]);
  
  end_builtin();
}

long xcRaiseWindow

(

)

xcRaiseWindow

xcRaiseWindow xcRaiseWindow(+Connection,+Window) raise the Window on the display Connection.

Definition at line 1522 of file xpred.c.

References begin_builtin, DISP, end_builtin, hide_window, include_var_builtin, push_window(), real, TRUE, and WIND.

{
  include_var_builtin(2);
  ptr_definition types[2];
  
  types[0] = real;
  types[1] = real;
  
  begin_builtin(xcRaiseWindow,2,2,types);
  
  XRaiseWindow(DISP(0),WIND(1));
  XSync(DISP(0),0);
  
  push_window(hide_window,(long)DISP(0),WIND(1));
  success = TRUE;
  
  end_builtin();
}

long xcRefreshWindow

(

)

xcRefreshWindow

xcRefreshWindow xcRefreshWindow(+Connection,+Window) refresh the window

Definition at line 1714 of file xpred.c.

References begin_builtin, DrawableGC, end_builtin, GetIntAttr(), GetPsiAttr(), include_var_builtin, real, TRUE, WindowDisplayList, x_refresh_window(), and xwindow.

{
  include_var_builtin(2);
  ptr_definition types[2];
  Pixmap pixmap;
  ptr_psi_term psiPixmap;
  
  types[0] = real;
  types[1] = xwindow;
  
  begin_builtin(xcRefreshWindow,2,2,types);
  
  psiPixmap = GetPsiAttr(args[1],"pixmap");
  if((pixmap =(Pixmap) GetIntAttr(psiPixmap,"id")) != 0)
    x_refresh_window((Display *)val[0],val[1],pixmap,
              DrawableGC(psiPixmap),
             (ListHeader *)WindowDisplayList(args[1]));
  else
    x_refresh_window((Display *)val[0],val[1],val[1],
              DrawableGC(args[1]),
             (ListHeader *)WindowDisplayList(args[1]));
  
  success = TRUE;
  
  end_builtin();
}

long xcRequestColor

(

)

xcRequestColor

REQUESTCOLOR xcRequestColor(+Connection,+ColorMap,+Red,+Green,+Blue,-Pixel) get the closest color to(Red,Green,Blue) in the ColorMap

Definition at line 2150 of file xpred.c.

References begin_builtin, CMAP, DISP, end_builtin, Errorline(), FALSE, include_var_builtin, REAL, real, TRUE, and unify_real_result().

{
  include_var_builtin(6);
  ptr_definition types[6];
  long j;
  XColor color;
  
  for(j=0; j<6; j++)
    types[j] = real;
  
  begin_builtin(xcRequestColor,6,5,types);
  
  color.red =(val[2]) << 8;
  color.green =(val[3]) << 8;
  color.blue =(val[4]) << 8;
  color.flags = DoRed|DoGreen|DoBlue;
  
  if(XAllocColor(DISP(0),CMAP(1),&color))
    {
      unify_real_result(args[5],(REAL) color.pixel);
      success = TRUE;
    }
  else
    {
      Errorline("could not request a color in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcRequestNamedColor

(

)

xcRequestNamedColor

REQUESTNAMEDCOLOR xcRequestNamedColor(+Connection,+ColorMap,+Name,-Pixel) get the color corresponding to Name in the ColorMap

Definition at line 2189 of file xpred.c.

References begin_builtin, CMAP, DISP, end_builtin, Errorline(), FALSE, include_var_builtin, quoted_string, REAL, real, STRG, TRUE, and unify_real_result().

{
  include_var_builtin(4);
  ptr_definition types[4];
  long j;
  XColor cell,rgb;
  
  types[0] = real;
  types[1] = real;
  types[2] = quoted_string;
  types[3] = real;
  
  begin_builtin(xcRequestNamedColor,4,3,types);
  
  if(XAllocNamedColor(DISP(0),CMAP(1),STRG(2),&cell,&rgb))
    {
      unify_real_result(args[3],(REAL) cell.pixel);
      success = TRUE;
    }
  else
    {
      Errorline("could not request a named color in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcResizeWindowPixmap

(

)

xcResizeWindowPixmap

xcResizeWindowPixmap xcResizeWindowPixmap(+Display,+Window,+Width,+Height) resize the pixmap of the window,useful when we caught the resize event eg: the window is resized manualy.

Definition at line 1661 of file xpred.c.

References begin_builtin, end_builtin, include_var_builtin, real, ResizePixmap(), TRUE, and xdrawable.

{
  include_var_builtin(4);
  ptr_definition types[4];
  long j;
  
  for(j=0; j<4; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcResizeWindowPixmap,4,4,types);
  
  /* modify the pixmap */
  ResizePixmap(args[1],(Display *)val[0],val[1],val[2],val[3]);
  
  success = TRUE;
  
  end_builtin();
}

long xcSelectInput

(

)

xcSelectInput

xcSelectInput xcSelectInput(+Connection,+Window,+Mask) select the desired event types

Definition at line 1689 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, real, TRUE, and WIND.

{
  include_var_builtin(3);
  ptr_definition types[3];
  
  types[0] = real;
  types[1] = real;
  types[2] = real;
  
  begin_builtin(xcSelectInput,3,3,types);
  
  XSelectInput(DISP(0),WIND(1),val[2]);
  success = TRUE;
  
  end_builtin();
}

long xcSetGCAttribute

(

)

xcSetGCAttribute

SETGCATTRIBUTE xcSetGCAttribute(+Display,+GC,+AttributeId,+Val) set the value of the attribute id of GC.

Definition at line 2094 of file xpred.c.

References begin_builtin, DISP, end_builtin, Errorline(), FALSE, GCVAL, include_var_builtin, real, SetGCAttribute(), and TRUE.

{
  include_var_builtin(4);
  ptr_definition types[4];
  
  
  types[0] = real;
  types[1] = real;
  types[2] = real;
  types[3] = real;
  
  begin_builtin(xcSetGCAttribute,4,4,types);
  
  if(SetGCAttribute((Display *)DISP(0),GCVAL(1),val[2],val[3]))
    success = TRUE;
  else
    {
      Errorline("could not set gc attribute in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcSetStandardProperties

(

)

xcSetStandardProperties

xcSetStandardProperties

xcSetStandardProperties(+Display,+Window,+WindowTitle,+IconTitle, +X,+Y,+Width,+Height)

Definition at line 1043 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, NULL, quoted_string, real, ResizePixmap(), TRUE, WIND, and xwindow.

{
  include_var_builtin(8);
  ptr_definition types[8];
  long j;
  XSizeHints hints;
  
  
  for(j=0; j<8; j++)
    types[j] = real;
  types[1] = xwindow;
  types[2] = quoted_string;
  types[3] = quoted_string;
  
  begin_builtin(xcSetStandardProperties,8,8,types);
  
  hints.x = val[4];
  hints.y = val[5];
  hints.width = val[6] ;
  hints.height = val[7];
  hints.flags = PPosition | PSize; 
  
  XSetStandardProperties(DISP(0),WIND(1),
            (char*)val[2],(char*)val[3],/* window title,icon title */
             None,              /* icon pixmap */
            (char **) NULL,0, /* argv,argc */
             &hints); 
  
  ResizePixmap(args[1],(Display *)val[0],val[1],val[6],val[7]);
  
  success = TRUE;
  
  end_builtin();
  
}

long xcSetWindowAttribute

(

)

xcSetWindowAttribute

xcSetWindowAttribute xcSetWindowAttribute(+Display,+Window,+AttributeId,+Value) set the value corresponding to the attribute id.

Definition at line 1460 of file xpred.c.

References begin_builtin, DISP, end_builtin, Errorline(), FALSE, include_var_builtin, real, SetWindowAttribute(), TRUE, and xwindow.

{
  include_var_builtin(4);
  ptr_definition types[4];
  
  types[0] = real;
  types[1] = xwindow;
  types[2] = real;
  types[3] = real;
  
  begin_builtin(xcSetWindowAttribute,4,4,types);
  
  if(SetWindowAttribute(args[1],(Display *)val[0],val[1],val[2],val[3]))
    {
      XSync(DISP(0),0);
      success = TRUE;
    }
  else
    {
      Errorline("could not set window attribute in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcSetWindowGeometry

(

)

xcSetWindowGeometry

xcSetWindowGeometry xcSetWindowGeometry(+Display,+Window,+X,+Y,+Width,+Height) set the geometry of the window.

Definition at line 1257 of file xpred.c.

References begin_builtin, DISP, DRAW, end_builtin, include_var_builtin, real, ResizePixmap(), TRUE, and xdrawable.

{
  include_var_builtin(6);
  ptr_definition types[6];
  long j;
  
  for(j=0; j<6; j++)
    types[j] = real;
  types[1] = xdrawable;
  
  begin_builtin(xcSetWindowGeometry,6,6,types);
  
  XMoveResizeWindow(DISP(0),DRAW(1),
             val[2],val[3],val[4],val[5]);
  
  /* modify the pixmap */
  ResizePixmap(args[1],(Display *)val[0],val[1],val[4],val[5]);
  
  success = TRUE;
  
  end_builtin();
}

long xcStringWidth

(

)

xcStringWidth

StringWidth xcStringWidth(+Connection,+Font,+String) returns the width in pixels of the string in the given font.

Definition at line 2741 of file xpred.c.

References aim, wl_goal::bbbb_1, begin_builtin, DISP, end_builtin, Errorline(), FALSE, FONT, include_var_builtin, quoted_string, REAL, real, STRG, TRUE, and unify_real_result().

{
  include_var_builtin(3);
  ptr_definition types[3];
  int direction,ascent,descent;
  XCharStruct overall;
  
  
  types[0] = real;
  types[1] = real;
  types[2] = quoted_string;
  
  begin_builtin(xcStringWidth,3,3,types);
  
  if(XQueryTextExtents(DISP(0),FONT(1),
               STRG(2),strlen(STRG(2)),/* string,nbchars */
               &direction,&ascent,&descent,&overall))
    {
      unify_real_result(aim->bbbb_1,(REAL) overall.width);
      success = TRUE;
    }
  else
    {
      Errorline("bad font in %P.\n",g);
      success = FALSE;
    }
  
  end_builtin();
}

long xcSync

(

)

xcSync

SYNC xcSync(+Connection,+Discard) flush the output of the connection.

Definition at line 2779 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, real, and TRUE.

{
  include_var_builtin(2);
  ptr_definition types[2];
  
  types[0] = real;
  types[1] = real;
  
  begin_builtin(xcSync,2,2,types);
  
  XSync(DISP(0),val[1]);
  success = TRUE;
  
  end_builtin();
}

long xcUnloadFont

(

)

xcUnloadFont

UnloadFont xcUnloadFont(+Connection,+Font) unload a font.

Definition at line 2631 of file xpred.c.

References begin_builtin, DISP, end_builtin, FONT, include_var_builtin, real, and TRUE.

{
  include_var_builtin(2);
  ptr_definition types[2];
  
  types[0] = real;
  types[1] = real;
  
  begin_builtin(xcUnloadFont,2,2,types);
  
  XUnloadFont(DISP(0),FONT(1));
  XSync(DISP(0),0);
  success = TRUE;
  
  end_builtin();
}

long xcUnmapSubwindows

(

)

xcUnmapSubwindows

xcUnmapSubwindows xcUnmapSubwindows(+Connection,+Window) unmap the sub-windows on the display Connection.

Definition at line 1604 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, push_window(), real, show_subwindow, TRUE, and WIND.

{
  include_var_builtin(2);
  ptr_definition types[2];
  
  types[0] = real;
  types[1] = real;
  
  begin_builtin(xcUnmapSubwindows,2,2,types);
  
  XUnmapSubwindows(DISP(0),WIND(1));
  XSync(DISP(0),0);
  
  push_window(show_subwindow,(long)DISP(0),WIND(1));
  success = TRUE;
  
  end_builtin();
}

long xcUnmapWindow

(

)

xcUnmapWindow

xcUnmapWindow xcUnmapWindow(+Connection,+Window) unmap the Window on the display Connection.

Definition at line 1549 of file xpred.c.

References begin_builtin, DISP, end_builtin, include_var_builtin, push_window(), real, show_window, TRUE, and WIND.

{
  include_var_builtin(2);
  ptr_definition types[2];
  
  types[0] = real;
  types[1] = real;
  
  begin_builtin(xcUnmapWindow,2,2,types);
  
  XUnmapWindow(DISP(0),WIND(1));
  XSync(DISP(0),0);
  
  push_window(show_window,(long)DISP(0),WIND(1));
  success = TRUE;
  
  end_builtin();
}

Variable Documentation

long x_window_creation = FALSE

Definition at line 53 of file xpred.c.

ptr_definition xbutton_event

Definition at line 45 of file xpred.c.

ptr_definition xconfigure_event

Definition at line 45 of file xpred.c.

ptr_definition xdestroy_event

Definition at line 45 of file xpred.c.

ptr_definition xdisplay

Definition at line 45 of file xpred.c.

ptr_definition xdisplaylist

Definition at line 45 of file xpred.c.

ptr_definition xdrawable

Definition at line 45 of file xpred.c.

ptr_definition xenter_event

Definition at line 45 of file xpred.c.

ptr_definition xevent

Definition at line 45 of file xpred.c.

ptr_psi_term xevent_existing = NULL

Definition at line 42 of file xpred.c.

ptr_psi_term xevent_list = NULL

Definition at line 43 of file xpred.c.

long xevent_mask[]

static

Definition at line 57 of file xpred.c.

char* xevent_name[]

static

Definition at line 101 of file xpred.c.

ptr_definition xexpose_event

Definition at line 45 of file xpred.c.

ptr_definition xgc

Definition at line 45 of file xpred.c.

ptr_definition xkeyboard_event

Definition at line 45 of file xpred.c.

ptr_definition xleave_event

Definition at line 45 of file xpred.c.

ptr_definition xmisc_event

Definition at line 45 of file xpred.c.

ptr_definition xmotion_event

Definition at line 45 of file xpred.c.

ptr_definition xpixmap

Definition at line 45 of file xpred.c.

ptr_definition xwindow

Definition at line 45 of file xpred.c.