remove pkg(1): we regret the error
This commit is contained in:
stanley lieber
parent
ff2e8f308d
commit
0853e2cc3b
8 changed files with 0 additions and 323 deletions
122
sys/man/1/pkg
122
sys/man/1/pkg
|
|
@ -1,122 +0,0 @@
|
|||
.TH PKG 1
|
||||
.SH NAME
|
||||
create, install, list, local, remove, unpkg \- trivial package management
|
||||
.SH SYNOPSIS
|
||||
.B pkg/create
|
||||
.I name
|
||||
.br
|
||||
.B pkg/install
|
||||
.I name
|
||||
.br
|
||||
.B pkg/list
|
||||
.br
|
||||
.B pkg/local
|
||||
.br
|
||||
.B pkg/remove
|
||||
.I name
|
||||
.br
|
||||
.B pkg/unpkg
|
||||
.SH DESCRIPTION
|
||||
.I Pkg
|
||||
is a simple package management system primarily written in
|
||||
.IR rc (1).
|
||||
It can be used to create, install, and remove software packages
|
||||
from an arbitrary package repository, indicated by the environment
|
||||
variable
|
||||
.I $pkgpath.
|
||||
If
|
||||
.I $pkgpath
|
||||
is not set, the system defaults to a hardcoded repository of approved
|
||||
packages.
|
||||
.TP
|
||||
.I Pkg/create
|
||||
Create builds a new package
|
||||
.IR name ,
|
||||
whose source is found in directory
|
||||
.IR name ,
|
||||
then packs it into a
|
||||
.I bzip2 (see
|
||||
.IR gzip (1))
|
||||
compressed
|
||||
.IR tar (1)
|
||||
archive suitable for upload to a package
|
||||
repository. The source directory should be provided as a full path.
|
||||
.TP
|
||||
.I Pkg/install
|
||||
Install the package
|
||||
.I name
|
||||
from the current repository, unpacking the executables in
|
||||
.B /$cputype/bin/
|
||||
or
|
||||
.B /rc/bin/
|
||||
and the source in
|
||||
.B /sys/src/pkg/.
|
||||
.TP
|
||||
.I Pkg/list
|
||||
List packages available from the current repository.
|
||||
.TP
|
||||
.I Pkg/local
|
||||
List locally installed packages.
|
||||
.TP
|
||||
.I Pkg/remove
|
||||
Remove the package
|
||||
.I name
|
||||
from the local system.
|
||||
.TP
|
||||
.I Pkg/unpkg
|
||||
A modified
|
||||
.IR tar (1)
|
||||
used by
|
||||
.B pkg/install
|
||||
to generate checksums for every unpacked file.
|
||||
.SH EXAMPLES
|
||||
.LP
|
||||
Create the package
|
||||
.B irc7-2012.06.22:
|
||||
.sp 1
|
||||
.EX
|
||||
% pkg/create /sys/src/pkg/irc7-2012.06.22
|
||||
.EE
|
||||
|
||||
.LP
|
||||
Install the
|
||||
.B mpm
|
||||
troff macros:
|
||||
.sp 1
|
||||
.EX
|
||||
% pkg/install mpm-2011.05.14
|
||||
.EE
|
||||
.SH FILES
|
||||
.TF
|
||||
.TP
|
||||
.B /sys/lib/pkg/*
|
||||
hash files of packages installed locally.
|
||||
.TP
|
||||
.B /sys/src/pkg/*
|
||||
source files of packages installed locally.
|
||||
.SH SOURCE
|
||||
.B /sys/src/cmd/pkg/create
|
||||
.br
|
||||
.B /sys/src/cmd/pkg/install
|
||||
.br
|
||||
.B /sys/src/cmd/pkg/list
|
||||
.br
|
||||
.B /sys/src/cmd/pkg/local
|
||||
.br
|
||||
.B /sys/src/cmd/pkg/remove
|
||||
.br
|
||||
.B /sys/src/cmd/pkg/unpkg.c
|
||||
.SH REPOSITORIES
|
||||
.B http://9front.org/pkg/386
|
||||
.br
|
||||
.B https://offblast.org/pkg/386
|
||||
.br
|
||||
.B https://offblast.org/pkg/amd64
|
||||
.br
|
||||
.B http://plan9.bell-labs.com/sources/contrib/staal1978/pkg
|
||||
.SH SEE ALSO
|
||||
.IR gzip (1) ,
|
||||
.IR tar (1)
|
||||
.SH HISTORY
|
||||
.I Pkg
|
||||
first appeared in 9front (May, 2011).
|
||||
|
|
@ -1,23 +0,0 @@
|
|||
#!/bin/rc -e
|
||||
|
||||
i=`{basename $1}
|
||||
d=$1
|
||||
echo Creating $i
|
||||
C=`{pwd}
|
||||
@{
|
||||
rfork en
|
||||
mkdir -p /tmp/$i/files/sys/src/pkg/$i
|
||||
dircp $d /tmp/$i/files/sys/src/pkg/$i
|
||||
cd $d
|
||||
mk
|
||||
divergefs -p /tmp/$i /
|
||||
mk install
|
||||
mk clean
|
||||
unmount /
|
||||
}
|
||||
cd /tmp/$i/files
|
||||
rm -r env
|
||||
tar cv * | bzip2 -9 > $C/$i.tbz
|
||||
cd /tmp
|
||||
rm -r $i
|
||||
echo Created $C/$i.tbz
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
#!/bin/rc
|
||||
|
||||
if(~ $#pkgpath 0)
|
||||
pkgpath=http://9front.org/pkg/$cputype
|
||||
|
||||
cd /
|
||||
mkdir -p /sys/lib/pkg
|
||||
if (test -s /sys/lib/pkg/$1) {
|
||||
echo $1 already installed
|
||||
exit
|
||||
}
|
||||
echo Installing $1
|
||||
if(~ $pkgpath ftp* http*)
|
||||
cmd=hget
|
||||
if not
|
||||
cmd=cat
|
||||
if(! $cmd $pkgpath/$1.tbz | bunzip2 | pkg/unpkg >/sys/lib/pkg/$1)
|
||||
if(! test -s /sys/lib/pkg/$1)
|
||||
rm -f /sys/lib/pkg/$1
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
#!/bin/rc
|
||||
|
||||
if(~ $#pkgpath 0)
|
||||
pkgpath=http://9front.org/pkg/$cputype
|
||||
|
||||
if(~ $pkgpath ftp* http*)
|
||||
hget $pkgpath | htmlfmt | grep '\.tbz' | sed -e 's/\.tbz.*$//g' | awk '{print $NF}'
|
||||
if not
|
||||
ls -p $pkgpath/*.tbz | sed 's/\.tbz.*$//g'
|
||||
|
|
@ -1,3 +0,0 @@
|
|||
#!/bin/rc
|
||||
|
||||
ls -p /sys/lib/pkg
|
||||
|
|
@ -1,20 +0,0 @@
|
|||
</$objtype/mkfile
|
||||
|
||||
all: $O.unpkg
|
||||
echo
|
||||
|
||||
$O.unpkg: unpkg.c
|
||||
$CC unpkg.c
|
||||
$LD -o $O.unpkg unpkg.$O
|
||||
|
||||
install:V: $O.unpkg
|
||||
mkdir -p /$objtype/bin/pkg
|
||||
cp $O.unpkg /$objtype/bin/pkg/unpkg
|
||||
cp create install list local remove /$objtype/bin/pkg
|
||||
|
||||
clean:
|
||||
rm -f $O.unpkg *.$O
|
||||
|
||||
nuke: clean
|
||||
rm -f /$objtype/bin/pkg/*
|
||||
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
#!/bin/rc -e
|
||||
|
||||
cd /
|
||||
if(test -s /sys/lib/pkg/$1) {
|
||||
fs=(`{cat /sys/lib/pkg/$1 | awk '{print $1}'})
|
||||
ss=(`{cat /sys/lib/pkg/$1 | awk '{print $2}'})
|
||||
for(i in `{seq $#fs}) {
|
||||
s=`{sha1sum $fs($i) | awk '{print $1}' | tr a-z A-Z}
|
||||
if(test $s '=' $ss($i)) {
|
||||
echo D $fs($i)
|
||||
rm $fs($i)
|
||||
}
|
||||
if not {
|
||||
echo M $fs($i) NOT DELETING
|
||||
}
|
||||
}
|
||||
rm -rf /sys/src/pkg/$1
|
||||
rm /sys/lib/pkg/$1
|
||||
}
|
||||
|
|
@ -1,108 +0,0 @@
|
|||
#include <u.h>
|
||||
#include <libc.h>
|
||||
#include <mp.h>
|
||||
#include <libsec.h>
|
||||
|
||||
struct th {
|
||||
char *name;
|
||||
ulong perm;
|
||||
ulong size;
|
||||
char type;
|
||||
char *user, *group;
|
||||
};
|
||||
|
||||
static char *sndup(char* s, ulong n) {
|
||||
char *d, *p;
|
||||
p = memchr(s, 0, n);
|
||||
if(p)
|
||||
n = p-s;
|
||||
d = malloc(n+1);
|
||||
memcpy(d,s,n);
|
||||
d[n] = 0;
|
||||
return d;
|
||||
}
|
||||
|
||||
|
||||
int readheader(struct th* th) {
|
||||
int i;
|
||||
char b[512];
|
||||
|
||||
if(readn(0, b, 512) != 512) return -1;
|
||||
|
||||
// Check for end of archive
|
||||
for(i=0; i<512; i++) {
|
||||
if(b[i]!=0) goto rhok;
|
||||
}
|
||||
if(readn(0, b, 512) != 512) return -1;
|
||||
for(i=0; i<512; i++) {
|
||||
if(b[i]!=0) return -1;
|
||||
}
|
||||
return 0;
|
||||
|
||||
rhok:
|
||||
th->name = cleanname(sndup(b, 100));
|
||||
th->perm = strtoul(b+100, nil, 8);
|
||||
th->size = strtoul(b+124, nil, 8);
|
||||
th->type = b[156];
|
||||
th->user = sndup(b+265, 32);
|
||||
th->group= sndup(b+297, 32);
|
||||
return 1;
|
||||
}
|
||||
|
||||
void main(int argc, char *argv[]) {
|
||||
ARGBEGIN {
|
||||
} ARGEND;
|
||||
for(;;) {
|
||||
struct th th;
|
||||
ulong off;
|
||||
uchar b[512];
|
||||
char err[ERRMAX];
|
||||
DigestState *s;
|
||||
int r, wfd;
|
||||
|
||||
r = readheader(&th);
|
||||
if(r == 0)
|
||||
exits(nil);
|
||||
if(r < 0)
|
||||
sysfatal("unexpected eof");
|
||||
|
||||
switch(th.type) {
|
||||
case '5':
|
||||
if((wfd = create(th.name, OREAD, DMDIR|th.perm)) >= 0)
|
||||
close(wfd);
|
||||
break;
|
||||
case '0': case 0:
|
||||
fprint(2, "A %s\n", th.name);
|
||||
if((wfd = create(th.name, OWRITE|OEXCL, th.perm)) < 0)
|
||||
sysfatal("%r", th.name);
|
||||
s = nil;
|
||||
for(off=0; off<th.size; off+=512) {
|
||||
if(readn(0, b, 512) == 512){
|
||||
if((r = th.size-off) > 512)
|
||||
r = 512;
|
||||
if(write(wfd, b, r) == r){
|
||||
s = sha1(b, r, nil, s);
|
||||
continue;
|
||||
}
|
||||
}
|
||||
errstr(err, sizeof(err));
|
||||
remove(th.name);
|
||||
errstr(err, sizeof(err));
|
||||
sysfatal("%s: %r", th.name);
|
||||
}
|
||||
|
||||
uchar digest[20], hdigest[41];
|
||||
sha1(nil, 0, digest, s);
|
||||
enc16((char*)hdigest, 41, digest, 20);
|
||||
print("%s\t%s\n", th.name, hdigest);
|
||||
close(wfd);
|
||||
break;
|
||||
default:
|
||||
sysfatal("Unknown file type '%c'", th.type);
|
||||
}
|
||||
|
||||
free(th.name);
|
||||
free(th.user);
|
||||
free(th.group);
|
||||
}
|
||||
}
|
||||
Loading…
Reference in a new issue