mirror of
https://github.com/9fans/plan9port.git
synced 2025-01-12 11:10:07 +00:00
sam: rm dregs
This commit is contained in:
Russ Cox
parent
7f6458b045
commit
0a513e6560
4 changed files with 0 additions and 293 deletions
|
|
@ -1,29 +0,0 @@
|
|||
This is sam (not including samterm) from the 4th edition of Plan 9,
|
||||
with changes so that it can be compiled under unix.
|
||||
(Tested on Solaris 7 and Debian 3.0r1.)
|
||||
|
||||
Some extra libraries are needed. First, fetch libutf-2.0 and libfmt-2.0
|
||||
from
|
||||
http://pdos.lcs.mit.edu/~rsc/software/
|
||||
|
||||
(Beware that in libfmt/fmt.c there is a line that says:
|
||||
'u', __ifmt, /* in Plan 9, __flagfmt */
|
||||
Thus, sam will have to fmtinstall the other thing. Other ported programs
|
||||
may have to do the same. The fmt library should probably print messages
|
||||
about bad format characters to stderr, since no one seems to check the
|
||||
return codes.)
|
||||
|
||||
Compile and install those two libraries.
|
||||
Set PREFIX in the Makefile to match, then compile sam.
|
||||
|
||||
Your C compiler will emit many complaints of the form:
|
||||
sam.c:496: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
|
||||
This is because the Plan 9 compiler has a slightly different (better,
|
||||
ala Oberon) type system than ISO C. Popular compilers generate the right
|
||||
code, so in an act of civil disobediance I changed just enough to get
|
||||
it to compile, but left the type errors in. Now the next C standard can
|
||||
adopt this extension, because at least one important C program uses it!
|
||||
|
||||
-- Scott Schwartz, 4 July 2003
|
||||
|
||||
|
|
@ -1,40 +0,0 @@
|
|||
#define __USE_UNIX98 // for pread/pwrite, supposedly
|
||||
#include <unistd.h>
|
||||
#include <stdlib.h>
|
||||
#include <stdarg.h>
|
||||
#include <setjmp.h>
|
||||
#include <string.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <fcntl.h>
|
||||
#include <errno.h>
|
||||
#include <stdio.h>
|
||||
|
||||
#include "utf.h"
|
||||
#include "fmt.h"
|
||||
|
||||
#define nil 0
|
||||
#define dup dup2
|
||||
#define exec execv
|
||||
#define seek lseek
|
||||
#define getwd getcwd
|
||||
#define USED(a)
|
||||
#define SET(a)
|
||||
|
||||
enum {
|
||||
OREAD = 0,
|
||||
OWRITE = 1,
|
||||
ORDWR = 2,
|
||||
OCEXEC = 4,
|
||||
ORCLOSE = 8
|
||||
};
|
||||
|
||||
enum {
|
||||
ERRMAX = 255
|
||||
};
|
||||
|
||||
void exits(const char *);
|
||||
void _exits(const char *);
|
||||
int notify (void(*f)(void *, char *));
|
||||
int create(char *, int, int);
|
||||
int errstr(char *, int);
|
||||
|
|
@ -1,39 +0,0 @@
|
|||
address.c: In function `filematch':
|
||||
address.c:159: warning: passing arg 1 of `bufreset' from incompatible pointer type
|
||||
address.c:160: warning: passing arg 1 of `bufinsert' from incompatible pointer type
|
||||
file.c: In function `mergeextend':
|
||||
file.c:117: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
file.c: In function `fileinsert':
|
||||
file.c:275: warning: passing arg 1 of `bufinsert' from incompatible pointer type
|
||||
file.c: In function `filedelete':
|
||||
file.c:301: warning: passing arg 1 of `bufdelete' from incompatible pointer type
|
||||
file.c: In function `fileundelete':
|
||||
file.c:324: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
file.c: In function `filereadc':
|
||||
file.c:339: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
file.c: In function `fileload':
|
||||
file.c:405: warning: passing arg 1 of `bufload' from incompatible pointer type
|
||||
file.c: In function `fileundo':
|
||||
file.c:528: warning: passing arg 1 of `bufdelete' from incompatible pointer type
|
||||
file.c:546: warning: passing arg 1 of `bufinsert' from incompatible pointer type
|
||||
file.c: In function `fileclose':
|
||||
file.c:604: warning: passing arg 1 of `bufclose' from incompatible pointer type
|
||||
io.c: In function `readio':
|
||||
io.c:90: warning: passing arg 1 of `bufload' from incompatible pointer type
|
||||
io.c: In function `writeio':
|
||||
io.c:152: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
mesg.c: In function `inmesg':
|
||||
mesg.c:248: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
mesg.c: In function `snarf':
|
||||
mesg.c:568: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
mesg.c: In function `setgenstr':
|
||||
mesg.c:612: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
sam.c: In function `readcmd':
|
||||
sam.c:496: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
sam.c: In function `copy':
|
||||
sam.c:676: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
xec.c: In function `s_cmd':
|
||||
xec.c:234: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
xec.c:243: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
xec.c: In function `display':
|
||||
xec.c:401: warning: passing arg 1 of `bufread' from incompatible pointer type
|
||||
|
|
@ -1,185 +0,0 @@
|
|||
#include "sam.h"
|
||||
|
||||
Rune samname[] = L"~~sam~~";
|
||||
|
||||
Rune *left[]= {
|
||||
L"{[(<«",
|
||||
L"\n",
|
||||
L"'\"`",
|
||||
0
|
||||
};
|
||||
Rune *right[]= {
|
||||
L"}])>»",
|
||||
L"\n",
|
||||
L"'\"`",
|
||||
0
|
||||
};
|
||||
|
||||
char RSAM[] = "sam";
|
||||
char SAMTERM[] = "/bin/aux/samterm";
|
||||
char HOME[] = "HOME";
|
||||
char TMPDIR[] = "/tmp";
|
||||
char SH[] = "rc";
|
||||
char SHPATH[] = "/bin/rc";
|
||||
char RX[] = "rx";
|
||||
char RXPATH[] = "/bin/rx";
|
||||
char SAMSAVECMD[] = "/bin/rc\n/sys/lib/samsave";
|
||||
|
||||
void
|
||||
dprint(char *z, ...)
|
||||
{
|
||||
char buf[BLOCKSIZE];
|
||||
va_list arg;
|
||||
|
||||
va_start(arg, z);
|
||||
vseprint(buf, &buf[BLOCKSIZE], z, arg);
|
||||
va_end(arg);
|
||||
termwrite(buf);
|
||||
}
|
||||
|
||||
void
|
||||
print_ss(char *s, String *a, String *b)
|
||||
{
|
||||
dprint("?warning: %s: `%.*S' and `%.*S'\n", s, a->n, a->s, b->n, b->s);
|
||||
}
|
||||
|
||||
void
|
||||
print_s(char *s, String *a)
|
||||
{
|
||||
dprint("?warning: %s `%.*S'\n", s, a->n, a->s);
|
||||
}
|
||||
|
||||
char*
|
||||
getuser(void)
|
||||
{
|
||||
static char user[64];
|
||||
int fd;
|
||||
|
||||
if(user[0] == 0){
|
||||
fd = open("/dev/user", 0);
|
||||
if(fd<0 || read(fd, user, sizeof user-1)<=0)
|
||||
strcpy(user, "none");
|
||||
close(fd);
|
||||
}
|
||||
return user;
|
||||
}
|
||||
|
||||
int
|
||||
statfile(char *name, ulong *dev, uvlong *id, long *time, long *length, long *appendonly)
|
||||
{
|
||||
Dir *dirb;
|
||||
|
||||
dirb = dirstat(name);
|
||||
if(dirb == nil)
|
||||
return -1;
|
||||
if(dev)
|
||||
*dev = dirb->type|(dirb->dev<<16);
|
||||
if(id)
|
||||
*id = dirb->qid.path;
|
||||
if(time)
|
||||
*time = dirb->mtime;
|
||||
if(length)
|
||||
*length = dirb->length;
|
||||
if(appendonly)
|
||||
*appendonly = dirb->mode & DMAPPEND;
|
||||
free(dirb);
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
statfd(int fd, ulong *dev, uvlong *id, long *time, long *length, long *appendonly)
|
||||
{
|
||||
Dir *dirb;
|
||||
|
||||
dirb = dirfstat(fd);
|
||||
if(dirb == nil)
|
||||
return -1;
|
||||
if(dev)
|
||||
*dev = dirb->type|(dirb->dev<<16);
|
||||
if(id)
|
||||
*id = dirb->qid.path;
|
||||
if(time)
|
||||
*time = dirb->mtime;
|
||||
if(length)
|
||||
*length = dirb->length;
|
||||
if(appendonly)
|
||||
*appendonly = dirb->mode & DMAPPEND;
|
||||
free(dirb);
|
||||
return 1;
|
||||
}
|
||||
|
||||
void
|
||||
notifyf(void *a, char *s)
|
||||
{
|
||||
USED(a);
|
||||
if(bpipeok && strcmp(s, "sys: write on closed pipe") == 0)
|
||||
noted(NCONT);
|
||||
if(strcmp(s, "interrupt") == 0)
|
||||
noted(NCONT);
|
||||
panicking = 1;
|
||||
rescue();
|
||||
noted(NDFLT);
|
||||
}
|
||||
|
||||
int
|
||||
newtmp(int num)
|
||||
{
|
||||
int i, fd;
|
||||
static char tempnam[30];
|
||||
|
||||
i = getpid();
|
||||
do
|
||||
snprint(tempnam, sizeof tempnam, "%s/%d%.4s%dsam", TMPDIR, num, getuser(), i++);
|
||||
while(access(tempnam, 0) == 0);
|
||||
fd = create(tempnam, ORDWR|OCEXEC|ORCLOSE, 0000);
|
||||
if(fd < 0){
|
||||
remove(tempnam);
|
||||
fd = create(tempnam, ORDWR|OCEXEC|ORCLOSE, 0000);
|
||||
}
|
||||
return fd;
|
||||
}
|
||||
|
||||
int
|
||||
waitfor(int pid)
|
||||
{
|
||||
int msg;
|
||||
Waitmsg *w;
|
||||
|
||||
while((w = wait()) != nil){
|
||||
if(w->pid != pid){
|
||||
free(w);
|
||||
continue;
|
||||
}
|
||||
msg = (w->msg[0] != '\0');
|
||||
free(w);
|
||||
return msg;
|
||||
}
|
||||
return -1;
|
||||
}
|
||||
|
||||
void
|
||||
samerr(char *buf)
|
||||
{
|
||||
sprint(buf, "%s/sam.err", TMPDIR);
|
||||
}
|
||||
|
||||
void*
|
||||
emalloc(ulong n)
|
||||
{
|
||||
void *p;
|
||||
|
||||
p = malloc(n);
|
||||
if(p == 0)
|
||||
panic("malloc fails");
|
||||
memset(p, 0, n);
|
||||
return p;
|
||||
}
|
||||
|
||||
void*
|
||||
erealloc(void *p, ulong n)
|
||||
{
|
||||
p = realloc(p, n);
|
||||
if(p == 0)
|
||||
panic("realloc fails");
|
||||
return p;
|
||||
}
|
||||
Loading…
Reference in a new issue