contrib/cvs-1.12.9/src/checkin.c

   1 /*
   2  * Copyright (c) 1992, Brian Berliner and Jeff Polk
   3  * Copyright (c) 1989-1992, Brian Berliner
   4  *
   5  * You may distribute under the terms of the GNU General Public License as
   6  * specified in the README file that comes with the CVS source distribution.
   7  *
   8  * Check In
   9  *
  10  * Does a very careful checkin of the file "user", and tries not to spoil its
  11  * modification time (to avoid needless recompilations). When RCS ID keywords
  12  * get expanded on checkout, however, the modification time is updated and
  13  * there is no good way to get around this.
  14  *
  15  * Returns non-zero on error.
  16  */
  17
  18 #include "cvs.h"
  19 #include "fileattr.h"
  20 #include "edit.h"
  21
  22 int
  23 Checkin (int type, struct file_info *finfo, char *rev, char *tag,
  24          char *options, char *message)
  25 {
  26     Vers_TS *vers;
  27     int set_time;
  28     char *tocvsPath = NULL;
  29
  30     tocvsPath = wrap_tocvs_process_file (finfo->file);
  31     if (!noexec)
  32     {
  33         if (tocvsPath)
  34         {
  35             if (unlink_file_dir (finfo->file) < 0)
  36                 if (! existence_error (errno))
  37                     error (1, errno, "cannot remove %s", finfo->fullname);
  38             rename_file (tocvsPath, finfo->file);
  39         }
  40     }
  41
  42     /* There use to be a check for finfo->rcs == NULL here and then a
  43      * call to RCS_parse when necessary, but Checkin() isn't called
  44      * if the RCS file hasn't already been parsed in one of the
  45      * check functions.
  46      */
  47     assert (finfo->rcs != NULL);
  48
  49     switch (RCS_checkin (finfo->rcs, finfo->file, message, rev,
  50                          RCS_FLAGS_KEEPFILE))
  51     {
  52         case 0:                 /* everything normal */
  53
  54             /* The checkin succeeded.  If checking the file out again
  55                would not cause any changes, we are done.  Otherwise,
  56                we need to check out the file, which will change the
  57                modification time of the file.
  58
  59                The only way checking out the file could cause any
  60                changes is if the file contains RCS keywords.  So we if
  61                we are not expanding RCS keywords, we are done.  */
  62
  63             if (strcmp (options, "-V4") == 0) /* upgrade to V5 now */
  64                 options[0] = '\0';
  65
  66             /* FIXME: If PreservePermissions is on, RCS_cmp_file is
  67                going to call RCS_checkout into a temporary file
  68                anyhow.  In that case, it would be more efficient to
  69                call RCS_checkout here, compare the resulting files
  70                using xcmp, and rename if necessary.  I think this
  71                should be fixed in RCS_cmp_file.  */
  72             if( ( ! preserve_perms
  73                   && options != NULL
  74                   && ( strcmp( options, "-ko" ) == 0
  75                        || strcmp( options, "-kb" ) == 0 ) )
  76                 || RCS_cmp_file( finfo->rcs, rev, (char **)NULL, (char *)NULL,
  77                                  options, finfo->file ) == 0 )
  78             {
  79                 /* The existing file is correct.  We don't have to do
  80                    anything.  */
  81                 set_time = 0;
  82             }
  83             else
  84             {
  85                 /* The existing file is incorrect.  We need to check
  86                    out the correct file contents.  */
  87                 if (RCS_checkout (finfo->rcs, finfo->file, rev, (char *) NULL,
  88                                   options, RUN_TTY, (RCSCHECKOUTPROC) NULL,
  89                                   (void *) NULL) != 0)
  90                     error (1, 0, "failed when checking out new copy of %s",
  91                            finfo->fullname);
  92                 xchmod (finfo->file, 1);
  93                 set_time = 1;
  94             }
  95
  96             wrap_fromcvs_process_file (finfo->file);
  97
  98             /*
  99              * If we want read-only files, muck the permissions here, before
 100              * getting the file time-stamp.
 101              */
 102             if (!cvswrite || fileattr_get (finfo->file, "_watched"))
 103                 xchmod (finfo->file, 0);
 104
 105             /* Re-register with the new data.  */
 106             vers = Version_TS (finfo, NULL, tag, NULL, 1, set_time);
 107             if (strcmp (vers->options, "-V4") == 0)
 108                 vers->options[0] = '\0';
 109             Register (finfo->entries, finfo->file, vers->vn_rcs, vers->ts_user,
 110                       vers->options, vers->tag, vers->date, (char *) 0);
 111             history_write (type, NULL, vers->vn_rcs,
 112                            finfo->file, finfo->repository);
 113
 114             if (tocvsPath)
 115                 if (unlink_file_dir (tocvsPath) < 0)
 116                     error (0, errno, "cannot remove %s", tocvsPath);
 117
 118             break;
 119
 120         case -1:                        /* fork failed */
 121             if (tocvsPath)
 122                 if (unlink_file_dir (tocvsPath) < 0)
 123                     error (0, errno, "cannot remove %s", tocvsPath);
 124
 125             if (!noexec)
 126                 error (1, errno, "could not check in %s -- fork failed",
 127                        finfo->fullname);
 128             return (1);
 129
 130         default:                        /* ci failed */
 131
 132             /* The checkin failed, for some unknown reason, so we
 133                print an error, and return an error.  We assume that
 134                the original file has not been touched.  */
 135             if (tocvsPath)
 136                 if (unlink_file_dir (tocvsPath) < 0)
 137                     error (0, errno, "cannot remove %s", tocvsPath);
 138
 139             if (!noexec)
 140                 error (0, 0, "could not check in %s", finfo->fullname);
 141             return (1);
 142     }
 143
 144     /*
 145      * When checking in a specific revision, we may have locked the wrong
 146      * branch, so to be sure, we do an extra unlock here before
 147      * returning.
 148      */
 149     if (rev)
 150     {
 151         (void) RCS_unlock (finfo->rcs, NULL, 1);
 152         RCS_rewrite (finfo->rcs, NULL, NULL);
 153     }
 154
 155 #ifdef SERVER_SUPPORT
 156     if (server_active)
 157     {
 158         if (set_time)
 159             /* Need to update the checked out file on the client side.  */
 160             server_updated (finfo, vers, SERVER_UPDATED,
 161                             (mode_t) -1, (unsigned char *) NULL,
 162                             (struct buffer *) NULL);
 163         else
 164             server_checked_in (finfo->file, finfo->update_dir, finfo->repository);
 165     }
 166     else
 167 #endif
 168         mark_up_to_date (finfo->file);
 169
 170     freevers_ts (&vers);
 171     return 0;
 172 }