File: tinterface6.pp

package info (click to toggle)
fpc 3.2.2%2Bdfsg-20
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bookworm-backports
  • size: 341,276 kB
  • sloc: pascal: 3,820,179; xml: 194,356; ansic: 9,637; asm: 8,482; java: 5,346; sh: 4,813; yacc: 3,956; makefile: 2,686; lex: 2,661; javascript: 2,454; sql: 929; php: 474; cpp: 145; perl: 134; sed: 132; csh: 34; tcl: 7
file content (36 lines) | stat: -rw-r--r-- 702 bytes parent folder | download | duplicates (13) 
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
 
{$mode objfpc}

uses
  sysutils;

type
{$interfaces corba}
  icorbainterface1 = interface
    ['STRING_UID']
  end;

  icorbainterface2 = interface
    ['{95B5633F-38A8-4D5F-A7FA-A2EA2664C670}']
  end;

{$interfaces com}
  icominterface = interface
    ['{04B6AB72-8F86-45F8-8D49-393E799F51A8}']
  end;

const
  iid_corba1: shortstring = icorbainterface1;
  iid_corba2: shortstring = icorbainterface2;
  iid_com: tguid = icominterface;
  iid_comref: tguid = '{04B6AB72-8F86-45F8-8D49-393E799F51A8}';

begin
  if iid_corba1 <> 'STRING_UID' then
    halt(1);

  if iid_corba2 <> '{95B5633F-38A8-4D5F-A7FA-A2EA2664C670}' then
    halt(1);

  if not IsEqualGUID(iid_com, iid_comref) then
    halt(1);
end.