home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / vmsnet / tpu / 563 < prev    next >
Encoding:
Internet Message Format  |  1993-01-11  |  3.9 KB
  1. Path: sparky!uunet!europa.asd.contel.com!howland.reston.ans.net!zaphod.mps.ohio-state.edu!moe.ksu.ksu.edu!mccall!info-tpu-newsgate!list
  2. Newsgroups: vmsnet.tpu
  3. Subject: Re: LIB$FIND_IMAGE_SYMBOL
  4. Message-ID: <9301102058.AA09272@hqpyr1.us.oracle.com>
  5. From: "Comet" <comet@us.oracle.com>
  6. Date: Sun, 10 Jan 93 12:58:20 PST
  7. Reply-To: "Comet" <COMET@us.oracle.com>
  8. Organization: The Internet
  9. Return-Path: <TPU-Mgr@SHSU.edu>
  10. Errors-To: TPU-Mgr@SHSU.edu
  11. X-Listname: Text Processing Utility (TPU) Language Discussion List
  12. Original-To: HQPYR1:INFO-TPU@SHSU.EDU
  13. Lines: 57
  14.  
  15. In-Reply-To: HQPYR1:ucs_kas@SHSU.EDU's message of 11-24-92 00:32
  16.  
  17. In article <9301082049.AA07948@oasun1.us.oracle.com>, I wrote:
  18.  
  19. I remember seeing on a DECUS symposium tape, once upon a time, a TPU CALL_USER
  20. routine that used LIB$FIND_IMAGE_SYMBOL to activate arbitrary routines in
  21. arbitrary (`correctly' linked) shareable images to do such things as, ummm,
  22. maybe finding the sine of some angle.
  23. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  24. Carl J Lydick  <carl@SOL1.GPS.CALTECH.EDU> responded at JAN-09 01:20:59 thus:
  25.  
  26. It's easy to do.  What is it that you can't reconstruct yourself?  For a TPU
  27. CALL_USER routine, you can easily use the integer argument to index into a
  28. number of routines (you could also use the string argument, but that's the best
  29. place to pass parameters).  Using LIB$FIND_IMAGE_SYMBOL seems mostly to be
  30. overkill.  Could you let us know exactly what it is you *REALLY* want to do?
  31. That would probably save us some time and make things easier for you.
  32. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  33. I <comet@us.oracle.com> respond [insert message identifier here--Ed.]:
  34.  
  35. If I knew ahead of time which routines I might want to invoke, Carl, then it
  36. would be "easy to do."  "Exactly what it is that I *REALLY* want to do" is, as I
  37. have stated, have a way of activating ARBITRARY routines... these routines are
  38. NOT KNOWN at the time the CALL_USER is written.  This is why it is not overkill
  39. to use LIB$FIND_IMAGE_SYMBOL.  When I first saw this routine, I thought it was
  40. amazingly clever, and so I posted my message to the mailing list using as full
  41. and complete a description as my memory could come up with, hoping that somebody
  42. would recognize this amazing bit of wizardry.
  43. --------------------------------------------------------------------------------
  44. Tom Williams  <TPU-Mgr@SHSU.edu> responded at JAN-09 06:59:22 thus:
  45.  
  46. Yes, he said, blushing.  I wrote it.  It's a pair of routines, as I recall (long
  47. time since I've touched it). One of them builds a few arrays of arguments for
  48. the call; the other one invokes LIB$FIND_IMAGE_SYMBOL and LIB$CALLG. I will get
  49. the sources out of mothballs and send them out some time in the next week or so,
  50. if you can's find it elsewhere.
  51.  
  52. Currently, the routines only handle integers and strings.  Maybe they'll evolve.
  53. --------------------------------------------------------------------------------
  54. I <comet@us.oracle.com> respond:
  55.  
  56. Tom Williams!  Mr. TPU-Mgr himSELF!!!  Show Carl and the rest of the readership
  57. your gem. I'm looking forward to when you "send them out some time in the next
  58. week or so."  If it will help your routines evolve from handling more than
  59. integers and strings, I'll... Encourage This!  Yeah!!!  I'm so-o-o excited that
  60. I'll be able to get these routines again.  This is the main reason I joined this
  61. TPU mailing list, Tom!  Thanks for organizing/supporting it!  =)
  62.  
  63. --------                          __
  64. Comet <comet@us.oracle.com>      /\ \         Oracle Corporation
  65. Technical Analyst               /\ \ \        500 Oracle Parkway
  66. Midrange Computer Systems      / /\ \ \       Box 659312
  67. Worldwide Technical Support   / / /\ \ \      Redwood Shores, CA  94065-5041
  68.                              / / /__\_\_\
  69. The view of this object is  / / /________\  not necessarily that of my employer.
  70.                             \/_/_________|
  71.  
  72.