001    package lrs.visitor;
002    import lrs.*;
003    
004    public class LRSClear implements IAlgo {
005    
006      public static LRSClear Singleton = new LRSClear();
007    
008      /** @SBGen Constructor   */
009     private LRSClear()
010     {
011       }
012    
013      public Object emptyCase(LRStruct host, Object... param)
014      {
015        return null;
016      }
017    
018      public Object nonEmptyCase(LRStruct host, Object... param)
019      {
020        host.setRest( new LRStruct());
021        host.removeFront();
022        return null;
023      }
024    }