home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sys / transput / 994 < prev    next >
Encoding:
Internet Message Format  |  1992-09-08  |  2.3 KB
  1. Path: sparky!uunet!cis.ohio-state.edu!ucbvax!starlink.roe.ac.uk!MJP
  2. From: MJP@starlink.roe.ac.uk (Magnus Paterson)
  3. Newsgroups: comp.sys.transputer
  4. Subject: Re: Protocol Query
  5. Message-ID: <26157.9209071043@prg.ox.ac.uk>
  6. Date: 7 Sep 92 10:44:00 GMT
  7. Sender: usenet@ucbvax.BERKELEY.EDU
  8. Organization: The Internet
  9. Lines: 54
  10.  
  11. Thanks to those who responded to my protocol request.  Looks like I was
  12. tilting at yet another windmill, as what I wanted to do can't yet be
  13. done (occam3 ?).  Roger Peel in particular provided some useful
  14. information.
  15.  
  16. I couldn't use CHAN OF ANY as there are lots of other things going on
  17. over the channel.  I quite liked Alastair's idea of declaring a new
  18. protocol once I knew what nrows & ncolumns were, but I have to talk to
  19. an external, and this clashes with the debugger.
  20.  
  21. You CAN send 2-d arrays.  The current version of the code has a variant
  22. protocol (ALICE.LINK) which includes
  23.  
  24.           CASE
  25.             frame; [256][256]REAL32
  26.  
  27. and the code includes
  28.  
  29.       CHAN OF ALICE.LINK from.pipe :
  30.  
  31.       [256][256]REAL32 data.frame :
  32.       SEQ
  33.         from.pipe ? CASE frame; data.frame
  34.  
  35. Chris O Byrne came closest, using a loop to read sub-rows;  I had
  36. thought of this approach; I just wanted to be lazy and do it as a single
  37. message.
  38.  
  39. However, the problem has temporarily gone away as, for this application
  40. at least, the author of the Fortran process (!) with which I have to
  41. communicate is content to get the data as a 1-d vector and deal with
  42. pixel placement in the Fortran code.  Now, the variant protocol
  43. declaration includes
  44.             frame; INT[]::REAL32
  45.  
  46. and my code has
  47.             [max.pxls]REAL32 data.frame :
  48.             INT num.pxls :
  49.             .
  50.             .
  51.             SEQ
  52.               in ? CASE frame; num.pxls::data.frame
  53.  
  54.      Cheers,
  55.      Magnus.
  56.  
  57.    **************************************************************************
  58.    * Magnus J Paterson  | mjp@uk.ac.roe.star     | We are all in the gutter *
  59.    * ALICE Project      | revaxd::mjp            |  but some of us          *
  60.    * Royal Observatory  |                        |    are looking up        *
  61.    * Edinburgh          | ph  +44 (0)31 668 8247 |      at the stars.       *
  62.    * SCOTLAND           | fax +44 (0)31 668 8264 |       (Oscar Wilde)      *
  63.    **************************************************************************
  64.  
  65.