add.ry

来自「ftam等标准协议服务器和客户端的源代码。」· RY 代码 · 共 31 行

-- add.ry - C remote operations definitions for acusaptest 

ADD DEFINITIONS ::=

BEGIN

-- operations

addit	OPERATION
	ARGUMENT 	Addends
	RESULT   	Sum
	ERRORS		{ cantadd }
	::= 		1

-- errors

cantadd 
	ERROR
	::=		7

-- types
Sum	::=
	INTEGER

Addends ::=
	SEQUENCE {
		addend1 INTEGER,
		addend2 INTEGER }

END