Fossil

  Blob extra;
  int useCheckouts = 0;
  int quiet = 0;
  int dryRunFlag = 0;
  int showFile = find_option("showfile",0,0)!=0;
  int stopOnError = find_option("dontstop",0,0)==0;
  int rc;
  int rowCount, i = 0;
  char **azFilename = 0;
  char **azTag = 0;
  int nToDel = 0;
  int showLabel = 0;

  dryRunFlag = find_option("dry-run","n",0)!=0;
  if( !dryRunFlag ){
    dryRunFlag = find_option("test",0,0)!=0; /* deprecated */
  }

       "INSERT INTO repolist "
       "SELECT DISTINCT substr(name, 6), name COLLATE nocase"
       "  FROM global_config"
       " WHERE substr(name, 1, 5)=='repo:'"
       " ORDER BY 1"
    );
  }

  db_prepare(&q, "SELECT name, tag FROM repolist ORDER BY 1");
  rowCount = db_all_column_text(&q, 0, &azFilename, 1, &azTag);
  db_finalize(&q);
  db_multi_exec("CREATE TEMP TABLE todel(x TEXT)");
  while( i<rowCount ){
    const char *zFilename = azFilename[i];
    const char *zTag = azTag[i];
    if( file_access(zFilename, F_OK)
     || !file_is_canonical(zFilename)
     || (useCheckouts && file_isdir(zFilename)!=1)
    ){
      db_multi_exec("INSERT INTO todel VALUES(%Q)", zTag);
      nToDel++;
      i++; continue;
    }
    if( zCmd[0]=='l' ){
      fossil_print("%s\n", zFilename);
      i++; continue;
    }else if( showFile ){
      fossil_print("%s: %s\n", useCheckouts ? "checkout" : "repository",
                   zFilename);
    }
    zQFilename = quoteFilename(zFilename);
    zSyscmd = mprintf("%s %s %s%s",
                      zFossil, zCmd, zQFilename, blob_str(&extra));

    }
    rc = dryRunFlag ? 0 : fossil_system(zSyscmd);
    free(zSyscmd);
    free(zQFilename);
    if( stopOnError && rc ){
      break;
    }
    i++;
  }
  db_all_column_free(rowCount, &azFilename);
  db_all_column_free(rowCount, &azTag);
  assert( !azFilename );
  assert( !azTag );

  /* If any repositories whose names appear in the ~/.fossil file could not
  ** be found, remove those names from the ~/.fossil file.
  */
  if( nToDel>0 ){
    const char *zSql = "DELETE FROM global_config WHERE name IN toDel";
    if( dryRunFlag ){
      fossil_print("%s\n", zSql);
    }else{
      db_multi_exec("%s", zSql /*safe-for-%s*/ );
    }
  }
}

*/
int db_step(Stmt *pStmt){
  int rc;
  rc = sqlite3_step(pStmt->pStmt);
  pStmt->nStep++;
  return rc;
}

/*
** Steps the SQL statement until there are no more rows.  Returns the
** total number of rows processed by this function.  If the pazValue1
** parameter is non-zero, captures the iCol1'th column value from each
** row (as text) and stores the resulting final array pointer into it.
** If the pazValue2 parameter is non-zero, captures the iCol2'th column
** value from each row (as text) and stores the resulting final array
** pointer into it.  The caller of this function is responsible for
** calling the db_all_column_free() function later, passing it the
** result of this function along with the values for both the pazValue1
** and pazValue2 paramters.
*/
int db_all_column_text(
  Stmt *pStmt,       /* The statement handle. */
  int iCol1,         /* The first column number to fetch from the results. */
  char ***pazValue1, /* Array of iCol1'th column values from query. */
  int iCol2,         /* The second column number to fetch from the results. */
  char ***pazValue2  /* Array of iCol2'th column values from query. */
){
  int count = 0;
  char **azValue1 = 0;
  char **azValue2 = 0;
  while( db_step(pStmt)==SQLITE_ROW ){
    count++;
    if( pazValue1 ){
      azValue1 = fossil_realloc(azValue1, count * sizeof(char*));
      azValue1[count - 1] = fossil_strdup(db_column_text(pStmt, iCol1));
    }
    if( pazValue2 ){
      azValue2 = fossil_realloc(azValue2, count * sizeof(char*));
      azValue2[count - 1] = fossil_strdup(db_column_text(pStmt, iCol2));
    }
  }
  if( pazValue1 ){
    *pazValue1 = azValue1;
  }
  if( pazValue2 ){
    *pazValue2 = azValue2;
  }
  return count;
}

/*
** This function frees all the storage that was allocated by the
** db_all_column_text() function for a particular column.
*/
void db_all_column_free(
  int count,        /* Number of string elements in the arrays. */
  char ***pazValue  /* Array of column values from query. */
){
  if( pazValue ){
    char **azValue = *pazValue;
    int i;
    for(i=0; i<count; i++){
      fossil_free(azValue[i]);
      azValue[i] = 0;
    }
    fossil_free(azValue);
    *pazValue = 0;
  }
}

/*
** Print warnings if a query is inefficient.
*/
static void db_stats(Stmt *pStmt){
#ifdef FOSSIL_DEBUG
  int c1, c2, c3;