home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / unix / unixcmds_1 / BIN / alias next >
Encoding:
Text File  |  1993-06-10  |  694 b   |  41 lines
  1. # Usage : alias command newcommand
  2. #         alias command
  3. #         alias
  4.  
  5. $alias = "AlIaS$";
  6.  
  7. # alias on its own - list all aliases.
  8. if ($#ARGV == -1)
  9. {
  10.     while (($var, $val) = each(%ENV))
  11.     {
  12.         # Strangely styled variable name to 
  13.         # make it only list aliases that have been
  14.         # set by this script.
  15.         if (substr($var, 0, 6) eq $alias)
  16.         {
  17.             print substr($var, 6)." : ".$val."\n";
  18.         }
  19.     }
  20.     exit;
  21. }
  22.  
  23. # alias command - give the alias for this command.
  24. if ($#ARGV == 0)
  25. {
  26.     $var = $ARGV[0];
  27.     if ($val = $ENV{$alias.$var})
  28.     {
  29.         print $var." : ".$val."\n";
  30.     }
  31.     else
  32.     {
  33.         print $var." : Not defined\n";
  34.     }
  35.     exit;
  36. }
  37.  
  38. # alias command newcommand.
  39. $var = shift;
  40. exec("Set $alias$var ".join(" ", @ARGV));
  41.