+ added unit xevi (header translation of X11/extensions/XEVI.h)

packages/x11/fpmake.pp

@@ -154,6 +154,13 @@ begin
           AddUnit('xlib');
           AddUnit('xutil');
         end;
+    T:=P.Targets.AddUnit('xevi.pp');
+      with T.Dependencies do
+        begin
+          AddInclude('evi.inc');
+          AddUnit('x');
+          AddUnit('xlib');
+        end;
 
 {$ifndef ALLPACKAGES}
     Run;

packages/x11/src/evi.inc

@@ -0,0 +1,32 @@
+(************************************************************
+Copyright (c) 1997 by Silicon Graphics Computer Systems, Inc.
+Permission to use, copy, modify, and distribute this
+software and its documentation for any purpose and without
+fee is hereby granted, provided that the above copyright
+notice appear in all copies and that both that copyright
+notice and this permission notice appear in supporting
+documentation, and that the name of Silicon Graphics not be
+used in advertising or publicity pertaining to distribution
+of the software without specific prior written permission.
+Silicon Graphics makes no representation about the suitability
+of this software for any purpose. It is provided "as is"
+without any express or implied warranty.
+SILICON GRAPHICS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
+SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
+AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON
+GRAPHICS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
+DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
+DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
+OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION  WITH
+THE USE OR PERFORMANCE OF THIS SOFTWARE.
+********************************************************)
+
+const
+  XEVI_TRANSPARENCY_NONE  = 0;
+  XEVI_TRANSPARENCY_PIXEL = 1;
+  XEVI_TRANSPARENCY_MASK  = 2;
+
+  EVINAME = 'Extended-Visual-Information';
+
+  XEVI_MAJOR_VERSION = 1;  { current version numbers }
+  XEVI_MINOR_VERSION = 0;

packages/x11/src/xevi.pp

@@ -0,0 +1,70 @@
+(************************************************************
+Copyright (c) 1997 by Silicon Graphics Computer Systems, Inc.
+Permission to use, copy, modify, and distribute this
+software and its documentation for any purpose and without
+fee is hereby granted, provided that the above copyright
+notice appear in all copies and that both that copyright
+notice and this permission notice appear in supporting
+documentation, and that the name of Silicon Graphics not be
+used in advertising or publicity pertaining to distribution
+of the software without specific prior written permission.
+Silicon Graphics makes no representation about the suitability
+of this software for any purpose. It is provided "as is"
+without any express or implied warranty.
+SILICON GRAPHICS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
+SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
+AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON
+GRAPHICS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
+DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
+DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
+OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION  WITH
+THE USE OR PERFORMANCE OF THIS SOFTWARE.
+********************************************************)
+
+unit xevi;
+
+interface
+
+uses
+  ctypes, x, xlib;
+
+const
+  libXext = 'Xext';
+
+{$I evi.inc}
+
+type
+  PPExtendedVisualInfo = ^PExtendedVisualInfo;
+  PExtendedVisualInfo = ^TExtendedVisualInfo;
+  TExtendedVisualInfo = record
+    core_visual_id: TVisualID;
+    screen: cint;
+    level: cint;
+    transparency_type: cuint;
+    transparency_value: cuint;
+    min_hw_colormaps: cuint;
+    max_hw_colormaps: cuint;
+    num_colormap_conflicts: cuint;
+    colormap_conflicts: PVisualID;
+  end;
+
+function XeviQueryExtension(
+    dpy: PDisplay
+): TBoolResult; cdecl; external libXext;
+
+function XeviQueryVersion(
+    dpy: PDisplay;
+    majorVersion,
+    minorVersion: Pcint
+): TStatus; cdecl; external libXext;
+
+function XeviGetVisualInfo(
+    dpy: PDisplay;
+    visual_query: PVisualID;
+    nVisual_query: cint;
+    extendedVisualInfo_return: PPExtendedVisualInfo;
+    nInfo_return: Pcint
+): TStatus; cdecl; external libXext;
+
+implementation
+end.

packages/x11/tests/xevi_linktest.pp

@@ -0,0 +1,10 @@
+{ this program just links all externals, declared in the xevi unit }
+program xevi_linktest;
+uses
+  xevi;
+begin
+  halt(0);
+  XeviQueryExtension(nil);
+  XeviQueryVersion(nil,nil,nil);
+  XeviGetVisualInfo(nil,nil,0,nil,nil);
+end.