Delete 689 undead files.
These files "magically reappeared" after the conversion from CVS to Mercurial. The old CVS repository deleted these files but did not record *when* it deleted these files. The conversion resurrected these files because they have no history of deletion. These files were probably deleted before year 1995. The CVS repository begins to record deletions around 1995. These files may still appear in older revisions of this Mercurial repository, when they should already be deleted. There is no way to fix this, because the CVS repository provides no dates of deletion. See http://sourceforge.net/mailarchive/message.php?msg_id=29823032
This commit is contained in:
George Koehler
@@ -1,54 +0,0 @@
|
||||
EMHOME = ../../..
|
||||
MODLIB = $(EMHOME)/modules/lib
|
||||
INCL = -I$(EMHOME)/modules/h -I$(EMHOME)/h
|
||||
GFILES= occam.g
|
||||
PRIMARY= occam.o Lpars.o keytab.o lex.yy.o code.o em.o
|
||||
SECUNDARY= symtab.o expr.o builtin.o
|
||||
TERTIARY= report.o
|
||||
LLOPT=
|
||||
LEXLIB=-ll
|
||||
LIBRARY= $(MODLIB)/libem_mes.a $(MODLIB)/libemk.a \
|
||||
$(MODLIB)/liballoc.a $(MODLIB)/libprint.a \
|
||||
$(MODLIB)/libstring.a \
|
||||
$(MODLIB)/libsystem.a $(LEXLIB)
|
||||
CFLAGS = -Dvoid=int -O $(INCL)
|
||||
LDFLAGS =
|
||||
# void = int, because some compilers don't understand void
|
||||
HSRC = code.h em.h expr.h sizes.h symtab.h token.h
|
||||
CSRC = builtin.c code.c em.c expr.c keytab.c report.c symtab.c
|
||||
|
||||
all: dummy
|
||||
make oc
|
||||
|
||||
dummy: $(GFILES)
|
||||
LLgen $(LLOPT) $(GFILES)
|
||||
touch dummy
|
||||
|
||||
oc: $(PRIMARY) $(SECUNDARY) $(TERTIARY)
|
||||
$(CC) $(LDFLAGS) -o oc $(PRIMARY) $(SECUNDARY) $(TERTIARY) $(LIBRARY)
|
||||
|
||||
lex.yy.c: lex.l
|
||||
lex lex.l
|
||||
|
||||
install: all
|
||||
rm -f $(EMHOME)/lib/em_occam
|
||||
cp oc $(EMHOME)/lib/em_occam
|
||||
|
||||
cmp: all
|
||||
-cmp oc $(EMHOME)/lib/em_occam
|
||||
|
||||
pr:
|
||||
@pr Makefile $(HSRC) occam.g lex.l $(CSRC)
|
||||
|
||||
opr:
|
||||
make pr | opr
|
||||
|
||||
clean:
|
||||
rm -f lex.yy.c occam.c *.o oc dummy Lpars.c Lpars.h
|
||||
|
||||
$(PRIMARY): Lpars.h
|
||||
occam.o keytab.o: token.h
|
||||
occam.o $(SECUNDARY): symtab.h expr.h
|
||||
$(PRIMARY) $(SECUNDARY): sizes.h
|
||||
occam.o code.o: code.h
|
||||
code.o em.o: em.h
|
||||
@@ -1,11 +0,0 @@
|
||||
#!/bin/sh
|
||||
case $# in
|
||||
0) ar ru /user0/bot/lib/lib2.a *.o
|
||||
ranlib /user0/bot/lib/lib2.a
|
||||
rm -f *.o
|
||||
;;
|
||||
*) keys=$1
|
||||
shift
|
||||
ar $keys /user0/bot/lib/lib2.a $*
|
||||
;;
|
||||
esac
|
||||
@@ -1,11 +0,0 @@
|
||||
#!/bin/sh
|
||||
case $# in
|
||||
0) ar ru /user0/bot/lib/lib4.a *.o
|
||||
ranlib /user0/bot/lib/lib4.a
|
||||
rm -f *.o
|
||||
;;
|
||||
*) keys=$1
|
||||
shift
|
||||
ar $keys /user0/bot/lib/lib4.a $*
|
||||
;;
|
||||
esac
|
||||
@@ -1,28 +0,0 @@
|
||||
PRIMITIVES= par_vax.s
|
||||
PARALLEL= parco.c par.c co.c
|
||||
OCRT= ocrt.c builtin.c channel.c chan_struct.c
|
||||
|
||||
COMMON= $(PRIMITIVES) $(PARALLEL) $(OCRT)
|
||||
|
||||
SIZE2= em2.e
|
||||
SIZE4= em4.e
|
||||
|
||||
LIB2= /user0/bot/lib/lib2.a
|
||||
LIB4= /user0/bot/lib/lib4.a
|
||||
|
||||
ACK2= vax2
|
||||
ACK4= vax4
|
||||
|
||||
all: lib2 lib4
|
||||
|
||||
lib2: $(COMMON) $(SIZE2)
|
||||
rm -f *.o $(LIB2)
|
||||
$(ACK2) -c.o -L -Dvoid=char -Dptrdiff=long $(COMMON) $(SIZE2)
|
||||
ar cq $(LIB2) *.o
|
||||
rm -f *.o
|
||||
|
||||
lib4: $(COMMON) $(SIZE4)
|
||||
rm -f *.o $(LIB4)
|
||||
$(ACK4) -c.o -L -Dvoid=char $(COMMON) $(SIZE4)
|
||||
ar cq $(LIB4) *.o
|
||||
rm -f *.o
|
||||
@@ -1,52 +0,0 @@
|
||||
mes 2,2,4
|
||||
|
||||
oldtrp
|
||||
bss 4, 0, 0
|
||||
|
||||
exp $init
|
||||
pro $init, 0
|
||||
loc -321-1
|
||||
sim
|
||||
lpi $catch1
|
||||
sig
|
||||
sde oldtrp
|
||||
cal $initfile
|
||||
ret 0
|
||||
end 0
|
||||
|
||||
pro $catch1, 0
|
||||
lde oldtrp
|
||||
sig
|
||||
asp 4
|
||||
loe 0
|
||||
lde 4
|
||||
lol 0
|
||||
cal $catch
|
||||
asp 8
|
||||
lol 0
|
||||
trp
|
||||
rtt
|
||||
end 0
|
||||
|
||||
exp $now
|
||||
pro $now, 12
|
||||
zre deadlock
|
||||
lal -12
|
||||
loc 35
|
||||
mon
|
||||
asp 2
|
||||
ldl -12
|
||||
ret 4
|
||||
end 12
|
||||
|
||||
exp $block_mo
|
||||
pro $block_mo, 0
|
||||
ldl 4
|
||||
ldl 8
|
||||
ldl 0
|
||||
loc 4
|
||||
loc 2
|
||||
cuu
|
||||
bls 2
|
||||
ret 0
|
||||
end 0
|
||||
@@ -1,49 +0,0 @@
|
||||
mes 2,4,4
|
||||
|
||||
oldtrp
|
||||
bss 4, 0, 0
|
||||
|
||||
exp $init
|
||||
pro $init, 0
|
||||
loc -321-1
|
||||
sim
|
||||
lpi $catch1
|
||||
sig
|
||||
ste oldtrp
|
||||
cal $initfile
|
||||
ret 0
|
||||
end 0
|
||||
|
||||
pro $catch1, 0
|
||||
loe oldtrp
|
||||
sig
|
||||
asp 4
|
||||
loe 0
|
||||
loe 4
|
||||
lol 0
|
||||
cal $catch
|
||||
asp 12
|
||||
lol 0
|
||||
trp
|
||||
rtt
|
||||
end 0
|
||||
|
||||
exp $now
|
||||
pro $now, 12
|
||||
zre deadlock
|
||||
lal -12
|
||||
loc 35
|
||||
mon
|
||||
asp 4
|
||||
lol -12
|
||||
ret 4
|
||||
end 12
|
||||
|
||||
exp $block_mo
|
||||
pro $block_mo, 0
|
||||
lol 4
|
||||
lol 8
|
||||
lol 0
|
||||
bls 4
|
||||
ret 0
|
||||
end 0
|
||||
@@ -1,48 +0,0 @@
|
||||
/* $Header$ */
|
||||
/* channel.h - channel definitions */
|
||||
#include <stdio.h>
|
||||
#include "parco.h"
|
||||
|
||||
typedef union channel {
|
||||
struct { /* Interprocess channel */
|
||||
char _type; /* Channel type, see note */
|
||||
char synch; /* State in channel synchronization */
|
||||
long val; /* Transmitted value */
|
||||
} c;
|
||||
struct { /* File channel */
|
||||
char _type; /* Dummy field, see note */
|
||||
char index; /* Index in the file array */
|
||||
char flgs; /* Status flags: in use & readahead */
|
||||
char preread; /* Possible preread character */
|
||||
} f;
|
||||
} chan;
|
||||
#define type c._type /* Channel type */
|
||||
/* Note: The channel type should not be part of each structure in chan. But
|
||||
* the C alignment rules would make chan about 50% bigger if we had done it
|
||||
* the right way. Note that the order of fields in a struct cannot be a problem
|
||||
* as long as struct c is the largest within the union.
|
||||
*/
|
||||
|
||||
#define C_T_CHAN 0 /* Type of a interprocess channel */
|
||||
#define C_T_FILE 1 /* Type of a file channel */
|
||||
|
||||
#define C_S_FREE 0 /* IP channel is free */
|
||||
#define C_S_ANY 1 /* IP channel contains data */
|
||||
#define C_S_ACK 2 /* IP channel data is removed */
|
||||
|
||||
#define C_F_EOF (-1L) /* File channel returns EOF */
|
||||
#define C_F_TEXT (-2L) /* File channel becomes line oriented */
|
||||
#define C_F_RAW (-3L) /* File channel becomes character oriented */
|
||||
|
||||
#define C_F_INUSE 0x01 /* File channel is connected to a UNIX file */
|
||||
#define C_F_READAHEAD 0x02 /* File channel has a preread character */
|
||||
|
||||
extern chan file[_NFILE]; /* Array of file channels */
|
||||
extern FILE *unix_file[_NFILE]; /* Pointers to buffered UNIX files */
|
||||
|
||||
void c_init();
|
||||
|
||||
void chan_in(), cbyte_in(), c_wa_in(), c_ba_in();
|
||||
void chan_out(), c_wa_out(), c_ba_out();
|
||||
|
||||
int chan_any();
|
||||
@@ -1,19 +0,0 @@
|
||||
/* $Header$ */
|
||||
/* parco.h - Define names for simulation routines
|
||||
*
|
||||
* This file is to be included by users of the higher-level routines
|
||||
*
|
||||
*/
|
||||
|
||||
void pc_begin(), resumenext(), parend(), resume(), coend();
|
||||
int pc_fork();
|
||||
|
||||
#define nullid ((int *) 0 - (int *) 0)
|
||||
/* I.e. a 0 of type "pointer difference" */
|
||||
|
||||
#define parbegin(sbrk) pc_begin(sbrk, nullid)
|
||||
#define parfork() pc_fork(nullid)
|
||||
#define cobegin(sbrk, id) pc_begin(sbrk, id)
|
||||
#define cofork(id) pc_fork(id)
|
||||
|
||||
extern int deadlock;
|
||||
@@ -1,53 +0,0 @@
|
||||
/* $Header$ */
|
||||
/* process.h - Define administration types and functions
|
||||
*
|
||||
* This file is to be included by implementors of the higher
|
||||
* level routines
|
||||
*
|
||||
*/
|
||||
#include "parco.h"
|
||||
|
||||
#ifndef ptrdiff /* This type must be able to hold a pointer difference */
|
||||
#define ptrdiff int /* Define as long int if necessary */
|
||||
#endif
|
||||
|
||||
#define nil 0
|
||||
void *alloc(), free();
|
||||
|
||||
typedef ptrdiff wordsize, identification;
|
||||
|
||||
wordsize top_size();
|
||||
int top_save();
|
||||
void top_load(); /* Primitives */
|
||||
|
||||
struct procgroup;
|
||||
|
||||
struct process {
|
||||
struct process *next; /* Next process in the same group */
|
||||
struct procgroup *down; /* Process group running under this process */
|
||||
void *stack; /* Pointer to the saved stack top */
|
||||
identification id; /* Coroutine identification */
|
||||
};
|
||||
|
||||
#define init_between __i_b__ /* These names are hidden */
|
||||
#define save_between __s_b__
|
||||
#define load_betweens __l_b__
|
||||
#define delete_between __d_b__
|
||||
|
||||
void init_between(), save_between(), load_betweens(), delete_between();
|
||||
|
||||
struct procgroup {
|
||||
struct process **active;/* Active process within this group */
|
||||
struct procgroup *up; /* The group that this group belongs to */
|
||||
struct process *first; /* List of processes belonging to this group */
|
||||
void *s_brk; /* Point where the stack is split */
|
||||
void *between; /* Stack space between s_brk and up->s_brk */
|
||||
};
|
||||
|
||||
#define group __grp__ /* Ignore this please */
|
||||
#define highest_group __hgrp__
|
||||
|
||||
extern struct procgroup *group; /* Current running group */
|
||||
extern struct procgroup *highest_group; /* highest group that has been seen
|
||||
* while searching for a process
|
||||
*/
|
||||
@@ -1,53 +0,0 @@
|
||||
mes 2,2,4
|
||||
exp $top_size
|
||||
pro $top_size, 14
|
||||
ldl 0 ; s_brk
|
||||
lor 1 ; s_brk SP
|
||||
sbs 4 ; s_brk-SP
|
||||
ret 4 ; return size of block to be saved
|
||||
end 14
|
||||
|
||||
exp $top_save
|
||||
pro $top_save, 0
|
||||
loe 0
|
||||
lde 4 ; load line number and file name
|
||||
lim ; ignore mask
|
||||
lor 0 ; LB
|
||||
ldl 0 ; size of block
|
||||
loc 4
|
||||
loc 2
|
||||
cuu
|
||||
dup 2
|
||||
stl 0 ; push & store size in 2 bytes
|
||||
lor 1 ; SP (the SP BEFORE pushing)
|
||||
lor 1 ; SP (address of stack top to save)
|
||||
ldl 4 ; area
|
||||
lol 0 ; size
|
||||
bls 2 ; move whole block
|
||||
asp 18 ; remove the lot from the stack
|
||||
loc 1
|
||||
ret 2 ; return 1
|
||||
end 0
|
||||
|
||||
exp $top_load
|
||||
pro $top_load, 0
|
||||
ldl 0
|
||||
dup 4
|
||||
sde area ; copy area pointer from argument 0
|
||||
loi 4 ; load indirect to
|
||||
str 1 ; restore SP
|
||||
lde area ; load area, note that the SP is now correct
|
||||
lor 1 ; SP (the SP AFTER, see above)
|
||||
lde area
|
||||
lof 4 ; size of block
|
||||
bls 2 ; move block back (SP becomes the SP BEFORE again!)
|
||||
asp 2 ; drop size
|
||||
str 0 ; LB
|
||||
sim ; ignore mask
|
||||
sde 4
|
||||
ste 0 ; line and file
|
||||
loc 0
|
||||
ret 2 ; return 0
|
||||
end 0
|
||||
area
|
||||
bss 4,0,0
|
||||
@@ -1,46 +0,0 @@
|
||||
mes 2,4,4
|
||||
exp $top_size
|
||||
pro $top_size, 20
|
||||
lol 0 ; s_brk
|
||||
lor 1 ; s_brk SP
|
||||
sbs 4 ; s_brk-SP
|
||||
ret 4 ; return size of block to be saved
|
||||
end 20
|
||||
|
||||
exp $top_save
|
||||
pro $top_save, 0
|
||||
lde 0 ; load line number and file name
|
||||
lim ; ignore mask
|
||||
lor 0 ; LB
|
||||
lol 0 ; size of block
|
||||
lor 1 ; SP (the SP BEFORE pushing)
|
||||
lor 1 ; SP (address of stack top to save)
|
||||
lol 4 ; area
|
||||
lol 0 ; size
|
||||
bls 4 ; move whole block
|
||||
asp 24 ; remove the lot from the stack
|
||||
loc 1
|
||||
ret 4 ; return 1
|
||||
end 0
|
||||
|
||||
exp $top_load
|
||||
pro $top_load, 0
|
||||
lol 0
|
||||
dup 4
|
||||
ste area ; copy area pointer from argument 0
|
||||
loi 4 ; load indirect to
|
||||
str 1 ; restore sp
|
||||
loe area ; load area, note that the SP is now correct
|
||||
lor 1 ; SP (the SP AFTER, see above)
|
||||
loe area
|
||||
lof 4 ; size of block
|
||||
bls 4 ; move block back (SP becomes the SP BEFORE again!)
|
||||
asp 4 ; drop size
|
||||
str 0 ; LB
|
||||
sim ; ignore mask
|
||||
sde 0 ; line and file
|
||||
loc 0
|
||||
ret 4 ; return 0
|
||||
end 0
|
||||
area
|
||||
bss 4,0,0
|
||||
@@ -1,51 +0,0 @@
|
||||
# VAX code for the top_* primitives
|
||||
|
||||
.set BIG, 0x8000 # 32K chunk per movc3
|
||||
.text
|
||||
.align 1
|
||||
.globl _top_size
|
||||
.globl _top_save
|
||||
.globl _top_load
|
||||
|
||||
_top_size: .word 0x0000
|
||||
subl3 sp, 4(ap), r0 # bytes between stack pointer and break
|
||||
addl2 $(8+6+1)*4, r0 # add 8 regs, 6 pushed longwords (line, file,
|
||||
ret # ap, fp, size, sp) and 1 extra argument
|
||||
|
||||
_top_save: .word 0x0ff0 # save regs r4-r11
|
||||
movq hol0, -(sp) # push line number and file name
|
||||
movq ap, -(sp) # push LB equivalents ap and fp
|
||||
pushl 4(ap) # push size
|
||||
pushal -4(sp) # push sp (the sp AFTER pushing)
|
||||
movl $BIG, r6 # chunk size in r6
|
||||
movl 4(ap), r7 # size of block to move
|
||||
movl sp, r1 # source address
|
||||
movl 8(ap), r3 # destination address
|
||||
cmpl r7, r6
|
||||
jlequ 0f
|
||||
1: movc3 r6, (r1), (r3) # move chunk of the block, add r6 to r1 and r3
|
||||
subl2 r6, r7
|
||||
cmpl r7, r6
|
||||
jgtru 1b
|
||||
0: movc3 r7, (r1), (r3) # move what's left
|
||||
movl $1, r0 # return 1
|
||||
ret
|
||||
|
||||
_top_load: .word 0x0000
|
||||
movl 4(ap), r1 # source
|
||||
movl (r1), sp # restore sp
|
||||
movl $BIG, r6 # chunk size
|
||||
movl 4(r1), r7 # size
|
||||
movl sp, r3 # destination
|
||||
cmpl r7, r6
|
||||
jlequ 0f
|
||||
1: movc3 r6, (r1), (r3) # move chunk of the block back
|
||||
subl2 r6, r7
|
||||
cmpl r7, r6
|
||||
jgtru 1b
|
||||
0: movc3 r7, (r1), (r3) # move what's left back
|
||||
addl2 $8, sp # pop saved sp and size
|
||||
movq (sp)+, ap # pop LB's
|
||||
movq (sp)+, hol0 # pop line and file
|
||||
clrl r0 # return 0
|
||||
ret
|
||||
@@ -1,24 +0,0 @@
|
||||
#include <dec.ocm>
|
||||
#include <prints.ocm>
|
||||
|
||||
var fmt[byte 100]:
|
||||
var d, c:
|
||||
seq
|
||||
input ? c
|
||||
decin(input, d, c)
|
||||
while c<>EOF
|
||||
seq
|
||||
chan link:
|
||||
par
|
||||
printd(link, "XXXX %%%ds XXXXX*#00", d)
|
||||
var c, i:
|
||||
seq
|
||||
i:=0
|
||||
link ? c
|
||||
while c<>0
|
||||
seq
|
||||
i:=i+1
|
||||
fmt[byte i]:=c
|
||||
link ? c
|
||||
prints("XXXX %s XXXXX", "YYYYY")
|
||||
decin(input, d, c)
|
||||
Reference in New Issue
Block a user