28 lines
743 B
Plaintext
28 lines
743 B
Plaintext
|
///////////////////////////////////////////////////////////////////////////////
|
||
|
|
//
|
||
|
|
// Microsoft Research Singularity
|
||
|
|
//
|
||
|
|
// Copyright (c) Microsoft Corporation. All rights reserved.
|
||
|
|
//
|
||
|
|
// File: PingContract.sg
|
||
|
|
// Note: Contract for a ChildPing process
|
||
|
|
//
|
||
|
|
|
||
|
|
using System;
|
||
|
|
using Microsoft.Singularity.Extending;
|
||
|
|
|
||
|
|
namespace Microsoft.Singularity.PingPong.Contracts
|
||
|
|
{
|
||
|
|
public contract PingContract : ExtensionContract
|
||
|
|
{
|
||
|
|
in message StartPingPong(int numRepeats);
|
||
|
|
|
||
|
|
out message PingReady();
|
||
|
|
out message Done();
|
||
|
|
|
||
|
|
override state Start : PingReady! -> ReadyState;
|
||
|
|
state ReadyState : StartPingPong? -> PendingState;
|
||
|
|
state PendingState: Done! -> ReadyState;
|
||
|
|
}
|
||
|
|
}
|