Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site pucc-i
Path: utzoo!watmath!clyde!burl!mgnetp!ihnp4!inuxc!pur-ee!CS-Mordred!Pucc-H:Pucc-I:ags
From: ags@pucc-i (Seaman)
Newsgroups: net.lang.mod2
Subject: Re: Type Transfer Functions
Message-ID: <342@pucc-i>
Date: Sun, 8-Jul-84 14:43:26 EDT
Article-I.D.: pucc-i.342
Posted: Sun Jul  8 14:43:26 1984
Date-Received: Tue, 10-Jul-84 01:27:30 EDT
References: <8600011@iuvax.UUCP>
Organization: Purdue University Computing Center
Lines: 37

Any type is supposed to be usable as a transfer function.  The following
program should compile and run with no problems:

MODULE TypeTransfer;
  FROM InOut IMPORT WriteCard;

TYPE

  NumRec         = RECORD
    First,Second : CARDINAL
  END;

  Descrip  = RECORD
    Color  : (Red,Blue,Yellow,Green);
    Flavor : (Vanilla,Chocolate,Strawberry)
  END;

VAR

  Foo : NumRec;
  Bar : Descrip;

BEGIN
  Bar.Color := Red;
  Bar.Flavor := Strawberry;
  Foo := NumRec(Bar);
  WriteCard(Foo.First,5);
  WriteCard(Foo.Second,5)
END TypeTransfer.

This runs under Volition Systems modula-2 and produces the output:  0    2
Other implementations may very well produce:  2    0
The program should run under any conforming implementation.
-- 

Dave Seaman			"My hovercraft is full of eels."
..!pur-ee!pucc-i:ags