Fossil

** Print a section of a filelist hierarchy graph.  This is a helper
** routine for print_filelist_as_tree() below.
*/
static const char *print_filelist_section(
  const char *zIn,           /* List of filenames, separated by \n */
  const char *zLast,         /* Last filename in the list to print */
  const char *zPrefix,       /* Prefix so put before each output line */
  int nDir,                  /* Ignore this many characters of directory name */
  int treeFmt                /* 1 = use Unicode symbols, 2 = use ASCII chars */
){
  const char *treeEntry = "|-- ";
  const char *treeLastE = "`-- ";
  const char *treeContu = "|   ";
  const char *treeBlank = "    ";
  if( treeFmt == 1 ){
    treeEntry = "\342\224\234\342\224\200\342\224\200 ";
    treeLastE = "\342\224\224\342\224\200\342\224\200 ";   
    treeContu = "\342\224\202   ";
  }
  while( zIn<=zLast ){
    int i;
    // const char *treeContu = (treeFmt == 1) ? "\342\224\202   " : "|   ";
    // const char *treeEntry = (treeFmt == 1) ? "\342\224\234\342\224\200\342\224\200 " : "|-- ";
    // const char *treeLastE = (treeFmt == 1) ? "\342\224\224\342\224\200\342\224\200 " : "`-- ";
    // const char *treeBlank = "    ";
    for(i=nDir; zIn[i]!='\n' && zIn[i]!='/'; i++){}
    if( zIn[i]=='/' ){
      char *zSubPrefix;
      const char *zSubLast = last_line(zIn, i+1);
      zSubPrefix = mprintf("%s%s", zPrefix,
                          zSubLast==zLast ? treeBlank : treeContu);
      fossil_print("%s%s%.*s\n", zPrefix,
                   zSubLast==zLast ? treeLastE : treeEntry, i-nDir, &zIn[nDir]);
      zIn = print_filelist_section(zIn, zSubLast, zSubPrefix, i+1, treeFmt);
      fossil_free(zSubPrefix);
    }else{
      fossil_print("%s%s%.*s\n", zPrefix, zIn==zLast ? treeLastE : treeEntry,
                   i-nDir, &zIn[nDir]);
      zIn = next_line(zIn);
    }
  }
  return zIn;
}

/*
** Input blob pList is a list of filenames, one filename per line,
** in sorted order and with / directory separators.  Output this list
** as a tree in a manner similar to the "tree" command on Linux.
*/
static void print_filelist_as_tree(Blob *pList, int treeFmt){
  char *zAll;
  const char *zLast;
  fossil_print("%s\n", g.zLocalRoot);
  zAll = blob_str(pList);
  if( zAll[0] ){
    zLast = last_line(zAll, 0);
    print_filelist_section(zAll, zLast, "", 0, treeFmt);
  }
}

/*
** Take care of -r version of ls command
*/
static void ls_cmd_rev(

      fossil_print("%s  %s\n", zTime, zFile);
    }else{
      fossil_print("%s\n", zFile);
    }
  }
  db_finalize(&q);
  if( treeFmt ){
    print_filelist_as_tree(&out, treeFmt);
    blob_reset(&out);
  }
}

/*
** COMMAND: ls
**

**
** The -t option changes the sort order.  Without -t, files are sorted by
** path and name (case insensitive sort if -r).  If neither --age nor -r
** are used, -t sorts by modification time, otherwise by commit time.
**
** Options:
**   --age                 Show when each file was committed
**   -a|--ascii-tree       Use ASCII characters when drawing the tree
**   --hash                With -v, verify file status using hashing
**                         rather than relying on file sizes and mtimes
**   -r VERSION            The specific check-in to list
**   -R|--repository REPO  Extract info from repository REPO
**   -t                    Sort output in time order
**   --tree                Tree format
**   -u|--unicode-tree     Use Unicode symbols when drawing the tree
**   -v|--verbose          Provide extra information about each file
**
** See also: [[changes]], [[extras]], [[status]], [[tree]]
*/
void ls_cmd(void){
  int vid;
  Stmt q;
  int verboseFlag;
  int showAge;
  int treeFmt;
  int asciiTree;
  int unicodeTree;
  int timeOrder;
  char *zOrderBy = "pathname";
  Blob where;
  int i;
  int useHash = 0;
  const char *zName;
  const char *zRev;

  verboseFlag = find_option("verbose","v", 0)!=0;
  if( !verboseFlag ){
    verboseFlag = find_option("l","l", 0)!=0; /* deprecated */
  }
  showAge = find_option("age",0,0)!=0;
  zRev = find_option("r","r",1);
  timeOrder = find_option("t","t",0)!=0;
  if( verboseFlag ){
    useHash = find_option("hash",0,0)!=0;
  }
  treeFmt = find_option("tree",0,0)!=0;
  asciiTree = find_option("ascii-tree","a",0)!=0;
  unicodeTree = find_option("unicode-tree","u",0)!=0;
  if( treeFmt ){
    if( zRev==0 ) zRev = "current";
#ifdef _WIN32
    treeFmt = 2;
#endif    
    if( unicodeTree ) treeFmt = 1;
    if( asciiTree ) treeFmt = 2;    
  }

  if( zRev!=0 ){
    db_find_and_open_repository(0, 0);
    verify_all_options();
    ls_cmd_rev(zRev,verboseFlag,showAge,timeOrder,treeFmt);
    return;

** Usage: %fossil tree ?OPTIONS? ?PATHS ...?
**
** List all files in the current check-out in after the fashion of the
** "tree" command.  If PATHS is included, only the named files
** (or their children if directories) are shown.
**
** Options:
**   -a|--ascii-tree       Use ASCII characters when drawing the tree
**   -r VERSION            The specific check-in to list
**   -R|--repository REPO  Extract info from repository REPO
**   -u|--unicode-tree     Use Unicode symbols when drawing the tree
**
** See also: [[ls]]
*/
void tree_cmd(void){
  const char *zRev;
  int treeFmt = 1;
  int asciiTree = find_option("ascii-tree","a",0)!=0;
  int unicodeTree = find_option("unicode-tree","u",0)!=0;
#ifdef _WIN32
  treeFmt = 2;
#endif    
  if( unicodeTree ) treeFmt = 1;
  if( asciiTree ) treeFmt = 2;
  zRev = find_option("r","r",1);
  if( zRev==0 ) zRev = "current";
  db_find_and_open_repository(0, 0);
  verify_all_options();
  ls_cmd_rev(zRev, 0, 0, 0, treeFmt);
}

/*
** COMMAND: extras
**
** Usage: %fossil extras ?OPTIONS? ?PATH1 ...?
**

** option, whose CSG argument is a comma-separated list of glob patterns.
**
** Pathnames are displayed according to the "relative-paths" setting,
** unless overridden by the --abs-paths or --rel-paths options.
**
** Options:
**    --abs-paths             Display absolute pathnames
**    -a|--ascii-tree         Use ASCII characters when drawing the tree
**    --case-sensitive BOOL   Override case-sensitive setting
**    --dotfiles              Include files beginning with a dot (".")
**    --header                Identify the repository if there are extras
**    --ignore CSG            Ignore files matching patterns from the argument
**    --rel-paths             Display pathnames relative to the current working
**                            directory
**    --tree                  Show output in the tree format
**    -u|--unicode-tree       Use Unicode symbols when drawing the tree
**
** See also: [[changes]], [[clean]], [[status]]
*/
void extras_cmd(void){
  Blob report = BLOB_INITIALIZER;
  const char *zIgnoreFlag = find_option("ignore",0,1);
  unsigned scanFlags = find_option("dotfiles",0,0)!=0 ? SCAN_ALL : 0;
  unsigned flags = C_EXTRA;
  int showHdr = find_option("header",0,0)!=0;
  int treeFmt = find_option("tree",0,0)!=0;
  int asciiTree = find_option("ascii-tree","a",0)!=0;
  int unicodeTree = find_option("unicode-tree","u",0)!=0;
  Glob *pIgnore;

  if( find_option("temp",0,0)!=0 ) scanFlags |= SCAN_TEMP;
  db_must_be_within_tree();

  if( determine_cwd_relative_option() ){
    flags |= C_RELPATH;
  }

  if( db_get_boolean("dotfiles", 0) ) scanFlags |= SCAN_ALL;

  if( treeFmt ){
    flags &= ~C_RELPATH;
#ifdef _WIN32
    treeFmt = 2;
#endif    
    if( unicodeTree ) treeFmt = 1;
    if( asciiTree ) treeFmt = 2;
  }

  /* We should be done with options.. */
  verify_all_options();

  if( zIgnoreFlag==0 ){
    zIgnoreFlag = db_get("ignore-glob", 0);
  }
  pIgnore = glob_create(zIgnoreFlag);
  locate_unmanaged_files(g.argc-2, g.argv+2, scanFlags, pIgnore);
  glob_free(pIgnore);

  blob_zero(&report);
  status_report(&report, flags);
  if( blob_size(&report) ){
    if( showHdr ){
      fossil_print("Extras for %s at %s:\n", db_get("project-name","<unnamed>"),
                   g.zLocalRoot);
    }
    if( treeFmt ){
      print_filelist_as_tree(&report, treeFmt);
    }else{
      blob_write_to_file(&report, "-");
    }
  }
  blob_reset(&report);
}