home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / SDE_300.ZIP / DIRSTACK.XM! < prev    next >
Text File  |  1993-02-09  |  1KB  |  73 lines
  1.  
  2. @Comment
  3. {
  4.   Directory stack external macro for SDE.
  5. }
  6.  
  7. @Set
  8. {
  9.   (pushpop)
  10.   (
  11.     @Menu
  12.     (
  13.       {1. Push}{push}
  14.       {2. Pop}{pop}
  15.       {3. Change}{view}
  16.     )
  17.   )
  18. }
  19.  
  20. @If=
  21. {
  22.   {@Val{pushpop}}
  23.   {push}
  24.   {
  25.     @Set{{dir9}{@Val{dir8}}}
  26.     @Set{{dir8}{@Val{dir7}}}
  27.     @Set{{dir7}{@Val{dir6}}}
  28.     @Set{{dir6}{@Val{dir5}}}
  29.     @Set{{dir5}{@Val{dir4}}}
  30.     @Set{{dir4}{@Val{dir3}}}
  31.     @Set{{dir3}{@Val{dir2}}}
  32.     @Set{{dir2}{@Val{dir1}}}
  33.     @Set{{dir1}{@Val{dir0}}}
  34.     @Set{{dir0}{@Vol{}:@Path{}}}
  35.   }
  36.   {pop}
  37.   {
  38.     @QuitIf{{@Val{dir0}}{ Directory stack empty }}
  39.     @ChDir{@Val{dir0}}
  40.     @Set{{dir0}{@Val{dir1}}}
  41.     @Set{{dir1}{@Val{dir2}}}
  42.     @Set{{dir2}{@Val{dir3}}}
  43.     @Set{{dir3}{@Val{dir4}}}
  44.     @Set{{dir4}{@Val{dir5}}}
  45.     @Set{{dir5}{@Val{dir6}}}
  46.     @Set{{dir6}{@Val{dir7}}}
  47.     @Set{{dir7}{@Val{dir8}}}
  48.     @Set{{dir8}{@Val{dir9}}}
  49.     @Set{{dir9}{}}
  50.   }
  51.   {view}
  52.   {
  53.     @Prompt{Directory stack:}
  54.     @ChDir
  55.     (
  56.       @Menu
  57.       {
  58.         {@Val{dir0}}{@Val{dir0}}
  59.         {@Val{dir1}}{@Val{dir1}}
  60.         {@Val{dir2}}{@Val{dir2}}
  61.         {@Val{dir3}}{@Val{dir3}}
  62.         {@Val{dir4}}{@Val{dir4}}
  63.         {@Val{dir5}}{@Val{dir5}}
  64.         {@Val{dir6}}{@Val{dir6}}
  65.         {@Val{dir7}}{@Val{dir7}}
  66.         {@Val{dir8}}{@Val{dir8}}
  67.         {@Val{dir9}}{@Val{dir9}}
  68.       }
  69.     )
  70.   }
  71. }
  72.  
  73.