PreviousUpNext

15.4.971  src/lib/src/root-object2.pkg

## root-object2.pkg

# Compiled by:
#     src/lib/std/standard.lib

# Root_Object / root_object are adapted from Bernard Berthomieu's
# "OOP Programming Styles in ML" Appendix 2.3.2 where
# they are called ROOT/Root:
#

package root_object2: Root_Object2 {

    Self(X) =  X;    
    Myself  =  Self( oop::Oop_Null );

    fun get__substate self =  self;
    fun unpack__object  self =  (oop::identity, self);
    fun pack__object () self =  self;

    fun new () =  pack__object () oop::OOP_NULL;

    message__count = 0;
    field__count = 0;
};


Comments and suggestions to: bugs@mythryl.org

PreviousUpNext