paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 00:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup, removed warnings

Browse Source 
* external decls moved from implementation to interface
This commit is contained in:
peter 2000-02-27 13:11:31 +00:00
parent 3a5a62b567
commit febb7a0d06
6 changed files with 1155 additions and 1720 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/x11/Makefile
View File

@ -1,5 +1,5 @@
# #
# Makefile generated by fpcmake v0.99.13 [2000/02/09] # Makefile generated by fpcmake v0.99.13 [2000/02/24]
# #
defaultrule: all defaultrule: all
@ -184,7 +184,7 @@ endif
# Targets # Targets
override UNITOBJECTS+=x xresource xlib xutil override UNITOBJECTS+=x xlib xutil xresource
# Clean # Clean

2
packages/x11/Makefile.fpc
View File

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

64
packages/x11/x.pp
View File

@ -10,18 +10,18 @@ unit x;
X_PROTOCOL = 11; X_PROTOCOL = 11;
X_PROTOCOL_REVISION = 0; X_PROTOCOL_REVISION = 0;
type type
{ Inserted the following by hand. It was under a ifndef _XSERVER64. All { Inserted the following by hand. It was under a ifndef _XSERVER64. All
were unsigned longs originally were unsigned longs originally
-- MVC. } -- MVC. }
TXID = cardinal ; TXID = cardinal ;
TMask = cardinal ; TMask = cardinal ;
TAtom = cardinal ; TAtom = cardinal ;
TVisualID = cardinal ; TVisualID = cardinal ;
TTime = cardinal ; TTime = cardinal ;
{ End of insert } { End of insert }
TWindow = TXID; TWindow = TXID;
TDrawable = TXID; TDrawable = TXID;
TFont = TXID; TFont = TXID;
@ -33,13 +33,13 @@ unit x;
TKeyCode = char; TKeyCode = char;
PKeyCode = ^TKeyCode; PKeyCode = ^TKeyCode;
{ Pointers to all these things. Needed for C calls. MVC } { Pointers to all these things. Needed for C calls. MVC }
PAtom = ^TAtom; PAtom = ^TAtom;
PPAtom = ^PAtom; PPAtom = ^PAtom;
PWindow = ^TWindow; PWindow = ^TWindow;
PColormap = ^TColormap; PColormap = ^TColormap;
PKeySym = ^TKeysym; PKeySym = ^TKeysym;
PPixmap = ^TPixmap; PPixmap = ^TPixmap;
{***************************************************************** {*****************************************************************
* RESERVED RESOURCE AND CONSTANT DEFINITIONS * RESERVED RESOURCE AND CONSTANT DEFINITIONS
*****************************************************************} *****************************************************************}
@ -48,12 +48,12 @@ unit x;
const const
None = 0; None = 0;
{* background pixmap in CreateWindow {* background pixmap in CreateWindow
and ChangeWindowAttributes *} and ChangeWindowAttributes *}
ParentRelative = 1; ParentRelative = 1;
{* border pixmap in CreateWindow {* border pixmap in CreateWindow
and ChangeWindowAttributes and ChangeWindowAttributes
special VisualID and special window special VisualID and special window
class passed to CreateWindow *} class passed to CreateWindow *}
CopyFromParent = 0; CopyFromParent = 0;
{* destination window in SendEvent *} {* destination window in SendEvent *}
PointerWindow = 0; PointerWindow = 0;
@ -72,8 +72,8 @@ unit x;
{* special Time *} {* special Time *}
CurrentTime = 0; CurrentTime = 0;
{* special KeySym *} {* special KeySym *}
{***************************************************************** {*****************************************************************
* EVENT DEFINITIONS * EVENT DEFINITIONS
*****************************************************************} *****************************************************************}
{* Input Event Masks. Used as event-mask window attribute and as arguments {* Input Event Masks. Used as event-mask window attribute and as arguments
to Grab requests. Not to be confused with event names. *} to Grab requests. Not to be confused with event names. *}
@ -233,7 +233,7 @@ unit x;
{* Used in SetInputFocus, GetInputFocus *} {* Used in SetInputFocus, GetInputFocus *}
SyncBoth = 7; SyncBoth = 7;
{***************************************************************** {*****************************************************************
* ERROR CODES * ERROR CODES
*****************************************************************} *****************************************************************}
RevertToParent = 2; RevertToParent = 2;
{* everything's okay *} {* everything's okay *}
@ -257,14 +257,14 @@ unit x;
{* parameter not a Pixmap or Window *} {* parameter not a Pixmap or Window *}
BadDrawable = 9; BadDrawable = 9;
{* depending on context: {* depending on context:
- key/button already grabbed - key/button already grabbed
- attempt to free an illegal - attempt to free an illegal
cmap entry cmap entry
- attempt to store into a read-only - attempt to store into a read-only
color map entry. color map entry.
- attempt to modify the access control - attempt to modify the access control
list from other than the local host. list from other than the local host.
*} *}
BadAccess = 10; BadAccess = 10;
{* insufficient resources *} {* insufficient resources *}
BadAlloc = 11; BadAlloc = 11;
@ -282,7 +282,7 @@ unit x;
BadImplementation = 17; BadImplementation = 17;
FirstExtensionError = 128; FirstExtensionError = 128;
{***************************************************************** {*****************************************************************
* WINDOW DEFINITIONS * WINDOW DEFINITIONS
*****************************************************************} *****************************************************************}
{* Window classes used by CreateWindow *} {* Window classes used by CreateWindow *}
{* Note that CopyFromParent is already defined as 0 above *} {* Note that CopyFromParent is already defined as 0 above *}
@ -463,14 +463,14 @@ unit x;
GCDashList = (1) shl (21); GCDashList = (1) shl (21);
GCArcMode = (1) shl (22); GCArcMode = (1) shl (22);
{***************************************************************** {*****************************************************************
* FONTS * FONTS
*****************************************************************} *****************************************************************}
{* used in QueryFont -- draw direction *} {* used in QueryFont -- draw direction *}
GCLastBit = 22; GCLastBit = 22;
FontLeftToRight = 0; FontLeftToRight = 0;
FontRightToLeft = 1; FontRightToLeft = 1;
{***************************************************************** {*****************************************************************
* IMAGING * IMAGING
*****************************************************************} *****************************************************************}
{* ImageFormat -- PutImage, GetImage *} {* ImageFormat -- PutImage, GetImage *}
FontChange = 255; FontChange = 255;
@ -480,7 +480,7 @@ unit x;
XYPixmap = 1; XYPixmap = 1;
{* depth == drawable depth *} {* depth == drawable depth *}
{***************************************************************** {*****************************************************************
* COLOR MAP STUFF * COLOR MAP STUFF
*****************************************************************} *****************************************************************}
{* For CreateColormap *} {* For CreateColormap *}
ZPixmap = 2; ZPixmap = 2;
@ -501,7 +501,7 @@ unit x;
{* size tiled fastest *} {* size tiled fastest *}
TileShape = 1; TileShape = 1;
{* size stippled fastest *} {* size stippled fastest *}
{***************************************************************** {*****************************************************************
* KEYBOARD/POINTER STUFF * KEYBOARD/POINTER STUFF
*****************************************************************} *****************************************************************}
StippleShape = 2; StippleShape = 2;
@ -525,7 +525,7 @@ unit x;
MappingModifier = 0; MappingModifier = 0;
MappingKeyboard = 1; MappingKeyboard = 1;
{***************************************************************** {*****************************************************************
* SCREEN SAVER STUFF * SCREEN SAVER STUFF
*****************************************************************} *****************************************************************}
MappingPointer = 2; MappingPointer = 2;
DontPreferBlanking = 0; DontPreferBlanking = 0;
@ -547,7 +547,7 @@ unit x;
{* for ChangeAccessControl *} {* for ChangeAccessControl *}
HostDelete = 1; HostDelete = 1;
EnableAccess = 1; EnableAccess = 1;
{* Display classes used in opening the connection {* Display classes used in opening the connection
* Note that the statically allocated ones are even numbered and the * Note that the statically allocated ones are even numbered and the
* dynamically changeable ones are odd numbered *} * dynamically changeable ones are odd numbered *}
DisableAccess = 0; DisableAccess = 0;

1454
packages/x11/xlib.pp
View File

File diff suppressed because it is too large Load Diff

481
packages/x11/xresource.pp
View File

@ -1,113 +1,106 @@
{
$Id$
}
unit xresource; unit xresource;
interface interface
uses xlib; uses
xlib;
{*************************************************************** {***************************************************************
*
* Quark Management * Quark Management
*
***************************************************************} ***************************************************************}
type type
TXrmQuark = Integer; TXrmQuark = Longint;
PXrmQuark = ^TXrmQuark; PXrmQuark = ^TXrmQuark;
TXrmQuarkList = PXrmQuark; TXrmQuarkList = PXrmQuark;
TXrmString = Pchar;
Const NULLQUARK = 0 ;
type TXrmString = Pchar; Const
NULLQUARK = 0 ;
const NULLSTRING = 0; NULLSTRING = 0;
{ find quark for string, create new quark if none already exists } { find quark for string, create new quark if none already exists }
Function XrmStringToQuark( p1 : pchar ) : TXrmQuark;cdecl; Function XrmStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;external;
Function XrmPermStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;external;
Function XrmPermStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;
{ find string for quark } { find string for quark }
Function XrmQuarkToString( p1 : TXrmQuark) : TXrmString;cdecl; Function XrmQuarkToString( p1 : TXrmQuark) : TXrmString;cdecl;external;
Function XrmUniqueQuark : TXrmQuark;cdecl;external;
Function XrmUniqueQuark : TXrmQuark;cdecl;
{ {
#define XrmStringsEqual(a1, a2) (strcmp(a1, a2) == 0) #define XrmStringsEqual(a1, a2) (strcmp(a1, a2) == 0)
} }
{*************************************************************** {***************************************************************
*
* Conversion of Strings to Lists * Conversion of Strings to Lists
*
***************************************************************} ***************************************************************}
type type
TXrmBinding = integer; TXrmBinding = longint;
TXrmBindingList = ^Integer; TXrmBindingList = ^longint;
Const XrmBindTightly = 0; Const
XrmBindLoosely = 1; XrmBindTightly = 0;
XrmBindLoosely = 1;
procedure XrmStringToQuarkList( procedure XrmStringToQuarkList(
p1 : pchar { string }; p1 : pchar { string };
p2 : TXrmQuarkList { quarks_return } p2 : TXrmQuarkList { quarks_return }
);cdecl; );cdecl;external;
procedure XrmStringToBindingQuarkList( procedure XrmStringToBindingQuarkList(
p1 : pchar { string }; p1 : pchar { string };
p2 : TXrmBindingList { bindings_return }; p2 : TXrmBindingList { bindings_return };
p3 : TXrmQuarkList { quarks_return } p3 : TXrmQuarkList { quarks_return }
);cdecl; );cdecl;external;
{*************************************************************** {***************************************************************
*
* Name and Class lists. * Name and Class lists.
*
***************************************************************} ***************************************************************}
type TXrmName = TXrmQuark; type
TXrmNameList = TXrmQuarkList ; TXrmName = TXrmQuark;
{ TXrmNameList = TXrmQuarkList ;
#define XrmNameToString(name) XrmQuarkToString(name) {
#define XrmStringToName(string) XrmStringToQuark(string) #define XrmNameToString(name) XrmQuarkToString(name)
#define XrmStringToNameList(str, name) XrmStringToQuarkList(str, name) #define XrmStringToName(string) XrmStringToQuark(string)
#define XrmStringToNameList(str, name) XrmStringToQuarkList(str, name)
} }
TXrmClass = TXrmQuark; TXrmClass = TXrmQuark;
TXrmClassList = TXrmQuarkList; TXrmClassList = TXrmQuarkList;
{ {
#define XrmClassToString(c_class) XrmQuarkToString(c_class) #define XrmClassToString(c_class) XrmQuarkToString(c_class)
#define XrmStringToClass(c_class) XrmStringToQuark(c_class) #define XrmStringToClass(c_class) XrmStringToQuark(c_class)
#define XrmStringToClassList(str,c_class) XrmStringToQuarkList(str, c_class) #define XrmStringToClassList(str,c_class) XrmStringToQuarkList(str, c_class)
} }
{*************************************************************** {***************************************************************
*
* Resource Representation Types and Values * Resource Representation Types and Values
*
***************************************************************} ***************************************************************}
type TXrmRepresentation = TXrmQuark ; type
PXrmRepresentation = ^TXrmRepresentation; TXrmRepresentation = TXrmQuark ;
PXrmRepresentation = ^TXrmRepresentation;
{ {
#define XrmStringToRepresentation(string) XrmStringToQuark(string) #define XrmStringToRepresentation(string) XrmStringToQuark(string)
#define XrmRepresentationToString(type) XrmQuarkToString(type) #define XrmRepresentationToString(type) XrmQuarkToString(type)
} }
type TXrmValue = record type
TXrmValue = record
size : word; size : word;
theaddr : TXPointer; theaddr : TXPointer;
end; end;
PXrmValue = ^TXrmValue; PXrmValue = ^TXrmValue;
TXrmValuePtr = PXrmValue; TXrmValuePtr = PXrmValue;
{*************************************************************** {***************************************************************
*
* Resource Manager Functions * Resource Manager Functions
*
***************************************************************} ***************************************************************}
{ {
typedef struct _XrmHashBucketRec *XrmHashBucket; typedef struct _XrmHashBucketRec *XrmHashBucket;
@ -115,79 +108,80 @@ typedef XrmHashBucket *XrmHashTable;
typedef XrmHashTable XrmSearchList[]; typedef XrmHashTable XrmSearchList[];
typedef struct _XrmHashBucketRec *XrmDatabase; typedef struct _XrmHashBucketRec *XrmDatabase;
} }
Type TXrmHashBucket = pointer; Type
TXrmHashTable = ^TXrmHashBucket; TXrmHashBucket = pointer;
TXrmSearchList = ^TXrmHashTable; TXrmHashTable = ^TXrmHashBucket;
TXrmDatabase = pointer; TXrmSearchList = ^TXrmHashTable;
PXrmDatabase = ^TXrmDatabase; TXrmDatabase = pointer;
PXrmDatabase = ^TXrmDatabase;
procedure XrmDestroyDatabase( procedure XrmDestroyDatabase(
p1 : TXrmDatabase { database } p1 : TXrmDatabase { database }
);cdecl; );cdecl;external;
Procedure XrmQPutResource( Procedure XrmQPutResource(
p1 : PXrmDatabase { database }; p1 : PXrmDatabase { database };
p2 : TXrmBindingList { bindings }; p2 : TXrmBindingList { bindings };
p3 : TXrmQuarkList { quarks }; p3 : TXrmQuarkList { quarks };
p4 : TXrmRepresentation { type }; p4 : TXrmRepresentation { type };
p5 : PXrmValue { value } p5 : PXrmValue { value }
);cdecl; );cdecl;external;
Procedure XrmPutResource( Procedure XrmPutResource(
p1 : PXrmDatabase { database }; p1 : PXrmDatabase { database };
p2 : pchar { specifier }; p2 : pchar { specifier };
p3 : pchar { type }; p3 : pchar { type };
p4 : PXrmValue { value } p4 : PXrmValue { value }
);cdecl; );cdecl;external;
Procedure XrmQPutStringResource( Procedure XrmQPutStringResource(
p1 : PXrmDatabase { database }; p1 : PXrmDatabase { database };
p2 : TXrmBindingList { bindings }; p2 : TXrmBindingList { bindings };
p3 : TXrmQuarkList { quarks }; p3 : TXrmQuarkList { quarks };
p4 : Pchar { value } p4 : Pchar { value }
);cdecl; );cdecl;external;
Procedure XrmPutStringResource( Procedure XrmPutStringResource(
P1 : PXrmDatabase { database }; P1 : PXrmDatabase { database };
p2,p3 : pchar p2,p3 : pchar
);cdecl; );cdecl;external;
Procedure XrmPutLineResource( Procedure XrmPutLineResource(
p1 : PXrmDatabase { database }; p1 : PXrmDatabase { database };
p2 : pchar { line } p2 : pchar { line }
);cdecl; );cdecl;external;
Function XrmQGetResource( Function XrmQGetResource(
p1 : PXrmDatabase { database }; p1 : PXrmDatabase { database };
p2 : TXrmNameList { quark_name }; p2 : TXrmNameList { quark_name };
p3 : TXrmClassList { quark_class }; p3 : TXrmClassList { quark_class };
p4 : PXrmRepresentation { quark_type_return }; p4 : PXrmRepresentation { quark_type_return };
p5 : PXrmValue { value_return } p5 : PXrmValue { value_return }
) : Integer;cdecl; ) : Integer;cdecl;external;
Function XrmGetResource( Function XrmGetResource(
p1 : TXrmDatabase { database }; p1 : TXrmDatabase { database };
p2 : pchar { str_name }; p2 : pchar { str_name };
p3 : pchar { str_class }; p3 : pchar { str_class };
p4 : ppchar { str_type_return }; p4 : ppchar { str_type_return };
p5 : PXrmValue { value_return } p5 : PXrmValue { value_return }
) : Tbool;cdecl; ) : Tbool;cdecl;external;
Function XrmQGetSearchList( Function XrmQGetSearchList(
p1 : TXrmDatabase { database }; p1 : TXrmDatabase { database };
p2 : TXrmNameList { names }; p2 : TXrmNameList { names };
p3 : TXrmClassList { classes }; p3 : TXrmClassList { classes };
p4 : TXrmSearchList { list_return }; p4 : TXrmSearchList { list_return };
p5 : integer { list_length } p5 : integer { list_length }
) : Tbool;cdecl; ) : Tbool;cdecl;external;
Function XrmQGetSearchResource( Function XrmQGetSearchResource(
P1 : TXrmSearchList { list }; P1 : TXrmSearchList { list };
p2 : TXrmName { name }; p2 : TXrmName { name };
p3 : TXrmClass { class }; p3 : TXrmClass { class };
p4 : PXrmRepresentation { type_return }; p4 : PXrmRepresentation { type_return };
p5 : PXrmValue { value_return } p5 : PXrmValue { value_return }
) : TBool;cdecl; ) : TBool;cdecl;external;
{*************************************************************** {***************************************************************
* *
@ -196,69 +190,69 @@ Function XrmQGetSearchResource(
***************************************************************} ***************************************************************}
procedure XrmSetDatabase( procedure XrmSetDatabase(
p1 : PDisplay { display }; p1 : PDisplay { display };
p2 : TXrmDatabase { database } p2 : TXrmDatabase { database }
);cdecl; );cdecl;external;
Function XrmGetDatabase( Function XrmGetDatabase(
p1 : PDisplay { display } p1 : PDisplay { display }
) : TXrmDatabase;cdecl; ) : TXrmDatabase;cdecl;external;
Function XrmGetFileDatabase( Function XrmGetFileDatabase(
p1 : pchar { filename } p1 : pchar { filename }
) : TXrmDatabase ;cdecl; ) : TXrmDatabase ;cdecl;external;
Function XrmCombineFileDatabase( Function XrmCombineFileDatabase(
p1 : pchar { filename }; p1 : pchar { filename };
p2 : PXrmDatabase { target }; p2 : PXrmDatabase { target };
p3 : TBool { override } p3 : TBool { override }
) : TStatus ;cdecl; ) : TStatus ;cdecl;external;
function XrmGetStringDatabase( function XrmGetStringDatabase(
p1 : pchar { data } { null terminated string } p1 : pchar { data } { null terminated string }
) : TXrmDatabase ;cdecl; ) : TXrmDatabase ;cdecl;external;
Procedure XrmPutFileDatabase( Procedure XrmPutFileDatabase(
p1 : TXrmDatabase { database }; p1 : TXrmDatabase { database };
p2: pchar { filename } p2: pchar { filename }
);cdecl; );cdecl;external;
Procedure XrmMergeDatabases( Procedure XrmMergeDatabases(
p1 : TXrmDatabase { source_db }; p1 : TXrmDatabase { source_db };
p2 : PXrmDatabase { target_db } p2 : PXrmDatabase { target_db }
);cdecl; );cdecl;external;
procedure XrmCombineDatabase( procedure XrmCombineDatabase(
p1 : TXrmDatabase { source_db }; p1 : TXrmDatabase { source_db };
p2 : PXrmDatabase { target_db }; p2 : PXrmDatabase { target_db };
p3 : TBool { override } p3 : TBool { override }
);cdecl; );cdecl;external;
const const
XrmEnumAllLevels = 0; XrmEnumAllLevels = 0;
XrmEnumOneLevel = 1; XrmEnumOneLevel = 1;
{ (*
Function XrmEnumerateDatabase( Function XrmEnumerateDatabase(
XrmDatabase { db }; XrmDatabase { db };
XrmNameList { name_prefix }; XrmNameList { name_prefix };
XrmClassList { class_prefix }; XrmClassList { class_prefix };
int { mode }; int { mode };
Bool (*)(#if NeedNestedPrototypes Bool *(#if NeedNestedPrototypes
XrmDatabase* { db }; XrmDatabase* { db };
XrmBindingList { bindings }; XrmBindingList { bindings };
XrmQuarkList { quarks }; XrmQuarkList { quarks };
XrmRepresentation* { type }; XrmRepresentation* { type };
XrmValue* { value }; XrmValue* { value };
XPointer { closure } XPointer { closure }
) { proc }; ) { proc };
XPointer { closure } XPointer { closure }
) : TBool; ) : TBool;
} *)
Function XrmLocaleOfDatabase( Function XrmLocaleOfDatabase(
P1 : TXrmDatabase { database } P1 : TXrmDatabase { database }
) : Pchar;cdecl; ) : Pchar;cdecl;external;
{*************************************************************** {***************************************************************
@ -268,190 +262,43 @@ Function XrmLocaleOfDatabase(
***************************************************************} ***************************************************************}
Const Const
XrmoptionNoArg = 0; { Value is specified in OptionDescRec.value } XrmoptionNoArg = 0; { Value is specified in OptionDescRec.value }
XrmoptionIsArg = 1; { Value is the option string itself } XrmoptionIsArg = 1; { Value is the option string itself }
XrmoptionStickyArg = 2; { Value is characters immediately following option } XrmoptionStickyArg = 2; { Value is characters immediately following option }
XrmoptionSepArg = 3; { Value is next argument in argv } XrmoptionSepArg = 3; { Value is next argument in argv }
XrmoptionResArg = 4; { Resource and value in next argument in argv } XrmoptionResArg = 4; { Resource and value in next argument in argv }
XrmoptionSkipArg = 5; { Ignore this option and the next argument in argv } XrmoptionSkipArg = 5; { Ignore this option and the next argument in argv }
XrmoptionSkipLine = 6; { Ignore this option and the rest of argv } XrmoptionSkipLine = 6; { Ignore this option and the rest of argv }
XrmoptionSkipNArgs = 7; { Ignore this option and the next XrmoptionSkipNArgs = 7; { Ignore this option and the next
OptionDescRes.value arguments in argv } OptionDescRes.value arguments in argv }
Type TXrmOptionKind = Integer; Type TXrmOptionKind = Integer;
TXrmOptionDescRec = record TXrmOptionDescRec = record
option : pchar; { Option abbreviation in argv } option : pchar; { Option abbreviation in argv }
specifier : pchar; { Resource specifier } specifier : pchar; { Resource specifier }
argKind : TXrmOptionKind; { Which style of option it is } argKind : TXrmOptionKind; { Which style of option it is }
value : TXpointer; { Value to provide if XrmoptionNoArg } value : TXpointer; { Value to provide if XrmoptionNoArg }
end; end;
PXrmOptionDescRec= ^TXrmOptionDescRec; PXrmOptionDescRec= ^TXrmOptionDescRec;
TXrmOptionDescList = PXrmOptionDescRec; TXrmOptionDescList = PXrmOptionDescRec;
Procedure XrmParseCommand( Procedure XrmParseCommand(
p1 : TXrmDatabase { database }; p1 : TXrmDatabase { database };
p2 : TXrmOptionDescList { table }; p2 : TXrmOptionDescList { table };
p3 : integer { table_count }; p3 : integer { table_count };
p4 : pchar { name }; p4 : pchar { name };
p5 : Pointer { argc_in_out }; p5 : Pointer { argc_in_out };
p6 : ppchar { argv_in_out } p6 : ppchar { argv_in_out }
);cdecl; );cdecl;external;
Implementation Implementation
Function XrmStringToQuark( p1 : pchar ) : TXrmQuark; cdecl; external; end.
Function XrmPermStringToQuark( p1 : pchar ) : TXrmQuark; cdecl; external;
Function XrmQuarkToString( p1 : TXrmQuark) : TXrmString; cdecl; external;
Function XrmUniqueQuark : TXrmQuark; cdecl; external;
procedure XrmStringToQuarkList(
p1 : pchar { string };
p2 : TXrmQuarkList { quarks_return }
); cdecl; external;
procedure XrmStringToBindingQuarkList(
p1 : pchar { string };
p2 : TXrmBindingList { bindings_return };
p3 : TXrmQuarkList { quarks_return }
); cdecl; external;
procedure XrmDestroyDatabase(
p1 : TXrmDatabase { database }
); cdecl; external;
Procedure XrmQPutResource(
p1 : PXrmDatabase { database };
p2 : TXrmBindingList { bindings };
p3 : TXrmQuarkList { quarks };
p4 : TXrmRepresentation { type };
p5 : PXrmValue { value }
); cdecl; external;
Procedure XrmPutResource(
p1 : PXrmDatabase { database };
p2 : pchar { specifier };
p3 : pchar { type };
p4 : PXrmValue { value }
); cdecl; external;
Procedure XrmQPutStringResource(
p1 : PXrmDatabase { database };
p2 : TXrmBindingList { bindings };
p3 : TXrmQuarkList { quarks };
p4 : Pchar { value }
); cdecl; external;
procedure XrmPutStringResource(
P1 : PXrmDatabase { database };
p2,p3 : pchar
); cdecl; external;
Procedure XrmPutLineResource(
p1 : PXrmDatabase { database };
p2 : pchar { line }
); cdecl; external;
Function XrmQGetResource(
p1 : PXrmDatabase { database };
p2 : TXrmNameList { quark_name };
p3 : TXrmClassList { quark_class };
p4 : PXrmRepresentation { quark_type_return };
p5 : PXrmValue { value_return }
) : Integer; cdecl; external;
Function XrmGetResource(
p1 : TXrmDatabase { database };
p2 : pchar { str_name };
p3 : pchar { str_class };
p4 : ppchar { str_type_return };
p5 : PXrmValue { value_return }
) : Tbool; cdecl; external;
Function XrmQGetSearchList(
p1 : TXrmDatabase { database };
p2 : TXrmNameList { names };
p3 : TXrmClassList { classes };
p4 : TXrmSearchList { list_return };
p5 : integer { list_length }
) : Tbool; cdecl; external;
Function XrmQGetSearchResource(
P1 : TXrmSearchList { list };
p2 : TXrmName { name };
p3 : TXrmClass { class };
p4 : PXrmRepresentation { type_return };
p5 : PXrmValue { value_return }
) : TBool; cdecl; external;
procedure XrmSetDatabase(
p1 : PDisplay { display };
p2 : TXrmDatabase { database }
); cdecl; external;
Function XrmGetDatabase(
p1 : PDisplay { display }
) : TXrmDatabase; cdecl; external;
Function XrmGetFileDatabase(
p1 : pchar { filename }
) : TXrmDatabase ; cdecl; external;
Function XrmCombineFileDatabase(
p1 : pchar { filename };
p2 : PXrmDatabase { target };
p3 : TBool { override }
) : TStatus ; cdecl; external;
function XrmGetStringDatabase(
p1 : pchar { data } { null terminated string }
) : TXrmDatabase ; cdecl; external;
Procedure XrmPutFileDatabase(
p1 : TXrmDatabase { database };
p2: pchar { filename }
); cdecl; external;
Procedure XrmMergeDatabases(
p1 : TXrmDatabase { source_db };
p2 : PXrmDatabase { target_db }
); cdecl; external;
procedure XrmCombineDatabase(
p1 : TXrmDatabase { source_db };
p2 : PXrmDatabase { target_db };
p3 : TBool { override }
); cdecl; external;
{ {
Function XrmEnumerateDatabase( $Log$
XrmDatabase { db }; Revision 1.2 2000-02-27 13:11:31 peter
XrmNameList { name_prefix }; * cleanup, removed warnings
XrmClassList { class_prefix }; * external decls moved from implementation to interface
int { mode };
Bool (*)(#if NeedNestedPrototypes
XrmDatabase* { db };
XrmBindingList { bindings };
XrmQuarkList { quarks };
XrmRepresentation* { type };
XrmValue* { value };
XPointer { closure }
) { proc };
XPointer { closure }
) : TBool; cdecl; external;
} }
Function XrmLocaleOfDatabase(
P1 : TXrmDatabase { database }
) : Pchar; cdecl; external;
Procedure XrmParseCommand(
p1 : TXrmDatabase { database };
p2 : TXrmOptionDescList { table };
p3 : integer { table_count };
p4 : pchar { name };
p5 : Pointer { argc_in_out };
p6 : ppchar { argv_in_out }
); cdecl; external;
end.

870
packages/x11/xutil.pp
View File

File diff suppressed because it is too large Load Diff