summary refs log tree commit diff stats
path: root/lib/system/cellsets.nim
diff options
context:
space:
mode:
Diffstat (limited to 'lib/system/cellsets.nim')
0 files changed, 0 insertions, 0 deletions
#n67'>67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200
import 
  x, xlib

#const 
#  libX11* = "libX11.so"

#
#  Automatically converted by H2Pas 0.99.15 from xresource.h
#  The following command line parameters were used:
#    -p
#    -T
#    -S
#    -d
#    -c
#    xresource.h
#

proc Xpermalloc*(para1: int32): cstring{.cdecl, dynlib: libX11, importc.}
type 
  PXrmQuark* = ptr TXrmQuark
  TXrmQuark* = int32
  TXrmQuarkList* = PXrmQuark
  PXrmQuarkList* = ptr TXrmQuarkList

proc NULLQUARK*(): TXrmQuark
type 
  PXrmString* = ptr TXrmString
  TXrmString* = ptr char

proc NULLSTRING*(): TXrmString
proc XrmStringToQuark*(para1: cstring): TXrmQuark{.cdecl, dynlib: libX11, 
    importc.}
proc XrmPermStringToQuark*(para1: cstring): TXrmQuark{.cdecl, dynlib: libX11, 
    importc.}
proc XrmQuarkToString*(para1: TXrmQuark): TXrmString{.cdecl, dynlib: libX11, 
    importc.}
proc XrmUniqueQuark*(): TXrmQuark{.cdecl, dynlib: libX11, importc.}
when defined(MACROS): 
  proc XrmStringsEqual*(a1, a2: cstring): bool
type 
  PXrmBinding* = ptr TXrmBinding
  TXrmBinding* = enum 
    XrmBindTightly, XrmBindLoosely
  TXrmBindingList* = PXrmBinding
  PXrmBindingList* = ptr TXrmBindingList

proc XrmStringToQuarkList*(para1: cstring, para2: TXrmQuarkList){.cdecl, 
    dynlib: libX11, importc.}
proc XrmStringToBindingQuarkList*(para1: cstring, para2: TXrmBindingList, 
                                  para3: TXrmQuarkList){.cdecl, dynlib: libX11, 
    importc.}
type 
  PXrmName* = ptr TXrmName
  TXrmName* = TXrmQuark
  PXrmNameList* = ptr TXrmNameList
  TXrmNameList* = TXrmQuarkList

when defined(MACROS): 
  proc XrmNameToString*(name: int32): TXrmString
  proc XrmStringToName*(str: cstring): int32
  proc XrmStringToNameList*(str: cstring, name: PXrmQuark)
type 
  PXrmClass* = ptr TXrmClass
  TXrmClass* = TXrmQuark
  PXrmClassList* = ptr TXrmClassList
  TXrmClassList* = TXrmQuarkList

when defined(MACROS): 
  proc XrmClassToString*(c_class: int32): TXrmString
  proc XrmStringToClass*(c_class: cstring): int32
  proc XrmStringToClassList*(str: cstring, c_class: PXrmQuark)
type 
  PXrmRepresentation* = ptr TXrmRepresentation
  TXrmRepresentation* = TXrmQuark

when defined(MACROS): 
  proc XrmStringToRepresentation*(str: cstring): int32
  proc XrmRepresentationToString*(thetype: int32): TXrmString
type 
  PXrmValue* = ptr TXrmValue
  TXrmValue*{.final.} = object 
    size*: int32
    address*: TXPointer

  TXrmValuePtr* = PXrmValue
  PXrmValuePtr* = ptr TXrmValuePtr
  PXrmHashBucketRec* = ptr TXrmHashBucketRec
  TXrmHashBucketRec*{.final.} = object 
  TXrmHashBucket* = PXrmHashBucketRec
  PXrmHashBucket* = ptr TXrmHashBucket
  PXrmHashTable* = ptr TXrmHashTable
  TXrmHashTable* = ptr TXrmHashBucket
  TXrmDatabase* = PXrmHashBucketRec
  PXrmDatabase* = ptr TXrmDatabase

proc XrmDestroyDatabase*(para1: TXrmDatabase){.cdecl, dynlib: libX11, importc.}
proc XrmQPutResource*(para1: PXrmDatabase, para2: TXrmBindingList, 
                      para3: TXrmQuarkList, para4: TXrmRepresentation, 
                      para5: PXrmValue){.cdecl, dynlib: libX11, importc.}
proc XrmPutResource*(para1: PXrmDatabase, para2: cstring, para3: cstring, 
                     para4: PXrmValue){.cdecl, dynlib: libX11, importc.}
proc XrmQPutStringResource*(para1: PXrmDatabase, para2: TXrmBindingList, 
                            para3: TXrmQuarkList, para4: cstring){.cdecl, 
    dynlib: libX11, importc.}
proc XrmPutStringResource*(para1: PXrmDatabase, para2: cstring, para3: cstring){.
    cdecl, dynlib: libX11, importc.}
proc XrmPutLineResource*(para1: PXrmDatabase, para2: cstring){.cdecl, 
    dynlib: libX11, importc.}
proc XrmQGetResource*(para1: TXrmDatabase, para2: TXrmNameList, 
                      para3: TXrmClassList, para4: PXrmRepresentation, 
                      para5: PXrmValue): TBool{.cdecl, dynlib: libX11, importc.}
proc XrmGetResource*(para1: TXrmDatabase, para2: cstring, para3: cstring, 
                     para4: PPchar, para5: PXrmValue): TBool{.cdecl, 
    dynlib: libX11, importc.}
  # There is no definition of TXrmSearchList 
  #function XrmQGetSearchList(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:TXrmSearchList; para5:longint):TBool;cdecl;external libX11;
  #function XrmQGetSearchResource(para1:TXrmSearchList; para2:TXrmName; para3:TXrmClass; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external libX11;
proc XrmSetDatabase*(para1: PDisplay, para2: TXrmDatabase){.cdecl, 
    dynlib: libX11, importc.}
proc XrmGetDatabase*(para1: PDisplay): TXrmDatabase{.cdecl, dynlib: libX11, 
    importc.}
proc XrmGetFileDatabase*(para1: cstring): TXrmDatabase{.cdecl, dynlib: libX11, 
    importc.}
proc XrmCombineFileDatabase*(para1: cstring, para2: PXrmDatabase, para3: TBool): TStatus{.
    cdecl, dynlib: libX11, importc.}
proc XrmGetStringDatabase*(para1: cstring): TXrmDatabase{.cdecl, dynlib: libX11, 
    importc.}
proc XrmPutFileDatabase*(para1: TXrmDatabase, para2: cstring){.cdecl, 
    dynlib: libX11, importc.}
proc XrmMergeDatabases*(para1: TXrmDatabase, para2: PXrmDatabase){.cdecl, 
    dynlib: libX11, importc.}
proc XrmCombineDatabase*(para1: TXrmDatabase, para2: PXrmDatabase, para3: TBool){.
    cdecl, dynlib: libX11, importc.}
const 
  XrmEnumAllLevels* = 0
  XrmEnumOneLevel* = 1

type 
  funcbool* = proc (): TBool {.cdecl.}

proc XrmEnumerateDatabase*(para1: TXrmDatabase, para2: TXrmNameList, 
                           para3: TXrmClassList, para4: int32, para5: funcbool, 
                           para6: TXPointer): TBool{.cdecl, dynlib: libX11, 
    importc.}
proc XrmLocaleOfDatabase*(para1: TXrmDatabase): cstring{.cdecl, dynlib: libX11, 
    importc.}
type 
  PXrmOptionKind* = ptr TXrmOptionKind
  TXrmOptionKind* = enum 
    XrmoptionNoArg, XrmoptionIsArg, XrmoptionStickyArg, XrmoptionSepArg, 
    XrmoptionResArg, XrmoptionSkipArg, XrmoptionSkipLine, XrmoptionSkipNArgs
  PXrmOptionDescRec* = ptr TXrmOptionDescRec
  TXrmOptionDescRec*{.final.} = object 
    option*: cstring
    specifier*: cstring
    argKind*: TXrmOptionKind
    value*: TXPointer

  TXrmOptionDescList* = PXrmOptionDescRec
  PXrmOptionDescList* = ptr TXrmOptionDescList

proc XrmParseCommand*(para1: PXrmDatabase, para2: TXrmOptionDescList, 
                      para3: int32, para4: cstring, para5: ptr int32, 
                      para6: PPchar){.cdecl, dynlib: libX11, importc.}
# implementation

proc NULLQUARK(): TXrmQuark = 
  result = TXrmQuark(0)

proc NULLSTRING(): TXrmString = 
  result = nil

when defined(MACROS): 
  proc XrmStringsEqual(a1, a2: cstring): bool = 
    result = (strcomp(a1, a2)) == 0

  proc XrmNameToString(name: int32): TXrmString = 
    result = XrmQuarkToString(name)

  proc XrmStringToName(str: cstring): int32 = 
    result = XrmStringToQuark(str)

  proc XrmStringToNameList(str: cstring, name: PXrmQuark) = 
    XrmStringToQuarkList(str, name)

  proc XrmClassToString(c_class: int32): TXrmString = 
    result = XrmQuarkToString(c_class)

  proc XrmStringToClass(c_class: cstring): int32 = 
    result = XrmStringToQuark(c_class)

  proc XrmStringToClassList(str: cstring, c_class: PXrmQuark) = 
    XrmStringToQuarkList(str, c_class)

  proc XrmStringToRepresentation(str: cstring): int32 = 
    result = XrmStringToQuark(str)

  proc XrmRepresentationToString(thetype: int32): TXrmString = 
    result = XrmQuarkToString(thetype)