|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T d
Length: 12330 (0x302a)
Types: TextFile
Names: »date.diffs«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Dating/date.diffs«
*** Questions Fri Oct 23 16:59:36 1987
--- new/Questions Thu Nov 19 09:38:19 1987
***************
*** 1,4 ****
--- 1,5 ----
+
What is your weight?
A. Under 100 lbs.
B. 100 lbs-125 lbs.
***************
*** 335,338 ****
--- 336,340 ----
C. Only if I am contacted first
c
+
*** bbase Fri Oct 23 17:00:27 1987
--- new/bbase Thu Nov 19 09:38:18 1987
***************
*** 308,311 ****
Yes
No
Only if I am contacted first
-
--- 308,310 ----
*** date.doc.v1 Fri Oct 23 16:56:44 1987
--- new/date.doc.v1 Thu Nov 19 09:38:14 1987
***************
*** 4,27 ****
bbase
Questions
- then you must also issue:
- touch database
-
The actual program file is
date.v1.p
! To run the programs you must
! pc date.v1.p
! you can then ReMove date.v1.p
! and rename the a.out file.
! so here are the commands:
! touch database
! pc date.v1.p
! mv a.out datingame
Just type 'datingame' and away it goes.
There is a copyright on the program. This doesn't mean you can't give it
--- 4,28 ----
bbase
Questions
The actual program file is
date.v1.p
! Just run MAKEFILE.v1 with /bin/csh.
! All you must do is change the protection on your main directory
! or any subdirectories the program and datafile is in with:
! chmod 777 .
! If you have it in the subdirectory called date simply use:
+ chmod 777 .
+ chmod 777 date
+
+ your directory will be public.
+
+ WARNING: All the datafiles and program must be in the same directory!
+
Just type 'datingame' and away it goes.
There is a copyright on the program. This doesn't mean you can't give it
***************
*** 47,54 ****
hold the database, bbase and Questions files.
To to this you must:
mkdir .date
! cp Questions .date/Questions
! cp bbase .date/bbase
touch .date/database
you must also change all the reset() and rewite() functions.
--- 48,55 ----
hold the database, bbase and Questions files.
To to this you must:
mkdir .date
! mv Questions .date/Questions
! mv bbase .date/bbase
touch .date/database
you must also change all the reset() and rewite() functions.
***************
*** 65,67 ****
--- 66,71 ----
john1233@csd4.milw.wisc.edu
or
tommyj@lakesys
+
+
+
*** date.doc.v2 Fri Oct 23 16:57:10 1987
--- new/date.doc.v2 Thu Nov 19 09:38:27 1987
***************
*** 1,39 ****
Docs for Date-A-Base version 2
- First you must copy the following files into a directory called:
- .date
! The files are: bbase
! Questions
- then into this directory you must also issue:
- touch database
! The actual program files are
! date.v2.p
! getw.c
! getw.h
- To run the programs you must
! cc -c getw.c
! Then:
- pc date.v2.p getw.o
-
- you can then ReMove date.v2.p, getw.c, getw.o, date.o and getw.h
- and rename the a.out file.
-
- so here are the commands:
- mkdir .date
- cp Questions .date/Questions
- cp bbase .date/bbase
- touch .date/database
- cc -c getw.c
- pc date.v2.p getw.o
- mv a.out datingame
-
Just type 'datingame' and away it goes.
There is a copyright on the program. This doesn't mean you can't give it
--- 1,19 ----
Docs for Date-A-Base version 2
! You must go into an editor and change the name listed into
! your directory name on lines
! 232, 410, 455, and 538 of date.v2.p
! Then just run MAKEFILE.v2 with /bin/csh and all the files
! will be created.
! You must then make you main directory public with
! chmod 777 .
Just type 'datingame' and away it goes.
There is a copyright on the program. This doesn't mean you can't give it
***************
*** 58,61 ****
--- 38,46 ----
long as you change the 'reset' commands.
Thomas M. Johnson
+ john1233@csd4.milw.wisc.edu
+ or
+ tommyj@lakesys
+
+
*** date.v1.p Fri Oct 23 16:57:40 1987
--- new/date.v1.p Thu Nov 19 09:38:17 1987
***************
*** 1,7 ****
program date(input, output, Questions, database, bbase);
(*
! Date-A-Base version 1.0
by
Thomas M. Johnson
--- 1,7 ----
program date(input, output, Questions, database, bbase);
(*
! Date-A-Base version 1.1
by
Thomas M. Johnson
***************
*** 555,560 ****
--- 555,561 ----
var
found: boolean;
pointer: userp;
+ previous: userp;
begin
found := false;
***************
*** 561,579 ****
writeln(output, 'Are you sure you want to delete yourself?');
if yesNo then begin
pointer := head;
if pointer^.login = static.login then begin
head := pointer^.next;
dispose(pointer)
! end else
! while not found do
! while pointer^.next <> nil do
! if pointer^.next^.login = static.login then begin
! pointer^.next := pointer^.next^.next;
! dispose(pointer^.next);
found := true
! end else
pointer := pointer^.next
end
end; { delete }
--- 562,584 ----
writeln(output, 'Are you sure you want to delete yourself?');
if yesNo then begin
pointer := head;
+ previous := head;
if pointer^.login = static.login then begin
head := pointer^.next;
dispose(pointer)
! end else begin
! pointer := pointer^.next;
! while (not found) and (pointer <> nil) do
! if pointer^.login = static.login then begin
! previous^.next := pointer^.next;
! dispose(pointer);
found := true
! end else begin
! previous := previous^.next;
pointer := pointer^.next
end
+ end
+ end
end; { delete }
*** date.v2.p Fri Oct 23 16:59:08 1987
--- new/date.v2.p Thu Nov 19 09:38:30 1987
***************
*** 1,7 ****
program date(input, output, Questions, database, bbase);
(*
! Date-A-Base version 2.0
by
Thomas M. Johnson
--- 1,7 ----
program date(input, output, Questions, database, bbase);
(*
! Date-A-Base version 2.1
by
Thomas M. Johnson
***************
*** 14,21 ****
.date/database - all the people registered with the Date-A-Base
and their information
.date/bbase - data used by the brouse command.
! version 2.0 must have getw.h in the same directory. This routine
allows Pascal to access the C getlogin() function.
--- 14,22 ----
.date/database - all the people registered with the Date-A-Base
and their information
.date/bbase - data used by the brouse command.
+ /tmp/.name - used to get the login name
! version 2.1 must have getw.h in the same directory. This routine
allows Pascal to access the C getlogin() function.
***************
*** 228,234 ****
i: integer;
begin
! reset(Questions,'.date/Questions');
i := 1;
chset := ['A'..'Z', 'a'..'z', '0'..'9', '?', '.', ' ', '-', '/'];
ch := ' ';
--- 229,235 ----
i: integer;
begin
! reset(Questions, '/usr/u1/john1233/.date/Questions');
i := 1;
chset := ['A'..'Z', 'a'..'z', '0'..'9', '?', '.', ' ', '-', '/'];
ch := ' ';
***************
*** 275,282 ****
end;
test := same;
- if string1[i + ONE] <> string2[i + ONE] then
- test := false
end; { test }
--- 276,281 ----
***************
*** 298,304 ****
temptr := head;
while (temptr <> nil) and not found do
! if test(temptr^.login, lookfor) then begin
hisrec := temptr^;
found := true
end else
--- 297,303 ----
temptr := head;
while (temptr <> nil) and not found do
! if test(temptr^.login,lookfor) then begin
hisrec := temptr^;
found := true
end else
***************
*** 401,410 ****
node: userp;
name: string;
i: integer;
begin
head := nil;
! reset(database,'.date/database');
while not eof(database) do begin
new(node);
read(database, node^);
--- 400,417 ----
node: userp;
name: string;
i: integer;
+ namef: text;
begin
head := nil;
! getwh(name);
! reset(database, '/usr/u1/john1233/.date/database');
! reset(namef, '/tmp/.name');
! i := 1;
! while not eof(namef) do begin
! read(namef, name[i]);
! i := i + 1
! end;
while not eof(database) do begin
new(node);
read(database, node^);
***************
*** 422,431 ****
writeln(output);
writeln(output);
continue := true;
- clearstring(name);
- getwh(name);
for i := ONE to copymax do
static.login[i] := name[i];
if not Search(name, static) then
newUser
else
--- 429,437 ----
writeln(output);
writeln(output);
continue := true;
for i := ONE to copymax do
static.login[i] := name[i];
+
if not Search(name, static) then
newUser
else
***************
*** 444,450 ****
begin
! rewrite(database,'.date/database');
pointer := head;
if pointer <> nil then
while pointer^.next <> nil do begin
--- 450,456 ----
begin
! rewrite(database, '/usr/u1/john1233/.date/database');
pointer := head;
if pointer <> nil then
while pointer^.next <> nil do begin
***************
*** 527,533 ****
i := ONE;
j := ONE;
! reset(bbase,'.date/bbase');
writeln(output);
write(output, 'Name: ');
writeln(output, rec.login);
--- 533,539 ----
i := ONE;
j := ONE;
! reset(bbase, '/usr/u1/john1233/.date/bbase');
writeln(output);
write(output, 'Name: ');
writeln(output, rec.login);
***************
*** 596,601 ****
--- 602,608 ----
var
found: boolean;
pointer: userp;
+ previous: userp;
begin
found := false;
***************
*** 602,620 ****
writeln(output, 'Are you sure you want to delete yourself?');
if yesNo then begin
pointer := head;
if pointer^.login = static.login then begin
head := pointer^.next;
dispose(pointer)
! end else
! while not found do
! while pointer^.next <> nil do
! if pointer^.next^.login = static.login then begin
! pointer^.next := pointer^.next^.next;
! dispose(pointer^.next);
! found := true
! end else
! pointer := pointer^.next
! end
end; { delete }
--- 609,632 ----
writeln(output, 'Are you sure you want to delete yourself?');
if yesNo then begin
pointer := head;
+ previous := head;
if pointer^.login = static.login then begin
head := pointer^.next;
dispose(pointer)
! end else begin
! pointer := pointer^.next;
! while not found and (pointer <> nil) do
! if pointer^.login = static.login then begin
! previous^.next := pointer^.next;
! dispose(pointer);
! found := true
! end else begin
! previous := previous^.next;
! pointer := pointer^.next
! end
! end {else} {else}
!
! end {if yesNo}
end; { delete }
***************
*** 696,702 ****
writeln(output);
writeln(output);
writeln(output);
! writeln(output,'(c) 1987 Thomas M. Johnson');
writeln(output)
end; { bye }
--- 708,714 ----
writeln(output);
writeln(output);
writeln(output);
! writeln(output, '(c) 1987 Thomas M. Johnson');
writeln(output)
end; { bye }
*** getw.c Mon Oct 26 11:35:02 1987
--- new/getw.c Thu Nov 19 09:38:31 1987
***************
*** 1,8 ****
! extern getwh();
! char *
! getwh() {
char *getlogin();
! return (getlogin());
}
--- 1,18 ----
! # include <stdio.h>
! FILE *fopen () ;
! FILE *name ;
! getwh(who)
! char *who ; {
char *getlogin();
! if ((name = fopen ("/tmp/.name", "w")) == NULL ) {
! fprintf (stderr, "cannot get your name\n") ;
! fflush (stderr) ;
! exit (3) ;
! }
!
! fprintf (name, "%s", getlogin ()) ;
! fclose (name) ;
! return ;
}
*** getw.h Fri Oct 23 16:58:46 1987
--- new/getw.h Thu Nov 19 09:38:31 1987
***************
*** 1 ****
--- 1,2 ----
procedure getwh(var w: string); external;
+