--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/semiconginev2/old/thirdparty/x11/xcms.nim	Wed Jul 17 21:01:37 2024 +0700
@@ -0,0 +1,393 @@
+import
+  x, xlib
+
+#const
+#  libX11* = "X11"
+
+#
+#  Automatically converted by H2Pas 0.99.15 from xcms.h
+#  The following command line parameters were used:
+#    -p
+#    -T
+#    -S
+#    -d
+#    -c
+#    xcms.h
+#
+
+const
+  XcmsFailure* = 0
+  XcmsSuccess* = 1
+  XcmsSuccessWithCompression* = 2
+
+type
+  PXcmsColorFormat* = ptr XcmsColorFormat
+  XcmsColorFormat* = int32
+
+proc XcmsUndefinedFormat*(): XcmsColorFormat
+proc XcmsCIEXYZFormat*(): XcmsColorFormat
+proc XcmsCIEuvYFormat*(): XcmsColorFormat
+proc XcmsCIExyYFormat*(): XcmsColorFormat
+proc XcmsCIELabFormat*(): XcmsColorFormat
+proc XcmsCIELuvFormat*(): XcmsColorFormat
+proc XcmsTekHVCFormat*(): XcmsColorFormat
+proc XcmsRGBFormat*(): XcmsColorFormat
+proc XcmsRGBiFormat*(): XcmsColorFormat
+const
+  XcmsInitNone* = 0x00000000
+  XcmsInitSuccess* = 0x00000001
+  XcmsInitFailure* = 0x000000FF
+
+type
+  PXcmsFloat* = ptr XcmsFloat
+  XcmsFloat* = float64
+  PXcmsRGB* = ptr XcmsRGB
+  XcmsRGB*{.final.} = object
+    red*: int16
+    green*: int16
+    blue*: int16
+
+  PXcmsRGBi* = ptr XcmsRGBi
+  XcmsRGBi*{.final.} = object
+    red*: XcmsFloat
+    green*: XcmsFloat
+    blue*: XcmsFloat
+
+  PXcmsCIEXYZ* = ptr XcmsCIEXYZ
+  XcmsCIEXYZ*{.final.} = object
+    X*: XcmsFloat
+    Y*: XcmsFloat
+    Z*: XcmsFloat
+
+  PXcmsCIEuvY* = ptr XcmsCIEuvY
+  XcmsCIEuvY*{.final.} = object
+    u_prime*: XcmsFloat
+    v_prime*: XcmsFloat
+    Y*: XcmsFloat
+
+  PXcmsCIExyY* = ptr XcmsCIExyY
+  XcmsCIExyY*{.final.} = object
+    x*: XcmsFloat
+    y*: XcmsFloat
+    theY*: XcmsFloat
+
+  PXcmsCIELab* = ptr XcmsCIELab
+  XcmsCIELab*{.final.} = object
+    L_star*: XcmsFloat
+    a_star*: XcmsFloat
+    b_star*: XcmsFloat
+
+  PXcmsCIELuv* = ptr XcmsCIELuv
+  XcmsCIELuv*{.final.} = object
+    L_star*: XcmsFloat
+    u_star*: XcmsFloat
+    v_star*: XcmsFloat
+
+  PXcmsTekHVC* = ptr XcmsTekHVC
+  XcmsTekHVC*{.final.} = object
+    H*: XcmsFloat
+    V*: XcmsFloat
+    C*: XcmsFloat
+
+  PXcmsPad* = ptr XcmsPad
+  XcmsPad*{.final.} = object
+    pad0*: XcmsFloat
+    pad1*: XcmsFloat
+    pad2*: XcmsFloat
+    pad3*: XcmsFloat
+
+  PXcmsColor* = ptr XcmsColor
+  XcmsColor*{.final.} = object # spec : record
+                               #            case longint of
+                               #               0 : ( RGB : XcmsRGB );
+                               #               1 : ( RGBi : XcmsRGBi );
+                               #               2 : ( CIEXYZ : XcmsCIEXYZ );
+                               #               3 : ( CIEuvY : XcmsCIEuvY );
+                               #               4 : ( CIExyY : XcmsCIExyY );
+                               #               5 : ( CIELab : XcmsCIELab );
+                               #               6 : ( CIELuv : XcmsCIELuv );
+                               #               7 : ( TekHVC : XcmsTekHVC );
+                               #               8 : ( Pad : XcmsPad );
+                               #            end;
+    pad*: XcmsPad
+    pixel*: int32
+    format*: XcmsColorFormat
+
+  PXcmsPerScrnInfo* = ptr XcmsPerScrnInfo
+  XcmsPerScrnInfo*{.final.} = object
+    screenWhitePt*: XcmsColor
+    functionSet*: XPointer
+    screenData*: XPointer
+    state*: int8
+    pad*: array[0..2, char]
+
+  PXcmsCCC* = ptr XcmsCCC
+  XcmsCompressionProc* = proc (para1: PXcmsCCC, para2: PXcmsColor,
+                                para3: int32, para4: int32, para5: PBool): Status{.
+      cdecl.}
+  XcmsWhiteAdjustProc* = proc (para1: PXcmsCCC, para2: PXcmsColor,
+                                para3: PXcmsColor, para4: XcmsColorFormat,
+                                para5: PXcmsColor, para6: int32, para7: PBool): Status{.
+      cdecl.}
+  XcmsCCC*{.final.} = object
+    dpy*: PDisplay
+    screenNumber*: int32
+    visual*: PVisual
+    clientWhitePt*: XcmsColor
+    gamutCompProc*: XcmsCompressionProc
+    gamutCompClientData*: XPointer
+    whitePtAdjProc*: XcmsWhiteAdjustProc
+    whitePtAdjClientData*: XPointer
+    pPerScrnInfo*: PXcmsPerScrnInfo
+
+  PXcmsCCCRec* = ptr XcmsCCCRec
+  XcmsCCCRec* = XcmsCCC
+
+  XcmsScreenInitProc* = proc (para1: PDisplay, para2: int32,
+                               para3: PXcmsPerScrnInfo): Status{.cdecl.}
+  XcmsScreenFreeProc* = proc (para1: XPointer){.cdecl.}
+
+  XcmsConversionProc* = proc (){.cdecl.}
+
+  PXcmsFuncListPtr* = ptr XcmsFuncListPtr
+  XcmsFuncListPtr* = XcmsConversionProc
+
+  XcmsParseStringProc* = proc (para1: cstring, para2: PXcmsColor): int32{.cdecl.}
+
+  PXcmsColorSpace* = ptr XcmsColorSpace
+  XcmsColorSpace*{.final.} = object
+    prefix*: cstring
+    id*: XcmsColorFormat
+    parseString*: XcmsParseStringProc
+    to_CIEXYZ*: XcmsFuncListPtr
+    from_CIEXYZ*: XcmsFuncListPtr
+    inverse_flag*: int32
+
+  PXcmsFunctionSet* = ptr XcmsFunctionSet
+  XcmsFunctionSet*{.final.} = object # error
+                                     # extern Status XcmsAddColorSpace (
+                                     # in declaration at line 323
+    DDColorSpaces*: ptr PXcmsColorSpace
+    screenInitProc*: XcmsScreenInitProc
+    screenFreeProc*: XcmsScreenFreeProc
+
+proc XcmsAddFunctionSet*(para1: PXcmsFunctionSet): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsAllocColor*(para1: PDisplay, para2: Colormap, para3: PXcmsColor,
+                     para4: XcmsColorFormat): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsAllocNamedColor*(para1: PDisplay, para2: Colormap, para3: cstring,
+                          para4: PXcmsColor, para5: PXcmsColor,
+                          para6: XcmsColorFormat): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsCCCOfColormap*(para1: PDisplay, para2: Colormap): XcmsCCC{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsCIELabClipab*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                       para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsCIELabClipL*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                      para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsCIELabClipLab*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                        para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsCIELabQueryMaxC*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
+                          para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsCIELabQueryMaxL*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
+                          para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsCIELabQueryMaxLC*(para1: XcmsCCC, para2: XcmsFloat, para3: PXcmsColor): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsCIELabQueryMinL*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
+                          para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsCIELabToCIEXYZ*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsCIELabWhiteShiftColors*(para1: XcmsCCC, para2: PXcmsColor,
+                                 para3: PXcmsColor, para4: XcmsColorFormat,
+                                 para5: PXcmsColor, para6: int32, para7: PBool): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsCIELuvClipL*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                      para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsCIELuvClipLuv*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                        para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsCIELuvClipuv*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                       para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsCIELuvQueryMaxC*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
+                          para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsCIELuvQueryMaxL*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
+                          para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsCIELuvQueryMaxLC*(para1: XcmsCCC, para2: XcmsFloat, para3: PXcmsColor): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsCIELuvQueryMinL*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
+                          para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsCIELuvToCIEuvY*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsCIELuvWhiteShiftColors*(para1: XcmsCCC, para2: PXcmsColor,
+                                 para3: PXcmsColor, para4: XcmsColorFormat,
+                                 para5: PXcmsColor, para6: int32, para7: PBool): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsCIEXYZToCIELab*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsCIEXYZToCIEuvY*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsCIEXYZToCIExyY*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsCIEXYZToRGBi*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                       para4: PBool): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsCIEuvYToCIELuv*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsCIEuvYToCIEXYZ*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsCIEuvYToTekHVC*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsCIExyYToCIEXYZ*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsClientWhitePointOfCCC*(para1: XcmsCCC): PXcmsColor{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsConvertColors*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                        para4: XcmsColorFormat, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsCreateCCC*(para1: PDisplay, para2: int32, para3: PVisual,
+                    para4: PXcmsColor, para5: XcmsCompressionProc,
+                    para6: XPointer, para7: XcmsWhiteAdjustProc,
+                    para8: XPointer): XcmsCCC{.cdecl, dynlib: libX11, importc.}
+proc XcmsDefaultCCC*(para1: PDisplay, para2: int32): XcmsCCC{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsDisplayOfCCC*(para1: XcmsCCC): PDisplay{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsFormatOfPrefix*(para1: cstring): XcmsColorFormat{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsFreeCCC*(para1: XcmsCCC){.cdecl, dynlib: libX11, importc.}
+proc XcmsLookupColor*(para1: PDisplay, para2: Colormap, para3: cstring,
+                      para4: PXcmsColor, para5: PXcmsColor,
+                      para6: XcmsColorFormat): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsPrefixOfFormat*(para1: XcmsColorFormat): cstring{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsQueryBlack*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsQueryBlue*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsQueryColor*(para1: PDisplay, para2: Colormap, para3: PXcmsColor,
+                     para4: XcmsColorFormat): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsQueryColors*(para1: PDisplay, para2: Colormap, para3: PXcmsColor,
+                      para4: int32, para5: XcmsColorFormat): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsQueryGreen*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsQueryRed*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsQueryWhite*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsRGBiToCIEXYZ*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                       para4: PBool): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsRGBiToRGB*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                    para4: PBool): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsRGBToRGBi*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                    para4: PBool): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsScreenNumberOfCCC*(para1: XcmsCCC): int32{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsScreenWhitePointOfCCC*(para1: XcmsCCC): PXcmsColor{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsSetCCCOfColormap*(para1: PDisplay, para2: Colormap, para3: XcmsCCC): XcmsCCC{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsSetCompressionProc*(para1: XcmsCCC, para2: XcmsCompressionProc,
+                             para3: XPointer): XcmsCompressionProc{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsSetWhiteAdjustProc*(para1: XcmsCCC, para2: XcmsWhiteAdjustProc,
+                             para3: XPointer): XcmsWhiteAdjustProc{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsSetWhitePoint*(para1: XcmsCCC, para2: PXcmsColor): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsStoreColor*(para1: PDisplay, para2: Colormap, para3: PXcmsColor): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsStoreColors*(para1: PDisplay, para2: Colormap, para3: PXcmsColor,
+                      para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsTekHVCClipC*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                      para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsTekHVCClipV*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                      para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsTekHVCClipVC*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
+                       para4: int32, para5: PBool): Status{.cdecl,
+    dynlib: libX11, importc.}
+proc XcmsTekHVCQueryMaxC*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
+                          para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsTekHVCQueryMaxV*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
+                          para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsTekHVCQueryMaxVC*(para1: XcmsCCC, para2: XcmsFloat, para3: PXcmsColor): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsTekHVCQueryMaxVSamples*(para1: XcmsCCC, para2: XcmsFloat,
+                                 para3: PXcmsColor, para4: int32): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsTekHVCQueryMinV*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
+                          para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
+    importc.}
+proc XcmsTekHVCToCIEuvY*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
+                         para4: int32): Status{.cdecl, dynlib: libX11, importc.}
+proc XcmsTekHVCWhiteShiftColors*(para1: XcmsCCC, para2: PXcmsColor,
+                                 para3: PXcmsColor, para4: XcmsColorFormat,
+                                 para5: PXcmsColor, para6: int32, para7: PBool): Status{.
+    cdecl, dynlib: libX11, importc.}
+proc XcmsVisualOfCCC*(para1: XcmsCCC): PVisual{.cdecl, dynlib: libX11, importc.}
+# implementation
+
+proc XcmsUndefinedFormat(): XcmsColorFormat =
+  result = 0x00000000'i32
+
+proc XcmsCIEXYZFormat(): XcmsColorFormat =
+  result = 0x00000001'i32
+
+proc XcmsCIEuvYFormat(): XcmsColorFormat =
+  result = 0x00000002'i32
+
+proc XcmsCIExyYFormat(): XcmsColorFormat =
+  result = 0x00000003'i32
+
+proc XcmsCIELabFormat(): XcmsColorFormat =
+  result = 0x00000004'i32
+
+proc XcmsCIELuvFormat(): XcmsColorFormat =
+  result = 0x00000005'i32
+
+proc XcmsTekHVCFormat(): XcmsColorFormat =
+  result = 0x00000006'i32
+
+proc XcmsRGBFormat(): XcmsColorFormat =
+  result = 0x80000000'i32
+
+proc XcmsRGBiFormat(): XcmsColorFormat =
+  result = 0x80000001'i32
+
+#when defined(MACROS):
+proc DisplayOfCCC(ccc: XcmsCCC): PDisplay =
+  result = ccc.dpy
+
+proc ScreenNumberOfCCC(ccc: XcmsCCC): int32 =
+  result = ccc.screenNumber
+
+proc VisualOfCCC(ccc: XcmsCCC): PVisual =
+  result = ccc.visual
+
+proc ClientWhitePointOfCCC(ccc: var XcmsCCC): ptr XcmsColor =
+  result = addr(ccc.clientWhitePt)
+
+proc ScreenWhitePointOfCCC(ccc: var XcmsCCC): ptr XcmsColor =
+  result = addr(ccc.pPerScrnInfo.screenWhitePt)
+
+proc FunctionSetOfCCC(ccc: XcmsCCC): Xpointer =
+  result = ccc.pPerScrnInfo.functionSet
+