Fossil

      blob_reset(&b);
    }
    g.aCommitFile[ii-2] = 0;
  }
}

/*
** Return true if the check-in with RID=rid has no child
** check-ins which are not tagged with "newbranch".  In other words,

** return true if the check-in is a leaf.

*/
int is_a_leaf(int rid){
  return !db_exists(


    "SELECT 1 FROM plink"
    " WHERE pid=%d"
      " AND NOT EXISTS("
                     "SELECT 1 FROM tagxref"







                     " WHERE tagxref.rid=plink.cid"
                     "   AND tagxref.tagid=%d"
                     "   AND tagxref.tagtype=1"





               ")",

    rid, TAG_NEWBRANCH
  );


}

/*
** COMMAND: ci
** COMMAND: commit
**
** Usage: %fossil commit ?-m COMMENT? ?--nosign? ?FILE...?

** Show all leaves, use closeMode==1.  To show only closed leaves, use
** closeMode==2.
*/
void compute_leaves(int iBase, int closeMode){
  Bag seen;       /* Descendants seen */
  Bag pending;    /* Unpropagated descendants */
  Stmt q1;        /* Query to find children of a check-in */
  Stmt q2;        /* Query to detect if a merge is across branches */
  Stmt isBr;      /* Query to check to see if a check-in starts a new branch */
  Stmt ins;       /* INSERT statement for a new record */

  /* Create the LEAVES table if it does not already exist.  Make sure
  ** it is empty.
  */
  db_multi_exec(

  bag_init(&seen);
  bag_init(&pending);
  bag_insert(&pending, iBase);

  /* This query returns all non-merge children of check-in :rid */
  db_prepare(&q1, "SELECT cid FROM plink WHERE pid=:rid AND isprim");

  /* This query returns all merge children of check-in :rid where
  ** the child and parent are on same branch.  The child and
  ** parent are assumed to be on same branch if they have
  ** the same set of propagated symbolic tags.
  */
  db_prepare(&q2,
     "SELECT cid FROM plink"
     " WHERE pid=:rid AND NOT isprim"
     "   AND (SELECT group_concat(x) FROM ("
     "          SELECT tag.tagid AS x FROM tagxref, tag"
     "           WHERE tagxref.rid=:rid AND tagxref.tagtype=2"
     "             AND tag.tagid=tagxref.tagid AND tagxref.srcid=0"
     "             AND tag.tagname GLOB 'sym-*'"
     "           ORDER BY 1))"
     "    == (SELECT group_concat(x) FROM ("
     "          SELECT tag.tagid AS x FROM tagxref, tag"
     "           WHERE tagxref.rid=plink.cid AND tagxref.tagtype=2"
     "             AND tag.tagid=tagxref.tagid AND tagxref.srcid=0"
     "             AND tag.tagname GLOB 'sym-*'"
     "           ORDER BY 1))"
  );

  /* This query returns a single row if check-in :rid is the first
  ** check-in of a new branch.  In other words, it returns a row if
  ** check-in :rid has the 'newbranch' tag.
  */
  db_prepare(&isBr, 
     "SELECT 1 FROM tagxref WHERE rid=:rid AND tagid=%d AND tagtype=1",
     TAG_NEWBRANCH

      db_bind_int(&isBr, ":rid", cid);
      if( db_step(&isBr)==SQLITE_DONE ){
        cnt++;
      }
      db_reset(&isBr);
    }
    db_reset(&q1);
    if( cnt==0 ){
      db_bind_int(&q2, ":rid", rid);
      if( db_step(&q2)==SQLITE_ROW ){
        cnt++;
      }
      db_reset(&q2);
    }
    if( cnt==0 ){
      db_bind_int(&ins, ":rid", rid);
      db_step(&ins);
      db_reset(&ins);
    }
  }
  db_finalize(&ins);
  db_finalize(&isBr);
  db_finalize(&q2);
  db_finalize(&q1);
  bag_clear(&pending);
  bag_clear(&seen);
  if( closeMode==1 ){
    db_multi_exec(
      "DELETE FROM leaves WHERE rid IN"
      "  (SELECT leaves.rid FROM leaves, tagxref"