43 static int preserve_initial_permissions (FILE *fprcs, const char *userfile,
46 static int expand_and_copy_contents (FILE *fprcs, mode_t file_type,
1082     FILE *fprcs, *fpuser;  in add_rcs_file()  local
1194     fprcs = CVS_FOPEN (rcs, "w+b");  in add_rcs_file()
1195     if (fprcs == NULL)  in add_rcs_file()
1206 	if (fprintf (fprcs, "head     %s;\012",  in add_rcs_file()
1212 	if (fprintf (fprcs, "head     ;\012") < 0)  in add_rcs_file()
1221 	if (fprintf (fprcs, "branch   %s;\012", add_vbranch) < 0)  in add_rcs_file()
1224     if (fprintf (fprcs, "access   ;\012") < 0 ||  in add_rcs_file()
1225 	fprintf (fprcs, "symbols  ") < 0)  in add_rcs_file()
1234 	if (fprintf (fprcs, "%s:%s.1 ", targv[i], add_vbranch) < 0)  in add_rcs_file()
1240 	if (fprintf (fprcs, "%s:%s", vtag, add_vbranch) < 0)  in add_rcs_file()
1243     if (fprintf (fprcs, ";\012") < 0)  in add_rcs_file()
1246     if (fprintf (fprcs, "locks    ; strict;\012") < 0 ||  in add_rcs_file()
1248 	fprintf (fprcs, "comment  @%s@;\012", get_comment (user)) < 0)  in add_rcs_file()
1255 	if (fprintf (fprcs, "expand   @%s@;\012", key_opt) < 0)  in add_rcs_file()
1261     if (fprintf (fprcs, "\012") < 0)  in add_rcs_file()
1280 	if (fprintf (fprcs, "\012%s\012", dead_revision) < 0 ||  in add_rcs_file()
1281 	fprintf (fprcs, "date     %s;  author %s;  state %s;\012",  in add_rcs_file()
1285 	if (fprintf (fprcs, "branches;\012") < 0)  in add_rcs_file()
1287 	if (fprintf (fprcs, "next    %s;\012", add_vhead) < 0)  in add_rcs_file()
1290 	if (fprintf (fprcs, "commitid        %s;\012", global_session_id) < 0)  in add_rcs_file()
1297 	    if (preserve_initial_permissions (fprcs, userfile,  in add_rcs_file()
1306 	if (fprintf (fprcs, "\012%s\012", add_vhead) < 0 ||  in add_rcs_file()
1307 	fprintf (fprcs, "date     %s;  author %s;  state Exp;\012",  in add_rcs_file()
1311 	if (fprintf (fprcs, "branches") < 0)  in add_rcs_file()
1315 	    if (fprintf (fprcs, " %s.1", add_vbranch) < 0)  in add_rcs_file()
1318 	if (fprintf (fprcs, ";\012") < 0)  in add_rcs_file()
1321 	if (fprintf (fprcs, "next     ;\012") < 0)  in add_rcs_file()
1324 	if (fprintf (fprcs, "commitid        %s;\012", global_session_id) < 0)  in add_rcs_file()
1331 	    if (preserve_initial_permissions (fprcs, userfile,  in add_rcs_file()
1339 	    if (fprintf (fprcs, "\012%s.1\012", add_vbranch) < 0 ||  in add_rcs_file()
1340 		fprintf (fprcs, "date     %s;  author %s;  state Exp;\012",  in add_rcs_file()
1342 		fprintf (fprcs, "branches ;\012") < 0 ||  in add_rcs_file()
1343 		fprintf (fprcs, "next     ;\012") < 0 ||  in add_rcs_file()
1344 	        fprintf (fprcs, "commitid        %s;\012", global_session_id) < 0)  in add_rcs_file()
1351 		if (preserve_initial_permissions (fprcs, userfile,  in add_rcs_file()
1357 	    if (fprintf (fprcs, "\012") < 0)  in add_rcs_file()
1363     if (fprintf (fprcs, "\012desc\012") < 0 ||  in add_rcs_file()
1364 	fprintf (fprcs, "@") < 0)  in add_rcs_file()
1371 	if (expand_at_signs (desctext, (off_t) desclen, fprcs) < 0)  in add_rcs_file()
1374     if (fprintf (fprcs, "@\012\012\012") < 0)  in add_rcs_file()
1382 	if (fprintf (fprcs, "\012%s\012", dead_revision) < 0 ||  in add_rcs_file()
1383 	    fprintf (fprcs, "log\012@") < 0)  in add_rcs_file()
1385 	if (fprintf (fprcs, "Revision %s was added on the vendor branch.\012",  in add_rcs_file()
1388 	if (fprintf (fprcs, "@\012") < 0 ||  in add_rcs_file()
1389 	    fprintf (fprcs, "text\012@") < 0)  in add_rcs_file()
1395 	if (expand_and_copy_contents (fprcs, file_type, user, fpuser))  in add_rcs_file()
1398 	if (fprintf (fprcs, "@\012\012") < 0)  in add_rcs_file()
1404 	if (fprintf (fprcs, "\012%s\012", add_vhead) < 0 ||  in add_rcs_file()
1405 	    fprintf (fprcs, "log\012@") < 0)  in add_rcs_file()
1412 	    if (fprintf (fprcs, "Initial revision\n") < 0)  in add_rcs_file()
1417 	    if (expand_at_signs (message, (off_t) strlen (message), fprcs) < 0)  in add_rcs_file()
1420 	if (fprintf (fprcs, "@\012") < 0 ||  in add_rcs_file()
1421 	    fprintf (fprcs, "text\012@") < 0)  in add_rcs_file()
1433 	    if (expand_and_copy_contents (fprcs, file_type, user, fpuser))  in add_rcs_file()
1437 	if (fprintf (fprcs, "@\012\012") < 0)  in add_rcs_file()
1442 	    if (fprintf (fprcs, "\012%s.1\012", add_vbranch) < 0 ||  in add_rcs_file()
1443 		fprintf (fprcs, "log\012@") < 0 ||  in add_rcs_file()
1445 				 (off_t) strlen (message), fprcs) < 0 ||  in add_rcs_file()
1446 		fprintf (fprcs, "@\012text\012") < 0 ||  in add_rcs_file()
1447 		fprintf (fprcs, "@@\012") < 0)  in add_rcs_file()
1452     if (fclose (fprcs) == EOF)  in add_rcs_file()
1493     if (fclose (fprcs) < 0)  in add_rcs_file()
1537 preserve_initial_permissions (fprcs, userfile, file_type, sbp)  in preserve_initial_permissions()  argument
1538     FILE *fprcs;  in preserve_initial_permissions()
1546 	if (fprintf (fprcs, "symlink\t@") < 0 ||
1547 	    expand_at_signs (link, strlen (link), fprcs) < 0 ||
1548 	    fprintf (fprcs, "@;\012") < 0)
1554 	if (fprintf (fprcs, "owner\t%u;\012", sbp->st_uid) < 0)
1556 	if (fprintf (fprcs, "group\t%u;\012", sbp->st_gid) < 0)
1558 	if (fprintf (fprcs, "permissions\t%o;\012",
1567 		if (fprintf (fprcs, "special\t%s %lu;\012",
1612 expand_and_copy_contents (fprcs, file_type, user, fpuser)  in expand_and_copy_contents()  argument
1613     FILE *fprcs, *fpuser;  in expand_and_copy_contents()
1636 	    if (expand_at_signs (buf, len, fprcs) < 0)