home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RCS_SRC.ZIP / PATCHES.OS2 < prev    next >
Text File  |  1991-08-11  |  59KB  |  1,905 lines
  1. Only in rcs43-2: readme.os2
  2. Only in rcs43-2: patches.os2
  3. Only in rcs43-2/src: makefile.msc
  4. Only in rcs43-2/src: ci.cs
  5. Only in rcs43-2/src: ci.def
  6. Only in rcs43-2/src: co.cs
  7. Only in rcs43-2/src: co.def
  8. Only in rcs43-2/src: ident.cs
  9. Only in rcs43-2/src: ident.def
  10. Only in rcs43-2/src: rcs.cs
  11. Only in rcs43-2/src: rcs.def
  12. Only in rcs43-2/src: rcsclean.cs
  13. Only in rcs43-2/src: rcsclean.def
  14. Only in rcs43-2/src: rcsdiff.cs
  15. Only in rcs43-2/src: rcsdiff.def
  16. Only in rcs43-2/src: rcsmerge.cs
  17. Only in rcs43-2/src: rcsmerge.def
  18. Only in rcs43-2/src: rlog.cs
  19. Only in rcs43-2/src: rlog.def
  20. diff -cbBwr rcs43/src/ci.c rcs43-2/src/ci.c
  21. *** rcs43/src/ci.c    Wed Sep 19 19:02:52 1990
  22. --- rcs43-2/src/ci.c    Fri Sep 21 15:11:44 1990
  23. ***************
  24. *** 179,184 ****
  25. --- 179,190 ----
  26.   
  27.   char * newRCSfilename, * diffilename;
  28.   char * RCSfilename,*workfilename,*expfilename,*newworkfilename;
  29. + 
  30. + #ifdef MSDOS
  31. + char tmpdir[NCPPN];
  32. + extern char *gettmpdir();
  33. + #endif /* MSDOS */
  34. + 
  35.   extern struct stat RCSstat, workstat; /* file status of RCS and work file   */
  36.   extern int  haveRCSstat, haveworkstat;/* status indicators                  */
  37.   
  38. ***************
  39. *** 358,363 ****
  40. --- 364,372 ----
  41.                   faterror("Can't take both log and description from redirected stdin; use -ttextfile");
  42.           }
  43.           /* now handle all filenames */
  44. + #ifdef MSDOS
  45. +     strcpy( tmpdir, gettmpdir());
  46. + #endif /* MSDOS */
  47.           do {
  48.           gendeltas[0] = nil;
  49.           copyflag=rewriteflag=false;
  50. ***************
  51. *** 486,503 ****
  52. --- 495,532 ----
  53.                   if(!putdtext(newdelnum,newdelta.log,workfilename,frewrite)) continue;
  54.                   ffclose(frewrite); frewrite=NULL;
  55.           } else {
  56. + #ifdef MSDOS
  57. +                 diffilename=mktempfile(tmpdir,DIFFILE);
  58. + #else
  59.                   diffilename=mktempfile("/tmp/",DIFFILE);
  60. + #endif /* MSDOS */
  61.                   if (&newdelta==Head) {
  62.                           /* prepend new one */
  63.                           rewriteflag=false;
  64.                           if (!(expfilename=
  65. + #ifdef MSDOS
  66. +                               buildrevision(gendeltas,targetdelta,tmpdir,false))) continue;
  67. + #else
  68.                                 buildrevision(gendeltas,targetdelta,"/tmp/",false))) continue;
  69. + #endif /* MSDOS */
  70.                           if (!mustcheckin(expfilename,targetdelta)) continue;
  71.                                   /* don't check in files that aren't different, unless forced*/
  72.                           newdelta.log=getlogmsg();
  73.                           exit_stats = run((char*)nil, diffilename,
  74. + #ifdef MSDOS
  75. + #    ifdef GNUDIFF
  76. +                 DIFF,"-a","-n",workfilename,expfilename, (char*)nil);
  77. + #    elif MKS
  78. +                 DIFF,"-n",workfilename,expfilename, (char*)nil);
  79. + #    endif
  80. + #else
  81.                   DIFF,"-n",workfilename,expfilename, (char*)nil);
  82. + #endif /* MSDOS */
  83. + #ifdef MSDOS
  84. +                         if (exit_stats != 0 && exit_stats != 1 )
  85. + #else
  86.                           if (exit_stats != 0 && exit_stats != (1 << BYTESIZ))
  87. + #endif /* MSDOS */
  88.                               faterror ("diff failed");
  89.                           /* diff returns 2 in the upper byte on failure */
  90.                           if(!putdtext(newdelnum,newdelta.log,workfilename,frewrite)) continue;
  91. ***************
  92. *** 506,518 ****
  93. --- 535,563 ----
  94.                           /* insert new delta text */
  95.                           rewriteflag=true;
  96.                           if (!(expfilename=
  97. + #ifdef MSDOS
  98. +                               buildrevision(gendeltas,targetdelta,tmpdir,false))) continue;
  99. + #else
  100.                                 buildrevision(gendeltas,targetdelta,"/tmp/",false))) continue;
  101. + #endif /* MSDOS */
  102.                           if (!mustcheckin(expfilename,targetdelta)) continue;
  103.                                   /* don't check in files that aren't different, unless forced*/
  104.                           newdelta.log=getlogmsg();
  105.                           exit_stats = run((char*)nil, diffilename,
  106. + #ifdef MSDOS
  107. + #ifdef GNUDIFF
  108. +                 DIFF,"-a","-n",expfilename,workfilename, (char*)nil);
  109. + #    elif MKS
  110. +                 DIFF,"-n",expfilename,workfilename, (char*)nil);
  111. + #    endif
  112. + #else
  113.                   DIFF,"-n",expfilename,workfilename, (char*)nil);
  114. + #endif /* MSDOS */
  115. + #ifdef MSDOS
  116. +                         if (exit_stats != 0 && exit_stats != 1 )
  117. + #else
  118.                           if (exit_stats != 0 && exit_stats != (1 << BYTESIZ))
  119. + #endif /* MSDOS */
  120.                               faterror ("diff failed");
  121.                           if(!putdtext(newdelnum,newdelta.log,diffilename,frewrite)) continue;
  122.                   }
  123. ***************
  124. *** 520,528 ****
  125. --- 565,578 ----
  126.                   /* rewrite rest of RCS file */
  127.                   fastcopy(finptr,frewrite);
  128.                   ffclose(frewrite); frewrite=NULL;
  129. +                 ffclose(finptr);   finptr=NULL;
  130.           }
  131.       ignoreints();
  132. + #ifdef MSDOS
  133. +         if (Rename(newRCSfilename,RCSfilename)<0) {
  134. + #else
  135.           if (rename(newRCSfilename,RCSfilename)<0) {
  136. + #endif /* MSDOS */
  137.                   error("Can't write new RCS file %s; saved in %s",
  138.                         RCSfilename,newRCSfilename);
  139.                   newRCSfilename[0]='\0'; /* avoid deletion by cleanup*/
  140. ***************
  141. *** 532,538 ****
  142. --- 582,592 ----
  143.           }
  144.           newRCSfilename[0]='\0'; /* avoid re-unlinking by cleanup()*/
  145.   
  146. + #ifdef MSDOS
  147. +     newRCSmode= (initflag|rcsinitflag?workstat.st_mode:RCSstat.st_mode)& ~S_IWRITE;
  148. + #else
  149.       newRCSmode= (initflag|rcsinitflag?workstat.st_mode:RCSstat.st_mode)& ~0222;
  150. + #endif /* MSDOS */
  151.       /* newRCSmode is also used to adjust mode of working file for -u and -l */
  152.       if (chmod(RCSfilename,newRCSmode)<0)
  153.                   warn("Can't set mode of %s",RCSfilename);
  154. ***************
  155. *** 550,556 ****
  156. --- 604,614 ----
  157.                   xpandfile(workfilename,workfilename /*for directory*/,&newdelta);
  158.                   if (!newworkfilename) continue; /* expand failed */
  159.           ignoreints();
  160. + #ifdef MSDOS
  161. +         if (Rename(newworkfilename,workfilename) <0) {
  162. + #else
  163.           if (rename(newworkfilename,workfilename) <0) {
  164. + #endif /* MSDOS */
  165.                       error("Can't expand keywords in %s",workfilename);
  166.                       restoreints();
  167.                       continue;
  168. ***************
  169. *** 628,634 ****
  170. --- 686,696 ----
  171.                   } else {
  172.                       /* no existing lock; try Dbranch */
  173.                       /* update newdelnum */
  174. + #ifdef MSDOS
  175. +                     if (!(StrictLocks==false) ) {
  176. + #else
  177.                       if (!((StrictLocks==false) && (getuid() == RCSstat.st_uid))) {
  178. + #endif /* MSDOS */
  179.                           error("no lock set by %s",caller);
  180.                           return false;
  181.                       }
  182. ***************
  183. *** 797,803 ****
  184. --- 859,869 ----
  185.                   next->delta->lockedby=nil; /* reset locked-by */
  186.                   return next->delta;
  187.           } else {
  188. + #ifdef MSDOS
  189. +                 if (!(StrictLocks==false) ) {
  190. + #else
  191.                   if (!((StrictLocks==false) && (getuid() == RCSstat.st_uid))) {
  192. + #endif /* MSDOS */
  193.                       error("no lock set by %s for revision %s",who,num);
  194.                       return nil;
  195.                   } else {
  196. ***************
  197. *** 945,951 ****
  198. --- 1011,1021 ----
  199.   
  200.           /* now read string from stdin */
  201.           if (ttystdin()) {
  202. + #ifdef MSDOS
  203. +                 VOID fputs("enter log message:\n(terminate with ^Z or single '.')\n>> ",stderr);
  204. + #else
  205.                   VOID fputs("enter log message:\n(terminate with ^D or single '.')\n>> ",stderr);
  206. + #endif /* MSDOS */
  207.           } else {  /* redirected stdin */
  208.                   if (stdinread>0)
  209.                       faterror("Can't reread redirected stdin for log message; use -m");
  210. diff -cbBwr rcs43/src/co.c rcs43-2/src/co.c
  211. *** rcs43/src/co.c    Tue Nov 06 19:37:10 1990
  212. --- rcs43-2/src/co.c    Tue Nov 06 19:40:30 1990
  213. ***************
  214. *** 152,157 ****
  215. --- 152,161 ----
  216.   
  217.   char * newRCSfilename, * neworkfilename;
  218.   char * RCSfilename, * workfilename;
  219. + #ifdef MSDOS
  220. + char tmpdir[NCPPN];
  221. + char *gettmpdir();
  222. + #endif /* MSDOS */
  223.   extern struct stat RCSstat, workstat; /* file status of RCS and work file   */
  224.   extern int  haveRCSstat, haveworkstat;/* status indicators                  */
  225.   
  226. ***************
  227. *** 242,252 ****
  228. --- 246,260 ----
  229.                           break;
  230.   
  231.                   case 'j':
  232. + #ifdef MSDOS /* Current Version can't treat join */
  233. +             faterror("Current Version can't treat join");
  234. + #else
  235.                           if ((*argv)[2]!='\0'){
  236.                                   if (join!=nil)warn("Redefinition of -j option");
  237.                                   join = (*argv)+2;
  238.                           }
  239.                           break;
  240. + #endif /* MSDOS */
  241.   
  242.                   case 's':
  243.                           if ((*argv)[2]!='\0'){
  244. ***************
  245. *** 270,275 ****
  246. --- 278,286 ----
  247.   
  248.           if (argc<1) faterror("No input file\n%s",cmdusage);
  249.   
  250. + #ifdef MSDOS
  251. +     strcpy( tmpdir, gettmpdir() );
  252. + #endif /* MSDOS */
  253.           /* now handle all filenames */
  254.           do {
  255.           rewriteflag=false;
  256. ***************
  257. *** 353,359 ****
  258. --- 364,374 ----
  259.                   getdesc(false); /* don't echo*/
  260.   
  261.                   if (!(neworkfilename=buildrevision(gendeltas,targetdelta,
  262. + #ifdef MSDOS
  263. +                       tostdout?(join!=nil? tmpdir:(char *)nil):workfilename,true)))
  264. + #else
  265.                         tostdout?(join!=nil?"/tmp/":(char *)nil):workfilename,true)))
  266. + #endif /* MSDOS */
  267.                                   continue;
  268.   
  269.                   if ((lockflag||killock==1)&&nerror==0) {
  270. ***************
  271. *** 360,367 ****
  272. --- 375,387 ----
  273.                           /* rewrite the rest of the RCSfile */
  274.                           fastcopy(finptr,frewrite);
  275.                           ffclose(frewrite); frewrite=NULL;
  276. +                         ffclose(finptr);   finptr=NULL;
  277.               ignoreints();
  278. + #ifdef MSDOS
  279. +                         if (Rename(newRCSfilename,RCSfilename) != 0 ) {
  280. + #else
  281.                           if (rename(newRCSfilename,RCSfilename)<0) {
  282. + #endif /* MSDOS */
  283.                                   error("Can't rewrite %s; saved in: %s",
  284.                                   RCSfilename, newRCSfilename);
  285.                                   newRCSfilename[0]='\0'; /* avoid deletion*/
  286. ***************
  287. *** 369,375 ****
  288. --- 389,399 ----
  289.                                   break;
  290.                           }
  291.                           newRCSfilename[0]='\0'; /* avoid re-deletion by cleanup()*/
  292. + #ifdef MSDOS
  293. +                         if (chmod(RCSfilename,RCSstat.st_mode & ~S_IWRITE)<0)
  294. + #else
  295.                           if (chmod(RCSfilename,RCSstat.st_mode & ~0222)<0)
  296. + #endif /* MSDOS */
  297.                               warn("Can't preserve mode of %s",RCSfilename);
  298.                           restoreints();
  299.                   }
  300. ***************
  301. *** 383,389 ****
  302. --- 407,417 ----
  303.               if (!buildjoin(neworkfilename)) continue;
  304.                   }
  305.                   if (!tostdout) {
  306. + #ifdef MSDOS
  307. +             if (Rename(neworkfilename,workfilename) <0) {
  308. + #else
  309.               if (rename(neworkfilename,workfilename) <0) {
  310. + #endif /* MSDOS */
  311.                                   error("Can't create %s; see %s",workfilename,neworkfilename);
  312.                                   neworkfilename[0]= '\0'; /*avoid deletion*/
  313.                                   continue;
  314. ***************
  315. *** 423,429 ****
  316. --- 451,461 ----
  317.           if (haveworkstat< 0)      /* File doesn't exist; set by pairfilenames*/
  318.               return (true);        /* No problem */
  319.   
  320. + #ifdef MSDOS
  321. +     if ((workstat.st_mode & S_IWRITE)&&!forceflag) {    /* File is writable */
  322. + #else
  323.       if ((workstat.st_mode & 0222)&&!forceflag) {    /* File is writable */
  324. + #endif /* MSDOS */
  325.               if (!quietflag) {
  326.                   VOID fprintf(stderr,"writable %s exists; overwrite? [ny](n): ",workfilename);
  327.                   /* must be stderr in case of IO redirect */
  328. ***************
  329. *** 439,444 ****
  330. --- 471,479 ----
  331.               }
  332.           }
  333.       /* now unlink: either not writable, forceflag, or permission given */
  334. + #ifdef MSDOS
  335. +         chmod(workfilename, S_IREAD | S_IWRITE);
  336. + #endif
  337.           if (unlink(workfilename) != 0) {            /* Remove failed   */
  338.               error("Can't unlink %s",workfilename);
  339.               return false;
  340. ***************
  341. *** 612,619 ****
  342. --- 647,659 ----
  343.           char * rev2, * rev3;
  344.           int i;
  345.   
  346. + #ifdef MSDOS
  347. +         rev2=mktempfile(tmpdir,JOINFIL2);
  348. +         rev3=mktempfile(tmpdir,JOINFIL3);
  349. + #else
  350.           rev2=mktempfile("/tmp/",JOINFIL2);
  351.           rev3=mktempfile("/tmp/",JOINFIL3);
  352. + #endif /* MSDOS */
  353.   
  354.           i=0;
  355.           while (i<lastjoin) {
  356. diff -cbBwr rcs43/src/ident.c rcs43-2/src/ident.c
  357. *** rcs43/src/ident.c    Wed Sep 19 19:02:56 1990
  358. --- rcs43-2/src/ident.c    Fri Sep 21 15:07:46 1990
  359. ***************
  360. *** 104,110 ****
  361. --- 104,114 ----
  362.      }
  363.   
  364.      while ( --argc > 0 ) {
  365. + #ifdef MSDOS
  366. +       if ( (fp = fopen(*++argv, "rb") ) == NULL ) {
  367. + #else
  368.         if ( (fp = fopen(*++argv, "r") ) == NULL ) {
  369. + #endif
  370.            VOID fprintf(stderr,  "ident error: can't open %s\n", *argv);
  371.            continue;
  372.         } else {
  373. diff -cbBwr rcs43/src/partime.c rcs43-2/src/partime.c
  374. *** rcs43/src/partime.c    Wed Sep 19 19:02:52 1990
  375. --- rcs43-2/src/partime.c    Fri Sep 21 15:11:46 1990
  376. ***************
  377. *** 468,474 ****
  378.   {    register char *cp, *mp;
  379.       register int c;
  380.       struct tmwent *lastptr;
  381. !     struct integ { int word; };   /* For getting at array ptr */
  382.       int i;
  383.   
  384.       lastptr = 0;
  385. --- 468,474 ----
  386.   {    register char *cp, *mp;
  387.       register int c;
  388.       struct tmwent *lastptr;
  389. !     struct integ { long word; };   /* For getting at array ptr */
  390.       int i;
  391.   
  392.       lastptr = 0;
  393. diff -cbBwr rcs43/src/rcs.c rcs43-2/src/rcs.c
  394. *** rcs43/src/rcs.c    Wed Sep 19 19:02:54 1990
  395. --- rcs43-2/src/rcs.c    Fri Sep 21 15:11:50 1990
  396. ***************
  397. *** 192,197 ****
  398. --- 192,202 ----
  399.   struct  access  *curaccess,  *rmaccess;
  400.   struct  hshentry        * gendeltas[hshsize];
  401.   
  402. + #ifdef MSDOS
  403. + extern char *gettmpdir();
  404. + char    tmpdir[NCPPN];
  405. + #endif /* MSDOS */
  406. + 
  407.   struct  Lockrev {
  408.           char    * revno;
  409.           struct  Lockrev   * nextrev;
  410. ***************
  411. *** 449,455 ****
  412.               diagnose("%s aborted",cmdid);
  413.               exit(1);
  414.           }
  415. ! 
  416.           /* now handle all filenames */
  417.           do {
  418.           rewriteflag = false;
  419. --- 454,462 ----
  420.               diagnose("%s aborted",cmdid);
  421.               exit(1);
  422.           }
  423. ! #ifdef MSDOS
  424. !     strcpy( tmpdir, gettmpdir() );
  425. ! #endif /* MSDOS */
  426.           /* now handle all filenames */
  427.           do {
  428.           rewriteflag = false;
  429. ***************
  430. *** 557,564 ****
  431. --- 564,576 ----
  432.   
  433.   
  434.           /* prepare for rewriting the RCS file */
  435. + #ifdef MSDOS
  436. +         newRCSfilename=mktempfile(RCSfilename,NEWRCSFILE);
  437. +         oldumask = umask(S_IWRITE); /* turn off write bits */
  438. + #else
  439.           newRCSfilename=mktempfile(RCSfilename,NEWRCSFILE);
  440.           oldumask = umask(0222); /* turn off write bits */
  441. + #endif /* MSDOS */
  442.           if ((frewrite=fopen(newRCSfilename, "w"))==NULL) {
  443.                   VOID fclose(finptr);
  444.                   error("Can't open file %s",newRCSfilename);
  445. ***************
  446. *** 584,592 ****
  447. --- 596,609 ----
  448.               }
  449.           }
  450.           ffclose(frewrite);   frewrite = NULL;
  451. +         ffclose(finptr);     finptr=NULL;
  452.           if ( ! nerror ) {  /*  move temporary file to RCS file if no error */
  453.           ignoreints();        /* ignore interrupts */
  454. + #ifdef MSDOS
  455. +             if(Rename(newRCSfilename,RCSfilename)<0) {
  456. + #else
  457.               if(rename(newRCSfilename,RCSfilename)<0) {
  458. + #endif /* MSDOS */
  459.                   error("Can't create RCS file %s; saved in %s",
  460.                      RCSfilename, newRCSfilename);
  461.                   newRCSfilename[0] = '\0';  /*  avoid deletion by cleanup  */
  462. ***************
  463. *** 1022,1028 ****
  464. --- 1039,1049 ----
  465.           if (response=='\n'||response=='n'||response=='N') return false;
  466.   
  467.           /* go ahead with breaking  */
  468. + #ifdef MSDOS
  469. +         messagefile=mktempfile( tmpdir, "mmXXXXXX");
  470. + #else
  471.           messagefile=mktempfile("/tmp/", "RCSmailXXXXXX");
  472. + #endif /* MSDOS */
  473.           if ( (mailmess = fopen(messagefile, "w")) == NULL) {
  474.               faterror("Can't open file %s", messagefile);
  475.           }
  476. ***************
  477. *** 1490,1500 ****
  478. --- 1511,1529 ----
  479.           int  i, c, exit_stats;
  480.   
  481.           cuttail->selector = DELETE;
  482. + #ifdef MSDOS
  483. +         initeditfiles( tmpdir );
  484. + #else
  485.           initeditfiles("/tmp/");
  486. + #endif /* MSDOS */
  487.           scanlogtext(deltas[0], copy);
  488.           i = 1;
  489.           if ( cuthead )  {
  490. + #ifdef MSDOS
  491. +             cutfilename=mktempfile( tmpdir, "ctXXXXXX");
  492. + #else
  493.               cutfilename=mktempfile("/tmp/", "RCScutXXXXXX");
  494. + #endif /* MSDOS */
  495.               if ( (fcut = fopen(cutfilename, "w")) == NULL) {
  496.                   faterror("Can't open temporary file %s", cutfilename);
  497.               }
  498. ***************
  499. *** 1514,1523 ****
  500. --- 1543,1568 ----
  501.           finishedit((struct hshentry *)nil);    ffclose(fcopy);
  502.   
  503.           if ( cuthead ) {
  504. + #ifdef MSDOS
  505. +             diffilename=mktempfile( tmpdir, "dfXXXXXX");
  506. + #else
  507.               diffilename=mktempfile("/tmp/", "RCSdifXXXXXX");
  508. + #endif /* MSDOS */
  509.               exit_stats = run((char*)nil,diffilename,
  510. + #ifdef MSDOS
  511. + #    ifdef GNUDIFF
  512. +             DIFF,"-n","-a",cutfilename,resultfile,(char*)nil);
  513. + #    elif MKS
  514. +             DIFF,"-n",cutfilename,resultfile,(char*)nil);
  515. + #    endif
  516. + #else
  517.               DIFF,"-n",cutfilename,resultfile,(char*)nil);
  518. + #endif /* MSDOS */
  519. + #ifdef MSDOS
  520. +             if (exit_stats != 0 && exit_stats != 1 )
  521. + #else
  522.               if (exit_stats != 0 && exit_stats != (1 << BYTESIZ))
  523. + #endif /* MSDOS */
  524.                   faterror ("diff failed");
  525.               if(!putdtext(cuttail->num,curlogmsg,diffilename,frewrite)) return;
  526.           }
  527. diff -cbBwr rcs43/src/rcsbase.h rcs43-2/src/rcsbase.h
  528. *** rcs43/src/rcsbase.h    Wed Sep 19 19:02:54 1990
  529. --- rcs43-2/src/rcsbase.h    Fri Sep 21 15:17:16 1990
  530. ***************
  531. *** 127,132 ****
  532. --- 127,135 ----
  533.   
  534.   
  535.   #include <stdio.h>
  536. + #ifdef MKS
  537. + #define STREQ(a,b)    ( strcmp( (a), (b) ) == 0 )
  538. + #endif
  539.   #ifdef USG
  540.   #include <string.h>
  541.   #else
  542. ***************
  543. *** 137,143 ****
  544. --- 140,150 ----
  545.   
  546.   #ifdef USG
  547.   #       define rindex    strrchr
  548. + #ifdef MSDOS
  549. + #       define DATEFORM  "%02d.%02d.%02d.%02d.%02d.%02d"
  550. + #else
  551.   #       define DATEFORM  "%.2d.%.2d.%.2d.%.2d.%.2d.%.2d"
  552. + #endif
  553.   #else
  554.   #       define DATEFORM  "%02d.%02d.%02d.%02d.%02d.%02d"
  555.   #endif
  556. ***************
  557. *** 175,182 ****
  558. --- 182,194 ----
  559.   #define datelength         20 /* length of a date in RCS format             */
  560.   #define joinlength         20 /* number of joined revisions permitted       */
  561.   #define RCSDIR         "RCS/" /* subdirectory for RCS files                 */
  562. + #ifdef MSDOS        /* Added by $Author: lfk $ */
  563. + #define RCSSUF            '\0' /* suffix for RCS files                       */
  564. + #define RCSSEP            '\0' /* separator for RCSSUF                       */
  565. + #else
  566.   #define RCSSUF            'v' /* suffix for RCS files                       */
  567.   #define RCSSEP            ',' /* separator for RCSSUF                       */
  568. + #endif /* MSDOS */
  569.   #define KDELIM            '$' /* delimiter for keywords                     */
  570.   #define VDELIM            ':' /* separates keywords from values             */
  571.   #define DEFAULTSTATE    "Exp" /* default state of revisions                 */
  572. ***************
  573. *** 184,191 ****
  574. --- 196,208 ----
  575.   #  define NCPFN           256 /* number of characters per filename          */
  576.   #  define NCPPN          1024 /* number of characters per pathname          */
  577.   #else
  578. + #ifdef MSDOS        /* support OS/2 HPFS */
  579. + #  define NCPFN           256 /* number of characters per filename          */
  580. + #  define NCPPN             256 /* number of characters per pathname          */
  581. + #else
  582.   #  define NCPFN            14 /* number of characters per filename          */
  583.   #  define NCPPN       6*NCPFN /* number of characters per pathname          */
  584. + #endif /* MSDOS */
  585.   #endif
  586.   #define keylength          20 /* buffer length for expansion keywords       */
  587.   #define keyvallength NCPPN+revlength+datelength+60
  588. ***************
  589. *** 202,207 ****
  590. --- 219,233 ----
  591.   
  592.   /* temporary file names */
  593.   
  594. + #ifdef MSDOS            /* Added by $Author: lfk $ */
  595. + #define NEWRCSFILE  "nwXXXXXX"
  596. + #define DIFFILE     "ciXXXXXX"
  597. + #define TMPFILE1    "t1XXXXXX"
  598. + #define TMPFILE2    "t2XXXXXX"
  599. + #define TMPFILE3    "t3XXXXXX"
  600. + #define JOINFIL2    "j2XXXXXX"
  601. + #define JOINFIL3    "j3XXXXXX"
  602. + #else
  603.   #define NEWRCSFILE  ",RCSnewXXXXXX"
  604.   #define DIFFILE     ",RCSciXXXXXX"
  605.   #define TMPFILE1    ",RCSt1XXXXXX"
  606. ***************
  607. *** 209,214 ****
  608. --- 235,241 ----
  609.   #define TMPFILE3    ",RCSt3XXXXXX"
  610.   #define JOINFIL2    ",RCSj2XXXXXX"
  611.   #define JOINFIL3    ",RCSj3XXXXXX"
  612. + #endif /* MSDOS */
  613.   
  614.   
  615.   #define putc(x,p) (--(p)->_cnt>=0? ((int)(*(p)->_ptr++=(unsigned)(x))):fflsbuf((unsigned)(x),p))
  616. ***************
  617. *** 218,224 ****
  618. --- 245,255 ----
  619.   /* GETC modifies a local variable c; a kludge, but smaller and faster.      */
  620.   /* GETC writes a del-character (octal 177) on end of file                   */
  621.   
  622. + #ifdef MSDOS
  623. + #define WORKMODE(RCSmode) (RCSmode & ~S_IWRITE)|((lockflag||!StrictLocks)? ( S_IWRITE | S_IREAD ) : 0000 )
  624. + #else
  625.   #define WORKMODE(RCSmode) (RCSmode&~0222)|((lockflag||!StrictLocks)?0600:0000)
  626. + #endif /* MSDOS */
  627.   /* computes mode of working file: same as RCSmode, but write permission     */
  628.   /* determined by lockflag and StrictLocks.                                  */
  629.   
  630. diff -cbBwr rcs43/src/rcsclean.c rcs43-2/src/rcsclean.c
  631. *** rcs43/src/rcsclean.c    Wed Sep 19 19:02:56 1990
  632. --- rcs43-2/src/rcsclean.c    Fri Sep 21 16:25:54 1990
  633. ***************
  634. *** 66,71 ****
  635. --- 66,73 ----
  636.    *
  637.    */
  638.   #include "rcsbase.h"
  639. + #include <sys/types.h>
  640. + #include <sys/stat.h>
  641.   #define ERRCODE 2                   /*error code for exit status            */
  642.   #ifndef lint
  643.   static char rcsbaseid[] = RCSBASE;
  644. ***************
  645. *** 82,87 ****
  646. --- 84,94 ----
  647.   extern FILE * finptr;               /* RCS input file                       */
  648.   extern FILE * fopen();
  649.   
  650. + #ifdef MSDOS
  651. + extern char *gettmpdir();
  652. + char tmpdir[NCPPN];
  653. + #endif /* MSDOS */
  654. + 
  655.   char *RCSfilename;
  656.   char *workfilename;
  657.   char * tempfile;
  658. ***************
  659. *** 130,135 ****
  660. --- 137,146 ----
  661.   
  662.       if (argc<1) fterror("No input file\n%s", cmdusage);
  663.   
  664. + #ifdef MSDOS
  665. +     strcpy( tmpdir, gettmpdir() );
  666. + #endif /* MSDOS */
  667. + 
  668.           /* now handle all filenames */
  669.           do {
  670.                   finptr=NULL;
  671. ***************
  672. *** 159,165 ****
  673. --- 170,180 ----
  674.           if (!expandsym(rev,numericrev)) continue;
  675.                   if (!(target=genrevs(numericrev,(char *)nil,(char *)nil,(char *)nil,gendeltas))) continue;
  676.   
  677. + #ifdef MSDOS
  678. +         tempfile=mktempfile( tmpdir ,TMPFILE1);
  679. + #else
  680.           tempfile=mktempfile("/tmp/",TMPFILE1);
  681. + #endif /* MSDOS */
  682.           diagnose("retrieving revision %s",target->num);
  683.                   VOID sprintf(command,"%s -q -p%s %s > %s\n",
  684.               CO ,target->num,RCSfilename,tempfile);
  685. ***************
  686. *** 182,191 ****
  687. --- 197,209 ----
  688.                   /* identical files; can remove working file */
  689.                   result=0;
  690.                   diagnose("files identical; %s removed",workfilename);
  691. +                                 fclose(file2);
  692. +                                 chmod(workfilename, S_IREAD | S_IWRITE);
  693.                   if (unlink(workfilename)!=0) {
  694.                       error("Can't unlink %s",workfilename);
  695.                   }
  696.                   if (findlock(caller, false)) {
  697. +                                     VOID fclose(finptr); finptr=NULL;
  698.                       VOID sprintf(command,"%s -q -u%s %s\n",
  699.                            RCS_CMD, target->num, RCSfilename);
  700.                       if (system(command)) {
  701. diff -cbBwr rcs43/src/rcsdiff.c rcs43-2/src/rcsdiff.c
  702. *** rcs43/src/rcsdiff.c    Wed Sep 19 19:02:56 1990
  703. --- rcs43-2/src/rcsdiff.c    Fri Sep 21 15:10:10 1990
  704. ***************
  705. *** 111,116 ****
  706. --- 111,122 ----
  707.   char *workfilename;
  708.   char * temp1file, * temp2file;
  709.   
  710. + #ifdef MSDOS
  711. + int old_stdout;
  712. + char *gettmpdir();
  713. + char tmpdir[NCPPN];
  714. + #endif /* MSDOS */
  715. + 
  716.   char bops[10];
  717.   char otherops[10];
  718.   
  719. ***************
  720. *** 197,202 ****
  721. --- 203,212 ----
  722.       }
  723.       if (argc<1) fterror("No input file\n%s",cmdusage);
  724.   
  725. + #ifdef MSDOS
  726. +     strcpy( tmpdir, gettmpdir() );
  727. +     old_stdout = dup(1);
  728. + #endif /* MSDOS */
  729.           /* now handle all filenames */
  730.           do {
  731.                   finptr=NULL;
  732. ***************
  733. *** 231,237 ****
  734. --- 241,251 ----
  735.                   }
  736.   
  737.   
  738. + #ifdef MSDOS
  739. +                 temp1file=mktempfile(tmpdir,TMPFILE1);
  740. + #else
  741.                   temp1file=mktempfile("/tmp/",TMPFILE1);
  742. + #endif /* MSDOS */
  743.                   diagnose("retrieving revision %s",xrev1);
  744.                   VOID sprintf(commarg,"-p%s",xrev1);
  745.                   if (run((char*)nil,temp1file, co,"-q",commarg,RCSfilename,(char*)nil)){
  746. ***************
  747. *** 242,248 ****
  748. --- 256,266 ----
  749.                           temp2file=workfilename;
  750.                           diagnose("diff%s%s -r%s %s",boption,otheroption,xrev1,workfilename);
  751.                   } else {
  752. + #ifdef MSDOS
  753. +                         temp2file=mktempfile(tmpdir,TMPFILE2);
  754. + #else
  755.                           temp2file=mktempfile("/tmp/",TMPFILE2);
  756. + #endif /* MSDOS */
  757.                           diagnose("retrieving revision %s",xrev2);
  758.               VOID sprintf(commarg,"-p%s",xrev2);
  759.                           if (run((char*)nil,temp2file, co,"-q",commarg,RCSfilename,(char *)nil)){
  760. ***************
  761. *** 251,267 ****
  762.                           }
  763.                           diagnose("diff%s%s -r%s -r%s",boption,otheroption,xrev1,xrev2);
  764.                   }
  765. ! 
  766.                   exit_stats =
  767.               *boption
  768.               ? *otheroption
  769.                 ? run((char*)nil,(char*)nil, DIFF, boption+1,    otheroption+1,    temp1file,temp2file,(char*)nil)
  770.                 : run((char*)nil,(char*)nil, DIFF, boption+1,            temp1file,temp2file,(char*)nil)
  771.               : *otheroption
  772.                 ? run((char*)nil,(char*)nil, DIFF,         otheroption+1,    temp1file,temp2file,(char*)nil)
  773.                 : run((char*)nil,(char*)nil, DIFF,                 temp1file,temp2file,(char*)nil);
  774.   
  775.                   if (exit_stats == (1 << BYTESIZ))
  776.               diffs_found = 1;
  777.                   else if (exit_stats != 0) {
  778.                           error ("diff failed");
  779. --- 269,312 ----
  780.                           }
  781.                           diagnose("diff%s%s -r%s -r%s",boption,otheroption,xrev1,xrev2);
  782.                   }
  783. ! #ifdef MSDOS
  784. ! #    ifdef MKS
  785. !         dup2( old_stdout, 1 );
  786. !                 exit_stats =
  787. !             *boption
  788. !             ? *otheroption
  789. !               ? spawnlp( 0, DIFF, DIFF, boption+1, otheroption+1, temp1file,temp2file,NULL)
  790. !               : spawnlp( 0, DIFF, DIFF, boption+1, temp1file, temp2file, NULL)
  791. !             : *otheroption
  792. !               ? spawnlp( 0, DIFF, DIFF, otheroption+1, temp1file,temp2file, NULL)
  793. !               : spawnlp( 0, DIFF, DIFF, temp1file, temp2file, NULL);
  794. ! #    else
  795. !         dup2( old_stdout, 1 );
  796.                   exit_stats =
  797.               *boption
  798.               ? *otheroption
  799. +               ? spawnlp( 0, DIFF, DIFF, "-a", boption+1, otheroption+1, temp1file,temp2file,NULL)
  800. +               : spawnlp( 0, DIFF, DIFF, "-a", boption+1, temp1file, temp2file, NULL)
  801. +             : *otheroption
  802. +               ? spawnlp( 0, DIFF, DIFF, "-a", otheroption+1, temp1file,temp2file, NULL)
  803. +               : spawnlp( 0, DIFF, DIFF, "-a", temp1file, temp2file, NULL);
  804. + #    endif
  805. + #else
  806. +                 exit_stats =
  807. +             *boption
  808. +             ? *otheroption
  809.                 ? run((char*)nil,(char*)nil, DIFF, boption+1,    otheroption+1,    temp1file,temp2file,(char*)nil)
  810.                 : run((char*)nil,(char*)nil, DIFF, boption+1,            temp1file,temp2file,(char*)nil)
  811.               : *otheroption
  812.                 ? run((char*)nil,(char*)nil, DIFF,         otheroption+1,    temp1file,temp2file,(char*)nil)
  813.                 : run((char*)nil,(char*)nil, DIFF,                 temp1file,temp2file,(char*)nil);
  814. + #endif /* MSDOS */
  815.   
  816. + #ifdef MSDOS
  817. +                 if (exit_stats == 1 )
  818. + #else
  819.                   if (exit_stats == (1 << BYTESIZ))
  820. + #endif /* MSDOS */
  821.               diffs_found = 1;
  822.                   else if (exit_stats != 0) {
  823.                           error ("diff failed");
  824. diff -cbBwr rcs43/src/rcsedit.c rcs43-2/src/rcsedit.c
  825. *** rcs43/src/rcsedit.c    Wed Sep 19 19:02:52 1990
  826. --- rcs43-2/src/rcsedit.c    Fri Sep 21 15:57:46 1990
  827. ***************
  828. *** 474,480 ****
  829. --- 474,484 ----
  830.       case Header:
  831.           VOID putc(VDELIM,out); VOID putc(' ',out);
  832.           if (marker==Id)
  833. + #ifdef MSDOS
  834.                VOID fputs(bindex(RCSfilename,'/'),out);
  835. + #    else
  836. +              VOID fputs(bindex(RCSfilename,'/'),out);
  837. + #endif /* MSDOS */
  838.           else     VOID fputs(getfullRCSname(),out);
  839.           VOID fprintf(out," %s ", delta->num);
  840.                   VOID PRINTDATE(out,date);VOID putc(' ',out);VOID PRINTTIME(out,date);
  841. ***************
  842. *** 490,495 ****
  843. --- 494,500 ----
  844.           case Log:
  845.                   VOID fprintf(out, "%c\t%s %c\n%sRevision %s  ",
  846.                           VDELIM, bindex(RCSfilename,'/'), KDELIM, Comment, delta->num);
  847. +              /* VDELIM, bindex(RCSfilename,'\\'), KDELIM, Comment, delta->num); */
  848.                   VOID PRINTDATE(out,date);VOID fputs("  ",out);VOID PRINTTIME(out,date);
  849.                   VOID fprintf(out, "  %s\n%s",delta->author,Comment);
  850.                   /* do not include state here because it may change and is not updated*/
  851. ***************
  852. *** 498,503 ****
  853. --- 503,509 ----
  854.                   /* Comment is the comment leader */
  855.                   break;
  856.           case RCSfile:
  857. +              /* VOID fprintf(out,"%c %s %c",VDELIM,bindex(RCSfilename,'\\'),KDELIM); */
  858.                   VOID fprintf(out,"%c %s %c",VDELIM,bindex(RCSfilename,'/'),KDELIM);
  859.                   break;
  860.           case Revision:
  861. ***************
  862. *** 513,518 ****
  863.                   VOID putc(KDELIM,out);
  864.                   break;
  865.           }
  866. - }
  867. - 
  868.   
  869. --- 519,522 ----
  870. diff -cbBwr rcs43/src/rcsfnms.c rcs43-2/src/rcsfnms.c
  871. *** rcs43/src/rcsfnms.c    Wed Sep 19 19:02:54 1990
  872. --- rcs43-2/src/rcsfnms.c    Fri Sep 21 15:19:02 1990
  873. ***************
  874. *** 120,126 ****
  875. --- 120,131 ----
  876.   #include "rcsbase.h"
  877.   #include <sys/types.h>
  878.   #include <sys/stat.h>
  879. + #ifdef MSDOS
  880. + #include <stdlib.h>
  881. + #include <direct.h>
  882. + #else
  883.   #include <sys/dir.h>
  884. + #endif /* MSDOS */
  885.   
  886.   extern char * rindex();
  887.   extern char * mktemp();
  888. ***************
  889. *** 154,174 ****
  890.   /* table is used to guess the proper comment leader from the working file's */
  891.   /* suffix during initial ci (see InitAdmin()). Comment leaders are needed   */
  892.   /* for languages without multiline comments; for others they are optional.  */
  893.           "c",   " * ",   /* C           */
  894.       "csh", "# ",    /* shell       */
  895.           "e",   "# ",    /* efl         */
  896.           "f",   "c ",    /* fortran     */
  897.           "h",   " * ",   /* C-header    */
  898.           "l",   " * ",   /* lex         NOTE: conflict between lex and franzlisp*/
  899.           "mac", "; ",    /* macro       vms or dec-20 or pdp-11 macro */
  900.       "me",  ".\\\" ",/* me-macros   t/nroff*/
  901.       "mm",  ".\\\" ",/* mm-macros   t/nroff*/
  902.       "ms",  ".\\\" ",/* ms-macros   t/nroff*/
  903.           "p",   " * ",   /* pascal      */
  904.       "pl",  "% ",    /* prolog      */
  905.           "r",   "# ",    /* ratfor      */
  906.           "red", "% ",    /* psl/rlisp   */
  907. ! 
  908.   #ifdef sparc
  909.           "s",   "! ",    /* assembler   */
  910.   #endif
  911. --- 159,207 ----
  912.   /* table is used to guess the proper comment leader from the working file's */
  913.   /* suffix during initial ci (see InitAdmin()). Comment leaders are needed   */
  914.   /* for languages without multiline comments; for others they are optional.  */
  915. + /* According to your MSDOS-environment, you change these settlements. !!    */
  916. + /* If you can work on UN*X, it is worthwile to keep these.                  */
  917. + /* It however, may cause lack of memory on MSDOS                           */
  918. + /* $Author: lfk $                                                      */
  919. +         "",        "# ",        /* default for empty suffix */
  920. +         "awk",    "# ",        /* AWK */
  921.           "c",   " * ",   /* C           */
  922. + #ifdef ALL
  923. +         "c++"    "// "        /* C++ */
  924. +         "cc"    "// "        /* C++ */
  925. +         "CC"    "// "        /* C++ */
  926. +         "C"        "// "        /* C++ */
  927. +         "cl",    ";;; ",        /* common lisp */
  928.       "csh", "# ",    /* shell       */
  929.           "e",   "# ",    /* efl         */
  930. +         "el",    "; ",        /* gnulisp     */
  931. + #endif
  932.           "f",   "c ",    /* fortran     */
  933.           "h",   " * ",   /* C-header    */
  934. +         "ksh",    "# ",        /* korn shell  */
  935.           "l",   " * ",   /* lex         NOTE: conflict between lex and franzlisp*/
  936.           "mac", "; ",    /* macro       vms or dec-20 or pdp-11 macro */
  937.       "me",  ".\\\" ",/* me-macros   t/nroff*/
  938. + #ifdef ALL
  939. +         "ml",    "; ",        /* mocklisp    */
  940. + #endif
  941.       "mm",  ".\\\" ",/* mm-macros   t/nroff*/
  942.       "ms",  ".\\\" ",/* ms-macros   t/nroff*/
  943. + #ifdef ALL
  944.           "p",   " * ",   /* pascal      */
  945. +         "perl",    "# ",        /* L. Wall's Perl */
  946.       "pl",  "% ",    /* prolog      */
  947.           "r",   "# ",    /* ratfor      */
  948.           "red", "% ",    /* psl/rlisp   */
  949. !         "sh",    "# ",        /* shell       */
  950. !         "sl",    "% ",        /* psl         */
  951. ! #endif
  952. !         "tex",    "% ",        /* tex           */
  953. !         "y",    " * ",        /* yacc        */
  954. ! #ifdef ALL
  955. !         "ye",    " * ",        /* yacc-efl    */
  956. !         "yr",    " * ",        /* yacc-ratfor */
  957. ! #endif
  958.   #ifdef sparc
  959.           "s",   "! ",    /* assembler   */
  960.   #endif
  961. ***************
  962. *** 181,198 ****
  963.   #ifdef vax
  964.           "s",   "# ",    /* assembler   */
  965.   #endif
  966. ! 
  967. !         "sh",  "# ",    /* shell       */
  968. !         "sl",  "% ",    /* psl         */
  969. !         "red", "% ",    /* psl/rlisp   */
  970. !         "cl",  ";;; ",  /* common lisp   */
  971. !         "ml",  "; ",    /* mocklisp    */
  972. !         "el",  "; ",    /* gnulisp     */
  973. !     "tex", "% ",    /* tex           */
  974. !         "y",   " * ",   /* yacc        */
  975. !         "ye",  " * ",   /* yacc-efl    */
  976. !         "yr",  " * ",   /* yacc-ratfor */
  977. !         "",    "# ",    /* default for empty suffix */
  978.           nil,   ""       /* default for unknown suffix; must always be last */
  979.   };
  980.   
  981. --- 214,228 ----
  982.   #ifdef vax
  983.           "s",   "# ",    /* assembler   */
  984.   #endif
  985. ! #ifdef MSDOS
  986. !         "asm",    "; ",    /* assembler   */
  987. !         "bat",    "REM ",    /* MS-DOS command.com */
  988. !         "cxx",    "// ",    /* MS-DOS c++ */
  989. !         "fin",    ".\\\" ",    /* for *.fin files on MSDOS */
  990. !         "fma",    ".\\\" ",    /* for fma-macors fin on MSDOS */
  991. !         "for",    "c ",    /* MS Fortran */
  992. !         "pl",    "# ",    /* L. Wall's Perl for MS-DOS */
  993. ! #endif /* MSDOS */
  994.           nil,   ""       /* default for unknown suffix; must always be last */
  995.   };
  996.   
  997. ***************
  998. *** 216,221 ****
  999. --- 246,252 ----
  1000.    * The name of the semaphore file is put into variable semafilename.
  1001.    */
  1002.   {
  1003. + #ifndef MSDOS
  1004.           register char * tp, *sp, *lp;
  1005.           int fdesc;
  1006.   
  1007. ***************
  1008. *** 249,254 ****
  1009. --- 280,289 ----
  1010.                        madesema=true;
  1011.           }
  1012.           return true;
  1013. + #else /* NOT MSDOS */
  1014. +     makesema = true;
  1015. +     return true;
  1016. + #endif /* NOT MSDOS */
  1017.   }
  1018.   
  1019.   
  1020. ***************
  1021. *** 257,262 ****
  1022. --- 292,300 ----
  1023.    * sets madesema to false.
  1024.    */
  1025.   {
  1026. + #ifdef MSDOS
  1027. +     madesema = false ;
  1028. + #else
  1029.           if (madesema) {
  1030.                   madesema=false;
  1031.                   if (unlink(semafilename) == -1) {
  1032. ***************
  1033. *** 263,272 ****
  1034.                           error("Can't find semaphore file %s",semafilename);
  1035.                   }
  1036.           }
  1037.   }
  1038.   
  1039. - 
  1040. - 
  1041.   InitCleanup()
  1042.   {       freefilename =  0;  /* initialize pointer */
  1043.   }
  1044. --- 301,309 ----
  1045.                           error("Can't find semaphore file %s",semafilename);
  1046.                   }
  1047.           }
  1048. + #endif /* MSDOS */
  1049.   }
  1050.   
  1051.   InitCleanup()
  1052.   {       freefilename =  0;  /* initialize pointer */
  1053.   }
  1054. ***************
  1055. *** 303,312 ****
  1056. --- 340,358 ----
  1057.           register char * lastslash, *tp;
  1058.           if ((tp=tfnames[freefilename])==nil)
  1059.                 tp=tfnames[freefilename] = talloc(NCPPN);
  1060. + #ifdef MSDOS
  1061. +     if (fullpath!=nil)
  1062. +           if ( (lastslash=rindex(fullpath,'/'))!=0 ||
  1063. +                (lastslash=rindex(fullpath,'\\'))!=0) {
  1064. +                 /* copy path */
  1065. +                 while (fullpath<=lastslash) *tp++ = *fullpath++;
  1066. +           }
  1067. + #else
  1068.           if (fullpath!=nil && (lastslash=rindex(fullpath,'/'))!=0) {
  1069.                   /* copy path */
  1070.                   while (fullpath<=lastslash) *tp++ = *fullpath++;
  1071.           }
  1072. + #endif /* MSDOS */
  1073.           while (*tp++ = *filename++);
  1074.           return (mktemp(tfnames[freefilename++]));
  1075.   }
  1076. ***************
  1077. *** 342,347 ****
  1078. --- 388,396 ----
  1079.   
  1080.           /* guess the comment leader from the suffix*/
  1081.           Suffix=bindex(workfilename, '.');
  1082. + #ifdef MSDOS
  1083. +     Suffix = strlwr( Suffix );
  1084. + #endif /* MSDOS */
  1085.           if (Suffix==workfilename) Suffix= ""; /* empty suffix; will get default*/
  1086.           for (i=0;;i++) {
  1087.                   if (comtable[i].suffix==nil) {
  1088. ***************
  1089. *** 356,361 ****
  1090. --- 405,422 ----
  1091.   }
  1092.   
  1093.   
  1094. + #ifdef MSDOS
  1095. + void _unixpath(char *pathbuf)
  1096. + {
  1097. +   int i;
  1098. + 
  1099. +   strlwr(pathbuf);
  1100. + 
  1101. +   for ( i = 0; i <= strlen(pathbuf); i++)
  1102. +     if(pathbuf[i] == '\\')
  1103. +       pathbuf[i] = '/';
  1104. + }
  1105. + #endif
  1106.   
  1107.   char * findpairfile(argc, argv, fname)
  1108.   int argc; char * argv[], *fname;
  1109. ***************
  1110. *** 369,375 ****
  1111. --- 430,442 ----
  1112.           register int count;
  1113.   
  1114.           for (next = argv, count = argc; count>0; next++,count--) {
  1115. + #ifdef MSDOS
  1116. +         if ((*next != nil) &&
  1117. +                     (strcmp(bindex(*next,'/'),fname)==0 ||
  1118. +              strcmp(bindex(*next,'\\'),fname)==0)) {
  1119. + #    else
  1120.                   if ((*next != nil) && strcmp(bindex(*next,'/'),fname)==0) {
  1121. + #endif /* MSDOS */
  1122.                           /* bindex finds the beginning of the file name stem */
  1123.                           match= *next;
  1124.                           *next=nil;
  1125. ***************
  1126. *** 419,424 ****
  1127. --- 486,495 ----
  1128.           register char * sp, * tp;
  1129.           char * lastsep, * purefname, * pureRCSname;
  1130.           int opened, returncode;
  1131. + #ifdef MSDOS
  1132. +         char *help;
  1133. +     struct stat dirstat;
  1134. + #endif /* MSDOS */
  1135.           char * RCS1;
  1136.       char prefdir[NCPPN];
  1137.   
  1138. ***************
  1139. *** 431,437 ****
  1140. --- 502,554 ----
  1141.           InitCleanup();
  1142.   
  1143.           /* first check suffix to see whether it is an RCS file or not */
  1144. + #ifdef MSDOS
  1145.           purefname=bindex(*argv, '/'); /* skip path */
  1146. +     if ( (help=bindex(*argv, '\\')) > purefname )
  1147. +           purefname = help;
  1148. + #else
  1149. +         purefname=bindex(*argv, '/'); /* skip path */
  1150. + #endif /* MSDOS */
  1151. + #ifdef MSDOS
  1152. +     if ( (pureRCSname = strstr(*argv, "rcs/")) != NULL ||
  1153. +          (pureRCSname = strstr(*argv, "rcs\\")) != NULL ||
  1154. +          (pureRCSname = strstr(*argv, "RCS\\")) != NULL ) {
  1155. +                 /* RCS file name given*/
  1156. +         RCS1 = (*argv);
  1157. +                 /* derive workfilename*/
  1158. +         sp = purefname; tp=tempfilename;
  1159. +         while( *sp != '\0' ) *tp++=*sp++; *tp= '\0';
  1160. +                 workfilename=findpairfile(argc-1,argv+1,tempfilename);
  1161. +         if( strlen(pureRCSname) > NCPFN + 4 ) {
  1162. +             /* To avoid, ambiguous file name. eg."RCS\RCS\foo.c" */
  1163. +             if( strlen(pureRCSname + 4) != (int) NULL ){
  1164. +                 error("file name %s is ambiguous", RCS1);
  1165. +                 return 0;
  1166. +             }
  1167. +             error("RCS file name %s too long",RCS1);
  1168. +             return 0;
  1169. +         }
  1170. +     } else {
  1171. +                 /* working file given; now try to find RCS file */
  1172. +         workfilename=*argv;
  1173. +         /* derive RCS file name*/
  1174. +         strcpy( tempfilename, "rcs/" );
  1175. +         strcat( tempfilename, purefname );
  1176. +                 RCS1=findpairfile(argc-1,argv+1,tempfilename);
  1177. +         if ( (pureRCSname = strstr(RCS1, "rcs/")) == NULL )
  1178. +           if ( (pureRCSname = strstr(RCS1, "rcs\\")) == NULL )
  1179. +             pureRCSname = strstr( RCS1, "RCS\\" );
  1180. +         if (strlen(pureRCSname)>NCPFN+4) {
  1181. +                         error("working file name %s too long",workfilename);
  1182. +                         return 0;
  1183. +                 }
  1184. +         }
  1185. +     if( strchr( workfilename, '/' ) != NULL ||
  1186. +         strchr( workfilename, '\\' ) != NULL ){
  1187. +         error("Sorry, file name %s confuses RCS", workfilename );
  1188. +         return 0;
  1189. +     }
  1190. + #else /* MSDOS */
  1191.           lastsep=rindex(purefname, RCSSEP);
  1192.           if (lastsep!= 0 && *(lastsep+1)==RCSSUF && *(lastsep+2)=='\0') {
  1193.                   /* RCS file name given*/
  1194. ***************
  1195. *** 460,467 ****
  1196. --- 577,612 ----
  1197.                           return 0;
  1198.                   }
  1199.           }
  1200. + #endif /* MSDOS */
  1201.           /* now we have a (tentative) RCS filename in RCS1 and workfilename  */
  1202.           /* Try to find the right RCS file */
  1203. + #ifdef MSDOS
  1204. +     RCSfilename=pureRCSname;
  1205. +     if (pureRCSname != RCS1){
  1206. +         error("Sorry, file name %s confuse RCS", RCS1);
  1207. +         return 0;
  1208. +     }else{
  1209. +         opened = ( ( finptr=fopen(pureRCSname, "r" ) ) != NULL );
  1210. +         if(opened){
  1211. +             returncode = 1;
  1212. +         }else{
  1213. +                         if (mustread) {
  1214. +                 error("Can't find %s",RCSfilename);
  1215. +                                 return 0;
  1216. +             }else{
  1217. +                 if( stat("RCS", &dirstat) == -1 ){
  1218. +                     error("Can't find RCS subdirectory");
  1219. +                     return 0;
  1220. +                 }else{
  1221. +                     if( !( dirstat.st_mode & S_IFDIR ) ){
  1222. +                         error("RCS is really directory?");
  1223. +                         return 0;
  1224. +                     }else returncode = -1;
  1225. +                 }
  1226. +             }
  1227. +         }
  1228. +     }
  1229. + #else /* MSDOS */
  1230.           if (pureRCSname!=RCS1) {
  1231.                   /* a path for RCSfile is given; single RCS file to look for */
  1232.                   finptr=fopen(RCSfilename=RCS1, "r");
  1233. ***************
  1234. *** 521,527 ****
  1235.                           }
  1236.                   }
  1237.           }
  1238. ! 
  1239.           if (returncode == 1) { /* RCS file open */
  1240.                   haveRCSstat=fstat(fileno(finptr),&RCSstat);
  1241.                   if ((haveRCSstat== 0) && ((RCSstat.st_mode & S_IFDIR) == S_IFDIR)) {
  1242. --- 666,672 ----
  1243.                           }
  1244.                   }
  1245.           }
  1246. ! #endif /* MSDOS */
  1247.           if (returncode == 1) { /* RCS file open */
  1248.                   haveRCSstat=fstat(fileno(finptr),&RCSstat);
  1249.                   if ((haveRCSstat== 0) && ((RCSstat.st_mode & S_IFDIR) == S_IFDIR)) {
  1250. ***************
  1251. *** 540,545 ****
  1252. --- 685,694 ----
  1253.                   /* file names was given in the argument list        */
  1254.                   warn("Option -p is set; ignoring output file %s",workfilename);
  1255.   
  1256. + #ifdef MSDOS
  1257. +         _unixpath(RCSfilename);
  1258. +         _unixpath(workfilename);
  1259. + #endif
  1260.           return returncode;
  1261.   }
  1262.   
  1263. ***************
  1264. *** 549,555 ****
  1265.    * Calls getwd(), but only once.
  1266.    * removes leading "../" and "./".
  1267.    */
  1268. ! {       static char pathbuf[NCPPN];
  1269.           static char namebuf[NCPPN];
  1270.           static int  pathlength;
  1271.   
  1272. --- 698,712 ----
  1273.    * Calls getwd(), but only once.
  1274.    * removes leading "../" and "./".
  1275.    */
  1276. ! {
  1277. ! #ifdef MSDOS
  1278. !         static char pathbuf[NCPPN];
  1279. ! 
  1280. !         _fullpath(pathbuf, RCSfilename, sizeof(pathbuf));
  1281. !         _unixpath(pathbuf);
  1282. !         return pathbuf;
  1283. ! #else
  1284. !         static char pathbuf[NCPPN];
  1285.           static char namebuf[NCPPN];
  1286.           static int  pathlength;
  1287.   
  1288. ***************
  1289. *** 604,613 ****
  1290.                       return(namebuf);
  1291.                   }
  1292.           }
  1293.   }
  1294.   
  1295. ! 
  1296. ! 
  1297.   int trydiraccess(filename)
  1298.   char * filename;
  1299.   /* checks write permission in directory of filename and returns
  1300. --- 761,771 ----
  1301.                       return(namebuf);
  1302.                   }
  1303.           }
  1304. + #endif
  1305.   }
  1306.   
  1307. ! /* In MSDOS and (perhaps) OS/2, any directries are writable.     */
  1308. ! /* So, the below check is NON-SENSE !! : $Author: lfk $         */
  1309.   int trydiraccess(filename)
  1310.   char * filename;
  1311.   /* checks write permission in directory of filename and returns
  1312. ***************
  1313. *** 616,621 ****
  1314. --- 774,783 ----
  1315.   {
  1316.           char pathname[NCPPN];
  1317.           register char * tp, *sp, *lp;
  1318. + 
  1319. + #ifdef MSDOS
  1320. +     return true;
  1321. + #else
  1322.           lp = rindex(filename,'/');
  1323.           if (lp==0) {
  1324.                   /* check current directory */
  1325. ***************
  1326. *** 637,642 ****
  1327. --- 799,805 ----
  1328.                   error("Directory %s not writable", pathname);
  1329.                   return false;
  1330.           }
  1331. + #endif /* MSDOS */
  1332.   }
  1333.   
  1334.   
  1335. ***************
  1336. *** 644,650 ****
  1337.   #ifndef V4_2BSD
  1338.   /* rename() and getwd() will be provided in bsd 4.2 */
  1339.   
  1340. ! 
  1341.   int rename(from, to)
  1342.   char * from, *to;
  1343.   /* Function: renames a file with the name given by from to the name given by to.
  1344. --- 807,813 ----
  1345.   #ifndef V4_2BSD
  1346.   /* rename() and getwd() will be provided in bsd 4.2 */
  1347.   
  1348. ! #ifndef MSDOS
  1349.   int rename(from, to)
  1350.   char * from, *to;
  1351.   /* Function: renames a file with the name given by from to the name given by to.
  1352. ***************
  1353. *** 733,742 ****
  1354.   fail:   VOID fclose(file);
  1355.           return NULL;
  1356.   }
  1357.   
  1358. ! 
  1359.   #endif
  1360.   
  1361.   
  1362.   #ifdef PAIRTEST
  1363.   /* test program for pairfilenames() and getfullRCSname() */
  1364. --- 896,930 ----
  1365.   fail:   VOID fclose(file);
  1366.           return NULL;
  1367.   }
  1368. + #else /* MSDOS */
  1369.   
  1370. ! char *getwd(name)
  1371. ! char    *name;
  1372. ! {
  1373. !     int a,i;
  1374. !     (void)getcwd(name, NCPPN);
  1375. !     strlwr(name);
  1376. !     a = strlen(name);
  1377. !     for ( i = 0; i <= a; i++)
  1378. !         if(name[i] == '\\')
  1379. !             name[i] = '/';
  1380. !     return name;
  1381. ! }
  1382. ! #endif /* MSODS */
  1383.   #endif
  1384. + #ifdef MSDOS
  1385. + char *gettmpdir()
  1386. + {
  1387. +     char tp[NCPPN];
  1388. + 
  1389. +     strcpy( tp, (char *) getenv("TMP") );
  1390. +     if( *tp == (char) NULL ) strcpy( tp, "." );
  1391. +     if( tp[strlen(tp) - 1] != '\\' )
  1392. +         strcat( tp, "\\" );
  1393. +     return tp;
  1394. + }
  1395.   
  1396. + #endif /* MSDOS */
  1397.   
  1398.   #ifdef PAIRTEST
  1399.   /* test program for pairfilenames() and getfullRCSname() */
  1400. diff -cbBwr rcs43/src/rcsgen.c rcs43-2/src/rcsgen.c
  1401. *** rcs43/src/rcsgen.c    Wed Sep 19 19:02:56 1990
  1402. --- rcs43-2/src/rcsgen.c    Fri Sep 21 15:08:02 1990
  1403. ***************
  1404. *** 107,114 ****
  1405.   extern FILE * fcopy;       /* result file during editing                    */
  1406.   extern char * resultfile;  /* file name for fcopy                           */
  1407.   extern int    rewriteflag; /* indicates whether to rewrite the input file   */
  1408.   
  1409. - 
  1410.   char    curlogmsg[logsize]; /* buffer for current log message                */
  1411.   
  1412.   enum stringwork {copy, edit, expand, edit_expand };
  1413. --- 107,116 ----
  1414.   extern FILE * fcopy;       /* result file during editing                    */
  1415.   extern char * resultfile;  /* file name for fcopy                           */
  1416.   extern int    rewriteflag; /* indicates whether to rewrite the input file   */
  1417. + #ifdef MSDOS
  1418. + extern char tmpdir[NCPPN];
  1419. + #endif /* MSDOS */
  1420.   
  1421.   char    curlogmsg[logsize]; /* buffer for current log message                */
  1422.   
  1423.   enum stringwork {copy, edit, expand, edit_expand };
  1424. ***************
  1425. *** 151,157 ****
  1426. --- 153,163 ----
  1427.                   }
  1428.           } else {
  1429.                   /* several revisions to generate */
  1430. + #ifdef MSDOS
  1431. +                 initeditfiles(dir?dir: tmpdir);
  1432. + #else
  1433.                   initeditfiles(dir?dir:"/tmp/");
  1434. + #endif /* MSDOS */
  1435.                   /* write initial revision into fcopy, no keyword expansion */
  1436.                   scandeltatext(deltas[0],copy);
  1437.                   i = 1;
  1438. ***************
  1439. *** 285,291 ****
  1440. --- 291,301 ----
  1441.                   }
  1442.                   /* read text from stdin */
  1443.                   if (ttystdin()) {
  1444. + #ifdef MSDOS
  1445. +                     VOID fputs("enter description, terminated with ^Z or '.':\n",stderr);
  1446. + #else
  1447.                       VOID fputs("enter description, terminated with ^D or '.':\n",stderr);
  1448. + #endif /* MSDOS */
  1449.                       VOID fputs("NOTE: This is NOT the log message!\n>> ",stderr);
  1450.               if (feof(stdin))
  1451.                       clearerr(stdin);
  1452. diff -cbBwr rcs43/src/rcslex.c rcs43-2/src/rcslex.c
  1453. *** rcs43/src/rcslex.c    Wed Sep 19 19:02:54 1990
  1454. --- rcs43-2/src/rcslex.c    Fri Sep 21 15:08:04 1990
  1455. ***************
  1456. *** 137,143 ****
  1457. --- 137,147 ----
  1458.                               /*into the symbol table. Handle with care.      */
  1459.   int             nextc;      /*next input character, initialized by Lexinit  */
  1460.   
  1461. + #ifdef MSDOS
  1462. + int             eoftok;        /*end-of-file indicator, set to >0 on end of file*/
  1463. + #else
  1464.   int             eof;        /*end-of-file indicator, set to >0 on end of file*/
  1465. + #endif /* MSDOS */
  1466.   int             line;       /*current line-number of input                  */
  1467.   int             nerror;     /*counter for errors                            */
  1468.   int             nwarn;      /*counter for warnings                          */
  1469. ***************
  1470. *** 241,247 ****
  1471. --- 245,255 ----
  1472.                   hshtab[c].num = nil;
  1473.           }
  1474.   
  1475. + #ifdef MSDOS
  1476. +         hshenter=true; eoftok=0; line=1; nerror=0; nwarn=0;
  1477. + #else
  1478.           hshenter=true; eof=0; line=1; nerror=0; nwarn=0;
  1479. + #endif /* MSDOS */
  1480.           NextString=nil; Topchar = &StringTab[0];
  1481.           if (finptr) {
  1482.                   nextc = GETC(finptr,frewrite,rewriteflag); /*initial character*/
  1483. ***************
  1484. *** 272,278 ****
  1485. --- 280,290 ----
  1486.           register char * sp;
  1487.           register enum tokens d;
  1488.   
  1489. + #ifdef MSDOS
  1490. +         if (eoftok) {
  1491. + #else
  1492.           if (eof) {
  1493. + #endif /* MSDOS */
  1494.                   nexttok=EOFILE;
  1495.                   return;
  1496.           }
  1497. ***************
  1498. *** 299,305 ****
  1499. --- 311,321 ----
  1500.                   goto loop;
  1501.   
  1502.           case EOFILE:
  1503. + #ifdef MSDOS
  1504. +                 eoftok++;
  1505. + #else
  1506.                   eof++;
  1507. + #endif /* MSDOS */
  1508.                   nexttok=EOFILE;
  1509.                   return;
  1510.   
  1511. ***************
  1512. *** 692,702 ****
  1513. --- 708,722 ----
  1514.       va_list ap;
  1515.   
  1516.       va_start(ap);
  1517. + #ifdef MSDOS
  1518. +     VOID vfprintf(iop, fmt, ap);
  1519. + #else
  1520.   #ifdef VFPRINTF
  1521.       VOID vfprintf(iop, fmt, ap);
  1522.   #else
  1523.       _doprnt(fmt, ap, iop);
  1524.   #endif
  1525. + #endif /* MSDOS */
  1526.           if (ferror(iop)) {
  1527.           writeerror();
  1528.                   value = EOF;
  1529. diff -cbBwr rcs43/src/rcsmerge.c rcs43-2/src/rcsmerge.c
  1530. *** orig/src/rcsmerge.c    Mon Oct 01 19:03:34 1990
  1531. --- rcs/src/rcsmerge.c    Mon Oct 01 18:47:56 1990
  1532. ***************
  1533. *** 88,93 ****
  1534. --- 88,98 ----
  1535.   extern struct hshentry * genrevs(); /*generate delta numbers                */
  1536.   extern int  nerror;                 /*counter for errors                    */
  1537.   
  1538. + #ifdef MSDOS
  1539. + extern char *getmpdir();
  1540. + char    tmpdir[NCPPN];
  1541. + #endif /* MSODS */
  1542. + 
  1543.   char *RCSfilename;
  1544.   char *workfilename;
  1545.   char * temp1file, * temp2file;
  1546. ***************
  1547. *** 135,140 ****
  1548. --- 140,149 ----
  1549.           if (argc<1) faterror("No input file\n%s",cmdusage);
  1550.           if (revnums<1) faterror("no base revision number given");
  1551.   
  1552. + #ifdef MSDOS
  1553. +     strcpy( tmpdir, (char *) gettmpdir() );
  1554. + #endif /* MSDOS */
  1555. + 
  1556.           /* now handle all filenames */
  1557.   
  1558.           if (pairfilenames(argc,argv,true,false)==1) {
  1559. ***************
  1560. *** 175,182 ****
  1561. --- 184,196 ----
  1562.               goto end;
  1563.           }
  1564.   
  1565. + #ifdef MSDOS
  1566. +                 temp1file=mktempfile(tmpdir,TMPFILE1);
  1567. +                 temp2file=mktempfile(tmpdir,TMPFILE2);
  1568. + #else
  1569.                   temp1file=mktempfile("/tmp/",TMPFILE1);
  1570.                   temp2file=mktempfile("/tmp/",TMPFILE2);
  1571. + #endif /* MSDOS */
  1572.   
  1573.                   diagnose("retrieving revision %s",rev1);
  1574.                   VOID sprintf(commarg,"-p%s",rev1);
  1575. ***************
  1576. *** 194,201 ****
  1577. --- 208,220 ----
  1578.   
  1579.                   if (
  1580.                 tostdout
  1581. + #ifdef MSDOS
  1582. +             ? run((char*)nil,(char*)nil,"sh",merge,"-p",workfilename,temp1file,temp2file,workfilename,rev2,(char*)nil)
  1583. +             : run((char*)nil,(char*)nil,"sh",merge,     workfilename,temp1file,temp2file,workfilename,rev2,(char*)nil)) {
  1584. + #else
  1585.               ? run((char*)nil,(char*)nil,merge,"-p",workfilename,temp1file,temp2file,workfilename,rev2,(char*)nil)
  1586.               : run((char*)nil,(char*)nil,merge,     workfilename,temp1file,temp2file,workfilename,rev2,(char*)nil)) {
  1587. + #endif
  1588.                           faterror("merge failed");
  1589.                   }
  1590.           }
  1591. diff -cbBwr rcs43/src/rcsrev.c rcs43-2/src/rcsrev.c
  1592. *** rcs43/src/rcsrev.c    Wed Sep 19 19:02:56 1990
  1593. --- rcs43-2/src/rcsrev.c    Fri Sep 21 15:08:06 1990
  1594. ***************
  1595. *** 713,716 ****
  1596.   cleanup(){}
  1597.   /*dummy*/
  1598.   
  1599. ! #endif REVTEST
  1600. --- 713,716 ----
  1601.   cleanup(){}
  1602.   /*dummy*/
  1603.   
  1604. ! #endif /* REVTEST */
  1605. diff -cbBwr rcs43/src/rcsutil.c rcs43-2/src/rcsutil.c
  1606. *** rcs43/src/rcsutil.c    Wed Sep 19 19:02:52 1990
  1607. --- rcs43-2/src/rcsutil.c    Fri Sep 21 16:04:12 1990
  1608. ***************
  1609. *** 110,116 ****
  1610. --- 110,118 ----
  1611.   #include <sys/stat.h>
  1612.   #include <signal.h>
  1613.   #include "rcsbase.h"
  1614. + #ifndef MSDOS
  1615.   #include <pwd.h>
  1616. + #endif /* NOT MSDOS */
  1617.   #include <varargs.h>
  1618.   
  1619.   #if defined(USG) || defined(V4_2BSD)
  1620. ***************
  1621. *** 117,133 ****
  1622.   #include <fcntl.h>
  1623.   #endif
  1624.   
  1625.   #ifndef V4_2BSD
  1626.   #define vfork fork
  1627.   #endif
  1628.   
  1629.   extern char * bindex();
  1630.   extern FILE * finptr;
  1631.   extern char * RCSfilename;
  1632.   extern char * getlogin();
  1633.   extern struct passwd *getpwuid();
  1634. - extern char * malloc();
  1635.   extern int errno;
  1636.   
  1637.   
  1638.   char * talloc(size)
  1639. --- 119,139 ----
  1640.   #include <fcntl.h>
  1641.   #endif
  1642.   
  1643. + #ifndef MSDOS
  1644.   #ifndef V4_2BSD
  1645.   #define vfork fork
  1646.   #endif
  1647. + #endif /* NOT MSDOS */
  1648.   
  1649.   extern char * bindex();
  1650.   extern FILE * finptr;
  1651.   extern char * RCSfilename;
  1652. + #ifndef MSDOS
  1653.   extern char * getlogin();
  1654.   extern struct passwd *getpwuid();
  1655.   extern int errno;
  1656. + #endif /* NOT MSDOS */
  1657. + extern char * malloc();
  1658.   
  1659.   
  1660.   char * talloc(size)
  1661. ***************
  1662. *** 140,152 ****
  1663.       return p;
  1664.   }
  1665.   
  1666. ! 
  1667.   
  1668.   char * getcaller()
  1669.   /* Function: gets the callers login from his uid.
  1670.    * If the uid is root, tries to get the true login with getlogin().
  1671.    */
  1672. ! {       char * name;
  1673.       int uid;
  1674.       uid=getuid();
  1675.       if (uid==0) {
  1676. --- 146,173 ----
  1677.       return p;
  1678.   }
  1679.   
  1680. ! #ifdef MSDOS
  1681. ! char * getenv( char * var );
  1682. ! #endif
  1683.   
  1684.   char * getcaller()
  1685.   /* Function: gets the callers login from his uid.
  1686.    * If the uid is root, tries to get the true login with getlogin().
  1687.    */
  1688. ! {
  1689. !     char *name = "Unknown";
  1690. !     char *tmpname;
  1691. ! #ifdef MSDOS
  1692. ! #    ifndef MKS
  1693. !     if ((tmpname = getenv("USR")) != NULL)
  1694. ! #    else
  1695. !     if ((tmpname = getenv("LOGNAME")) != NULL)
  1696. ! #    endif
  1697. !         name = tmpname;
  1698. !     else if ((tmpname = getenv("USER")) != NULL)
  1699. !         name = tmpname;
  1700. !     return name;
  1701. ! #else
  1702.       int uid;
  1703.       uid=getuid();
  1704.       if (uid==0) {
  1705. ***************
  1706. *** 156,161 ****
  1707. --- 177,183 ----
  1708.               return name;
  1709.       }
  1710.       return(getpwuid(uid)->pw_name);
  1711. + #endif /* MSDOS */
  1712.   }
  1713.   
  1714.   
  1715. ***************
  1716. *** 281,287 ****
  1717. --- 303,313 ----
  1718.           register struct access * next;
  1719.           struct stat statbuf;
  1720.   
  1721. + #ifdef MSDOS
  1722. +         if ((AccessList==nil) || (strcmp(who,"ROOT_DOS")==0))
  1723. + #else
  1724.           if ((AccessList==nil) || (strcmp(who,"root")==0))
  1725. + #endif /* MSDOS */
  1726.                   return true;
  1727.   
  1728.           next=AccessList;
  1729. ***************
  1730. *** 291,305 ****
  1731. --- 317,340 ----
  1732.                   next=next->nextaccess;
  1733.           } while (next!=nil);
  1734.   
  1735. + #ifdef MSDOS
  1736. + #else
  1737.           VOID fstat(fileno(finptr),&statbuf);  /* get owner of file */
  1738.           if (getuid() == statbuf.st_uid) return true;
  1739. + #endif /* MSDOS */
  1740.   
  1741.           error("User %s not on the access list",who);
  1742.           return false;
  1743.   }
  1744.   
  1745. + /* In MSDOS, we have a few signals.     */
  1746. + /* So, we set signal handlar for only SIGINT. $Author: lfk $    */
  1747.   
  1748. + #ifdef MSDOS
  1749. + void catchsig(void)
  1750. + #else
  1751.   static SIGNAL_TYPE catchsig(s)
  1752. + #endif /* MSDOS */
  1753.   {
  1754.       ignoreints();
  1755.           diagnose("\nRCS: cleaning up\n");
  1756. ***************
  1757. *** 310,341 ****
  1758.   #endif
  1759.   }
  1760.   
  1761.   static sig[] = {SIGINT,SIGHUP,SIGQUIT,SIGPIPE,SIGTERM};
  1762.   #define SIGS (sizeof(sig)/sizeof(*sig))
  1763.   static SIGNAL_TYPE (*catcher[SIGS])();
  1764. ! 
  1765.     void catchints()
  1766.     {
  1767.       register i;
  1768.       for (i=SIGS; 0<=--i; )
  1769.           catcher[i]  =
  1770.           signal(sig[i],SIG_IGN) == SIG_IGN  ?  SIG_IGN  :  catchsig;
  1771.       restoreints();
  1772.     }
  1773.   
  1774.     void ignoreints()
  1775.     {
  1776.       register i;
  1777.       for (i=SIGS; 0<=--i; )
  1778.           VOID signal(sig[i], SIG_IGN);
  1779.     }
  1780.   
  1781.   void restoreints()
  1782.   {
  1783.       register i;
  1784.       for (i=SIGS; 0<=--i; )
  1785.           if (catcher[i] != SIG_IGN)
  1786.               VOID signal(sig[i], catcher[i]);
  1787.   }
  1788.   
  1789.   fastcopy(inf,outf)
  1790. --- 345,390 ----
  1791.   #endif
  1792.   }
  1793.   
  1794. + #ifndef MSDOS
  1795.   static sig[] = {SIGINT,SIGHUP,SIGQUIT,SIGPIPE,SIGTERM};
  1796.   #define SIGS (sizeof(sig)/sizeof(*sig))
  1797.   static SIGNAL_TYPE (*catcher[SIGS])();
  1798. ! #endif /* NOT MSDOS */
  1799.     void catchints()
  1800.     {
  1801. + #ifdef MSDOS
  1802. +     signal(SIGINT, catchsig); /* $Author: lfk $ fixed this so Ctrl-C halts processing */
  1803. +     restoreints();
  1804. + #else
  1805.       register i;
  1806.       for (i=SIGS; 0<=--i; )
  1807.           catcher[i]  =
  1808.           signal(sig[i],SIG_IGN) == SIG_IGN  ?  SIG_IGN  :  catchsig;
  1809.       restoreints();
  1810. + #endif /* MSDOS */
  1811.     }
  1812.   
  1813.     void ignoreints()
  1814.     {
  1815. + #ifdef MSDOS
  1816. +     VOID signal(SIGINT, SIG_IGN);
  1817. + #else
  1818.       register i;
  1819.       for (i=SIGS; 0<=--i; )
  1820.           VOID signal(sig[i], SIG_IGN);
  1821. + #endif /* MSDOS */
  1822.     }
  1823.   
  1824.   void restoreints()
  1825.   {
  1826. + #ifdef MSDOS
  1827. +     VOID signal(SIGINT, catchsig);
  1828. + #else
  1829.       register i;
  1830.       for (i=SIGS; 0<=--i; )
  1831.           if (catcher[i] != SIG_IGN)
  1832.               VOID signal(sig[i], catcher[i]);
  1833. + #endif /* MSDOS */
  1834.   }
  1835.   
  1836.   fastcopy(inf,outf)
  1837. ***************
  1838. *** 455,460 ****
  1839. --- 504,525 ----
  1840.   static int run_back(inoutargs)
  1841.       char **inoutargs;
  1842.   {
  1843. + #ifdef MSDOS
  1844. +     int result, si, so;
  1845. + 
  1846. +     if (fflush(stdout) == EOF  ||  fflush(stderr) == EOF)
  1847. +         return -1;
  1848. +         si = dup(0);
  1849. +         so = dup(1);
  1850. +     tryopen(fileno(stdin), inoutargs[0], 0);
  1851. +     tryopen(fileno(stdout), inoutargs[1], -1);
  1852. +     result = spawnvp( 0, inoutargs[2], &inoutargs[2] );
  1853. +     dup2(si, 0);
  1854. +     dup2(so, 1);
  1855. +         close(si);
  1856. +         close(so);
  1857. +     return result;
  1858. + #else
  1859.       int pid;
  1860.       register char **p;
  1861.       if (fflush(stdout) == EOF  ||  fflush(stderr) == EOF)
  1862. ***************
  1863. *** 473,478 ****
  1864. --- 538,544 ----
  1865.           _exit(2);
  1866.       }
  1867.       return pid;
  1868. + #endif /* MSDOS */
  1869.   }
  1870.   
  1871.   #define CARGSMAX 20
  1872. ***************
  1873. *** 498,508 ****
  1874. --- 564,593 ----
  1875.       }
  1876.       va_end(ap);
  1877.       pid = run_back(rgargs);
  1878. + #ifndef MSDOS
  1879.       if (pid < 0)
  1880. + #endif /* MSDOS */
  1881.           return pid;
  1882. + #ifndef MSDOS
  1883.       for (;;)
  1884.           if ((w = wait(&wstatus)) < 0)
  1885.               return w;
  1886.           else if (w == pid)
  1887.               return wstatus;
  1888. + #endif /* NOT MSDOS */
  1889. + }
  1890. + 
  1891. + #ifdef MSDOS
  1892. + int Rename( from, to )
  1893. + char    *from;
  1894. + char    *to;
  1895. + {
  1896. +     if ( access( to, 0 ) == 0 ) {
  1897. +         if ( chmod( to, S_IWRITE | S_IREAD ) == -1 )
  1898. +             return (-1);
  1899. +         if ( unlink(to) != 0 )
  1900. +             return (-1);
  1901. +     }
  1902. +         return ( rename( from, to ) );
  1903.   }
  1904. + #endif /* MSDOS */
  1905.