home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / EXAMPLES / SUPERLIN / RL_OVERL.LF < prev    next >
Text File  |  1996-06-04  |  1KB  |  57 lines
  1. %
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. %
  4. %
  5. %                   OVERLOADING OF OPERATORS FOR SUPERLINT
  6. %                   --------------------------------------
  7. %
  8. %  
  9. %
  10. %
  11. %  AUTHOR : Arnaud Venet                     CREATION : September 17th 1993
  12. %  ------                                    --------
  13. %
  14. %
  15. %                             ---------------                        
  16. %
  17. %                    
  18. %                   Last modification : October 25th 1993 
  19. %
  20. %
  21. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  22. %
  23. %
  24. %
  25. %
  26. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  27. %
  28.  
  29.  
  30.  
  31. private('.') ?
  32.  
  33.  
  34. op(400, yfx, '.') ?
  35.  
  36.  
  37. alias('.', 'superlint#.') ?
  38.  
  39.  
  40. Node.Feature -> '*protected_project*'(Feature, Node).
  41.  
  42.  
  43. %
  44. % ------------------------------------------------------------------------------
  45. %
  46.  
  47.  
  48. set_feature(Feature, Value, Node) :-
  49.   Node'syntax#.'Feature <<- Value.
  50.  
  51.  
  52. %
  53. % ------------------------------------------------------------------------------
  54. %
  55.  
  56.  
  57.