home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume1 / rn / patch14 < prev    next >
Encoding:
Text File  |  1986-11-30  |  11.1 KB  |  468 lines
  1. System: rn version 4.3
  2. Patch #: 14
  3. Priority: ENHANCEMENT
  4. Subject: rn -c speedup
  5. >From: mark@cbosgd.UUCP (Mark Horton), lwall@sdcrdcf.UUCP (Larry Wall)
  6.  
  7. Description:
  8.     Mark mentioned that he didn't want to put "rn -c" into his
  9.     system-wide login profile because it was kind of slow, and he
  10.     suggested that it might be speedupable.  Okay, here it is.
  11.     The following patches make "rn -c" run between two and three
  12.     times faster on our machine.  These figures are for comparison
  13.     only and may vary depending on the environment and your driving
  14.     habits.
  15.  
  16. Fix:    From rn, say "| patch -d DIR", where DIR is your rn source directory.
  17.     Outside of rn, say "cd DIR; patch <thisarticle".  If you don't have
  18.     the patch program, apply the following by hand, or get patch.
  19.     (Has anyone really made it this far without patch?)
  20.  
  21.     If patch indicates that patchlevel is the wrong version, you may need
  22.     to apply one or more previous patches, or the patch may already
  23.     have been applied.  See the patchlevel file to find out what has or
  24.     has not been applied.  In any event, don't continue with the patch.
  25.  
  26. Index: patchlevel
  27. Prereq: 13
  28. 1c1
  29. < Patch #: 13
  30. ---
  31. > Patch #: 14
  32.  
  33. Index: init.c
  34. Prereq: 4.3
  35. *** init.c.old    Tue May 21 13:38:34 1985
  36. --- init.c    Tue May 21 13:38:37 1985
  37. ***************
  38. *** 1,4
  39. ! /* $Header: init.c,v 4.3 85/05/01 16:16:13 lwall Exp $
  40.    *
  41.    * $Log:    init.c,v $
  42.    * Revision 4.3  85/05/01  16:16:13  lwall
  43.  
  44. --- 1,4 -----
  45. ! /* $Header: init.c,v 4.3.1.2 85/05/21 14:22:46 lwall Exp $
  46.    *
  47.    * $Log:    init.c,v $
  48.    * Revision 4.3.1.2  85/05/21  14:22:46  lwall
  49. ***************
  50. *** 1,6
  51.   /* $Header: init.c,v 4.3 85/05/01 16:16:13 lwall Exp $
  52.    *
  53.    * $Log:    init.c,v $
  54.    * Revision 4.3  85/05/01  16:16:13  lwall
  55.    * Baseline for release with 4.3bsd.
  56.    * 
  57.  
  58. --- 1,12 -----
  59.   /* $Header: init.c,v 4.3.1.2 85/05/21 14:22:46 lwall Exp $
  60.    *
  61.    * $Log:    init.c,v $
  62. +  * Revision 4.3.1.2  85/05/21  14:22:46  lwall
  63. +  * Sped up "rn -c" by avoiding unnecessary initialization.
  64. +  * 
  65. +  * Revision 4.3.1.1  85/05/10  11:33:39  lwall
  66. +  * Branch for patches.
  67. +  * 
  68.    * Revision 4.3  85/05/01  16:16:13  lwall
  69.    * Baseline for release with 4.3bsd.
  70.    * 
  71. ***************
  72. *** 80,86
  73.       
  74.       /* now make sure we have a current working directory */
  75.   
  76. !     cwd_check();
  77.       
  78.       /* now that we know where to save things, cd to news directory */
  79.   
  80.  
  81. --- 86,93 -----
  82.       
  83.       /* now make sure we have a current working directory */
  84.   
  85. !     if (!checkflag)
  86. !     cwd_check();
  87.       
  88.       /* now that we know where to save things, cd to news directory */
  89.   
  90. ***************
  91. *** 96,102
  92.   
  93.       /* get info on last rn run, if any */
  94.   
  95. !     last_init(tcbuf);
  96.   
  97.       free(tcbuf);            /* recover 1024 bytes */
  98.   
  99.  
  100. --- 103,110 -----
  101.   
  102.       /* get info on last rn run, if any */
  103.   
  104. !     if (!checkflag)
  105. !     last_init(tcbuf);
  106.   
  107.       free(tcbuf);            /* recover 1024 bytes */
  108.   
  109. ***************
  110. *** 102,108
  111.   
  112.       /* make sure we are the right version */
  113.   
  114. !     version_check();
  115.   
  116.       /* make sure we are the sole possessors of .newsrc */
  117.   
  118.  
  119. --- 110,117 -----
  120.   
  121.       /* make sure we are the right version */
  122.   
  123. !     if (!checkflag)
  124. !     version_check();
  125.   
  126.       /* make sure we are the sole possessors of .newsrc */
  127.   
  128. ***************
  129. *** 106,112
  130.   
  131.       /* make sure we are the sole possessors of .newsrc */
  132.   
  133. !     lock_check();
  134.   
  135.       /* check for news news */
  136.   
  137.  
  138. --- 115,122 -----
  139.   
  140.       /* make sure we are the sole possessors of .newsrc */
  141.   
  142. !     if (!checkflag)
  143. !     lock_check();
  144.   
  145.       /* check for news news */
  146.   
  147. ***************
  148. *** 110,116
  149.   
  150.       /* check for news news */
  151.   
  152. !     newsnews_check();
  153.   
  154.       /* open active file, etc. */
  155.   
  156.  
  157. --- 120,127 -----
  158.   
  159.       /* check for news news */
  160.   
  161. !     if (!checkflag)
  162. !     newsnews_check();
  163.   
  164.       /* open active file, etc. */
  165.   
  166. ***************
  167. *** 214,220
  168.       tmpfp = fopen(lockname,"r");
  169.       if (tmpfp != Nullfp) {
  170.           int processnum;
  171. ! 
  172.           fgets(buf,LBUFLEN,tmpfp);
  173.           fclose(tmpfp);
  174.           processnum = atoi(buf);
  175.  
  176. --- 225,231 -----
  177.       tmpfp = fopen(lockname,"r");
  178.       if (tmpfp != Nullfp) {
  179.           int processnum;
  180. !     
  181.           fgets(buf,LBUFLEN,tmpfp);
  182.           fclose(tmpfp);
  183.           processnum = atoi(buf);
  184. ***************
  185. *** 285,291
  186.   {
  187.       char *newsnewsname = filexp(NEWSNEWSNAME);
  188.   
  189. !     if (!checkflag && (tmpfp = fopen(newsnewsname,"r")) != Nullfp) {
  190.       fstat(tmpfp->_file,&filestat);
  191.       if (filestat.st_mtime > lasttime) {
  192.           while (fgets(buf,sizeof(buf),tmpfp) != Nullch)
  193.  
  194. --- 296,302 -----
  195.   {
  196.       char *newsnewsname = filexp(NEWSNEWSNAME);
  197.   
  198. !     if ((tmpfp = fopen(newsnewsname,"r")) != Nullfp) {
  199.       fstat(tmpfp->_file,&filestat);
  200.       if (filestat.st_mtime > lasttime) {
  201.           while (fgets(buf,sizeof(buf),tmpfp) != Nullch)
  202.  
  203. Index: intrp.c
  204. Prereq: 4.3.1.3
  205. *** intrp.c.old    Tue May 21 13:39:24 1985
  206. --- intrp.c    Tue May 21 13:39:37 1985
  207. ***************
  208. *** 1,4
  209. ! /* $Header: intrp.c,v 4.3.1.3 85/05/17 10:37:11 lwall Exp $
  210.    *
  211.    * $Log:    intrp.c,v $
  212.    * Revision 4.3.1.3  85/05/17  10:37:11  lwall
  213.  
  214. --- 1,4 -----
  215. ! /* $Header: intrp.c,v 4.3.1.4 85/05/21 13:35:21 lwall Exp $
  216.    *
  217.    * $Log:    intrp.c,v $
  218.    * Revision 4.3.1.4  85/05/21  13:35:21  lwall
  219. ***************
  220. *** 1,6
  221.   /* $Header: intrp.c,v 4.3.1.3 85/05/17 10:37:11 lwall Exp $
  222.    *
  223.    * $Log:    intrp.c,v $
  224.    * Revision 4.3.1.3  85/05/17  10:37:11  lwall
  225.    * Fixed & substitution to capitalize last name too.
  226.    * 
  227.  
  228. --- 1,9 -----
  229.   /* $Header: intrp.c,v 4.3.1.4 85/05/21 13:35:21 lwall Exp $
  230.    *
  231.    * $Log:    intrp.c,v $
  232. +  * Revision 4.3.1.4  85/05/21  13:35:21  lwall
  233. +  * Sped up "rn -c" by not doing unnecessary initialization.
  234. +  * 
  235.    * Revision 4.3.1.3  85/05/17  10:37:11  lwall
  236.    * Fixed & substitution to capitalize last name too.
  237.    * 
  238. ***************
  239. *** 83,91
  240.   
  241.       spool = savestr(filexp(SPOOL));    /* usually /usr/spool/news */
  242.       
  243. -     getwd(tcbuf);            /* find working directory name */
  244. -     origdir = savestr(tcbuf);        /* and remember it */
  245. -     
  246.       /* get environmental stuff */
  247.   
  248.       /* get home directory */
  249.  
  250. --- 86,91 -----
  251.   
  252.       spool = savestr(filexp(SPOOL));    /* usually /usr/spool/news */
  253.       
  254.       /* get environmental stuff */
  255.   
  256.       /* get home directory */
  257. ***************
  258. *** 105,110
  259.       if (logname == Nullch)
  260.       logname = savestr(getlogin());
  261.   #endif
  262.   
  263.       /* get the real name of the person (%N) */
  264.       /* Must be done after logname is read in because BERKNAMES uses that */
  265.  
  266. --- 105,115 -----
  267.       if (logname == Nullch)
  268.       logname = savestr(getlogin());
  269.   #endif
  270. +     
  271. +     if (checkflag)            /* that getwd below takes ~1/3 sec. */
  272. +     return;                /* and we do not need it for -c */
  273. +     getwd(tcbuf);            /* find working directory name */
  274. +     origdir = savestr(tcbuf);        /* and remember it */
  275.   
  276.       /* get the real name of the person (%N) */
  277.       /* Must be done after logname is read in because BERKNAMES uses that */
  278.  
  279. Index: rcstuff.c
  280. Prereq: 4.3
  281. *** rcstuff.c.old    Tue May 21 13:38:02 1985
  282. --- rcstuff.c    Tue May 21 13:38:10 1985
  283. ***************
  284. *** 1,4
  285. ! /* $Header: rcstuff.c,v 4.3 85/05/01 11:45:56 lwall Exp $
  286.    *
  287.    * $Log:    rcstuff.c,v $
  288.    * Revision 4.3  85/05/01  11:45:56  lwall
  289.  
  290. --- 1,4 -----
  291. ! /* $Header: rcstuff.c,v 4.3.1.2 85/05/17 11:40:08 lwall Exp $
  292.    *
  293.    * $Log:    rcstuff.c,v $
  294.    * Revision 4.3.1.2  85/05/17  11:40:08  lwall
  295. ***************
  296. *** 1,6
  297.   /* $Header: rcstuff.c,v 4.3 85/05/01 11:45:56 lwall Exp $
  298.    *
  299.    * $Log:    rcstuff.c,v $
  300.    * Revision 4.3  85/05/01  11:45:56  lwall
  301.    * Baseline for release with 4.3bsd.
  302.    * 
  303.  
  304. --- 1,12 -----
  305.   /* $Header: rcstuff.c,v 4.3.1.2 85/05/17 11:40:08 lwall Exp $
  306.    *
  307.    * $Log:    rcstuff.c,v $
  308. +  * Revision 4.3.1.2  85/05/17  11:40:08  lwall
  309. +  * Sped up "rn -c" by not mallocing unnecessarily.
  310. +  * 
  311. +  * Revision 4.3.1.1  85/05/10  11:37:18  lwall
  312. +  * Branch for patches.
  313. +  * 
  314.    * Revision 4.3  85/05/01  11:45:56  lwall
  315.    * Baseline for release with 4.3bsd.
  316.    * 
  317. ***************
  318. *** 84,90
  319.       else
  320.           softptr[newng] = 0;
  321.       some_buf[--length] = '\0';    /* wipe out newline */
  322. !     if (some_buf == buf) {
  323.           rcline[newng] = savestr(some_buf);
  324.                       /* make a semipermanent copy */
  325.       }
  326.  
  327. --- 90,98 -----
  328.       else
  329.           softptr[newng] = 0;
  330.       some_buf[--length] = '\0';    /* wipe out newline */
  331. !     if (checkflag)            /* no extra mallocs for -c */
  332. !         rcline[newng] = some_buf;
  333. !     else if (some_buf == buf) {
  334.           rcline[newng] = savestr(some_buf);
  335.                       /* make a semipermanent copy */
  336.       }
  337. ***************
  338. *** 110,116
  339.           continue;
  340.       }
  341.       for (s = rcline[newng]; *s && *s != ':' && *s != NEGCHAR; s++) ;
  342. !     if (!*s) {
  343.   #ifndef lint
  344.           rcline[newng] = saferealloc(rcline[newng],(MEM_SIZE)length+2);
  345.   #endif lint
  346.  
  347. --- 118,124 -----
  348.           continue;
  349.       }
  350.       for (s = rcline[newng]; *s && *s != ':' && *s != NEGCHAR; s++) ;
  351. !     if (!*s && !checkflag) {
  352.   #ifndef lint
  353.           rcline[newng] = saferealloc(rcline[newng],(MEM_SIZE)length+2);
  354.   #endif lint
  355.  
  356. Index: sw.c
  357. Prereq: 4.3
  358. *** sw.c.old    Tue May 21 13:38:54 1985
  359. --- sw.c    Tue May 21 13:38:57 1985
  360. ***************
  361. *** 1,4
  362. ! /* $Header: sw.c,v 4.3 85/05/01 11:50:54 lwall Exp $
  363.    *
  364.    * $Log:    sw.c,v $
  365.    * Revision 4.3  85/05/01  11:50:54  lwall
  366.  
  367. --- 1,4 -----
  368. ! /* $Header: sw.c,v 4.3.1.2 85/05/21 13:36:23 lwall Exp $
  369.    *
  370.    * $Log:    sw.c,v $
  371.    * Revision 4.3.1.2  85/05/21  13:36:23  lwall
  372. ***************
  373. *** 1,6
  374.   /* $Header: sw.c,v 4.3 85/05/01 11:50:54 lwall Exp $
  375.    *
  376.    * $Log:    sw.c,v $
  377.    * Revision 4.3  85/05/01  11:50:54  lwall
  378.    * Baseline for release with 4.3bsd.
  379.    * 
  380.  
  381. --- 1,12 -----
  382.   /* $Header: sw.c,v 4.3.1.2 85/05/21 13:36:23 lwall Exp $
  383.    *
  384.    * $Log:    sw.c,v $
  385. +  * Revision 4.3.1.2  85/05/21  13:36:23  lwall
  386. +  * Sped up "rn -c" by not doing unnecessary initialization.
  387. +  * 
  388. +  * Revision 4.3.1.1  85/05/10  11:40:38  lwall
  389. +  * Branch for patches.
  390. +  * 
  391.    * Revision 4.3  85/05/01  11:50:54  lwall
  392.    * Baseline for release with 4.3bsd.
  393.    * 
  394. ***************
  395. *** 25,30
  396.   {
  397.       register int i;
  398.   
  399.       interp(*tcbufptr,1024,GLOBINIT);
  400.       sw_file(tcbufptr,FALSE);
  401.       safecpy(*tcbufptr,getenv("RNINIT"),1024);
  402.  
  403. --- 31,38 -----
  404.   {
  405.       register int i;
  406.   
  407. +     if (argc >= 2 && strEQ(argv[1],"-c"))
  408. +     checkflag=TRUE;            /* so we can optimize for -c */
  409.       interp(*tcbufptr,1024,GLOBINIT);
  410.       sw_file(tcbufptr,FALSE);
  411.       safecpy(*tcbufptr,getenv("RNINIT"),1024);
  412. ***************
  413. *** 161,166
  414.           break;
  415.   #endif
  416.       case '/':
  417.   #ifdef SETENV
  418.           setenv("SAVEDIR",  upordown ? "%p/%c" : "%p" );
  419.           setenv("SAVENAME", upordown ? "%a"    : "%^C");
  420.  
  421. --- 169,176 -----
  422.           break;
  423.   #endif
  424.       case '/':
  425. +         if (checkflag)
  426. +         break;
  427.   #ifdef SETENV
  428.           setenv("SAVEDIR",  upordown ? "%p/%c" : "%p" );
  429.           setenv("SAVENAME", upordown ? "%a"    : "%^C");
  430. ***************
  431. *** 177,182
  432.           docheckwhen = atoi(s);
  433.           break;
  434.       case 'd': {
  435.           s++;
  436.           if (*s == '=') s++;
  437.           if (cwd) {
  438.  
  439. --- 187,194 -----
  440.           docheckwhen = atoi(s);
  441.           break;
  442.       case 'd': {
  443. +         if (checkflag)
  444. +         break;
  445.           s++;
  446.           if (*s == '=') s++;
  447.           if (cwd) {
  448. ***************
  449. *** 237,242
  450.           char *t;
  451.           int flag = (*s == 'h' ? HT_HIDE : HT_MAGIC);
  452.           
  453.           s++;
  454.           len = strlen(s);
  455.           for (t=s; *t; t++)
  456.  
  457. --- 249,256 -----
  458.           char *t;
  459.           int flag = (*s == 'h' ? HT_HIDE : HT_MAGIC);
  460.           
  461. +         if (checkflag)
  462. +         break;
  463.           s++;
  464.           len = strlen(s);
  465.           for (t=s; *t; t++)
  466.  
  467.  
  468.