blob: 7069320f0c978b7d5582dba0b663c706a696536d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
clipboard.device interface unit for MorphOS/PowerPC
Based on work of Nils Sjoholm member of the Amiga RTL
development team.
MorphOS port was done on a free Pegasos II/G4 machine
provided by Genesi S.a.r.l. <www.genesi.lu>
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$PACKRECORDS 2}
unit clipboard;
interface
uses exec;
const
CBD_POST = CMD_NONSTD + 0;
CBD_CURRENTREADID = CMD_NONSTD + 1;
CBD_CURRENTWRITEID = CMD_NONSTD + 2;
CBD_CHANGEHOOK = CMD_NONSTD + 3;
CBERR_OBSOLETEID = 1;
type
pClipboardUnitPartial = ^tClipboardUnitPartial;
tClipboardUnitPartial = record
cu_Node : tNode; { list of units }
cu_UnitNum : DWord; { unit number for this unit }
{ the remaining unit data is private to the device }
end;
pIOClipReq = ^tIOClipReq;
tIOClipReq = record
io_Message : tMessage;
io_Device : pDevice; { device node pointer }
io_Unit : pClipboardUnitPartial; { unit (driver private) }
io_Command : Word; { device command }
io_Flags : Byte; { including QUICK and SATISFY }
io_Error : Shortint; { error or warning num }
io_Actual : DWord; { number of bytes transferred }
io_Length : DWord; { number of bytes requested }
io_Data : PChar; { either clip stream or post port }
io_Offset : DWord; { offset in clip stream }
io_ClipID : Longint; { ordinal clip identifier }
end;
const
PRIMARY_CLIP = 0; { primary clip unit }
type
pSatisfyMsg = ^tSatisfyMsg;
tSatisfyMsg = record
sm_Msg : tMessage; { the length will be 6 }
sm_Unit : Word; { which clip unit this is }
sm_ClipID : Longint; { the clip identifier of the post }
end;
pClipHookMsg = ^tClipHookMsg;
tClipHookMsg = record
chm_Type : DWord; { zero for this structure format }
chm_ChangeCmd, { command that caused this hook invocation: }
{ either CMD_UPDATE OR CBD_POST }
chm_ClipID : Longint; { the clip identifier of the new data }
END;
implementation
end.
|
