Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/compsrcs/misc/volume02/sbs

Internet Message Format | 1991-08-27 | 6.7 KB

From mipos3!intelca!oliveb!ames!necntc!ncoast!allbery Sat Jan 23 19:37:05 PST 1988
Article 255 of comp.sources.misc:
Path: td2cad!mipos3!intelca!oliveb!ames!necntc!ncoast!allbery
From: [e-mail] (jim nelson)
Newsgroups: comp.sources.misc
Subject: v02i006: Side-by-side file paginator
Message-ID: <[e-mail]>
Date: 15 Jan 88 00:42:01 GMT
Sender: [e-mail]
Lines: 285
Approved: [e-mail]
X-Archive: comp.sources.misc/8801/6
Comp.Sources.Misc: Volume 2, Issue 6
Submitted-By: jim nelson <[e-mail]>
Archive-Name: sbs

Comp.Sources.Misc: Volume 2, Issue 6
Submitted-By: jim nelson <[e-mail]>
Archive-Name: sbs

[Whatever happened to "pr -m -w80 file1 file2 | more"?  ++bsa]

This is a little thingie I (thought) I had to write myself, because
it warnt available.  Presumably I re-invented some wheel; but I
like it.  Pub Dom.  Take it.  If it belongs in comp.sources.misc,
I'll send it over there... it's short.
#  --- cut here ---
#/bin/sh
#This is a shar file.  To use:
#  1. Remove everything before the /bin/sh line
#  2. Execute with /bin/sh (not csh) to extract the files:
#         Makefile
#         sbs.c
file="${0}"
echo extracting Makefile 1>&2
sed -e 's/^X//'  >Makefile << 'EnD of Makefile'
XCFLAGS=
XLDFLAGS=-lcurses #-ltermlib
Xsbs: sbs.o
X    cc sbs.o -o sbs $(LDFLAGS)
EnD of Makefile
echo extracting sbs.c 1>&2
sed -e 's/^X//'  >sbs.c << 'EnD of sbs.c'
X/*puts two files side-by-side on terminal */
X/*for poor folks who don't have windows and suns and all that
Xother stuff*/
X/*no man page: it's not worth it; but i did make a Makefile
Xof sorts*/
X/*this compiles and works perfectly with no alterations on both
XSysVr2(3b2/300) and BSD4.1-derived-GENIX on a nsc16032(lmc)*/
X/*other systems at own risk ...*/
X/*'taint so hot at 1200 baud, but presumably i'm the only
Xperson on earth who still has to put up with measly 1200 baud*/
X/*no copyright, public domain, not worth the effort*/
X/*author: jim nelson, unc-wilmington, wilmington nc 28403;
X919-395-3300*/
X#include <curses.h>
X#define UNIX
X#include <stdio.h>
X#define MAXLINE 82
X#ifdef UNIX
X#include <ctype.h>
X#endif
X/*global variables: */
Xchar left[20][MAXLINE],rite[20][MAXLINE],lft[MAXLINE],rte[MAXLINE];
Xint efl,efr;
Xchar leader[MAXLINE];
Xchar *fnl,*fnr;
X/*end of global variables */
X
Xmain(argc,argv)
Xint argc;
Xchar *argv[];
X
X{
X    FILE *fp1,*fp2;
X    int jhn,prefix,zork,c,i,k,lp,rp;
X    efl=efr=0;
X    fnl=argv[1];
X    fnr=argv[2];
X
X    if(argc!=3){
X        printf("usage: sbs file1 file2\n");
X        exit (1);
X    }
X
X
X    if(  (fp2=fopen(argv[2],"r"))  == NULL)
X    {
X        printf("not found:%s\n",argv[2]);
X        exit (1);
X    }
X
X    if(  (fp1=fopen(argv[1],"r"))  == NULL)
X    {
X        printf("not found:%s\n",argv[1]);
X        exit (1);
X    }
X
X    initscr();
X    clear();
X    nocrmode();
X    noecho();
X    raw();
X    lp = rp = (-1);
X    for (k=0;fnl[k];){
X        leader[k]=fnl[k];
X        k++;
X    }
X    while(k<39)leader[k++]='-';
X    leader[k++]=' ';
X    leader[k++]='|';
X    leader[k++]=' ';
X    for(i=0;fnr[i];)leader[k++]=fnr[i++];
X    while(k<75)leader[k++]='-';
X    leader[k]='\0';
X    for(i=0;i<20;i++){
X
X        if(!efl){
X            lp = (lp+1)%20;
X            if(!efl)if(fgets(left[lp],MAXLINE,fp1)==NULL)efl=1;
X            if(efl)strcpy(left[lp],"[EOF]\n");
X        }
X
X        if(!efr){
X            rp = (rp+1)%20;
X            if(!efr)if(fgets(rite[rp],MAXLINE,fp2)==NULL)efr=1;
X            if(efr)strcpy(rite[rp],"[EOF]\n");
X        }
X    }
X    display(lp,rp,' '); /* display is supposed to be fixed up so that
X                the lpth line from left and the rpth line from rite
X                will be the last ones displayed */
X    while(1)
X    {
X
X        prefix=0;
X        lbl: c=getch()&0177;
X        if(c>='0' && c<='9'){prefix=prefix*10+c-'0';goto lbl;}
X        if(prefix==0)prefix=1;
X
X        if(c==('c'&037)||c==('y'&037)){
X            endwin();
X            exit();
X        }
X        if(isupper(c))c=tolower(c);
X        if(c=='t')c='y';
X        if(c=='j')c='f';
X
X        if(c==';'||c=='f')
X        for(jhn=0;jhn<prefix;jhn++)
X        {
X            rp = (rp+1) % 20;
X            if(!efr)if(fgets(rite[rp],MAXLINE,fp2)==NULL)efr=1;
X            if(efr)strcpy(rite[rp],"[EOF]\n");
X        }
X
X        if (c=='a'||c=='f')
X        for(jhn=0;jhn<prefix;jhn++)
X        {
X            lp = (lp+1) % 20;
X            if(!efl)if(fgets(left[lp],MAXLINE,fp1)==NULL)efl=1;
X            if(efl)strcpy(left[lp],"[EOF]\n");
X        }
X        if (c=='q'||c=='y'||c=='d')
X        for(jhn=0;jhn<prefix;jhn++)
X        {
X            for(i=0;i<20;i++){
X                lp = (lp+1)%20;
X                if(!efl)if(fgets(left[lp],MAXLINE,fp1)==NULL)efl=1;
X                if(efl)strcpy(left[lp],"[EOF]\n");
X            }
X        }
X
X        if (c=='p'||c=='y'||c=='d')
X        for(jhn=0;jhn<prefix;jhn++)
X        {
X            for(i=0;i<20;i++){
X                rp = (rp+1)%20;
X                if(!efr)if(fgets(rite[rp],MAXLINE,fp2)==NULL)efr=1;
X                if(efr)strcpy(rite[rp],"[EOF]\n");
X            }
X        }
X
X        if (c=='d')
X        for(jhn=0;jhn<prefix;jhn++)
X        {
X            zork=0;
X
X            for(i=0;i<20;i++){
X                lp = (lp+1)%20;
X                rp = (rp+1)%20;
X                if(!zork)if(jstrcmp(left[lp],rite[rp])!=0)zork=1;
X            }
X            while( !zork ) {
X                if(!efr){
X                    rp = (rp+1)%20;
X                    if(!efr)
X                        if(fgets(rite[rp],MAXLINE,fp2)==NULL)efr=1;
X                    if(efr)strcpy(rite[rp],"[EOF]\n");
X                }
X                if(!efl){
X                    lp = (lp+1)%20;
X                    if(!efl)
X                        if(fgets(left[lp],MAXLINE,fp1)==NULL)efl=1;
X                    if(efl)strcpy(left[lp],"[EOF]\n");
X                }
X                if(efl && efr)break;
X                zork=   jstrcmp(left[lp],rite[rp])   !=0 ;
X            }
X        }
X        display(lp,rp,c);
X    }
X}
X
Xfixline(p) char *p;
X{
X    int j;
X    char *q;
X    q=p;
X    for(j=0;j<37;j++){
X        if(*p=='\n')break;
X        if(*p=='\t') *p=' ';
X        p++;
X    }
X    if(q==lft)while(j<37){
X        *p++ = ' ';
X        j++;
X    }
X    else q[37]='\0';
X    *p='\0';
X}
X
Xdisplay(p,q,c) int p,q;
Xchar c;
X{
X    int i,zork,cnt;
X
X    move(0,0);
X    for(i=0;i<20;i++)
X    {
X
X        p = (p+1) % 20;
X        q = (q+1) % 20;
X        zork=jstrcmp(left[p],rite[q]);
X        if(c!='-' && c!='='){
X            strcpy(lft,left[p],38);
X            strcpy(rte,rite[q],38);
X        }
X        else {  /*fgets allows the \n in the string, and
X                            appends a \0 after it.  strlen therefore will
X                            count the \n in a string that has it.*/
X            if(c=='-')cnt=37;
X            if(c=='=')cnt=74;
X            if(strlen(left[p])>cnt)
X                strcpy(lft,&(left[p][cnt]),38);
X            else
X                strcpy(lft,"\n",2);
X            if(strlen(rite[q])>cnt)
X                strcpy(rte,&(rite[q][cnt]),38);
X            else
X                strcpy(rte,"\n",2);
X        }/*endelse*/
X
X        fixline(lft);
X        fixline(rte);
X        printw("%c %s | %s\n",zork?'+':' ',lft,rte);
X
X    }
X
X
X    printw("%s\n",leader);
X    printw(
X    "a:upl, ;:upr, q:pgl, p:pgr, t|y:pgboth, f|j:upboth, d:gotodif, -|=:horiz\n");
X    printw(
X    "---------------------------------------------------------------------------\n"
X        );
X    refresh();
X
X
X}
X#define white(c) ((c)==' ' || (c)=='\t')
Xjstrcmp(s1,s2)
Xchar *s1,*s2;
X{
X    while(*s1&&*s2)
X    {
X        if(white(*s1)&&white(*s2)){
X            while(white(*s1))s1++;
X            while(white(*s2))s2++;
X            continue;
X        }
X        if(*s1==*s2){s1++;s2++;continue;}
X        return(*s1 - *s2);
X    }
X    if(*s1=='\0' && *s2!='\0')return(-1);
X    if(*s1!='\0' && *s2=='\0')return(1);
X    if(*s1=='\0' && *s2=='\0')return(0);
X    exit(1);/*disaster*/
X}
EnD of sbs.c