//  -------------------------------------------------
//
//  Stub file "stub.cfrhand-client"
//
//  Generated from "stub.cfrhand-def" version 3
//  Written on Friday, 16-Oct-87 at 17:34:37
//
//  -------------------------------------------------



//  GLOBAL
//  $(
//      clientstub.findcfrinfo
//      clientstub.findpublicassociation
//      clientstub.extractinfo
//      clientstub.addassociation
//      clientstub.modifyassociation
//      clientstub.deleteassociation
//  $)



AND clientstub.findcfrinfo( rpc.channel, device, address, config )  =  VALOF
$(
//  RPC function 1 version 3
//
//    PROCEDURE findcfrinfo( device, address, config )  PROTOCOL eo
//      INT device  IN
//      INT address  IN
//      INT config  IN
//    END findcfrinfo

    LET ccb  =  clientccb( rpc.channel, 1, 3, protocoltype.eo )

    //  Nothing to marshall

    UNLESS  rpc.call( ccb )  DO  GOTO  failed

    UNLESS  marshall.int( ccb, device )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, address )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, config )  DO  GOTO  failed

    freeclientccb( ccb )
    RESULTIS  TRUE

failed:
    freeclientccb( ccb )
    RESULTIS  FALSE
$)



AND clientstub.findpublicassociation( rpc.channel, association )  =  VALOF
$(
//  RPC function 2 version 3
//
//    PROCEDURE findpublicassociation( association )  PROTOCOL eo
//      INT association  IN
//    END findpublicassociation

    LET ccb  =  clientccb( rpc.channel, 2, 3, protocoltype.eo )

    //  Nothing to marshall

    UNLESS  rpc.call( ccb )  DO  GOTO  failed

    UNLESS  marshall.int( ccb, association )  DO  GOTO  failed

    freeclientccb( ccb )
    RESULTIS  TRUE

failed:
    freeclientccb( ccb )
    RESULTIS  FALSE
$)



AND clientstub.extractinfo( rpc.channel, association, port, peeraddr, peerport, timeout )  =  VALOF
$(
//  RPC function 3 version 3
//
//    PROCEDURE extractinfo( association, port, peeraddr, peerport, timeout )  PROTOCOL eo
//      INT association  OUT
//      INT port  IN
//      INT peeraddr  IN
//      INT peerport  IN
//      INT timeout  IN
//    END extractinfo

    LET ccb  =  clientccb( rpc.channel, 3, 3, protocoltype.eo )

    UNLESS  marshall.int( ccb, association )  DO  GOTO  failed

    UNLESS  rpc.call( ccb )  DO  GOTO  failed

    UNLESS  marshall.int( ccb, port )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, peeraddr )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, peerport )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, timeout )  DO  GOTO  failed

    freeclientccb( ccb )
    RESULTIS  TRUE

failed:
    freeclientccb( ccb )
    RESULTIS  FALSE
$)



AND clientstub.addassociation( rpc.channel, association, port, peeraddr, peerport, timeout )  =  VALOF
$(
//  RPC function 4 version 3
//
//    PROCEDURE addassociation( association, port, peeraddr, peerport, timeout )  PROTOCOL eo
//      INT association  IN
//      INT port  IN
//      INT peeraddr  OUT
//      INT peerport  OUT
//      INT timeout  OUT
//    END addassociation

    LET ccb  =  clientccb( rpc.channel, 4, 3, protocoltype.eo )

    UNLESS  marshall.int( ccb, peeraddr )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, peerport )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, timeout )  DO  GOTO  failed

    UNLESS  rpc.call( ccb )  DO  GOTO  failed

    UNLESS  marshall.int( ccb, association )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, port )  DO  GOTO  failed

    freeclientccb( ccb )
    RESULTIS  TRUE

failed:
    freeclientccb( ccb )
    RESULTIS  FALSE
$)



AND clientstub.modifyassociation( rpc.channel, association, peeraddr, peerport, timeout )  =  VALOF
$(
//  RPC function 5 version 3
//
//    PROCEDURE modifyassociation( association, peeraddr, peerport, timeout )  PROTOCOL eo
//      INT association  OUT
//      INT peeraddr  OUT
//      INT peerport  OUT
//      INT timeout  OUT
//    END modifyassociation

    LET ccb  =  clientccb( rpc.channel, 5, 3, protocoltype.eo )

    UNLESS  marshall.int( ccb, association )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, peeraddr )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, peerport )  DO  GOTO  failed
    UNLESS  marshall.int( ccb, timeout )  DO  GOTO  failed

    UNLESS  rpc.call( ccb )  DO  GOTO  failed

    //  Nothing to marshall

    freeclientccb( ccb )
    RESULTIS  TRUE

failed:
    freeclientccb( ccb )
    RESULTIS  FALSE
$)



AND clientstub.deleteassociation( rpc.channel, association )  =  VALOF
$(
//  RPC function 6 version 3
//
//    PROCEDURE deleteassociation( association )  PROTOCOL eo
//      INT association  OUT
//    END deleteassociation

    LET ccb  =  clientccb( rpc.channel, 6, 3, protocoltype.eo )

    UNLESS  marshall.int( ccb, association )  DO  GOTO  failed

    UNLESS  rpc.call( ccb )  DO  GOTO  failed

    //  Nothing to marshall

    freeclientccb( ccb )
    RESULTIS  TRUE

failed:
    freeclientccb( ccb )
    RESULTIS  FALSE
$)



//  End of client procedures