This commit was manufactured by cvs2svn to create tag

'pre_unproven_before_git'.
This commit is contained in:
cvs2git 2012-08-26 02:27:37 +00:00
parent e55fb1c59f
commit 02aa06c0f1
30 changed files with 0 additions and 697 deletions

View File

@ -1,2 +0,0 @@
ls: ls -l
mv: cp -p mv

View File

@ -1,6 +0,0 @@
alias commands fg prefix setdebug unhash
bg dirs hash ps setenv unset
bindkey echo history pushd source which
cd edit jobs pwd stop
chdir exit kill rehash tset
clear export popd set unalias

View File

@ -1,4 +0,0 @@
- - - - - - - - - - E C H O T E S T S - - - - - - - - - -
Testing whether the echo command inserts an extra space:
There should be no space between -><- the '->' and '<-'

View File

@ -1,2 +0,0 @@
callsystem.c dotests echoparams.c shellenv.c testfork.c

View File

@ -1,25 +0,0 @@
apropos cp gsh.debug pwd testfork
aroff cpp gsh.nodebug rcp testjobs
asml ctags gsh.r releasemem testjobs2
assemble cut gsh0 removerez time
aw30 date head rlogin touch
awk day help rm tr
basename describe hostname rmdir true
binprint df init rsh udl
callsystem diff install script uname
cat dirname kill sed uncompress
catrez dmake last setvers uniq
center dotests launch shellenv unshar
chmod du less singletc uptime
chtyp echo link sleep vi
cksum echoparams logger smallbi wall
cmdtest egrep ls split wc
cmdtest4fr false lseg strings whatis
cmdtestmul fgrep man stty whereis
cmp fmt mkdir su who
cmpl freeze more sum whois
coff ftp nroff tail yankit
colcrt fulltests.mul passwd tar yes
compile getvers print10params tee
compress grep ps test
copycat gsh purge testedit

View File

@ -1,15 +0,0 @@
Command line: echoparams 'Parameter #1' "" p3 '' "Last param"
parameter 0: 'echoparams'
parameter 1: ''Parameter'
parameter 2: '#1''
parameter 3: ''
parameter 4: 'p3'
parameter 5: ''''
parameter 6: 'Last param'
Reparsing...
parameter 0: 'echoparams'
parameter 1: 'Parameter #1'
parameter 2: ''
parameter 3: 'p3'
parameter 4: ''
parameter 5: 'Last param'

View File

@ -1,11 +0,0 @@
Command line: echoparams '{ print "Hello, world" }' filename
parameter 0: 'echoparams'
parameter 1: ''{'
parameter 2: 'print'
parameter 3: 'Hello, world'
parameter 4: '}''
parameter 5: 'filename'
Reparsing...
parameter 0: 'echoparams'
parameter 1: '{ print "Hello, world" }'
parameter 2: 'filename'

View File

@ -1 +0,0 @@
Test variable has been set to 1

View File

@ -1,14 +0,0 @@
Command line: echoparams "Parameter #1" "" p3 "" "Last param"
parameter 0: 'echoparams'
parameter 1: 'Parameter #1'
parameter 2: ''
parameter 3: 'p3'
parameter 4: ''
parameter 5: 'Last param'
Reparsing...
parameter 0: 'echoparams'
parameter 1: 'Parameter #1'
parameter 2: ''
parameter 3: 'p3'
parameter 4: ''
parameter 5: 'Last param'

View File

@ -1,2 +0,0 @@
Test of system() function
`` returns value = 0

View File

@ -1 +0,0 @@
This is test command number 1

View File

@ -1 +0,0 @@
This is test command number 2

View File

@ -1,18 +0,0 @@
 *: :H1:
0: :src:gno:bin:gsh:tests:
1: :obj:gno:bin:gsh:
2: :lib:
3: :tmp:
4: :lang:orca:shell:
5: :lang:orca:languages:
6: :lang:orca:utilities:
8: :home:cmd:
9: :obj:gno:bin:gsh:
10: .CONSOLE:
11: .CONSOLE:
12: .CONSOLE:
13: :lib:
14: :tmp:
15: :lang:orca:shell:
16: :lang:orca:languages:
17: :lang:orca:utilities:

View File

@ -1,11 +0,0 @@
p0 = print10params
p1 = p1
p2 = p2
p3 = p3
p4 = p4
p5 = p5
p6 = p6
p7 = p7
p8 = p8
p9 = p9
p10 = p10

View File

@ -1 +0,0 @@
:bin:

View File

@ -1 +0,0 @@
:tmp:bi.out:

View File

@ -1,2 +0,0 @@
This is a success
This is another success

View File

@ -1,8 +0,0 @@
Command line: echoparams "This ; will" "see if ; are confusing"
parameter 0: 'echoparams'
parameter 1: 'This ; will'
parameter 2: 'see if ; are confusing'
Reparsing...
parameter 0: 'echoparams'
parameter 1: 'This ; will'
parameter 2: 'see if ; are confusing'

View File

@ -1,15 +0,0 @@
CMPDIR = /src/gno/bin/gsh/tests/bi.out
LISTFILE1 = sed1.list
PATH = /src/gno/bin/gsh/tests /obj/gno/bin/gsh /bin /usr/bin
LISTFILE2 = sed2.list
TESTCMD = set
INFILE = sed0.in
SHELL = /obj/gno/bin/gsh/gsh
COMPARE = cmp
status = 0
LISTFILE = set.list
0 = singletc
TERM = gnocon
USER = test
HOME = /src/gno/bin/gsh/tests
OUTDIR = /tmp/bi.out

View File

@ -1 +0,0 @@
/src/gno/bin/gsh/tests/ :src:gno:bin:gsh:tests:

View File

@ -1 +0,0 @@
Aliased as ls -l

View File

@ -1 +0,0 @@
:bin:ls

View File

@ -1,93 +0,0 @@
***********************************************************************
*
* MKDIR.ASM - Version 1.0
* Written by Tim Meekins
* Copyright (C) 1991 by Procyon, Inc.
* This program is hereby donated to the public domain.
*
* This program creates a new directory in the current (or specified)
* directory.
*
* TODO:
* o Add -p option.
* o Should I support creating multiple directories like Unix?
*
* HISTORY:
* 1.0 11/29/91 First version.
*
**************************************************************************
keep mkdir
mcopy mkdir.mac
mkdir START
jml ~GNO_COMMAND
END
main START
arg equ 0
retval equ arg+4
space equ retval+2
subroutine (2:argc,4:argv),space
stz retval
lda argc
dec a
bne part2
ErrWriteCString #usage
jmp error
part2 dec a
beq part3
ErrWriteCString #oneerr
jmp error
part3 ldy #4
lda [argv],y
sta arg
iny2
lda [argv],y
sta arg+2
ldy #0
short a
loop lda [arg],y
beq part4
sta pathname+2,y
iny
bra loop
part4 long a
sty pathname
Create createparm
bcc done
sta errval
ErrWriteCString #errleadin
Error errval
error inc retval
done return 2:retval
createparm dc i2'5'
createpath dc i4'pathname'
dc i2'$C3'
dc i2'$0F'
dc i4'$0000'
dc i2'$0D'
errval dc i2'0'
usage dc c'Usage: mkdir directory.',h'0d0a00'
oneerr dc c'mkdir: too many arguments.',h'0d0a00'
errleadin dc c'mkdir: ',h'00'
pathname dc i2'0'
ds 256 ;I dread any person entering a pathname
; ;this long!
END

View File

@ -1,247 +0,0 @@
macro
&lab subroutine &parms,&work
&lab anop
aif c:&work,.a
lclc &work
&work setc 0
.a
gbla &totallen
gbla &worklen
&worklen seta &work
&totallen seta 0
aif c:&parms=0,.e
lclc &len
lclc &p
lcla &i
&i seta c:&parms
.b
&p setc &parms(&i)
&len amid &p,2,1
aif "&len"=":",.c
&len amid &p,1,2
&p amid &p,4,l:&p-3
ago .d
.c
&len amid &p,1,1
&p amid &p,3,l:&p-2
.d
&p equ &totallen+3+&work
&totallen seta &totallen+&len
&i seta &i-1
aif &i,^b
.e
tsc
sec
sbc #&work
tcs
inc a
phd
tcd
phb
phk
plb
mend
macro
&lab return &r
&lab anop
lclc &len
aif c:&r,.a
lclc &r
&r setc 0
&len setc 0
ago .h
.a
&len amid &r,2,1
aif "&len"=":",.b
&len amid &r,1,2
&r amid &r,4,l:&r-3
ago .c
.b
&len amid &r,1,1
&r amid &r,3,l:&r-2
.c
aif &len<>2,.d
ldy &r
ago .h
.d
aif &len<>4,.e
ldx &r+2
ldy &r
ago .h
.e
aif &len<>10,.g
ldy #&r
ldx #^&r
ago .h
.g
mnote 'Not a valid return length',16
mexit
.h
aif &totallen=0,.i
lda &worklen+1
sta &worklen+&totallen+1
lda &worklen
sta &worklen+&totallen
.i
plb
pld
tsc
clc
adc #&worklen+&totallen
tcs
aif &len=0,.j
tya
.j
rtl
mend
macro
&lab ErrWriteCString &a1
&lab ph4 &a1
Tool $210c
mend
macro
&lab ERROR &a1
&lab p16 $105,&a1
mend
macro
&lab Create &a1
&lab gsos $2001,&a1
mend
macro
&lab tool &a1
&lab ldx #&a1
jsl $e10000
mend
macro
&lab p16 &a1,&a2
&lab jsl $E100A8
dc i2'&a1'
dc i4'&a2'
mend
macro
&lab gsos &a1,&a2
&lab jsl $E100A8
dc i2'&a1'
dc i4'&a2'
mend
macro
&lab ph4 &parm
lclc &char
lclc &char1
lclc &char2
&lab anop
&char amid &parm,1,1
aif "&char"="#",.immediate
aif "&char"="@",.at
aif s:longa=1,.chk1
rep #%00100000
.chk1
aif "&char"<>"{",.chk2
&char amid &parm,l:&parm,1
aif "&char"<>"}",.error
&parm amid &parm,2,l:&parm-2
ldy #2
lda (&parm),y
pha
lda (&parm)
pha
ago .shorten
.chk2
aif "&char"<>"[",.absolute
ldy #2
lda &parm,y
pha
lda &parm
pha
ago .shorten
.absolute
lda &parm+2
pha
lda &parm
pha
ago .shorten
.at
&char1 amid &parm,2,1
&char2 setc &char1
ph&char1
aif l:&parm<3,.chk2a
&char2 amid &parm,3,1
.chk2a
ph&char2
ago .shorten
.immediate
&parm amid &parm,2,l:&parm-1
pea +(&parm)|-16
pea &parm
ago .done
.shorten
aif s:longa=1,.done
sep #%00100000
.done
mexit
.error
mnote "Missing closing '}'",16
mend
macro
&lab long &stat
&lab anop
lcla &t
lcla &len
lclc &ch
&t seta 0
&len seta l:&stat
.a
aif &len=0,.b
&ch amid &stat,&len,1
aif ("&ch"="x").or.("&ch"="y").or.("&ch"="i"),.i
aif ("&ch"="a").or.("&ch"="m"),.m
.c
&len seta &len-1
ago ^a
.i
longi on
&t seta &t+16
ago ^c
.m
longa on
&t seta &t+32
ago ^c
.b
aif &t=0,.d
rep #&t
.d
mend
macro
&lab short &stat
&lab anop
lcla &t
lcla &len
lclc &ch
&t seta 0
&len seta l:&stat
.a
aif &len=0,.b
&ch amid &stat,&len,1
aif ("&ch"="x").or.("&ch"="y").or.("&ch"="i"),.i
aif ("&ch"="a").or.("&ch"="m"),.m
.c
&len seta &len-1
ago ^a
.i
longi off
&t seta &t+16
ago ^c
.m
longa off
&t seta &t+32
ago ^c
.b
aif &t=0,.d
sep #&t
.d
mend
macro
&lab iny2
&lab iny
iny
mend

View File

@ -1 +0,0 @@
constpriv.mk

View File

@ -1,39 +0,0 @@
#
# $Id: const.mk,v 1.1 2012/08/26 02:27:35 gdr Exp $
#
# Before this file is included, it is assumed that you have included
# the constpriv.mk file, which needs to define these variables:
#
# GNO_PUBLIC_HTML
# The directory where the GNO web pages are anchored. This
# top level directory is not managed by these files, but
# the files there need to reference these files. If you are
# not building this for the official GNO web site, you can
# just point this at a scratch directory somewhere.
#
# This is the name and address that will be given as contact info
# at the bottom of each of the HTML pages. Do NOT use '<' or '>' in the
# address.
NAME = Devin Reade
ADDRESS = gdr@gno.org
OUTPUT_DIR = $(SRCROOT)/doc/gen
DOCROOT = $(OUTPUT_DIR)
DOCROOT_INSECURE = $(OUTPUT_DIR)/insecure/gno
DOCROOT_SECURE = $(OUTPUT_DIR)/secure/gno
HTTP_SERVER = www.gno.org
HTTP_PORT = # :81
HTTPS_PORT = # :8443
FTP_SERVER = ftp.gno.org
DATE = $(SRCROOT)/etc/getdate -date
BUILD_FILES = GNUmakefile $(HEAD_PAGE) $(TAIL_PAGE) \
$(SRCROOT)/doc/etc/const.mk \
$(SRCROOT)/doc/etc/rules.mk \
$(SRCROOT)/doc/etc/tailcat.mk
# This is where the files will eventually wind up.
TARGET_DIR = $(GNO_PUBLIC_HTML)/$(WEB_HOME_BASE)

View File

@ -1,74 +0,0 @@
#! /usr/bin/perl -s
#
# Extract the date from the RCS Id string in a file.
#
# $Id: getdate,v 1.1 2012/08/26 02:27:36 gdr Exp $
#
use strict;
my @month;
push(@month,
"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep",
"Oct", "Nov", "Dec" );
# for ($i=0; $i<12; $i++) {
# printf("month %d is %s\n", $i, $month[$i]);
# }
my $printdate = 0;
my $printversion = 0;
if (defined($::date)) {
$printdate = 1;
}
if (defined($::version)) {
$printversion = 1;
}
my %sortedDates;
my %sortedVersions;
my $date = "(unspecified date)";
my $version = "(unspecified version)";
while(<>) {
if (/\$Id([^\$]*)\$/) {
$_ = $1;
if (/^:\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+/) {
my $file=$1;
my $v=$2;
my $rawdate=$3;
my $time=$4;
if ($rawdate =~ m,(\d+)[-/](\d+)[-/](\d+),) {
my $year = $1;
my $m = $2;
my $day = $3;
my $mon = @month[int($2) - 1];
my $d = "$day $mon $year";
my $fakedate = int($day) + 100 * int($m) + 10000 * int($year);
$sortedDates{"$fakedate"} = $d;
$sortedVersions{"$fakedate"} = $v;
}
}
}
}
my @fakes = sort(keys(%sortedDates));
my $lastFake = pop @fakes;
if (defined($lastFake)) {
$date = $sortedDates{$lastFake};
$version = $sortedVersions{$lastFake};
}
if ($printdate) {
printf("%s\n", $date);
} elsif ($printversion) {
printf("%s\n", $version);
} else {
printf("getdate: bad invocation\n");
exit(1);
}
exit(0);

View File

@ -1,77 +0,0 @@
#
# $Id: rules.mk,v 1.1 2012/08/26 02:27:36 gdr Exp $
#
$(WEB_HOME)/%.gif: %.gif
install -m644 $< $@
$(WEB_HOME)/%.png: %.png
install -m644 $< $@
$(WEB_HOME)/%.pdf: %.pdf
install -m644 $< $@
$(WEB_HOME)/%.txt: %.txt
install -m644 $< $@
build: buildLocal webHome $(TARGETS) webHomePerms $(BUILD_FILES)
@for s in X $(SUBPROJECTS); do \
[ "$$s" = X ] && continue; \
[ -d "$$s" ] || continue; \
(cd $$s; $(MAKE) $(MFLAGS) $@); \
done
buildLocal::
@true
webHome:
@if [ -z "$(WEB_HOME)" ]; then \
echo "WEB_HOME not set"; \
exit 1; \
fi; \
[ -d $(WEB_HOME) ] || mkdir -p $(WEB_HOME)
webHomePerms:
@if [ -z "$(WEB_HOME)" ]; then \
echo "WEB_HOME not set"; \
exit 1; \
fi; \
find $(WEB_HOME) -type d \! -perm 0755 -exec chmod 0755 {} \; ; \
find $(WEB_HOME) -type f \! -perm 0644 -exec chmod 644 {} \;
install::
@/bin/rm -rf $(TARGET_DIR)
install -d -m755 $(TARGET_DIR)
@echo "copying files to $(TARGET_DIR)"; \
cd $(WEB_HOME); tar -cf - . | \
(cd $(TARGET_DIR); tar -xpBf -);
@echo "setting permissions on $(TARGET_DIR)"; \
find $(TARGET_DIR) -type d \! -perm 0755 -exec chmod 0755 {} \; ; \
find $(TARGET_DIR) -type f \! -perm 0644 -exec chmod 644 {} \;
clean::
rm -f *~
@for s in X $(SUBPROJECTS); do \
[ "$$s" = X ] && continue; \
[ -d "$$s" ] || continue; \
(cd $$s; $(MAKE) $(MFLAGS) $@); \
done
clobber:: clean
buildDocbookHtml:: clean
@if [ -z "$(DOCBOOK_TOP)" ]; then \
echo "DOCBOOK_TOP is not set"; \
exit 1; \
fi
@htmldir="$(WEB_HOME)/html"; \
[ -d $$htmldir ] || mkdir -p $$htmldir; \
echo docbook2html -o $$htmldir $(DOCBOOK_TOP); \
docbook2html -o $$htmldir $(DOCBOOK_TOP)
# -cp -p *.png $(HTML_DIR)
buildDocbookPdf::
@[ -d $(WEB_HOME) ] || mkdir -p $(WEB_HOME)
@date
docbook2pdf -o $(WEB_HOME) $(DOCBOOK_TOP)
@date

View File

@ -1,23 +0,0 @@
#
# $Id: tailcat.mk,v 1.1 2012/08/26 02:27:36 gdr Exp $
#
$(WEB_HOME):
mkdir -p $(WEB_HOME)
$(WEB_HOME)/%.html: %.html $(HEAD_PAGE) $(HEAD_PAGE_1) $(TAIL_PAGE) Makefile
@echo "making $@"; \
date="`$(DATE) < $<`"; \
cat $(HEAD_PAGE) $(HEAD_PAGE_1) $*.html $(TAIL_PAGE) | perl -p \
-e "s,%%DATE%%,$$date,g;" \
-e 's,%%HTTP_SERVER%%,$(HTTP_SERVER),g;' \
-e 's,%%HTTP_PORT%%,$(HTTP_PORT),g;' \
-e 's,%%HTTPS_PORT%%,$(HTTPS_PORT),g;' \
-e 's,%%FTP_SERVER%%,$(FTP_SERVER),g;' \
-e 's,%%HTML_TITLE%%,$(HTML_TITLE),g;' \
$(TAILCAT_LOCAL_REPLACEMENTS) \
> $@
@if [ "$(FIX_PERMS)" != "no" ]; then \
chmod 644 $@; \
fi
@$(WEBLINT) $@