home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / apl / 1254 < prev    next >
Encoding:
Text File  |  1992-12-22  |  1.7 KB  |  51 lines
  1. Newsgroups:   comp.lang.apl
  2. Path: sparky!uunet!utcsri!geac!itcyyz!yrloc!intern
  3. From:         pow@ipsa@ipsaint.ipsa.reuter.COM (Remote Addressee:)
  4. Subject:      Keyed Files for J
  5. Message-ID: <1992Dec21.223617.10162@yrloc.ipsa.reuter.COM>
  6. Sender: intern@yrloc.ipsa.reuter.COM (Intern via QUADRAM)
  7. Reply-To:     pow@ipsa@ipsaint.ipsa.reuter.COM (Remote Addressee:)
  8. Organization: Reuters Information Services (Canada)
  9. Date:         21 Dec 92 22:00:04 UT
  10. Lines: 39
  11.  
  12.  
  13. -----------Message forwarded from IPSA Mailbox-------------
  14.  
  15.  
  16. no. 6846418 filed 21.13.59  mon 21 dec 1992
  17. from pow@ipsa
  18. to   uclapl
  19. subj Keyed Files for J
  20.  
  21. @transferred from ipsa  no. 5456580 filed 21.13.48  mon 21 dec 1992
  22.  
  23. Below is a delete verb for keyed file access.
  24.  
  25. My access to InterNet is quite restricted. I can get messages forwarded
  26. on to comp.lang.apl through the charity of Reuters. However, you cannot send
  27. me personal mail by return. And unfortunately all such access is slated to
  28. disappear shortly. (Emmett McLean: that's why pow@ipsa@ipsaint is an invalid
  29. address.)
  30. ------------------
  31. NB. key Delete <'filename'
  32. NB.   Removes key from the list of keys.
  33. NB.   Returns boolean (1=deleted, 0=not deleted).
  34.  
  35. m=.  < 'a=.ev y.,<0 512'
  36. m=.m,< 'b=.ev y.,<0 1{0{a'
  37. m=.m,< 'c=.ev y.,<0 1{1{a'
  38. m=.m,< 'd=.-.b e. <x.'
  39. m=.m,< 'b=.(,0{a) write y.,<rep <''b'' [ b=.d#b'
  40. m=.m,< 'c=.(,1{a) write y.,<rep <''c'' [ c=.d#c'
  41. m=.m,< 'a=.512{.rep<''a'' [ a=.2 3$b,c'
  42. m=.m,< '0 e. d [ a iw y.,<0 512'
  43. Delete =. '' : m
  44.  
  45.  
  46. -----------------------------------------------------------
  47. This posting is forwarded from an internal Reuters mailbox.
  48. No statement or opinion contained herein should be taken as
  49. being Reuters policy, or even as being approved by Reuters,
  50. in any way.
  51.