2008-11-17 18:29:00 -05:00
|
|
|
// ----------------------------------------------------------------------------
|
2008-03-05 09:52:00 -05:00
|
|
|
//
|
|
|
|
// Copyright (c) Microsoft Corporation. All rights reserved.
|
|
|
|
//
|
2008-11-17 18:29:00 -05:00
|
|
|
// ----------------------------------------------------------------------------
|
2008-03-05 09:52:00 -05:00
|
|
|
|
2008-11-17 18:29:00 -05:00
|
|
|
namespace Microsoft.Singularity.Policy.Engine
|
|
|
|
{
|
2008-03-05 09:52:00 -05:00
|
|
|
// A Str is a Cell containing the Address of a functor cell.
|
|
|
|
// A new <STR addr> is represented by a new Str(addr).
|
2008-11-17 18:29:00 -05:00
|
|
|
class Str : Cell
|
|
|
|
{
|
2008-03-05 09:52:00 -05:00
|
|
|
readonly Address _value;
|
|
|
|
internal Address Value { get { return _value; } }
|
|
|
|
internal Str(Address value) { _value = value; }
|
|
|
|
public override string ToString() {
|
|
|
|
return "<STR " + _value.ToString() + ">";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|