Example.rpc
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
;;;; Example.rpc
;;;; Creation: Michael Plass, April 25, 1990
;;;; Michael Plass, May 10, 1990 10:14 am PDT
(define-constant max-name-length 1024)
(define-type Font-Identifier
(record
(field filetype (string 8))
(field filename (string max-name-length))
(field xform (array 6 double))
)
)
(define-type Marking-Engine-Info
(record
(field xt double)
(field yt double)
(field xm double)
(field ym double)
(field xh boolean)
(field yh boolean)
(field xha boolean)
(field yha boolean)
(field xe cardinal)
(field ye cardinal)
(field s cardinal)
)
)
(define-type Character-Description
(record
(field char-code cardinal)
(field font-identifier Font-Identifier)
(field marking-engine-info Marking-Engine-Info)
)
)
(define-type Bitmap
(record
(field s-min integer)
(field f-min integer)
(field s-max integer)
(field f-max integer)
(field bits-per-line cardinal)
(field raw-bits Raw-Bits)
)
)
(define-type Raw-Bits (vector () cardinal))
(define-type Completion-Code (enum (success 0) (failure 1)))
(define-type Bitmap-Result
(union (field res completion-code)
((success) (field bitmap Bitmap))
((failure) (field reason (string 32)))
)
)
(define-program Example ((sun-rpc-program 559108190) (sun-rpc-version 0))
(define-procedure Null-Call (proc (void) void) (sun-rpc 0))
(define-procedure Bitmap-Call (proc (Character-Description) Bitmap-Result) (sun-rpc 1))
)