home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3008 < prev    next >
Text File  |  1991-03-06  |  6KB  |  222 lines
  1. Newsgroups: alt.sources
  2. From: christos@theory.tn.cornell.edu (Christos S. Zoulas)
  3. Subject: 4.3BSD nroff patches for System V machines
  4. Message-ID: <1991Mar7.001103.27891@batcomputer.tn.cornell.edu>
  5. Date: Thu, 7 Mar 1991 00:11:03 GMT
  6.  
  7. Hello,
  8.  
  9. I just happened to be on a system V box that did not come with nroff, so
  10. ported 4.3BSD nroff for it. The only problem was that nroff contains code 
  11. to read the term ``.o'' files which are in "a.out" format, but couldn't read 
  12. the ``.o'' files in "COFF" format.
  13.  
  14. The following patch adds COFF support to nroff, and support for boldfacing.
  15. [the boldfacing patch is courtesy of Lawrence Crowl <crowl@cs.rochester.edu>]
  16.  
  17. You'll need to define COFF in your Makefile if you are on a system V machine.
  18.  
  19. christos
  20.  
  21. *** n10.c.dist    Tue Jan 31 18:45:56 1989
  22. --- n10.c    Wed Mar  6 18:12:48 1991
  23. ***************
  24. *** 1,3 ****
  25. --- 1,4 ----
  26. + 
  27.   #ifndef lint
  28.   static char sccsid[] = "@(#)n10.c    4.2 4/17/85";
  29.   #endif lint
  30. ***************
  31. *** 10,15 ****
  32. --- 11,21 ----
  33.   #include "v.h"
  34.   extern
  35.   #include "tw.h"
  36. + #ifdef COFF
  37. + #include <aouthdr.h>
  38. + #include <filehdr.h>
  39. + #include <scnhdr.h>
  40. + #endif
  41.   /*
  42.   nroff10.c
  43.   
  44. ***************
  45. *** 49,54 ****
  46. --- 55,64 ----
  47.       char *q;
  48.       int x[8];
  49.       extern char *setbrk();
  50. + #ifdef COFF
  51. +     struct scnhdr sec;
  52. +     struct filehdr hdr;
  53. + #endif
  54.   
  55.       if(((i=open(termtab,0)) < 0) && (i=open("/usr/lib/term/tab37",0)) < 0){
  56.           prstr("Cannot open ");
  57. ***************
  58. *** 56,61 ****
  59. --- 66,72 ----
  60.           prstr("\n");
  61.           exit(-1);
  62.       }
  63. + #ifndef COFF
  64.       read(i,(char *)x,8*sizeof(int));
  65.       read(i,(char *)&t.bset,j = sizeof(int)*((int *)&t.zzz - &t.bset));
  66.       x[2] -= j;
  67. ***************
  68. *** 71,76 ****
  69. --- 82,144 ----
  70.       dtab = 8 * t.Em;
  71.       for(i=0; i<16; i++)tabtab[i] = dtab * (i+1);
  72.       if(eqflg)t.Adj = t.Hor;
  73. + #else
  74. +     if (read(i, (char *) &hdr, sizeof(struct filehdr)) != 
  75. +         sizeof(struct filehdr)) {
  76. +         prstr("Error reading ");
  77. +         prstr(termtab);
  78. +         prstr(" file header.\n");
  79. +         exit(-1);
  80. +     }
  81. +     if (!ISCOFF(hdr.f_magic)) {
  82. +         prstr("Error reading ");
  83. +         prstr(termtab);
  84. +         prstr(" (not a coff file)\n");
  85. +         exit(-1);
  86. +     }
  87. +     while (hdr.f_opthdr--) if (read(i, (char *) &sec, 1) != 1) {
  88. +         prstr("Error reading ");
  89. +         prstr(termtab);
  90. +         prstr(" optional header.\n");
  91. +         exit(-1);
  92. +     }
  93. +     if (read(i, (char *) &sec, sizeof(struct scnhdr)) != 
  94. +         sizeof(struct scnhdr)) {
  95. +         prstr("Error reading ");
  96. +         prstr(termtab);
  97. +         prstr(" section header.\n");
  98. +         exit(-1);
  99. +     }
  100. +     if (strcmp(sec.s_name, _DATA) != 0) {
  101. +         prstr("Wrong section type ");
  102. +         prstr(sec.s_name);
  103. +         prstr(" in ");
  104. +         prstr(termtab);
  105. +         prstr(".\n");
  106. +         exit(-1);
  107. +     }
  108. + 
  109. +     if (lseek(i, sec.s_scnptr, 0) == -1) {
  110. +         prstr("Error seeking to data section in ");
  111. +         prstr(termtab);
  112. +         prstr(".\n");
  113. +         exit(-1);
  114. +     }
  115. +     read(i,(char *)&t.bset,j = sizeof(int)*((int *)&t.zzz - &t.bset));
  116. +     x[2] -= j;
  117. +     q = setbrk(x[2]);
  118. +     lseek(i,(long)t.twinit + sec.s_scnptr,0);
  119. +     i = read(i,q,x[2]);
  120. +     j = q - t.twinit;
  121. +     for(p = &t.twinit; p < &t.zzz; p++){
  122. +         if(*p)*p += j;else *p = "";
  123. +     }
  124. +     sps = EM;
  125. +     ics = EM*2;
  126. +     dtab = 8 * t.Em;
  127. +     for(i=0; i<16; i++)tabtab[i] = dtab * (i+1);
  128. +     if(eqflg)t.Adj = t.Hor;
  129. + #endif /* COFF */
  130.   }
  131.   twdone(){
  132.       obufp = obuf;
  133. ***************
  134. *** 113,118 ****
  135. --- 181,192 ----
  136.       register char *codep;
  137.       extern char *plot();
  138.       int *q, w, j, phyw;
  139. +     int underlining_ok;    /* boolean, true iff we are allowed to
  140. +                    underline this character, we interpret this
  141. +                    to also mean allow simulating boldface using
  142. +                    backspacing */
  143. +     int bold_toggle;    /* boolean, true iff the terminal has hardware
  144. +                    bolding capability */
  145.   
  146.       for(q=oline; q<olinep; q++){
  147.       if((i = *q) & MOT){
  148. ***************
  149. *** 131,136 ****
  150. --- 205,211 ----
  151.           continue;
  152.       }
  153.       codep = t.codetab[k-32];
  154. +     underlining_ok = (*codep & 0200);
  155.       w = t.Char * (*codep++ & 0177);
  156.       phyw = w;
  157.       if(i&ZBIT)w = 0;
  158. ***************
  159. *** 137,143 ****
  160.       if(*codep && (esc || lead))move();
  161.       esct += w;
  162.       if(i&074000)xfont = (i>>9) & 03;
  163. !     if(*t.bdon & 0377){
  164.           if(!bdmode && (xfont == 2)){
  165.               oputs(t.bdon);
  166.               bdmode++;
  167. --- 212,219 ----
  168.       if(*codep && (esc || lead))move();
  169.       esct += w;
  170.       if(i&074000)xfont = (i>>9) & 03;
  171. !     bold_toggle = t.bdon && (*t.bdon & 0377);
  172. !     if(bold_toggle){
  173.           if(!bdmode && (xfont == 2)){
  174.               oputs(t.bdon);
  175.               bdmode++;
  176. ***************
  177. *** 147,156 ****
  178.               bdmode = 0;
  179.           }
  180.       }
  181. -     if(xfont == ulfont){
  182. -         for(k=w/t.Char;k>0;k--)oput('_');
  183. -         for(k=w/t.Char;k>0;k--)oput('\b');
  184. -     }
  185.       while(*codep != 0){
  186.           if(*codep & 0200){
  187.               codep = plot(codep);
  188. --- 223,228 ----
  189. ***************
  190. *** 158,166 ****
  191.               oput(' ');
  192.           }else{
  193.               if(plotmode)oputs(t.plotoff);
  194. !             *obufp++ = *codep++;
  195. !             if(obufp == (obuf + OBUFSZ + ascii - 1))flusho();
  196. ! /*            oput(*codep++);*/
  197.           }
  198.       }
  199.       if(!w)for(k=phyw/t.Char;k>0;k--)oput('\b');
  200. --- 230,245 ----
  201.               oput(' ');
  202.           }else{
  203.               if(plotmode)oputs(t.plotoff);
  204. !             if(underlining_ok){
  205. !                 if(xfont == ulfont){
  206. !                     oput('_');
  207. !                     oput('\b');
  208. !                 }else if(xfont == 2 && !bold_toggle){
  209. !                     oput(*codep);
  210. !                     oput('\b');
  211. !                 }
  212. !             }
  213. !             oput(*codep++);
  214.           }
  215.       }
  216.       if(!w)for(k=phyw/t.Char;k>0;k--)oput('\b');
  217. -- 
  218. +------------------------------------------------------------------------+
  219. | Christos Zoulas         | 389 Theory Center, Electrical Engineering,   |
  220. | christos@ee.cornell.edu | Cornell University, Ithaca NY 14853.         |
  221. | christos@crnlee.bitnet  | Phone: (607) 255 0302 |  Fax: (607) 254 4565 |
  222.