mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-06-12 00:29:31 +00:00
e51b60e6cf
However, judging from the comments at the top of the source file, the v2.0 changes were based on more v1.31 rather than 1.4. When this program is updated, these diffs should be evaluated. (Unless, of course, the current version is tossed in favor of a recent BSD derivative.) Here are the comments for the changes from v1.31 to v1.4 that may have been dropped while moving to v2.0. See the cvs diffs for details: > v1.4 - Termcap support has been added and tested. Look for a soon to be > faster version coming soon to a ~/bin directory near you! > > v1.32 - uses isatty(x) instead of fstat. more portable (opinion). > soon to be added, TERMCAP support, won't that be nice?
305 lines
6.9 KiB
C
305 lines
6.9 KiB
C
/*
|
|
more.cc
|
|
|
|
Revision history:
|
|
|
|
v2.0 - now sets tty to cbreak mode, since TTY's cooked mode has
|
|
changed.
|
|
v1.31 - uses fstat to check whether output is a tty, instead of
|
|
_Direction
|
|
v1.3 - now prints name of file in block if multiple files specified
|
|
*/
|
|
|
|
#pragma optimize -1
|
|
#pragma stacksize 1024
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <types.h>
|
|
#include <sys/signal.h>
|
|
#include <gno/gno.h>
|
|
#include <sys/stat.h>
|
|
#include <unistd.h>
|
|
#include <sys/ioctl.h>
|
|
#include <shell.h>
|
|
#include <gsos.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <fcntl.h>
|
|
#include <texttool.h>
|
|
#include <orca.h>
|
|
|
|
#pragma lint -1
|
|
|
|
#define MAX_LINE 23
|
|
#define MAX_COL 80
|
|
|
|
void PrintFileName(char *s)
|
|
{
|
|
char *r;
|
|
for (r = s; *r != 0; r++)
|
|
*r = tolower(*r);
|
|
|
|
if ((r = strrchr(s,'/')) != NULL)
|
|
printf("%s\n",r+1);
|
|
else printf("%s\n",s);
|
|
}
|
|
|
|
char getcharacter(int fd)
|
|
{
|
|
char c;
|
|
|
|
if (fd == -1) c = ReadChar(0);
|
|
else read(fd,&c,1);
|
|
return c;
|
|
}
|
|
|
|
struct sgttyb sg;
|
|
FILE *tty;
|
|
int oldsg_flags;
|
|
|
|
void inthndl(int sig, int code)
|
|
{
|
|
sg.sg_flags = oldsg_flags;
|
|
ioctl(tty->_file,TIOCSETP,&sg);
|
|
exit(sig);
|
|
}
|
|
|
|
char i_buf[1024];
|
|
word b_ind = 0;
|
|
word b_size = 0;
|
|
int b_ref;
|
|
int b_pushback = EOF;
|
|
word b_eof;
|
|
longword b_mark;
|
|
|
|
int buf_open(char *name)
|
|
{
|
|
int fd;
|
|
fd = open(name,O_RDONLY);
|
|
b_ind = 0;
|
|
b_size = 0;
|
|
b_mark = 0l;
|
|
b_eof = 0;
|
|
return (b_ref = fd);
|
|
}
|
|
|
|
void buf_fd_open(int fd)
|
|
{
|
|
b_ind = 0;
|
|
b_size = 0;
|
|
b_mark = 0l;
|
|
b_ref = fd;
|
|
b_eof = 0;
|
|
}
|
|
|
|
int buf_getc(void)
|
|
{
|
|
char c;
|
|
|
|
if (b_pushback != EOF) { c = b_pushback; b_pushback = EOF; return c; }
|
|
if (b_ind >= b_size) {
|
|
if (b_eof) return EOF;
|
|
b_size = read(b_ref,i_buf,1024);
|
|
if (!b_size) b_eof = 1;
|
|
b_ind = 0;
|
|
return buf_getc();
|
|
}
|
|
else {
|
|
c = i_buf[b_ind++];
|
|
b_mark = b_mark + 1l;
|
|
return c;
|
|
}
|
|
}
|
|
|
|
#define OBUFSIZE 1024
|
|
char o_buf[OBUFSIZE];
|
|
word b_oind = 0;
|
|
|
|
void buf_flush(void)
|
|
{ write(STDOUT_FILENO,o_buf,b_oind); b_oind = 0; }
|
|
|
|
void buf_putc(char c)
|
|
{
|
|
if (b_oind == OBUFSIZE) buf_flush();
|
|
o_buf[b_oind++] = c;
|
|
}
|
|
|
|
int main(int argc,char *argv[])
|
|
{
|
|
int file;
|
|
word line,col;
|
|
int i;
|
|
int c,quit,abort;
|
|
int pipeFlag; /* 1 means input is piped in or redirected */
|
|
int standardOut;
|
|
EOFRecGS eofs;
|
|
char expanded[65];
|
|
char *truncated;
|
|
static struct stat sb;
|
|
extern int _INITGNOSTDIO(void);
|
|
|
|
/*if (!_INITGNOSTDIO()) {
|
|
fprintf(stderr,"'more' requires GNO/ME.\n");
|
|
exit(1);
|
|
}*/
|
|
setvbuf(stdout,NULL,_IOLBF,256);
|
|
tty = fopen(".tty","r");
|
|
/* turn off echo mode */
|
|
ioctl(tty->_file, TIOCGETP, &sg);
|
|
signal(SIGINT, inthndl);
|
|
buf_putc(6);
|
|
|
|
fstat(STDOUT_FILENO,&sb);
|
|
if (sb.st_mode & S_IFCHR) standardOut = 1;
|
|
else standardOut = 0;
|
|
|
|
pipeFlag = (argc == 1) ? 1 : 0;
|
|
if (argc == 1) argc = 2;
|
|
quit = 0;
|
|
abort = 0;
|
|
|
|
oldsg_flags = sg.sg_flags;
|
|
sg.sg_flags &= ~ECHO;
|
|
sg.sg_flags |= CBREAK;
|
|
ioctl(tty->_file, TIOCSETP, &sg);
|
|
|
|
for (i = 1; (i < argc && !abort); i++)
|
|
{
|
|
quit = 0;
|
|
if (pipeFlag) {
|
|
file = STDIN_FILENO;
|
|
buf_fd_open(file);
|
|
}
|
|
else {
|
|
truncated = strrchr(argv[i],'/');
|
|
if (truncated == NULL) truncated = argv[i];
|
|
else truncated++;
|
|
stat(argv[i],&sb);
|
|
if (sb.st_mode & S_IFDIR) {
|
|
fprintf(stderr,"more: %s is a directory\n",argv[i]);
|
|
fflush(stderr);
|
|
continue;
|
|
}
|
|
file = buf_open(argv[i]);
|
|
if (file < 0) {
|
|
perror(argv[i]);
|
|
buf_putc(5); buf_flush(); exit(1);
|
|
}
|
|
eofs.pCount = 2;
|
|
eofs.refNum = file;
|
|
GetEOFGS(&eofs);
|
|
if (toolerror()) {
|
|
printf("GS/OS Error $%X\n",toolerror());
|
|
buf_putc(5); buf_flush(); exit(-1);
|
|
}
|
|
}
|
|
if (argc > 2) {
|
|
printf("::::::::::::::::\n");
|
|
PrintFileName(argv[i]);
|
|
printf("::::::::::::::::\n");
|
|
line = 3; col = 1;
|
|
}
|
|
else {line = 1; col = 1;}
|
|
|
|
c = buf_getc(); /* wierdness fix */
|
|
if (c == EOF) quit = 1;
|
|
/* c &= 0xFF; */
|
|
if (c == 0x04) quit = 1;
|
|
while (!quit && !abort)
|
|
|
|
{
|
|
int k;
|
|
|
|
if (c == 0x0c) { buf_flush(); printf("^L\n");
|
|
line = MAX_LINE; col = 1; }
|
|
else if (c == '\n') {
|
|
buf_putc('\r');
|
|
col = 1; line++;
|
|
}
|
|
else if (c == '\r') {
|
|
if ((k = buf_getc()) == '\n') /* IBM silly CR & LF EOL */
|
|
buf_putc('\r');
|
|
else {
|
|
b_pushback = k;
|
|
b_mark = b_mark-1;
|
|
buf_putc('\r');
|
|
}
|
|
col = 1; line++;
|
|
}
|
|
else if (c == '\n')
|
|
{
|
|
buf_putc('\n');
|
|
col = 1; line++;
|
|
}
|
|
else
|
|
{
|
|
buf_putc(c);
|
|
if (c == 8) col--;
|
|
else if (c > 32) col++;
|
|
if (col > MAX_COL)
|
|
{
|
|
col = 1; line++;
|
|
}
|
|
}
|
|
if ((line == MAX_LINE) && standardOut)
|
|
{ long percent;
|
|
buf_flush();
|
|
putchar(15);
|
|
if (!pipeFlag)
|
|
{
|
|
percent = (b_mark * 100) / eofs.eof;
|
|
printf(" - %s (%2ld%%) - ",truncated,percent);
|
|
}
|
|
else
|
|
printf(" - (more) - ");
|
|
putchar(14);
|
|
fflush(stdout);
|
|
c = getcharacter(tty->_file);
|
|
c = c & 0x7f;
|
|
|
|
if (c == 'q') quit = 1;
|
|
if (c == 27) abort = 1;
|
|
if (c == 13) line--;
|
|
else line = 1;
|
|
for (c = 0; c < (12 + ((percent == 100) ? 1 : 0) +
|
|
(pipeFlag ? 0 : strlen(truncated))); c++)
|
|
{
|
|
putchar(8);
|
|
putchar(' ');
|
|
putchar(8);
|
|
}
|
|
fflush(stdout);
|
|
}
|
|
c = buf_getc();
|
|
if (c == EOF) quit = 1;
|
|
/*c &= 0xFF; */
|
|
if (c == 0x04) quit = 1;
|
|
}
|
|
if (!pipeFlag) close(file);
|
|
else abort = 1; /* we are DONE if this was a pipe */
|
|
if (!abort && (argc > 2) && (i != argc) && (line < MAX_LINE)
|
|
&& standardOut)
|
|
{
|
|
putchar(15);
|
|
printf("hit a key for next file");
|
|
putchar(14);
|
|
fflush(stdout);
|
|
c = getcharacter(tty->_file);
|
|
for (c = 0; c < 23; c++)
|
|
{
|
|
putchar(8);
|
|
putchar(' ');
|
|
putchar(8);
|
|
}
|
|
c = c & 0x7f;
|
|
if (c == 27) abort = 1;
|
|
}
|
|
}
|
|
buf_flush();
|
|
putchar(5);
|
|
sg.sg_flags = oldsg_flags;
|
|
ioctl(tty->_file,TIOCSETP,&sg);
|
|
exit(0);
|
|
}
|