DataMuseum.dk

top - download

    Length: 2753 (0xac1)
    Types: TextFile
    Names: »IMC3502.ERP«

└─⟦b6837b237⟧ Bits:30010500 SW2103 REL 1.11 Sourcer DVBS1.SW2103.rel.1.11-1 MASTER 31-1-192
    └─⟦this⟧ »SYS35022\IMC3502.ERP« 

TextFile

\r
imc3502env;\r
Type\r
scope_type=(anonymous,local,regional,global);\r
conn_service=(cs_normal,cs_high);\r
control_type=packed record\r
rcv_all,get_credit,?,?,?,?,?,?:boolean\r
end;\r
event_type=\r
(not_event,message_event,answer_event,process_removed,\r
port_closed,disconnected,letter_sent,\r
letter_arrived,local_connect,remote_connect,\r
reset_indication,reset_completion,credit,\r
data_sent,data_arrived,data_overrun,\r
dummy_letter,dummy_lcnct,dummy_rcnct,\r
dummy_rindic,dummy_rcmpl,dummy_credit,\r
dummy_sent,dummy_arrived,\r
msl_message,msl_answer,test_event);\r
reason_type=\r
(reason_ok,reason_name,reason_resource,\r
reason_closed,reason_network);\r
Const\r
receiveall_no=\r
control_type(:false,false,false,false,false,false,false,false:);\r
receiveall_yes=\r
control_type(:true,false,false,false,false,false,false,false:);\r
Type\r
port=\r
RECORD\r
?:byte;\r
$IF language=rtp3502\r
?:^semaphore;\r
?:semaphore;\r
?:semaphore;\r
?:semaphore;\r
$ELSE\r
?:^mailbox;\r
?:mailbox;\r
?:mailbox;\r
?:mailbox;\r
$ENDIF\r
END;\r
alfa3=ARRAY(1..3)OF char;\r
alfa9=ARRAY(1..9)OF char;\r
masknames_t=RECORD\r
linkno:integer;\r
length:byte;\r
name:alfa9;\r
END;\r
FUNCTION alias(VAR p:port;\r
$IF language=rtp2111\r
name:alfa\r
$ELSEIF language=rtp3502\r
name:alfa\r
$ELSE\r
name:string\r
$ENDIF\r
):boolean;\r
EXTERNAL;\r
PROCEDURE closeport(VAR p:port);EXTERNAL;\r
PROCEDURE connect(VAR p:port;index:1..maxint;\r
VAR compl,disc:reference;\r
$IF language=rtp2111\r
remote_name:alfa;\r
$ELSEIF language=rtp3502\r
remote_name:alfa;\r
$ELSE\r
remote_name:string;\r
$ENDIF\r
service:conn_service);EXTERNAL;\r
FUNCTION creditcount(VAR r:reference):0..maxint;EXTERNAL;\r
PROCEDURE disconnect(VAR p:port;index:1..maxint);EXTERNAL;\r
FUNCTION eventkind(VAR r:reference):event_type;EXTERNAL;\r
PROCEDURE getconnection(VAR p:port;index:1..maxint;\r
VAR compl,disc:reference);EXTERNAL;\r
PROCEDURE getcredit(VAR p:port;index:1..maxint;\r
VAR credbuf:reference);EXTERNAL;\r
PROCEDURE getreset(VAR p:port;index:1..maxint;\r
VAR indic:reference);EXTERNAL;\r
FUNCTION imcpresent:boolean;EXTERNAL;\r
FUNCTION index(VAR r:reference):0..maxint;EXTERNAL;\r
PROCEDURE getservers(VAR r:reference;mask:alfa3);EXTERNAL;\r
FUNCTION maxconnections:0..maxint;EXTERNAL;\r
PROCEDURE openport(VAR p:port;VAR closemes:reference;\r
$IF language=rtp2111\r
name:alfa;\r
$ELSEIF language=rtp3502\r
name:alfa;\r
$ELSE\r
name:string;\r
$ENDIF\r
scope:scope_type;\r
no_of_conns:0..maxint;cntrl:control_type);EXTERNAL;\r
FUNCTION reason(VAR r:reference):reason_type;EXTERNAL;\r
PROCEDURE receive(VAR p:port;index:1..maxint;\r
VAR databuf:reference);EXTERNAL;\r
PROCEDURE receiveall(VAR p:port;VAR databuf:reference);EXTERNAL;\r
PROCEDURE reset(VAR p:port;index:1..maxint;\r
VAR compl:reference);EXTERNAL;\r
PROCEDURE send(VAR p:port;index:1..maxint;\r
VAR databuf:reference);EXTERNAL;\r
.\r