gparamspecs.inc 30 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979
  1. { Pointers to basic pascal types, inserted by h2pas conversion program.}
  2. Type
  3. PLongint = ^Longint;
  4. PSmallInt = ^SmallInt;
  5. PByte = ^Byte;
  6. PWord = ^Word;
  7. PDWord = ^DWord;
  8. PDouble = ^Double;
  9. {$PACKRECORDS C}
  10. { GObject - GLib Type, Object, Parameter and Signal Library
  11. Copyright (C) 1997-1999, 2000-2001 Tim Janik and Red Hat, Inc.
  12. This library is free software; you can redistribute it and/or
  13. modify it under the terms of the GNU Lesser General Public
  14. License as published by the Free Software Foundation; either
  15. version 2 of the License, or (at your option) any later version.
  16. This library is distributed in the hope that it will be useful,
  17. but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  19. Lesser General Public License for more details.
  20. You should have received a copy of the GNU Lesser General
  21. Public License along with this library; if not, write to the
  22. Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  23. Boston, MA 02111-1307, USA.
  24. gparamspecs.h: GLib default param specs
  25. }
  26. {$if !defined (__GLIB_GOBJECT_H_INSIDE__) && !defined (GOBJECT_COMPILATION)}
  27. {$error "Only <glib-anObject.h> can be included directly."}
  28. {$endif}
  29. {$ifndef __G_PARAMSPECS_H__}
  30. {$define __G_PARAMSPECS_H__}
  31. {$include <gobject/gvalue.inc}
  32. {$include <gobject/genums.inc}
  33. {$include <gobject/gboxed.inc}
  34. {$include <gobject/gobject.inc}
  35. { --- type macros --- }
  36. function G_TYPE_PARAM_CHAR : longint;
  37. { return type might be wrong }
  38. { was #define dname(params) para_def_expr }
  39. { argument types are unknown }
  40. { return type might be wrong }
  41. function G_IS_PARAM_SPEC_CHAR(pspec : longint) : longint;
  42. { was #define dname(params) para_def_expr }
  43. { argument types are unknown }
  44. { return type might be wrong }
  45. function G_PARAM_SPEC_CHAR(pspec : longint) : longint;
  46. function G_TYPE_PARAM_UCHAR : longint;
  47. { return type might be wrong }
  48. { was #define dname(params) para_def_expr }
  49. { argument types are unknown }
  50. { return type might be wrong }
  51. function G_IS_PARAM_SPEC_UCHAR(pspec : longint) : longint;
  52. { was #define dname(params) para_def_expr }
  53. { argument types are unknown }
  54. { return type might be wrong }
  55. function G_PARAM_SPEC_UCHAR(pspec : longint) : longint;
  56. function G_TYPE_PARAM_BOOLEAN : longint;
  57. { return type might be wrong }
  58. { was #define dname(params) para_def_expr }
  59. { argument types are unknown }
  60. { return type might be wrong }
  61. function G_IS_PARAM_SPEC_BOOLEAN(pspec : longint) : longint;
  62. { was #define dname(params) para_def_expr }
  63. { argument types are unknown }
  64. { return type might be wrong }
  65. function G_PARAM_SPEC_BOOLEAN(pspec : longint) : longint;
  66. function G_TYPE_PARAM_INT : longint;
  67. { return type might be wrong }
  68. { was #define dname(params) para_def_expr }
  69. { argument types are unknown }
  70. { return type might be wrong }
  71. function G_IS_PARAM_SPEC_INT(pspec : longint) : longint;
  72. { was #define dname(params) para_def_expr }
  73. { argument types are unknown }
  74. { return type might be wrong }
  75. function G_PARAM_SPEC_INT(pspec : longint) : longint;
  76. function G_TYPE_PARAM_UINT : longint;
  77. { return type might be wrong }
  78. { was #define dname(params) para_def_expr }
  79. { argument types are unknown }
  80. { return type might be wrong }
  81. function G_IS_PARAM_SPEC_UINT(pspec : longint) : longint;
  82. { was #define dname(params) para_def_expr }
  83. { argument types are unknown }
  84. { return type might be wrong }
  85. function G_PARAM_SPEC_UINT(pspec : longint) : longint;
  86. function G_TYPE_PARAM_LONG : longint;
  87. { return type might be wrong }
  88. { was #define dname(params) para_def_expr }
  89. { argument types are unknown }
  90. { return type might be wrong }
  91. function G_IS_PARAM_SPEC_LONG(pspec : longint) : longint;
  92. { was #define dname(params) para_def_expr }
  93. { argument types are unknown }
  94. { return type might be wrong }
  95. function G_PARAM_SPEC_LONG(pspec : longint) : longint;
  96. function G_TYPE_PARAM_ULONG : longint;
  97. { return type might be wrong }
  98. { was #define dname(params) para_def_expr }
  99. { argument types are unknown }
  100. { return type might be wrong }
  101. function G_IS_PARAM_SPEC_ULONG(pspec : longint) : longint;
  102. { was #define dname(params) para_def_expr }
  103. { argument types are unknown }
  104. { return type might be wrong }
  105. function G_PARAM_SPEC_ULONG(pspec : longint) : longint;
  106. function G_TYPE_PARAM_INT64 : longint;
  107. { return type might be wrong }
  108. { was #define dname(params) para_def_expr }
  109. { argument types are unknown }
  110. { return type might be wrong }
  111. function G_IS_PARAM_SPEC_INT64(pspec : longint) : longint;
  112. { was #define dname(params) para_def_expr }
  113. { argument types are unknown }
  114. { return type might be wrong }
  115. function G_PARAM_SPEC_INT64(pspec : longint) : longint;
  116. function G_TYPE_PARAM_UINT64 : longint;
  117. { return type might be wrong }
  118. { was #define dname(params) para_def_expr }
  119. { argument types are unknown }
  120. { return type might be wrong }
  121. function G_IS_PARAM_SPEC_UINT64(pspec : longint) : longint;
  122. { was #define dname(params) para_def_expr }
  123. { argument types are unknown }
  124. { return type might be wrong }
  125. function G_PARAM_SPEC_UINT64(pspec : longint) : longint;
  126. function G_TYPE_PARAM_UNICHAR : longint;
  127. { return type might be wrong }
  128. { was #define dname(params) para_def_expr }
  129. { argument types are unknown }
  130. { return type might be wrong }
  131. function G_PARAM_SPEC_UNICHAR(pspec : longint) : longint;
  132. { was #define dname(params) para_def_expr }
  133. { argument types are unknown }
  134. { return type might be wrong }
  135. function G_IS_PARAM_SPEC_UNICHAR(pspec : longint) : longint;
  136. function G_TYPE_PARAM_ENUM : longint;
  137. { return type might be wrong }
  138. { was #define dname(params) para_def_expr }
  139. { argument types are unknown }
  140. { return type might be wrong }
  141. function G_IS_PARAM_SPEC_ENUM(pspec : longint) : longint;
  142. { was #define dname(params) para_def_expr }
  143. { argument types are unknown }
  144. { return type might be wrong }
  145. function G_PARAM_SPEC_ENUM(pspec : longint) : longint;
  146. function G_TYPE_PARAM_FLAGS : longint;
  147. { return type might be wrong }
  148. { was #define dname(params) para_def_expr }
  149. { argument types are unknown }
  150. { return type might be wrong }
  151. function G_IS_PARAM_SPEC_FLAGS(pspec : longint) : longint;
  152. { was #define dname(params) para_def_expr }
  153. { argument types are unknown }
  154. { return type might be wrong }
  155. function G_PARAM_SPEC_FLAGS(pspec : longint) : longint;
  156. function G_TYPE_PARAM_FLOAT : longint;
  157. { return type might be wrong }
  158. { was #define dname(params) para_def_expr }
  159. { argument types are unknown }
  160. { return type might be wrong }
  161. function G_IS_PARAM_SPEC_FLOAT(pspec : longint) : longint;
  162. { was #define dname(params) para_def_expr }
  163. { argument types are unknown }
  164. { return type might be wrong }
  165. function G_PARAM_SPEC_FLOAT(pspec : longint) : longint;
  166. function G_TYPE_PARAM_DOUBLE : longint;
  167. { return type might be wrong }
  168. { was #define dname(params) para_def_expr }
  169. { argument types are unknown }
  170. { return type might be wrong }
  171. function G_IS_PARAM_SPEC_DOUBLE(pspec : longint) : longint;
  172. { was #define dname(params) para_def_expr }
  173. { argument types are unknown }
  174. { return type might be wrong }
  175. function G_PARAM_SPEC_DOUBLE(pspec : longint) : longint;
  176. function G_TYPE_PARAM_STRING : longint;
  177. { return type might be wrong }
  178. { was #define dname(params) para_def_expr }
  179. { argument types are unknown }
  180. { return type might be wrong }
  181. function G_IS_PARAM_SPEC_STRING(pspec : longint) : longint;
  182. { was #define dname(params) para_def_expr }
  183. { argument types are unknown }
  184. { return type might be wrong }
  185. function G_PARAM_SPEC_STRING(pspec : longint) : longint;
  186. function G_TYPE_PARAM_PARAM : longint;
  187. { return type might be wrong }
  188. { was #define dname(params) para_def_expr }
  189. { argument types are unknown }
  190. { return type might be wrong }
  191. function G_IS_PARAM_SPEC_PARAM(pspec : longint) : longint;
  192. { was #define dname(params) para_def_expr }
  193. { argument types are unknown }
  194. { return type might be wrong }
  195. function G_PARAM_SPEC_PARAM(pspec : longint) : longint;
  196. function G_TYPE_PARAM_BOXED : longint;
  197. { return type might be wrong }
  198. { was #define dname(params) para_def_expr }
  199. { argument types are unknown }
  200. { return type might be wrong }
  201. function G_IS_PARAM_SPEC_BOXED(pspec : longint) : longint;
  202. { was #define dname(params) para_def_expr }
  203. { argument types are unknown }
  204. { return type might be wrong }
  205. function G_PARAM_SPEC_BOXED(pspec : longint) : longint;
  206. function G_TYPE_PARAM_POINTER : longint;
  207. { return type might be wrong }
  208. { was #define dname(params) para_def_expr }
  209. { argument types are unknown }
  210. { return type might be wrong }
  211. function G_IS_PARAM_SPEC_POINTER(pspec : longint) : longint;
  212. { was #define dname(params) para_def_expr }
  213. { argument types are unknown }
  214. { return type might be wrong }
  215. function G_PARAM_SPEC_POINTER(pspec : longint) : longint;
  216. function G_TYPE_PARAM_VALUE_ARRAY : longint;
  217. { return type might be wrong }
  218. { was #define dname(params) para_def_expr }
  219. { argument types are unknown }
  220. { return type might be wrong }
  221. function G_IS_PARAM_SPEC_VALUE_ARRAY(pspec : longint) : longint;
  222. { was #define dname(params) para_def_expr }
  223. { argument types are unknown }
  224. { return type might be wrong }
  225. function G_PARAM_SPEC_VALUE_ARRAY(pspec : longint) : longint;
  226. function G_TYPE_PARAM_OBJECT : longint;
  227. { return type might be wrong }
  228. { was #define dname(params) para_def_expr }
  229. { argument types are unknown }
  230. { return type might be wrong }
  231. function G_IS_PARAM_SPEC_OBJECT(pspec : longint) : longint;
  232. { was #define dname(params) para_def_expr }
  233. { argument types are unknown }
  234. { return type might be wrong }
  235. function G_PARAM_SPEC_OBJECT(pspec : longint) : longint;
  236. { --- typedefs & structures --- }
  237. type
  238. PGParamSpecChar = ^TGParamSpecChar;
  239. TGParamSpecChar = record
  240. parent_instance : TGParamSpec;
  241. minimum : gint8;
  242. maximum : gint8;
  243. default_value : gint8;
  244. end;
  245. PGParamSpecUChar = ^TGParamSpecUChar;
  246. TGParamSpecUChar = record
  247. parent_instance : TGParamSpec;
  248. minimum : guint8;
  249. maximum : guint8;
  250. default_value : guint8;
  251. end;
  252. PGParamSpecBoolean = ^TGParamSpecBoolean;
  253. TGParamSpecBoolean = record
  254. parent_instance : TGParamSpec;
  255. default_value : gboolean;
  256. end;
  257. PGParamSpecInt = ^TGParamSpecInt;
  258. TGParamSpecInt = record
  259. parent_instance : TGParamSpec;
  260. minimum : gint;
  261. maximum : gint;
  262. default_value : gint;
  263. end;
  264. PGParamSpecUInt = ^TGParamSpecUInt;
  265. TGParamSpecUInt = record
  266. parent_instance : TGParamSpec;
  267. minimum : guint;
  268. maximum : guint;
  269. default_value : guint;
  270. end;
  271. PGParamSpecLong = ^TGParamSpecLong;
  272. TGParamSpecLong = record
  273. parent_instance : TGParamSpec;
  274. minimum : glong;
  275. maximum : glong;
  276. default_value : glong;
  277. end;
  278. PGParamSpecULong = ^TGParamSpecULong;
  279. TGParamSpecULong = record
  280. parent_instance : TGParamSpec;
  281. minimum : gulong;
  282. maximum : gulong;
  283. default_value : gulong;
  284. end;
  285. PGParamSpecInt64 = ^TGParamSpecInt64;
  286. TGParamSpecInt64 = record
  287. parent_instance : TGParamSpec;
  288. minimum : Tgint64;
  289. maximum : Tgint64;
  290. default_value : Tgint64;
  291. end;
  292. PGParamSpecUInt64 = ^TGParamSpecUInt64;
  293. TGParamSpecUInt64 = record
  294. parent_instance : TGParamSpec;
  295. minimum : Tguint64;
  296. maximum : Tguint64;
  297. default_value : Tguint64;
  298. end;
  299. PGParamSpecUnichar = ^TGParamSpecUnichar;
  300. TGParamSpecUnichar = record
  301. parent_instance : TGParamSpec;
  302. default_value : gunichar;
  303. end;
  304. PGParamSpecEnum = ^TGParamSpecEnum;
  305. TGParamSpecEnum = record
  306. parent_instance : TGParamSpec;
  307. enum_class : PGEnumClass;
  308. default_value : gint;
  309. end;
  310. PGParamSpecFlags = ^TGParamSpecFlags;
  311. TGParamSpecFlags = record
  312. parent_instance : TGParamSpec;
  313. flags_class : PGFlagsClass;
  314. default_value : guint;
  315. end;
  316. PGParamSpecFloat = ^TGParamSpecFloat;
  317. TGParamSpecFloat = record
  318. parent_instance : TGParamSpec;
  319. minimum : gfloat;
  320. maximum : gfloat;
  321. default_value : gfloat;
  322. epsilon : gfloat;
  323. end;
  324. PGParamSpecDouble = ^TGParamSpecDouble;
  325. TGParamSpecDouble = record
  326. parent_instance : TGParamSpec;
  327. minimum : gdouble;
  328. maximum : gdouble;
  329. default_value : gdouble;
  330. epsilon : gdouble;
  331. end;
  332. PGParamSpecString = ^TGParamSpecString;
  333. TGParamSpecString = record
  334. parent_instance : TGParamSpec;
  335. default_value : Pgchar;
  336. cset_first : Pgchar;
  337. cset_nth : Pgchar;
  338. substitutor : gchar;
  339. flag0 : word;
  340. end;
  341. const
  342. bm_TGParamSpecString_null_fold_if_empty = $1;
  343. bp_TGParamSpecString_null_fold_if_empty = 0;
  344. bm_TGParamSpecString_ensure_non_null = $2;
  345. bp_TGParamSpecString_ensure_non_null = 1;
  346. function null_fold_if_empty(var a : TGParamSpecString) : guint;
  347. procedure set_null_fold_if_empty(var a : TGParamSpecString; __null_fold_if_empty : guint);
  348. function ensure_non_null(var a : TGParamSpecString) : guint;
  349. procedure set_ensure_non_null(var a : TGParamSpecString; __ensure_non_null : guint);
  350. type
  351. PGParamSpecParam = ^TGParamSpecParam;
  352. TGParamSpecParam = record
  353. parent_instance : TGParamSpec;
  354. end;
  355. PGParamSpecBoxed = ^TGParamSpecBoxed;
  356. TGParamSpecBoxed = record
  357. parent_instance : TGParamSpec;
  358. end;
  359. PGParamSpecPointer = ^TGParamSpecPointer;
  360. TGParamSpecPointer = record
  361. parent_instance : TGParamSpec;
  362. end;
  363. PGParamSpecValueArray = ^TGParamSpecValueArray;
  364. TGParamSpecValueArray = record
  365. parent_instance : TGParamSpec;
  366. element_spec : PGParamSpec;
  367. fixed_n_elements : guint;
  368. end;
  369. PGParamSpecObject = ^TGParamSpecObject;
  370. TGParamSpecObject = record
  371. parent_instance : TGParamSpec;
  372. end;
  373. { --- GParamSpec prototypes --- }
  374. function g_param_spec_char(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:gint8; maximum:gint8;
  375. default_value:gint8; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  376. function g_param_spec_uchar(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:guint8; maximum:guint8;
  377. default_value:guint8; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  378. function g_param_spec_boolean(name:Pgchar; nick:Pgchar; blurb:Pgchar; default_value:gboolean; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  379. function g_param_spec_int(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:gint; maximum:gint;
  380. default_value:gint; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  381. function g_param_spec_uint(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:guint; maximum:guint;
  382. default_value:guint; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  383. function g_param_spec_long(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:glong; maximum:glong;
  384. default_value:glong; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  385. function g_param_spec_ulong(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:gulong; maximum:gulong;
  386. default_value:gulong; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  387. function g_param_spec_int64(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:Tgint64; maximum:Tgint64;
  388. default_value:Tgint64; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  389. function g_param_spec_uint64(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:Tguint64; maximum:Tguint64;
  390. default_value:Tguint64; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  391. function g_param_spec_unichar(name:Pgchar; nick:Pgchar; blurb:Pgchar; default_value:gunichar; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  392. function g_param_spec_enum(name:Pgchar; nick:Pgchar; blurb:Pgchar; enum_type:GType; default_value:gint;
  393. flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  394. function g_param_spec_flags(name:Pgchar; nick:Pgchar; blurb:Pgchar; flags_type:GType; default_value:guint;
  395. flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  396. function g_param_spec_float(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:gfloat; maximum:gfloat;
  397. default_value:gfloat; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  398. function g_param_spec_double(name:Pgchar; nick:Pgchar; blurb:Pgchar; minimum:gdouble; maximum:gdouble;
  399. default_value:gdouble; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  400. function g_param_spec_string(name:Pgchar; nick:Pgchar; blurb:Pgchar; default_value:Pgchar; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  401. function g_param_spec_param(name:Pgchar; nick:Pgchar; blurb:Pgchar; param_type:GType; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  402. function g_param_spec_boxed(name:Pgchar; nick:Pgchar; blurb:Pgchar; boxed_type:GType; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  403. function g_param_spec_pointer(name:Pgchar; nick:Pgchar; blurb:Pgchar; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  404. function g_param_spec_value_array(name:Pgchar; nick:Pgchar; blurb:Pgchar; element_spec:PGParamSpec; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  405. function g_param_spec_object(name:Pgchar; nick:Pgchar; blurb:Pgchar; object_type:GType; flags:TGParamFlags):PGParamSpec; cdecl; external gliblib;
  406. var
  407. g_param_spec_types : PGType;cvar;public;
  408. {$endif}
  409. { __G_PARAMSPECS_H__ }
  410. function G_TYPE_PARAM_CHAR : longint;
  411. begin
  412. G_TYPE_PARAM_CHAR:=g_param_spec_types[0];
  413. end;
  414. { was #define dname(params) para_def_expr }
  415. { argument types are unknown }
  416. { return type might be wrong }
  417. function G_IS_PARAM_SPEC_CHAR(pspec : longint) : longint;
  418. begin
  419. G_IS_PARAM_SPEC_CHAR:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_CHAR);
  420. end;
  421. { was #define dname(params) para_def_expr }
  422. { argument types are unknown }
  423. { return type might be wrong }
  424. function G_PARAM_SPEC_CHAR(pspec : longint) : longint;
  425. begin
  426. G_PARAM_SPEC_CHAR:=PGParamSpecChar(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_CHAR));
  427. end;
  428. function G_TYPE_PARAM_UCHAR : longint;
  429. begin
  430. G_TYPE_PARAM_UCHAR:=g_param_spec_types[1];
  431. end;
  432. { was #define dname(params) para_def_expr }
  433. { argument types are unknown }
  434. { return type might be wrong }
  435. function G_IS_PARAM_SPEC_UCHAR(pspec : longint) : longint;
  436. begin
  437. G_IS_PARAM_SPEC_UCHAR:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_UCHAR);
  438. end;
  439. { was #define dname(params) para_def_expr }
  440. { argument types are unknown }
  441. { return type might be wrong }
  442. function G_PARAM_SPEC_UCHAR(pspec : longint) : longint;
  443. begin
  444. G_PARAM_SPEC_UCHAR:=PGParamSpecUChar(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_UCHAR));
  445. end;
  446. function G_TYPE_PARAM_BOOLEAN : longint;
  447. begin
  448. G_TYPE_PARAM_BOOLEAN:=g_param_spec_types[2];
  449. end;
  450. { was #define dname(params) para_def_expr }
  451. { argument types are unknown }
  452. { return type might be wrong }
  453. function G_IS_PARAM_SPEC_BOOLEAN(pspec : longint) : longint;
  454. begin
  455. G_IS_PARAM_SPEC_BOOLEAN:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_BOOLEAN);
  456. end;
  457. { was #define dname(params) para_def_expr }
  458. { argument types are unknown }
  459. { return type might be wrong }
  460. function G_PARAM_SPEC_BOOLEAN(pspec : longint) : longint;
  461. begin
  462. G_PARAM_SPEC_BOOLEAN:=PGParamSpecBoolean(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_BOOLEAN));
  463. end;
  464. function G_TYPE_PARAM_INT : longint;
  465. begin
  466. G_TYPE_PARAM_INT:=g_param_spec_types[3];
  467. end;
  468. { was #define dname(params) para_def_expr }
  469. { argument types are unknown }
  470. { return type might be wrong }
  471. function G_IS_PARAM_SPEC_INT(pspec : longint) : longint;
  472. begin
  473. G_IS_PARAM_SPEC_INT:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_INT);
  474. end;
  475. { was #define dname(params) para_def_expr }
  476. { argument types are unknown }
  477. { return type might be wrong }
  478. function G_PARAM_SPEC_INT(pspec : longint) : longint;
  479. begin
  480. G_PARAM_SPEC_INT:=PGParamSpecInt(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_INT));
  481. end;
  482. function G_TYPE_PARAM_UINT : longint;
  483. begin
  484. G_TYPE_PARAM_UINT:=g_param_spec_types[4];
  485. end;
  486. { was #define dname(params) para_def_expr }
  487. { argument types are unknown }
  488. { return type might be wrong }
  489. function G_IS_PARAM_SPEC_UINT(pspec : longint) : longint;
  490. begin
  491. G_IS_PARAM_SPEC_UINT:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_UINT);
  492. end;
  493. { was #define dname(params) para_def_expr }
  494. { argument types are unknown }
  495. { return type might be wrong }
  496. function G_PARAM_SPEC_UINT(pspec : longint) : longint;
  497. begin
  498. G_PARAM_SPEC_UINT:=PGParamSpecUInt(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_UINT));
  499. end;
  500. function G_TYPE_PARAM_LONG : longint;
  501. begin
  502. G_TYPE_PARAM_LONG:=g_param_spec_types[5];
  503. end;
  504. { was #define dname(params) para_def_expr }
  505. { argument types are unknown }
  506. { return type might be wrong }
  507. function G_IS_PARAM_SPEC_LONG(pspec : longint) : longint;
  508. begin
  509. G_IS_PARAM_SPEC_LONG:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_LONG);
  510. end;
  511. { was #define dname(params) para_def_expr }
  512. { argument types are unknown }
  513. { return type might be wrong }
  514. function G_PARAM_SPEC_LONG(pspec : longint) : longint;
  515. begin
  516. G_PARAM_SPEC_LONG:=PGParamSpecLong(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_LONG));
  517. end;
  518. function G_TYPE_PARAM_ULONG : longint;
  519. begin
  520. G_TYPE_PARAM_ULONG:=g_param_spec_types[6];
  521. end;
  522. { was #define dname(params) para_def_expr }
  523. { argument types are unknown }
  524. { return type might be wrong }
  525. function G_IS_PARAM_SPEC_ULONG(pspec : longint) : longint;
  526. begin
  527. G_IS_PARAM_SPEC_ULONG:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_ULONG);
  528. end;
  529. { was #define dname(params) para_def_expr }
  530. { argument types are unknown }
  531. { return type might be wrong }
  532. function G_PARAM_SPEC_ULONG(pspec : longint) : longint;
  533. begin
  534. G_PARAM_SPEC_ULONG:=PGParamSpecULong(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_ULONG));
  535. end;
  536. function G_TYPE_PARAM_INT64 : longint;
  537. begin
  538. G_TYPE_PARAM_INT64:=g_param_spec_types[7];
  539. end;
  540. { was #define dname(params) para_def_expr }
  541. { argument types are unknown }
  542. { return type might be wrong }
  543. function G_IS_PARAM_SPEC_INT64(pspec : longint) : longint;
  544. begin
  545. G_IS_PARAM_SPEC_INT64:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_INT64);
  546. end;
  547. { was #define dname(params) para_def_expr }
  548. { argument types are unknown }
  549. { return type might be wrong }
  550. function G_PARAM_SPEC_INT64(pspec : longint) : longint;
  551. begin
  552. G_PARAM_SPEC_INT64:=PGParamSpecInt64(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_INT64));
  553. end;
  554. function G_TYPE_PARAM_UINT64 : longint;
  555. begin
  556. G_TYPE_PARAM_UINT64:=g_param_spec_types[8];
  557. end;
  558. { was #define dname(params) para_def_expr }
  559. { argument types are unknown }
  560. { return type might be wrong }
  561. function G_IS_PARAM_SPEC_UINT64(pspec : longint) : longint;
  562. begin
  563. G_IS_PARAM_SPEC_UINT64:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_UINT64);
  564. end;
  565. { was #define dname(params) para_def_expr }
  566. { argument types are unknown }
  567. { return type might be wrong }
  568. function G_PARAM_SPEC_UINT64(pspec : longint) : longint;
  569. begin
  570. G_PARAM_SPEC_UINT64:=PGParamSpecUInt64(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_UINT64));
  571. end;
  572. function G_TYPE_PARAM_UNICHAR : longint;
  573. begin
  574. G_TYPE_PARAM_UNICHAR:=g_param_spec_types[9];
  575. end;
  576. { was #define dname(params) para_def_expr }
  577. { argument types are unknown }
  578. { return type might be wrong }
  579. function G_PARAM_SPEC_UNICHAR(pspec : longint) : longint;
  580. begin
  581. G_PARAM_SPEC_UNICHAR:=PGParamSpecUnichar(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_UNICHAR));
  582. end;
  583. { was #define dname(params) para_def_expr }
  584. { argument types are unknown }
  585. { return type might be wrong }
  586. function G_IS_PARAM_SPEC_UNICHAR(pspec : longint) : longint;
  587. begin
  588. G_IS_PARAM_SPEC_UNICHAR:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_UNICHAR);
  589. end;
  590. function G_TYPE_PARAM_ENUM : longint;
  591. begin
  592. G_TYPE_PARAM_ENUM:=g_param_spec_types[10];
  593. end;
  594. { was #define dname(params) para_def_expr }
  595. { argument types are unknown }
  596. { return type might be wrong }
  597. function G_IS_PARAM_SPEC_ENUM(pspec : longint) : longint;
  598. begin
  599. G_IS_PARAM_SPEC_ENUM:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_ENUM);
  600. end;
  601. { was #define dname(params) para_def_expr }
  602. { argument types are unknown }
  603. { return type might be wrong }
  604. function G_PARAM_SPEC_ENUM(pspec : longint) : longint;
  605. begin
  606. G_PARAM_SPEC_ENUM:=PGParamSpecEnum(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_ENUM));
  607. end;
  608. function G_TYPE_PARAM_FLAGS : longint;
  609. begin
  610. G_TYPE_PARAM_FLAGS:=g_param_spec_types[11];
  611. end;
  612. { was #define dname(params) para_def_expr }
  613. { argument types are unknown }
  614. { return type might be wrong }
  615. function G_IS_PARAM_SPEC_FLAGS(pspec : longint) : longint;
  616. begin
  617. G_IS_PARAM_SPEC_FLAGS:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_FLAGS);
  618. end;
  619. { was #define dname(params) para_def_expr }
  620. { argument types are unknown }
  621. { return type might be wrong }
  622. function G_PARAM_SPEC_FLAGS(pspec : longint) : longint;
  623. begin
  624. G_PARAM_SPEC_FLAGS:=PGParamSpecFlags(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_FLAGS));
  625. end;
  626. function G_TYPE_PARAM_FLOAT : longint;
  627. begin
  628. G_TYPE_PARAM_FLOAT:=g_param_spec_types[12];
  629. end;
  630. { was #define dname(params) para_def_expr }
  631. { argument types are unknown }
  632. { return type might be wrong }
  633. function G_IS_PARAM_SPEC_FLOAT(pspec : longint) : longint;
  634. begin
  635. G_IS_PARAM_SPEC_FLOAT:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_FLOAT);
  636. end;
  637. { was #define dname(params) para_def_expr }
  638. { argument types are unknown }
  639. { return type might be wrong }
  640. function G_PARAM_SPEC_FLOAT(pspec : longint) : longint;
  641. begin
  642. G_PARAM_SPEC_FLOAT:=PGParamSpecFloat(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_FLOAT));
  643. end;
  644. function G_TYPE_PARAM_DOUBLE : longint;
  645. begin
  646. G_TYPE_PARAM_DOUBLE:=g_param_spec_types[13];
  647. end;
  648. { was #define dname(params) para_def_expr }
  649. { argument types are unknown }
  650. { return type might be wrong }
  651. function G_IS_PARAM_SPEC_DOUBLE(pspec : longint) : longint;
  652. begin
  653. G_IS_PARAM_SPEC_DOUBLE:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_DOUBLE);
  654. end;
  655. { was #define dname(params) para_def_expr }
  656. { argument types are unknown }
  657. { return type might be wrong }
  658. function G_PARAM_SPEC_DOUBLE(pspec : longint) : longint;
  659. begin
  660. G_PARAM_SPEC_DOUBLE:=PGParamSpecDouble(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_DOUBLE));
  661. end;
  662. function G_TYPE_PARAM_STRING : longint;
  663. begin
  664. G_TYPE_PARAM_STRING:=g_param_spec_types[14];
  665. end;
  666. { was #define dname(params) para_def_expr }
  667. { argument types are unknown }
  668. { return type might be wrong }
  669. function G_IS_PARAM_SPEC_STRING(pspec : longint) : longint;
  670. begin
  671. G_IS_PARAM_SPEC_STRING:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_STRING);
  672. end;
  673. { was #define dname(params) para_def_expr }
  674. { argument types are unknown }
  675. { return type might be wrong }
  676. function G_PARAM_SPEC_STRING(pspec : longint) : longint;
  677. begin
  678. G_PARAM_SPEC_STRING:=PGParamSpecString(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_STRING));
  679. end;
  680. function G_TYPE_PARAM_PARAM : longint;
  681. begin
  682. G_TYPE_PARAM_PARAM:=g_param_spec_types[15];
  683. end;
  684. { was #define dname(params) para_def_expr }
  685. { argument types are unknown }
  686. { return type might be wrong }
  687. function G_IS_PARAM_SPEC_PARAM(pspec : longint) : longint;
  688. begin
  689. G_IS_PARAM_SPEC_PARAM:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_PARAM);
  690. end;
  691. { was #define dname(params) para_def_expr }
  692. { argument types are unknown }
  693. { return type might be wrong }
  694. function G_PARAM_SPEC_PARAM(pspec : longint) : longint;
  695. begin
  696. G_PARAM_SPEC_PARAM:=PGParamSpecParam(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_PARAM));
  697. end;
  698. function G_TYPE_PARAM_BOXED : longint;
  699. begin
  700. G_TYPE_PARAM_BOXED:=g_param_spec_types[16];
  701. end;
  702. { was #define dname(params) para_def_expr }
  703. { argument types are unknown }
  704. { return type might be wrong }
  705. function G_IS_PARAM_SPEC_BOXED(pspec : longint) : longint;
  706. begin
  707. G_IS_PARAM_SPEC_BOXED:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_BOXED);
  708. end;
  709. { was #define dname(params) para_def_expr }
  710. { argument types are unknown }
  711. { return type might be wrong }
  712. function G_PARAM_SPEC_BOXED(pspec : longint) : longint;
  713. begin
  714. G_PARAM_SPEC_BOXED:=PGParamSpecBoxed(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_BOXED));
  715. end;
  716. function G_TYPE_PARAM_POINTER : longint;
  717. begin
  718. G_TYPE_PARAM_POINTER:=g_param_spec_types[17];
  719. end;
  720. { was #define dname(params) para_def_expr }
  721. { argument types are unknown }
  722. { return type might be wrong }
  723. function G_IS_PARAM_SPEC_POINTER(pspec : longint) : longint;
  724. begin
  725. G_IS_PARAM_SPEC_POINTER:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_POINTER);
  726. end;
  727. { was #define dname(params) para_def_expr }
  728. { argument types are unknown }
  729. { return type might be wrong }
  730. function G_PARAM_SPEC_POINTER(pspec : longint) : longint;
  731. begin
  732. G_PARAM_SPEC_POINTER:=PGParamSpecPointer(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_POINTER));
  733. end;
  734. function G_TYPE_PARAM_VALUE_ARRAY : longint;
  735. begin
  736. G_TYPE_PARAM_VALUE_ARRAY:=g_param_spec_types[18];
  737. end;
  738. { was #define dname(params) para_def_expr }
  739. { argument types are unknown }
  740. { return type might be wrong }
  741. function G_IS_PARAM_SPEC_VALUE_ARRAY(pspec : longint) : longint;
  742. begin
  743. G_IS_PARAM_SPEC_VALUE_ARRAY:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_VALUE_ARRAY);
  744. end;
  745. { was #define dname(params) para_def_expr }
  746. { argument types are unknown }
  747. { return type might be wrong }
  748. function G_PARAM_SPEC_VALUE_ARRAY(pspec : longint) : longint;
  749. begin
  750. G_PARAM_SPEC_VALUE_ARRAY:=PGParamSpecValueArray(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_VALUE_ARRAY));
  751. end;
  752. function G_TYPE_PARAM_OBJECT : longint;
  753. begin
  754. G_TYPE_PARAM_OBJECT:=g_param_spec_types[19];
  755. end;
  756. { was #define dname(params) para_def_expr }
  757. { argument types are unknown }
  758. { return type might be wrong }
  759. function G_IS_PARAM_SPEC_OBJECT(pspec : longint) : longint;
  760. begin
  761. G_IS_PARAM_SPEC_OBJECT:=G_TYPE_CHECK_INSTANCE_TYPE(pspec,G_TYPE_PARAM_OBJECT);
  762. end;
  763. { was #define dname(params) para_def_expr }
  764. { argument types are unknown }
  765. { return type might be wrong }
  766. function G_PARAM_SPEC_OBJECT(pspec : longint) : longint;
  767. begin
  768. G_PARAM_SPEC_OBJECT:=PGParamSpecObject(G_TYPE_CHECK_INSTANCE_CAST(pspec,G_TYPE_PARAM_OBJECT));
  769. end;
  770. function null_fold_if_empty(var a : TGParamSpecString) : guint;
  771. begin
  772. null_fold_if_empty:=(a.flag0 and bm_TGParamSpecString_null_fold_if_empty) shr bp_TGParamSpecString_null_fold_if_empty;
  773. end;
  774. procedure set_null_fold_if_empty(var a : TGParamSpecString; __null_fold_if_empty : guint);
  775. begin
  776. a.flag0:=a.flag0 or ((__null_fold_if_empty shl bp_TGParamSpecString_null_fold_if_empty) and bm_TGParamSpecString_null_fold_if_empty);
  777. end;
  778. function ensure_non_null(var a : TGParamSpecString) : guint;
  779. begin
  780. ensure_non_null:=(a.flag0 and bm_TGParamSpecString_ensure_non_null) shr bp_TGParamSpecString_ensure_non_null;
  781. end;
  782. procedure set_ensure_non_null(var a : TGParamSpecString; __ensure_non_null : guint);
  783. begin
  784. a.flag0:=a.flag0 or ((__ensure_non_null shl bp_TGParamSpecString_ensure_non_null) and bm_TGParamSpecString_ensure_non_null);
  785. end;