* xshm and xrender added

packages/x11/Makefile

@@ -197,7 +197,7 @@ endif
 
 # Targets
 
-override UNITOBJECTS+=x xlib xutil xresource xcms
+override UNITOBJECTS+=x xlib xutil xresource xcms xshm xrender
 
 # Clean
 

packages/x11/Makefile.fpc

@@ -3,7 +3,7 @@
 #
 
 [targets]
-units=x xlib xutil xresource xcms
+units=x xlib xutil xresource xcms xshm xrender
 
 [dirs]
 fpcdir=../..

packages/x11/xrender.pp

@@ -0,0 +1,223 @@
+unit xrender;
+interface
+uses
+  x,xlib;
+
+{
+  Automatically converted by H2Pas 0.99.15 from xrender.h
+  The following command line parameters were used:
+    -p
+    -T
+    -S
+    -d
+    -c
+    xrender.h
+}
+
+{$PACKRECORDS C}
+
+type
+
+   PGlyph = ^TGlyph;
+   TGlyph = dword;
+
+   PGlyphSet = ^TGlyphSet;
+   TGlyphSet = dword;
+
+   PPicture = ^TPicture;
+   TPicture = dword;
+
+   PPictFormat = ^TPictFormat;
+   TPictFormat = dword;
+
+const
+   RENDER_NAME = 'RENDER';
+   RENDER_MAJOR = 0;
+   RENDER_MINOR = 0;
+   X_RenderQueryVersion = 0;
+   X_RenderQueryPictFormats = 1;
+   X_RenderQueryPictIndexValues = 2;
+   X_RenderQueryDithers = 3;
+   X_RenderCreatePicture = 4;
+   X_RenderChangePicture = 5;
+   X_RenderSetPictureClipRectangles = 6;
+   X_RenderFreePicture = 7;
+   X_RenderComposite = 8;
+   X_RenderScale = 9;
+   X_RenderTrapezoids = 10;
+   X_RenderTriangles = 11;
+   X_RenderTriStrip = 12;
+   X_RenderTriFan = 13;
+   X_RenderColorTrapezoids = 14;
+   X_RenderColorTriangles = 15;
+   X_RenderTransform = 16;
+   X_RenderCreateGlyphSet = 17;
+   X_RenderReferenceGlyphSet = 18;
+   X_RenderFreeGlyphSet = 19;
+   X_RenderAddGlyphs = 20;
+   X_RenderAddGlyphsFromPicture = 21;
+   X_RenderFreeGlyphs = 22;
+   X_RenderCompositeGlyphs8 = 23;
+   X_RenderCompositeGlyphs16 = 24;
+   X_RenderCompositeGlyphs32 = 25;
+   BadPictFormat = 0;
+   BadPicture = 1;
+   BadPictOp = 2;
+   BadGlyphSet = 3;
+   BadGlyph = 4;
+   RenderNumberErrors = BadGlyph + 1;
+   PictTypeIndexed = 0;
+   PictTypeDirect = 1;
+   PictOpClear = 0;
+   PictOpSrc = 1;
+   PictOpDst = 2;
+   PictOpOver = 3;
+   PictOpOverReverse = 4;
+   PictOpIn = 5;
+   PictOpInReverse = 6;
+   PictOpOut = 7;
+   PictOpOutReverse = 8;
+   PictOpAtop = 9;
+   PictOpAtopReverse = 10;
+   PictOpXor = 11;
+   PictOpAdd = 12;
+   PictOpSaturate = 13;
+   PictOpMaximum = 13;
+   PolyEdgeSharp = 0;
+   PolyEdgeSmooth = 1;
+   PolyModePrecise = 0;
+   PolyModeImprecise = 1;
+   CPRepeat = 1 shl 0;
+   CPAlphaMap = 1 shl 1;
+   CPAlphaXOrigin = 1 shl 2;
+   CPAlphaYOrigin = 1 shl 3;
+   CPClipXOrigin = 1 shl 4;
+   CPClipYOrigin = 1 shl 5;
+   CPClipMask = 1 shl 6;
+   CPGraphicsExposure = 1 shl 7;
+   CPSubwindowMode = 1 shl 8;
+   CPPolyEdge = 1 shl 9;
+   CPPolyMode = 1 shl 10;
+   CPDither = 1 shl 11;
+   CPLastBit = 11;
+type
+
+   PXRenderDirectFormat = ^TXRenderDirectFormat;
+   TXRenderDirectFormat = record
+        red : smallint;
+        redMask : smallint;
+        green : smallint;
+        greenMask : smallint;
+        blue : smallint;
+        blueMask : smallint;
+        alpha : smallint;
+        alphaMask : smallint;
+     end;
+
+   PXRenderPictFormat = ^TXRenderPictFormat;
+   TXRenderPictFormat = record
+        id : TPictFormat;
+        _type : longint;
+        depth : longint;
+        direct : TXRenderDirectFormat;
+        colormap : TColormap;
+     end;
+
+const
+   PictFormatID = 1 shl 0;
+   PictFormatType = 1 shl 1;
+   PictFormatDepth = 1 shl 2;
+   PictFormatRed = 1 shl 3;
+   PictFormatRedMask = 1 shl 4;
+   PictFormatGreen = 1 shl 5;
+   PictFormatGreenMask = 1 shl 6;
+   PictFormatBlue = 1 shl 7;
+   PictFormatBlueMask = 1 shl 8;
+   PictFormatAlpha = 1 shl 9;
+   PictFormatAlphaMask = 1 shl 10;
+   PictFormatColormap = 1 shl 11;
+type
+
+   PXRenderVisual = ^TXRenderVisual;
+   TXRenderVisual = record
+        visual : PVisual;
+        format : PXRenderPictFormat;
+     end;
+
+   PXRenderDepth = ^TXRenderDepth;
+   TXRenderDepth = record
+        depth : longint;
+        nvisuals : longint;
+        visuals : PXRenderVisual;
+     end;
+
+   PXRenderScreen = ^TXRenderScreen;
+   TXRenderScreen = record
+        depths : PXRenderDepth;
+        ndepths : longint;
+        fallback : PXRenderPictFormat;
+     end;
+
+   PXRenderInfo = ^TXRenderInfo;
+   TXRenderInfo = record
+        format : PXRenderPictFormat;
+        nformat : longint;
+        screen : PXRenderScreen;
+        nscreen : longint;
+        depth : PXRenderDepth;
+        ndepth : longint;
+        visual : PXRenderVisual;
+        nvisual : longint;
+     end;
+
+   PXRenderPictureAttributes = ^TXRenderPictureAttributes;
+   TXRenderPictureAttributes = record
+        _repeat : TBool;
+        alpha_map : TPicture;
+        alpha_x_origin : longint;
+        alpha_y_origin : longint;
+        clip_x_origin : longint;
+        clip_y_origin : longint;
+        clip_mask : TPixmap;
+        graphics_exposures : TBool;
+        subwindow_mode : longint;
+        poly_edge : longint;
+        poly_mode : longint;
+        dither : TAtom;
+     end;
+
+   PXGlyphInfo = ^TXGlyphInfo;
+   TXGlyphInfo = record
+        width : word;
+        height : word;
+        x : smallint;
+        y : smallint;
+        xOff : smallint;
+        yOff : smallint;
+     end;
+
+function XRenderQueryExtension(dpy:PDisplay; event_basep:Plongint; error_basep:Plongint):TBool;cdecl;external;
+function XRenderQueryVersion(dpy:PDisplay; major_versionp:Plongint; minor_versionp:Plongint):TStatus;cdecl;external;
+function XRenderQueryFormats(dpy:PDisplay):TStatus;cdecl;external;
+function XRenderFindVisualFormat(dpy:PDisplay; visual:PVisual):PXRenderPictFormat;cdecl;external;
+function XRenderFindFormat(dpy:PDisplay; mask:dword; template:PXRenderPictFormat; count:longint):PXRenderPictFormat;cdecl;external;
+function XRenderCreatePicture(dpy:PDisplay; drawable:TDrawable; format:PXRenderPictFormat; valuemask:dword; attributes:PXRenderPictureAttributes):TPicture;cdecl;external;
+procedure XRenderChangePicture(dpy:PDisplay; picture:TPicture; valuemask:dword; attributes:PXRenderPictureAttributes);cdecl;external;
+procedure XRenderFreePicture(dpy:PDisplay; picture:TPicture);cdecl;external;
+procedure XRenderComposite(dpy:PDisplay; op:longint; src:TPicture; mask:TPicture; dst:TPicture;
+            src_x:longint; src_y:longint; mask_x:longint; mask_y:longint; dst_x:longint;
+            dst_y:longint; width:dword; height:dword);cdecl;external;
+function XRenderCreateGlyphSet(dpy:PDisplay; format:PXRenderPictFormat):TGlyphSet;cdecl;external;
+function XRenderReferenceGlyphSet(dpy:PDisplay; existing:TGlyphSet):TGlyphSet;cdecl;external;
+procedure XRenderFreeGlyphSet(dpy:PDisplay; glyphset:TGlyphSet);cdecl;external;
+procedure XRenderAddGlyphs(dpy:PDisplay; glyphset:TGlyphSet; gids:PGlyph; glyphs:PXGlyphInfo; nglyphs:longint;
+            images:Pchar; nbyte_images:longint);cdecl;external;
+procedure XRenderFreeGlyphs(dpy:PDisplay; glyphset:TGlyphSet; gids:PGlyph; nglyphs:longint);cdecl;external;
+procedure XRenderCompositeString8(dpy:PDisplay; op:longint; src:TPicture; dst:TPicture; maskFormat:PXRenderPictFormat;
+            glyphset:TGlyphSet; xSrc:longint; ySrc:longint; xDst:longint; yDst:longint;
+            _string:Pchar; nchar:longint);cdecl;external;
+
+implementation
+
+
+end.

packages/x11/xshm.pp

@@ -0,0 +1,75 @@
+unit xshm;
+interface
+uses
+  x,xlib;
+
+{
+  Automatically converted by H2Pas 0.99.15 from xshm.h
+  The following command line parameters were used:
+    -p
+    -T
+    -S
+    -d
+    -c
+    xshm.h
+}
+
+{$PACKRECORDS C}
+
+
+const
+   X_ShmQueryVersion = 0;
+   X_ShmAttach = 1;
+   X_ShmDetach = 2;
+   X_ShmPutImage = 3;
+   X_ShmGetImage = 4;
+   X_ShmCreatePixmap = 5;
+   ShmCompletion = 0;
+   ShmNumberEvents = ShmCompletion + 1;
+   BadShmSeg = 0;
+   ShmNumberErrors = BadShmSeg + 1;
+type
+
+   PShmSeg = ^TShmSeg;
+   TShmSeg = dword;
+
+   PXShmCompletionEvent = ^TXShmCompletionEvent;
+   TXShmCompletionEvent = record
+        _type : longint;
+        serial : dword;
+        send_event : TBool;
+        display : PDisplay;
+        drawable : TDrawable;
+        major_code : longint;
+        minor_code : longint;
+        shmseg : TShmSeg;
+        offset : dword;
+     end;
+
+   PXShmSegmentInfo = ^TXShmSegmentInfo;
+   TXShmSegmentInfo = record
+        shmseg : TShmSeg;
+        shmid : longint;
+        shmaddr : Pchar;
+        readOnly : TBool;
+     end;
+
+function XShmQueryExtension(para1:PDisplay):TBool;cdecl;external;
+function XShmQueryVersion(para1:PDisplay; para2:Plongint; para3:Plongint; para4:PBool):TBool;cdecl;external;
+function XShmPixmapFormat(para1:PDisplay):longint;cdecl;external;
+function XShmAttach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external;
+function XShmDetach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external;
+function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:longint;
+           para6:longint; para7:longint; para8:longint; para9:dword; para10:dword;
+           para11:TBool):TStatus;cdecl;external;
+function XShmGetImage(para1:PDisplay; para2:TDrawable; para3:PXImage; para4:longint; para5:longint;
+           para6:dword):TStatus;cdecl;external;
+function XShmCreateImage(para1:PDisplay; para2:PVisual; para3:dword; para4:longint; para5:Pchar;
+           para6:PXShmSegmentInfo; para7:dword; para8:dword):PXImage;cdecl;external;
+function XShmCreatePixmap(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:PXShmSegmentInfo; para5:dword;
+           para6:dword; para7:dword):TPixmap;cdecl;external;
+
+implementation
+
+
+end.