home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / rcpm / filedocs / simcpm.ark / SIMDISP.AWK < prev    next >
Encoding:
AWK Script  |  1990-01-14  |  948 b   |  33 lines
  1. # SIMDISP.AWK
  2. # Author: Joseph Gil (yogi@humus.huji.ac.il.BITNET)
  3. BEGIN {
  4.     FS = "\"";
  5.     INDENT_UNIT = "  ";
  6. }
  7. {
  8.     curr_drive =  $2;
  9.     curr_dir = substr($4,2,length($4)-2);
  10.     split(curr_dir,split_dir,".");
  11.     
  12.     INDENT_LEVEL = "";
  13.     if (curr_drive != prev_drive) {
  14.         print INDENT_LEVEL curr_drive;
  15.         prev_drive = curr_drive;
  16.         prev_main_dir = "";                
  17.         prev_sec_dir = "";
  18.     }        
  19.     INDENT_LEVEL = INDENT_LEVEL INDENT_UNIT;
  20.     if (split_dir[1] != prev_main_dir) {
  21.         print INDENT_LEVEL split_dir[1];
  22.         prev_main_dir = split_dir[1];
  23.         prev_sec_dir = "";
  24.     }        
  25.     INDENT_LEVEL = INDENT_LEVEL INDENT_UNIT;
  26.     if (split_dir[2] != prev_sec_dir) {
  27.         print INDENT_LEVEL split_dir[2];
  28.         prev_sec_dir = split_dir[2];
  29.     }        
  30.     INDENT_LEVEL = INDENT_LEVEL INDENT_UNIT;
  31.     printf("%s%-12s   %s\n",INDENT_LEVEL,$6,$8);
  32. }
  33.