Fossil

/*
** SETTING: verify-comments                              width=8 default=on
**
** This setting determines how much sanity checking, if any, the 
** "fossil commit" and "fossil amend" commands do against check-in
** comments. Recognized values:
**
**     on             (Default) Check for bad syntax in check-in comments
**                    and offer the user a chance to continue editing for
**                    interactive sessions, or simply abort the commit if
**                    commit was entered using -m or -M
**
**     off            Do not do syntax checking of any kind
**
**     links          Similar to "on", except only check for bad hyperlinks
**
**     preview        Do all the same checks as "on" but also preview the
**                    check-in comment to the user during interactive sessions

**                    and provide an opportunity to accept or re-edit
*/

#if INTERFACE
#define COMCK_LINKS     0x01     /* Check for back hyperlinks */
#define COMCK_MARKUP    0x02     /* Check markup */
#define COMCK_PREVIEW   0x04     /* Always preview, even if no issues found */
#define COMCK_NOPREVIEW 0x08     /* Never preview, even for other errors */
#endif /* INTERFACE */

/*
** Check for possible formatting errors in the comment string pComment.
**
** If concerns are found, write a description of the problem(s) to

** stdout and return non-zero.  The return value is some combination
** of the COMCK_* flags, depending on what went wrong.
**
** If no issues are seen, do not output anything and return zero.
*/
int suspicious_comment(Blob *pComment, int mFlags){
  char *zStart = blob_str(pComment);
  char *z;
  char *zEnd, *zEnd2;
  char *zSep;
  char cSave1;
  int nIssue = 0;
  int rc = mFlags & COMCK_PREVIEW;
  Blob out;
  static const char zSpecial[] = "\\&<*_`[";

  if( mFlags==0 ) return 0;
  z = zStart;
  blob_init(&out, 0, 0);
  if( mFlags & COMCK_LINKS ){
    while( (z = strchr(z,'['))!=0 ){
      zEnd = strchr(z,']');
      if( zEnd==0 ){
        blob_appendf(&out,"\n (%d) ", ++nIssue);
        blob_appendf(&out, "Unterminated hyperlink \"%.12s...\"", z);
        break;
      }
      if( zEnd[1]=='(' && (zEnd2 = strchr(zEnd,')'))!=0 ){
        blob_appendf(&out,"\n (%d) ", ++nIssue);
        blob_appendf(&out, "Markdown hyperlink syntax: %.*s",
                     (int)(zEnd2+1-z), z);
        z = zEnd2;
        continue;
      }
      zSep = strchr(z+1,'|');
      if( zSep==0 || zSep>zEnd ) zSep = zEnd;
      while( zSep>z && fossil_isspace(zSep[-1]) ) zSep--;
      cSave1 = zSep[0];
      zSep[0] = 0;
      if( !wiki_valid_link_target(z+1) ){
        blob_appendf(&out,"\n (%d) ", ++nIssue);
        blob_appendf(&out, "Broken hyperlink: [%s]", z+1);
      }
      zSep[0] = cSave1;
      z = zEnd;
    }
  }

  if( nIssue>0
   || (mFlags & COMCK_PREVIEW)!=0
   || ((mFlags & COMCK_MARKUP)!=0 && strcspn(zStart,zSpecial)<strlen(zStart))
  ){
    char zGot[16];
    int nGot = 0;
    int i;
    if( (mFlags & COMCK_MARKUP)!=0 ){
      for(i=0; zSpecial[i]; i++){


        if( strchr(zStart,zSpecial[i]) ) zGot[nGot++] = zSpecial[i];
      }
    }
    zGot[nGot] = 0;
    if( nGot>0 ) rc |= COMCK_MARKUP;
    if( nGot>0 && nIssue>0 ){
      blob_appendf(&out,"\n (%d) Comment uses special character%s \"%s\"",
                   ++nIssue, (nGot>1 ? "s" : ""), zGot);
      nGot = 0;
    }
    if( nIssue ){
      rc |= COMCK_LINKS;
      fossil_print(
        "Possible comment formatting error%s:%b\n",
        nIssue>1 ? "s" : "", &out
      );
    }
    if( (mFlags & COMCK_NOPREVIEW)==0 ){
      Blob in, html, txt;
      blob_init(&in, blob_str(pComment), -1);
      blob_init(&html, 0, 0);
      blob_init(&txt, 0, 0);
      wiki_convert(&in, &html, WIKI_INLINE);
      html_to_plaintext(blob_str(&html), &txt, HTOT_VT100);
      if( nGot>0 ){
        fossil_print(
          "The comment uses special character%s \"%s\". "
          "Does it render as you expect?\n\n   ",
          (nGot>1 ? "s" : ""), zGot
        );
      }else{
        fossil_print("Preview of the check-in comment:\n\n   ");
      }
      comment_print(blob_str(&txt), 0, 3, -1, get_comment_format());
      blob_reset(&in);
      blob_reset(&html);

      blob_reset(&txt);
    }
  }
  blob_reset(&out);

  return rc;
}

/*
** COMMAND: ci#
** COMMAND: commit
**
** Usage: %fossil commit ?OPTIONS? ?FILE...?
**    or: %fossil ci ?OPTIONS? ?FILE...?

  Blob ans;              /* Answer to continuation prompts */
  char cReply;           /* First character of ans */
  int bRecheck = 0;      /* Repeat fork and closed-branch checks*/
  int bIgnoreSkew = 0;   /* --ignore-clock-skew flag */
  int mxSize;
  char *zCurBranch = 0;  /* The current branch name of checkout */
  char *zNewBranch = 0;  /* The branch name after update */
  int ckComFlgs;         /* Flags passed to suspicious_comment() */

  memset(&sCiInfo, 0, sizeof(sCiInfo));
  url_proxy_options();
  /* --sha1sum is an undocumented alias for --hash for backwards compatiblity */
  useHash = find_option("hash",0,0)!=0 || find_option("sha1sum",0,0)!=0;
  noSign = find_option("nosign",0,0)!=0;
  if( find_option("nosync",0,0) ) g.fNoSync = 1;

    if( noVerifyCom ){
      ckComFlgs = 0;
    }else{
      const char *zVerComs = db_get("verify-comments","on");
      if( is_false(zVerComs) ){
        ckComFlgs = 0;
      }else if( strcmp(zVerComs,"preview")==0 ){
        ckComFlgs = COMCK_PREVIEW | COMCK_LINKS | COMCK_MARKUP;
      }else if( strcmp(zVerComs,"links")==0 ){
        ckComFlgs = COMCK_LINKS;
      }else{
        ckComFlgs = COMCK_LINKS | COMCK_MARKUP;
      }
    }

    /* Get the check-in comment.  This might involve prompting the
    ** user for the check-in comment, in which case we should resync
    ** to renew the check-in lock and repeat the checks for conflicts.
    */
    if( zComment ){
      blob_zero(&comment);
      blob_append(&comment, zComment, -1);
      ckComFlgs &= ~(COMCK_PREVIEW|COMCK_MARKUP);
      ckComFlgs |= COMCK_NOPREVIEW;
      if( suspicious_comment(&comment, ckComFlgs) ){
        fossil_fatal("Commit aborted; "
                     "use --no-verify-comment to override");
      }
    }else if( zComFile ){
      blob_zero(&comment);
      blob_read_from_file(&comment, zComFile, ExtFILE);
      blob_to_utf8_no_bom(&comment, 1);
      ckComFlgs &= ~(COMCK_PREVIEW|COMCK_MARKUP);
      ckComFlgs |= COMCK_NOPREVIEW;
      if( suspicious_comment(&comment, ckComFlgs) ){
        fossil_fatal("Commit aborted; "
                     "use --no-verify-comment to override");
      }
    }else if( !noPrompt ){
      while(  1/*exit-by-break*/ ){
        int rc;
        char *zInit;
        zInit = db_text(0,"SELECT value FROM vvar WHERE name='ci-comment'");
        prepare_commit_comment(&comment, zInit, &sCiInfo, vid, dryRunFlag);
        db_multi_exec("REPLACE INTO vvar VALUES('ci-comment',%B)", &comment);
        if( (rc = suspicious_comment(&comment, ckComFlgs))!=0 ){
          if( rc==COMCK_PREVIEW ){
            prompt_user("\nContinue (Y/n/e=edit)? ", &ans);
          }else{
            prompt_user("\nContinue (y/n/E=edit)? ", &ans);
          }
          cReply = blob_str(&ans)[0];
          cReply = fossil_tolower(cReply);
          blob_reset(&ans);
          if( cReply=='n' ){
            fossil_fatal("Commit aborted.");
          }
          if( cReply=='e' || (cReply!='y' && rc!=COMCK_PREVIEW) ){
            fossil_free(zInit);
            continue;
          }
        }
        if( zInit && zInit[0] && fossil_strcmp(zInit, blob_str(&comment))==0 ){
          prompt_user("unchanged check-in comment.  continue (y/N)? ", &ans);
          cReply = blob_str(&ans)[0];

  const char *zUuid;
  Blob ctrl;
  Blob comment;
  char *zNow;
  int nTags, nCancels;
  int i;
  Stmt q;
  int ckComFlgs;                /* Flags passed to suspicious_comment() */


  fEditComment = find_option("edit-comment","e",0)!=0;
  zNewComment = find_option("comment","m",1);
  zComFile = find_option("message-file","M",1);
  zNewBranch = find_option("branch",0,1);
  zNewColor = find_option("bgcolor",0,1);

    if( noVerifyCom ){
      ckComFlgs = 0;
    }else{
      const char *zVerComs = db_get("verify-comments","on");
      if( is_false(zVerComs) ){
        ckComFlgs = 0;
      }else if( strcmp(zVerComs,"preview")==0 ){
        ckComFlgs = COMCK_PREVIEW | COMCK_LINKS | COMCK_MARKUP;
      }else if( strcmp(zVerComs,"links")==0 ){
        ckComFlgs = COMCK_LINKS;
      }else{
        ckComFlgs = COMCK_LINKS | COMCK_MARKUP;
      }
      if( zNewComment || zComFile ){
        ckComFlgs = (ckComFlgs & COMCK_LINKS) | COMCK_NOPREVIEW;
      }
    }
    if( fEditComment ){
      prepare_amend_comment(&comment, zComment, zUuid);
    }else if( zComFile ){
      blob_read_from_file(&comment, zComFile, ExtFILE);
      blob_to_utf8_no_bom(&comment, 1);
    }else if( zNewComment ){
      blob_init(&comment, zNewComment, -1);
    }
    if( blob_size(&comment)>0
     && comment_compare(zComment, blob_str(&comment))==0
    ){
      int rc;
      while( (rc = suspicious_comment(&comment, ckComFlgs))!=0 ){
        char cReply;
        Blob ans;
        if( !fEditComment ){
          fossil_fatal("Amend aborted; "
                       "use --no-verify-comment to override");
        }
        if( rc==COMCK_PREVIEW ){
          prompt_user("\nContinue (Y/n/e=edit)? ", &ans);
        }else{
          prompt_user("\nContinue (y/n/E=edit)? ", &ans);
        }
        cReply = blob_str(&ans)[0];
        cReply = fossil_tolower(cReply);
        blob_reset(&ans);
        if( cReply=='n' ){
          fossil_fatal("Amend aborted.");
        }
        if( cReply=='e' || (cReply!='y' && rc!=COMCK_PREVIEW) ){
          char *zPrior = blob_materialize(&comment);
          blob_init(&comment, 0, 0);
          prepare_amend_comment(&comment, zPrior, zUuid);
          fossil_free(zPrior);
          continue;
        }else{
          break;

** configuration parameters.
**
** The altForm2 argument is true for "%!W" (with the "!" alternate-form-2
** flags) and is false for plain "%W".  The ! indicates that the text is
** to be rendered on a form rather than the timeline and that block markup
** is acceptable even if the "timeline-block-markup" setting is false.
*/
static int wiki_convert_flags(int altForm2){
  static int wikiFlags = 0;
  if( wikiFlags==0 ){
    if( db_get_boolean("timeline-block-markup", 0) ){
      wikiFlags = WIKI_INLINE | WIKI_NOBADLINKS;
    }else{
      wikiFlags = WIKI_INLINE | WIKI_NOBLOCK | WIKI_NOBADLINKS;
    }