@@ -0,0 +1,30 @@
	1	+#!/bin/rc
	2	+
	3	+if(! test -f /mnt/apm/battery){
	4	+ echo no apm >[1=2]
	5	+ exit 'no apm'
	6	+}
	7	+
	8	+cd /mnt/acme/new
	9	+echo name /dev/apm >ctl
	10	+echo dump Battery >ctl
	11	+
	12	+awkscript='
	13	+NR==1 {
	14	+ if($3 != -1)
	15	+ printf("%d%% %d:%02d %s", $2, $3/3600, ($3/60)%60, $1);
	16	+ else
	17	+ printf("%d%% %s", $2, $1);
	18	+}
	19	+'
	20	+
	21	+fn chk {
	22	+ what=`{awk $awkscript /mnt/apm/battery}
	23	+ echo cleartag >ctl \|\| exit die
	24	+ echo clean >ctl \|\| exit die
	25	+ echo ' '^$"what >tag \|\| exit die
	26	+}
	27	+
	28	+chk
	29	+while(sleep 60)
	30	+ chk

acme/bin/Isspam+13−0

@@ -0,0 +1,13 @@
	1	+#!/bin/rc
	2	+
	3	+if(! ~ $#* 0){
	4	+ echo usage: Isspam >[1=2]
	5	+ exit usage
	6	+}
	7	+
	8	+if(! ~ `{pwd} /mail/fs//[0-9] \|\| ! test -f raw \|\| ! test -f unixheader){
	9	+ echo must run in mail directory >[1=2]
	10	+ exit 'bad dir'
	11	+}
	12	+
	13	+cat unixheader raw \| upas/isspam

acme/bin/Mail+9−0

@@ -0,0 +1,9 @@
	1	+#!/bin/rc
	2	+
	3	+#/mail/fs is read-protected unless fs is mounted
	4	+test -r /mail/fs \|\| {
	5	+ if(test -d /mnt/term/mail/fs/mbox) bind /mnt/term/mail/fs /mail/fs
	6	+ if not upas/fs
	7	+}
	8	+
	9	+exec /acme/bin/$objtype/Mail $*

acme/bin/Perl+7−0

@@ -0,0 +1,7 @@
	1	+#!/bin/rc
	2	+
	3	+# aperl:
	4	+# Executes perl command and alters stderr to produce Acme-friendly error messages
	5	+# Created 02-JUL-1996, Luther Huffman, lutherh@stratcom.com
	6	+
	7	+/bin/perl $* \|[2] /bin/perl -pe 's/ line (\d+)/:$1 /' >[1=2]

acme/bin/README+3−0

@@ -0,0 +1,3 @@
	1	+The source directory should be called ./src instead of ./source,
	2	+but this directory is bound into /bin and there is a command called
	3	+src that the local directory would hide.

acme/bin/Spam+13−0

@@ -0,0 +1,13 @@
	1	+#!/bin/rc
	2	+
	3	+if(! ~ $#* 0){
	4	+ echo usage: Spam >[1=2]
	5	+ exit usage
	6	+}
	7	+
	8	+if(! ~ `{pwd} /mail/fs//[0-9] \|\| ! test -f raw \|\| ! test -f unixheader){
	9	+ echo must run in mail directory >[1=2]
	10	+ exit 'bad dir'
	11	+}
	12	+
	13	+cat unixheader raw \| upas/spam

acme/bin/Unspam+13−0

@@ -0,0 +1,13 @@
	1	+#!/bin/rc
	2	+
	3	+if(! ~ $#* 0){
	4	+ echo usage: Unspam >[1=2]
	5	+ exit usage
	6	+}
	7	+
	8	+if(! ~ `{pwd} /mail/fs//[0-9] \|\| ! test -f raw \|\| ! test -f unixheader){
	9	+ echo must run in mail directory >[1=2]
	10	+ exit 'bad dir'
	11	+}
	12	+
	13	+cat unixheader raw \| upas/unspam

acme/bin/adiff+24−0

@@ -0,0 +1,24 @@
	1	+#!/bin/rc
	2	+
	3	+if(~ $#* 0 1){
	4	+ echo >[1=2] usage: adiff file1 file2
	5	+ echo >[1=2] or adiff file1 file2... dir
	6	+ exit usage
	7	+}
	8	+
	9	+dir = /mnt/wsys
	10	+if(! test -f $dir/cons)
	11	+ dir = /mnt/term/$dir
	12	+id=`{cat $dir/new/ctl}
	13	+id=$id(1)
	14	+
	15	+l=$1
	16	+r=$2
	17	+if (test -d $1) l=$1/`{basename $2}
	18	+if not if (test -d $2) r=$2/`{basename $1}
	19	+
	20	+echo 'name '^`{pwd}^/-diff-^`{basename $l} > $dir/$id/ctl
	21	+
	22	+diff $* \| awk -v 'l='$l -v 'r='^$r '/^diff/ {l=$2; r=$3; next} /^[1-9]/ {sub("[acd]", " & " r ":"); sub("^", l ":", $0)}
	23	+ {print $0}' > $dir/$id/body
	24	+echo clean > $dir/$id/ctl

acme/bin/agrep+3−0

@@ -0,0 +1,3 @@
	1	+#!/bin/rc
	2	+
	3	+exec grep -n $* /dev/null

acme/bin/amd64/Mail+0−0

Binary file not shown.

acme/bin/amd64/News+0−0

Binary file not shown.

acme/bin/amd64/Wiki+0−0

Binary file not shown.

acme/bin/amd64/mkwnew+0−0

Binary file not shown.

acme/bin/amd64/spout+0−0

Binary file not shown.

acme/bin/amd64/win+0−0

Binary file not shown.

acme/bin/ap+12−0

@@ -0,0 +1,12 @@
	1	+#!/bin/rc
	2	+args=''
	3	+while(~ $1 -*) {
	4	+ args=$args^' '^$1
	5	+ shift 1
	6	+}
	7	+if (~ $#1 0)
	8	+ sysname=alice
	9	+if not
	10	+ sysname=$1
	11	+if (! test -f /n/$sysname/usr/spool/ap ) { 9fs $sysname }
	12	+eval exec /acme/bin/$cputype/apread $args $sysname

acme/bin/aspell+43−0

@@ -0,0 +1,43 @@
	1	+#!/bin/rc
	2	+
	3	+spellflags=()
	4	+fflag=''
	5	+for(x){
	6	+ switch($x){
	7	+ case -[bcvx]
	8	+ spellflags=($spellflags $x)
	9	+ case -f
	10	+ fflag=$x
	11	+ case *
	12	+ if(~ $fflag -f) {
	13	+ spellflags=($spellflags -f $x)
	14	+ fflag=''
	15	+ }
	16	+ if not args = ($args $x)
	17	+ }
	18	+}
	19	+
	20	+dir = /mnt/wsys
	21	+if(! test -f $dir/cons)
	22	+ dir = /mnt/term/$dir
	23	+id=`{cat $dir/new/ctl}
	24	+id=$id(1)
	25	+
	26	+if(~ $#args 1 && ~ $args /*){
	27	+ adir = `{basename -d $args}
	28	+ args = `{basename $args}
	29	+ echo 'name '^$adir^/-spell > $dir/$id/ctl
	30	+ cd $adir
	31	+}
	32	+if not {
	33	+ echo 'name '^`{pwd}^/-spell > $dir/$id/ctl
	34	+}
	35	+
	36	+{
	37	+ echo noscroll
	38	+ if(~ $#args 0)
	39	+ /acme/bin/$cputype/spout \| sort -t: -u +2 \| sort -t: +1.1n \| aux/sprog -a $spellflags > $dir/$id/body
	40	+ if not for(i in $args)
	41	+ /acme/bin/$cputype/spout $i \| sort -t: -u +2 \| sort -t: +1.1n \| aux/sprog -a $spellflags > $dir/$id/body
	42	+ echo clean
	43	+}> $dir/$id/ctl

acme/bin/guide+4−0

@@ -0,0 +1,4 @@
	1	+win
	2	+aspell file
	3	+adiff file1 file2
	4	+adict -d oed

acme/bin/ind+3−0

@@ -0,0 +1,3 @@
	1	+#!/bin/rc
	2	+
	3	+sed 's/^/ /' $*

acme/bin/new+10−0

@@ -0,0 +1,10 @@
	1	+#!/bin/rc
	2	+
	3	+id=`{cat /mnt/acme/new/ctl}
	4	+id=$id(1)
	5	+cmd = $*
	6	+if(~ $#cmd 0) cmd = cat
	7	+
	8	+echo 'name '^`{pwd}^/-^`{basename $cmd(1)} > /mnt/acme/$id/ctl
	9	+$cmd > /mnt/acme/$id/body
	10	+echo clean > /mnt/acme/$id/ctl

acme/bin/quote+3−0

@@ -0,0 +1,3 @@
	1	+#!/bin/rc
	2	+
	3	+sed 's/^/> /' $*

acme/bin/source/6.mkwnew+0−0

Binary file not shown.

acme/bin/source/6.spout+0−0

Binary file not shown.

acme/bin/source/8.mkwnew+0−0

Binary file not shown.

acme/bin/source/8.spout+0−0

Binary file not shown.

acme/bin/source/acd/README+33−0

@@ -0,0 +1,33 @@
	1	+This is a CD player for use under Acme.
	2	+
	3	+It is derived from my earlier cdplay, which
	4	+was in turn derived from a 2nd edition player
	5	+called vcd. I think hardly any of the code from
	6	+vcd is left anymore, but it's what got me started.
	7	+Vcd was originally by David Hogan with additions
	8	+by Alberto Nava. David Hogan claims the only
	9	+code left is the definition of struct Msf.
	10	+
	11	+Run it by executing "acd /dev/sdD0", where
	12	+/dev/sdD0 is your CD reader.
	13	+
	14	+A window with a track list will appear, with
	15	+tracks named Track 1, Track 2, etc.
	16	+If it can be found in the freedb.org CD database,
	17	+real track names will replace the boring
	18	+ones before long.
	19	+
	20	+To start playing a track, right click the number.
	21	+A "> " marks the currently playing track.
	22	+When that track finishes, acd plays the track
	23	+on the next line. This means you can edit
	24	+the window as thought it were a play list.
	25	+
	26	+If the next line is "repeat", acd will start again
	27	+at the first song listed in the window.
	28	+
	29	+CD changes are handled gracefully.
	30	+
	31	+Russ Cox
	32	+9 August 2000
	33	+rsc@plan9.bell-labs.com

acme/bin/source/acd/access+243−0

@@ -0,0 +1,243 @@
	1	+TWO FORMS OF ACCESS TO THE FREEDB
	2	+---------------------------------
	3	+
	4	+In the following document we will refer to CDDB instead of freedb, since
	5	+from a technical point of view, freedb is a CDDB-Server as it uses the
	6	+CDDB-protocol.
	7	+
	8	+If you are interested in incorporating the use of freedb in your
	9	+software, there are two forms of access that you may consider.
	10	+
	11	+1. <a href="#local">Local access</a>
	12	+
	13	+ In this mode your software simply attempts to open local files on
	14	+ the computer to access the CDDB.
	15	+
	16	+2. <a href="#remote">Remote access</a>
	17	+
	18	+ In this mode the software must connect to a freedb server on the
	19	+ network to access the CDDB. There is a CDDB server protocol that
	20	+ the software (also known as the "client") must use to converse with
	21	+ the server.
	22	+
	23	+You may choose to support either one, or both of these modes.
	24	+
	25	+
	26	+CDDB DISCID
	27	+-----------
	28	+
	29	+Both forms of CDDB access requires that the software computes a "disc
	30	+ID" which is an identifier that is used to access the CDDB. The disc
	31	+ID is a 8-digit hexadecimal (base-16) number, computed using data from
	32	+a CD's Table-of-Contents (TOC) in MSF (Minute Second Frame) form. The
	33	+algorithm is listed below in the <a href="http://freedb.freedb.org/sections.php?op=viewarticle&artid=6">DISCID Howto</a>.
	34	+
	35	+It is crucial that your software compute the disc ID correctly. If it
	36	+does not generate the disc ID, it will not be compatible with the
	37	+CDDB. Moreover, if your software submits CDDB entries with bad disc
	38	+IDs to the freedb archives, it could compromise the integrity of the
	39	+freedb.
	40	+
	41	+If you have access to a UNIX platform that xmcd supports, we suggest
	42	+installing xmcd, and then test the disc ID code in your software by
	43	+comparing the disc ID generated by xmcd with that of your software,
	44	+for as large a number of CDs as possible.
	45	+
	46	+
	47	+<a name="local"></a>LOCAL CDDB ACCESS
	48	+-----------------
	49	+
	50	+There are two forms of the CDDB archive available, the standard form
	51	+and the alternate form. Both forms are available for download from
	52	+various servers. You can always find an actual list of mirrors on the
	53	+freedb-homepage at <a href="http://freedb.freedb.org">http://freedb.freedb.org</a>.
	54	+The standard form of the CDDB archive is released to the public as
	55	+a UNIX tar(1)-format archive, compressed with gzip. The alternate
	56	+form archive is in the .zip format that is popular on the Windows
	57	+platform.
	58	+
	59	+Standard Form:
	60	+--------------
	61	+
	62	+Each CD entry is a separate file in the xmcd CDDB. These files are
	63	+organized in several directories, each directory is a category of
	64	+music. Currently the "official" categories are listed as follows:
	65	+
	66	+ blues
	67	+ classical
	68	+ country
	69	+ data
	70	+ folk
	71	+ jazz
	72	+ misc
	73	+ newage
	74	+ reggae
	75	+ rock
	76	+ soundtrack
	77	+
	78	+The individual CDDB files have a file name that is the 8-digit disc
	79	+ID. For example, under the blues directory there may be the following
	80	+files:
	81	+
	82	+ 0511c012
	83	+ 060e7314
	84	+ 0c01e902
	85	+ 0f0c3112
	86	+ ...
	87	+ fa0f6f10
	88	+ fb0f8814
	89	+ fd0e6013
	90	+
	91	+To access the CDDB entry associated with a CD, your software simply
	92	+opens the appropriate file and reads the information.
	93	+
	94	+The content of each of these files is in a format described in the
	95	+<a href="http://freedb.freedb.org/software/old/DBFORMAT">database-format specification</a>.
	96	+
	97	+Different pressings of a particular CD title may contain differences
	98	+in timings that can cause the computed disc ID to be different.
	99	+The CDDB allows this by having multiple file names be links to
	100	+the same file. The links are implemented as actual filesystem links
	101	+(see the ln(1) command) on UNIX systems. For example, the following
	102	+files in the rock directory are all links to the same file, and
	103	+refer to the CD "Pink Floyd / The Division Bell".:
	104	+
	105	+ 850f740b
	106	+ 850f950b
	107	+ 850f970b
	108	+ 860f960b
	109	+ 890f970b
	110	+
	111	+Xmcd and the CD database server use this form of the CDDB archive. The
	112	+benefit of the standard form of the CDDB archive is very fast access,
	113	+and ease of add/delete/edit operations on entries.
	114	+
	115	+Alternate Form:
	116	+---------------
	117	+
	118	+Due to limitations in the FAT file system used on Windows 9x and
	119	+Windows ME, it is unfeasible to use the standard format CDDB archive
	120	+due to the large number of files. This is because such a filesystem
	121	+operates on fixed-size clusters and even a small file (and most CDDB
	122	+files are 1KB or less) would consume the space of a full cluster
	123	+(Depending upon disk size, a cluster can range from 4KB to 32KB in
	124	+size). Thus, a tremendous amount of disk space would be wasted on
	125	+these systems if the CDDB archive is used in its standard form.
	126	+
	127	+An alternate form of the CDDB archives was created for use by software
	128	+that must operate on a system with the FAT limitations.
	129	+
	130	+The alterate form still use the separate category directories as the
	131	+standard form, but concatenates many files into a smaller number of
	132	+files under each category. The first two digits of the CDDB file names
	133	+is used as a key for concatenation, each file is allowed to grow to
	134	+approximately 64KB in size before a new file is started. The file name
	135	+indicates what range of the digits are included in that file. For
	136	+example, under the blues category we may have the following files:
	137	+
	138	+ 01to36
	139	+ 37to55
	140	+ 56to71
	141	+ ...
	142	+ b2tod7
	143	+ d8toff
	144	+
	145	+The 01to36 file contains all CDDB entries with disc ID 01xxxxxx,
	146	+02xxxxxx, 03xxxxxx and so on, up to 36xxxxxx.
	147	+
	148	+Each entry in the concatenated file begins with the keyword
	149	+
	150	+#FILENAME=xxxxxxxx
	151	+
	152	+where discid is the 8-digit hexadecimal disc ID of that entry. Your
	153	+software must search through the appropriate file to locate the desired
	154	+entry. The CDDB entry is in the format described in Appendix B below.
	155	+
	156	+The alternate form avoids the problem of inefficient disk space
	157	+utilization on FAT-based filesystems, but is slower to access than the
	158	+standard form, and it is much more cumbersome to perform add/delete/edit
	159	+operations on a CDDB entry.
	160	+
	161	+
	162	+<a name="remote"></a>REMOTE CDDB ACCESS
	163	+------------------
	164	+
	165	+Your software must be able to communicate with a remote CD server
	166	+system via TCP/IP or HTTP.
	167	+There are a number of public freedb servers operating
	168	+on the Internet. The <a href="http://freedb.freedb.org/sections.php?op=viewarticle&artid=9">current list of public servers</a> is listed on the
	169	+freedb web page at:
	170	+
	171	+ http://freedb.freedb.org.
	172	+
	173	+It may also be obtained programmatically via the CDDB protocol "sites"
	174	+command.
	175	+
	176	+TCP/IP access:
	177	+
	178	+All current freedb servers answer at TCP port 888. There may be future
	179	+sites that deviate from this convention, however.
	180	+
	181	+HTTP access:
	182	+
	183	+The freedb-servers can be accessed via the cddb.cgi. This is resides at the
	184	+following path: /~cddb/cddb.cgi
	185	+Thus, the URL for accessing the server at freedb.freedb.org is:
	186	+http://freedb.freedb.org/~cddb/cddb.cgi
	187	+
	188	+You should make the freedb server host (or hosts) and port numbers
	189	+user-configurable in your software. Do not hard-wire the list of
	190	+CD database servers into your code. The list of active servers changes
	191	+over time.
	192	+
	193	+The CDDB server protocol is described in the <a href="http://freedb.freedb.org/sections.php?op=viewarticle&artid=28">CDDB-protocol documentation</a>.
	194	+
	195	+The CDDB entry returned from the server via a "cddb read" command is in
	196	+the format described <a href="http://freedb.freedb.org/software/old/DBFORMAT">database-format specification</a>.
	197	+
	198	+You may experiment with the freedb server by connecting to port 888 of
	199	+the server host via the "telnet" program, and then typing the cddb
	200	+protocol commands by hand. For example:
	201	+
	202	+ telnet freedb.freedb.org 888
	203	+
	204	+connects you to the freedb server at freedb.freedb.org.
	205	+
	206	+Some additional notes for accessing freedb over the Internet:
	207	+
	208	+Your application should always specify the highest documented protocol
	209	+level. The highest level currently supported is "3". Lower protocol
	210	+levels will work, but are only provided for compatibility with older
	211	+CDDB applications. If you do not use the highest available protocol
	212	+level, certain important features will not be available to your
	213	+application.
	214	+
	215	+Make sure to use the proper arguments with the "hello" command. The user
	216	+and hostname arguments should be that of the user's email address, not
	217	+some fixed hard-coded value. The application name and version should be
	218	+that of your application, not that of another existing application.
	219	+
	220	+We consider the use of the "cddb query" command mandatory for all CDDB
	221	+clients. It is not valid to issue a "cddb read" command without issuing
	222	+a prior "cddb query" and receiving a good response, as it may yield incorrect
	223	+results. In addition, it is clients should support close matches
	224	+(aka "fuzzy" matches, or response code 211).
	225	+
	226	+The proper way to handle multiple fuzzy matches is to present the
	227	+entire list of matches to the user and to let the user choose between them.
	228	+Matches are listed in the order of best fit for the user's disc, so they
	229	+should be presented to the user in the order they are listed by the server.
	230	+
	231	+The suggested algorithm for obtaining the list of server sites is
	232	+as follows. The application should offer to get the list from
	233	+freedb.freedb.org with the "sites" command the first time the user runs
	234	+the program. Additionally the application should provide the user with
	235	+some method of downloading the list on-demand.
	236	+
	237	+We do strongly suggest that you provide your users with the capability of
	238	+choosing freedb server sites as described above. However, for some
	239	+applications this may not be feasible. If you do not wish to offer this
	240	+functionality, you may safely hard-code "freedb.freedb.org" in your
	241	+application as the sole freedb site to access. This will deprive your users
	242	+of the option to choose a site near their locale for optimal response, but
	243	+that is your choice.

acme/bin/source/acd/acd.h+171−0

@@ -0,0 +1,171 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <disk.h>
	5	+#include <auth.h>
	6	+#include <fcall.h>
	7	+#include <thread.h>
	8	+#include <9p.h>
	9	+
	10	+/* acme */
	11	+typedef struct Event Event;
	12	+typedef struct Window Window;
	13	+
	14	+enum
	15	+{
	16	+ STACK = 16384,
	17	+ EVENTSIZE = 256,
	18	+ NEVENT = 5,
	19	+};
	20	+
	21	+struct Event
	22	+{
	23	+ int c1;
	24	+ int c2;
	25	+ int q0;
	26	+ int q1;
	27	+ int flag;
	28	+ int nb;
	29	+ int nr;
	30	+ char b[EVENTSIZE*UTFmax+1];
	31	+ Rune r[EVENTSIZE+1];
	32	+};
	33	+
	34	+struct Window
	35	+{
	36	+ /* file descriptors */
	37	+ int ctl;
	38	+ int event;
	39	+ int addr;
	40	+ int data;
	41	+ Biobuf *body;
	42	+
	43	+ /* event input */
	44	+ char buf[512];
	45	+ char *bufp;
	46	+ int nbuf;
	47	+ Event e[NEVENT];
	48	+
	49	+ int id;
	50	+ int open;
	51	+ Channel cevent; / chan(Event) /
	52	+};
	53	+
	54	+extern Window* newwindow(void);
	55	+extern int winopenfile(Window, char);
	56	+extern void winopenbody(Window*, int);
	57	+extern void winclosebody(Window*);
	58	+extern void wintagwrite(Window, char, int);
	59	+extern void winname(Window, char);
	60	+extern void winwriteevent(Window, Event);
	61	+extern void winread(Window, uint, uint, char);
	62	+extern int windel(Window*, int);
	63	+extern void wingetevent(Window, Event);
	64	+extern void wineventproc(void*);
	65	+extern void winwritebody(Window, char, int);
	66	+extern void winclean(Window*);
	67	+extern int winselect(Window, char, int);
	68	+extern int winsetaddr(Window, char, int);
	69	+extern char* winreadbody(Window, int);
	70	+extern void windormant(Window*);
	71	+extern void winsetdump(Window, char, char*);
	72	+
	73	+extern char* readfile(char, char, int*);
	74	+extern void ctlprint(int, char*, ...);
	75	+extern void* emalloc(uint);
	76	+extern char* estrdup(char*);
	77	+extern char* estrstrdup(char, char);
	78	+extern char* egrow(char, char, char*);
	79	+extern char* eappend(char, char, char*);
	80	+extern void error(char*, ...);
	81	+extern int tokenizec(char, char, int, char);
	82	+
	83	+/* cd stuff */
	84	+typedef struct Msf Msf; /* minute, second, frame */
	85	+struct Msf {
	86	+ int m;
	87	+ int s;
	88	+ int f;
	89	+};
	90	+
	91	+typedef struct Track Track;
	92	+struct Track {
	93	+ Msf start;
	94	+ Msf end;
	95	+ ulong bstart;
	96	+ ulong bend;
	97	+ char *title;
	98	+};
	99	+
	100	+enum {
	101	+ MTRACK = 64,
	102	+};
	103	+typedef struct Toc Toc;
	104	+struct Toc {
	105	+ int ntrack;
	106	+ int nchange;
	107	+ int changetime;
	108	+ int track0;
	109	+ Track track[MTRACK];
	110	+ char *title;
	111	+};
	112	+
	113	+extern int msfconv(Fmt*);
	114	+
	115	+#pragma varargck argpos error 1
	116	+#pragma varargck argpos ctlprint 2
	117	+#pragma varargck type "M" Msf
	118	+
	119	+enum { /* state */
	120	+ Sunknown,
	121	+ Splaying,
	122	+ Spaused,
	123	+ Scompleted,
	124	+ Serror,
	125	+};
	126	+
	127	+typedef struct Cdstatus Cdstatus;
	128	+struct Cdstatus {
	129	+ int state;
	130	+ int track;
	131	+ int index;
	132	+ Msf abs;
	133	+ Msf rel;
	134	+};
	135	+
	136	+typedef struct Drive Drive;
	137	+struct Drive {
	138	+ Window *w;
	139	+ Channel cstatus; / chan(Cdstatus) */
	140	+ Channel ctocdisp; / chan(Toc) */
	141	+ Channel cdbreq; / chan(Toc) */
	142	+ Channel cdbreply; / chan(Toc) */
	143	+ Scsi *scsi;
	144	+ Toc toc;
	145	+ Cdstatus status;
	146	+};
	147	+
	148	+int gettoc(Scsi, Toc);
	149	+void drawtoc(Window, Drive, Toc*);
	150	+void redrawtoc(Window, Toc);
	151	+void tocproc(void); / Drive* */
	152	+void cddbproc(void); / Drive* */
	153	+void cdstatusproc(void); / Drive* */
	154	+
	155	+extern int debug;
	156	+
	157	+#define DPRINT if(debug)fprint
	158	+void acmeevent(Drive, Window, Event*);
	159	+
	160	+int playtrack(Drive*, int, int);
	161	+int pause(Drive*);
	162	+int resume(Drive*);
	163	+int stop(Drive*);
	164	+int eject(Drive*);
	165	+int ingest(Drive*);
	166	+
	167	+int markplay(Window*, ulong);
	168	+int setplaytime(Window, char);
	169	+void advancetrack(Drive, Window);
	170	+
	171	+

acme/bin/source/acd/acme.c+347−0

@@ -0,0 +1,347 @@
	1	+#include "acd.h"
	2	+
	3	+static int
	4	+iscmd(char s, char cmd)
	5	+{
	6	+ int len;
	7	+
	8	+ len = strlen(cmd);
	9	+ return strncmp(s, cmd, len)==0 && (s[len]=='\0' \|\| s[len]==' ' \|\| s[len]=='\t' \|\| s[len]=='\n');
	10	+}
	11	+
	12	+static char*
	13	+skip(char s, char cmd)
	14	+{
	15	+ s += strlen(cmd);
	16	+ while(s==' ' \|\| s=='\t' \|\| *s=='\n')
	17	+ s++;
	18	+ return s;
	19	+}
	20	+
	21	+//#define PLAYSTRING "/^[0-9:]+>"
	22	+//#define PLAYSTRINGSPACE "/^[0-9:]+> ?"
	23	+//#define INITSTRING "0:00> "
	24	+
	25	+#define INITSTRING "> "
	26	+#define PLAYSTRING "/^>"
	27	+#define PLAYSTRINGSPACE "/^> ?"
	28	+
	29	+/*
	30	+ * find the playing string, leave in addr
	31	+ * if q0, q1 are non-nil, set them to the addr of the string.
	32	+ */
	33	+int
	34	+findplay(Window w, char s, ulong q0, ulong q1)
	35	+{
	36	+ char xbuf[25];
	37	+ if(w->data < 0)
	38	+ w->data = winopenfile(w, "data");
	39	+
	40	+ if(!winsetaddr(w, "#0", 1) \|\| !winsetaddr(w, s, 1))
	41	+ return 0;
	42	+
	43	+ seek(w->addr, 0, 0);
	44	+ if(read(w->addr, xbuf, 24) != 24)
	45	+ return 0;
	46	+
	47	+ xbuf[24] = 0;
	48	+ if(q0)
	49	+ *q0 = atoi(xbuf);
	50	+ if(q1)
	51	+ *q1 = atoi(xbuf+12);
	52	+
	53	+ return 1;
	54	+}
	55	+
	56	+/*
	57	+ * find the playing string and replace the time
	58	+ */
	59	+int
	60	+setplaytime(Window w, char new)
	61	+{
	62	+ char buf[40];
	63	+ ulong q0, q1;
	64	+
	65	+return 1;
	66	+ if(!findplay(w, PLAYSTRING, &q0, &q1))
	67	+ return 0;
	68	+
	69	+ q1--; /* > */
	70	+ sprint(buf, "#%lud,#%lud", q0, q1);
	71	+ DPRINT(2, "setaddr %s\n", buf);
	72	+ if(!winsetaddr(w, buf, 1))
	73	+ return 0;
	74	+
	75	+ if(write(w->data, new, strlen(new)) != strlen(new))
	76	+ return 0;
	77	+
	78	+ return 1;
	79	+}
	80	+
	81	+/*
	82	+ * find the playing string, and remove it.
	83	+ * return the string at the beginning of hte next line in buf
	84	+ * (presumably a track number).
	85	+ */
	86	+static int
	87	+unmarkplay(Window w, char buf, int n, ulong q0, ulong q1, ulong *qbegin)
	88	+{
	89	+ char xbuf[24];
	90	+
	91	+ if(!findplay(w, PLAYSTRINGSPACE, q0, q1))
	92	+ return 0;
	93	+
	94	+ if(write(w->data, "", 0) < 0 \|\| !winsetaddr(w, "+1+#0", 1))
	95	+ return 0;
	96	+
	97	+ if(qbegin) {
	98	+ seek(w->addr, 0, 0);
	99	+ if(read(w->addr, xbuf, 24) != 24)
	100	+ return 0;
	101	+ *qbegin = atoi(xbuf);
	102	+ }
	103	+
	104	+ if(buf) {
	105	+ if((n = read(w->data, buf, n-1)) < 0)
	106	+ return 0;
	107	+
	108	+ buf[n] = '\0';
	109	+ }
	110	+
	111	+ return 1;
	112	+}
	113	+
	114	+int
	115	+markplay(Window *w, ulong q0)
	116	+{
	117	+ char buf[20];
	118	+
	119	+ if(w->data < 0)
	120	+ w->data = winopenfile(w, "data");
	121	+
	122	+ sprint(buf, "#%lud", q0);
	123	+ DPRINT(2, "addr %s\n", buf);
	124	+ if(!winsetaddr(w, buf, 1) \|\| !winsetaddr(w, "-0", 1))
	125	+ return 0;
	126	+ if(write(w->data, INITSTRING, strlen(INITSTRING)) != strlen(INITSTRING))
	127	+ return 0;
	128	+ return 1;
	129	+}
	130	+
	131	+/* return 1 if handled, 0 otherwise */
	132	+int
	133	+cdcommand(Window w, Drive d, char *s)
	134	+{
	135	+ s = skip(s, "");
	136	+
	137	+ if(iscmd(s, "Del")){
	138	+ if(windel(w, 0))
	139	+ threadexitsall(nil);
	140	+ return 1;
	141	+ }
	142	+ if(iscmd(s, "Stop")){
	143	+ unmarkplay(w, nil, 0, nil, nil, nil);
	144	+ stop(d);
	145	+ return 1;
	146	+ }
	147	+ if(iscmd(s, "Eject")){
	148	+ unmarkplay(w, nil, 0, nil, nil, nil);
	149	+ eject(d);
	150	+ return 1;
	151	+ }
	152	+ if(iscmd(s, "Ingest")){
	153	+ unmarkplay(w, nil, 0, nil, nil, nil);
	154	+ ingest(d);
	155	+ return 1;
	156	+ }
	157	+ if(iscmd(s, "Pause")){
	158	+ pause(d);
	159	+ return 1;
	160	+ }
	161	+ if(iscmd(s, "Resume")){
	162	+ resume(d);
	163	+ return 1;
	164	+ }
	165	+ return 0;
	166	+}
	167	+
	168	+void
	169	+drawtoc(Window w, Drive d, Toc *t)
	170	+{
	171	+ int i, playing;
	172	+
	173	+ if(w->data < 0)
	174	+ w->data = winopenfile(w, "data");
	175	+ if(!winsetaddr(w, ",", 1))
	176	+ return;
	177	+
	178	+ fprint(w->data, "Title\n\n");
	179	+ playing = -1;
	180	+ if(d->status.state == Splaying \|\| d->status.state == Spaused)
	181	+ playing = d->status.track-t->track0;
	182	+
	183	+ for(i=0; i<t->ntrack; i++)
	184	+ fprint(w->data, "%s%d/ Track %d\n", i==playing ? "> " : "", i+1, i+1);
	185	+ fprint(w->data, "");
	186	+}
	187	+
	188	+void
	189	+redrawtoc(Window w, Toc t)
	190	+{
	191	+ int i;
	192	+ char old[50];
	193	+
	194	+ if(w->data < 0)
	195	+ w->data = winopenfile(w, "data");
	196	+ if(t->title) {
	197	+ if(winsetaddr(w, "/Title", 1))
	198	+ write(w->data, t->title, strlen(t->title));
	199	+ }
	200	+ for(i=0; i<t->ntrack; i++) {
	201	+ if(t->track[i].title) {
	202	+ sprint(old, "/Track %d", i+1);
	203	+ if(winsetaddr(w, old, 1))
	204	+ write(w->data, t->track[i].title, strlen(t->track[i].title));
	205	+ }
	206	+ }
	207	+}
	208	+
	209	+void
	210	+advancetrack(Drive d, Window w)
	211	+{
	212	+ int n;
	213	+ ulong q0, q1, qnext;
	214	+ char buf[20];
	215	+
	216	+ q0 = q1 = 0;
	217	+ if(!unmarkplay(w, buf, sizeof(buf), &q0, &q1, &qnext)) {
	218	+ DPRINT(2, "unmark: %r\n");
	219	+ return;
	220	+ }
	221	+
	222	+ DPRINT(2, "buf: %s\n", buf);
	223	+ if(strncmp(buf, "repeat", 6) == 0) {
	224	+ if(!winsetaddr(w, "#0", 1) \|\| !findplay(w, "/^[0-9]+\\/", &qnext, nil)) {
	225	+ DPRINT(2, "set/find: %r\n");
	226	+ return;
	227	+ }
	228	+ if(w->data < 0)
	229	+ w->data = winopenfile(w, "data");
	230	+ if((n = read(w->data, buf, sizeof(buf)-1)) <= 0) {
	231	+ DPRINT(2, "read %d: %r\n", n);
	232	+ return;
	233	+ }
	234	+ buf[n] = 0;
	235	+ DPRINT(2, "buf: %s\n", buf);
	236	+ }
	237	+
	238	+ if((n = atoi(buf)) == 0)
	239	+ return;
	240	+
	241	+ if(!markplay(w, qnext))
	242	+ DPRINT(2, "err: %r");
	243	+
	244	+ playtrack(d, n-1, n-1);
	245	+}
	246	+
	247	+void
	248	+acmeevent(Drive d, Window w, Event *e)
	249	+{
	250	+ Event ea, e2, *eq;
	251	+ char s, t, *buf;
	252	+ int n, na;
	253	+ ulong q0, q1;
	254	+
	255	+ switch(e->c1){ /* origin of action */
	256	+ default:
	257	+ Unknown:
	258	+ fprint(2, "unknown message %c%c\n", e->c1, e->c2);
	259	+ break;
	260	+
	261	+ case 'E': /* write to body or tag; can't affect us */
	262	+ break;
	263	+
	264	+ case 'F': /* generated by our actions; ignore */
	265	+ break;
	266	+
	267	+ case 'K': /* type away; we don't care */
	268	+ break;
	269	+
	270	+ case 'M': /* mouse event */
	271	+ switch(e->c2){ /* type of action */
	272	+ case 'x': /* mouse: button 2 in tag */
	273	+ case 'X': /* mouse: button 2 in body */
	274	+ ea = nil;
	275	+ // e2 = nil;
	276	+ s = e->b;
	277	+ if(e->flag & 2){ /* null string with non-null expansion */
	278	+ e2 = recvp(w->cevent);
	279	+ if(e->nb==0)
	280	+ s = e2->b;
	281	+ }
	282	+ if(e->flag & 8){ /* chorded argument */
	283	+ ea = recvp(w->cevent); /* argument */
	284	+ na = ea->nb;
	285	+ recvp(w->cevent); /* ignore origin */
	286	+ }else
	287	+ na = 0;
	288	+
	289	+ /* append chorded arguments */
	290	+ if(na){
	291	+ t = emalloc(strlen(s)+1+na+1);
	292	+ sprint(t, "%s %s", s, ea->b);
	293	+ s = t;
	294	+ }
	295	+ /* if it's a known command, do it */
	296	+ /* if it's a long message, it can't be for us anyway */
	297	+ DPRINT(2, "exec: %s\n", s);
	298	+ if(!cdcommand(w, d, s)) /* send it back */
	299	+ winwriteevent(w, e);
	300	+ if(na)
	301	+ free(s);
	302	+ break;
	303	+
	304	+ case 'l': /* mouse: button 3 in tag */
	305	+ case 'L': /* mouse: button 3 in body */
	306	+ // buf = nil;
	307	+ eq = e;
	308	+ if(e->flag & 2){
	309	+ e2 = recvp(w->cevent);
	310	+ eq = e2;
	311	+ }
	312	+ s = eq->b;
	313	+ if(eq->q1>eq->q0 && eq->nb==0){
	314	+ buf = emalloc((eq->q1-eq->q0)*UTFmax+1);
	315	+ winread(w, eq->q0, eq->q1, buf);
	316	+ s = buf;
	317	+ }
	318	+ DPRINT(2, "load %s\n", s);
	319	+ if((n = atoi(s)) != 0) {
	320	+ DPRINT(2, "mark %d\n", n);
	321	+ q0 = q1 = 0;
	322	+ unmarkplay(w, nil, 0, &q0, &q1, nil);
	323	+
	324	+ /* adjust eq->q* for deletion */
	325	+ if(eq->q0 > q1) {
	326	+ eq->q0 -= (q1-q0);
	327	+ eq->q1 -= (q1-q0);
	328	+ }
	329	+ if(!markplay(w, eq->q0))
	330	+ DPRINT(2, "err: %r\n");
	331	+
	332	+ playtrack(d, n-1, n-1);
	333	+ } else
	334	+ winwriteevent(w, e);
	335	+ break;
	336	+
	337	+ case 'i': /* mouse: text inserted in tag */
	338	+ case 'I': /* mouse: text inserted in body */
	339	+ case 'd': /* mouse: text deleted from tag */
	340	+ case 'D': /* mouse: text deleted from body */
	341	+ break;
	342	+
	343	+ default:
	344	+ goto Unknown;
	345	+ }
	346	+ }
	347	+}

acme/bin/source/acd/cddb+206−0

@@ -0,0 +1,206 @@
	1	+<html><html>
	2	+<head>
	3	+<title>::freedb.org::</title>
	4	+</head>
	5	+
	6	+<body bgcolor="#FFFFFF" text="#000000" link="#101070" vlink="#101070">
	7	+
	8	+<center>
	9	+
	10	+<table cellpadding=0 cellspacing=0 border=0 width="99%" align=center><tr><td align=left>
	11	+<a href="/">
	12	+<table border=0>
	13	+<td bgcolor="#ffffff">
	14	+ <table border=0 width=100% cellpadding=0 cellspacing=0>
	15	+ <td bgcolor=#101070>
	16	+ <table border=0>
	17	+ <td bgcolor=#ffffff><font face="Arial,Helvetica,Lucida" color="#101070" size=8><b>freedb</b></td>
	18	+ <td bgcolor=#101070><font face="Arial,Helvetica,Lucida" color="#ffffff" size=8><b>.org</b></td>
	19	+ </table>
	20	+ </td>
	21	+ <tr>
	22	+ <td align=right><font face="Arial,Helvetica,Lucida" color="#101070" size=2><b>a free approach to cddbp
	23	+ </table>
	24	+</td>
	25	+</table>
	26	+</a>
	27	+</td><td align=right width=100%>
	28	+ <form action="search.php" method=post>
	29	+ <font face=Arial,Helvetica size=2><input type=name name=query width=20 size=20 length=20>
	30	+ </td>
	31	+ <td align=right>  <input type=image src=images/menu/english/search.gif border=0 align=middle></td>
	32	+ </form>
	33	+
	34	+</td></tr></table><br>
	35	+<table cellpadding=0 cellspacing=0 border=0 width="99%" bgcolor=101070><tr><td>
	36	+<table cellpadding=5 cellspacing=1 border=0 width="100%" bgcolor=FFFFFF><tr><td>
	37	+<font face=Lucida,Verdana,Arial,Helvetica size=2>freedb.org - a free approach to cddbp</td></tr></table></td></tr></table><P>
	38	+
	39	+<table width="99%" align=center cellpadding=0 cellspacing=0 border=0><tr>
	40	+ <td valign=top rowspan=5>
	41	+
	42	+<table border=0><tr><td>
	43	+
	44	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	45	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	46	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	47	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>Main Menu</B></font></td>
	48	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	49	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	50	+ </tr></table>
	51	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	52	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	53	+ <tr bgcolor="#ffffff">
	54	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	55	+ <td width="100%">
	56	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	57	+ <td><font face="verdana,helvetica,arial" size="1">
	58	+ <li><a href=index.php>Home</a>
	59	+<li><a href=topics.php>News-Topics</a>
	60	+<li><a href=sections.php?op=listarticles&secid=1>About</a>
	61	+<li><a href=sections.php?op=listarticles&secid=2>Developers</a>
	62	+<li><a href=sections.php?op=listarticles&secid=3>Applications</a>
	63	+<li><a href=sections.php?op=listarticles&secid=7>Download</a>
	64	+<li><a href=forum/index.php>Forum</a>
	65	+<li><a href=http://freedb.music.sk/search/>Web-based Search</a>
	66	+<li><a href=links.php>Web Links</a>
	67	+<li><a href=user.php>Your Account</a>
	68	+<li><a href=submit.php>Submit News</a>
	69	+
	70	+ </font></td>
	71	+ </tr></table>
	72	+
	73	+
	74	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	75	+ </tr>
	76	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	77	+ </table>
	78	+ </td>
	79	+
	80	+
	81	+
	82	+
	83	+
	84	+
	85	+</tr></td></table>
	86	+<br>
	87	+<table border=0><tr><td>
	88	+
	89	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	90	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	91	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	92	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>FAQ</B></font></td>
	93	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	94	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	95	+ </tr></table>
	96	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	97	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	98	+ <tr bgcolor="#ffffff">
	99	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	100	+ <td width="100%">
	101	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	102	+ <td><font face="verdana,helvetica,arial" size="1">
	103	+ Our FAQ can be found <a href="http://freedb.freedb.org/sections.php?op=viewarticle&artid=26">here</a>.<br>
	104	+Please read the FAQ before asking questions via email. </font></td>
	105	+ </tr></table>
	106	+
	107	+
	108	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	109	+ </tr>
	110	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	111	+ </table>
	112	+ </td>
	113	+
	114	+</tr></td></table>
	115	+<br>
	116	+<table border=0><tr><td>
	117	+
	118	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	119	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	120	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	121	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>Contact</B></font></td>
	122	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	123	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	124	+ </tr></table>
	125	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	126	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	127	+ <tr bgcolor="#ffffff">
	128	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	129	+ <td width="100%">
	130	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	131	+ <td><font face="verdana,helvetica,arial" size="1">
	132	+ General questions:<br>
	133	+<a href="mailto:info@freedb.org">info@freedb.org</a><hr>
	134	+Databaseupdates:<br>
	135	+<a href="mailto:updates@freedb.org">updates@freedb.org</a><br>
	136	+(<b>NOT</b> for submission!)<hr>
	137	+Please keep in mind that we are NOT the Nero-Support and please do not send CD-submits to the adresses above.<br>
	138	+Submits have to go to:<br>
	139	+<a href="mailto:freedb-submit@freedb.org">freedb-submit@freedb.org</a> </font></td>
	140	+ </tr></table>
	141	+
	142	+
	143	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	144	+ </tr>
	145	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	146	+ </table>
	147	+ </td>
	148	+
	149	+</tr></td></table>
	150	+<br>
	151	+<table border=0><tr><td>
	152	+
	153	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	154	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	155	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	156	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>Downloads</B></font></td>
	157	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	158	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	159	+ </tr></table>
	160	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	161	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	162	+ <tr bgcolor="#ffffff">
	163	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	164	+ <td width="100%">
	165	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	166	+ <td><font face="verdana,helvetica,arial" size="1">
	167	+ The link to the database downloads is <a href="/sections.php?op=viewarticle&artid=12">here</a> </font></td>
	168	+ </tr></table>
	169	+
	170	+
	171	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	172	+ </tr>
	173	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	174	+ </table>
	175	+ </td>
	176	+
	177	+
	178	+</tr></td></table>
	179	+<td> </td><td valign="top" width="100%">
	180	+
	181	+<!-- columna de inicio -->
	182	+<center>
	183	+ <table border=0 cellpadding=1 cellspacing=0 width=100% bgcolor=000000><tr><td>
	184	+ <table border=0 cellpadding=8 cellspacing=0 width=100% bgcolor=FFFFFF>
	185	+ <tr><td align=left><font face=Arial,Helvetica size=3>
	186	+ <b>Database-format specification</b><br>
	187	+ <font size=2>
	188	+ <br><br>
	189	+ Due to problems with using backslashes on our Webpage, we cannot display the database-format specification directly here.<br>
	190	+But you can find it <a href="http://www.freedb.org/software/old/DBFORMAT">here</a> as a text-document.
	191	+ </tr></td>
	192	+ <tr><td align=center><font face=Arial,Helvetica>
	193	+
	194	+ </tr></td>
	195	+ </table></tr></td></table></center></td><td> </td>
	196	+
	197	+
	198	+</tr></table></td></tr></table><br><br>
	199	+
	200	+<font face=Arial,Helvetica size=1><center>
	201	+<br>
	202	+<br>
	203	+<br>
	204	+<br>
	205	+</body>
	206	+</html>

acme/bin/source/acd/cddb.c+197−0

@@ -0,0 +1,197 @@
	1	+#include "acd.h"
	2	+#include <ctype.h>
	3	+
	4	+/* see CDDBPROTO */
	5	+static ulong
	6	+cddb_sum(int n)
	7	+{
	8	+ int ret;
	9	+ ret = 0;
	10	+ while(n > 0) {
	11	+ ret += n%10;
	12	+ n /= 10;
	13	+ }
	14	+ return ret;
	15	+}
	16	+
	17	+static ulong
	18	+diskid(Toc *t)
	19	+{
	20	+ int i, n, tmp;
	21	+ Msf ms, me;
	22	+
	23	+ n = 0;
	24	+ for(i=0; i < t->ntrack; i++)
	25	+ n += cddb_sum(t->track[i].start.m*60+t->track[i].start.s);
	26	+
	27	+ ms = &t->track[0].start;
	28	+ me = &t->track[t->ntrack].start;
	29	+ tmp = (me->m60+me->s) - (ms->m60+ms->s);
	30	+
	31	+ /*
	32	+ * the spec says n%0xFF rather than n&0xFF. it's unclear which is correct.
	33	+ * most CDs are in the database under both entries.
	34	+ */
	35	+ return ((n & 0xFF) << 24 \| (tmp << 8) \| t->ntrack);
	36	+}
	37	+
	38	+static void
	39	+append(char *d, char s)
	40	+{
	41	+ char *r;
	42	+ if (*d == nil)
	43	+ *d = estrdup(s);
	44	+ else {
	45	+ r = emalloc(strlen(*d) + strlen(s) + 1);
	46	+ strcpy(r, *d);
	47	+ strcat(r, s);
	48	+ free(*d);
	49	+ *d = r;
	50	+ }
	51	+}
	52	+
	53	+static int
	54	+cddbfilltoc(Toc *t)
	55	+{
	56	+ int fd;
	57	+ int i;
	58	+ char p, q;
	59	+ Biobuf bin;
	60	+ Msf *m;
	61	+ char *f[10];
	62	+ int nf;
	63	+ char id, categ;
	64	+ char gottrack[MTRACK];
	65	+ int gottitle;
	66	+
	67	+ fd = dial("tcp!freedb.freedb.org!888", 0, 0, 0);
	68	+ if(fd < 0) {
	69	+ fprint(2, "cannot dial: %r\n");
	70	+ return -1;
	71	+ }
	72	+ Binit(&bin, fd, OREAD);
	73	+
	74	+ if((p=Brdline(&bin, '\n')) == nil \|\| atoi(p)/100 != 2) {
	75	+ died:
	76	+ close(fd);
	77	+ Bterm(&bin);
	78	+ fprint(2, "error talking to server\n");
	79	+ if(p) {
	80	+ p[Blinelen(&bin)-1] = 0;
	81	+ fprint(2, "server says: %s\n", p);
	82	+ }
	83	+ return -1;
	84	+ }
	85	+
	86	+ fprint(fd, "cddb hello gre plan9 9cd 1.0\r\n");
	87	+ if((p = Brdline(&bin, '\n')) == nil \|\| atoi(p)/100 != 2)
	88	+ goto died;
	89	+
	90	+ fprint(fd, "cddb query %8.8lux %d", diskid(t), t->ntrack);
	91	+ DPRINT(2, "cddb query %8.8lux %d", diskid(t), t->ntrack);
	92	+ for(i=0; i<t->ntrack; i++) {
	93	+ m = &t->track[i].start;
	94	+ fprint(fd, " %d", (m->m60+m->s)75+m->f);
	95	+ DPRINT(2, " %d", (m->m60+m->s)75+m->f);
	96	+ }
	97	+ m = &t->track[t->ntrack-1].end;
	98	+ fprint(fd, " %d\r\n", m->m*60+m->s);
	99	+ DPRINT(2, " %d\r\n", m->m*60+m->s);
	100	+
	101	+ if((p = Brdline(&bin, '\n')) == nil \|\| atoi(p)/100 != 2)
	102	+ goto died;
	103	+ p[Blinelen(&bin)-1] = 0;
	104	+ DPRINT(2, "cddb: %s\n", p);
	105	+ nf = tokenize(p, f, nelem(f));
	106	+ if(nf < 1)
	107	+ goto died;
	108	+
	109	+ switch(atoi(f[0])) {
	110	+ case 200: /* exact match */
	111	+ if(nf < 3)
	112	+ goto died;
	113	+ categ = f[1];
	114	+ id = f[2];
	115	+ break;
	116	+ case 211: /* close matches */
	117	+ if((p = Brdline(&bin, '\n')) == nil)
	118	+ goto died;
	119	+ if(p[0] == '.') /* no close matches? */
	120	+ goto died;
	121	+ p[Blinelen(&bin)-1] = '\0';
	122	+
	123	+ /* accept first match */
	124	+ nf = tokenize(p, f, nelem(f));
	125	+ if(nf < 2)
	126	+ goto died;
	127	+ categ = f[0];
	128	+ id = f[1];
	129	+
	130	+ /* snarf rest of buffer */
	131	+ while(p[0] != '.') {
	132	+ if((p = Brdline(&bin, '\n')) == nil)
	133	+ goto died;
	134	+ p[Blinelen(&bin)-1] = '\0';
	135	+ DPRINT(2, "cddb: %s\n", p);
	136	+ }
	137	+ break;
	138	+ case 202: /* no match */
	139	+ default:
	140	+ goto died;
	141	+ }
	142	+
	143	+ /* fetch results for this cd */
	144	+ fprint(fd, "cddb read %s %s\r\n", categ, id);
	145	+
	146	+ memset(gottrack, 0, sizeof(gottrack));
	147	+ gottitle = 0;
	148	+ do {
	149	+ if((p = Brdline(&bin, '\n')) == nil)
	150	+ goto died;
	151	+ q = p+Blinelen(&bin)-1;
	152	+ while(isspace(*q))
	153	+ *q-- = 0;
	154	+DPRINT(2, "cddb %s\n", p);
	155	+ if(strncmp(p, "DTITLE=", 7) == 0) {
	156	+ if (gottitle)
	157	+ append(&t->title, p + 7);
	158	+ else
	159	+ t->title = estrdup(p+7);
	160	+ gottitle = 1;
	161	+ } else if(strncmp(p, "TTITLE", 6) == 0 && isdigit(p[6])) {
	162	+ i = atoi(p+6);
	163	+ if(i < t->ntrack) {
	164	+ p += 6;
	165	+ while(isdigit(*p))
	166	+ p++;
	167	+ if(*p == '=')
	168	+ p++;
	169	+
	170	+ if (gottrack[i])
	171	+ append(&t->track[i].title, p);
	172	+ else
	173	+ t->track[i].title = estrdup(p);
	174	+ gottrack[i] = 1;
	175	+ }
	176	+ }
	177	+ } while(*p != '.');
	178	+
	179	+ fprint(fd, "quit\r\n");
	180	+ close(fd);
	181	+ Bterm(&bin);
	182	+
	183	+ return 0;
	184	+}
	185	+
	186	+void
	187	+cddbproc(void *v)
	188	+{
	189	+ Drive *d;
	190	+ Toc t;
	191	+
	192	+ threadsetname("cddbproc");
	193	+ d = v;
	194	+ while(recv(d->cdbreq, &t))
	195	+ if(cddbfilltoc(&t) == 0)
	196	+ send(d->cdbreply, &t);
	197	+}

acme/bin/source/acd/cddbproto+894−0

@@ -0,0 +1,894 @@
	1	+<html><html>
	2	+<head>
	3	+<title>::freedb.org::</title>
	4	+</head>
	5	+
	6	+<body bgcolor="#FFFFFF" text="#000000" link="#101070" vlink="#101070">
	7	+
	8	+<center>
	9	+
	10	+<table cellpadding=0 cellspacing=0 border=0 width="99%" align=center><tr><td align=left>
	11	+<a href="/">
	12	+<table border=0>
	13	+<td bgcolor="#ffffff">
	14	+ <table border=0 width=100% cellpadding=0 cellspacing=0>
	15	+ <td bgcolor=#101070>
	16	+ <table border=0>
	17	+ <td bgcolor=#ffffff><font face="Arial,Helvetica,Lucida" color="#101070" size=8><b>freedb</b></td>
	18	+ <td bgcolor=#101070><font face="Arial,Helvetica,Lucida" color="#ffffff" size=8><b>.org</b></td>
	19	+ </table>
	20	+ </td>
	21	+ <tr>
	22	+ <td align=right><font face="Arial,Helvetica,Lucida" color="#101070" size=2><b>a free approach to cddbp
	23	+ </table>
	24	+</td>
	25	+</table>
	26	+</a>
	27	+</td><td align=right width=100%>
	28	+ <form action="search.php" method=post>
	29	+ <font face=Arial,Helvetica size=2><input type=name name=query width=20 size=20 length=20>
	30	+ </td>
	31	+ <td align=right>  <input type=image src=images/menu/english/search.gif border=0 align=middle></td>
	32	+ </form>
	33	+
	34	+</td></tr></table><br>
	35	+<table cellpadding=0 cellspacing=0 border=0 width="99%" bgcolor=101070><tr><td>
	36	+<table cellpadding=5 cellspacing=1 border=0 width="100%" bgcolor=FFFFFF><tr><td>
	37	+<font face=Lucida,Verdana,Arial,Helvetica size=2>freedb.org - a free approach to cddbp</td></tr></table></td></tr></table><P>
	38	+
	39	+<table width="99%" align=center cellpadding=0 cellspacing=0 border=0><tr>
	40	+ <td valign=top rowspan=5>
	41	+
	42	+<table border=0><tr><td>
	43	+
	44	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	45	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	46	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	47	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>Main Menu</B></font></td>
	48	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	49	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	50	+ </tr></table>
	51	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	52	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	53	+ <tr bgcolor="#ffffff">
	54	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	55	+ <td width="100%">
	56	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	57	+ <td><font face="verdana,helvetica,arial" size="1">
	58	+ <li><a href=index.php>Home</a>
	59	+<li><a href=topics.php>News-Topics</a>
	60	+<li><a href=sections.php?op=listarticles&secid=1>About</a>
	61	+<li><a href=sections.php?op=listarticles&secid=2>Developers</a>
	62	+<li><a href=sections.php?op=listarticles&secid=3>Applications</a>
	63	+<li><a href=sections.php?op=listarticles&secid=7>Download</a>
	64	+<li><a href=forum/index.php>Forum</a>
	65	+<li><a href=http://freedb.music.sk/search/>Web-based Search</a>
	66	+<li><a href=links.php>Web Links</a>
	67	+<li><a href=user.php>Your Account</a>
	68	+<li><a href=submit.php>Submit News</a>
	69	+
	70	+ </font></td>
	71	+ </tr></table>
	72	+
	73	+
	74	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	75	+ </tr>
	76	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	77	+ </table>
	78	+ </td>
	79	+
	80	+
	81	+
	82	+
	83	+
	84	+
	85	+</tr></td></table>
	86	+<br>
	87	+<table border=0><tr><td>
	88	+
	89	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	90	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	91	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	92	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>FAQ</B></font></td>
	93	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	94	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	95	+ </tr></table>
	96	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	97	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	98	+ <tr bgcolor="#ffffff">
	99	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	100	+ <td width="100%">
	101	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	102	+ <td><font face="verdana,helvetica,arial" size="1">
	103	+ Our FAQ can be found <a href="http://freedb.freedb.org/sections.php?op=viewarticle&artid=26">here</a>.<br>
	104	+Please read the FAQ before asking questions via email. </font></td>
	105	+ </tr></table>
	106	+
	107	+
	108	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	109	+ </tr>
	110	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	111	+ </table>
	112	+ </td>
	113	+
	114	+</tr></td></table>
	115	+<br>
	116	+<table border=0><tr><td>
	117	+
	118	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	119	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	120	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	121	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>Contact</B></font></td>
	122	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	123	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	124	+ </tr></table>
	125	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	126	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	127	+ <tr bgcolor="#ffffff">
	128	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	129	+ <td width="100%">
	130	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	131	+ <td><font face="verdana,helvetica,arial" size="1">
	132	+ General questions:<br>
	133	+<a href="mailto:info@freedb.org">info@freedb.org</a><hr>
	134	+Databaseupdates:<br>
	135	+<a href="mailto:updates@freedb.org">updates@freedb.org</a><br>
	136	+(<b>NOT</b> for submission!)<hr>
	137	+Please keep in mind that we are NOT the Nero-Support and please do not send CD-submits to the adresses above.<br>
	138	+Submits have to go to:<br>
	139	+<a href="mailto:freedb-submit@freedb.org">freedb-submit@freedb.org</a> </font></td>
	140	+ </tr></table>
	141	+
	142	+
	143	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	144	+ </tr>
	145	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	146	+ </table>
	147	+ </td>
	148	+
	149	+</tr></td></table>
	150	+<br>
	151	+<table border=0><tr><td>
	152	+
	153	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	154	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	155	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	156	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>Downloads</B></font></td>
	157	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	158	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	159	+ </tr></table>
	160	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	161	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	162	+ <tr bgcolor="#ffffff">
	163	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	164	+ <td width="100%">
	165	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	166	+ <td><font face="verdana,helvetica,arial" size="1">
	167	+ The link to the database downloads is <a href="/sections.php?op=viewarticle&artid=12">here</a> </font></td>
	168	+ </tr></table>
	169	+
	170	+
	171	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	172	+ </tr>
	173	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	174	+ </table>
	175	+ </td>
	176	+
	177	+
	178	+</tr></td></table>
	179	+<td> </td><td valign="top" width="100%">
	180	+
	181	+<!-- columna de inicio -->
	182	+<center>
	183	+ <table border=0 cellpadding=1 cellspacing=0 width=100% bgcolor=000000><tr><td>
	184	+ <table border=0 cellpadding=8 cellspacing=0 width=100% bgcolor=FFFFFF>
	185	+ <tr><td align=left><font face=Arial,Helvetica size=3>
	186	+ <b>CDDB-protocol documentation</b><br>
	187	+ <font size=2>
	188	+ <br><br>
	189	+ <pre>
	190	+ CDDB Protocol
	191	+
	192	+ By Steve Scherf and Ti Kan
	193	+ --------------------------
	194	+
	195	+Revision: $Id: CDDBPROTO,v 1.6 1997/05/14 07:53:52 steve Exp steve $
	196	+
	197	+
	198	+Notation:
	199	+-> : client to server
	200	+<- : server to client
	201	+
	202	+terminating marker: `.' character in the beginning of a line
	203	+
	204	+
	205	+Server response code (three digit code):
	206	+
	207	+First digit:
	208	+1xx Informative message
	209	+2xx Command OK
	210	+3xx Command OK so far, continue
	211	+4xx Command OK, but cannot be performed for some specified reasons
	212	+5xx Command unimplemented, incorrect, or program error
	213	+
	214	+Second digit:
	215	+x0x Ready for further commands
	216	+x1x More server-to-client output follows (until terminating marker)
	217	+x2x More client-to-server input follows (until terminating marker)
	218	+x3x Connection will close
	219	+
	220	+Third digit:
	221	+xx[0-9] Command-specific code
	222	+
	223	+
	224	+CDDB Protocol Level 1:
	225	+----------------------
	226	+
	227	+Server sign-on banner:
	228	+----------------------
	229	+<- code hostname CDDBP server version ready at date
	230	+
	231	+ code:
	232	+ 200 OK, read/write allowed
	233	+ 201 OK, read only
	234	+ 432 No connections allowed: permission denied
	235	+ 433 No connections allowed: X users allowed, Y currently active
	236	+ 434 No connections allowed: system load too high
	237	+ hostname:
	238	+ Server host name. Example: xyz.fubar.com
	239	+ version:
	240	+ Version number of server software. Example: v1.0PL0
	241	+ date:
	242	+ Current date and time. Example: Wed Mar 13 00:41:34 1996
	243	+
	244	+
	245	+Initial client-server handshake:
	246	+--------------------------------
	247	+Note: This handshake must occur before other cddb commands
	248	+ are accepted by the server.
	249	+
	250	+Client command:
	251	+-> cddb hello username hostname clientname version
	252	+
	253	+ username:
	254	+ Login name of user. Example: johndoe
	255	+ hostname:
	256	+ Host name of client. Example: abc.fubar.com
	257	+ clientname:
	258	+ The name of the connecting client. Example: xmcd, cda, EasyCD,
	259	+ et cetera. Do not use the name of another client which already
	260	+ exists.
	261	+ version:
	262	+ Version number of client software. Example: v1.0PL0
	263	+
	264	+Server response:
	265	+<- code hello and welcome username@hostname running clientname version
	266	+
	267	+ code:
	268	+ 200 Handshake successful
	269	+ 431 Handshake not successful, closing connection
	270	+ 402 Already shook hands
	271	+
	272	+
	273	+CDDB query:
	274	+-----------
	275	+Client command:
	276	+-> cddb query discid ntrks off1 off2 ... nsecs
	277	+
	278	+ discid:
	279	+ CD disc ID number. Example: f50a3b13
	280	+ ntrks:
	281	+ Total number of tracks on CD.
	282	+ off1, off2, ...:
	283	+ Frame offset of the starting location of each track.
	284	+ nsecs:
	285	+ Total playing length of CD in seconds.
	286	+
	287	+Server response:
	288	+<- code categ discid dtitle
	289	+ or
	290	+<- code close matches found
	291	+<- categ discid dtitle
	292	+<- categ discid dtitle
	293	+<- (more matches...)
	294	+<- .
	295	+
	296	+ code:
	297	+ 200 Found exact match
	298	+ 211 Found inexact matches, list follows (until terminating marker)
	299	+ 202 No match found
	300	+ 403 Database entry is corrupt
	301	+ 409 No handshake
	302	+ categ:
	303	+ CD category. Example: rock
	304	+ discid:
	305	+ CD disc ID number of the found entry. Example: f50a3b13
	306	+ dtitle:
	307	+ The Disc Artist and Disc Title (The DTITLE line). For example:
	308	+ Pink Floyd / The Dark Side of the Moon
	309	+
	310	+
	311	+CDDB read:
	312	+----------
	313	+Client command:
	314	+-> cddb read categ discid
	315	+
	316	+ categ:
	317	+ CD category. Example: rock
	318	+ discid:
	319	+ CD disc ID number. Example: f50a3b13
	320	+
	321	+Server response:
	322	+<- code categ discid
	323	+<- # xmcd 2.0 CD database file
	324	+<- # ...
	325	+<- (CDDB data...)
	326	+<- .
	327	+ or
	328	+<- code categ discid No such CD entry in database
	329	+
	330	+ code:
	331	+ 210 OK, CDDB database entry follows (until terminating marker)
	332	+ 401 Specified CDDB entry not found.
	333	+ 402 Server error.
	334	+ 403 Database entry is corrupt.
	335	+ 409 No handshake.
	336	+ categ:
	337	+ CD category. Example: rock
	338	+ discid:
	339	+ CD disc ID number. Example: f50a3b13
	340	+
	341	+
	342	+CDDB search: (command not yet implemented in freedb-serversoftware!)
	343	+------------
	344	+Client command:
	345	+-> cddb srch key search_type ... search_type
	346	+
	347	+ key:
	348	+ Pseudo-regular expression to match. Expressions should meet the
	349	+ following description:
	350	+
	351	+ - No white space.
	352	+ - Printable characters only.
	353	+ - Case is ignored.
	354	+ search_type:
	355	+ CDDB fields to search through. Example: title
	356	+ Supported types: artist, title, extd, ext, trk
	357	+ categ:
	358	+ CD category. Example: rock
	359	+
	360	+Server response:
	361	+<- code matches found
	362	+<- categ discid dtitle
	363	+<- categ discid dtitle
	364	+<- (more matches...)
	365	+<- .
	366	+
	367	+ code:
	368	+ 210 OK, matches found, list follows (until terminating marker)
	369	+ 401 No match found.
	370	+ 409 No handshake.
	371	+ categ:
	372	+ CD category. Example: rock
	373	+ dtitle:
	374	+ The Disc Artist and Disc Title (The DTITLE line). For example:
	375	+ Pink Floyd / The Dark Side of the Moon
	376	+
	377	+
	378	+CDDB write:
	379	+-----------
	380	+Client command:
	381	+-> cddb write categ discid
	382	+
	383	+ categ:
	384	+ CD category. Example: rock
	385	+ discid:
	386	+ CD disc ID number. Example: f50a3b13
	387	+
	388	+Server response:
	389	+<- code categ discid
	390	+
	391	+ code:
	392	+ 320 OK, input CDDB data (until terminating marker)
	393	+ 401 Permission denied.
	394	+ 402 Server file system full/file access failed.
	395	+ 409 No handshake.
	396	+ 501 Entry rejected: reason for rejection.
	397	+ categ:
	398	+ CD category. Example: rock
	399	+ discid:
	400	+ CD disc ID number. Example: f50a3b13
	401	+
	402	+Client data:
	403	+-> # xmcd 2.0 CD database file
	404	+-> # ...
	405	+-> (CDDB data)
	406	+-> .
	407	+
	408	+Server response:
	409	+<- code message
	410	+
	411	+ code:
	412	+ 200 CDDB entry accepted
	413	+ 401 CDDB entry rejected: reason why
	414	+ message:
	415	+ Message string to indicate write status:
	416	+ CDDB entry accepted, or CDDB entry rejected.
	417	+
	418	+
	419	+Help information:
	420	+-----------------
	421	+Client command:
	422	+-> help
	423	+ or
	424	+-> help cmd
	425	+
	426	+ cmd:
	427	+ CDDB command. Example: quit
	428	+
	429	+ or
	430	+
	431	+-> help cmd subcmd
	432	+
	433	+ cmd:
	434	+ CDDB command. Example: cddb
	435	+ subcmd:
	436	+ CDDB command argument. Example: query
	437	+
	438	+Server response:
	439	+<- code Help information follows
	440	+<- (help data ...)
	441	+<- .
	442	+ or
	443	+<- code no help information available
	444	+
	445	+ code:
	446	+ 210 OK, help information follows (until terminating marker)
	447	+ 401 No help information available
	448	+
	449	+
	450	+Log statistics:
	451	+---------------
	452	+Client command:
	453	+-> log [[-l lines] [start date [end date]] \| [day [days]] \| [get"]]
	454	+
	455	+ lines:
	456	+ The maximum number of lines to print for each data list in the
	457	+ log statistics.
	458	+ start date:
	459	+ The date after which statistics should be calculated. Date is
	460	+ of the format: hh[mm[ss[MM[DD[[CC]YY]]]]]
	461	+
	462	+ E.g.: 201200053196 for 8:12 PM on May 31, 1996.
	463	+ 20120005312096 for 8:12 PM on May 31, 2096.
	464	+ 080530 for today at at 8:15 and 30 seconds.
	465	+
	466	+ If the century ("CC") is omitted, a reasonable guess is made. If
	467	+ this argument is omitted, all messages are considered.
	468	+ end date:
	469	+ The date after which statistics should not be calculated. If
	470	+ omitted, the end date is assumed to be the current date.
	471	+ day:
	472	+ The string "day". This solitary argument will cause a log search
	473	+ of messages generated within the last day.
	474	+ days:
	475	+ A positive numerical argument which modifies the number of days'
	476	+ messages to searh. If this argument is left out, the default is 1.
	477	+ get:
	478	+ The string "get". This solitary argument will cause the server
	479	+ to send the contents of the log file.
	480	+
	481	+Server response:
	482	+<- code Log summary follows
	483	+<- (log stats)
	484	+<- .
	485	+ or
	486	+<- code Log follows
	487	+<- (log stats)
	488	+<- .
	489	+
	490	+ code:
	491	+ 210 OK, log summary follows (until terminating marker)
	492	+ 211 OK, log follows (until terminating marker)
	493	+ 401 Permission denied
	494	+ 402 No log information available
	495	+ 501 Invalid start/end date
	496	+
	497	+
	498	+Message of the day:
	499	+------------------
	500	+Client command:
	501	+-> motd
	502	+
	503	+Server response:
	504	+<- code Last modified: date MOTD follows (until terminating marker)
	505	+<- (message text)
	506	+<- .
	507	+
	508	+ code:
	509	+ 210 Last modified: 05/31/96 06:31:14 MOTD follows (until terminating marker)
	510	+ 401 No message of the day available
	511	+ date:
	512	+ The date the text of the message of the day was modified. The date
	513	+ appears in the following format:
	514	+
	515	+ 05/31/96 06:31:14
	516	+
	517	+ This value may be used by client software as a message timestamp
	518	+ for purposes of determining if it has already been displayed. This
	519	+ format was chosen because it is more easily parsed than the standard
	520	+ ctime() format.
	521	+
	522	+
	523	+Server protocol level:
	524	+----------------------
	525	+Client command:
	526	+-> proto [level]
	527	+
	528	+ level:
	529	+ The (numerical) protocol level to set the server to.
	530	+
	531	+Server response:
	532	+<- code CDDB protocol level: current cur_level, supported supported_level
	533	+ or
	534	+<- code OK, protocol version now: cur_level
	535	+
	536	+ code:
	537	+ 200 CDDB protocol level: current cur_level, supported supp_level
	538	+ 201 OK, protocol version now: cur_level
	539	+ 501 Illegal protocol level.
	540	+ 502 Protocol level already cur_level.
	541	+ cur_level:
	542	+ The current protocol level at which the server is running.
	543	+ supported_level:
	544	+ The maximum supported protocol level.
	545	+
	546	+
	547	+Server sites:
	548	+--------------
	549	+Client command:
	550	+-> sites
	551	+
	552	+Server response:
	553	+<- code OK, site information follows (until terminating `.')
	554	+<- (data)
	555	+<- .
	556	+
	557	+ code:
	558	+ 210 Ok, site information follows
	559	+ 401 No site information available.
	560	+
	561	+ The data format is as follows:
	562	+ site port latitude longitude description
	563	+
	564	+ The fields are as follows:
	565	+ site:
	566	+ The Internet address of the remote site.
	567	+ port:
	568	+ The port at which the server resides on that site.
	569	+ latitude:
	570	+ The latitude of the server site. The format is as follows:
	571	+ CDDD.MM
	572	+ Where "C" is the compass direction (N, S), "DDD" is the
	573	+ degrees, and "MM" is the minutes.
	574	+ longitude:
	575	+ The longitude of the server site. Format is as above, except
	576	+ the compass direction must be one of (E, W).
	577	+ description:
	578	+ A short description of the geographical location of the site.
	579	+
	580	+ Example:
	581	+ cddb.moonsoft.com 888 N037.23 W122.01 Fremont, CA USA
	582	+
	583	+
	584	+Server status:
	585	+--------------
	586	+Client command:
	587	+-> stat
	588	+
	589	+Server response:
	590	+<- code OK, status information follows (until terminating `.')
	591	+<- (data)
	592	+<- .
	593	+
	594	+ code:
	595	+ 210 Ok, status information follows
	596	+
	597	+ The possible data is as follows:
	598	+ current proto: <current_level>
	599	+ An integer representing the server's current operating protocol
	600	+ level.
	601	+ max proto: <max_level>
	602	+ The maximum supported protocol level.
	603	+ gets: <yes \| no>
	604	+ Whether or not the client is allowed to get log information,
	605	+ according to the string "yes" or "no".
	606	+ updates: <yes \| no>
	607	+ Whether or not the client is allowed to initiate a database
	608	+ update, according to the string "yes" or "no".
	609	+ posting: <yes \| no>
	610	+ Whether or not the client is allowed to post new entries,
	611	+ according to the string "yes" or "no".
	612	+ quotes: <yes \| no>
	613	+ Whether or not quoted arguments are enabled, according to
	614	+ the string "yes" or "no".
	615	+ current users: <num_users>
	616	+ The number of users currently connected to the server.
	617	+ max users: <num_max_users>
	618	+ The number of users that can concurrently connect to the server.
	619	+ strip ext: <yes \| no>
	620	+ Whether or not extended data is stripped by the server before
	621	+ presented to the user.
	622	+ Database entries: <num_db_entries>
	623	+ The total number of entries in the database.
	624	+ Database entries by category:
	625	+ This field is followed by a list of catgories and the number
	626	+ of entries in that category. Each entry is of the following
	627	+ format:
	628	+
	629	+ <white space>catgory: <num_db_entries>
	630	+
	631	+ The list of entries is terminated by the first line that does
	632	+ not begin with white space.
	633	+
	634	+ Pending file transmissions:
	635	+ This field is followed by a list of sites that are fed new
	636	+ database entries at periodic intervals, and the number of
	637	+ entries that have yet to be transmitted to that site.
	638	+ Each entry is of the following format:
	639	+
	640	+ <white space>site: <num_db_entries>
	641	+
	642	+ The list of entries is terminated by the first line that does
	643	+ not begin with white space.
	644	+
	645	+ This list may grow as needed, so clients must expect possible
	646	+ unrecognizable data. Also, additional fields may be added to
	647	+ the currently existing lines, although no existing fields will
	648	+ be removed or change position.
	649	+
	650	+
	651	+Server version:
	652	+---------------
	653	+Client command:
	654	+-> ver
	655	+
	656	+Server response:
	657	+<- code servername version copyright
	658	+ or
	659	+<- code Version information follows
	660	+
	661	+ code:
	662	+ 200 Version information.
	663	+ 211 OK, version information follows (until terminating marker)
	664	+ version:
	665	+ Server version. Example: v1.0PL0
	666	+ copyright:
	667	+ Copyright string. Example: Copyright (c) 1996 Steve Scherf
	668	+
	669	+
	670	+Database update:
	671	+----------------
	672	+Client command:
	673	+-> update
	674	+
	675	+Server response:
	676	+<- code Updating the database.
	677	+ or
	678	+<- code Permission denied.
	679	+ or
	680	+<- code Unable to update the database.
	681	+
	682	+ code:
	683	+ 200 Updating the database.
	684	+ 401 Permission denied.
	685	+ 402 Unable to update the database.
	686	+
	687	+
	688	+Server users:
	689	+-------------
	690	+Client command:
	691	+-> whom
	692	+
	693	+Server response:
	694	+<- code User list follows
	695	+
	696	+ code:
	697	+ 210 OK, user list follows (until terminating marker)
	698	+ 401 No user information available.
	699	+
	700	+
	701	+Client sign-off:
	702	+----------------
	703	+Client command:
	704	+-> quit
	705	+
	706	+Server response:
	707	+<- code hostname closing connection. Goodbye.
	708	+
	709	+ code:
	710	+ 230 OK, goodbye.
	711	+ hostname:
	712	+ Server host name. Example: xyz.fubar.com
	713	+
	714	+
	715	+General errors:
	716	+---------------
	717	+
	718	+Server response:
	719	+<- code error
	720	+ code:
	721	+ 402 Server error.
	722	+ 408 CGI environment error.
	723	+ 500 Command syntax error, command unknown, command unimplemented.
	724	+ 530 Server error, server timeout.
	725	+
	726	+
	727	+Reserved errors:
	728	+----------------
	729	+
	730	+The following error codes are reserved, and will never be returned as a
	731	+response to a CDDB protocol command. They are intended to be used internally
	732	+by clients that have a need for generating pseudo-responses.
	733	+
	734	+ 600-699
	735	+
	736	+
	737	+CDDB Protocol Level 2:
	738	+----------------------
	739	+
	740	+In all respects, protocol level 2 is the same as level 1, with the exceptions
	741	+listed below.
	742	+
	743	+Arguments to commands may be surrounded by double quotes. All characters
	744	+within the quotes, including white space, are included in the argument. All
	745	+white space is replaced by the `_' (2Dh) character by the server. White space
	746	+is defined as ` ' (20h) and `^I' (control-I, or 09h).
	747	+
	748	+Arguments containing quotes that should not be interpreted with the special
	749	+meaning described above should be escaped with a preceding backslash character,
	750	+or '' (5Ch). If an actual backslash appears in an argument, it should be
	751	+escaped with a preceding backslash. In both cases, the preceding backslash
	752	+will be removed from the input before being interpreted.
	753	+
	754	+
	755	+CDDB Protocol Level 3:
	756	+----------------------
	757	+
	758	+Protocol level 3 is the same as level 2, with the exception listed below.
	759	+
	760	+The output of the "sites" command has changed to meet the folowing description:
	761	+
	762	+ The data format is as follows:
	763	+ site protocol port address latitude longitude description
	764	+
	765	+ The fields are as follows:
	766	+ site:
	767	+ The Internet address of the remote site.
	768	+ protocol:
	769	+ The transfer protocol used to access the site.
	770	+ port:
	771	+ The port at which the server resides on that site.
	772	+ address:
	773	+ Any additional addressing information needed to access the
	774	+ server. For example, for HTTP protocol servers, this would be
	775	+ the path to the CDDB server CGI script. This field will be
	776	+ "-" if no additional addressing information is needed.
	777	+ latitude:
	778	+ The latitude of the server site. The format is as follows:
	779	+ CDDD.MM
	780	+ Where "C" is the compass direction (N, S), "DDD" is the
	781	+ degrees, and "MM" is the minutes.
	782	+ longitude:
	783	+ The longitude of the server site. Format is as above, except
	784	+ the compass direction must be one of (E, W).
	785	+ description:
	786	+ A short description of the geographical location of the site.
	787	+
	788	+ Example:
	789	+ cddb.moonsoft.com cddbp 888 - N037.23 W122.01 Fremont, CA USA
	790	+ cddb.moonsoft.com http 80 /~cddb/cddb.cgi N037.23 W122.01 Fremont,CA USA
	791	+
	792	+Note that a site may appear once for each type of protocol it supports for
	793	+accessing the server.
	794	+
	795	+
	796	+Addendum A: Proper use of CDDBP:
	797	+--------------------------------
	798	+
	799	+There are a few guidelines that must be followed in order to make proper use
	800	+of CDDBP:
	801	+
	802	+- When handshaking with the server via the "cddb hello" command, the client
	803	+ must specify its own name and version, not that of some other client (such
	804	+ as xmcd). Also, the "username" and "hostname" must be that of the actual
	805	+ user running the program, not some hardwired value.
	806	+
	807	+- Before performing a "cddb read", the client program MUST perform a
	808	+ "cddb query". Failure to do so may result in the client program receiving
	809	+ incorrect CDDB data from the server. Also, without performing a query, the
	810	+ client program will not benefit from close matches in the event of the
	811	+ lack of an exact match in the database.
	812	+
	813	+- For accounting purposes, it is best if client programs only perform a single
	814	+ "cddb query" for a particular disc before performing a "cddb read" for that
	815	+ disc.
	816	+
	817	+
	818	+Addendum B: CDDBP under HTTP:
	819	+-----------------------------
	820	+
	821	+Accessing a server as a CGI script is done in much the same way as through
	822	+direct interaction. The command set is identical, though the method of
	823	+communication is through CDDBP commands encapsulated in the HTTP protocol.
	824	+The only limitation is that a single command may be executed per connection,
	825	+since HTTP is not truly interactive. For the server to be accessed in this
	826	+way, it must reside on the target host at a known URL which is accessible by
	827	+the host HTTP server. The client program must connect to the HTTP server on
	828	+the target host and issue an HTTP command with the appropriate CDDBP command
	829	+encapsulated within.
	830	+
	831	+Commands may be submitted to servers in CGI mode using either the "GET" or
	832	+"POST" HTTP commands. Both methods are supported, and there is no real
	833	+difference between how both are to be used other than the syntactical
	834	+difference between the two methods. The "POST" method may provide the ability
	835	+to issue longer commands, though, depending on the architecture of the system
	836	+on which the server resides.
	837	+
	838	+The server command must be sent as part of the "Request-URI" in the case
	839	+of the "GET" method, and as the "Entity-Body" in the case of the "POST"
	840	+method. In both cases, the command must be of the following form:
	841	+
	842	+cmd=server+command&hello=joe+my.host.com+clientname+version&proto=1
	843	+
	844	+Where the text following the "cmd=" represents the CDDBP command to be
	845	+executed, the text following the "hello=" represents the arguments to
	846	+the "cddb hello" command that is implied by this operation, and the
	847	+text following the "proto=" represents the argument to the "proto" command
	848	+that is implied by this operation.
	849	+
	850	+The "+" characters in the input represent spaces, and will be translated
	851	+by the server before performing the request. Special characters may be
	852	+represented by the sequence "%XX" where "XX" is a two-digit hex number
	853	+corresponding to the ASCII (ISO-8859-1) sequence of that character. The
	854	+"&" characters denote separations between the command, hello and proto
	855	+arguments. Newlines and carriage returns must not appear anywhere in the
	856	+string except at the end.
	857	+
	858	+All CDDBP commands are supported under HTTP, except for "cddb hello",
	859	+"cddb write", "proto" and "quit".
	860	+
	861	+For example, should user "joe" on system "my.host.com" be running xmcd 2.1,
	862	+a read request for his currenly playing CD might look like this:
	863	+
	864	+cmd=cddb+read+rock+12345678&hello=joe+my.host.com+xmcd+2.1&proto=1
	865	+
	866	+The server will perform the implied "proto" and "cddb hello" commands,
	867	+and then perform the requested "cddb read" command.
	868	+
	869	+Server response to the command is encapsulated in the HTTP server response,
	870	+and appears in the "Entity-Body" exactly as it would appear using the CDDBP
	871	+protocol. Note that the HTTP response "Entity-Header" is not guaranteed to
	872	+contain a "Content-Length" field, so clients should be prepared to accept
	873	+variable length input. This is no different from operation under CDDBP. The
	874	+header will always contain a Mime "Content-Type" field which describes the
	875	+body of data as "text/plain".
	876	+
	877	+For more detailed information on HTTP and Mime, see RFC 1945 and RFC 1521.
	878	+</pre>
	879	+ </tr></td>
	880	+ <tr><td align=center><font face=Arial,Helvetica>
	881	+
	882	+ </tr></td>
	883	+ </table></tr></td></table></center></td><td> </td>
	884	+
	885	+
	886	+</tr></table></td></tr></table><br><br>
	887	+
	888	+<font face=Arial,Helvetica size=1><center>
	889	+<br>
	890	+<br>
	891	+<br>
	892	+<br>
	893	+</body>
	894	+</html>

acme/bin/source/acd/discid+159−0

@@ -0,0 +1,159 @@
	1	+
	2	+CDDB DISCID
	3	+-----------
	4	+
	5	+Both forms of CDDB access require that the software compute a "disc
	6	+ID" which is an identifier that is used to access the CDDB. The disc
	7	+ID is a 8-digit hexadecimal (base-16) number, computed using data from
	8	+a CD's Table-of-Contents (TOC) in MSF (Minute Second Frame) form. The
	9	+algorithm is listed below in Appendix A.
	10	+
	11	+It is crucial that your software compute the disc ID correctly. If it
	12	+does not generate the correct disc ID, it will not be compatible with CDDB.
	13	+Moreover, if your software submits CDDB entries with bad disc IDs to the
	14	+CDDB archives, it could compromise the integrity of the CDDB.
	15	+
	16	+[...]
	17	+
	18	+APPENDIX A - CDDB DISCID ALGORITHM
	19	+----------------------------------
	20	+
	21	+The following is a C code example that illustrates how to generate the
	22	+CDDB disc ID. [...] A text description
	23	+of the algorithm follows, which should contain the necessary information
	24	+to code the algorithm in any programming language.
	25	+
	26	+
	27	+struct toc {
	28	+ int min;
	29	+ int sec;
	30	+ int frame;
	31	+};
	32	+
	33	+struct toc cdtoc[100];
	34	+
	35	+int
	36	+read_cdtoc_from_drive(void)
	37	+{
	38	+ /* Do whatever is appropriate to read the TOC of the CD
	39	+ * into the cdtoc[] structure array.
	40	+ */
	41	+ return (tot_trks);
	42	+}
	43	+
	44	+int
	45	+cddb_sum(int n)
	46	+{
	47	+ int ret;
	48	+
	49	+ /* For backward compatibility this algorithm must not change */
	50	+
	51	+ ret = 0;
	52	+
	53	+ while (n > 0) {
	54	+ ret = ret + (n % 10);
	55	+ n = n / 10;
	56	+ }
	57	+
	58	+ return (ret);
	59	+}
	60	+
	61	+unsigned long
	62	+cddb_discid(int tot_trks)
	63	+{
	64	+ int i,
	65	+ t = 0,
	66	+ n = 0;
	67	+
	68	+ /* For backward compatibility this algorithm must not change */
	69	+
	70	+ i = 0;
	71	+
	72	+ while (i < tot_trks) {
	73	+ n = n + cddb_sum((cdtoc[i].min * 60) + cdtoc[i].sec);
	74	+ i++;
	75	+ }
	76	+
	77	+ t = ((cdtoc[tot_trks].min * 60) + cdtoc[tot_trks].sec) -
	78	+ ((cdtoc[0].min * 60) + cdtoc[0].sec);
	79	+
	80	+ return ((n % 0xff) << 24 \| t << 8 \| tot_trks);
	81	+}
	82	+
	83	+main()
	84	+{
	85	+ int tot_trks;
	86	+
	87	+ tot_trks = read_cdtoc_from_drive();
	88	+ printf("The discid is %08x", cddb_discid(tot_trks));
	89	+}
	90	+
	91	+
	92	+This code assumes that your compiler and architecture support 32-bit
	93	+integers.
	94	+
	95	+The cddb_discid function computes the discid based on the CD's TOC data
	96	+in MSF form. The frames are ignored for this purpose. The function is
	97	+passed a parameter of tot_trks (which is the total number of tracks on
	98	+the CD), and returns the discid integer number.
	99	+
	100	+It is assumed that cdtoc[] is an array of data structures (records)
	101	+containing the fields min, sec and frame, which are the minute, second
	102	+and frame offsets (the starting location) of each track. This
	103	+information is read from the TOC of the CD. There are actually
	104	+tot_trks + 1 "active" elements in the array, the last one being the
	105	+offset of the lead-out (also known as track 0xAA).
	106	+
	107	+The function loops through each track in the TOC, and for each track
	108	+it takes the (M * 60) + S (total offset in seconds) of the track and
	109	+feeds it to cddb_sum() function, which simply adds the value of each digit
	110	+in the decimal string representation of the number. A running sum of this
	111	+result for each track is kept in the variable n.
	112	+
	113	+At the end of the loop:
	114	+1. t is calculated by subtracting the (M * 60) + S offset of the lead-out
	115	+minus the (M * 60) + S offset of first track (yielding the length of
	116	+the disc in seconds).
	117	+
	118	+2. The result of (n modulo FFh) is left-shifted by 24 bits.
	119	+
	120	+3. t is left shifted by 8.
	121	+
	122	+The bitwise-OR operation of result 2., 3. and the tot_trks number is
	123	+used as the discid.
	124	+
	125	+The discid is represented in hexadecimal form for the purpose of
	126	+xmcd cddb file names and the DISCID= field in the xmcd cddb file itself.
	127	+If the hexadecimal string is less than 8 characters long, it is
	128	+zero-padded to 8 characters (i.e., 3a8f07 becomes 003a8f07). All
	129	+alpha characters in the string should be in lower case, where
	130	+applicable.
	131	+
	132	+Important note for clients using the MS-Windows MCI interface:
	133	+
	134	+The Windows MCI interface does not provide the MSF location of the
	135	+lead-out. Thus, you must compute the lead-out location by taking the
	136	+starting position of the last track and add the length of the last track
	137	+to it. However, the MCI interface returns the length of the last track
	138	+as ONE FRAME SHORT of the actual length found in the CD's TOC. In most
	139	+cases this does not affect the disc ID generated, because we truncate
	140	+the frame count when computing the disc ID anyway. However, if the
	141	+lead-out track has an actual a frame count of 0, the computed quantity
	142	+(based on the MSF data returned from the MCI interface) would result in
	143	+the seconds being one short and the frame count be 74. For example,
	144	+a CD with the last track at an offset of 48m 32s 12f and having a
	145	+track length of 2m 50s 63f has a lead-out offset of 51m 23s 0f. Windows
	146	+MCI incorrectly reports the length as 2m 50s 62f, which would yield a
	147	+lead-out offset of 51m 22s 74f, which causes the resulting truncated
	148	+disc length to be off by one second. This will cause an incorrect disc
	149	+ID to be generated. You should thus add one frame to the length of the
	150	+last track when computing the location of the lead-out.
	151	+
	152	+The easiest way for Windows clients to compute the lead-out given information
	153	+in MSF format is like this:
	154	+
	155	+(offset_minutes * 60 * 75) + (offset_seconds * 75) + offset_frames +
	156	+(length_minutes * 60 * 75) + (length_seconds * 75) + length_frames + 1 = X
	157	+
	158	+Where X is the offset of the lead-out in frames. To find the lead-out in
	159	+seconds, simply divide by 75 and discard the remainder.

acme/bin/source/acd/mailinglist+220−0

@@ -0,0 +1,220 @@
	1	+<html><html>
	2	+<head>
	3	+<title>::freedb.org::</title>
	4	+</head>
	5	+
	6	+<body bgcolor="#FFFFFF" text="#000000" link="#101070" vlink="#101070">
	7	+
	8	+<center>
	9	+
	10	+<table cellpadding=0 cellspacing=0 border=0 width="99%" align=center><tr><td align=left>
	11	+<a href="/">
	12	+<table border=0>
	13	+<td bgcolor="#ffffff">
	14	+ <table border=0 width=100% cellpadding=0 cellspacing=0>
	15	+ <td bgcolor=#101070>
	16	+ <table border=0>
	17	+ <td bgcolor=#ffffff><font face="Arial,Helvetica,Lucida" color="#101070" size=8><b>freedb</b></td>
	18	+ <td bgcolor=#101070><font face="Arial,Helvetica,Lucida" color="#ffffff" size=8><b>.org</b></td>
	19	+ </table>
	20	+ </td>
	21	+ <tr>
	22	+ <td align=right><font face="Arial,Helvetica,Lucida" color="#101070" size=2><b>a free approach to cddbp
	23	+ </table>
	24	+</td>
	25	+</table>
	26	+</a>
	27	+</td><td align=right width=100%>
	28	+ <form action="search.php" method=post>
	29	+ <font face=Arial,Helvetica size=2><input type=name name=query width=20 size=20 length=20>
	30	+ </td>
	31	+ <td align=right>  <input type=image src=images/menu/english/search.gif border=0 align=middle></td>
	32	+ </form>
	33	+
	34	+</td></tr></table><br>
	35	+<table cellpadding=0 cellspacing=0 border=0 width="99%" bgcolor=101070><tr><td>
	36	+<table cellpadding=5 cellspacing=1 border=0 width="100%" bgcolor=FFFFFF><tr><td>
	37	+<font face=Lucida,Verdana,Arial,Helvetica size=2>freedb.org - a free approach to cddbp</td></tr></table></td></tr></table><P>
	38	+
	39	+<table width="99%" align=center cellpadding=0 cellspacing=0 border=0><tr>
	40	+ <td valign=top rowspan=5>
	41	+
	42	+<table border=0><tr><td>
	43	+
	44	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	45	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	46	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	47	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>Main Menu</B></font></td>
	48	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	49	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	50	+ </tr></table>
	51	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	52	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	53	+ <tr bgcolor="#ffffff">
	54	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	55	+ <td width="100%">
	56	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	57	+ <td><font face="verdana,helvetica,arial" size="1">
	58	+ <li><a href=index.php>Home</a>
	59	+<li><a href=topics.php>News-Topics</a>
	60	+<li><a href=sections.php?op=listarticles&secid=1>About</a>
	61	+<li><a href=sections.php?op=listarticles&secid=2>Developers</a>
	62	+<li><a href=sections.php?op=listarticles&secid=3>Applications</a>
	63	+<li><a href=sections.php?op=listarticles&secid=7>Download</a>
	64	+<li><a href=forum/index.php>Forum</a>
	65	+<li><a href=http://freedb.music.sk/search/>Web-based Search</a>
	66	+<li><a href=links.php>Web Links</a>
	67	+<li><a href=user.php>Your Account</a>
	68	+<li><a href=submit.php>Submit News</a>
	69	+
	70	+ </font></td>
	71	+ </tr></table>
	72	+
	73	+
	74	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	75	+ </tr>
	76	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	77	+ </table>
	78	+ </td>
	79	+
	80	+
	81	+
	82	+
	83	+
	84	+
	85	+</tr></td></table>
	86	+<br>
	87	+<table border=0><tr><td>
	88	+
	89	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	90	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	91	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	92	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>FAQ</B></font></td>
	93	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	94	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	95	+ </tr></table>
	96	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	97	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	98	+ <tr bgcolor="#ffffff">
	99	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	100	+ <td width="100%">
	101	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	102	+ <td><font face="verdana,helvetica,arial" size="1">
	103	+ Our FAQ can be found <a href="http://freedb.freedb.org/sections.php?op=viewarticle&artid=26">here</a>.<br>
	104	+Please read the FAQ before asking questions via email. </font></td>
	105	+ </tr></table>
	106	+
	107	+
	108	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	109	+ </tr>
	110	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	111	+ </table>
	112	+ </td>
	113	+
	114	+</tr></td></table>
	115	+<br>
	116	+<table border=0><tr><td>
	117	+
	118	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	119	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	120	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	121	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>Contact</B></font></td>
	122	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	123	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	124	+ </tr></table>
	125	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	126	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	127	+ <tr bgcolor="#ffffff">
	128	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	129	+ <td width="100%">
	130	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	131	+ <td><font face="verdana,helvetica,arial" size="1">
	132	+ General questions:<br>
	133	+<a href="mailto:info@freedb.org">info@freedb.org</a><hr>
	134	+Databaseupdates:<br>
	135	+<a href="mailto:updates@freedb.org">updates@freedb.org</a><br>
	136	+(<b>NOT</b> for submission!)<hr>
	137	+Please keep in mind that we are NOT the Nero-Support and please do not send CD-submits to the adresses above.<br>
	138	+Submits have to go to:<br>
	139	+<a href="mailto:freedb-submit@freedb.org">freedb-submit@freedb.org</a> </font></td>
	140	+ </tr></table>
	141	+
	142	+
	143	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	144	+ </tr>
	145	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	146	+ </table>
	147	+ </td>
	148	+
	149	+</tr></td></table>
	150	+<br>
	151	+<table border=0><tr><td>
	152	+
	153	+ <table width="115" border="0" cellpadding="0" cellspacing="0"><tr valign="top" bgcolor="#101070">
	154	+ <td bgcolor="#FFFFFF"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	155	+ <td><img src="themes/SlashOcean/cl.gif" width="7" height="10"></td>
	156	+ <td><font face="verdana,helvetica,arial" size="1" color="#ffffff"><B>Downloads</B></font></td>
	157	+ <td align="right"><img src="themes/SlashOcean/cr.gif" width="7" height="10" alt=""></td>
	158	+ <td bgcolor="#FFFFFF" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3"></td>
	159	+ </tr></table>
	160	+ <table width="100%" border="0" cellpadding="0" cellspacing="0">
	161	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	162	+ <tr bgcolor="#ffffff">
	163	+ <td background="themes/SlashOcean/sl.gif"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	164	+ <td width="100%">
	165	+ <table width="100%" border="0" cellpadding="5" cellspacing="0"><tr>
	166	+ <td><font face="verdana,helvetica,arial" size="1">
	167	+ The link to the database downloads is <a href="/sections.php?op=viewarticle&artid=12">here</a> </font></td>
	168	+ </tr></table>
	169	+
	170	+
	171	+ </td><td background="themes/SlashOcean/sr.gif" align="right"><img src="themes/SlashOcean/pix.gif" width="3" height="3" alt=""></td>
	172	+ </tr>
	173	+ <tr bgcolor="#101070"><td colspan="3"><img src="themes/SlashOcean/pix.gif" width="1" height="1"></td></tr>
	174	+ </table>
	175	+ </td>
	176	+
	177	+
	178	+</tr></td></table>
	179	+<td> </td><td valign="top" width="100%">
	180	+
	181	+<!-- columna de inicio -->
	182	+<center>
	183	+ <table border=0 cellpadding=1 cellspacing=0 width=100% bgcolor=000000><tr><td>
	184	+ <table border=0 cellpadding=8 cellspacing=0 width=100% bgcolor=FFFFFF>
	185	+ <tr><td align=left><font face=Arial,Helvetica size=3>
	186	+ <b>Mailinglists</b><br>
	187	+ <font size=2>
	188	+ <br><br>
	189	+ There are a couple of mailinglists available:
	190	+
	191	+<h4>fdb-apps@freedb.org</h4>
	192	+
	193	+This mailinglist is intended for all developers that want to
	194	+exchange tips and tricks, codesnippets and so on. Subcribe
	195	+to this list by sending an email to<br>
	196	+<a href="mailto:fdb-apps-request@freedb.org">fdb-apps-request@freedb.org</a><br>
	197	+with the word "subscribe" in the body of the email.
	198	+<h4>fdb-dev@freedb.org</h4>
	199	+
	200	+This list is for anyone interested in developing the freedb.org
	201	+server software. Subcribe
	202	+to this list by sending an email to<br>
	203	+<a href="mailto:fdb-dev-request@freedb.org">fdb-dev-request@freedb.org</a><br>
	204	+with the word "subscribe" in the body of the email.
	205	+ </tr></td>
	206	+ <tr><td align=center><font face=Arial,Helvetica>
	207	+
	208	+ </tr></td>
	209	+ </table></tr></td></table></center></td><td> </td>
	210	+
	211	+
	212	+</tr></table></td></tr></table><br><br>
	213	+
	214	+<font face=Arial,Helvetica size=1><center>
	215	+<br>
	216	+<br>
	217	+<br>
	218	+<br>
	219	+</body>
	220	+</html>

acme/bin/source/acd/main.c+135−0

@@ -0,0 +1,135 @@
	1	+#include "acd.h"
	2	+
	3	+int debug;
	4	+
	5	+void
	6	+usage(void)
	7	+{
	8	+ fprint(2, "usage: acd dev\n");
	9	+ threadexitsall("usage");
	10	+}
	11	+
	12	+Alt
	13	+mkalt(Channel c, void v, int op)
	14	+{
	15	+ Alt a;
	16	+
	17	+ memset(&a, 0, sizeof(a));
	18	+ a.c = c;
	19	+ a.v = v;
	20	+ a.op = op;
	21	+ return a;
	22	+}
	23	+
	24	+void
	25	+freetoc(Toc *t)
	26	+{
	27	+ int i;
	28	+
	29	+ free(t->title);
	30	+ for(i=0; i<t->ntrack; i++)
	31	+ free(t->track[i].title);
	32	+}
	33	+
	34	+void
	35	+eventwatcher(Drive *d)
	36	+{
	37	+ enum { STATUS, WEVENT, TOCDISP, DBREQ, DBREPLY, NALT };
	38	+ Alt alts[NALT+1];
	39	+ Toc nt, tdb;
	40	+ Event *e;
	41	+ Window *w;
	42	+ Cdstatus s;
	43	+ char buf[40];
	44	+
	45	+ w = d->w;
	46	+
	47	+ alts[STATUS] = mkalt(d->cstatus, &s, CHANRCV);
	48	+ alts[WEVENT] = mkalt(w->cevent, &e, CHANRCV);
	49	+ alts[TOCDISP] = mkalt(d->ctocdisp, &nt, CHANRCV);
	50	+ alts[DBREQ] = mkalt(d->cdbreq, &tdb, CHANNOP);
	51	+ alts[DBREPLY] = mkalt(d->cdbreply, &nt, CHANRCV);
	52	+ alts[NALT] = mkalt(nil, nil, CHANEND);
	53	+ for(;;) {
	54	+ switch(alt(alts)) {
	55	+ case STATUS:
	56	+ //DPRINT(2, "s...");
	57	+ d->status = s;
	58	+ if(s.state == Scompleted) {
	59	+ s.state = Sunknown;
	60	+ advancetrack(d, w);
	61	+ }
	62	+ //DPRINT(2, "status %d %d %d %M %M\n", s.state, s.track, s.index, s.abs, s.rel);
	63	+ sprint(buf, "%d:%2.2d", s.rel.m, s.rel.s);
	64	+ setplaytime(w, buf);
	65	+ break;
	66	+ case WEVENT:
	67	+ //DPRINT(2, "w...");
	68	+ acmeevent(d, w, e);
	69	+ break;
	70	+ case TOCDISP:
	71	+ //DPRINT(2,"td...");
	72	+ freetoc(&d->toc);
	73	+ d->toc = nt;
	74	+ drawtoc(w, d, &d->toc);
	75	+ tdb = nt;
	76	+ alts[DBREQ].op = CHANSND;
	77	+ break;
	78	+ case DBREQ: /* sent */
	79	+ //DPRINT(2,"dreq...");
	80	+ alts[DBREQ].op = CHANNOP;
	81	+ break;
	82	+ case DBREPLY:
	83	+ //DPRINT(2,"drep...");
	84	+ freetoc(&d->toc);
	85	+ d->toc = nt;
	86	+ redrawtoc(w, &d->toc);
	87	+ break;
	88	+ }
	89	+ }
	90	+}
	91	+
	92	+void
	93	+threadmain(int argc, char **argv)
	94	+{
	95	+ Scsi *s;
	96	+ Drive *d;
	97	+ char buf[80];
	98	+
	99	+ ARGBEGIN{
	100	+ case 'v':
	101	+ debug++;
	102	+ scsiverbose++;
	103	+ }ARGEND
	104	+
	105	+ if(argc != 1)
	106	+ usage();
	107	+
	108	+ fmtinstall('M', msfconv);
	109	+
	110	+ if((s = openscsi(argv[0])) == nil)
	111	+ error("opening scsi: %r");
	112	+
	113	+ d = malloc(sizeof(*d));
	114	+ if(d == nil)
	115	+ error("out of memory");
	116	+ memset(d, 0, sizeof d);
	117	+
	118	+ d->scsi = s;
	119	+ d->w = newwindow();
	120	+ d->ctocdisp = chancreate(sizeof(Toc), 0);
	121	+ d->cdbreq = chancreate(sizeof(Toc), 0);
	122	+ d->cdbreply = chancreate(sizeof(Toc), 0);
	123	+ d->cstatus = chancreate(sizeof(Cdstatus), 0);
	124	+
	125	+ proccreate(wineventproc, d->w, STACK);
	126	+ proccreate(cddbproc, d, STACK);
	127	+ proccreate(cdstatusproc, d, STACK);
	128	+
	129	+ cleanname(argv[0]);
	130	+ snprint(buf, sizeof(buf), "%s/", argv[0]);
	131	+ winname(d->w, buf);
	132	+
	133	+ wintagwrite(d->w, "Stop Pause Resume Eject Ingest ", 5+6+7+6+7);
	134	+ eventwatcher(d);
	135	+}

acme/bin/source/acd/mkfile+22−0

@@ -0,0 +1,22 @@
	1	+</$objtype/mkfile
	2	+
	3	+TARG=acd
	4	+BIN=/acme/bin/$objtype
	5	+
	6	+OFILES=\
	7	+ acme.$O\
	8	+ cddb.$O\
	9	+ main.$O\
	10	+ mmc.$O\
	11	+ util.$O\
	12	+ win.$O\
	13	+
	14	+HFILES=acd.h
	15	+
	16	+UPDATE=\
	17	+ mkfile\
	18	+ $HFILES\
	19	+ ${OFILES:%.$O=%.c}\
	20	+ ${TARG:%=/acme/bin/386/%}\
	21	+
	22	+</sys/src/cmd/mkone

acme/bin/source/acd/mmc.c+303−0

@@ -0,0 +1,303 @@
	1	+#include "acd.h"
	2	+
	3	+int
	4	+msfconv(Fmt *fp)
	5	+{
	6	+ Msf m;
	7	+
	8	+ m = va_arg(fp->args, Msf);
	9	+ fmtprint(fp, "%d.%d.%d", m.m, m.s, m.f);
	10	+ return 0;
	11	+}
	12	+
	13	+static int
	14	+status(Drive *d)
	15	+{
	16	+ uchar cmd[12];
	17	+
	18	+ memset(cmd, 0, sizeof cmd);
	19	+ cmd[0] = 0xBD;
	20	+ return scsi(d->scsi, cmd, sizeof cmd, nil, 0, Snone);
	21	+}
	22	+
	23	+static int
	24	+playmsf(Drive *d, Msf start, Msf end)
	25	+{
	26	+ uchar cmd[12];
	27	+
	28	+ memset(cmd, 0, sizeof cmd);
	29	+ cmd[0] = 0x47;
	30	+ cmd[3] = start.m;
	31	+ cmd[4] = start.s;
	32	+ cmd[5] = start.f;
	33	+ cmd[6] = end.m;
	34	+ cmd[7] = end.s;
	35	+ cmd[8] = end.f;
	36	+
	37	+ return scsi(d->scsi, cmd, sizeof cmd, nil, 0, Snone);
	38	+}
	39	+
	40	+int
	41	+playtrack(Drive *d, int start, int end)
	42	+{
	43	+ Toc *t;
	44	+
	45	+ t = &d->toc;
	46	+
	47	+ if(t->ntrack == 0)
	48	+ return -1;
	49	+
	50	+ if(start < 0)
	51	+ start = 0;
	52	+ if(end >= t->ntrack)
	53	+ end = t->ntrack-1;
	54	+ if(end < start)
	55	+ end = start;
	56	+
	57	+ return playmsf(d, t->track[start].start, t->track[end].end);
	58	+}
	59	+
	60	+int
	61	+resume(Drive *d)
	62	+{
	63	+ uchar cmd[12];
	64	+
	65	+ memset(cmd, 0, sizeof cmd);
	66	+ cmd[0] = 0x4B;
	67	+ cmd[8] = 0x01;
	68	+ return scsi(d->scsi, cmd, sizeof cmd, nil, 0, Snone);
	69	+}
	70	+
	71	+int
	72	+pause(Drive *d)
	73	+{
	74	+ uchar cmd[12];
	75	+
	76	+ memset(cmd, 0, sizeof cmd);
	77	+ cmd[0] = 0x4B;
	78	+ return scsi(d->scsi, cmd, sizeof cmd, nil, 0, Snone);
	79	+}
	80	+
	81	+int
	82	+stop(Drive *d)
	83	+{
	84	+ uchar cmd[12];
	85	+
	86	+ memset(cmd, 0, sizeof cmd);
	87	+ cmd[0] = 0x4E;
	88	+ return scsi(d->scsi, cmd, sizeof cmd, nil, 0, Snone);
	89	+}
	90	+
	91	+int
	92	+eject(Drive *d)
	93	+{
	94	+ uchar cmd[12];
	95	+
	96	+ memset(cmd, 0, sizeof cmd);
	97	+ cmd[0] = 0x1B;
	98	+ cmd[1] = 1;
	99	+ cmd[4] = 2;
	100	+ return scsi(d->scsi, cmd, sizeof cmd, nil, 0, Snone);
	101	+}
	102	+
	103	+int
	104	+ingest(Drive *d)
	105	+{
	106	+ uchar cmd[12];
	107	+
	108	+ memset(cmd, 0, sizeof cmd);
	109	+ cmd[0] = 0x1B;
	110	+ cmd[1] = 1;
	111	+ cmd[4] = 3;
	112	+ return scsi(d->scsi, cmd, sizeof cmd, nil, 0, Snone);
	113	+}
	114	+
	115	+static Msf
	116	+rdmsf(uchar *p)
	117	+{
	118	+ Msf msf;
	119	+
	120	+ msf.m = p[0];
	121	+ msf.s = p[1];
	122	+ msf.f = p[2];
	123	+ return msf;
	124	+}
	125	+
	126	+static ulong
	127	+rdlba(uchar *p)
	128	+{
	129	+ return (p[0]<<16) \| (p[1]<<8) \| p[2];
	130	+}
	131	+
	132	+/* not a Drive, so that we don't accidentally touch Drive.toc */
	133	+int
	134	+gettoc(Scsi s, Toc t)
	135	+{
	136	+ int i, n;
	137	+ uchar cmd[12];
	138	+ uchar resp[1024];
	139	+
	140	+Again:
	141	+ memset(t, 0, sizeof(*t));
	142	+ memset(cmd, 0, sizeof cmd);
	143	+ cmd[0] = 0x43;
	144	+ cmd[1] = 0x02;
	145	+ cmd[7] = sizeof(resp)>>8;
	146	+ cmd[8] = sizeof(resp);
	147	+
	148	+ s->changetime = 1;
	149	+ /* scsi sets nchange, changetime */
	150	+ if(scsi(s, cmd, sizeof cmd, resp, sizeof(resp), Sread) < 4)
	151	+ return -1;
	152	+
	153	+ if(s->changetime == 0) {
	154	+ t->ntrack = 0;
	155	+ werrstr("no media");
	156	+ return -1;
	157	+ }
	158	+
	159	+ if(t->nchange == s->nchange && t->changetime != 0)
	160	+ return 0;
	161	+
	162	+ t->nchange = s->nchange;
	163	+ t->changetime = s->changetime;
	164	+
	165	+ if(t->ntrack > MTRACK)
	166	+ t->ntrack = MTRACK;
	167	+
	168	+DPRINT(2, "%d %d\n", resp[3], resp[2]);
	169	+ t->ntrack = resp[3]-resp[2]+1;
	170	+ t->track0 = resp[2];
	171	+
	172	+ n = ((resp[0]<<8) \| resp[1])+2;
	173	+ if(n < 4+8*(t->ntrack+1)) {
	174	+ werrstr("bad read0 %d %d", n, 4+8*(t->ntrack+1));
	175	+ return -1;
	176	+ }
	177	+
	178	+ for(i=0; i<=t->ntrack; i++) /* <=: track[ntrack] = end */
	179	+ t->track[i].start = rdmsf(resp+4+i*8+5);
	180	+
	181	+ for(i=0; i<t->ntrack; i++)
	182	+ t->track[i].end = t->track[i+1].start;
	183	+
	184	+ memset(cmd, 0, sizeof cmd);
	185	+ cmd[0] = 0x43;
	186	+ cmd[7] = sizeof(resp)>>8;
	187	+ cmd[8] = sizeof(resp);
	188	+ if(scsi(s, cmd, sizeof cmd, resp, sizeof(resp), Sread) < 4)
	189	+ return -1;
	190	+
	191	+ if(s->changetime != t->changetime \|\| s->nchange != t->nchange) {
	192	+ fprint(2, "disk changed underfoot; repeating\n");
	193	+ goto Again;
	194	+ }
	195	+
	196	+ n = ((resp[0]<<8) \| resp[1])+2;
	197	+ if(n < 4+8*(t->ntrack+1)) {
	198	+ werrstr("bad read");
	199	+ return -1;
	200	+ }
	201	+
	202	+ for(i=0; i<=t->ntrack; i++)
	203	+ t->track[i].bstart = rdlba(resp+4+i*8+5);
	204	+
	205	+ for(i=0; i<t->ntrack; i++)
	206	+ t->track[i].bend = t->track[i+1].bstart;
	207	+
	208	+ return 0;
	209	+}
	210	+
	211	+static void
	212	+dumptoc(Toc *t)
	213	+{
	214	+ int i;
	215	+
	216	+ fprint(1, "%d tracks\n", t->ntrack);
	217	+ for(i=0; i<t->ntrack; i++)
	218	+ print("%d. %M-%M (%lud-%lud)\n", i+1,
	219	+ t->track[i].start, t->track[i].end,
	220	+ t->track[i].bstart, t->track[i].bend);
	221	+}
	222	+
	223	+static void
	224	+ping(Drive *d)
	225	+{
	226	+ uchar cmd[12];
	227	+
	228	+ memset(cmd, 0, sizeof cmd);
	229	+ cmd[0] = 0x43;
	230	+ scsi(d->scsi, cmd, sizeof(cmd), nil, 0, Snone);
	231	+}
	232	+
	233	+static int
	234	+playstatus(Drive d, Cdstatus stat)
	235	+{
	236	+ uchar cmd[12], resp[16];
	237	+
	238	+ memset(cmd, 0, sizeof cmd);
	239	+ cmd[0] = 0x42;
	240	+ cmd[1] = 0x02;
	241	+ cmd[2] = 0x40;
	242	+ cmd[3] = 0x01;
	243	+ cmd[7] = sizeof(resp)>>8;
	244	+ cmd[8] = sizeof(resp);
	245	+ if(scsi(d->scsi, cmd, sizeof(cmd), resp, sizeof(resp), Sread) < 0)
	246	+ return -1;
	247	+
	248	+ switch(resp[1]){
	249	+ case 0x11:
	250	+ stat->state = Splaying;
	251	+ break;
	252	+ case 0x12:
	253	+ stat->state = Spaused;
	254	+ break;
	255	+ case 0x13:
	256	+ stat->state = Scompleted;
	257	+ break;
	258	+ case 0x14:
	259	+ stat->state = Serror;
	260	+ break;
	261	+ case 0x00: /* not supported */
	262	+ case 0x15: /* no current status to return */
	263	+ default:
	264	+ stat->state = Sunknown;
	265	+ break;
	266	+ }
	267	+
	268	+ stat->track = resp[6];
	269	+ stat->index = resp[7];
	270	+ stat->abs = rdmsf(resp+9);
	271	+ stat->rel = rdmsf(resp+13);
	272	+ return 0;
	273	+}
	274	+
	275	+void
	276	+cdstatusproc(void *v)
	277	+{
	278	+ Drive *d;
	279	+ Toc t;
	280	+ Cdstatus s;
	281	+
	282	+ t.changetime = ~0;
	283	+ t.nchange = ~0;
	284	+
	285	+ threadsetname("cdstatusproc");
	286	+ d = v;
	287	+ DPRINT(2, "cdstatus %d\n", getpid());
	288	+ for(;;) {
	289	+ ping(d);
	290	+ //DPRINT(2, "d %d %d t %d %d\n", d->scsi->changetime, d->scsi->nchange, t.changetime, t.nchange);
	291	+ if(playstatus(d, &s) == 0)
	292	+ send(d->cstatus, &s);
	293	+ if(d->scsi->changetime != t.changetime \|\| d->scsi->nchange != t.nchange) {
	294	+ if(gettoc(d->scsi, &t) == 0) {
	295	+ DPRINT(2, "sendtoc...\n");
	296	+ if(debug) dumptoc(&t);
	297	+ send(d->ctocdisp, &t);
	298	+ } else
	299	+ DPRINT(2, "error: %r\n");
	300	+ }
	301	+ sleep(1000);
	302	+ }
	303	+}

acme/bin/source/acd/outline+32−0

@@ -0,0 +1,32 @@
	1	+acd is composed of four procs
	2	+
	3	+wineventproc (win.c:/^wineventproc)
	4	+ reads acme window events, sends them along w->cevent.
	5	+
	6	+cdstatusproc (mmc.c:/^cdstatusproc)
	7	+ reads cd status once per second, sending
	8	+ status updates to d->cstatus.
	9	+ detects disk changes, sends new tocs to d->ctocdisp.
	10	+
	11	+cddbproc (cddb.c:/^cddbproc)
	12	+ reads tocs from d->cdbreq, if it finds
	13	+ translations in the cddb, sends new tocs to d->cdbreply.
	14	+
	15	+eventwatcher (main.c:/^eventwatcher)
	16	+ the main event loop.
	17	+ reads status from d->cstatus.
	18	+ reads events from w->cevent.
	19	+ reads new tocs to display from d->ctocdisp.
	20	+ sends new tocs to translate to d->cdbreq.
	21	+ reads new translated tocs from d->cdbreply.
	22	+
	23	+an interesting bug in the original design:
	24	+ both cdstatusproc and the eventwatcher proc
	25	+ issue scsi commands. (the eventwatcher responds to
	26	+ things such as Play, Stop, etc., as well as advancing the track.)
	27	+
	28	+ the sd(3) driver did not expect overlapped commands,
	29	+ and crashed.
	30	+
	31	+ this has been fixed by making the scsi(2) commands threadsafe,
	32	+ and making the sd(3) driver more robust.

acme/bin/source/acd/submit+220−0

@@ -0,0 +1,220 @@
	1	+CDDB SUBMISSION
	2	+---------------
	3	+
	4	+Your software may allow users to enter CDDB data and then submit them
	5	+to the freedb archive.
	6	+There are two methods of submission: <a href="#email">via e-mail</a> or <a href="#http">via http</a> using submit.cgi
	7	+
	8	+<a name="email"></a>1. Submission via e-mail
	9	+------------------------
	10	+
	11	+Your software has to send the entry to the
	12	+following address:
	13	+
	14	+ freedb-submit@freedb.org
	15	+
	16	+You may implement a button or somesuch in your software's user-interface
	17	+to facilitate this. The destination e-mail address should be made
	18	+user-configurable.
	19	+
	20	+There should be one e-mail message per freedb entry. The mail Subject
	21	+line should be in the form "cddb category discid". For example:
	22	+
	23	+Subject: cddb rock 850f970b
	24	+
	25	+The body of the e-mail message should be in the format of a CDDB file
	26	+entry as described <a href="http://freedb.freedb.org/software/old/DBFORMAT">here</a>. The messages should contain only
	27	+plain ASCII text. Do not attach encoded information or add special
	28	+escape sequences.
	29	+
	30	+Note that the disc ID specified in the mail Subject line should
	31	+also appear in the list of disc IDs in the DISCID= field of the
	32	+CDDB file entry. If not, it is considered an error and the submission
	33	+will be rejected.
	34	+
	35	+You should only allow categories that are currently supported by the
	36	+freedb (blues, classical, country, data, folk, jazz, misc, newage,
	37	+reggae, rock, soundtrack). Submissions specifying unsupported
	38	+categories will be rejected.
	39	+
	40	+Please do not allow a user to submit CD database entries that
	41	+have completely unfilled contents (i.e., blank information in the
	42	+disc artist/title as well as the track titles, or filled with
	43	+useless default information like "track 1", "track 2", etc.).
	44	+While the current CD database server checks and rejects submissions
	45	+that have a blank DTITLE line, it doesn't (and can't feasibly) check
	46	+the track titles effectively, nor can it check any of these fields
	47	+if they are filled with a default string. If it were, it would
	48	+have to be hacked to know about the default strings of every possible
	49	+client.
	50	+
	51	+Thus, please design your client with this in mind. This is a somewhat
	52	+tricky thing to do, as some CDs contain blank tracks with no titles
	53	+and you need to allow for that. An example minimum requirement
	54	+that a CD player client should meet is listed below:
	55	+
	56	+1. Don't allow the "send" or "submit" feature to be activated if
	57	+ the CD database information form is not edited at all.
	58	+2. Check that the disc artist/title contains something (that the user
	59	+ typed in).
	60	+3. Check that all of the tracks have a title filled in by the user
	61	+ (some (but not all!) may be blank, but not the default string).
	62	+
	63	+This should minimize the number of useless garbage being submitted
	64	+into the CD database.
	65	+
	66	+Before you release your software, please be sure that it produces
	67	+submissions that adheres to the CDDB file format, and that the frame
	68	+offset, disc length, and disc ID information are correctly computed.
	69	+For testing, please make your software send submissions to the
	70	+following e-mail address (rather than the real submission site at
	71	+freedb-submit@freedb.org):
	72	+
	73	+ test-submit@freedb.org
	74	+
	75	+The test address performs sanity checking on the CDDB submission and
	76	+sends back pass/fail confirmation, but does not actually deposit the
	77	+entry in the CD database.
	78	+
	79	+<a name="http"></a>2. Submission via http
	80	+----------------------
	81	+
	82	+For submit via http, your application has to transmit the entry to the
	83	+database through a CGI program at the following URL:
	84	+
	85	+http://freedb.freedb.org/~cddb/submit.cgi
	86	+
	87	+Submissions are made through the CGI program as follows. You must only use
	88	+the "POST" method of sending data; "GET" is not supported. There are several
	89	+HTTP "Entity-Header" fields that must be included in the data followed by a
	90	+blank line, followed by the "Entity-Body" (a.k.a the CDDB entry) in the
	91	+format described in Appendix B below. The required header fields are:
	92	+
	93	+Category: CDDB_category
	94	+Discid: CDDB_discid
	95	+User-Email: user@domain
	96	+Submit-Mode: test_or_submit
	97	+Content-Length: length_of_CDDB_entry
	98	+
	99	+Where:
	100	+
	101	+- "CDDB_category" is one of the valid CDDB categories (blues, classical,
	102	+ country, data, folk, jazz, misc, newage, reggae, rock, soundtrack).
	103	+ Invalid categories will result in the entry being rejected.
	104	+
	105	+- "CDDB_discid" is the 8-digit hex CDDB disc ID of the entry as described in
	106	+ the "<a href="http://freedb.freedb.org/sections.php?op=viewarticle&artid=6">Discid howto</a>" section. This must be the same disc ID that appears
	107	+ in the "DISCID=" section of the entry being submitted. If not, the entry
	108	+ will be rejected.
	109	+
	110	+- "user@domain" is the valid email address of the user submitting the entry.
	111	+ This is required in case a submission failure notice must be sent to the
	112	+ user.
	113	+
	114	+- "test_or_submit" is the word "test" or "submit" (without the surrounding
	115	+ quotes) to indicate whether the submission is a test submission or a real
	116	+ submission to the database, respectively. See <a href="#testsubmission">below</a> for an explanation of
	117	+ test submissions.
	118	+
	119	+- "length_of_CDDB_entry" is the size in bytes of the CDDB entry being
	120	+ submitted. This number does not include the length of the header or the
	121	+ blank line separating the HTTP header and the CDDB entry.
	122	+
	123	+There are several additional optional HTTP header fields that may also
	124	+be specified (but which are currently not used by the freedb):
	125	+
	126	+Charset: character_set_of_CDDB_entry
	127	+X-Cddbd-Note: message for user
	128	+
	129	+Where:
	130	+
	131	+- "character_set_of_CDDB_entry" is one of ISO-8859-1 or US-ASCII (lower case
	132	+ may be used if desired). This specifies to the CDDB server which character
	133	+ set the CDDB entry has been encoded in. If your application knows the
	134	+ user's character set, then you should specify it here. Only these two
	135	+ character sets are supported currently. DO NOT specify the character set
	136	+ if your application does not have any way of verifying the user's character
	137	+ set (i.e. do not guess; it's better not to specify it at all).
	138	+
	139	+- "message for user" is an arbitrary message to be included at the top of
	140	+ any rejection notice that may be sent to the submitting user.
	141	+
	142	+An example submission showing the HTTP command, "Entity-Header" and "Entity-
	143	+Body" follows:
	144	+
	145	+POST /~cddb/submit.cgi HTTP/1.0
	146	+Category: rock
	147	+Discid: 2a09310a
	148	+User-Email: joe@joeshost.joesdomain.com
	149	+Submit-Mode: submit
	150	+Charset: ISO-8859-1
	151	+X-Cddbd-Note: Problems with Super CD Player? Send email to support@supercd.com.
	152	+Content-Length: 820
	153	+
	154	+# xmcd
	155	+#
	156	+# Track frame offsets:
	157	+[ data omitted in this example for brevity ]
	158	+PLAYORDER=
	159	+
	160	+Note the blank line between the "Content-Length" header field and the
	161	+"# xmcd" which marks the beginning of the CDDB entry.
	162	+
	163	+When your application submits an entry through the CGI program, it will
	164	+respond with a 3-digit response code indicating whether or not the entry has
	165	+been forwarded to the freedb server for inclusion in the database, followed
	166	+by a textual description of the response code. For example:
	167	+
	168	+200 OK, submission has been sent.
	169	+400 Internal error: failed to forward submission.
	170	+500 Missing required header information.
	171	+
	172	+These are but a few of the possible responses.
	173	+See the description of the <a href="http://freedb.freedb.org/sections.php?op=viewarticle&artid=28">CDDB server protocol</a> for more information on
	174	+handling response codes.
	175	+
	176	+The body of the freedb entry being submitted should be sent verbatim as
	177	+described in the <a href="http://freedb.freedb.org/software/old/DBFORMAT">database-format specification</a>. DO NOT encode the data in any
	178	+way before transmitting it; data must be sent as raw text. For example,
	179	+Windows programmers should not use the Windows URL encode function prior to
	180	+calling the submit CGI program. Doing so may lead to corrupt data being sent
	181	+and also possibly to rejected submissions.
	182	+
	183	+You may implement a button or somesuch in your software's user interface
	184	+to initiate submissions. Rejected submissions are automatically returned
	185	+via email to the sender specified in the "User-Email" header field with an
	186	+explanation of the reason for the rejection.
	187	+
	188	+Please do not allow a user to submit CD database entries that
	189	+have completely unfilled contents (i.e., blank information in the
	190	+disc artist/title as well as the track titles, or filled with
	191	+useless default information like "track 1", "track 2", etc.).
	192	+While the current CD database server checks and rejects submissions
	193	+that have a blank DTITLE line, it doesn't (and can't feasibly) check
	194	+the track titles effectively, nor can it check any of these fields
	195	+if they are filled with a default string. If it were, it would
	196	+have to be hacked to know about the default strings of every possible
	197	+client.
	198	+
	199	+Thus, please design your client with this in mind. This is a somewhat
	200	+tricky thing to do, as some CDs contain blank tracks with no titles
	201	+and you need to allow for that. An example minimum requirement
	202	+that a CD player client should meet is listed below:
	203	+
	204	+1. Don't allow the "send" or "submit" feature to be activated if
	205	+ the CD database information form is not edited at all.
	206	+2. Check that the disc artist/title contains something (that the user
	207	+ typed in).
	208	+3. Check that all of the tracks have a title filled in by the user.
	209	+ (some (but not all!) may be blank, but not the default string).
	210	+
	211	+Before you release your software, please be sure that it produces
	212	+submissions that adhere to the CDDB file format, and that the frame
	213	+offset, disc length, and disc ID information are correctly computed.
	214	+For testing, please make your software send submissions with the
	215	+"Submit-Mode" HTTP header field set to "test".
	216	+
	217	+<a name="testsubmission"></a>CDDB submissions sent in test mode will be sanity-checked by the freedb server
	218	+and pass/fail confirmation sent back to the submitter, but will not actually
	219	+be deposited in the CD database. Please DO NOT send submisions in "submit"
	220	+mode until you have tested your program with several different CD's.

acme/bin/source/acd/toc.c+59−0

@@ -0,0 +1,59 @@
	1	+#include "acd.h"
	2	+
	3	+Toc thetoc;
	4	+
	5	+void
	6	+tocthread(void *v)
	7	+{
	8	+ Drive *d;
	9	+
	10	+ threadsetname("tocthread");
	11	+ d = v;
	12	+ DPRINT(2, "recv ctocdisp?...");
	13	+ while(recv(d->ctocdisp, &thetoc) == 1) {
	14	+ DPRINT(2, "recv ctocdisp!...");
	15	+ drawtoc(d->w, &thetoc);
	16	+ DPRINT(2, "send dbreq...\n");
	17	+ send(d->ctocdbreq, &thetoc);
	18	+ }
	19	+}
	20	+
	21	+void
	22	+freetoc(Toc *t)
	23	+{
	24	+ int i;
	25	+
	26	+ free(t->title);
	27	+ for(i=0; i<t->ntrack; i++)
	28	+ free(t->track[i].title);
	29	+}
	30	+
	31	+void
	32	+cddbthread(void *v)
	33	+{
	34	+ Drive *d;
	35	+ Toc t;
	36	+
	37	+ threadsetname("cddbthread");
	38	+ d = v;
	39	+ while(recv(d->ctocdbreply, &t) == 1) {
	40	+ if(thetoc.nchange == t.nchange) {
	41	+ freetoc(&thetoc);
	42	+ thetoc = t;
	43	+ redrawtoc(d->w, &thetoc);
	44	+ }
	45	+ }
	46	+}
	47	+
	48	+void
	49	+cdstatusthread(void *v)
	50	+{
	51	+ Drive *d;
	52	+ Cdstatus s;
	53	+
	54	+ d = v;
	55	+
	56	+ for(;;)
	57	+ recv(d->cstat, &s);
	58	+
	59	+}

acme/bin/source/acd/util.c+89−0

@@ -0,0 +1,89 @@
	1	+#include "acd.h"
	2	+
	3	+void*
	4	+emalloc(uint n)
	5	+{
	6	+ void *p;
	7	+
	8	+ p = malloc(n);
	9	+ if(p == nil)
	10	+ error("can't malloc: %r");
	11	+ memset(p, 0, n);
	12	+ return p;
	13	+}
	14	+
	15	+char*
	16	+estrdup(char *s)
	17	+{
	18	+ char *t;
	19	+
	20	+ t = emalloc(strlen(s)+1);
	21	+ strcpy(t, s);
	22	+ return t;
	23	+}
	24	+
	25	+char*
	26	+estrstrdup(char s, char t)
	27	+{
	28	+ char *u;
	29	+
	30	+ u = emalloc(strlen(s)+strlen(t)+1);
	31	+ strcpy(u, s);
	32	+ strcat(u, t);
	33	+ return u;
	34	+}
	35	+
	36	+char*
	37	+eappend(char s, char sep, char *t)
	38	+{
	39	+ char *u;
	40	+
	41	+ if(t == nil)
	42	+ u = estrstrdup(s, sep);
	43	+ else{
	44	+ u = emalloc(strlen(s)+strlen(sep)+strlen(t)+1);
	45	+ strcpy(u, s);
	46	+ strcat(u, sep);
	47	+ strcat(u, t);
	48	+ }
	49	+ free(s);
	50	+ return u;
	51	+}
	52	+
	53	+char*
	54	+egrow(char s, char sep, char *t)
	55	+{
	56	+ s = eappend(s, sep, t);
	57	+ free(t);
	58	+ return s;
	59	+}
	60	+
	61	+void
	62	+error(char *fmt, ...)
	63	+{
	64	+ int n;
	65	+ va_list arg;
	66	+ char buf[256];
	67	+
	68	+ fprint(2, "Mail: ");
	69	+ va_start(arg, fmt);
	70	+ n = vsnprint(buf, sizeof buf, fmt, arg);
	71	+ va_end(arg);
	72	+ write(2, buf, n);
	73	+ write(2, "\n", 1);
	74	+ threadexitsall(fmt);
	75	+}
	76	+
	77	+void
	78	+ctlprint(int fd, char *fmt, ...)
	79	+{
	80	+ int n;
	81	+ va_list arg;
	82	+ char buf[256];
	83	+
	84	+ va_start(arg, fmt);
	85	+ n = vsnprint(buf, sizeof buf, fmt, arg);
	86	+ va_end(arg);
	87	+ if(write(fd, buf, n) != n)
	88	+ error("control file write error: %r");
	89	+}

acme/bin/source/acd/win.c+320−0

@@ -0,0 +1,320 @@
	1	+#include "acd.h"
	2	+
	3	+Window*
	4	+newwindow(void)
	5	+{
	6	+ char buf[12];
	7	+ Window *w;
	8	+
	9	+ w = emalloc(sizeof(Window));
	10	+ w->ctl = open("/mnt/wsys/new/ctl", ORDWR\|OCEXEC);
	11	+ if(w->ctl<0 \|\| read(w->ctl, buf, 12)!=12)
	12	+ error("can't open window ctl file: %r");
	13	+ ctlprint(w->ctl, "noscroll\n");
	14	+ w->id = atoi(buf);
	15	+ w->event = winopenfile(w, "event");
	16	+ w->addr = -1; /* will be opened when needed */
	17	+ w->body = nil;
	18	+ w->data = -1;
	19	+ w->cevent = chancreate(sizeof(Event*), 0);
	20	+ if(w->cevent == nil)
	21	+ error("cevent is nil: %r");
	22	+ return w;
	23	+}
	24	+
	25	+void
	26	+winsetdump(Window w, char dir, char *cmd)
	27	+{
	28	+ if(dir != nil)
	29	+ ctlprint(w->ctl, "dumpdir %s\n", dir);
	30	+ if(cmd != nil)
	31	+ ctlprint(w->ctl, "dump %s\n", cmd);
	32	+}
	33	+
	34	+void
	35	+wineventproc(void *v)
	36	+{
	37	+ Window *w;
	38	+ int i;
	39	+
	40	+ threadsetname("wineventproc");
	41	+ w = v;
	42	+ for(i=0; ; i++){
	43	+ if(i >= NEVENT)
	44	+ i = 0;
	45	+ wingetevent(w, &w->e[i]);
	46	+ sendp(w->cevent, &w->e[i]);
	47	+ }
	48	+}
	49	+
	50	+int
	51	+winopenfile(Window w, char f)
	52	+{
	53	+ char buf[64];
	54	+ int fd;
	55	+
	56	+ sprint(buf, "/mnt/wsys/%d/%s", w->id, f);
	57	+ fd = open(buf, ORDWR\|OCEXEC);
	58	+ if(fd < 0)
	59	+ error("can't open window file %s: %r", f);
	60	+ return fd;
	61	+}
	62	+
	63	+void
	64	+wintagwrite(Window w, char s, int n)
	65	+{
	66	+ int fd;
	67	+
	68	+ fd = winopenfile(w, "tag");
	69	+ if(write(fd, s, n) != n)
	70	+ error("tag write: %r");
	71	+ close(fd);
	72	+}
	73	+
	74	+void
	75	+winname(Window w, char s)
	76	+{
	77	+ ctlprint(w->ctl, "name %s\n", s);
	78	+}
	79	+
	80	+void
	81	+winopenbody(Window *w, int mode)
	82	+{
	83	+ char buf[256];
	84	+
	85	+ sprint(buf, "/mnt/wsys/%d/body", w->id);
	86	+ w->body = Bopen(buf, mode\|OCEXEC);
	87	+ if(w->body == nil)
	88	+ error("can't open window body file: %r");
	89	+}
	90	+
	91	+void
	92	+winclosebody(Window *w)
	93	+{
	94	+ if(w->body != nil){
	95	+ Bterm(w->body);
	96	+ w->body = nil;
	97	+ }
	98	+}
	99	+
	100	+void
	101	+winwritebody(Window w, char s, int n)
	102	+{
	103	+ if(w->body == nil)
	104	+ winopenbody(w, OWRITE);
	105	+ if(Bwrite(w->body, s, n) != n)
	106	+ error("write error to window: %r");
	107	+}
	108	+
	109	+int
	110	+wingetec(Window *w)
	111	+{
	112	+ if(w->nbuf == 0){
	113	+ w->nbuf = read(w->event, w->buf, sizeof w->buf);
	114	+ if(w->nbuf <= 0){
	115	+ /* probably because window has exited, and only called by wineventproc, so just shut down */
	116	+ threadexits(nil);
	117	+ }
	118	+ w->bufp = w->buf;
	119	+ }
	120	+ w->nbuf--;
	121	+ return *w->bufp++;
	122	+}
	123	+
	124	+int
	125	+wingeten(Window *w)
	126	+{
	127	+ int n, c;
	128	+
	129	+ n = 0;
	130	+ while('0'<=(c=wingetec(w)) && c<='9')
	131	+ n = n*10+(c-'0');
	132	+ if(c != ' ')
	133	+ error("event number syntax");
	134	+ return n;
	135	+}
	136	+
	137	+int
	138	+wingeter(Window w, char buf, int *nb)
	139	+{
	140	+ Rune r;
	141	+ int n;
	142	+
	143	+ r = wingetec(w);
	144	+ buf[0] = r;
	145	+ n = 1;
	146	+ if(r >= Runeself) {
	147	+ while(!fullrune(buf, n))
	148	+ buf[n++] = wingetec(w);
	149	+ chartorune(&r, buf);
	150	+ }
	151	+ *nb = n;
	152	+ return r;
	153	+}
	154	+
	155	+void
	156	+wingetevent(Window w, Event e)
	157	+{
	158	+ int i, nb;
	159	+
	160	+ e->c1 = wingetec(w);
	161	+ e->c2 = wingetec(w);
	162	+ e->q0 = wingeten(w);
	163	+ e->q1 = wingeten(w);
	164	+ e->flag = wingeten(w);
	165	+ e->nr = wingeten(w);
	166	+ if(e->nr > EVENTSIZE)
	167	+ error("event string too long");
	168	+ e->nb = 0;
	169	+ for(i=0; i<e->nr; i++){
	170	+ e->r[i] = wingeter(w, e->b+e->nb, &nb);
	171	+ e->nb += nb;
	172	+ }
	173	+ e->r[e->nr] = 0;
	174	+ e->b[e->nb] = 0;
	175	+ if(wingetec(w) != '\n')
	176	+ error("event syntax error");
	177	+}
	178	+
	179	+void
	180	+winwriteevent(Window w, Event e)
	181	+{
	182	+ fprint(w->event, "%c%c%d %d\n", e->c1, e->c2, e->q0, e->q1);
	183	+}
	184	+
	185	+static int
	186	+nrunes(char *s, int nb)
	187	+{
	188	+ int i, n;
	189	+ Rune r;
	190	+
	191	+ n = 0;
	192	+ for(i=0; i<nb; n++)
	193	+ i += chartorune(&r, s+i);
	194	+ return n;
	195	+}
	196	+
	197	+void
	198	+winread(Window w, uint q0, uint q1, char data)
	199	+{
	200	+ int m, n, nr;
	201	+ char buf[256];
	202	+
	203	+ if(w->addr < 0)
	204	+ w->addr = winopenfile(w, "addr");
	205	+ if(w->data < 0)
	206	+ w->data = winopenfile(w, "data");
	207	+ m = q0;
	208	+ while(m < q1){
	209	+ n = sprint(buf, "#%d", m);
	210	+ if(write(w->addr, buf, n) != n)
	211	+ error("error writing addr: %r");
	212	+ n = read(w->data, buf, sizeof buf);
	213	+ if(n <= 0)
	214	+ error("reading data: %r");
	215	+ nr = nrunes(buf, n);
	216	+ while(m+nr >q1){
	217	+ do; while(n>0 && (buf[--n]&0xC0)==0x80);
	218	+ --nr;
	219	+ }
	220	+ if(n == 0)
	221	+ break;
	222	+ memmove(data, buf, n);
	223	+ data += n;
	224	+ *data = 0;
	225	+ m += nr;
	226	+ }
	227	+}
	228	+
	229	+void
	230	+windormant(Window *w)
	231	+{
	232	+ if(w->addr >= 0){
	233	+ close(w->addr);
	234	+ w->addr = -1;
	235	+ }
	236	+ if(w->body != nil){
	237	+ Bterm(w->body);
	238	+ w->body = nil;
	239	+ }
	240	+ if(w->data >= 0){
	241	+ close(w->data);
	242	+ w->data = -1;
	243	+ }
	244	+}
	245	+
	246	+
	247	+int
	248	+windel(Window *w, int sure)
	249	+{
	250	+ if(sure)
	251	+ write(w->ctl, "delete\n", 7);
	252	+ else if(write(w->ctl, "del\n", 4) != 4)
	253	+ return 0;
	254	+ /* event proc will die due to read error from event file */
	255	+ windormant(w);
	256	+ close(w->ctl);
	257	+ w->ctl = -1;
	258	+ close(w->event);
	259	+ w->event = -1;
	260	+ return 1;
	261	+}
	262	+
	263	+void
	264	+winclean(Window *w)
	265	+{
	266	+ if(w->body)
	267	+ Bflush(w->body);
	268	+ ctlprint(w->ctl, "clean\n");
	269	+}
	270	+
	271	+int
	272	+winsetaddr(Window w, char addr, int errok)
	273	+{
	274	+ if(w->addr < 0)
	275	+ w->addr = winopenfile(w, "addr");
	276	+ if(write(w->addr, addr, strlen(addr)) < 0){
	277	+ if(!errok)
	278	+ error("error writing addr(%s): %r", addr);
	279	+ return 0;
	280	+ }
	281	+ return 1;
	282	+}
	283	+
	284	+int
	285	+winselect(Window w, char addr, int errok)
	286	+{
	287	+ if(winsetaddr(w, addr, errok)){
	288	+ ctlprint(w->ctl, "dot=addr\n");
	289	+ return 1;
	290	+ }
	291	+ return 0;
	292	+}
	293	+
	294	+char*
	295	+winreadbody(Window w, int np) /* can't use readfile because acme doesn't report the length */
	296	+{
	297	+ char *s;
	298	+ int m, na, n;
	299	+
	300	+ if(w->body != nil)
	301	+ winclosebody(w);
	302	+ winopenbody(w, OREAD);
	303	+ s = nil;
	304	+ na = 0;
	305	+ n = 0;
	306	+ for(;;){
	307	+ if(na < n+512){
	308	+ na += 1024;
	309	+ s = realloc(s, na+1);
	310	+ }
	311	+ m = Bread(w->body, s+n, na-n);
	312	+ if(m <= 0)
	313	+ break;
	314	+ n += m;
	315	+ }
	316	+ s[n] = 0;
	317	+ winclosebody(w);
	318	+ *np = n;
	319	+ return s;
	320	+}

acme/bin/source/adict/_adict.c+584−0

@@ -0,0 +1,584 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include "win.h"
	6	+#include "adict.h"
	7	+
	8	+char *prog = "adict";
	9	+char *lprog = "/bin/adict";
	10	+char *xprog = "/bin/dict";
	11	+char dict, pattern, curaddr[MAXMATCH], curone, *args[6], buffer[80];
	12	+char abuffer[80], fbuffer[80], pbuffer[80];
	13	+int curindex, count, Eopen, Mopen;
	14	+Win Mwin, Ewin, Dwin;
	15	+
	16	+void openwin(char, char, Win*, int);
	17	+void handle(Win*, int);
	18	+void rexec(void*);
	19	+void pexec(void*);
	20	+int getaddr(char*);
	21	+
	22	+void
	23	+usage(void)
	24	+{
	25	+ threadprint(2, "usage: %s [-d dictname] [pattern]\n", argv0);
	26	+ threadexitsall(nil);
	27	+}
	28	+
	29	+void
	30	+threadmain(int argc, char** argv)
	31	+{
	32	+ ARGBEGIN{
	33	+ case 'd':
	34	+ dict = strdup(ARGF());
	35	+ break;
	36	+ default:
	37	+ usage();
	38	+ }ARGEND
	39	+
	40	+ /* if running as other name, note that fact */
	41	+ if(access(argv0, AEXIST) == 0)
	42	+ lprog = argv0;
	43	+
	44	+ switch(argc){
	45	+ case 1:
	46	+ pattern = pbuffer;
	47	+ strcpy(pattern,argv[0]);
	48	+ if(dict == nil)
	49	+ dict = "oed";
	50	+ break;
	51	+ case 0:
	52	+ break;
	53	+ default:
	54	+ usage();
	55	+ }
	56	+
	57	+ if ((dict == nil) && (pattern == nil))
	58	+ openwin(prog,"", &Dwin, Dictwin);
	59	+ if (pattern == nil)
	60	+ openwin(prog,"",&Ewin, Entrywin);
	61	+ if ((count = getaddr(pattern)) <= 1)
	62	+ openwin(prog,"Prev Next", &Ewin, Entrywin);
	63	+ else
	64	+ openwin(prog, "", &Mwin, Matchwin);
	65	+}
	66	+
	67	+static int
	68	+procrexec(char *xprog, ...)
	69	+{
	70	+ int fpipe[2];
	71	+ void *rexarg[4];
	72	+ Channel *c;
	73	+ va_list va;
	74	+ int i;
	75	+ char *p;
	76	+
	77	+ pipe(fpipe);
	78	+ va_start(va, xprog);
	79	+ p = xprog;
	80	+ for(i=0; p && i+1<nelem(args); i++){
	81	+ args[i] = p;
	82	+ p = va_arg(va, char*);
	83	+ }
	84	+ args[i] = nil;
	85	+
	86	+ c = chancreate(sizeof(ulong), 0);
	87	+ rexarg[0] = xprog;
	88	+ rexarg[1] = args;
	89	+ rexarg[2] = fpipe;
	90	+ rexarg[3] = c;
	91	+
	92	+ proccreate(rexec, rexarg, 8192);
	93	+ recvul(c);
	94	+ chanfree(c);
	95	+ close(fpipe[1]);
	96	+ return fpipe[0];
	97	+}
	98	+
	99	+int
	100	+getaddr(char *pattern)
	101	+{
	102	+ /* Get char offset into dictionary of matches. */
	103	+
	104	+ int fd, i;
	105	+ Biobuf inbuf;
	106	+ char *bufptr;
	107	+char *obuf;
	108	+
	109	+ if (pattern == nil) {
	110	+ curone = nil;
	111	+ curindex = 0;
	112	+ curaddr[curindex] = nil;
	113	+ return 0;
	114	+ }
	115	+
	116	+ sprint(buffer,"/%s/A", pattern);
	117	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	118	+ Binit(&inbuf, fd, OREAD);
	119	+ i = 0;
	120	+ curindex = 0;
	121	+ while ((bufptr = Brdline(&inbuf, '\n')) != nil && (i < (MAXMATCH-1))) {
	122	+ bufptr[Blinelen(&inbuf)-1] = 0;
	123	+obuf=bufptr;
	124	+ while (bufptr[0] != '#' && bufptr[0] != 0) bufptr++;
	125	+if(bufptr[0] == 0)
	126	+ print("whoops buf «%s»\n", obuf);
	127	+ curaddr[i] = malloc(strlen(bufptr));
	128	+ strcpy(curaddr[i], bufptr);
	129	+ i++;
	130	+ }
	131	+ curaddr[i] = nil;
	132	+ if (i == MAXMATCH)
	133	+ threadprint(2, "Too many matches!\n");
	134	+ Bterm(&inbuf);
	135	+ close(fd);
	136	+
	137	+ curone = curaddr[curindex];
	138	+ return(i);
	139	+}
	140	+
	141	+char*
	142	+getpattern(char *addr)
	143	+{
	144	+ /* Get the pattern corresponding to an absolute address.*/
	145	+ int fd;
	146	+ char res, t;
	147	+
	148	+ res = nil;
	149	+ sprint(buffer,"%sh", addr);
	150	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	151	+ if (read(fd, pbuffer, 80) > 80)
	152	+ threadprint(2, "Error in getting addres from dict.\n");
	153	+ else {
	154	+ t = pbuffer;
	155	+ /* remove trailing whitespace, newline */
	156	+ if (t != nil){
	157	+ while(t != 0 && t != '\n')
	158	+ t++;
	159	+ if(t == 0 && t > pbuffer)
	160	+ t--;
	161	+ while(t >= pbuffer && (t==' ' \|\| t=='\n' \|\| t=='\t' \|\| t=='\r'))
	162	+ *t-- = 0;
	163	+ }
	164	+ res = pbuffer;
	165	+ }
	166	+ close(fd);
	167	+ return(res);
	168	+}
	169	+
	170	+char*
	171	+chgaddr(int dir)
	172	+{
	173	+ /* Increment or decrement the current address (curone). */
	174	+
	175	+ int fd;
	176	+ char res, t;
	177	+
	178	+ res = nil;
	179	+ if (dir < 0)
	180	+ sprint(buffer,"%s-a", curone);
	181	+ else
	182	+ sprint(buffer,"%s+a", curone);
	183	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	184	+ if (read(fd, abuffer, 80) > 80)
	185	+ threadprint(2, "Error in getting addres from dict.\n");
	186	+ else {
	187	+ res = abuffer;
	188	+ while (*res != '#') res++;
	189	+ t = res;
	190	+ while ((*t != '\n') && (t != nil)) t++;
	191	+ if (t != nil) *t = 0;
	192	+ }
	193	+ close(fd);
	194	+ return(res);
	195	+}
	196	+
	197	+void
	198	+dispdicts(Win *cwin)
	199	+{
	200	+ /* Display available dictionaries in window. */
	201	+
	202	+ int fd, nb, i;
	203	+ char buf[1024], *t;
	204	+
	205	+ fd = procrexec(xprog, "-d", "?", nil);
	206	+ wreplace(cwin, "0,$","",0); /* Clear window */
	207	+ while ((nb = read(fd, buf, 1024)) > 0) {
	208	+ t = buf;
	209	+ i = 0;
	210	+ if (strncmp("Usage", buf, 5) == 0) { /* Remove first line. */
	211	+ while (t[0] != '\n') {
	212	+ t++;
	213	+ i++;
	214	+ }
	215	+ t++;
	216	+ i++;
	217	+ }
	218	+ wwritebody(cwin, t, nb-i);
	219	+ }
	220	+ close(fd);
	221	+ wclean(cwin);
	222	+}
	223	+
	224	+void
	225	+dispentry(Win *cwin)
	226	+{
	227	+ /* Display the current selection in window. */
	228	+
	229	+ int fd, nb;
	230	+ char buf[BUFSIZE];
	231	+
	232	+ if (curone == nil) {
	233	+ if (pattern != nil) {
	234	+ sprint(buf,"Pattern not found.\n");
	235	+ wwritebody(cwin, buf, 19);
	236	+ wclean(cwin);
	237	+ }
	238	+ return;
	239	+ }
	240	+ sprint(buffer,"%sp", curone);
	241	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	242	+ wreplace(cwin, "0,$","",0); /* Clear window */
	243	+ while ((nb = read(fd, buf, BUFSIZE)) > 0) {
	244	+ wwritebody(cwin, buf, nb);
	245	+ }
	246	+ close(fd);
	247	+ wclean(cwin);
	248	+}
	249	+
	250	+void
	251	+dispmatches(Win *cwin)
	252	+{
	253	+ /* Display the current matches. */
	254	+
	255	+ int fd, nb;
	256	+ char buf[BUFSIZE];
	257	+
	258	+ sprint(buffer,"/%s/H", pattern);
	259	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	260	+ while ((nb = read(fd, buf, BUFSIZE)) > 0)
	261	+ wwritebody(cwin, buf, nb);
	262	+ close(fd);
	263	+ wclean(cwin);
	264	+}
	265	+
	266	+char*
	267	+format(char *s)
	268	+{
	269	+ /* Format a string to be written in window tag. Acme doesn't like */
	270	+ /* non alpha-num's in the tag line. */
	271	+
	272	+ char t, h;
	273	+
	274	+ t = fbuffer;
	275	+ if (s == nil) {
	276	+ *t = 0;
	277	+ return t;
	278	+ }
	279	+ strcpy(t, s);
	280	+ h = t;
	281	+ while (*t != 0) {
	282	+ if (!(((t >= 'a') && (t <= 'z')) \|\|
	283	+ ((t >= 'A') && (t <= 'Z')) \|\|
	284	+ ((t >= '0') && (t <= '9'))))
	285	+ *t = '_';
	286	+ t++;
	287	+ }
	288	+ if (strlen(h) > MAXTAG)
	289	+ h[MAXTAG] = 0;
	290	+ if (strcmp(s,h) == 0) return s;
	291	+ return h;
	292	+}
	293	+
	294	+void
	295	+openwin(char name, char buttons, Win *twin, int wintype)
	296	+{
	297	+ char buf[80];
	298	+
	299	+ wnew(twin);
	300	+ if (wintype == Dictwin)
	301	+ sprint(buf,"%s",name);
	302	+ else
	303	+ if ((wintype == Entrywin) && (count > 1))
	304	+ sprint(buf,"%s/%s/%s/%d",name, dict, format(pattern), curindex+1);
	305	+ else
	306	+ sprint(buf,"%s/%s/%s",name, dict, format(pattern));
	307	+ wname(twin, buf);
	308	+ wtagwrite(twin, buttons, strlen(buttons));
	309	+ wclean(twin);
	310	+ wdormant(twin);
	311	+ if (wintype == Dictwin)
	312	+ dispdicts(twin);
	313	+ if (wintype == Matchwin) {
	314	+ Mopen = True;
	315	+ dispmatches(twin);
	316	+ }
	317	+ if (wintype == Entrywin) {
	318	+ Eopen = True;
	319	+ dispentry(twin);
	320	+ }
	321	+ handle(twin, wintype);
	322	+}
	323	+
	324	+void
	325	+vopenwin(void *v)
	326	+{
	327	+ void **arg;
	328	+ char name, buttons;
	329	+ Win *twin;
	330	+ int wintype;
	331	+
	332	+ arg = v;
	333	+ name = arg[0];
	334	+ buttons = arg[1];
	335	+ twin = arg[2];
	336	+ wintype = (int)arg[3];
	337	+ sendul(arg[4], 0);
	338	+
	339	+ openwin(name, buttons, twin, wintype);
	340	+ threadexits(nil);
	341	+}
	342	+
	343	+void
	344	+procopenwin(char name, char buttons, Win *twin, int wintype)
	345	+{
	346	+ void *arg[5];
	347	+ Channel *c;
	348	+
	349	+ c = chancreate(sizeof(ulong), 0);
	350	+ arg[0] = name;
	351	+ arg[1] = buttons;
	352	+ arg[2] = twin;
	353	+ arg[3] = (void*)wintype;
	354	+ arg[4] = c;
	355	+ proccreate(vopenwin, arg, 8192);
	356	+ recvul(c);
	357	+ chanfree(c);
	358	+}
	359	+
	360	+void
	361	+rexec(void *v)
	362	+{
	363	+ void **arg;
	364	+ char *prog;
	365	+ char **args;
	366	+ int *fd;
	367	+ Channel *c;
	368	+
	369	+ arg = v;
	370	+ prog = arg[0];
	371	+ args = arg[1];
	372	+ fd = arg[2];
	373	+ c = arg[3];
	374	+
	375	+ rfork(RFENVG\|RFFDG);
	376	+ dup(fd[1], 1);
	377	+ close(fd[1]);
	378	+ close(fd[0]);
	379	+ procexec(c, prog, args);
	380	+ threadprint(2, "Remote pipe execution failed: %s %r\n", prog);
	381	+abort();
	382	+ threadexits(nil);
	383	+}
	384	+
	385	+void
	386	+pexec(void *v)
	387	+{
	388	+ void **arg;
	389	+ char *prog;
	390	+ char **args;
	391	+ Channel *c;
	392	+
	393	+ arg = v;
	394	+ prog = arg[0];
	395	+ args = arg[1];
	396	+ c = arg[2];
	397	+
	398	+ procexec(c, prog, args);
	399	+ threadprint(2, "Remote execution failed: %s %r\n", prog);
	400	+abort();
	401	+ threadexits(nil);
	402	+}
	403	+
	404	+void
	405	+procpexec(char prog, char *args)
	406	+{
	407	+ void *rexarg[4];
	408	+ Channel *c;
	409	+
	410	+ c = chancreate(sizeof(ulong), 0);
	411	+ rexarg[0] = prog;
	412	+ rexarg[1] = args;
	413	+ rexarg[2] = c;
	414	+
	415	+ proccreate(pexec, rexarg, 8192);
	416	+ recvul(c);
	417	+ chanfree(c);
	418	+}
	419	+
	420	+void
	421	+kill(void)
	422	+{
	423	+ /* Kill all processes related to this one. */
	424	+ int fd;
	425	+
	426	+ sprint(buffer, "/proc/%d/notepg", getpid());
	427	+ fd = open(buffer, OWRITE);
	428	+ rfork(RFNOTEG);
	429	+ write(fd, "kill", 4);
	430	+}
	431	+
	432	+int
	433	+command(char com, Win w, int wintype)
	434	+{
	435	+ char *buf;
	436	+
	437	+ if (strncmp(com, "Del", 3) == 0) {
	438	+ switch(wintype){
	439	+ case Entrywin:
	440	+ if (wdel(w)) {
	441	+ Eopen = False;
	442	+ threadexits(nil);
	443	+ }
	444	+ break;
	445	+ case Dictwin:
	446	+ if (wdel(w))
	447	+ threadexits(nil);
	448	+ break;
	449	+ case Matchwin:
	450	+ kill();
	451	+ if (Eopen)
	452	+ if (~wdel(&Ewin)) /* Remove the entry window */
	453	+ wdel(&Ewin);
	454	+ if (!wdel(w))
	455	+ wdel(w);
	456	+ threadexits(nil);
	457	+ break;
	458	+ }
	459	+ return True;
	460	+ }
	461	+ if (strncmp(com, "Next", 4) == 0){
	462	+ if (curone != nil) {
	463	+ curone = chgaddr(1);
	464	+ buf = getpattern(curone);
	465	+ sprint(buffer,"%s/%s/%s", prog, dict, format(buf));
	466	+ wname(w, buffer);
	467	+ dispentry(w);
	468	+ }
	469	+ return True;
	470	+ }
	471	+ if (strncmp(com, "Prev",4) == 0){
	472	+ if (curone != nil) {
	473	+ curone = chgaddr(-1);
	474	+ buf = getpattern(curone);
	475	+ sprint(buffer,"%s/%s/%s", prog, dict, format(buf));
	476	+ wname(w, buffer);
	477	+ dispentry(w);
	478	+ }
	479	+ return True;
	480	+ }
	481	+ if (strncmp(com, "Nmatch",6) == 0){
	482	+ if (curaddr[++curindex] == nil)
	483	+ curindex = 0;
	484	+ curone = curaddr[curindex];
	485	+ if (curone != nil) {
	486	+ sprint(buffer,"%s/%s/%s/%d",prog,dict,format(pattern),curindex+1);
	487	+ wname(w, buffer);
	488	+ dispentry(w);
	489	+ }
	490	+ return True;
	491	+ }
	492	+ return False;
	493	+}
	494	+
	495	+void
	496	+handle(Win *w, int wintype)
	497	+{
	498	+ Event e, e2, ea, etoss;
	499	+ char s, t, buf[80];
	500	+ int tmp, na;
	501	+
	502	+ while (True) {
	503	+ wevent(w, &e);
	504	+ switch(e.c2){
	505	+ default:
	506	+ /* threadprint(2,"unknown message %c%c\n", e.c1, e.c2); */
	507	+ break;
	508	+ case 'i':
	509	+ /* threadprint(2,"'%s' inserted in tag at %d\n", e.b, e.q0);*/
	510	+ break;
	511	+ case 'I':
	512	+ /* threadprint(2,"'%s' inserted in body at %d\n", e.b, e.q0);*/
	513	+ break;
	514	+ case 'd':
	515	+ /* threadprint(2, "'%s' deleted in tag at %d\n", e.b, e.q0);*/
	516	+ break;
	517	+ case 'D':
	518	+ /* threadprint(2, "'%s' deleted in body at %d\n", e.b, e.q0);*/
	519	+ break;
	520	+ case 'x':
	521	+ case 'X': /* Execute command. */
	522	+ if (e.flag & 2)
	523	+ wevent(w, &e2);
	524	+ if(e.flag & 8){
	525	+ wevent(w, &ea);
	526	+ wevent(w, &etoss);
	527	+ na = ea.nb;
	528	+ } else
	529	+ na = 0;
	530	+ s = e.b;
	531	+ if ((e.flag & 2) && e.nb == 0)
	532	+ s = e2.b;
	533	+ if(na){
	534	+ t = malloc(strlen(s)+1+na+1);
	535	+ snprint(t, strlen(s)+1+na+1, "%s %s", s, ea.b);
	536	+ s = t;
	537	+ }
	538	+ /* if it's a long message, it can't be for us anyway */
	539	+ if(!command(s, w, wintype)) /* send it back */
	540	+ wwriteevent(w, &e);
	541	+ if(na)
	542	+ free(s);
	543	+ break;
	544	+ case 'l':
	545	+ case 'L': /* Look for something. */
	546	+ if (e.flag & 2)
	547	+ wevent(w, &e);
	548	+ wclean(w); /* Set clean bit. */
	549	+ if (wintype == Dictwin) {
	550	+ strcpy(buf, e.b);
	551	+ args[0] = lprog;
	552	+ args[1] = "-d";
	553	+ args[2] = buf;
	554	+ args[3] = nil;
	555	+ procpexec(lprog, args); /* New adict with chosen dict. */
	556	+ }
	557	+ if (wintype == Entrywin) {
	558	+ strcpy(buf, e.b);
	559	+ args[0] = lprog;
	560	+ args[1] = "-d";
	561	+ args[2] = dict;
	562	+ args[3] = buf;
	563	+ args[4] = nil;
	564	+ procpexec(lprog, args); /* New adict with chosen pattern. */
	565	+ }
	566	+ if (wintype == Matchwin) {
	567	+ tmp = atoi(e.b) - 1;
	568	+ if ((tmp >= 0) && (tmp < MAXMATCH) && (curaddr[tmp] != nil)) {
	569	+ curindex = tmp;
	570	+ curone = curaddr[curindex];
	571	+ /* Display selected match. */
	572	+ if (Eopen) {
	573	+ sprint(buf,"%s/%s/%s/%d",prog,dict,format(pattern),curindex+1);
	574	+ wname(&Ewin, buf);
	575	+ dispentry(&Ewin);
	576	+ }
	577	+ else
	578	+ procopenwin(prog,"Nmatch Prev Next", &Ewin, Entrywin);
	579	+ }
	580	+ }
	581	+ break;
	582	+ }
	583	+ }
	584	+}

acme/bin/source/adict/_win.c+315−0

@@ -0,0 +1,315 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include "win.h"
	6	+
	7	+void*
	8	+erealloc(void *p, uint n)
	9	+{
	10	+ p = realloc(p, n);
	11	+ if(p == nil)
	12	+ threadprint(2, "realloc failed: %r");
	13	+ return p;
	14	+}
	15	+
	16	+void
	17	+wnew(Win *w)
	18	+{
	19	+ char buf[12];
	20	+
	21	+ w->ctl = open("/mnt/acme/new/ctl", ORDWR);
	22	+ if(w->ctl<0 \|\| read(w->ctl, buf, 12)!=12)
	23	+ threadprint (2, "can't open window ctl file: %r");
	24	+ ctlwrite(w, "noscroll\n");
	25	+ w->winid = atoi(buf);
	26	+ w->event = openfile(w, "event");
	27	+ w->addr = -1; /* will be opened when needed */
	28	+ w->body = nil;
	29	+ w->data = -1;
	30	+}
	31	+
	32	+int
	33	+openfile(Win w, char f)
	34	+{
	35	+ char buf[64];
	36	+ int fd;
	37	+
	38	+ sprint(buf, "/mnt/acme/%d/%s", w->winid, f);
	39	+ fd = open(buf, ORDWR\|OCEXEC);
	40	+ if(fd < 0)
	41	+ threadprint (2,"can't open window %s file: %r", f);
	42	+ return fd;
	43	+}
	44	+
	45	+void
	46	+openbody(Win *w, int mode)
	47	+{
	48	+ char buf[64];
	49	+
	50	+ sprint(buf, "/mnt/acme/%d/body", w->winid);
	51	+ w->body = Bopen(buf, mode\|OCEXEC);
	52	+ if(w->body == nil)
	53	+ threadprint(2,"can't open window body file: %r");
	54	+}
	55	+
	56	+void
	57	+wwritebody(Win w, char s, int n)
	58	+{
	59	+ if(w->body == nil)
	60	+ openbody(w, OWRITE);
	61	+ if(Bwrite(w->body, s, n) != n)
	62	+ threadprint(2,"write error to window: %r");
	63	+ Bflush(w->body);
	64	+}
	65	+
	66	+void
	67	+wreplace(Win w, char addr, char *repl, int nrepl)
	68	+{
	69	+ if(w->addr < 0)
	70	+ w->addr = openfile(w, "addr");
	71	+ if(w->data < 0)
	72	+ w->data = openfile(w, "data");
	73	+ if(write(w->addr, addr, strlen(addr)) < 0){
	74	+ threadprint(2, "mail: warning: badd address %s:%r\n", addr);
	75	+ return;
	76	+ }
	77	+ if(write(w->data, repl, nrepl) != nrepl)
	78	+ threadprint(2, "writing data: %r");
	79	+}
	80	+
	81	+static int
	82	+nrunes(char *s, int nb)
	83	+{
	84	+ int i, n;
	85	+ Rune r;
	86	+
	87	+ n = 0;
	88	+ for(i=0; i<nb; n++)
	89	+ i += chartorune(&r, s+i);
	90	+ return n;
	91	+}
	92	+
	93	+void
	94	+wread(Win w, uint q0, uint q1, char data)
	95	+{
	96	+ int m, n, nr;
	97	+ char buf[256];
	98	+
	99	+ if(w->addr < 0)
	100	+ w->addr = openfile(w, "addr");
	101	+ if(w->data < 0)
	102	+ w->data = openfile(w, "data");
	103	+ m = q0;
	104	+ while(m < q1){
	105	+ n = sprint(buf, "#%d", m);
	106	+ if(write(w->addr, buf, n) != n)
	107	+ threadprint(2,"writing addr: %r");
	108	+ n = read(w->data, buf, sizeof buf);
	109	+ if(n <= 0)
	110	+ threadprint(2,"reading data: %r");
	111	+ nr = nrunes(buf, n);
	112	+ while(m+nr >q1){
	113	+ do; while(n>0 && (buf[--n]&0xC0)==0x80);
	114	+ --nr;
	115	+ }
	116	+ if(n == 0)
	117	+ break;
	118	+ memmove(data, buf, n);
	119	+ data += n;
	120	+ *data = 0;
	121	+ m += nr;
	122	+ }
	123	+}
	124	+
	125	+void
	126	+wselect(Win w, char addr)
	127	+{
	128	+ if(w->addr < 0)
	129	+ w->addr = openfile(w, "addr");
	130	+ if(write(w->addr, addr, strlen(addr)) < 0)
	131	+ threadprint(2,"writing addr");
	132	+ ctlwrite(w, "dot=addr\n");
	133	+}
	134	+
	135	+void
	136	+wtagwrite(Win w, char s, int n)
	137	+{
	138	+ int fd;
	139	+
	140	+ fd = openfile(w, "tag");
	141	+ if(write(fd, s, n) != n)
	142	+ threadprint(2,"tag write: %r");
	143	+ close(fd);
	144	+}
	145	+
	146	+void
	147	+ctlwrite(Win w, char s)
	148	+{
	149	+ int n;
	150	+
	151	+ n = strlen(s);
	152	+ if(write(w->ctl, s, n) != n)
	153	+ threadprint(2,"write error to ctl file: %r");
	154	+}
	155	+
	156	+int
	157	+wdel(Win *w)
	158	+{
	159	+ if(write(w->ctl, "del\n", 4) != 4)
	160	+ return False;
	161	+ wdormant(w);
	162	+ close(w->ctl);
	163	+ w->ctl = -1;
	164	+ close(w->event);
	165	+ w->event = -1;
	166	+ return True;
	167	+}
	168	+
	169	+void
	170	+wname(Win w, char s)
	171	+{
	172	+ char buf[128];
	173	+
	174	+ sprint(buf, "name %s\n", s);
	175	+ ctlwrite(w, buf);
	176	+}
	177	+
	178	+void
	179	+wclean(Win *w)
	180	+{
	181	+ if(w->body)
	182	+ Bflush(w->body);
	183	+ ctlwrite(w, "clean\n");
	184	+}
	185	+
	186	+void
	187	+wdormant(Win *w)
	188	+{
	189	+ if(w->addr >= 0){
	190	+ close(w->addr);
	191	+ w->addr = -1;
	192	+ }
	193	+ if(w->body != nil){
	194	+ Bterm(w->body);
	195	+ w->body = nil;
	196	+ }
	197	+ if(w->data >= 0){
	198	+ close(w->data);
	199	+ w->data = -1;
	200	+ }
	201	+}
	202	+
	203	+int
	204	+getec(Win *w)
	205	+{
	206	+ if(w->nbuf == 0){
	207	+ w->nbuf = read(w->event, w->buf, sizeof w->buf);
	208	+ if(w->nbuf <= 0)
	209	+ threadprint(2,"event read error: %r");
	210	+ w->bufp = w->buf;
	211	+ }
	212	+ w->nbuf--;
	213	+ return *w->bufp++;
	214	+}
	215	+
	216	+int
	217	+geten(Win *w)
	218	+{
	219	+ int n, c;
	220	+
	221	+ n = 0;
	222	+ while('0'<=(c=getec(w)) && c<='9')
	223	+ n = n*10+(c-'0');
	224	+ if(c != ' ')
	225	+ threadprint(2, "event number syntax");
	226	+ return n;
	227	+}
	228	+
	229	+int
	230	+geter(Win w, char buf, int *nb)
	231	+{
	232	+ Rune r;
	233	+ int n;
	234	+
	235	+ r = getec(w);
	236	+ buf[0] = r;
	237	+ n = 1;
	238	+ if(r < Runeself)
	239	+ goto Return;
	240	+ while(!fullrune(buf, n))
	241	+ buf[n++] = getec(w);
	242	+ chartorune(&r, buf);
	243	+ Return:
	244	+ *nb = n;
	245	+ return r;
	246	+}
	247	+
	248	+
	249	+void
	250	+wevent(Win w, Event e)
	251	+{
	252	+ int i, nb;
	253	+
	254	+ e->c1 = getec(w);
	255	+ e->c2 = getec(w);
	256	+ e->q0 = geten(w);
	257	+ e->q1 = geten(w);
	258	+ e->flag = geten(w);
	259	+ e->nr = geten(w);
	260	+ if(e->nr > EVENTSIZE)
	261	+ threadprint(2, "wevent: event string too long");
	262	+ e->nb = 0;
	263	+ for(i=0; i<e->nr; i++){
	264	+ e->r[i] = geter(w, e->b+e->nb, &nb);
	265	+ e->nb += nb;
	266	+ }
	267	+ e->r[e->nr] = 0;
	268	+ e->b[e->nb] = 0;
	269	+ if(getec(w) != '\n')
	270	+ threadprint(2, "wevent: event syntax 2");
	271	+}
	272	+
	273	+void
	274	+wslave(Win w, Channel ce)
	275	+{
	276	+ Event e;
	277	+
	278	+ while(recv(ce, &e) >= 0)
	279	+ wevent(w, &e);
	280	+}
	281	+
	282	+void
	283	+wwriteevent(Win w, Event e)
	284	+{
	285	+ threadprint(w->event, "%c%c%d %d\n", e->c1, e->c2, e->q0, e->q1);
	286	+}
	287	+
	288	+int
	289	+wreadall(Win w, char *sp)
	290	+{
	291	+ char *s;
	292	+ int m, na, n;
	293	+
	294	+ if(w->body != nil)
	295	+ Bterm(w->body);
	296	+ openbody(w, OREAD);
	297	+ s = nil;
	298	+ na = 0;
	299	+ n = 0;
	300	+ for(;;){
	301	+ if(na < n+512){
	302	+ na += 1024;
	303	+ s = erealloc(s, na+1);
	304	+ }
	305	+ m = Bread(w->body, s+n, na-n);
	306	+ if(m <= 0)
	307	+ break;
	308	+ n += m;
	309	+ }
	310	+ s[n] = 0;
	311	+ Bterm(w->body);
	312	+ w->body = nil;
	313	+ *sp = s;
	314	+ return n;
	315	+}

acme/bin/source/adict/adict.c+591−0

@@ -0,0 +1,591 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include "win.h"
	6	+#include "adict.h"
	7	+
	8	+enum
	9	+{
	10	+ STACK = 8192,
	11	+};
	12	+
	13	+char *prog = "adict";
	14	+char *lprog = "/bin/adict";
	15	+char *xprog = "/bin/dict";
	16	+char dict, pattern, curaddr[MAXMATCH], curone, *args[6], buffer[80];
	17	+char abuffer[80], fbuffer[80], pbuffer[80];
	18	+int curindex, count, Eopen, Mopen;
	19	+Win Mwin, Ewin, Dwin;
	20	+
	21	+void openwin(char, char, Win*, int);
	22	+void handle(Win*, int);
	23	+void rexec(void*);
	24	+void pexec(void*);
	25	+int getaddr(char*);
	26	+
	27	+void
	28	+usage(void)
	29	+{
	30	+ fprint(2, "usage: %s [-d dictname] [pattern]\n", argv0);
	31	+ threadexitsall(nil);
	32	+}
	33	+
	34	+int mainstacksize = STACK;
	35	+
	36	+void
	37	+threadmain(int argc, char** argv)
	38	+{
	39	+ ARGBEGIN{
	40	+ case 'd':
	41	+ dict = strdup(ARGF());
	42	+ break;
	43	+ default:
	44	+ usage();
	45	+ }ARGEND
	46	+
	47	+ /* if running as other name, note that fact */
	48	+ if(access(argv0, AEXIST) == 0)
	49	+ lprog = argv0;
	50	+
	51	+ switch(argc){
	52	+ case 1:
	53	+ pattern = pbuffer;
	54	+ strcpy(pattern,argv[0]);
	55	+ if(dict == nil)
	56	+ dict = "pgw";
	57	+ break;
	58	+ case 0:
	59	+ break;
	60	+ default:
	61	+ usage();
	62	+ }
	63	+
	64	+ if ((dict == nil) && (pattern == nil))
	65	+ openwin(prog,"", &Dwin, Dictwin);
	66	+ if (pattern == nil)
	67	+ openwin(prog,"",&Ewin, Entrywin);
	68	+ if ((count = getaddr(pattern)) <= 1)
	69	+ openwin(prog,"Prev Next", &Ewin, Entrywin);
	70	+ else
	71	+ openwin(prog, "", &Mwin, Matchwin);
	72	+}
	73	+
	74	+static int
	75	+procrexec(char *xprog, ...)
	76	+{
	77	+ int fpipe[2];
	78	+ void *rexarg[4];
	79	+ Channel *c;
	80	+ va_list va;
	81	+ int i;
	82	+ char *p;
	83	+
	84	+ pipe(fpipe);
	85	+ va_start(va, xprog);
	86	+ p = xprog;
	87	+ for(i=0; p && i+1<nelem(args); i++){
	88	+ args[i] = p;
	89	+ p = va_arg(va, char*);
	90	+ }
	91	+ args[i] = nil;
	92	+
	93	+ c = chancreate(sizeof(ulong), 0);
	94	+ rexarg[0] = xprog;
	95	+ rexarg[1] = args;
	96	+ rexarg[2] = fpipe;
	97	+ rexarg[3] = c;
	98	+
	99	+ proccreate(rexec, rexarg, STACK);
	100	+ recvul(c);
	101	+ chanfree(c);
	102	+ close(fpipe[1]);
	103	+ return fpipe[0];
	104	+}
	105	+
	106	+int
	107	+getaddr(char *pattern)
	108	+{
	109	+ /* Get char offset into dictionary of matches. */
	110	+
	111	+ int fd, i;
	112	+ Biobuf inbuf;
	113	+ char *bufptr;
	114	+char *obuf;
	115	+
	116	+ if (pattern == nil) {
	117	+ curone = nil;
	118	+ curindex = 0;
	119	+ curaddr[curindex] = nil;
	120	+ return 0;
	121	+ }
	122	+
	123	+ sprint(buffer,"/%s/A", pattern);
	124	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	125	+ Binit(&inbuf, fd, OREAD);
	126	+ i = 0;
	127	+ curindex = 0;
	128	+ while ((bufptr = Brdline(&inbuf, '\n')) != nil && (i < (MAXMATCH-1))) {
	129	+ bufptr[Blinelen(&inbuf)-1] = 0;
	130	+obuf=bufptr;
	131	+ while (bufptr[0] != '#' && bufptr[0] != 0) bufptr++;
	132	+if(bufptr[0] == 0)
	133	+ print("whoops buf «%s»\n", obuf);
	134	+ curaddr[i] = malloc(strlen(bufptr));
	135	+ strcpy(curaddr[i], bufptr);
	136	+ i++;
	137	+ }
	138	+ curaddr[i] = nil;
	139	+ if (i == MAXMATCH)
	140	+ fprint(2, "Too many matches!\n");
	141	+ Bterm(&inbuf);
	142	+ close(fd);
	143	+
	144	+ curone = curaddr[curindex];
	145	+ return(i);
	146	+}
	147	+
	148	+char*
	149	+getpattern(char *addr)
	150	+{
	151	+ /* Get the pattern corresponding to an absolute address.*/
	152	+ int fd;
	153	+ char res, t;
	154	+
	155	+ res = nil;
	156	+ sprint(buffer,"%sh", addr);
	157	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	158	+ if (read(fd, pbuffer, 80) > 80)
	159	+ fprint(2, "Error in getting addres from dict.\n");
	160	+ else {
	161	+ t = pbuffer;
	162	+ /* remove trailing whitespace, newline */
	163	+ if (t != nil){
	164	+ while(t != 0 && t != '\n')
	165	+ t++;
	166	+ if(t == 0 && t > pbuffer)
	167	+ t--;
	168	+ while(t >= pbuffer && (t==' ' \|\| t=='\n' \|\| t=='\t' \|\| t=='\r'))
	169	+ *t-- = 0;
	170	+ }
	171	+ res = pbuffer;
	172	+ }
	173	+ close(fd);
	174	+ return(res);
	175	+}
	176	+
	177	+char*
	178	+chgaddr(int dir)
	179	+{
	180	+ /* Increment or decrement the current address (curone). */
	181	+
	182	+ int fd;
	183	+ char res, t;
	184	+
	185	+ res = nil;
	186	+ if (dir < 0)
	187	+ sprint(buffer,"%s-a", curone);
	188	+ else
	189	+ sprint(buffer,"%s+a", curone);
	190	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	191	+ if (read(fd, abuffer, 80) > 80)
	192	+ fprint(2, "Error in getting addres from dict.\n");
	193	+ else {
	194	+ res = abuffer;
	195	+ while (*res != '#') res++;
	196	+ t = res;
	197	+ while ((*t != '\n') && (t != nil)) t++;
	198	+ if (t != nil) *t = 0;
	199	+ }
	200	+ close(fd);
	201	+ return(res);
	202	+}
	203	+
	204	+void
	205	+dispdicts(Win *cwin)
	206	+{
	207	+ /* Display available dictionaries in window. */
	208	+
	209	+ int fd, nb, i;
	210	+ char buf[1024], *t;
	211	+
	212	+ fd = procrexec(xprog, "-d", "?", nil);
	213	+ wreplace(cwin, "0,$","",0); /* Clear window */
	214	+ while ((nb = read(fd, buf, 1024)) > 0) {
	215	+ t = buf;
	216	+ i = 0;
	217	+ if (strncmp("Usage", buf, 5) == 0) { /* Remove first line. */
	218	+ while (t[0] != '\n') {
	219	+ t++;
	220	+ i++;
	221	+ }
	222	+ t++;
	223	+ i++;
	224	+ }
	225	+ wwritebody(cwin, t, nb-i);
	226	+ }
	227	+ close(fd);
	228	+ wclean(cwin);
	229	+}
	230	+
	231	+void
	232	+dispentry(Win *cwin)
	233	+{
	234	+ /* Display the current selection in window. */
	235	+
	236	+ int fd, nb;
	237	+ char buf[BUFSIZE];
	238	+
	239	+ if (curone == nil) {
	240	+ if (pattern != nil) {
	241	+ sprint(buf,"Pattern not found.\n");
	242	+ wwritebody(cwin, buf, 19);
	243	+ wclean(cwin);
	244	+ }
	245	+ return;
	246	+ }
	247	+ sprint(buffer,"%sp", curone);
	248	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	249	+ wreplace(cwin, "0,$","",0); /* Clear window */
	250	+ while ((nb = read(fd, buf, BUFSIZE)) > 0) {
	251	+ wwritebody(cwin, buf, nb);
	252	+ }
	253	+ close(fd);
	254	+ wclean(cwin);
	255	+}
	256	+
	257	+void
	258	+dispmatches(Win *cwin)
	259	+{
	260	+ /* Display the current matches. */
	261	+
	262	+ int fd, nb;
	263	+ char buf[BUFSIZE];
	264	+
	265	+ sprint(buffer,"/%s/H", pattern);
	266	+ fd = procrexec(xprog, "-d", dict, "-c", buffer, nil);
	267	+ while ((nb = read(fd, buf, BUFSIZE)) > 0)
	268	+ wwritebody(cwin, buf, nb);
	269	+ close(fd);
	270	+ wclean(cwin);
	271	+}
	272	+
	273	+char*
	274	+format(char *s)
	275	+{
	276	+ /* Format a string to be written in window tag. Acme doesn't like */
	277	+ /* non alpha-num's in the tag line. */
	278	+
	279	+ char t, h;
	280	+
	281	+ t = fbuffer;
	282	+ if (s == nil) {
	283	+ *t = 0;
	284	+ return t;
	285	+ }
	286	+ strcpy(t, s);
	287	+ h = t;
	288	+ while (*t != 0) {
	289	+ if (!(((t >= 'a') && (t <= 'z')) \|\|
	290	+ ((t >= 'A') && (t <= 'Z')) \|\|
	291	+ ((t >= '0') && (t <= '9'))))
	292	+ *t = '_';
	293	+ t++;
	294	+ }
	295	+ if (strlen(h) > MAXTAG)
	296	+ h[MAXTAG] = 0;
	297	+ if (strcmp(s,h) == 0) return s;
	298	+ return h;
	299	+}
	300	+
	301	+void
	302	+openwin(char name, char buttons, Win *twin, int wintype)
	303	+{
	304	+ char buf[80];
	305	+
	306	+ wnew(twin);
	307	+ if (wintype == Dictwin)
	308	+ sprint(buf,"%s",name);
	309	+ else
	310	+ if ((wintype == Entrywin) && (count > 1))
	311	+ sprint(buf,"%s/%s/%s/%d",name, dict, format(pattern), curindex+1);
	312	+ else
	313	+ sprint(buf,"%s/%s/%s",name, dict, format(pattern));
	314	+ wname(twin, buf);
	315	+ wtagwrite(twin, buttons, strlen(buttons));
	316	+ wclean(twin);
	317	+ wdormant(twin);
	318	+ if (wintype == Dictwin)
	319	+ dispdicts(twin);
	320	+ if (wintype == Matchwin) {
	321	+ Mopen = True;
	322	+ dispmatches(twin);
	323	+ }
	324	+ if (wintype == Entrywin) {
	325	+ Eopen = True;
	326	+ dispentry(twin);
	327	+ }
	328	+ handle(twin, wintype);
	329	+}
	330	+
	331	+void
	332	+vopenwin(void *v)
	333	+{
	334	+ void **arg;
	335	+ char name, buttons;
	336	+ Win *twin;
	337	+ int wintype;
	338	+
	339	+ arg = v;
	340	+ name = arg[0];
	341	+ buttons = arg[1];
	342	+ twin = arg[2];
	343	+ wintype = (int)arg[3];
	344	+ sendul(arg[4], 0);
	345	+
	346	+ openwin(name, buttons, twin, wintype);
	347	+ threadexits(nil);
	348	+}
	349	+
	350	+void
	351	+procopenwin(char name, char buttons, Win *twin, int wintype)
	352	+{
	353	+ void *arg[5];
	354	+ Channel *c;
	355	+
	356	+ c = chancreate(sizeof(ulong), 0);
	357	+ arg[0] = name;
	358	+ arg[1] = buttons;
	359	+ arg[2] = twin;
	360	+ arg[3] = (void*)wintype;
	361	+ arg[4] = c;
	362	+ proccreate(vopenwin, arg, STACK);
	363	+ recvul(c);
	364	+ chanfree(c);
	365	+}
	366	+
	367	+void
	368	+rexec(void *v)
	369	+{
	370	+ void **arg;
	371	+ char *prog;
	372	+ char **args;
	373	+ int *fd;
	374	+ Channel *c;
	375	+
	376	+ arg = v;
	377	+ prog = arg[0];
	378	+ args = arg[1];
	379	+ fd = arg[2];
	380	+ c = arg[3];
	381	+
	382	+ rfork(RFENVG\|RFFDG);
	383	+ dup(fd[1], 1);
	384	+ close(fd[1]);
	385	+ close(fd[0]);
	386	+ procexec(c, prog, args);
	387	+ fprint(2, "Remote pipe execution failed: %s %r\n", prog);
	388	+abort();
	389	+ threadexits(nil);
	390	+}
	391	+
	392	+void
	393	+pexec(void *v)
	394	+{
	395	+ void **arg;
	396	+ char *prog;
	397	+ char **args;
	398	+ Channel *c;
	399	+
	400	+ arg = v;
	401	+ prog = arg[0];
	402	+ args = arg[1];
	403	+ c = arg[2];
	404	+
	405	+ procexec(c, prog, args);
	406	+ fprint(2, "Remote execution failed: %s %r\n", prog);
	407	+abort();
	408	+ threadexits(nil);
	409	+}
	410	+
	411	+void
	412	+procpexec(char prog, char *args)
	413	+{
	414	+ void *rexarg[4];
	415	+ Channel *c;
	416	+
	417	+ c = chancreate(sizeof(ulong), 0);
	418	+ rexarg[0] = prog;
	419	+ rexarg[1] = args;
	420	+ rexarg[2] = c;
	421	+
	422	+ proccreate(pexec, rexarg, STACK);
	423	+ recvul(c);
	424	+ chanfree(c);
	425	+}
	426	+
	427	+void
	428	+kill(void)
	429	+{
	430	+ /* Kill all processes related to this one. */
	431	+ int fd;
	432	+
	433	+ sprint(buffer, "/proc/%d/notepg", getpid());
	434	+ fd = open(buffer, OWRITE);
	435	+ rfork(RFNOTEG);
	436	+ write(fd, "kill", 4);
	437	+}
	438	+
	439	+int
	440	+command(char com, Win w, int wintype)
	441	+{
	442	+ char *buf;
	443	+
	444	+ if (strncmp(com, "Del", 3) == 0) {
	445	+ switch(wintype){
	446	+ case Entrywin:
	447	+ if (wdel(w)) {
	448	+ Eopen = False;
	449	+ threadexits(nil);
	450	+ }
	451	+ break;
	452	+ case Dictwin:
	453	+ if (wdel(w))
	454	+ threadexits(nil);
	455	+ break;
	456	+ case Matchwin:
	457	+ kill();
	458	+ if (Eopen)
	459	+ if (~wdel(&Ewin)) /* Remove the entry window */
	460	+ wdel(&Ewin);
	461	+ if (!wdel(w))
	462	+ wdel(w);
	463	+ threadexits(nil);
	464	+ break;
	465	+ }
	466	+ return True;
	467	+ }
	468	+ if (strncmp(com, "Next", 4) == 0){
	469	+ if (curone != nil) {
	470	+ curone = chgaddr(1);
	471	+ buf = getpattern(curone);
	472	+ sprint(buffer,"%s/%s/%s", prog, dict, format(buf));
	473	+ wname(w, buffer);
	474	+ dispentry(w);
	475	+ }
	476	+ return True;
	477	+ }
	478	+ if (strncmp(com, "Prev",4) == 0){
	479	+ if (curone != nil) {
	480	+ curone = chgaddr(-1);
	481	+ buf = getpattern(curone);
	482	+ sprint(buffer,"%s/%s/%s", prog, dict, format(buf));
	483	+ wname(w, buffer);
	484	+ dispentry(w);
	485	+ }
	486	+ return True;
	487	+ }
	488	+ if (strncmp(com, "Nmatch",6) == 0){
	489	+ if (curaddr[++curindex] == nil)
	490	+ curindex = 0;
	491	+ curone = curaddr[curindex];
	492	+ if (curone != nil) {
	493	+ sprint(buffer,"%s/%s/%s/%d",prog,dict,format(pattern),curindex+1);
	494	+ wname(w, buffer);
	495	+ dispentry(w);
	496	+ }
	497	+ return True;
	498	+ }
	499	+ return False;
	500	+}
	501	+
	502	+void
	503	+handle(Win *w, int wintype)
	504	+{
	505	+ Event e, e2, ea, etoss;
	506	+ char s, t, buf[80];
	507	+ int tmp, na;
	508	+
	509	+ while (True) {
	510	+ wevent(w, &e);
	511	+ switch(e.c2){
	512	+ default:
	513	+ /* fprint(2,"unknown message %c%c\n", e.c1, e.c2); */
	514	+ break;
	515	+ case 'i':
	516	+ /* fprint(2,"'%s' inserted in tag at %d\n", e.b, e.q0);*/
	517	+ break;
	518	+ case 'I':
	519	+ /* fprint(2,"'%s' inserted in body at %d\n", e.b, e.q0);*/
	520	+ break;
	521	+ case 'd':
	522	+ /* fprint(2, "'%s' deleted in tag at %d\n", e.b, e.q0);*/
	523	+ break;
	524	+ case 'D':
	525	+ /* fprint(2, "'%s' deleted in body at %d\n", e.b, e.q0);*/
	526	+ break;
	527	+ case 'x':
	528	+ case 'X': /* Execute command. */
	529	+ if (e.flag & 2)
	530	+ wevent(w, &e2);
	531	+ if(e.flag & 8){
	532	+ wevent(w, &ea);
	533	+ wevent(w, &etoss);
	534	+ na = ea.nb;
	535	+ } else
	536	+ na = 0;
	537	+ s = e.b;
	538	+ if ((e.flag & 2) && e.nb == 0)
	539	+ s = e2.b;
	540	+ if(na){
	541	+ t = malloc(strlen(s)+1+na+1);
	542	+ snprint(t, strlen(s)+1+na+1, "%s %s", s, ea.b);
	543	+ s = t;
	544	+ }
	545	+ /* if it's a long message, it can't be for us anyway */
	546	+ if(!command(s, w, wintype)) /* send it back */
	547	+ wwriteevent(w, &e);
	548	+ if(na)
	549	+ free(s);
	550	+ break;
	551	+ case 'l':
	552	+ case 'L': /* Look for something. */
	553	+ if (e.flag & 2)
	554	+ wevent(w, &e);
	555	+ wclean(w); /* Set clean bit. */
	556	+ if (wintype == Dictwin) {
	557	+ strcpy(buf, e.b);
	558	+ args[0] = lprog;
	559	+ args[1] = "-d";
	560	+ args[2] = buf;
	561	+ args[3] = nil;
	562	+ procpexec(lprog, args); /* New adict with chosen dict. */
	563	+ }
	564	+ if (wintype == Entrywin) {
	565	+ strcpy(buf, e.b);
	566	+ args[0] = lprog;
	567	+ args[1] = "-d";
	568	+ args[2] = dict;
	569	+ args[3] = buf;
	570	+ args[4] = nil;
	571	+ procpexec(lprog, args); /* New adict with chosen pattern. */
	572	+ }
	573	+ if (wintype == Matchwin) {
	574	+ tmp = atoi(e.b) - 1;
	575	+ if ((tmp >= 0) && (tmp < MAXMATCH) && (curaddr[tmp] != nil)) {
	576	+ curindex = tmp;
	577	+ curone = curaddr[curindex];
	578	+ /* Display selected match. */
	579	+ if (Eopen) {
	580	+ sprint(buf,"%s/%s/%s/%d",prog,dict,format(pattern),curindex+1);
	581	+ wname(&Ewin, buf);
	582	+ dispentry(&Ewin);
	583	+ }
	584	+ else
	585	+ procopenwin(prog,"Nmatch Prev Next", &Ewin, Entrywin);
	586	+ }
	587	+ }
	588	+ break;
	589	+ }
	590	+ }
	591	+}

acme/bin/source/adict/adict.h+10−0

@@ -0,0 +1,10 @@
	1	+enum
	2	+{
	3	+ Matchwin,
	4	+ Entrywin,
	5	+ Dictwin
	6	+};
	7	+
	8	+#define MAXTAG 20
	9	+#define MAXMATCH 100
	10	+#define BUFSIZE 4096

acme/bin/source/adict/man+26−0

@@ -0,0 +1,26 @@
	1	+adict [-d dictionary] [pattern]
	2	+
	3	+ adict with no arguments opens a window that displays all the currently
	4	+available dictionaries. To select a dictionary, click the right mouse button on
	5	+its name.
	6	+
	7	+-d dictionary Opens a window that interfaces to the specified dictionary. To
	8	+ look up a word, enter it in the window, and click the right mouse button on it.
	9	+
	10	+[pattern] If no dictionary is specified, adict looks up the pattern in "oed" (Oxford
	11	+ English Dictionary). If more than one entry is found, adict opens a window
	12	+ displaying the headers of the matching entries. To display a particular entry
	13	+ click the right mouse button on the number to its left.
	14	+
	15	+Quit Exit and remove all windows associated with this one.
	16	+
	17	+Nmatch Display the next matching entry.
	18	+
	19	+Next Display the next entry in the dictionary.
	20	+
	21	+Prev Display the previous entry in the dictionary.
	22	+
	23	+ Nmatch works independently of Prev and Next.
	24	+
	25	+ Any word in the window displaying an entry can be looked up in the selected
	26	+dictionary by clicking the right mouse button on that word.

acme/bin/source/adict/mkfile+11−0

@@ -0,0 +1,11 @@
	1	+</$objtype/mkfile
	2	+
	3	+TARG=adict
	4	+
	5	+HFILES=win.h
	6	+
	7	+OFILES=adict.$O\
	8	+ win.$O\
	9	+
	10	+BIN= /acme/bin/$objtype
	11	+</sys/src/cmd/mkone

acme/bin/source/adict/win.c+315−0

@@ -0,0 +1,315 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include "win.h"
	6	+
	7	+void*
	8	+erealloc(void *p, uint n)
	9	+{
	10	+ p = realloc(p, n);
	11	+ if(p == nil)
	12	+ fprint(2, "realloc failed: %r");
	13	+ return p;
	14	+}
	15	+
	16	+void
	17	+wnew(Win *w)
	18	+{
	19	+ char buf[12];
	20	+
	21	+ w->ctl = open("/mnt/acme/new/ctl", ORDWR);
	22	+ if(w->ctl<0 \|\| read(w->ctl, buf, 12)!=12)
	23	+ fprint (2, "can't open window ctl file: %r");
	24	+ ctlwrite(w, "noscroll\n");
	25	+ w->winid = atoi(buf);
	26	+ w->event = openfile(w, "event");
	27	+ w->addr = -1; /* will be opened when needed */
	28	+ w->body = nil;
	29	+ w->data = -1;
	30	+}
	31	+
	32	+int
	33	+openfile(Win w, char f)
	34	+{
	35	+ char buf[64];
	36	+ int fd;
	37	+
	38	+ sprint(buf, "/mnt/acme/%d/%s", w->winid, f);
	39	+ fd = open(buf, ORDWR\|OCEXEC);
	40	+ if(fd < 0)
	41	+ fprint (2,"can't open window %s file: %r", f);
	42	+ return fd;
	43	+}
	44	+
	45	+void
	46	+openbody(Win *w, int mode)
	47	+{
	48	+ char buf[64];
	49	+
	50	+ sprint(buf, "/mnt/acme/%d/body", w->winid);
	51	+ w->body = Bopen(buf, mode\|OCEXEC);
	52	+ if(w->body == nil)
	53	+ fprint(2,"can't open window body file: %r");
	54	+}
	55	+
	56	+void
	57	+wwritebody(Win w, char s, int n)
	58	+{
	59	+ if(w->body == nil)
	60	+ openbody(w, OWRITE);
	61	+ if(Bwrite(w->body, s, n) != n)
	62	+ fprint(2,"write error to window: %r");
	63	+ Bflush(w->body);
	64	+}
	65	+
	66	+void
	67	+wreplace(Win w, char addr, char *repl, int nrepl)
	68	+{
	69	+ if(w->addr < 0)
	70	+ w->addr = openfile(w, "addr");
	71	+ if(w->data < 0)
	72	+ w->data = openfile(w, "data");
	73	+ if(write(w->addr, addr, strlen(addr)) < 0){
	74	+ fprint(2, "mail: warning: badd address %s:%r\n", addr);
	75	+ return;
	76	+ }
	77	+ if(write(w->data, repl, nrepl) != nrepl)
	78	+ fprint(2, "writing data: %r");
	79	+}
	80	+
	81	+static int
	82	+nrunes(char *s, int nb)
	83	+{
	84	+ int i, n;
	85	+ Rune r;
	86	+
	87	+ n = 0;
	88	+ for(i=0; i<nb; n++)
	89	+ i += chartorune(&r, s+i);
	90	+ return n;
	91	+}
	92	+
	93	+void
	94	+wread(Win w, uint q0, uint q1, char data)
	95	+{
	96	+ int m, n, nr;
	97	+ char buf[256];
	98	+
	99	+ if(w->addr < 0)
	100	+ w->addr = openfile(w, "addr");
	101	+ if(w->data < 0)
	102	+ w->data = openfile(w, "data");
	103	+ m = q0;
	104	+ while(m < q1){
	105	+ n = sprint(buf, "#%d", m);
	106	+ if(write(w->addr, buf, n) != n)
	107	+ fprint(2,"writing addr: %r");
	108	+ n = read(w->data, buf, sizeof buf);
	109	+ if(n <= 0)
	110	+ fprint(2,"reading data: %r");
	111	+ nr = nrunes(buf, n);
	112	+ while(m+nr >q1){
	113	+ do; while(n>0 && (buf[--n]&0xC0)==0x80);
	114	+ --nr;
	115	+ }
	116	+ if(n == 0)
	117	+ break;
	118	+ memmove(data, buf, n);
	119	+ data += n;
	120	+ *data = 0;
	121	+ m += nr;
	122	+ }
	123	+}
	124	+
	125	+void
	126	+wselect(Win w, char addr)
	127	+{
	128	+ if(w->addr < 0)
	129	+ w->addr = openfile(w, "addr");
	130	+ if(write(w->addr, addr, strlen(addr)) < 0)
	131	+ fprint(2,"writing addr");
	132	+ ctlwrite(w, "dot=addr\n");
	133	+}
	134	+
	135	+void
	136	+wtagwrite(Win w, char s, int n)
	137	+{
	138	+ int fd;
	139	+
	140	+ fd = openfile(w, "tag");
	141	+ if(write(fd, s, n) != n)
	142	+ fprint(2,"tag write: %r");
	143	+ close(fd);
	144	+}
	145	+
	146	+void
	147	+ctlwrite(Win w, char s)
	148	+{
	149	+ int n;
	150	+
	151	+ n = strlen(s);
	152	+ if(write(w->ctl, s, n) != n)
	153	+ fprint(2,"write error to ctl file: %r");
	154	+}
	155	+
	156	+int
	157	+wdel(Win *w)
	158	+{
	159	+ if(write(w->ctl, "del\n", 4) != 4)
	160	+ return False;
	161	+ wdormant(w);
	162	+ close(w->ctl);
	163	+ w->ctl = -1;
	164	+ close(w->event);
	165	+ w->event = -1;
	166	+ return True;
	167	+}
	168	+
	169	+void
	170	+wname(Win w, char s)
	171	+{
	172	+ char buf[128];
	173	+
	174	+ sprint(buf, "name %s\n", s);
	175	+ ctlwrite(w, buf);
	176	+}
	177	+
	178	+void
	179	+wclean(Win *w)
	180	+{
	181	+ if(w->body)
	182	+ Bflush(w->body);
	183	+ ctlwrite(w, "clean\n");
	184	+}
	185	+
	186	+void
	187	+wdormant(Win *w)
	188	+{
	189	+ if(w->addr >= 0){
	190	+ close(w->addr);
	191	+ w->addr = -1;
	192	+ }
	193	+ if(w->body != nil){
	194	+ Bterm(w->body);
	195	+ w->body = nil;
	196	+ }
	197	+ if(w->data >= 0){
	198	+ close(w->data);
	199	+ w->data = -1;
	200	+ }
	201	+}
	202	+
	203	+int
	204	+getec(Win *w)
	205	+{
	206	+ if(w->nbuf == 0){
	207	+ w->nbuf = read(w->event, w->buf, sizeof w->buf);
	208	+ if(w->nbuf <= 0)
	209	+ fprint(2,"event read error: %r");
	210	+ w->bufp = w->buf;
	211	+ }
	212	+ w->nbuf--;
	213	+ return *w->bufp++;
	214	+}
	215	+
	216	+int
	217	+geten(Win *w)
	218	+{
	219	+ int n, c;
	220	+
	221	+ n = 0;
	222	+ while('0'<=(c=getec(w)) && c<='9')
	223	+ n = n*10+(c-'0');
	224	+ if(c != ' ')
	225	+ fprint(2, "event number syntax");
	226	+ return n;
	227	+}
	228	+
	229	+int
	230	+geter(Win w, char buf, int *nb)
	231	+{
	232	+ Rune r;
	233	+ int n;
	234	+
	235	+ r = getec(w);
	236	+ buf[0] = r;
	237	+ n = 1;
	238	+ if(r < Runeself)
	239	+ goto Return;
	240	+ while(!fullrune(buf, n))
	241	+ buf[n++] = getec(w);
	242	+ chartorune(&r, buf);
	243	+ Return:
	244	+ *nb = n;
	245	+ return r;
	246	+}
	247	+
	248	+
	249	+void
	250	+wevent(Win w, Event e)
	251	+{
	252	+ int i, nb;
	253	+
	254	+ e->c1 = getec(w);
	255	+ e->c2 = getec(w);
	256	+ e->q0 = geten(w);
	257	+ e->q1 = geten(w);
	258	+ e->flag = geten(w);
	259	+ e->nr = geten(w);
	260	+ if(e->nr > EVENTSIZE)
	261	+ fprint(2, "wevent: event string too long");
	262	+ e->nb = 0;
	263	+ for(i=0; i<e->nr; i++){
	264	+ e->r[i] = geter(w, e->b+e->nb, &nb);
	265	+ e->nb += nb;
	266	+ }
	267	+ e->r[e->nr] = 0;
	268	+ e->b[e->nb] = 0;
	269	+ if(getec(w) != '\n')
	270	+ fprint(2, "wevent: event syntax 2");
	271	+}
	272	+
	273	+void
	274	+wslave(Win w, Channel ce)
	275	+{
	276	+ Event e;
	277	+
	278	+ while(recv(ce, &e) >= 0)
	279	+ wevent(w, &e);
	280	+}
	281	+
	282	+void
	283	+wwriteevent(Win w, Event e)
	284	+{
	285	+ fprint(w->event, "%c%c%d %d\n", e->c1, e->c2, e->q0, e->q1);
	286	+}
	287	+
	288	+int
	289	+wreadall(Win w, char *sp)
	290	+{
	291	+ char *s;
	292	+ int m, na, n;
	293	+
	294	+ if(w->body != nil)
	295	+ Bterm(w->body);
	296	+ openbody(w, OREAD);
	297	+ s = nil;
	298	+ na = 0;
	299	+ n = 0;
	300	+ for(;;){
	301	+ if(na < n+512){
	302	+ na += 1024;
	303	+ s = erealloc(s, na+1);
	304	+ }
	305	+ m = Bread(w->body, s+n, na-n);
	306	+ if(m <= 0)
	307	+ break;
	308	+ n += m;
	309	+ }
	310	+ s[n] = 0;
	311	+ Bterm(w->body);
	312	+ w->body = nil;
	313	+ *sp = s;
	314	+ return n;
	315	+}

acme/bin/source/adict/win.h+59−0

@@ -0,0 +1,59 @@
	1	+enum
	2	+{
	3	+ False,
	4	+ True,
	5	+ EVENTSIZE=256,
	6	+};
	7	+
	8	+
	9	+typedef struct Event Event;
	10	+struct Event
	11	+{
	12	+ int c1;
	13	+ int c2;
	14	+ int q0;
	15	+ int q1;
	16	+ int flag;
	17	+ int nb;
	18	+ int nr;
	19	+ char b[EVENTSIZE*UTFmax+1];
	20	+ Rune r[EVENTSIZE+1];
	21	+};
	22	+
	23	+
	24	+typedef struct Win Win;
	25	+struct Win
	26	+{
	27	+ int winid;
	28	+ int addr;
	29	+ Biobuf *body;
	30	+ int ctl;
	31	+ int data;
	32	+ int event;
	33	+ char buf[512];
	34	+ char *bufp;
	35	+ int nbuf;
	36	+};
	37	+
	38	+int dead(Win*);
	39	+void wnew(Win*);
	40	+void wwritebody(Win, char s, int n);
	41	+void wread(Win, uint, uint, char);
	42	+void wclean(Win*);
	43	+void wname(Win, char);
	44	+void wdormant(Win*);
	45	+void wevent(Win, Event);
	46	+void wtagwrite(Win, char, int);
	47	+void wwriteevent(Win, Event);
	48	+void wslave(Win, Channel); /* chan(Event) */
	49	+void wreplace(Win, char, char*, int);
	50	+void wselect(Win, char);
	51	+int wdel(Win*);
	52	+int wreadall(Win, char*);
	53	+
	54	+void ctlwrite(Win, char);
	55	+int getec(Win*);
	56	+int geten(Win*);
	57	+int geter(Win, char, int*);
	58	+int openfile(Win, char);
	59	+void openbody(Win*, int);

acme/bin/source/mkfile+27−0

@@ -0,0 +1,27 @@
	1	+</$objtype/mkfile
	2	+
	3	+TARG=\
	4	+ mkwnew\
	5	+ spout\
	6	+
	7	+OFILES=
	8	+HFILES=
	9	+LIB=
	10	+
	11	+DIRS=win
	12	+
	13	+BIN=../$objtype
	14	+
	15	+</sys/src/cmd/mkmany
	16	+
	17	+all:V: all.dirs
	18	+install:V: install.dirs
	19	+clean:V: clean.dirs
	20	+nuke:V: nuke.dirs
	21	+
	22	+%.dirs:VQ:
	23	+ for (i in $DIRS) @{
	24	+ echo mk $i
	25	+ cd $i
	26	+ mk $stem
	27	+ }

acme/bin/source/mkwnew.6+0−0

Binary file not shown.

acme/bin/source/mkwnew.8+0−0

Binary file not shown.

acme/bin/source/mkwnew.c+45−0

@@ -0,0 +1,45 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+
	4	+void
	5	+main(int argc, char *argv[])
	6	+{
	7	+ int i, fd, pid, n;
	8	+ char wdir[256];
	9	+ int dflag;
	10	+
	11	+ dflag = 0;
	12	+ ARGBEGIN{
	13	+ case 'd':
	14	+ dflag = 1;
	15	+ break;
	16	+ default:
	17	+ fprint(2, "usage: wnew [-d] [label]\n");
	18	+ }ARGEND
	19	+
	20	+ pid = getpid();
	21	+ wdir[0] = '\0';
	22	+ if(!dflag)
	23	+ getwd(wdir, sizeof wdir);
	24	+ if(argc>0)
	25	+ for(i=0; i<argc; i++)
	26	+ snprint(wdir, sizeof wdir, "%s%c%s", wdir, i==0? '/' : '-', argv[i]);
	27	+ else
	28	+ snprint(wdir, sizeof wdir, "%s/-win", wdir);
	29	+
	30	+ if((fd = open("/dev/wnew", ORDWR)) < 0)
	31	+ sysfatal("wnew: can't open /dev/wnew: %r");
	32	+
	33	+ if(fprint(fd, "%d %s", pid, wdir+dflag) < 0)
	34	+ sysfatal("wnew: can't create window: %r");
	35	+
	36	+ if(seek(fd, 0, 0) != 0)
	37	+ sysfatal("wnew: can't seek: %r");
	38	+
	39	+ if((n=read(fd, wdir, sizeof wdir-1)) < 0)
	40	+ sysfatal("wnew: can't read window id: %r");
	41	+ wdir[n] = '\0';
	42	+
	43	+ print("%s\n", wdir);
	44	+ exits(nil);
	45	+}

acme/bin/source/spout.6+0−0

Binary file not shown.

acme/bin/source/spout.8+0−0

Binary file not shown.

acme/bin/source/spout.c+123−0

@@ -0,0 +1,123 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <ctype.h>
	4	+#include <bio.h>
	5	+
	6	+void spout(int, char*);
	7	+
	8	+Biobuf bout;
	9	+
	10	+void
	11	+main(int argc, char *argv[])
	12	+{
	13	+ int i, fd;
	14	+
	15	+ Binit(&bout, 1, OWRITE);
	16	+ if(argc == 1)
	17	+ spout(0, "");
	18	+ else
	19	+ for(i=1; i<argc; i++){
	20	+ fd = open(argv[i], OREAD);
	21	+ if(fd < 0){
	22	+ fprint(2, "spell: can't open %s: %r\n", argv[i]);
	23	+ continue;
	24	+ }
	25	+ spout(fd, argv[i]);
	26	+ close(fd);
	27	+ }
	28	+ exits(nil);
	29	+}
	30	+
	31	+Biobuf b;
	32	+
	33	+void
	34	+spout(int fd, char *name)
	35	+{
	36	+ char s, t, *w;
	37	+ Rune r;
	38	+ int inword, wordchar;
	39	+ int n, wn, wid, c, m;
	40	+ char buf[1024];
	41	+
	42	+ Binit(&b, fd, OREAD);
	43	+ n = 0;
	44	+ wn = 0;
	45	+ while((s = Brdline(&b, '\n')) != nil){
	46	+ if(s[0] == '.')
	47	+ for(c=0; c<3 && *s>' '; c++){
	48	+ n++;
	49	+ s++;
	50	+ }
	51	+ inword = 0;
	52	+ w = s;
	53	+ t = s;
	54	+ do{
	55	+ c = (uchar)t;
	56	+ if(c < Runeself)
	57	+ wid = 1;
	58	+ else{
	59	+ wid = chartorune(&r, t);
	60	+ c = r;
	61	+ }
	62	+ wordchar = 0;
	63	+ if(isalpha(c))
	64	+ wordchar = 1;
	65	+ if(inword && !wordchar){
	66	+ if(c=='\'' && isalpha(t[1]))
	67	+ goto Continue;
	68	+ m = t-w;
	69	+ if(m > 1){
	70	+ memmove(buf, w, m);
	71	+ buf[m] = 0;
	72	+ Bprint(&bout, "%s:#%d,#%d:%s\n", name, wn, n, buf);
	73	+ }
	74	+ inword = 0;
	75	+ }else if(!inword && wordchar){
	76	+ wn = n;
	77	+ w = t;
	78	+ inword = 1;
	79	+ }
	80	+ if(c=='\\' && (isalpha(t[1]) \|\| t[1]=='(')){
	81	+ switch(t[1]){
	82	+ case '(':
	83	+ m = 4;
	84	+ break;
	85	+ case 'f':
	86	+ if(t[2] == '(')
	87	+ m = 5;
	88	+ else
	89	+ m = 3;
	90	+ break;
	91	+ case 's':
	92	+ if(t[2] == '+' \|\| t[2]=='-'){
	93	+ if(t[3] == '(')
	94	+ m = 6;
	95	+ else
	96	+ m = 4;
	97	+ }else{
	98	+ if(t[2] == '(')
	99	+ m = 5;
	100	+ else if(t[2]=='1' \|\| t[2]=='2' \|\| t[2]=='3')
	101	+ m = 4;
	102	+ else
	103	+ m = 3;
	104	+ }
	105	+ break;
	106	+ default:
	107	+ m = 2;
	108	+ }
	109	+ while(m-- > 0){
	110	+ if(*t == '\n')
	111	+ break;
	112	+ n++;
	113	+ t++;
	114	+ }
	115	+ continue;
	116	+ }
	117	+ Continue:
	118	+ n++;
	119	+ t += wid;
	120	+ }while(c != '\n');
	121	+ }
	122	+ Bterm(&b);
	123	+}

acme/bin/source/win/6.out+0−0

Binary file not shown.

acme/bin/source/win/8.out+0−0

Binary file not shown.

acme/bin/source/win/dat.h+98−0

@@ -0,0 +1,98 @@
	1	+typedef struct Fsevent Fsevent;
	2	+typedef struct Event Event;
	3	+typedef struct Message Message;
	4	+typedef struct Window Window;
	5	+
	6	+enum
	7	+{
	8	+ STACK = 8192,
	9	+ NPIPEDATA = 8000,
	10	+ NPIPE = NPIPEDATA+32,
	11	+ /* EVENTSIZE is really 256 in acme, but we use events internally and want bigger buffers */
	12	+ EVENTSIZE = 8192,
	13	+ NEVENT = 5,
	14	+};
	15	+
	16	+struct Fsevent
	17	+{
	18	+ int type;
	19	+ void *r;
	20	+};
	21	+
	22	+struct Event
	23	+{
	24	+ int c1;
	25	+ int c2;
	26	+ int q0;
	27	+ int q1;
	28	+ int flag;
	29	+ int nb;
	30	+ int nr;
	31	+ char b[EVENTSIZE*UTFmax+1];
	32	+ Rune r[EVENTSIZE+1];
	33	+};
	34	+
	35	+struct Window
	36	+{
	37	+ /* file descriptors */
	38	+ int ctl;
	39	+ int event;
	40	+ int addr;
	41	+ int data;
	42	+ int body;
	43	+
	44	+ /* event input */
	45	+ char buf[512];
	46	+ char *bufp;
	47	+ int nbuf;
	48	+ Event e[NEVENT];
	49	+
	50	+ int id;
	51	+ int open;
	52	+ Channel *cevent;
	53	+};
	54	+
	55	+extern Window* newwindow(void);
	56	+extern int winopenfile(Window, char);
	57	+extern void wintagwrite(Window, char, int);
	58	+extern void winname(Window, char);
	59	+extern void winwriteevent(Window, Event);
	60	+extern int winread(Window, uint, uint, char);
	61	+extern int windel(Window*, int);
	62	+extern void wingetevent(Window, Event);
	63	+extern void wineventproc(void*);
	64	+extern void winclean(Window*);
	65	+extern int winselect(Window, char, int);
	66	+extern int winsetaddr(Window, char, int);
	67	+extern void windormant(Window*);
	68	+extern void winsetdump(Window, char, char*);
	69	+extern void winsetdir(Window, char, char*);
	70	+
	71	+extern void ctlprint(int, char*, ...);
	72	+extern void* emalloc(uint);
	73	+extern char* estrdup(char*);
	74	+extern char* estrstrdup(char, char);
	75	+extern char* egrow(char, char, char*);
	76	+extern char* eappend(char, char, char*);
	77	+extern void error(char*, ...);
	78	+
	79	+extern void startpipe(void);
	80	+extern void sendit(char*);
	81	+extern void execevent(Window w, Event e, int ()(Window, char*));
	82	+
	83	+extern void mountcons(void);
	84	+extern void fsloop(void*);
	85	+
	86	+extern int newpipewin(int, char*);
	87	+extern void startpipe(void);
	88	+extern int pipecommand(Window, char);
	89	+extern void pipectl(void*);
	90	+
	91	+#pragma varargck argpos error 1
	92	+#pragma varargck argpos ctlprint 2
	93	+
	94	+extern char *wname;
	95	+extern char *wdir;
	96	+extern Window *win;
	97	+extern Channel fschan, writechan;
	98	+

acme/bin/source/win/fs.6+0−0

Binary file not shown.

acme/bin/source/win/fs.8+0−0

Binary file not shown.

acme/bin/source/win/fs.c+190−0

@@ -0,0 +1,190 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <fcall.h>
	4	+#include <thread.h>
	5	+#include <9p.h>
	6	+#include "dat.h"
	7	+
	8	+Channel *fschan;
	9	+Channel *writechan;
	10	+
	11	+static File devcons, devnew, *devwdir;
	12	+
	13	+static void
	14	+fsread(Req *r)
	15	+{
	16	+ Fsevent e;
	17	+
	18	+ if(r->fid->file == devnew){
	19	+ if(r->fid->aux==nil){
	20	+ respond(r, "phase error");
	21	+ return;
	22	+ }
	23	+ readstr(r, r->fid->aux);
	24	+ respond(r, nil);
	25	+ return;
	26	+ }
	27	+
	28	+ if(r->fid->file == devwdir){
	29	+ readstr(r, wdir);
	30	+ respond(r, nil);
	31	+ return;
	32	+ }
	33	+
	34	+ e.type = 'r';
	35	+ e.r = r;
	36	+ send(fschan, &e);
	37	+}
	38	+
	39	+static void
	40	+fsflush(Req *r)
	41	+{
	42	+ Fsevent e;
	43	+
	44	+ e.type = 'f';
	45	+ e.r = r;
	46	+ send(fschan, &e);
	47	+}
	48	+
	49	+static void
	50	+fswrite(Req *r)
	51	+{
	52	+ static Event *e[4];
	53	+ Event *ep;
	54	+ int nb, wid, pid;
	55	+ Rune rune;
	56	+ char s, se, d, p;
	57	+ static int n, partial;
	58	+
	59	+ if(r->fid->file == devnew){
	60	+ if(r->fid->aux){
	61	+ respond(r, "already created a window");
	62	+ return;
	63	+ }
	64	+ s = emalloc(r->ifcall.count+1);
	65	+ memmove(s, r->ifcall.data, r->ifcall.count);
	66	+ s[r->ifcall.count] = 0;
	67	+ pid = strtol(s, &p, 0);
	68	+ if(*p==' ')
	69	+ p++;
	70	+ nb = newpipewin(pid, p);
	71	+ free(s);
	72	+ s = emalloc(32);
	73	+ sprint(s, "%lud", (ulong)nb);
	74	+ r->fid->aux = s;
	75	+ r->ofcall.count = r->ifcall.count;
	76	+ respond(r, nil);
	77	+ return;
	78	+ }
	79	+
	80	+ if(r->fid->file == devwdir){
	81	+ s = emalloc(r->ifcall.count+1);
	82	+ memmove(s, r->ifcall.data, r->ifcall.count);
	83	+ s[r->ifcall.count] = 0;
	84	+ if(s[0] == '#' \|\| s[0] == '/'){
	85	+ free(wdir);
	86	+ wdir = s;
	87	+ } else {
	88	+ wdir = eappend(wdir, "/", s);
	89	+ free(s);
	90	+ }
	91	+ cleanname(wdir);
	92	+ winsetdir(win, wdir, wname);
	93	+ respond(r, nil);
	94	+ return;
	95	+ }
	96	+
	97	+ if(r->fid->file != devcons){
	98	+ respond(r, "bug in fswrite");
	99	+ return;
	100	+ }
	101	+
	102	+ /* init buffer rings */
	103	+ if(e[0] == nil){
	104	+ for(n=0; n<nelem(e); n++){
	105	+ e[n] = emalloc(sizeof(Event));
	106	+ e[n]->c1 = 'S';
	107	+ }
	108	+ }
	109	+
	110	+ s = r->ifcall.data;
	111	+ se = s + r->ifcall.count;
	112	+
	113	+ while((nb = (se - s)) > 0){
	114	+ assert(partial >= 0);
	115	+ if((partial+nb) > EVENTSIZE)
	116	+ nb = EVENTSIZE - partial;
	117	+
	118	+ /* fill buffer */
	119	+ ep = e[n++ % nelem(e)];
	120	+ memmove(ep->b+partial, s, nb);
	121	+ partial += nb;
	122	+ s += nb;
	123	+
	124	+ /* check full runes, remove null bytes */
	125	+ ep->nr = ep->nb = 0;
	126	+ for(d = p = ep->b; partial > 0; partial -= wid, p += wid){
	127	+ if(*p == '\0'){
	128	+ wid = 1;
	129	+ continue;
	130	+ }
	131	+
	132	+ if(!fullrune(p, partial))
	133	+ break;
	134	+
	135	+ wid = chartorune(&rune, p);
	136	+ runetochar(d, &rune);
	137	+ d += wid;
	138	+
	139	+ ep->nr++;
	140	+ ep->nb += wid;
	141	+ }
	142	+
	143	+ /* put partial reminder onto next buffer */
	144	+ if(partial > 0)
	145	+ memmove(e[n % nelem(e)]->b, p, partial);
	146	+
	147	+ /* send buffer when not empty */
	148	+ if(ep->nb > 0){
	149	+ ep->b[ep->nb] = '\0';
	150	+ sendp(win->cevent, ep);
	151	+ recvp(writechan);
	152	+ }
	153	+ }
	154	+
	155	+ r->ofcall.count = r->ifcall.count;
	156	+ respond(r, nil);
	157	+}
	158	+
	159	+void
	160	+fsdestroyfid(Fid *fid)
	161	+{
	162	+ if(fid->aux)
	163	+ free(fid->aux);
	164	+}
	165	+
	166	+Srv fs = {
	167	+.read= fsread,
	168	+.write= fswrite,
	169	+.flush= fsflush,
	170	+.destroyfid= fsdestroyfid,
	171	+.leavefdsopen= 1,
	172	+};
	173	+
	174	+void
	175	+mountcons(void)
	176	+{
	177	+ fschan = chancreate(sizeof(Fsevent), 0);
	178	+ writechan = chancreate(sizeof(void*), 0);
	179	+ fs.tree = alloctree("win", "win", DMDIR\|0555, nil);
	180	+ devcons = createfile(fs.tree->root, "cons", "win", 0666, nil);
	181	+ if(devcons == nil)
	182	+ sysfatal("creating /dev/cons: %r");
	183	+ devnew = createfile(fs.tree->root, "wnew", "win", 0666, nil);
	184	+ if(devnew == nil)
	185	+ sysfatal("creating /dev/wnew: %r");
	186	+ devwdir = createfile(fs.tree->root, "wdir", "win", 0666, nil);
	187	+ if(devwdir == nil)
	188	+ sysfatal("creating /dev/wdir: %r");
	189	+ threadpostmountsrv(&fs, nil, "/dev", MBEFORE);
	190	+}

acme/bin/source/win/main.6+0−0

Binary file not shown.

acme/bin/source/win/main.8+0−0

Binary file not shown.

acme/bin/source/win/main.c+643−0

@@ -0,0 +1,643 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include <fcall.h>
	6	+#include <9p.h>
	7	+#include <ctype.h>
	8	+#include "dat.h"
	9	+
	10	+void mainctl(void*);
	11	+void startcmd(char [], int);
	12	+void stdout2body(void*);
	13	+
	14	+int debug;
	15	+int notepg;
	16	+int eraseinput;
	17	+int dirty = 0;
	18	+
	19	+char *wname;
	20	+char *wdir;
	21	+Window win; / the main window */
	22	+
	23	+void
	24	+usage(void)
	25	+{
	26	+ fprint(2, "usage: win [command]\n");
	27	+ threadexitsall("usage");
	28	+}
	29	+
	30	+void
	31	+threadmain(int argc, char *argv[])
	32	+{
	33	+ int i, j;
	34	+ char buf[1024], **av;
	35	+
	36	+ quotefmtinstall();
	37	+ rfork(RFNAMEG);
	38	+ ARGBEGIN{
	39	+ case 'd':
	40	+ debug = 1;
	41	+ chatty9p++;
	42	+ break;
	43	+ case 'e':
	44	+ eraseinput = 1;
	45	+ break;
	46	+ case 'D':
	47	+{extern int _threaddebuglevel;
	48	+ _threaddebuglevel = 1<<20;
	49	+}
	50	+ }ARGEND
	51	+
	52	+ if(argc == 0){
	53	+ av = emalloc(3sizeof(char));
	54	+ av[0] = "rc";
	55	+ av[1] = "-i";
	56	+ }else{
	57	+ av = argv;
	58	+ }
	59	+ wname = utfrrune(av[0], '/');
	60	+ if(wname)
	61	+ wname++;
	62	+ else
	63	+ wname = av[0];
	64	+ if(getwd(buf, sizeof buf) == 0)
	65	+ wdir = "/";
	66	+ else
	67	+ wdir = buf;
	68	+ wdir = estrdup(wdir);
	69	+ win = newwindow();
	70	+ snprint(buf, sizeof buf, "%d", win->id);
	71	+ putenv("winid", buf);
	72	+ winsetdir(win, wdir, wname);
	73	+ wintagwrite(win, "Send Noscroll", 5+8);
	74	+ threadcreate(mainctl, win, STACK);
	75	+ mountcons();
	76	+ threadcreate(fsloop, nil, STACK);
	77	+ startpipe();
	78	+ startcmd(av, &notepg);
	79	+
	80	+ strcpy(buf, "win");
	81	+ j = 3;
	82	+ for(i=0; i<argc && j+1+strlen(argv[i])+1<sizeof buf; i++){
	83	+ strcpy(buf+j, " ");
	84	+ strcpy(buf+j+1, argv[i]);
	85	+ j += 1+strlen(argv[i]);
	86	+ }
	87	+
	88	+ ctlprint(win->ctl, "scroll");
	89	+ winsetdump(win, wdir, buf);
	90	+}
	91	+
	92	+int
	93	+EQUAL(char s, char t)
	94	+{
	95	+ while(tolower(s) == tolower(t++))
	96	+ if(*s++ == '\0')
	97	+ return 1;
	98	+ return 0;
	99	+}
	100	+
	101	+int
	102	+command(Window w, char s)
	103	+{
	104	+ while(s==' ' \|\| s=='\t' \|\| *s=='\n')
	105	+ s++;
	106	+ if(strcmp(s, "Delete")==0 \|\| strcmp(s, "Del")==0){
	107	+ windel(w, 1);
	108	+ threadexitsall(nil);
	109	+ return 1;
	110	+ }
	111	+ if(EQUAL(s, "scroll")){
	112	+ ctlprint(w->ctl, "scroll\nshow");
	113	+ return 1;
	114	+ }
	115	+ if(EQUAL(s, "noscroll")){
	116	+ ctlprint(w->ctl, "noscroll");
	117	+ return 1;
	118	+ }
	119	+ return 0;
	120	+}
	121	+
	122	+static long
	123	+utfncpy(char to, char from, int n)
	124	+{
	125	+ char end, e;
	126	+
	127	+ e = to+n;
	128	+ if(to >= e)
	129	+ return 0;
	130	+ end = memccpy(to, from, '\0', e - to);
	131	+ if(end == nil){
	132	+ end = e;
	133	+ if(end[-1]&0x80){
	134	+ if(end-2>=to && (end[-2]&0xE0)==0xC0)
	135	+ return end-to;
	136	+ if(end-3>=to && (end[-3]&0xF0)==0xE0)
	137	+ return end-to;
	138	+ while(end>to && (*--end&0xC0)==0x80)
	139	+ ;
	140	+ }
	141	+ }else
	142	+ end--;
	143	+ return end - to;
	144	+}
	145	+
	146	+/* sendinput and fsloop run in the same proc (can't interrupt each other). */
	147	+static Req *q;
	148	+static Req **eq;
	149	+static int
	150	+__sendinput(Window *w, ulong q0, ulong q1)
	151	+{
	152	+ char s, t;
	153	+ int n, nb, eofchar;
	154	+ static int partial;
	155	+ static char tmp[UTFmax];
	156	+ Req *r;
	157	+ Rune rune;
	158	+
	159	+ if(!q)
	160	+ return 0;
	161	+
	162	+ r = q;
	163	+ n = 0;
	164	+ if(partial){
	165	+ Partial:
	166	+ nb = partial;
	167	+ if(nb > r->ifcall.count)
	168	+ nb = r->ifcall.count;
	169	+ memmove(r->ofcall.data, tmp, nb);
	170	+ if(nb!=partial)
	171	+ memmove(tmp, tmp+nb, partial-nb);
	172	+ partial -= nb;
	173	+ q = r->aux;
	174	+ if(q == nil)
	175	+ eq = &q;
	176	+ r->aux = nil;
	177	+ r->ofcall.count = nb;
	178	+ if(debug)
	179	+ fprint(2, "satisfy read with partial\n");
	180	+ respond(r, nil);
	181	+ return n;
	182	+ }
	183	+ if(q0==q1)
	184	+ return 0;
	185	+ s = emalloc((q1-q0)*UTFmax+1);
	186	+ n = winread(w, q0, q1, s);
	187	+ s[n] = '\0';
	188	+ t = strpbrk(s, "\n\004");
	189	+ if(t == nil){
	190	+ free(s);
	191	+ return 0;
	192	+ }
	193	+ r = q;
	194	+ eofchar = 0;
	195	+ if(*t == '\004'){
	196	+ eofchar = 1;
	197	+ *t = '\0';
	198	+ }else
	199	+ *++t = '\0';
	200	+ nb = utfncpy((char*)r->ofcall.data, s, r->ifcall.count);
	201	+ if(nb==0 && s<t && r->ifcall.count > 0){
	202	+ partial = utfncpy(tmp, s, UTFmax);
	203	+ assert(partial > 0);
	204	+ chartorune(&rune, tmp);
	205	+ partial = runelen(rune);
	206	+ free(s);
	207	+ n = 1;
	208	+ goto Partial;
	209	+ }
	210	+ n = utfnlen(r->ofcall.data, nb);
	211	+ if(nb==strlen(s) && eofchar)
	212	+ n++;
	213	+ r->ofcall.count = nb;
	214	+ q = r->aux;
	215	+ if(q == nil)
	216	+ eq = &q;
	217	+ r->aux = nil;
	218	+ if(debug)
	219	+ fprint(2, "read returns %lud-%lud: %.*q\n", q0, q0+n, n, r->ofcall.data);
	220	+ respond(r, nil);
	221	+ return n;
	222	+}
	223	+
	224	+static int
	225	+_sendinput(Window w, ulong q0, ulong q1)
	226	+{
	227	+ char buf[32];
	228	+ int n;
	229	+
	230	+ n = __sendinput(w, q0, *q1);
	231	+ if(!n \|\| !eraseinput)
	232	+ return n;
	233	+ /* erase q0 to q0+n */
	234	+ sprint(buf, "#%lud,#%lud", q0, q0+n);
	235	+ winsetaddr(w, buf, 0);
	236	+ write(w->data, buf, 0);
	237	+ *q1 -= n;
	238	+ return 0;
	239	+}
	240	+
	241	+int
	242	+sendinput(Window w, ulong q0, ulong q1)
	243	+{
	244	+ ulong n;
	245	+ Req *oq;
	246	+
	247	+ n = 0;
	248	+ do {
	249	+ oq = q;
	250	+ n += _sendinput(w, q0+n, q1);
	251	+ } while(q != oq);
	252	+ return n;
	253	+}
	254	+
	255	+Event esendinput;
	256	+void
	257	+fsloop(void*)
	258	+{
	259	+ Fsevent e;
	260	+ Req *l, r;
	261	+
	262	+ eq = &q;
	263	+ memset(&esendinput, 0, sizeof esendinput);
	264	+ esendinput.c1 = 'C';
	265	+ for(;;){
	266	+ while(recv(fschan, &e) == -1)
	267	+ ;
	268	+ r = e.r;
	269	+ switch(e.type){
	270	+ case 'r':
	271	+ *eq = r;
	272	+ r->aux = nil;
	273	+ eq = &r->aux;
	274	+ /* call sendinput with hostpt and endpt */
	275	+ sendp(win->cevent, &esendinput);
	276	+ break;
	277	+ case 'f':
	278	+ for(l=&q; l; l=&(l)->aux){
	279	+ if(*l == r->oldreq){
	280	+ l = (l)->aux;
	281	+ if(*l == nil)
	282	+ eq = l;
	283	+ respond(r->oldreq, "interrupted");
	284	+ break;
	285	+ }
	286	+ }
	287	+ respond(r, nil);
	288	+ break;
	289	+ }
	290	+ }
	291	+}
	292	+
	293	+void
	294	+sendit(char *s)
	295	+{
	296	+// char tmp[32];
	297	+
	298	+ write(win->body, s, strlen(s));
	299	+/*
	300	+ * RSC: The problem here is that other procs can call sendit,
	301	+ * so we lose our single-threadedness if we call sendinput.
	302	+ * In fact, we don't even have the right queue memory,
	303	+ * I think that we'll get a write event from the body write above,
	304	+ * and we can do the sendinput then, from our single thread.
	305	+ *
	306	+ * I still need to figure out how to test this assertion for
	307	+ * programs that use /srv/win*
	308	+ *
	309	+ winselect(win, "$", 0);
	310	+ seek(win->addr, 0UL, 0);
	311	+ if(read(win->addr, tmp, 212) == 212)
	312	+ hostpt += sendinput(win, hostpt, atol(tmp), );
	313	+ */
	314	+}
	315	+
	316	+void
	317	+execevent(Window w, Event e, int (command)(Window, char*))
	318	+{
	319	+ Event ea, e2;
	320	+ int n, na, len, needfree;
	321	+ char s, t;
	322	+
	323	+ ea = nil;
	324	+ e2 = nil;
	325	+ if(e->flag & 2)
	326	+ e2 = recvp(w->cevent);
	327	+ if(e->flag & 8){
	328	+ ea = recvp(w->cevent);
	329	+ na = ea->nb;
	330	+ recvp(w->cevent);
	331	+ }else
	332	+ na = 0;
	333	+
	334	+ needfree = 0;
	335	+ s = e->b;
	336	+ if(e->nb==0 && (e->flag&2)){
	337	+ s = e2->b;
	338	+ e->q0 = e2->q0;
	339	+ e->q1 = e2->q1;
	340	+ e->nb = e2->nb;
	341	+ }
	342	+ if(e->nb==0 && e->q0<e->q1){
	343	+ /* fetch data from window */
	344	+ s = emalloc((e->q1-e->q0)*UTFmax+2);
	345	+ n = winread(w, e->q0, e->q1, s);
	346	+ s[n] = '\0';
	347	+ needfree = 1;
	348	+ }else
	349	+ if(na){
	350	+ t = emalloc(strlen(s)+1+na+2);
	351	+ sprint(t, "%s %s", s, ea->b);
	352	+ if(needfree)
	353	+ free(s);
	354	+ s = t;
	355	+ needfree = 1;
	356	+ }
	357	+
	358	+ /* if it's a known command, do it */
	359	+ /* if it's a long message, it can't be for us anyway */
	360	+ if(!command(w, s) && s[0]!='\0'){ /* send it as typed text */
	361	+ /* if it's a built-in from the tag, send it back */
	362	+ if(e->flag & 1)
	363	+ fprint(w->event, "%c%c%d %d\n", e->c1, e->c2, e->q0, e->q1);
	364	+ else{ /* send text to main window */
	365	+ len = strlen(s);
	366	+ if(len>0 && s[len-1]!='\n' && s[len-1]!='\004'){
	367	+ if(!needfree){
	368	+ /* if(needfree), we left room for a newline before */
	369	+ t = emalloc(len+2);
	370	+ strcpy(t, s);
	371	+ s = t;
	372	+ needfree = 1;
	373	+ }
	374	+ s[len++] = '\n';
	375	+ s[len] = '\0';
	376	+ }
	377	+ sendit(s);
	378	+ }
	379	+ }
	380	+ if(needfree)
	381	+ free(s);
	382	+}
	383	+
	384	+int
	385	+hasboundary(Rune *r, int nr)
	386	+{
	387	+ int i;
	388	+
	389	+ for(i=0; i<nr; i++)
	390	+ if(r[i]=='\n' \|\| r[i]=='\004')
	391	+ return 1;
	392	+ return 0;
	393	+}
	394	+
	395	+void
	396	+mainctl(void *v)
	397	+{
	398	+ Window *w;
	399	+ Event *e;
	400	+ int delta, pendingS, pendingK;
	401	+ ulong hostpt, endpt;
	402	+ char tmp[32];
	403	+
	404	+ w = v;
	405	+ proccreate(wineventproc, w, STACK);
	406	+
	407	+ hostpt = 0;
	408	+ endpt = 0;
	409	+ winsetaddr(w, "0", 0);
	410	+ pendingS = 0;
	411	+ pendingK = 0;
	412	+ for(;;){
	413	+ if(debug)
	414	+ fprint(2, "input range %lud-%lud\n", hostpt, endpt);
	415	+ e = recvp(w->cevent);
	416	+ if(debug)
	417	+ fprint(2, "msg: %C %C %d %d %d %d %q\n",
	418	+ e->c1 ? e->c1 : ' ', e->c2 ? e->c2 : ' ', e->q0, e->q1, e->flag, e->nb, e->b);
	419	+ switch(e->c1){
	420	+ default:
	421	+ Unknown:
	422	+ fprint(2, "unknown message %c%c\n", e->c1, e->c2);
	423	+ break;
	424	+
	425	+ case 'C': /* input needed for /dev/cons */
	426	+ if(pendingS)
	427	+ pendingK = 1;
	428	+ else
	429	+ hostpt += sendinput(w, hostpt, &endpt);
	430	+ break;
	431	+
	432	+ case 'S': /* output to stdout */
	433	+ sprint(tmp, "#%lud", hostpt);
	434	+ winsetaddr(w, tmp, 0);
	435	+ write(w->data, e->b, e->nb);
	436	+ pendingS += e->nr;
	437	+ break;
	438	+
	439	+ case 'E': /* write to tag or body; body happens due to sendit */
	440	+ delta = e->q1-e->q0;
	441	+ if(e->c2=='I'){
	442	+ endpt += delta;
	443	+ if(e->q0 < hostpt)
	444	+ hostpt += delta;
	445	+ else
	446	+ hostpt += sendinput(w, hostpt, &endpt);
	447	+ break;
	448	+ }
	449	+ if(!islower(e->c2))
	450	+ fprint(2, "win msg: %C %C %d %d %d %d %q\n",
	451	+ e->c1, e->c2, e->q0, e->q1, e->flag, e->nb, e->b);
	452	+ break;
	453	+
	454	+ case 'F': /* generated by our actions (specifically case 'S' above) */
	455	+ delta = e->q1-e->q0;
	456	+ if(e->c2=='D'){
	457	+ /* we know about the delete by _sendinput */
	458	+ break;
	459	+ }
	460	+ if(e->c2=='I'){
	461	+ pendingS -= e->q1 - e->q0;
	462	+ if(pendingS < 0)
	463	+ fprint(2, "win: pendingS = %d\n", pendingS);
	464	+ if(e->q0 != hostpt)
	465	+ fprint(2, "win: insert at %d expected %lud\n", e->q0, hostpt);
	466	+ endpt += delta;
	467	+ hostpt += delta;
	468	+ sendp(writechan, nil);
	469	+ if(pendingS == 0 && pendingK){
	470	+ pendingK = 0;
	471	+ hostpt += sendinput(w, hostpt, &endpt);
	472	+ }
	473	+ break;
	474	+ }
	475	+ if(!islower(e->c2))
	476	+ fprint(2, "win msg: %C %C %d %d %d %d %q\n",
	477	+ e->c1, e->c2, e->q0, e->q1, e->flag, e->nb, e->b);
	478	+ break;
	479	+
	480	+ case 'K':
	481	+ delta = e->q1-e->q0;
	482	+ switch(e->c2){
	483	+ case 'D':
	484	+ endpt -= delta;
	485	+ if(e->q1 < hostpt)
	486	+ hostpt -= delta;
	487	+ else if(e->q0 < hostpt)
	488	+ hostpt = e->q0;
	489	+ break;
	490	+ case 'I':
	491	+ delta = e->q1 - e->q0;
	492	+ endpt += delta;
	493	+ if(endpt < e->q1) /* just in case */
	494	+ endpt = e->q1;
	495	+ if(e->q0 < hostpt)
	496	+ hostpt += delta;
	497	+ if(e->nr>0 && e->r[e->nr-1]==0x7F){
	498	+ write(notepg, "interrupt", 9);
	499	+ hostpt = endpt;
	500	+ break;
	501	+ }
	502	+ if(e->q0 >= hostpt
	503	+ && hasboundary(e->r, e->nr)){
	504	+ /*
	505	+ * If we are between the S message (which
	506	+ * we processed by inserting text in the
	507	+ * window) and the F message notifying us
	508	+ * that the text has been inserted, then our
	509	+ * impression of the hostpt and acme's
	510	+ * may be different. This could be seen if you
	511	+ * hit enter a bunch of times in a con
	512	+ * session. To work around the unreliability,
	513	+ * only send input if we don't have an S pending.
	514	+ * The same race occurs between when a character
	515	+ * is typed and when we get notice of it, but
	516	+ * since characters tend to be typed at the end
	517	+ * of the buffer, we don't run into it. There's
	518	+ * no workaround possible for this typing race,
	519	+ * since we can't tell when the user has typed
	520	+ * something but we just haven't been notified.
	521	+ */
	522	+ if(pendingS)
	523	+ pendingK = 1;
	524	+ else
	525	+ hostpt += sendinput(w, hostpt, &endpt);
	526	+ }
	527	+ break;
	528	+ }
	529	+ break;
	530	+
	531	+ case 'M': /* mouse */
	532	+ delta = e->q1-e->q0;
	533	+ switch(e->c2){
	534	+ case 'x':
	535	+ case 'X':
	536	+ execevent(w, e, command);
	537	+ break;
	538	+
	539	+ case 'l': /* reflect all searches back to acme */
	540	+ case 'L':
	541	+ if(e->flag & 2)
	542	+ recvp(w->cevent);
	543	+ winwriteevent(w, e);
	544	+ break;
	545	+
	546	+ case 'I':
	547	+ endpt += delta;
	548	+ if(e->q0 < hostpt)
	549	+ hostpt += delta;
	550	+ else
	551	+ hostpt += sendinput(w, hostpt, &endpt);
	552	+ break;
	553	+
	554	+ case 'D':
	555	+ endpt -= delta;
	556	+ if(e->q1 < hostpt)
	557	+ hostpt -= delta;
	558	+ else if(e->q0 < hostpt)
	559	+ hostpt = e->q0;
	560	+ break;
	561	+ case 'd': /* modify away; we don't care */
	562	+ case 'i':
	563	+ break;
	564	+
	565	+ default:
	566	+ goto Unknown;
	567	+ }
	568	+ }
	569	+ }
	570	+}
	571	+
	572	+enum
	573	+{
	574	+ NARGS = 100,
	575	+ NARGCHAR = 8*1024,
	576	+ EXECSTACK = STACK+(NARGS+1)sizeof(char)+NARGCHAR
	577	+};
	578	+
	579	+struct Exec
	580	+{
	581	+ char **argv;
	582	+ Channel *cpid;
	583	+};
	584	+
	585	+int
	586	+lookinbin(char *s)
	587	+{
	588	+ if(s[0] == '/')
	589	+ return 0;
	590	+ if(s[0]=='.' && s[1]=='/')
	591	+ return 0;
	592	+ if(s[0]=='.' && s[1]=='.' && s[2]=='/')
	593	+ return 0;
	594	+ return 1;
	595	+}
	596	+
	597	+/* adapted from mail. not entirely free of details from that environment */
	598	+void
	599	+execproc(void *v)
	600	+{
	601	+ struct Exec *e;
	602	+ char cmd, *av;
	603	+ Channel *cpid;
	604	+
	605	+ e = v;
	606	+ rfork(RFCFDG\|RFNOTEG);
	607	+ av = e->argv;
	608	+ close(0);
	609	+ open("/dev/cons", OREAD);
	610	+ close(1);
	611	+ open("/dev/cons", OWRITE);
	612	+ dup(1, 2);
	613	+ cpid = e->cpid;
	614	+ free(e);
	615	+ procexec(cpid, av[0], av);
	616	+ if(lookinbin(av[0])){
	617	+ cmd = estrstrdup("/bin/", av[0]);
	618	+ procexec(cpid, cmd, av);
	619	+ }
	620	+ error("can't exec %s: %r", av[0]);
	621	+}
	622	+
	623	+void
	624	+startcmd(char argv[], int notepg)
	625	+{
	626	+ struct Exec *e;
	627	+ Channel *cpid;
	628	+ char buf[64];
	629	+ int pid;
	630	+
	631	+ e = emalloc(sizeof(struct Exec));
	632	+ e->argv = argv;
	633	+ cpid = chancreate(sizeof(ulong), 0);
	634	+ e->cpid = cpid;
	635	+ sprint(buf, "/mnt/wsys/%d", win->id);
	636	+ bind(buf, "/dev/acme", MREPL);
	637	+ proccreate(execproc, e, EXECSTACK);
	638	+ do
	639	+ pid = recvul(cpid);
	640	+ while(pid == -1);
	641	+ sprint(buf, "/proc/%d/notepg", pid);
	642	+ *notepg = open(buf, OWRITE);
	643	+}

acme/bin/source/win/mkfile+25−0

@@ -0,0 +1,25 @@
	1	+</$objtype/mkfile
	2	+
	3	+TARG=win
	4	+OFILES=\
	5	+ fs.$O\
	6	+ main.$O\
	7	+ pipe.$O\
	8	+ util.$O\
	9	+ win.$O
	10	+
	11	+HFILES=dat.h
	12	+LIB=/$objtype/lib/lib9p.a
	13	+
	14	+BIN=/acme/bin/$objtype
	15	+</sys/src/cmd/mkone
	16	+
	17	+UPDATE=\
	18	+ mkfile\
	19	+ $HFILES\
	20	+ ${OFILES:%.$O=%.c}\
	21	+ ${TARG:%=/acme/bin/$objtype/%}\
	22	+
	23	+syms:V:
	24	+ 8c -a main.c >syms
	25	+ 8c -aa util.c win.c >>syms

acme/bin/source/win/pipe.6+0−0

Binary file not shown.

acme/bin/source/win/pipe.8+0−0

Binary file not shown.

acme/bin/source/win/pipe.c+175−0

@@ -0,0 +1,175 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <fcall.h>
	4	+#include <thread.h>
	5	+#include <9p.h>
	6	+#include "dat.h"
	7	+
	8	+typedef struct Wpid Wpid;
	9	+struct Wpid
	10	+{
	11	+ int pid;
	12	+ Window *w;
	13	+ Wpid *next;
	14	+};
	15	+
	16	+void pipectl(void*);
	17	+
	18	+int pipefd;
	19	+Wpid *wpid;
	20	+int snarffd;
	21	+Channel *newpipechan;
	22	+
	23	+int
	24	+newpipewin(int pid, char *p)
	25	+{
	26	+ int id;
	27	+ Window *w;
	28	+ Wpid *wp;
	29	+
	30	+ w = newwindow();
	31	+ winname(w, p);
	32	+ wintagwrite(w, "Send ", 5);
	33	+ wp = emalloc(sizeof(Wpid));
	34	+ wp->pid = pid;
	35	+ wp->w = w;
	36	+ wp->next = wpid; /* BUG: this happens in fsread proc (we don't use wpid, so it's okay) */
	37	+ wpid = wp;
	38	+ id = w->id;
	39	+ sendp(newpipechan, w);
	40	+ return id;
	41	+}
	42	+
	43	+int
	44	+pipecommand(Window w, char s)
	45	+{
	46	+ ulong q0, q1;
	47	+ char tmp[32], *t;
	48	+ int n, k;
	49	+
	50	+ while(s==' ' \|\| s=='\t' \|\| *s=='\n')
	51	+ s++;
	52	+ if(strcmp(s, "Delete")==0){
	53	+ windel(w, 1);
	54	+ threadexits(nil);
	55	+ return 1;
	56	+ }
	57	+ if(strcmp(s, "Del")==0){
	58	+ if(windel(w, 0))
	59	+ threadexits(nil);
	60	+ return 1;
	61	+ }
	62	+ if(strcmp(s, "Send") == 0){
	63	+ if(w->addr < 0)
	64	+ w->addr = winopenfile(w, "addr");
	65	+ ctlprint(w->ctl, "addr=dot\n");
	66	+ seek(w->addr, 0UL, 0);
	67	+ if(read(w->addr, tmp, 212) == 212){
	68	+ q0 = atol(tmp+0*12);
	69	+ q1 = atol(tmp+1*12);
	70	+ if(q0 == q1){
	71	+ t = nil;
	72	+ k = 0;
	73	+ if(snarffd > 0){
	74	+ seek(0, snarffd, 0);
	75	+ for(;;){
	76	+ t = realloc(t, k+8192+2);
	77	+ if(t == nil)
	78	+ error("alloc failed: %r\n");
	79	+ n = read(snarffd, t+k, 8192);
	80	+ if(n <= 0)
	81	+ break;
	82	+ k += n;
	83	+ }
	84	+ t[k] = 0;
	85	+ }
	86	+ }else{
	87	+ t = emalloc((q1-q0)*UTFmax+2);
	88	+ winread(w, q0, q1, t);
	89	+ k = strlen(t);
	90	+ }
	91	+ if(t!=nil && t[0]!='\0'){
	92	+ if(t[k-1]!='\n' && t[k-1]!='\004'){
	93	+ t[k++] = '\n';
	94	+ t[k] = '\0';
	95	+ }
	96	+ sendit(t);
	97	+ }
	98	+ free(t);
	99	+ }
	100	+ return 1;
	101	+ }
	102	+ return 0;
	103	+}
	104	+
	105	+void
	106	+pipectl(void *v)
	107	+{
	108	+ Window *w;
	109	+ Event *e;
	110	+
	111	+ w = v;
	112	+ proccreate(wineventproc, w, STACK);
	113	+
	114	+ windormant(w);
	115	+ winsetaddr(w, "0", 0);
	116	+ for(;;){
	117	+ e = recvp(w->cevent);
	118	+ switch(e->c1){
	119	+ default:
	120	+ Unknown:
	121	+ fprint(2, "unknown message %c%c\n", e->c1, e->c2);
	122	+ break;
	123	+
	124	+ case 'E': /* write to body; can't affect us */
	125	+ break;
	126	+
	127	+ case 'F': /* generated by our actions; ignore */
	128	+ break;
	129	+
	130	+ case 'K': /* ignore */
	131	+ break;
	132	+
	133	+ case 'M':
	134	+ switch(e->c2){
	135	+ case 'x':
	136	+ case 'X':
	137	+ execevent(w, e, pipecommand);
	138	+ break;
	139	+
	140	+ case 'l': /* reflect all searches back to acme */
	141	+ case 'L':
	142	+ if(e->flag & 2)
	143	+ recvp(w->cevent);
	144	+ winwriteevent(w, e);
	145	+ break;
	146	+
	147	+ case 'I': /* modify away; we don't care */
	148	+ case 'i':
	149	+ case 'D':
	150	+ case 'd':
	151	+ break;
	152	+
	153	+ default:
	154	+ goto Unknown;
	155	+ }
	156	+ }
	157	+ }
	158	+}
	159	+
	160	+void
	161	+newpipethread(void*)
	162	+{
	163	+ Window *w;
	164	+
	165	+ while(w = recvp(newpipechan))
	166	+ threadcreate(pipectl, w, STACK);
	167	+}
	168	+
	169	+void
	170	+startpipe(void)
	171	+{
	172	+ newpipechan = chancreate(sizeof(Window*), 0);
	173	+ threadcreate(newpipethread, nil, STACK);
	174	+ snarffd = open("/dev/snarf", OREAD\|OCEXEC);
	175	+}

acme/bin/source/win/util.6+0−0

Binary file not shown.

acme/bin/source/win/util.8+0−0

Binary file not shown.

acme/bin/source/win/util.c+90−0

@@ -0,0 +1,90 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include "dat.h"
	6	+
	7	+void*
	8	+emalloc(uint n)
	9	+{
	10	+ void *p;
	11	+
	12	+ p = malloc(n);
	13	+ if(p == nil)
	14	+ error("can't malloc: %r");
	15	+ memset(p, 0, n);
	16	+ return p;
	17	+}
	18	+
	19	+char*
	20	+estrdup(char *s)
	21	+{
	22	+ char *t;
	23	+
	24	+ t = emalloc(strlen(s)+1);
	25	+ strcpy(t, s);
	26	+ return t;
	27	+}
	28	+
	29	+char*
	30	+estrstrdup(char s, char t)
	31	+{
	32	+ char *u;
	33	+
	34	+ u = emalloc(strlen(s)+strlen(t)+1);
	35	+ sprint(u, "%s%s", s, t);
	36	+ return u;
	37	+}
	38	+
	39	+char*
	40	+eappend(char s, char sep, char *t)
	41	+{
	42	+ char *u;
	43	+
	44	+ if(t == nil)
	45	+ u = estrstrdup(s, sep);
	46	+ else{
	47	+ u = emalloc(strlen(s)+strlen(sep)+strlen(t)+1);
	48	+ sprint(u, "%s%s%s", s, sep, t);
	49	+ }
	50	+ free(s);
	51	+ return u;
	52	+}
	53	+
	54	+char*
	55	+egrow(char s, char sep, char *t)
	56	+{
	57	+ s = eappend(s, sep, t);
	58	+ free(t);
	59	+ return s;
	60	+}
	61	+
	62	+void
	63	+error(char *fmt, ...)
	64	+{
	65	+ Fmt f;
	66	+ char buf[64];
	67	+ va_list arg;
	68	+
	69	+ fmtfdinit(&f, 2, buf, sizeof buf);
	70	+ fmtprint(&f, "win: ");
	71	+ va_start(arg, fmt);
	72	+ fmtvprint(&f, fmt, arg);
	73	+ va_end(arg);
	74	+ fmtprint(&f, "\n");
	75	+ fmtfdflush(&f);
	76	+ threadexitsall(buf);
	77	+}
	78	+
	79	+void
	80	+ctlprint(int fd, char *fmt, ...)
	81	+{
	82	+ int n;
	83	+ va_list arg;
	84	+
	85	+ va_start(arg, fmt);
	86	+ n = vfprint(fd, fmt, arg);
	87	+ va_end(arg);
	88	+ if(n <= 0)
	89	+ error("control file write error: %r");
	90	+}

acme/bin/source/win/win.6+0−0

Binary file not shown.

acme/bin/source/win/win.8+0−0

Binary file not shown.

acme/bin/source/win/win.c+273−0

@@ -0,0 +1,273 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include "dat.h"
	6	+
	7	+Window*
	8	+newwindow(void)
	9	+{
	10	+ char buf[12];
	11	+ Window *w;
	12	+
	13	+ w = emalloc(sizeof(Window));
	14	+ w->ctl = open("/mnt/wsys/new/ctl", ORDWR\|OCEXEC);
	15	+ if(w->ctl<0 \|\| read(w->ctl, buf, 12)!=12)
	16	+ error("can't open window ctl file: %r");
	17	+ ctlprint(w->ctl, "noscroll\n");
	18	+ w->id = atoi(buf);
	19	+ w->event = winopenfile(w, "event");
	20	+ w->addr = winopenfile(w, "addr");
	21	+ w->body = winopenfile(w, "body");
	22	+ w->data = winopenfile(w, "data");
	23	+ w->cevent = chancreate(sizeof(Event*), 0);
	24	+ return w;
	25	+}
	26	+
	27	+void
	28	+winsetdump(Window w, char dir, char *cmd)
	29	+{
	30	+ if(dir != nil)
	31	+ ctlprint(w->ctl, "dumpdir %s\n", dir);
	32	+ if(cmd != nil)
	33	+ ctlprint(w->ctl, "dump %s\n", cmd);
	34	+}
	35	+
	36	+void
	37	+winsetdir(Window w, char dir, char *name)
	38	+{
	39	+ ctlprint(w->ctl, "dumpdir %s\n", dir);
	40	+ if(strcmp(dir, "/")==0)
	41	+ dir++;
	42	+ ctlprint(w->ctl, "name %s/-%s\n", dir, name);
	43	+}
	44	+
	45	+void
	46	+wineventproc(void *v)
	47	+{
	48	+ Window *w;
	49	+ int i;
	50	+
	51	+ w = v;
	52	+ for(i=0; ; i++){
	53	+ if(i >= NEVENT)
	54	+ i = 0;
	55	+ wingetevent(w, &w->e[i]);
	56	+ sendp(w->cevent, &w->e[i]);
	57	+ }
	58	+}
	59	+
	60	+int
	61	+winopenfile(Window w, char f)
	62	+{
	63	+ char buf[64];
	64	+ int fd;
	65	+
	66	+ sprint(buf, "/mnt/wsys/%d/%s", w->id, f);
	67	+ fd = open(buf, ORDWR\|OCEXEC);
	68	+ if(fd < 0)
	69	+ error("can't open window file %s: %r", f);
	70	+ return fd;
	71	+}
	72	+
	73	+void
	74	+wintagwrite(Window w, char s, int n)
	75	+{
	76	+ int fd;
	77	+
	78	+ fd = winopenfile(w, "tag");
	79	+ if(write(fd, s, n) != n)
	80	+ error("tag write: %r");
	81	+ close(fd);
	82	+}
	83	+
	84	+void
	85	+winname(Window w, char s)
	86	+{
	87	+ ctlprint(w->ctl, "name %s\n", s);
	88	+}
	89	+
	90	+int
	91	+wingetec(Window *w)
	92	+{
	93	+ if(w->nbuf == 0){
	94	+ w->nbuf = read(w->event, w->buf, sizeof w->buf);
	95	+ if(w->nbuf <= 0){
	96	+ /* probably because window has exited, and only called by wineventproc, so just shut down */
	97	+ threadexits(nil);
	98	+ }
	99	+ w->bufp = w->buf;
	100	+ }
	101	+ w->nbuf--;
	102	+ return *w->bufp++;
	103	+}
	104	+
	105	+int
	106	+wingeten(Window *w)
	107	+{
	108	+ int n, c;
	109	+
	110	+ n = 0;
	111	+ while('0'<=(c=wingetec(w)) && c<='9')
	112	+ n = n*10+(c-'0');
	113	+ if(c != ' ')
	114	+ error("event number syntax");
	115	+ return n;
	116	+}
	117	+
	118	+int
	119	+wingeter(Window w, char buf, int *nb)
	120	+{
	121	+ Rune r;
	122	+ int n;
	123	+
	124	+ r = wingetec(w);
	125	+ buf[0] = r;
	126	+ n = 1;
	127	+ if(r >= Runeself) {
	128	+ while(!fullrune(buf, n))
	129	+ buf[n++] = wingetec(w);
	130	+ chartorune(&r, buf);
	131	+ }
	132	+ *nb = n;
	133	+ return r;
	134	+}
	135	+
	136	+void
	137	+wingetevent(Window w, Event e)
	138	+{
	139	+ int i, nb;
	140	+
	141	+ e->c1 = wingetec(w);
	142	+ e->c2 = wingetec(w);
	143	+ e->q0 = wingeten(w);
	144	+ e->q1 = wingeten(w);
	145	+ e->flag = wingeten(w);
	146	+ e->nr = wingeten(w);
	147	+ if(e->nr > EVENTSIZE)
	148	+ error("event string too long");
	149	+ e->nb = 0;
	150	+ for(i=0; i<e->nr; i++){
	151	+ e->r[i] = wingeter(w, e->b+e->nb, &nb);
	152	+ e->nb += nb;
	153	+ }
	154	+ e->r[e->nr] = 0;
	155	+ e->b[e->nb] = 0;
	156	+ if(wingetec(w) != '\n')
	157	+ error("event syntax error");
	158	+}
	159	+
	160	+void
	161	+winwriteevent(Window w, Event e)
	162	+{
	163	+ fprint(w->event, "%c%c%d %d\n", e->c1, e->c2, e->q0, e->q1);
	164	+}
	165	+
	166	+static int
	167	+nrunes(char *s, int nb)
	168	+{
	169	+ int i, n;
	170	+ Rune r;
	171	+
	172	+ n = 0;
	173	+ for(i=0; i<nb; n++)
	174	+ i += chartorune(&r, s+i);
	175	+ return n;
	176	+}
	177	+
	178	+int
	179	+winread(Window w, uint q0, uint q1, char data)
	180	+{
	181	+ int m, n, nr, nb;
	182	+ char buf[256];
	183	+
	184	+ if(w->addr < 0)
	185	+ w->addr = winopenfile(w, "addr");
	186	+ if(w->data < 0)
	187	+ w->data = winopenfile(w, "data");
	188	+ m = q0;
	189	+ nb = 0;
	190	+ while(m < q1){
	191	+ n = sprint(buf, "#%d", m);
	192	+ if(write(w->addr, buf, n) != n)
	193	+ error("error writing addr: %r");
	194	+ n = read(w->data, buf, sizeof buf);
	195	+ if(n < 0)
	196	+ error("reading data: %r");
	197	+ nr = nrunes(buf, n);
	198	+ while(m+nr >q1){
	199	+ do; while(n>0 && (buf[--n]&0xC0)==0x80);
	200	+ --nr;
	201	+ }
	202	+ if(n == 0)
	203	+ break;
	204	+ memmove(data, buf, n);
	205	+ nb += n;
	206	+ data += n;
	207	+ *data = 0;
	208	+ m += nr;
	209	+ }
	210	+ return nb;
	211	+}
	212	+
	213	+void
	214	+windormant(Window *w)
	215	+{
	216	+ if(w->addr >= 0){
	217	+ close(w->addr);
	218	+ w->addr = -1;
	219	+ }
	220	+ if(w->body >= 0){
	221	+ close(w->body);
	222	+ w->body = -1;
	223	+ }
	224	+ if(w->data >= 0){
	225	+ close(w->data);
	226	+ w->data = -1;
	227	+ }
	228	+}
	229	+
	230	+int
	231	+windel(Window *w, int sure)
	232	+{
	233	+ if(sure)
	234	+ write(w->ctl, "delete\n", 7);
	235	+ else if(write(w->ctl, "del\n", 4) != 4)
	236	+ return 0;
	237	+ /* event proc will die due to read error from event file */
	238	+ windormant(w);
	239	+ close(w->ctl);
	240	+ w->ctl = -1;
	241	+ close(w->event);
	242	+ w->event = -1;
	243	+ return 1;
	244	+}
	245	+
	246	+void
	247	+winclean(Window *w)
	248	+{
	249	+ ctlprint(w->ctl, "clean\n");
	250	+}
	251	+
	252	+int
	253	+winsetaddr(Window w, char addr, int errok)
	254	+{
	255	+ if(w->addr < 0)
	256	+ w->addr = winopenfile(w, "addr");
	257	+ if(write(w->addr, addr, strlen(addr)) < 0){
	258	+ if(!errok)
	259	+ error("error writing addr(%s): %r", addr);
	260	+ return 0;
	261	+ }
	262	+ return 1;
	263	+}
	264	+
	265	+int
	266	+winselect(Window w, char addr, int errok)
	267	+{
	268	+ if(winsetaddr(w, addr, errok)){
	269	+ ctlprint(w->ctl, "dot=addr\n");
	270	+ return 1;
	271	+ }
	272	+ return 0;
	273	+}

acme/bin/unind+3−0

@@ -0,0 +1,3 @@
	1	+#!/bin/rc
	2	+
	3	+sed 's/^ //' $*

acme/bin/wnew+5−0

@@ -0,0 +1,5 @@
	1	+#!/bin/rc -e
	2	+
	3	+id=`{mkwnew $*}
	4	+cat >/mnt/acme/$id/body
	5	+echo clean >/mnt/acme/$id/ctl

acme/mail/guide+4−0

@@ -0,0 +1,4 @@
	1	+Mail stored
	2	+plumb /mail/box/$user/names
	3	+mail -'x' someaddress
	4	+mkbox /mail/box/$user/new_box

acme/mail/mkbox+11−0

@@ -0,0 +1,11 @@
	1	+#!/bin/rc
	2	+
	3	+for(i){
	4	+ if(! test -e $i){
	5	+ if(cp /dev/null $i){
	6	+ chmod 600 $i
	7	+ chmod +al $i
	8	+ }
	9	+ }
	10	+ if not echo $i already exists
	11	+}

acme/mail/readme+57−0

@@ -0,0 +1,57 @@
	1	+The Acme Mail program uses upas/fs to parse the mail box, and then
	2	+presents a file-browser-like user interface to reading and sending
	3	+messages. The Mail window presents each numbered message like the
	4	+contents of a directory presented one per line. If a message has a
	5	+Subject: line, that is shown indented on the following line.
	6	+Multipart MIME-encoded messages are presented in the obvious
	7	+hierarchical format.
	8	+
	9	+Mail uses upas/fs to access the mail box. By default it reads "mbox",
	10	+the standard user mail box. If Mail is given an argument, it is
	11	+passed to upas/fs as the name of the mail box (or upas/fs directory)
	12	+to open.
	13	+
	14	+Although Mail works if the plumber is not running, it's designed to be
	15	+run with plumbing enabled and many of its features work best if it is.
	16	+
	17	+The mailbox window has a few commands: Put writes back the mailbox;
	18	+Mail creates a new window in which to compose a message; and Delmesg
	19	+deletes messages by number. The number may be given as argument or
	20	+indicated by selecting the header line in the mailbox window.
	21	+(Delmesg does not expand null selections, in the interest of safety.)
	22	+
	23	+Clicking the right button on a message number opens it; clicking on
	24	+any of the subparts of a message opens that (and also opens the
	25	+message itself). Each message window has a few commands in the tag
	26	+with obvious names: Reply, Delmsg, etc. "Reply" replies to the single
	27	+sender of the message, "Reply all" or "Replyall" replies to everyone
	28	+in the From:, To:, and CC: lines.
	29	+
	30	+Message parts with recognized MIME types such as image/jpeg are sent
	31	+to the plumber for further dispatch. Acme Mail also listens to
	32	+messages on the seemail and showmail plumbing ports, to report the
	33	+arrival of new messages (highlighting the entry; right-click on the
	34	+entry to open the message) and open them if you right-click on the
	35	+face in the faces window.
	36	+
	37	+When composing a mail message or replying to a message, the first line
	38	+of the text is a list of recipients of the message. To:, and CC:, and BCC:
	39	+lines are interpreted in the usual way. Two other header lines are
	40	+special to Acme Mail:
	41	+ Include: file places a copy of file in the message as an
	42	+ inline MIME attachment.
	43	+ Attach: file places a copy of file in the message as a regular
	44	+ MIME attachment.
	45	+
	46	+Acme Mail uses these conventions when replying to messages,
	47	+constructing headers for the default behavior. You may edit these to
	48	+change behavior. Most important, when replying to a message Mail will
	49	+always Include: the original message; delete that line if you don't
	50	+want to include it.
	51	+
	52	+If the mailbox
	53	+ /mail/box/$user/outgoing
	54	+exists, Acme Mail will save your a copy of your outgoing messages
	55	+there. Attachments are described in the copy but not included.
	56	+
	57	+The -m mntpoint flag specifies a different mount point for /upas/fs.

acme/mail/src/6.out+0−0

Binary file not shown.

acme/mail/src/8.out+0−0

Binary file not shown.

acme/mail/src/dat.h+164−0

@@ -0,0 +1,164 @@
	1	+typedef struct Event Event;
	2	+typedef struct Exec Exec;
	3	+typedef struct Message Message;
	4	+typedef struct Window Window;
	5	+
	6	+enum
	7	+{
	8	+ STACK = 8192,
	9	+ EVENTSIZE = 256,
	10	+ NEVENT = 5,
	11	+};
	12	+
	13	+struct Event
	14	+{
	15	+ int c1;
	16	+ int c2;
	17	+ int q0;
	18	+ int q1;
	19	+ int flag;
	20	+ int nb;
	21	+ int nr;
	22	+ char b[EVENTSIZE*UTFmax+1];
	23	+ Rune r[EVENTSIZE+1];
	24	+};
	25	+
	26	+struct Window
	27	+{
	28	+ /* file descriptors */
	29	+ int ctl;
	30	+ int event;
	31	+ int addr;
	32	+ int data;
	33	+ Biobuf *body;
	34	+
	35	+ /* event input */
	36	+ char buf[512];
	37	+ char *bufp;
	38	+ int nbuf;
	39	+ Event e[NEVENT];
	40	+
	41	+ int id;
	42	+ int open;
	43	+ Channel *cevent;
	44	+};
	45	+
	46	+struct Message
	47	+{
	48	+ Window *w;
	49	+ int ctlfd;
	50	+ char *name;
	51	+ char *replyname;
	52	+ uchar opened;
	53	+ uchar dirty;
	54	+ uchar isreply;
	55	+ uchar deleted;
	56	+ uchar writebackdel;
	57	+ uchar tagposted;
	58	+ uchar recursed;
	59	+ uchar level;
	60	+
	61	+ /* header info */
	62	+ char fromcolon; / from header file; all rest are from info file */
	63	+ char *from;
	64	+ char *to;
	65	+ char *cc;
	66	+ char *replyto;
	67	+ char *date;
	68	+ char *subject;
	69	+ char *type;
	70	+ char *disposition;
	71	+ char *filename;
	72	+ char *digest;
	73	+
	74	+ Message next; / next in this mailbox */
	75	+ Message prev; / prev in this mailbox */
	76	+ Message head; / first subpart */
	77	+ Message tail; / last subpart */
	78	+};
	79	+
	80	+enum
	81	+{
	82	+ NARGS = 100,
	83	+ NARGCHAR = 8*1024,
	84	+ EXECSTACK = STACK+(NARGS+1)sizeof(char)+NARGCHAR
	85	+};
	86	+
	87	+struct Exec
	88	+{
	89	+ char *prog;
	90	+ char **argv;
	91	+ int p[2]; /* p[1] is write to program; p[0] set to prog fd 0*/
	92	+ int q[2]; /* q[0] is read from program; q[1] set to prog fd 1 */
	93	+ Channel *sync;
	94	+};
	95	+
	96	+extern Window* newwindow(void);
	97	+extern int winopenfile(Window, char);
	98	+extern void winopenbody(Window*, int);
	99	+extern void winclosebody(Window*);
	100	+extern void wintagwrite(Window, char, int);
	101	+extern void winname(Window, char);
	102	+extern void winwriteevent(Window, Event);
	103	+extern void winread(Window, uint, uint, char);
	104	+extern int windel(Window*, int);
	105	+extern void wingetevent(Window, Event);
	106	+extern void wineventproc(void*);
	107	+extern void winwritebody(Window, char, int);
	108	+extern void winclean(Window*);
	109	+extern int winselect(Window, char, int);
	110	+extern char* winselection(Window*);
	111	+extern int winsetaddr(Window, char, int);
	112	+extern char* winreadbody(Window, int);
	113	+extern void windormant(Window*);
	114	+extern void winsetdump(Window, char, char*);
	115	+
	116	+extern void readmbox(Message, char, char*);
	117	+extern void rewritembox(Window, Message);
	118	+
	119	+extern void mkreply(Message, char, char, Plumbattr, char*);
	120	+extern void delreply(Message*);
	121	+
	122	+extern int mesgadd(Message, char, Dir, char);
	123	+extern void mesgmenu(Window, Message);
	124	+extern void mesgmenunew(Window, Message);
	125	+extern int mesgopen(Message, char, char, Message, int, char*);
	126	+extern void mesgctl(void*);
	127	+extern void mesgsend(Message*);
	128	+extern void mesgdel(Message, Message);
	129	+extern void mesgmenudel(Window, Message, Message*);
	130	+extern void mesgmenumark(Window, char, char*);
	131	+extern void mesgmenumarkdel(Window, Message, Message*, int);
	132	+extern Message* mesglookup(Message, char, char*);
	133	+extern Message* mesglookupfile(Message, char, char*);
	134	+extern void mesgfreeparts(Message*);
	135	+
	136	+extern char* readfile(char, char, int*);
	137	+extern char* readbody(char, char, int*);
	138	+extern void ctlprint(int, char*, ...);
	139	+extern void* emalloc(uint);
	140	+extern void* erealloc(void*, uint);
	141	+extern char* estrdup(char*);
	142	+extern char* estrstrdup(char, char);
	143	+extern char* egrow(char, char, char*);
	144	+extern char* eappend(char, char, char*);
	145	+extern void error(char*, ...);
	146	+extern int tokenizec(char, char, int, char);
	147	+extern void execproc(void*);
	148	+
	149	+#pragma varargck argpos error 1
	150	+#pragma varargck argpos ctlprint 2
	151	+
	152	+extern Window *wbox;
	153	+extern Message mbox;
	154	+extern Message replies;
	155	+extern char *fsname;
	156	+extern int plumbsendfd;
	157	+extern int plumbseemailfd;
	158	+extern char *home;
	159	+extern char *outgoing;
	160	+extern char *mailboxdir;
	161	+extern char *user;
	162	+extern char deleted[];
	163	+extern int wctlfd;
	164	+extern int shortmenu;

acme/mail/src/html.6+0−0

Binary file not shown.

acme/mail/src/html.8+0−0

Binary file not shown.

acme/mail/src/html.c+75−0

@@ -0,0 +1,75 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include <ctype.h>
	6	+#include <plumb.h>
	7	+#include "dat.h"
	8	+
	9	+
	10	+char*
	11	+formathtml(char body, int np)
	12	+{
	13	+ int i, j, p[2], q[2];
	14	+ Exec *e;
	15	+ char buf[1024];
	16	+ Channel *sync;
	17	+
	18	+ e = emalloc(sizeof(struct Exec));
	19	+ if(pipe(p) < 0 \|\| pipe(q) < 0)
	20	+ error("can't create pipe: %r");
	21	+
	22	+ e->p[0] = p[0];
	23	+ e->p[1] = p[1];
	24	+ e->q[0] = q[0];
	25	+ e->q[1] = q[1];
	26	+ e->argv = emalloc(3sizeof(char));
	27	+ e->argv[0] = estrdup("htmlfmt");
	28	+ e->argv[1] = estrdup("-cutf-8");
	29	+ e->argv[2] = nil;
	30	+ e->prog = "/bin/htmlfmt";
	31	+ sync = chancreate(sizeof(int), 0);
	32	+ e->sync = sync;
	33	+ proccreate(execproc, e, EXECSTACK);
	34	+ recvul(sync);
	35	+ close(p[0]);
	36	+ close(q[1]);
	37	+
	38	+ if((i=write(p[1], body, np)) != np){
	39	+ fprint(2, "Mail: warning: htmlfmt failed: wrote %d of %d: %r\n", i, *np);
	40	+ close(p[1]);
	41	+ close(q[0]);
	42	+ return body;
	43	+ }
	44	+ close(p[1]);
	45	+
	46	+ free(body);
	47	+ body = nil;
	48	+ i = 0;
	49	+ for(;;){
	50	+ j = read(q[0], buf, sizeof buf);
	51	+ if(j <= 0)
	52	+ break;
	53	+ body = realloc(body, i+j+1);
	54	+ if(body == nil)
	55	+ error("realloc failed: %r");
	56	+ memmove(body+i, buf, j);
	57	+ i += j;
	58	+ body[i] = '\0';
	59	+ }
	60	+ close(q[0]);
	61	+
	62	+ *np = i;
	63	+ return body;
	64	+}
	65	+
	66	+char*
	67	+readbody(char type, char dir, int *np)
	68	+{
	69	+ char *body;
	70	+
	71	+ body = readfile(dir, "body", np);
	72	+ if(body != nil && strcmp(type, "text/html") == 0)
	73	+ return formathtml(body, np);
	74	+ return body;
	75	+}

acme/mail/src/mail.6+0−0

Binary file not shown.

acme/mail/src/mail.8+0−0

Binary file not shown.

acme/mail/src/mail.c+550−0

@@ -0,0 +1,550 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include <plumb.h>
	6	+#include <ctype.h>
	7	+#include "dat.h"
	8	+
	9	+char maildir = "/mail/fs/"; / mountpoint of mail file system */
	10	+char mailtermdir = "/mnt/term/mail/fs/"; / alternate mountpoint */
	11	+char mboxname = "mbox"; / mailboxdir/mboxname is mail spool file */
	12	+char mailboxdir = nil; / nil == /mail/box/$user */
	13	+char fsname; / filesystem for mailboxdir/mboxname is at maildir/fsname */
	14	+char *user;
	15	+char *outgoing;
	16	+
	17	+Window *wbox;
	18	+Message mbox;
	19	+Message replies;
	20	+char *home;
	21	+int plumbsendfd;
	22	+int plumbseemailfd;
	23	+int plumbshowmailfd;
	24	+int plumbsendmailfd;
	25	+Channel *cplumb;
	26	+Channel *cplumbshow;
	27	+Channel *cplumbsend;
	28	+int wctlfd;
	29	+void mainctl(void*);
	30	+void plumbproc(void*);
	31	+void plumbshowproc(void*);
	32	+void plumbsendproc(void*);
	33	+void plumbthread(void);
	34	+void plumbshowthread(void*);
	35	+void plumbsendthread(void*);
	36	+
	37	+int shortmenu;
	38	+
	39	+void
	40	+usage(void)
	41	+{
	42	+ fprint(2, "usage: Mail [-sS] [-o outgoing] [mailboxname [directoryname]]\n");
	43	+ threadexitsall("usage");
	44	+}
	45	+
	46	+void
	47	+removeupasfs(void)
	48	+{
	49	+ char buf[256];
	50	+
	51	+ if(strcmp(mboxname, "mbox") == 0)
	52	+ return;
	53	+ snprint(buf, sizeof buf, "close %s", mboxname);
	54	+ write(mbox.ctlfd, buf, strlen(buf));
	55	+}
	56	+
	57	+int
	58	+ismaildir(char *s)
	59	+{
	60	+ char buf[256];
	61	+ Dir *d;
	62	+ int ret;
	63	+
	64	+ snprint(buf, sizeof buf, "%s%s", maildir, s);
	65	+ d = dirstat(buf);
	66	+ if(d == nil)
	67	+ return 0;
	68	+ ret = d->qid.type & QTDIR;
	69	+ free(d);
	70	+ return ret;
	71	+}
	72	+
	73	+void
	74	+threadmain(int argc, char *argv[])
	75	+{
	76	+ char s, name;
	77	+ char err[ERRMAX], *cmd;
	78	+ int i, newdir;
	79	+ Fmt fmt;
	80	+
	81	+ doquote = needsrcquote;
	82	+ quotefmtinstall();
	83	+
	84	+ /* open these early so we won't miss notification of new mail messages while we read mbox */
	85	+ plumbsendfd = plumbopen("send", OWRITE\|OCEXEC);
	86	+ plumbseemailfd = plumbopen("seemail", OREAD\|OCEXEC);
	87	+ plumbshowmailfd = plumbopen("showmail", OREAD\|OCEXEC);
	88	+
	89	+ shortmenu = 0;
	90	+ ARGBEGIN{
	91	+ case 's':
	92	+ shortmenu = 1;
	93	+ break;
	94	+ case 'S':
	95	+ shortmenu = 2;
	96	+ break;
	97	+ case 'o':
	98	+ outgoing = EARGF(usage());
	99	+ break;
	100	+ case 'm':
	101	+ smprint(maildir, "%s/", EARGF(usage()));
	102	+ break;
	103	+ default:
	104	+ usage();
	105	+ }ARGEND
	106	+
	107	+ name = "mbox";
	108	+
	109	+ /* bind the terminal /mail/fs directory over the local one */
	110	+ if(access(maildir, 0)<0 && access(mailtermdir, 0)==0)
	111	+ bind(mailtermdir, maildir, MAFTER);
	112	+
	113	+ newdir = 1;
	114	+ if(argc > 0){
	115	+ i = strlen(argv[0]);
	116	+ if(argc>2 \|\| i==0)
	117	+ usage();
	118	+ /* see if the name is that of an existing /mail/fs directory */
	119	+ if(argc==1 && strchr(argv[0], '/')==0 && ismaildir(argv[0])){
	120	+ name = argv[0];
	121	+ mboxname = eappend(estrdup(maildir), "", name);
	122	+ newdir = 0;
	123	+ }else{
	124	+ if(argv[0][i-1] == '/')
	125	+ argv[0][i-1] = '\0';
	126	+ s = strrchr(argv[0], '/');
	127	+ if(s == nil)
	128	+ mboxname = estrdup(argv[0]);
	129	+ else{
	130	+ *s++ = '\0';
	131	+ if(*s == '\0')
	132	+ usage();
	133	+ mailboxdir = argv[0];
	134	+ mboxname = estrdup(s);
	135	+ }
	136	+ if(argc > 1)
	137	+ name = argv[1];
	138	+ else
	139	+ name = mboxname;
	140	+ }
	141	+ }
	142	+
	143	+ user = getenv("user");
	144	+ if(user == nil)
	145	+ user = "none";
	146	+ if(mailboxdir == nil)
	147	+ mailboxdir = estrstrdup("/mail/box/", user);
	148	+ if(outgoing == nil)
	149	+ outgoing = estrstrdup(mailboxdir, "/outgoing");
	150	+
	151	+ s = estrstrdup(maildir, "ctl");
	152	+ mbox.ctlfd = open(s, ORDWR\|OCEXEC);
	153	+ if(mbox.ctlfd < 0)
	154	+ error("can't open %s: %r", s);
	155	+
	156	+ fsname = estrdup(name);
	157	+ if(newdir && argc > 0){
	158	+ s = emalloc(5+strlen(mailboxdir)+strlen(mboxname)+strlen(name)+10+1);
	159	+ for(i=0; i<10; i++){
	160	+ sprint(s, "open %s/%s %s", mailboxdir, mboxname, fsname);
	161	+ if(write(mbox.ctlfd, s, strlen(s)) >= 0)
	162	+ break;
	163	+ err[0] = '\0';
	164	+ errstr(err, sizeof err);
	165	+ if(strstr(err, "mbox name in use") == nil)
	166	+ error("can't create directory %s for mail: %s", name, err);
	167	+ free(fsname);
	168	+ fsname = emalloc(strlen(name)+10);
	169	+ sprint(fsname, "%s-%d", name, i);
	170	+ }
	171	+ if(i == 10)
	172	+ error("can't open %s/%s: %r", mailboxdir, mboxname);
	173	+ free(s);
	174	+ }
	175	+
	176	+ s = estrstrdup(fsname, "/");
	177	+ mbox.name = estrstrdup(maildir, s);
	178	+ mbox.level= 0;
	179	+ readmbox(&mbox, maildir, s);
	180	+ home = getenv("home");
	181	+ if(home == nil)
	182	+ home = "/";
	183	+
	184	+ wbox = newwindow();
	185	+ winname(wbox, mbox.name);
	186	+ wintagwrite(wbox, "Put Mail Delmesg ", 3+1+4+1+7+1);
	187	+ threadcreate(mainctl, wbox, STACK);
	188	+
	189	+ fmtstrinit(&fmt);
	190	+ fmtprint(&fmt, "Mail");
	191	+ if(shortmenu)
	192	+ fmtprint(&fmt, " -%c", "sS"[shortmenu-1]);
	193	+ if(outgoing)
	194	+ fmtprint(&fmt, " -o %s", outgoing);
	195	+ fmtprint(&fmt, " %s", name);
	196	+ cmd = fmtstrflush(&fmt);
	197	+ if(cmd == nil)
	198	+ sysfatal("out of memory");
	199	+ winsetdump(wbox, "/acme/mail", cmd);
	200	+ mbox.w = wbox;
	201	+
	202	+ mesgmenu(wbox, &mbox);
	203	+ winclean(wbox);
	204	+
	205	+ wctlfd = open("/dev/wctl", OWRITE\|OCEXEC); /* for acme window */
	206	+ cplumb = chancreate(sizeof(Plumbmsg*), 0);
	207	+ cplumbshow = chancreate(sizeof(Plumbmsg*), 0);
	208	+ if(strcmp(name, "mbox") == 0){
	209	+ /*
	210	+ * Avoid creating multiple windows to send mail by only accepting
	211	+ * sendmail plumb messages if we're reading the main mailbox.
	212	+ */
	213	+ plumbsendmailfd = plumbopen("sendmail", OREAD\|OCEXEC);
	214	+ cplumbsend = chancreate(sizeof(Plumbmsg*), 0);
	215	+ proccreate(plumbsendproc, nil, STACK);
	216	+ threadcreate(plumbsendthread, nil, STACK);
	217	+ }
	218	+ /* start plumb reader as separate proc ... */
	219	+ proccreate(plumbproc, nil, STACK);
	220	+ proccreate(plumbshowproc, nil, STACK);
	221	+ threadcreate(plumbshowthread, nil, STACK);
	222	+ /* ... and use this thread to read the messages */
	223	+ plumbthread();
	224	+}
	225	+
	226	+void
	227	+plumbproc(void*)
	228	+{
	229	+ Plumbmsg *m;
	230	+
	231	+ threadsetname("plumbproc");
	232	+ for(;;){
	233	+ m = plumbrecv(plumbseemailfd);
	234	+ sendp(cplumb, m);
	235	+ if(m == nil)
	236	+ threadexits(nil);
	237	+ }
	238	+}
	239	+
	240	+void
	241	+plumbshowproc(void*)
	242	+{
	243	+ Plumbmsg *m;
	244	+
	245	+ threadsetname("plumbshowproc");
	246	+ for(;;){
	247	+ m = plumbrecv(plumbshowmailfd);
	248	+ sendp(cplumbshow, m);
	249	+ if(m == nil)
	250	+ threadexits(nil);
	251	+ }
	252	+}
	253	+
	254	+void
	255	+plumbsendproc(void*)
	256	+{
	257	+ Plumbmsg *m;
	258	+
	259	+ threadsetname("plumbsendproc");
	260	+ for(;;){
	261	+ m = plumbrecv(plumbsendmailfd);
	262	+ sendp(cplumbsend, m);
	263	+ if(m == nil)
	264	+ threadexits(nil);
	265	+ }
	266	+}
	267	+
	268	+void
	269	+newmesg(char name, char digest)
	270	+{
	271	+ Dir *d;
	272	+
	273	+ if(strncmp(name, mbox.name, strlen(mbox.name)) != 0)
	274	+ return; /* message is about another mailbox */
	275	+ if(mesglookupfile(&mbox, name, digest) != nil)
	276	+ return;
	277	+ d = dirstat(name);
	278	+ if(d == nil)
	279	+ return;
	280	+ if(mesgadd(&mbox, mbox.name, d, digest))
	281	+ mesgmenunew(wbox, &mbox);
	282	+ free(d);
	283	+}
	284	+
	285	+void
	286	+showmesg(char name, char digest)
	287	+{
	288	+ char *n;
	289	+
	290	+ if(strncmp(name, mbox.name, strlen(mbox.name)) != 0)
	291	+ return; /* message is about another mailbox */
	292	+ n = estrdup(name+strlen(mbox.name));
	293	+ if(n[strlen(n)-1] != '/')
	294	+ n = egrow(n, "/", nil);
	295	+ mesgopen(&mbox, mbox.name, name+strlen(mbox.name), nil, 1, digest);
	296	+ free(n);
	297	+}
	298	+
	299	+void
	300	+delmesg(char name, char digest, int dodel)
	301	+{
	302	+ Message *m;
	303	+
	304	+ m = mesglookupfile(&mbox, name, digest);
	305	+ if(m != nil){
	306	+ mesgmenumarkdel(wbox, &mbox, m, 0);
	307	+ if(dodel)
	308	+ m->writebackdel = 1;
	309	+ }
	310	+}
	311	+
	312	+void
	313	+plumbthread(void)
	314	+{
	315	+ Plumbmsg *m;
	316	+ Plumbattr *a;
	317	+ char type, digest;
	318	+
	319	+ threadsetname("plumbthread");
	320	+ while((m = recvp(cplumb)) != nil){
	321	+ a = m->attr;
	322	+ digest = plumblookup(a, "digest");
	323	+ type = plumblookup(a, "mailtype");
	324	+ if(type == nil)
	325	+ fprint(2, "Mail: plumb message with no mailtype attribute\n");
	326	+ else if(strcmp(type, "new") == 0)
	327	+ newmesg(m->data, digest);
	328	+ else if(strcmp(type, "delete") == 0)
	329	+ delmesg(m->data, digest, 0);
	330	+ else
	331	+ fprint(2, "Mail: unknown plumb attribute %s\n", type);
	332	+ plumbfree(m);
	333	+ }
	334	+ threadexits(nil);
	335	+}
	336	+
	337	+void
	338	+plumbshowthread(void*)
	339	+{
	340	+ Plumbmsg *m;
	341	+
	342	+ threadsetname("plumbshowthread");
	343	+ while((m = recvp(cplumbshow)) != nil){
	344	+ showmesg(m->data, plumblookup(m->attr, "digest"));
	345	+ plumbfree(m);
	346	+ }
	347	+ threadexits(nil);
	348	+}
	349	+
	350	+void
	351	+plumbsendthread(void*)
	352	+{
	353	+ Plumbmsg *m;
	354	+
	355	+ threadsetname("plumbsendthread");
	356	+ while((m = recvp(cplumbsend)) != nil){
	357	+ mkreply(nil, "Mail", m->data, m->attr, nil);
	358	+ plumbfree(m);
	359	+ }
	360	+ threadexits(nil);
	361	+}
	362	+
	363	+int
	364	+mboxcommand(Window w, char s)
	365	+{
	366	+ char args[10], *targs;
	367	+ Message m, next;
	368	+ int ok, nargs, i, j;
	369	+ char buf[128];
	370	+
	371	+ nargs = tokenize(s, args, nelem(args));
	372	+ if(nargs == 0)
	373	+ return 0;
	374	+ if(strcmp(args[0], "Mail") == 0){
	375	+ if(nargs == 1)
	376	+ mkreply(nil, "Mail", "", nil, nil);
	377	+ else
	378	+ mkreply(nil, "Mail", args[1], nil, nil);
	379	+ return 1;
	380	+ }
	381	+ if(strcmp(s, "Del") == 0){
	382	+ if(mbox.dirty){
	383	+ mbox.dirty = 0;
	384	+ fprint(2, "mail: mailbox not written\n");
	385	+ return 1;
	386	+ }
	387	+ ok = 1;
	388	+ for(m=mbox.head; m!=nil; m=next){
	389	+ next = m->next;
	390	+ if(m->w){
	391	+ if(windel(m->w, 0))
	392	+ m->w = nil;
	393	+ else
	394	+ ok = 0;
	395	+ }
	396	+ }
	397	+ for(m=replies.head; m!=nil; m=next){
	398	+ next = m->next;
	399	+ if(m->w){
	400	+ if(windel(m->w, 0))
	401	+ m->w = nil;
	402	+ else
	403	+ ok = 0;
	404	+ }
	405	+ }
	406	+ if(ok){
	407	+ windel(w, 1);
	408	+ removeupasfs();
	409	+ threadexitsall(nil);
	410	+ }
	411	+ return 1;
	412	+ }
	413	+ if(strcmp(s, "Put") == 0){
	414	+ rewritembox(wbox, &mbox);
	415	+ return 1;
	416	+ }
	417	+ if(strcmp(s, "Delmesg") == 0){
	418	+ if(nargs > 1){
	419	+ for(i=1; i<nargs; i++){
	420	+ snprint(buf, sizeof buf, "%s%s", mbox.name, args[i]);
	421	+ delmesg(buf, nil, 1);
	422	+ }
	423	+ }
	424	+ s = winselection(w);
	425	+ if(s == nil)
	426	+ return 1;
	427	+ nargs = 1;
	428	+ for(i=0; s[i]; i++)
	429	+ if(s[i] == '\n')
	430	+ nargs++;
	431	+ targs = emalloc(nargssizeof(char)); /* could be too many for a local array */
	432	+ nargs = getfields(s, targs, nargs, 1, "\n");
	433	+ for(i=0; i<nargs; i++){
	434	+ if(!isdigit(targs[i][0]))
	435	+ continue;
	436	+ j = atoi(targs[i]); /* easy way to parse the number! */
	437	+ if(j == 0)
	438	+ continue;
	439	+ snprint(buf, sizeof buf, "%s%d", mbox.name, j);
	440	+ delmesg(buf, nil, 1);
	441	+ }
	442	+ free(s);
	443	+ free(targs);
	444	+ return 1;
	445	+ }
	446	+ return 0;
	447	+}
	448	+
	449	+void
	450	+mainctl(void *v)
	451	+{
	452	+ Window *w;
	453	+ Event e, e2, eq, ea;
	454	+ int na, nopen;
	455	+ char s, t, *buf;
	456	+
	457	+ w = v;
	458	+ proccreate(wineventproc, w, STACK);
	459	+
	460	+ for(;;){
	461	+ e = recvp(w->cevent);
	462	+ switch(e->c1){
	463	+ default:
	464	+ Unknown:
	465	+ print("unknown message %c%c\n", e->c1, e->c2);
	466	+ break;
	467	+
	468	+ case 'E': /* write to body; can't affect us */
	469	+ break;
	470	+
	471	+ case 'F': /* generated by our actions; ignore */
	472	+ break;
	473	+
	474	+ case 'K': /* type away; we don't care */
	475	+ break;
	476	+
	477	+ case 'M':
	478	+ switch(e->c2){
	479	+ case 'x':
	480	+ case 'X':
	481	+ ea = nil;
	482	+ e2 = nil;
	483	+ if(e->flag & 2)
	484	+ e2 = recvp(w->cevent);
	485	+ if(e->flag & 8){
	486	+ ea = recvp(w->cevent);
	487	+ na = ea->nb;
	488	+ recvp(w->cevent);
	489	+ }else
	490	+ na = 0;
	491	+ s = e->b;
	492	+ /* if it's a known command, do it */
	493	+ if((e->flag&2) && e->nb==0)
	494	+ s = e2->b;
	495	+ if(na){
	496	+ t = emalloc(strlen(s)+1+na+1);
	497	+ sprint(t, "%s %s", s, ea->b);
	498	+ s = t;
	499	+ }
	500	+ /* if it's a long message, it can't be for us anyway */
	501	+ if(!mboxcommand(w, s)) /* send it back */
	502	+ winwriteevent(w, e);
	503	+ if(na)
	504	+ free(s);
	505	+ break;
	506	+
	507	+ case 'l':
	508	+ case 'L':
	509	+ buf = nil;
	510	+ eq = e;
	511	+ if(e->flag & 2){
	512	+ e2 = recvp(w->cevent);
	513	+ eq = e2;
	514	+ }
	515	+ s = eq->b;
	516	+ if(eq->q1>eq->q0 && eq->nb==0){
	517	+ buf = emalloc((eq->q1-eq->q0)*UTFmax+1);
	518	+ winread(w, eq->q0, eq->q1, buf);
	519	+ s = buf;
	520	+ }
	521	+ nopen = 0;
	522	+ do{
	523	+ /* skip 'deleted' string if present' */
	524	+ if(strncmp(s, deleted, strlen(deleted)) == 0)
	525	+ s += strlen(deleted);
	526	+ /* skip mail box name if present */
	527	+ if(strncmp(s, mbox.name, strlen(mbox.name)) == 0)
	528	+ s += strlen(mbox.name);
	529	+ nopen += mesgopen(&mbox, mbox.name, s, nil, 0, nil);
	530	+ while(s!='\0' && s++!='\n')
	531	+ ;
	532	+ }while(*s);
	533	+ if(nopen == 0) /* send it back */
	534	+ winwriteevent(w, e);
	535	+ free(buf);
	536	+ break;
	537	+
	538	+ case 'I': /* modify away; we don't care */
	539	+ case 'D':
	540	+ case 'd':
	541	+ case 'i':
	542	+ break;
	543	+
	544	+ default:
	545	+ goto Unknown;
	546	+ }
	547	+ }
	548	+ }
	549	+}
	550	+

acme/mail/src/mesg.6+0−0

Binary file not shown.

acme/mail/src/mesg.8+0−0

Binary file not shown.

acme/mail/src/mesg.c+1322−0

@@ -0,0 +1,1322 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include <ctype.h>
	6	+#include <plumb.h>
	7	+#include "dat.h"
	8	+
	9	+enum
	10	+{
	11	+ DIRCHUNK = 32*sizeof(Dir)
	12	+};
	13	+
	14	+char regexchars[] = "\\/[].+?()*^$";
	15	+char deleted[] = "(deleted)-";
	16	+char deletedrx[] = "\$deleted\$-";
	17	+char deletedrx01[] = "(\$deleted\$-)?";
	18	+char deletedaddr[] = "-#0;/^\$deleted\$-/";
	19	+
	20	+struct{
	21	+ char *type;
	22	+ char *port;
	23	+ char *suffix;
	24	+} ports[] = {
	25	+ "text/", "edit", ".txt",
	26	+ /* text must be first for plumbport() */
	27	+ "image/gif", "image", ".gif",
	28	+ "image/jpeg", "image", ".jpg",
	29	+ "image/jpeg", "image", ".jpeg",
	30	+ "image/png", "image", ".png",
	31	+ "image/tiff", "image", ".tif",
	32	+ "application/postscript", "postscript", ".ps",
	33	+ "application/pdf", "postscript", ".pdf",
	34	+ "application/msword", "msword", ".doc",
	35	+ "application/rtf", "msword", ".rtf",
	36	+ "audio/x-wav", "wav", ".wav",
	37	+ nil, nil
	38	+};
	39	+
	40	+char *goodtypes[] = {
	41	+ "text",
	42	+ "text/plain",
	43	+ "message/rfc822",
	44	+ "text/richtext",
	45	+ "text/tab-separated-values",
	46	+ "application/octet-stream",
	47	+ nil,
	48	+};
	49	+
	50	+struct{
	51	+ char *type;
	52	+ char *ext;
	53	+} exts[] = {
	54	+ "image/gif", ".gif",
	55	+ "image/jpeg", ".jpg",
	56	+ nil, nil
	57	+};
	58	+
	59	+char *okheaders[] =
	60	+{
	61	+ "From:",
	62	+ "Date:",
	63	+ "To:",
	64	+ "CC:",
	65	+ "Subject:",
	66	+ nil
	67	+};
	68	+
	69	+char *extraheaders[] =
	70	+{
	71	+ "Resent-From:",
	72	+ "Resent-To:",
	73	+ "Sort:",
	74	+ nil,
	75	+};
	76	+
	77	+char*
	78	+line(char data, char *pp)
	79	+{
	80	+ char p, q;
	81	+
	82	+ for(p=data; p!='\0' && p!='\n'; p++)
	83	+ ;
	84	+ if(*p == '\n')
	85	+ *pp = p+1;
	86	+ else
	87	+ *pp = p;
	88	+ q = emalloc(p-data + 1);
	89	+ memmove(q, data, p-data);
	90	+ return q;
	91	+}
	92	+
	93	+void
	94	+scanheaders(Message m, char dir)
	95	+{
	96	+ char s, t, u, f;
	97	+
	98	+ s = f = readfile(dir, "header", nil);
	99	+ if(s != nil)
	100	+ while(*s){
	101	+ t = line(s, &s);
	102	+ if(strncmp(t, "From: ", 6) == 0){
	103	+ m->fromcolon = estrdup(t+6);
	104	+ /* remove all quotes; they're ugly and irregular */
	105	+ for(u=m->fromcolon; *u; u++)
	106	+ if(*u == '"')
	107	+ memmove(u, u+1, strlen(u));
	108	+ }
	109	+ if(strncmp(t, "Subject: ", 9) == 0)
	110	+ m->subject = estrdup(t+9);
	111	+ free(t);
	112	+ }
	113	+ if(m->fromcolon == nil)
	114	+ m->fromcolon = estrdup(m->from);
	115	+ free(f);
	116	+}
	117	+
	118	+int
	119	+loadinfo(Message m, char dir)
	120	+{
	121	+ int n;
	122	+ char data, p, *s;
	123	+
	124	+ data = readfile(dir, "info", &n);
	125	+ if(data == nil)
	126	+ return 0;
	127	+ m->from = line(data, &p);
	128	+ scanheaders(m, dir); /* depends on m->from being set */
	129	+ m->to = line(p, &p);
	130	+ m->cc = line(p, &p);
	131	+ m->replyto = line(p, &p);
	132	+ m->date = line(p, &p);
	133	+ s = line(p, &p);
	134	+ if(m->subject == nil)
	135	+ m->subject = s;
	136	+ else
	137	+ free(s);
	138	+ m->type = line(p, &p);
	139	+ m->disposition = line(p, &p);
	140	+ m->filename = line(p, &p);
	141	+ m->digest = line(p, &p);
	142	+ free(data);
	143	+ return 1;
	144	+}
	145	+
	146	+int
	147	+isnumeric(char *s)
	148	+{
	149	+ while(*s){
	150	+ if(!isdigit(*s))
	151	+ return 0;
	152	+ s++;
	153	+ }
	154	+ return 1;
	155	+}
	156	+
	157	+Dir*
	158	+loaddir(char name, int np)
	159	+{
	160	+ int fd;
	161	+ Dir *dp;
	162	+
	163	+ fd = open(name, OREAD);
	164	+ if(fd < 0)
	165	+ return nil;
	166	+ *np = dirreadall(fd, &dp);
	167	+ close(fd);
	168	+ return dp;
	169	+}
	170	+
	171	+void
	172	+readmbox(Message mbox, char dir, char *subdir)
	173	+{
	174	+ char *name;
	175	+ Dir d, dirp;
	176	+ int i, n;
	177	+
	178	+ name = estrstrdup(dir, subdir);
	179	+ dirp = loaddir(name, &n);
	180	+ mbox->recursed = 1;
	181	+ if(dirp)
	182	+ for(i=0; i<n; i++){
	183	+ d = &dirp[i];
	184	+ if(isnumeric(d->name))
	185	+ mesgadd(mbox, name, d, nil);
	186	+ }
	187	+ free(dirp);
	188	+ free(name);
	189	+}
	190	+
	191	+/* add message to box, in increasing numerical order */
	192	+int
	193	+mesgadd(Message mbox, char dir, Dir d, char digest)
	194	+{
	195	+ Message *m;
	196	+ char *name;
	197	+ int loaded;
	198	+
	199	+ m = emalloc(sizeof(Message));
	200	+ m->name = estrstrdup(d->name, "/");
	201	+ m->next = nil;
	202	+ m->prev = mbox->tail;
	203	+ m->level= mbox->level+1;
	204	+ m->recursed = 0;
	205	+ name = estrstrdup(dir, m->name);
	206	+ loaded = loadinfo(m, name);
	207	+ free(name);
	208	+ /* if two upas/fs are running, we can get misled, so check digest before accepting message */
	209	+ if(loaded==0 \|\| (digest!=nil && m->digest!=nil && strcmp(digest, m->digest)!=0)){
	210	+ mesgfreeparts(m);
	211	+ free(m);
	212	+ return 0;
	213	+ }
	214	+ if(mbox->tail != nil)
	215	+ mbox->tail->next = m;
	216	+ mbox->tail = m;
	217	+ if(mbox->head == nil)
	218	+ mbox->head = m;
	219	+
	220	+ if (m->level != 1){
	221	+ m->recursed = 1;
	222	+ readmbox(m, dir, m->name);
	223	+ }
	224	+ return 1;
	225	+}
	226	+
	227	+int
	228	+thisyear(char *year)
	229	+{
	230	+ static char now[10];
	231	+ char *s;
	232	+
	233	+ if(now[0] == '\0'){
	234	+ s = ctime(time(nil));
	235	+ strcpy(now, s+24);
	236	+ }
	237	+ return strncmp(year, now, 4) == 0;
	238	+}
	239	+
	240	+char*
	241	+stripdate(char *as)
	242	+{
	243	+ int n;
	244	+ char s, fld[10];
	245	+
	246	+ as = estrdup(as);
	247	+ s = estrdup(as);
	248	+ n = tokenize(s, fld, 10);
	249	+ if(n > 5){
	250	+ sprint(as, "%.3s ", fld[0]); /* day */
	251	+ /* some dates have 19 Apr, some Apr 19 */
	252	+ if(strlen(fld[1])<4 && isnumeric(fld[1]))
	253	+ sprint(as+strlen(as), "%.3s %.3s ", fld[1], fld[2]); /* date, month */
	254	+ else
	255	+ sprint(as+strlen(as), "%.3s %.3s ", fld[2], fld[1]); /* date, month */
	256	+ /* do we use time or year? depends on whether year matches this one */
	257	+ if(thisyear(fld[5])){
	258	+ if(strchr(fld[3], ':') != nil)
	259	+ sprint(as+strlen(as), "%.5s ", fld[3]); /* time */
	260	+ else if(strchr(fld[4], ':') != nil)
	261	+ sprint(as+strlen(as), "%.5s ", fld[4]); /* time */
	262	+ }else
	263	+ sprint(as+strlen(as), "%.4s ", fld[5]); /* year */
	264	+ }
	265	+ free(s);
	266	+ return as;
	267	+}
	268	+
	269	+char*
	270	+readfile(char dir, char name, int *np)
	271	+{
	272	+ char file, data;
	273	+ int fd, len;
	274	+ Dir *d;
	275	+
	276	+ if(np != nil)
	277	+ *np = 0;
	278	+ file = estrstrdup(dir, name);
	279	+ fd = open(file, OREAD);
	280	+ if(fd < 0)
	281	+ return nil;
	282	+ d = dirfstat(fd);
	283	+ free(file);
	284	+ len = 0;
	285	+ if(d != nil)
	286	+ len = d->length;
	287	+ free(d);
	288	+ data = emalloc(len+1);
	289	+ read(fd, data, len);
	290	+ close(fd);
	291	+ if(np != nil)
	292	+ *np = len;
	293	+ return data;
	294	+}
	295	+
	296	+char*
	297	+info(Message *m, int ind, int ogf)
	298	+{
	299	+ char *i;
	300	+ int j, len, lens;
	301	+ char *p;
	302	+ char fmt[80], s[80];
	303	+
	304	+ if (ogf)
	305	+ p=m->to;
	306	+ else
	307	+ p=m->fromcolon;
	308	+
	309	+ if(ind==0 && shortmenu){
	310	+ len = 30;
	311	+ lens = 30;
	312	+ if(shortmenu > 1){
	313	+ len = 10;
	314	+ lens = 25;
	315	+ }
	316	+ if(ind==0 && m->subject[0]=='\0'){
	317	+ snprint(fmt, sizeof fmt, " %%-%d.%ds", len, len);
	318	+ snprint(s, sizeof s, fmt, p);
	319	+ }else{
	320	+ snprint(fmt, sizeof fmt, " %%-%d.%ds %%-%d.%ds", len, len, lens, lens);
	321	+ snprint(s, sizeof s, fmt, p, m->subject);
	322	+ }
	323	+ i = estrdup(s);
	324	+
	325	+ return i;
	326	+ }
	327	+
	328	+ i = estrdup("");
	329	+ i = eappend(i, "\t", p);
	330	+ i = egrow(i, "\t", stripdate(m->date));
	331	+ if(ind == 0){
	332	+ if(strcmp(m->type, "text")!=0 && strncmp(m->type, "text/", 5)!=0 &&
	333	+ strncmp(m->type, "multipart/", 10)!=0)
	334	+ i = egrow(i, "\t(", estrstrdup(m->type, ")"));
	335	+ }else if(strncmp(m->type, "multipart/", 10) != 0)
	336	+ i = egrow(i, "\t(", estrstrdup(m->type, ")"));
	337	+ if(m->subject[0] != '\0'){
	338	+ i = eappend(i, "\n", nil);
	339	+ for(j=0; j<ind; j++)
	340	+ i = eappend(i, "\t", nil);
	341	+ i = eappend(i, "\t", m->subject);
	342	+ }
	343	+ return i;
	344	+}
	345	+
	346	+void
	347	+mesgmenu0(Window w, Message mbox, char realdir, char dir, int ind, Biobuf *fd, int onlyone, int dotail)
	348	+{
	349	+ int i;
	350	+ Message *m;
	351	+ char name, tmp;
	352	+ int ogf=0;
	353	+
	354	+ if(strstr(realdir, "outgoing") != nil)
	355	+ ogf=1;
	356	+
	357	+ /* show mail box in reverse order, pieces in forward order */
	358	+ if(ind > 0)
	359	+ m = mbox->head;
	360	+ else
	361	+ m = mbox->tail;
	362	+ while(m != nil){
	363	+ for(i=0; i<ind; i++)
	364	+ Bprint(fd, "\t");
	365	+ if(ind != 0)
	366	+ Bprint(fd, " ");
	367	+ name = estrstrdup(dir, m->name);
	368	+ tmp = info(m, ind, ogf);
	369	+ Bprint(fd, "%s%s\n", name, tmp);
	370	+ free(tmp);
	371	+ if(dotail && m->tail)
	372	+ mesgmenu0(w, m, realdir, name, ind+1, fd, 0, dotail);
	373	+ free(name);
	374	+ if(ind)
	375	+ m = m->next;
	376	+ else
	377	+ m = m->prev;
	378	+ if(onlyone)
	379	+ m = nil;
	380	+ }
	381	+}
	382	+
	383	+void
	384	+mesgmenu(Window w, Message mbox)
	385	+{
	386	+ winopenbody(w, OWRITE);
	387	+ mesgmenu0(w, mbox, mbox->name, "", 0, w->body, 0, !shortmenu);
	388	+ winclosebody(w);
	389	+}
	390	+
	391	+/* one new message has arrived, as mbox->tail */
	392	+void
	393	+mesgmenunew(Window w, Message mbox)
	394	+{
	395	+ Biobuf *b;
	396	+
	397	+ winselect(w, "0", 0);
	398	+ w->data = winopenfile(w, "data");
	399	+ b = emalloc(sizeof(Biobuf));
	400	+ Binit(b, w->data, OWRITE);
	401	+ mesgmenu0(w, mbox, mbox->name, "", 0, b, 1, !shortmenu);
	402	+ Bterm(b);
	403	+ free(b);
	404	+ if(!mbox->dirty)
	405	+ winclean(w);
	406	+ /* select tag line plus following indented lines, but not final newline (it's distinctive) */
	407	+ winselect(w, "0/.\\n((\t.\\n)\t.)?/", 1);
	408	+ close(w->addr);
	409	+ close(w->data);
	410	+ w->addr = -1;
	411	+ w->data = -1;
	412	+}
	413	+
	414	+char*
	415	+name2regexp(char prefix, char s)
	416	+{
	417	+ char buf, p, *q;
	418	+
	419	+ buf = emalloc(strlen(prefix)+2strlen(s)+50); / leave room to append more */
	420	+ p = buf;
	421	+ *p++ = '0';
	422	+ *p++ = '/';
	423	+ *p++ = '^';
	424	+ strcpy(p, prefix);
	425	+ p += strlen(prefix);
	426	+ for(q=s; *q!='\0'; q++){
	427	+ if(strchr(regexchars, *q) != nil)
	428	+ *p++ = '\\';
	429	+ p++ = q;
	430	+ }
	431	+ *p++ = '/';
	432	+ *p = '\0';
	433	+ return buf;
	434	+}
	435	+
	436	+void
	437	+mesgmenumarkdel(Window w, Message mbox, Message *m, int writeback)
	438	+{
	439	+ char *buf;
	440	+
	441	+
	442	+ if(m->deleted)
	443	+ return;
	444	+ m->writebackdel = writeback;
	445	+ if(w->data < 0)
	446	+ w->data = winopenfile(w, "data");
	447	+ buf = name2regexp("", m->name);
	448	+ strcat(buf, "-#0");
	449	+ if(winselect(w, buf, 1))
	450	+ write(w->data, deleted, 10);
	451	+ free(buf);
	452	+ close(w->data);
	453	+ close(w->addr);
	454	+ w->addr = w->data = -1;
	455	+ mbox->dirty = 1;
	456	+ m->deleted = 1;
	457	+}
	458	+
	459	+void
	460	+mesgmenumarkundel(Window w, Message, Message *m)
	461	+{
	462	+ char *buf;
	463	+
	464	+ if(m->deleted == 0)
	465	+ return;
	466	+ if(w->data < 0)
	467	+ w->data = winopenfile(w, "data");
	468	+ buf = name2regexp(deletedrx, m->name);
	469	+ if(winselect(w, buf, 1))
	470	+ if(winsetaddr(w, deletedaddr, 1))
	471	+ write(w->data, "", 0);
	472	+ free(buf);
	473	+ close(w->data);
	474	+ close(w->addr);
	475	+ w->addr = w->data = -1;
	476	+ m->deleted = 0;
	477	+}
	478	+
	479	+void
	480	+mesgmenudel(Window w, Message mbox, Message *m)
	481	+{
	482	+ char *buf;
	483	+
	484	+ if(w->data < 0)
	485	+ w->data = winopenfile(w, "data");
	486	+ buf = name2regexp(deletedrx, m->name);
	487	+ if(winsetaddr(w, buf, 1) && winsetaddr(w, ".,./.\\n(\t.\\n)*/", 1))
	488	+ write(w->data, "", 0);
	489	+ free(buf);
	490	+ close(w->data);
	491	+ close(w->addr);
	492	+ w->addr = w->data = -1;
	493	+ mbox->dirty = 1;
	494	+ m->deleted = 1;
	495	+}
	496	+
	497	+void
	498	+mesgmenumark(Window w, char which, char *mark)
	499	+{
	500	+ char *buf;
	501	+
	502	+ if(w->data < 0)
	503	+ w->data = winopenfile(w, "data");
	504	+ buf = name2regexp(deletedrx01, which);
	505	+ if(winsetaddr(w, buf, 1) && winsetaddr(w, "+0-#1", 1)) /* go to end of line */
	506	+ write(w->data, mark, strlen(mark));
	507	+ free(buf);
	508	+ close(w->data);
	509	+ close(w->addr);
	510	+ w->addr = w->data = -1;
	511	+ if(!mbox.dirty)
	512	+ winclean(w);
	513	+}
	514	+
	515	+void
	516	+mesgfreeparts(Message *m)
	517	+{
	518	+ free(m->name);
	519	+ free(m->replyname);
	520	+ free(m->fromcolon);
	521	+ free(m->from);
	522	+ free(m->to);
	523	+ free(m->cc);
	524	+ free(m->replyto);
	525	+ free(m->date);
	526	+ free(m->subject);
	527	+ free(m->type);
	528	+ free(m->disposition);
	529	+ free(m->filename);
	530	+ free(m->digest);
	531	+}
	532	+
	533	+void
	534	+mesgdel(Message mbox, Message m)
	535	+{
	536	+ Message n, next;
	537	+
	538	+ if(m->opened)
	539	+ error("internal error: deleted message still open in mesgdel");
	540	+ /* delete subparts */
	541	+ for(n=m->head; n!=nil; n=next){
	542	+ next = n->next;
	543	+ mesgdel(m, n);
	544	+ }
	545	+ /* remove this message from list */
	546	+ if(m->next)
	547	+ m->next->prev = m->prev;
	548	+ else
	549	+ mbox->tail = m->prev;
	550	+ if(m->prev)
	551	+ m->prev->next = m->next;
	552	+ else
	553	+ mbox->head = m->next;
	554	+
	555	+ mesgfreeparts(m);
	556	+}
	557	+
	558	+int
	559	+mesgsave(Message m, char s)
	560	+{
	561	+ int ofd, n, k, ret;
	562	+ char t, raw, unixheader, all;
	563	+
	564	+ t = estrstrdup(mbox.name, m->name);
	565	+ raw = readfile(t, "raw", &n);
	566	+ unixheader = readfile(t, "unixheader", &k);
	567	+ if(raw==nil \|\| unixheader==nil){
	568	+ fprint(2, "Mail: can't read %s: %r\n", t);
	569	+ free(t);
	570	+ return 0;
	571	+ }
	572	+ free(t);
	573	+
	574	+ all = emalloc(n+k+1);
	575	+ memmove(all, unixheader, k);
	576	+ memmove(all+k, raw, n);
	577	+ memmove(all+k+n, "\n", 1);
	578	+ n = k+n+1;
	579	+ free(unixheader);
	580	+ free(raw);
	581	+ ret = 1;
	582	+ s = estrdup(s);
	583	+ if(s[0] != '/')
	584	+ s = egrow(estrdup(mailboxdir), "/", s);
	585	+ ofd = open(s, OWRITE);
	586	+ if(ofd < 0){
	587	+ fprint(2, "Mail: can't open %s: %r\n", s);
	588	+ ret = 0;
	589	+ }else if(seek(ofd, 0LL, 2)<0 \|\| write(ofd, all, n)!=n){
	590	+ fprint(2, "Mail: save failed: can't write %s: %r\n", s);
	591	+ ret = 0;
	592	+ }
	593	+ free(all);
	594	+ close(ofd);
	595	+ free(s);
	596	+ return ret;
	597	+}
	598	+
	599	+int
	600	+mesgcommand(Message m, char cmd)
	601	+{
	602	+ char *s;
	603	+ char *args[10];
	604	+ int ok, ret, nargs;
	605	+
	606	+ s = cmd;
	607	+ ret = 1;
	608	+ nargs = tokenize(s, args, nelem(args));
	609	+ if(nargs == 0)
	610	+ return 0;
	611	+ if(strcmp(args[0], "Post") == 0){
	612	+ mesgsend(m);
	613	+ goto Return;
	614	+ }
	615	+ if(strncmp(args[0], "Save", 4) == 0){
	616	+ if(m->isreply)
	617	+ goto Return;
	618	+ s = estrdup("\t[saved");
	619	+ if(nargs==1 \|\| strcmp(args[1], "")==0){
	620	+ ok = mesgsave(m, "stored");
	621	+ }else{
	622	+ ok = mesgsave(m, args[1]);
	623	+ s = eappend(s, " ", args[1]);
	624	+ }
	625	+ if(ok){
	626	+ s = egrow(s, "]", nil);
	627	+ mesgmenumark(mbox.w, m->name, s);
	628	+ }
	629	+ free(s);
	630	+ goto Return;
	631	+ }
	632	+ if(strcmp(args[0], "Reply")==0){
	633	+ if(nargs>=2 && strcmp(args[1], "all")==0)
	634	+ mkreply(m, "Replyall", nil, nil, nil);
	635	+ else
	636	+ mkreply(m, "Reply", nil, nil, nil);
	637	+ goto Return;
	638	+ }
	639	+ if(strcmp(args[0], "Q") == 0){
	640	+ s = winselection(m->w); /* will be freed by mkreply */
	641	+ if(nargs>=3 && strcmp(args[1], "Reply")==0 && strcmp(args[2], "all")==0)
	642	+ mkreply(m, "QReplyall", nil, nil, s);
	643	+ else
	644	+ mkreply(m, "QReply", nil, nil, s);
	645	+ goto Return;
	646	+ }
	647	+ if(strcmp(args[0], "Del") == 0){
	648	+ if(windel(m->w, 0)){
	649	+ chanfree(m->w->cevent);
	650	+ free(m->w);
	651	+ m->w = nil;
	652	+ if(m->isreply)
	653	+ delreply(m);
	654	+ else{
	655	+ m->opened = 0;
	656	+ m->tagposted = 0;
	657	+ }
	658	+ free(cmd);
	659	+ threadexits(nil);
	660	+ }
	661	+ goto Return;
	662	+ }
	663	+ if(strcmp(args[0], "Delmesg") == 0){
	664	+ if(!m->isreply){
	665	+ mesgmenumarkdel(wbox, &mbox, m, 1);
	666	+ free(cmd); /* mesgcommand might not return */
	667	+ mesgcommand(m, estrdup("Del"));
	668	+ return 1;
	669	+ }
	670	+ goto Return;
	671	+ }
	672	+ if(strcmp(args[0], "UnDelmesg") == 0){
	673	+ if(!m->isreply && m->deleted)
	674	+ mesgmenumarkundel(wbox, &mbox, m);
	675	+ goto Return;
	676	+ }
	677	+// if(strcmp(args[0], "Headers") == 0){
	678	+// m->showheaders();
	679	+// return True;
	680	+// }
	681	+
	682	+ ret = 0;
	683	+
	684	+ Return:
	685	+ free(cmd);
	686	+ return ret;
	687	+}
	688	+
	689	+void
	690	+mesgtagpost(Message *m)
	691	+{
	692	+ if(m->tagposted)
	693	+ return;
	694	+ wintagwrite(m->w, " Post", 5);
	695	+ m->tagposted = 1;
	696	+}
	697	+
	698	+/* need to expand selection more than default word */
	699	+#pragma varargck argpos eval 2
	700	+
	701	+long
	702	+eval(Window w, char s, ...)
	703	+{
	704	+ char buf[64];
	705	+ va_list arg;
	706	+
	707	+ va_start(arg, s);
	708	+ vsnprint(buf, sizeof buf, s, arg);
	709	+ va_end(arg);
	710	+
	711	+ if(winsetaddr(w, buf, 1)==0)
	712	+ return -1;
	713	+
	714	+ if(pread(w->addr, buf, 24, 0) != 24)
	715	+ return -1;
	716	+ return strtol(buf, 0, 10);
	717	+}
	718	+
	719	+int
	720	+isemail(char *s)
	721	+{
	722	+ int nat;
	723	+
	724	+ nat = 0;
	725	+ for(; *s; s++)
	726	+ if(*s == '@')
	727	+ nat++;
	728	+ else if(!isalpha(s) && !isdigit(s) && !strchr("_.-+/", *s))
	729	+ return 0;
	730	+ return nat==1;
	731	+}
	732	+
	733	+char addrdelim[] = "/[ \t\\n<>()\\[\\]]/";
	734	+char*
	735	+expandaddr(Window w, Event e)
	736	+{
	737	+ char *s;
	738	+ long q0, q1;
	739	+
	740	+ if(e->q0 != e->q1) /* cannot happen */
	741	+ return nil;
	742	+
	743	+ q0 = eval(w, "#%d-%s", e->q0, addrdelim);
	744	+ if(q0 == -1) /* bad char not found */
	745	+ q0 = 0;
	746	+ else /* increment past bad char */
	747	+ q0++;
	748	+
	749	+ q1 = eval(w, "#%d+%s", e->q0, addrdelim);
	750	+ if(q1 < 0){
	751	+ q1 = eval(w, "$");
	752	+ if(q1 < 0)
	753	+ return nil;
	754	+ }
	755	+ if(q0 >= q1)
	756	+ return nil;
	757	+ s = emalloc((q1-q0)*UTFmax+1);
	758	+ winread(w, q0, q1, s);
	759	+ return s;
	760	+}
	761	+
	762	+int
	763	+replytoaddr(Window w, Message m, Event e, char s)
	764	+{
	765	+ int did;
	766	+ char *buf;
	767	+ Plumbmsg *pm;
	768	+
	769	+ buf = nil;
	770	+ did = 0;
	771	+ if(e->flag & 2){
	772	+ /* autoexpanded; use our own bigger expansion */
	773	+ buf = expandaddr(w, e);
	774	+ if(buf == nil)
	775	+ return 0;
	776	+ s = buf;
	777	+ }
	778	+ if(isemail(s)){
	779	+ did = 1;
	780	+ pm = emalloc(sizeof(Plumbmsg));
	781	+ pm->src = estrdup("Mail");
	782	+ pm->dst = estrdup("sendmail");
	783	+ pm->data = estrdup(s);
	784	+ pm->ndata = -1;
	785	+ if(m->subject && m->subject[0]){
	786	+ pm->attr = emalloc(sizeof(Plumbattr));
	787	+ pm->attr->name = estrdup("Subject");
	788	+ if(tolower(m->subject[0]) != 'r' \|\| tolower(m->subject[1]) != 'e' \|\| m->subject[2] != ':')
	789	+ pm->attr->value = estrstrdup("Re: ", m->subject);
	790	+ else
	791	+ pm->attr->value = estrdup(m->subject);
	792	+ pm->attr->next = nil;
	793	+ }
	794	+ if(plumbsend(plumbsendfd, pm) < 0)
	795	+ fprint(2, "error writing plumb message: %r\n");
	796	+ plumbfree(pm);
	797	+ }
	798	+ free(buf);
	799	+ return did;
	800	+}
	801	+
	802	+
	803	+void
	804	+mesgctl(void *v)
	805	+{
	806	+ Message *m;
	807	+ Window *w;
	808	+ Event e, eq, e2, ea;
	809	+ int na, nopen, i, j;
	810	+ char os, s, t, buf;
	811	+
	812	+ m = v;
	813	+ w = m->w;
	814	+ threadsetname("mesgctl");
	815	+ proccreate(wineventproc, w, STACK);
	816	+ for(;;){
	817	+ e = recvp(w->cevent);
	818	+ switch(e->c1){
	819	+ default:
	820	+ Unk:
	821	+ print("unknown message %c%c\n", e->c1, e->c2);
	822	+ break;
	823	+
	824	+ case 'E': /* write to body; can't affect us */
	825	+ break;
	826	+
	827	+ case 'F': /* generated by our actions; ignore */
	828	+ break;
	829	+
	830	+ case 'K': /* type away; we don't care */
	831	+ case 'M':
	832	+ switch(e->c2){
	833	+ case 'x': /* mouse only */
	834	+ case 'X':
	835	+ ea = nil;
	836	+ eq = e;
	837	+ if(e->flag & 2){
	838	+ e2 = recvp(w->cevent);
	839	+ eq = e2;
	840	+ }
	841	+ if(e->flag & 8){
	842	+ ea = recvp(w->cevent);
	843	+ recvp(w->cevent);
	844	+ na = ea->nb;
	845	+ }else
	846	+ na = 0;
	847	+ if(eq->q1>eq->q0 && eq->nb==0){
	848	+ s = emalloc((eq->q1-eq->q0)*UTFmax+1);
	849	+ winread(w, eq->q0, eq->q1, s);
	850	+ }else
	851	+ s = estrdup(eq->b);
	852	+ if(na){
	853	+ t = emalloc(strlen(s)+1+na+1);
	854	+ sprint(t, "%s %s", s, ea->b);
	855	+ free(s);
	856	+ s = t;
	857	+ }
	858	+ if(!mesgcommand(m, s)) /* send it back */
	859	+ winwriteevent(w, e);
	860	+ break;
	861	+
	862	+ case 'l': /* mouse only */
	863	+ case 'L':
	864	+ buf = nil;
	865	+ eq = e;
	866	+ if(e->flag & 2){
	867	+ e2 = recvp(w->cevent);
	868	+ eq = e2;
	869	+ }
	870	+ s = eq->b;
	871	+ if(eq->q1>eq->q0 && eq->nb==0){
	872	+ buf = emalloc((eq->q1-eq->q0)*UTFmax+1);
	873	+ winread(w, eq->q0, eq->q1, buf);
	874	+ s = buf;
	875	+ }
	876	+ os = s;
	877	+ nopen = 0;
	878	+ do{
	879	+ /* skip mail box name if present */
	880	+ if(strncmp(s, mbox.name, strlen(mbox.name)) == 0)
	881	+ s += strlen(mbox.name);
	882	+ if(strstr(s, "body") != nil){
	883	+ /* strip any known extensions */
	884	+ for(i=0; exts[i].ext!=nil; i++){
	885	+ j = strlen(exts[i].ext);
	886	+ if(strlen(s)>j && strcmp(s+strlen(s)-j, exts[i].ext)==0){
	887	+ s[strlen(s)-j] = '\0';
	888	+ break;
	889	+ }
	890	+ }
	891	+ if(strlen(s)>5 && strcmp(s+strlen(s)-5, "/body")==0)
	892	+ s[strlen(s)-4] = '\0'; /* leave / in place */
	893	+ }
	894	+ nopen += mesgopen(&mbox, mbox.name, s, m, 0, nil);
	895	+ while(s!=0 && s++!='\n')
	896	+ ;
	897	+ }while(*s);
	898	+ if(nopen == 0 && e->c1 == 'L')
	899	+ nopen += replytoaddr(w, m, e, os);
	900	+ if(nopen == 0)
	901	+ winwriteevent(w, e);
	902	+ free(buf);
	903	+ break;
	904	+
	905	+ case 'I': /* modify away; we don't care */
	906	+ case 'D':
	907	+ mesgtagpost(m);
	908	+ /* fall through */
	909	+ case 'd':
	910	+ case 'i':
	911	+ break;
	912	+
	913	+ default:
	914	+ goto Unk;
	915	+ }
	916	+ }
	917	+ }
	918	+}
	919	+
	920	+void
	921	+mesgline(Message m, char header, char *value)
	922	+{
	923	+ if(strlen(value) > 0)
	924	+ Bprint(m->w->body, "%s: %s\n", header, value);
	925	+}
	926	+
	927	+int
	928	+isprintable(char *type)
	929	+{
	930	+ int i;
	931	+
	932	+ for(i=0; goodtypes[i]!=nil; i++)
	933	+ if(strcmp(type, goodtypes[i])==0)
	934	+ return 1;
	935	+ return 0;
	936	+}
	937	+
	938	+char*
	939	+ext(char *type)
	940	+{
	941	+ int i;
	942	+
	943	+ for(i=0; exts[i].type!=nil; i++)
	944	+ if(strcmp(type, exts[i].type)==0)
	945	+ return exts[i].ext;
	946	+ return "";
	947	+}
	948	+
	949	+void
	950	+mimedisplay(Message m, char name, char rootdir, Window w, int fileonly)
	951	+{
	952	+ char *dest;
	953	+
	954	+ if(strcmp(m->disposition, "file")==0 \|\| strlen(m->filename)!=0){
	955	+ if(strlen(m->filename) == 0){
	956	+ dest = estrdup(m->name);
	957	+ dest[strlen(dest)-1] = '\0';
	958	+ }else
	959	+ dest = estrdup(m->filename);
	960	+ if(m->filename[0] != '/')
	961	+ dest = egrow(estrdup(home), "/", dest);
	962	+ Bprint(w->body, "\tcp %s%sbody%s %q\n", rootdir, name, ext(m->type), dest);
	963	+ free(dest);
	964	+ }else if(!fileonly)
	965	+ Bprint(w->body, "\tfile is %s%sbody%s\n", rootdir, name, ext(m->type));
	966	+}
	967	+
	968	+void
	969	+printheader(char dir, Biobuf b, char **okheaders)
	970	+{
	971	+ char *s;
	972	+ char *lines[100];
	973	+ int i, j, n;
	974	+
	975	+ s = readfile(dir, "header", nil);
	976	+ if(s == nil)
	977	+ return;
	978	+ n = getfields(s, lines, nelem(lines), 0, "\n");
	979	+ for(i=0; i<n; i++)
	980	+ for(j=0; okheaders[j]; j++)
	981	+ if(cistrncmp(lines[i], okheaders[j], strlen(okheaders[j])) == 0)
	982	+ Bprint(b, "%s\n", lines[i]);
	983	+ free(s);
	984	+}
	985	+
	986	+void
	987	+mesgload(Message m, char rootdir, char file, Window w)
	988	+{
	989	+ char s, subdir, name, dir;
	990	+ Message mp, thisone;
	991	+ int n;
	992	+
	993	+ dir = estrstrdup(rootdir, file);
	994	+
	995	+ if(strcmp(m->type, "message/rfc822") != 0){ /* suppress headers of envelopes */
	996	+ if(strlen(m->from) > 0){
	997	+ Bprint(w->body, "From: %s\n", m->from);
	998	+ mesgline(m, "Date", m->date);
	999	+ mesgline(m, "To", m->to);
	1000	+ mesgline(m, "CC", m->cc);
	1001	+ mesgline(m, "Subject", m->subject);
	1002	+ printheader(dir, w->body, extraheaders);
	1003	+ }else{
	1004	+ printheader(dir, w->body, okheaders);
	1005	+ printheader(dir, w->body, extraheaders);
	1006	+ }
	1007	+ Bprint(w->body, "\n");
	1008	+ }
	1009	+
	1010	+ if(m->level == 1 && m->recursed == 0){
	1011	+ m->recursed = 1;
	1012	+ readmbox(m, rootdir, m->name);
	1013	+ }
	1014	+ if(m->head == nil){ /* single part message */
	1015	+ if(strcmp(m->type, "text")==0 \|\| strncmp(m->type, "text/", 5)==0){
	1016	+ mimedisplay(m, m->name, rootdir, w, 1);
	1017	+ s = readbody(m->type, dir, &n);
	1018	+ winwritebody(w, s, n);
	1019	+ free(s);
	1020	+ }else
	1021	+ mimedisplay(m, m->name, rootdir, w, 0);
	1022	+ }else{
	1023	+ /* multi-part message, either multipart/* or message/rfc822 */
	1024	+ thisone = nil;
	1025	+ if(strcmp(m->type, "multipart/alternative") == 0){
	1026	+ thisone = m->head; /* in case we can't find a good one */
	1027	+ for(mp=m->head; mp!=nil; mp=mp->next)
	1028	+ if(isprintable(mp->type)){
	1029	+ thisone = mp;
	1030	+ break;
	1031	+ }
	1032	+ }
	1033	+ for(mp=m->head; mp!=nil; mp=mp->next){
	1034	+ if(thisone!=nil && mp!=thisone)
	1035	+ continue;
	1036	+ subdir = estrstrdup(dir, mp->name);
	1037	+ name = estrstrdup(file, mp->name);
	1038	+ /* skip first element in name because it's already in window name */
	1039	+ if(mp != m->head)
	1040	+ Bprint(w->body, "\n===> %s (%s) [%s]\n", strchr(name, '/')+1, mp->type, mp->disposition);
	1041	+ if(strcmp(mp->type, "text")==0 \|\| strncmp(mp->type, "text/", 5)==0){
	1042	+ mimedisplay(mp, name, rootdir, w, 1);
	1043	+ printheader(subdir, w->body, okheaders);
	1044	+ printheader(subdir, w->body, extraheaders);
	1045	+ winwritebody(w, "\n", 1);
	1046	+ s = readbody(mp->type, subdir, &n);
	1047	+ winwritebody(w, s, n);
	1048	+ free(s);
	1049	+ }else{
	1050	+ if(strncmp(mp->type, "multipart/", 10)==0 \|\| strcmp(mp->type, "message/rfc822")==0){
	1051	+ mp->w = w;
	1052	+ mesgload(mp, rootdir, name, w);
	1053	+ mp->w = nil;
	1054	+ }else
	1055	+ mimedisplay(mp, name, rootdir, w, 0);
	1056	+ }
	1057	+ free(name);
	1058	+ free(subdir);
	1059	+ }
	1060	+ }
	1061	+ free(dir);
	1062	+}
	1063	+
	1064	+int
	1065	+tokenizec(char str, char args, int max, char splitc)
	1066	+{
	1067	+ int na;
	1068	+ int intok = 0;
	1069	+
	1070	+ if(max <= 0)
	1071	+ return 0;
	1072	+ for(na=0; *str != '\0';str++){
	1073	+ if(strchr(splitc, *str) == nil){
	1074	+ if(intok)
	1075	+ continue;
	1076	+ args[na++] = str;
	1077	+ intok = 1;
	1078	+ }else{
	1079	+ /* it's a separator/skip character */
	1080	+ *str = '\0';
	1081	+ if(intok){
	1082	+ intok = 0;
	1083	+ if(na >= max)
	1084	+ break;
	1085	+ }
	1086	+ }
	1087	+ }
	1088	+ return na;
	1089	+}
	1090	+
	1091	+Message*
	1092	+mesglookup(Message mbox, char name, char *digest)
	1093	+{
	1094	+ int n;
	1095	+ Message *m;
	1096	+ char *t;
	1097	+
	1098	+ if(digest){
	1099	+ /* can find exactly */
	1100	+ for(m=mbox->head; m!=nil; m=m->next)
	1101	+ if(strcmp(digest, m->digest) == 0)
	1102	+ break;
	1103	+ return m;
	1104	+ }
	1105	+
	1106	+ n = strlen(name);
	1107	+ if(n == 0)
	1108	+ return nil;
	1109	+ if(name[n-1] == '/')
	1110	+ t = estrdup(name);
	1111	+ else
	1112	+ t = estrstrdup(name, "/");
	1113	+ for(m=mbox->head; m!=nil; m=m->next)
	1114	+ if(strcmp(t, m->name) == 0)
	1115	+ break;
	1116	+ free(t);
	1117	+ return m;
	1118	+}
	1119	+
	1120	+/*
	1121	+ * Find plumb port, knowing type is text, given file name (by extension)
	1122	+ */
	1123	+int
	1124	+plumbportbysuffix(char *file)
	1125	+{
	1126	+ char *suf;
	1127	+ int i, nsuf, nfile;
	1128	+
	1129	+ nfile = strlen(file);
	1130	+ for(i=0; ports[i].type!=nil; i++){
	1131	+ suf = ports[i].suffix;
	1132	+ nsuf = strlen(suf);
	1133	+ if(nfile > nsuf)
	1134	+ if(cistrncmp(file+nfile-nsuf, suf, nsuf) == 0)
	1135	+ return i;
	1136	+ }
	1137	+ return 0;
	1138	+}
	1139	+
	1140	+/*
	1141	+ * Find plumb port using type and file name (by extension)
	1142	+ */
	1143	+int
	1144	+plumbport(char type, char file)
	1145	+{
	1146	+ int i;
	1147	+
	1148	+ for(i=0; ports[i].type!=nil; i++)
	1149	+ if(strncmp(type, ports[i].type, strlen(ports[i].type)) == 0)
	1150	+ return i;
	1151	+ /* see if it's a text type */
	1152	+ for(i=0; goodtypes[i]!=nil; i++)
	1153	+ if(strncmp(type, goodtypes[i], strlen(goodtypes[i])) == 0)
	1154	+ return plumbportbysuffix(file);
	1155	+ return -1;
	1156	+}
	1157	+
	1158	+void
	1159	+plumb(Message m, char dir)
	1160	+{
	1161	+ int i;
	1162	+ char *port;
	1163	+ Plumbmsg *pm;
	1164	+
	1165	+ if(strlen(m->type) == 0)
	1166	+ return;
	1167	+ i = plumbport(m->type, m->filename);
	1168	+ if(i < 0)
	1169	+ fprint(2, "can't find destination for message subpart\n");
	1170	+ else{
	1171	+ port = ports[i].port;
	1172	+ pm = emalloc(sizeof(Plumbmsg));
	1173	+ pm->src = estrdup("Mail");
	1174	+ if(port)
	1175	+ pm->dst = estrdup(port);
	1176	+ else
	1177	+ pm->dst = nil;
	1178	+ pm->wdir = nil;
	1179	+ pm->type = estrdup("text");
	1180	+ pm->ndata = -1;
	1181	+ pm->data = estrstrdup(dir, "body");
	1182	+ pm->data = eappend(pm->data, "", ports[i].suffix);
	1183	+ if(plumbsend(plumbsendfd, pm) < 0)
	1184	+ fprint(2, "error writing plumb message: %r\n");
	1185	+ plumbfree(pm);
	1186	+ }
	1187	+}
	1188	+
	1189	+int
	1190	+mesgopen(Message mbox, char dir, char s, Message mesg, int plumbed, char *digest)
	1191	+{
	1192	+ char t, u, *v;
	1193	+ Message *m;
	1194	+ char *direlem[10];
	1195	+ int i, ndirelem, reuse;
	1196	+
	1197	+ /* find white-space-delimited first word */
	1198	+ for(t=s; t!='\0' && !isspace(t); t++)
	1199	+ ;
	1200	+ u = emalloc(t-s+1);
	1201	+ memmove(u, s, t-s);
	1202	+ /* separate it on slashes */
	1203	+ ndirelem = tokenizec(u, direlem, nelem(direlem), "/");
	1204	+ if(ndirelem <= 0){
	1205	+ Error:
	1206	+ free(u);
	1207	+ return 0;
	1208	+ }
	1209	+ if(plumbed){
	1210	+ write(wctlfd, "top", 3);
	1211	+ write(wctlfd, "current", 7);
	1212	+ }
	1213	+ /* open window for message */
	1214	+ m = mesglookup(mbox, direlem[0], digest);
	1215	+ if(m == nil)
	1216	+ goto Error;
	1217	+ if(mesg!=nil && m!=mesg) /* string looked like subpart but isn't part of this message */
	1218	+ goto Error;
	1219	+ if(m->opened == 0){
	1220	+ if(m->w == nil){
	1221	+ reuse = 0;
	1222	+ m->w = newwindow();
	1223	+ }else{
	1224	+ reuse = 1;
	1225	+ /* re-use existing window */
	1226	+ if(winsetaddr(m->w, "0,$", 1)){
	1227	+ if(m->w->data < 0)
	1228	+ m->w->data = winopenfile(m->w, "data");
	1229	+ write(m->w->data, "", 0);
	1230	+ }
	1231	+ }
	1232	+ v = estrstrdup(mbox->name, m->name);
	1233	+ winname(m->w, v);
	1234	+ free(v);
	1235	+ if(!reuse){
	1236	+ if(m->deleted)
	1237	+ wintagwrite(m->w, "Q Reply all UnDelmesg Save ", 2+6+4+10+5);
	1238	+ else
	1239	+ wintagwrite(m->w, "Q Reply all Delmesg Save ", 2+6+4+8+5);
	1240	+ }
	1241	+ threadcreate(mesgctl, m, STACK);
	1242	+ winopenbody(m->w, OWRITE);
	1243	+ mesgload(m, dir, m->name, m->w);
	1244	+ winclosebody(m->w);
	1245	+ winclean(m->w);
	1246	+ m->opened = 1;
	1247	+ if(ndirelem == 1){
	1248	+ free(u);
	1249	+ return 1;
	1250	+ }
	1251	+ }
	1252	+ if(ndirelem == 1 && plumbport(m->type, m->filename) <= 0){
	1253	+ /* make sure dot is visible */
	1254	+ ctlprint(m->w->ctl, "show\n");
	1255	+ return 0;
	1256	+ }
	1257	+ /* walk to subpart */
	1258	+ dir = estrstrdup(dir, m->name);
	1259	+ for(i=1; i<ndirelem; i++){
	1260	+ m = mesglookup(m, direlem[i], digest);
	1261	+ if(m == nil)
	1262	+ break;
	1263	+ dir = egrow(dir, m->name, nil);
	1264	+ }
	1265	+ if(m != nil && plumbport(m->type, m->filename) > 0)
	1266	+ plumb(m, dir);
	1267	+ free(dir);
	1268	+ free(u);
	1269	+ return 1;
	1270	+}
	1271	+
	1272	+void
	1273	+rewritembox(Window w, Message mbox)
	1274	+{
	1275	+ Message m, next;
	1276	+ char deletestr, t;
	1277	+ int nopen;
	1278	+
	1279	+ deletestr = estrstrdup("delete ", fsname);
	1280	+
	1281	+ nopen = 0;
	1282	+ for(m=mbox->head; m!=nil; m=next){
	1283	+ next = m->next;
	1284	+ if(m->deleted == 0)
	1285	+ continue;
	1286	+ if(m->opened){
	1287	+ nopen++;
	1288	+ continue;
	1289	+ }
	1290	+ if(m->writebackdel){
	1291	+ /* messages deleted by plumb message are not removed again */
	1292	+ t = estrdup(m->name);
	1293	+ if(strlen(t) > 0)
	1294	+ t[strlen(t)-1] = '\0';
	1295	+ deletestr = egrow(deletestr, " ", t);
	1296	+ }
	1297	+ mesgmenudel(w, mbox, m);
	1298	+ mesgdel(mbox, m);
	1299	+ }
	1300	+ if(write(mbox->ctlfd, deletestr, strlen(deletestr)) < 0)
	1301	+ fprint(2, "Mail: warning: error removing mail message files: %r\n");
	1302	+ free(deletestr);
	1303	+ winselect(w, "0", 0);
	1304	+ if(nopen == 0)
	1305	+ winclean(w);
	1306	+ mbox->dirty = 0;
	1307	+}
	1308	+
	1309	+/* name is a full file name, but it might not belong to us */
	1310	+Message*
	1311	+mesglookupfile(Message mbox, char name, char *digest)
	1312	+{
	1313	+ int k, n;
	1314	+
	1315	+ k = strlen(name);
	1316	+ n = strlen(mbox->name);
	1317	+ if(k==0 \|\| strncmp(name, mbox->name, n) != 0){
	1318	+// fprint(2, "Mail: message %s not in this mailbox\n", name);
	1319	+ return nil;
	1320	+ }
	1321	+ return mesglookup(mbox, name+n, digest);
	1322	+}

acme/mail/src/mkfile+30−0

@@ -0,0 +1,30 @@
	1	+</$objtype/mkfile
	2	+
	3	+TARG=Mail
	4	+OFILES=\
	5	+ html.$O\
	6	+ mail.$O\
	7	+ mesg.$O\
	8	+ reply.$O\
	9	+ util.$O\
	10	+ win.$O
	11	+
	12	+HFILES=dat.h
	13	+LIB=
	14	+
	15	+BIN=/acme/bin/$objtype
	16	+
	17	+UPDATE=\
	18	+ mkfile\
	19	+ $HFILES\
	20	+ ${OFILES:%.$O=%.c}\
	21	+
	22	+</sys/src/cmd/mkone
	23	+
	24	+$O.out: $OFILES
	25	+ $LD -o $target $LDFLAGS $OFILES
	26	+
	27	+syms:V:
	28	+ 8c -a mail.c >syms
	29	+ 8c -aa mesg.c reply.c util.c win.c >>syms
	30	+

acme/mail/src/reply.6+0−0

Binary file not shown.

acme/mail/src/reply.8+0−0

Binary file not shown.

acme/mail/src/reply.c+567−0

@@ -0,0 +1,567 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include <ctype.h>
	6	+#include <plumb.h>
	7	+#include "dat.h"
	8	+
	9	+static int replyid;
	10	+
	11	+int
	12	+quote(Message m, Biobuf b, char dir, char quotetext)
	13	+{
	14	+ char body, type;
	15	+ int i, n, nlines;
	16	+ char **lines;
	17	+
	18	+ if(quotetext){
	19	+ body = quotetext;
	20	+ n = strlen(body);
	21	+ type = nil;
	22	+ }else{
	23	+ /* look for first textual component to quote */
	24	+ type = readfile(dir, "type", &n);
	25	+ if(type == nil){
	26	+ print("no type in %s\n", dir);
	27	+ return 0;
	28	+ }
	29	+ if(strncmp(type, "multipart/", 10)==0 \|\| strncmp(type, "message/", 8)==0){
	30	+ dir = estrstrdup(dir, "1/");
	31	+ if(quote(m, b, dir, nil)){
	32	+ free(type);
	33	+ free(dir);
	34	+ return 1;
	35	+ }
	36	+ free(dir);
	37	+ }
	38	+ if(strncmp(type, "text", 4) != 0){
	39	+ free(type);
	40	+ return 0;
	41	+ }
	42	+ body = readbody(m->type, dir, &n);
	43	+ if(body == nil)
	44	+ return 0;
	45	+ }
	46	+ nlines = 0;
	47	+ for(i=0; i<n; i++)
	48	+ if(body[i] == '\n')
	49	+ nlines++;
	50	+ nlines++;
	51	+ lines = emalloc(nlinessizeof(char));
	52	+ nlines = getfields(body, lines, nlines, 0, "\n");
	53	+ /* delete leading and trailing blank lines */
	54	+ i = 0;
	55	+ while(i<nlines && lines[i][0]=='\0')
	56	+ i++;
	57	+ while(i<nlines && lines[nlines-1][0]=='\0')
	58	+ nlines--;
	59	+ while(i < nlines){
	60	+ Bprint(b, ">%s%s\n", lines[i][0]=='>'? "" : " ", lines[i]);
	61	+ i++;
	62	+ }
	63	+ free(lines);
	64	+ free(body); /* will free quotetext if non-nil */
	65	+ free(type);
	66	+ return 1;
	67	+}
	68	+
	69	+void
	70	+mkreply(Message m, char label, char to, Plumbattr attr, char *quotetext)
	71	+{
	72	+ Message *r;
	73	+ char dir, t;
	74	+ int quotereply;
	75	+ Plumbattr *a;
	76	+
	77	+ quotereply = (label[0] == 'Q');
	78	+ r = emalloc(sizeof(Message));
	79	+ r->isreply = 1;
	80	+ if(m != nil)
	81	+ r->replyname = estrdup(m->name);
	82	+ r->next = replies.head;
	83	+ r->prev = nil;
	84	+ if(replies.head != nil)
	85	+ replies.head->prev = r;
	86	+ replies.head = r;
	87	+ if(replies.tail == nil)
	88	+ replies.tail = r;
	89	+ r->name = emalloc(strlen(mbox.name)+strlen(label)+10);
	90	+ sprint(r->name, "%s%s%d", mbox.name, label, ++replyid);
	91	+ r->w = newwindow();
	92	+ winname(r->w, r->name);
	93	+ ctlprint(r->w->ctl, "cleartag");
	94	+ wintagwrite(r->w, "fmt Look Post Undo", 4+5+5+4);
	95	+ r->tagposted = 1;
	96	+ threadcreate(mesgctl, r, STACK);
	97	+ winopenbody(r->w, OWRITE);
	98	+ if(to!=nil && to[0]!='\0')
	99	+ Bprint(r->w->body, "%s\n", to);
	100	+ for(a=attr; a; a=a->next)
	101	+ Bprint(r->w->body, "%s: %s\n", a->name, a->value);
	102	+ dir = nil;
	103	+ if(m != nil){
	104	+ dir = estrstrdup(mbox.name, m->name);
	105	+ if(to == nil && attr == nil){
	106	+ /* Reply goes to replyto; Reply all goes to From and To and CC */
	107	+ if(strstr(label, "all") == nil)
	108	+ Bprint(r->w->body, "To: %s\n", m->replyto);
	109	+ else{ /* Replyall */
	110	+ if(strlen(m->from) > 0)
	111	+ Bprint(r->w->body, "To: %s\n", m->from);
	112	+ if(strlen(m->to) > 0)
	113	+ Bprint(r->w->body, "To: %s\n", m->to);
	114	+ if(strlen(m->cc) > 0)
	115	+ Bprint(r->w->body, "CC: %s\n", m->cc);
	116	+ }
	117	+ }
	118	+ if(strlen(m->subject) > 0){
	119	+ t = "Subject: Re: ";
	120	+ if(strlen(m->subject) >= 3)
	121	+ if(tolower(m->subject[0])=='r' && tolower(m->subject[1])=='e' && m->subject[2]==':')
	122	+ t = "Subject: ";
	123	+ Bprint(r->w->body, "%s%s\n", t, m->subject);
	124	+ }
	125	+ if(!quotereply){
	126	+ Bprint(r->w->body, "Include: %sraw\n", dir);
	127	+ free(dir);
	128	+ }
	129	+ }
	130	+ Bprint(r->w->body, "\n");
	131	+ if(m == nil)
	132	+ Bprint(r->w->body, "\n");
	133	+ else if(quotereply){
	134	+ quote(m, r->w->body, dir, quotetext);
	135	+ free(dir);
	136	+ }
	137	+ winclosebody(r->w);
	138	+ if(m==nil && (to==nil \|\| to[0]=='\0'))
	139	+ winselect(r->w, "0", 0);
	140	+ else
	141	+ winselect(r->w, "$", 0);
	142	+ winclean(r->w);
	143	+ windormant(r->w);
	144	+}
	145	+
	146	+void
	147	+delreply(Message *m)
	148	+{
	149	+ if(m->next == nil)
	150	+ replies.tail = m->prev;
	151	+ else
	152	+ m->next->prev = m->prev;
	153	+ if(m->prev == nil)
	154	+ replies.head = m->next;
	155	+ else
	156	+ m->prev->next = m->next;
	157	+ mesgfreeparts(m);
	158	+ free(m);
	159	+}
	160	+
	161	+/* copy argv to stack and free the incoming strings, so we don't leak argument vectors */
	162	+void
	163	+buildargv(char *inargv, char argv[NARGS+1], char args[NARGCHAR])
	164	+{
	165	+ int i, n;
	166	+ char s, a;
	167	+
	168	+ s = args;
	169	+ for(i=0; i<NARGS; i++){
	170	+ a = inargv[i];
	171	+ if(a == nil)
	172	+ break;
	173	+ n = strlen(a)+1;
	174	+ if((s-args)+n >= NARGCHAR) /* too many characters */
	175	+ break;
	176	+ argv[i] = s;
	177	+ memmove(s, a, n);
	178	+ s += n;
	179	+ free(a);
	180	+ }
	181	+ argv[i] = nil;
	182	+}
	183	+
	184	+void
	185	+execproc(void *v)
	186	+{
	187	+ struct Exec *e;
	188	+ int p[2], q[2];
	189	+ char *prog;
	190	+ char *argv[NARGS+1], args[NARGCHAR];
	191	+
	192	+ e = v;
	193	+ p[0] = e->p[0];
	194	+ p[1] = e->p[1];
	195	+ q[0] = e->q[0];
	196	+ q[1] = e->q[1];
	197	+ prog = e->prog; /* known not to be malloc'ed */
	198	+ rfork(RFFDG);
	199	+ sendul(e->sync, 1);
	200	+ buildargv(e->argv, argv, args);
	201	+ free(e->argv);
	202	+ chanfree(e->sync);
	203	+ free(e);
	204	+ dup(p[0], 0);
	205	+ close(p[0]);
	206	+ close(p[1]);
	207	+ if(q[0]){
	208	+ dup(q[1], 1);
	209	+ close(q[0]);
	210	+ close(q[1]);
	211	+ }
	212	+ procexec(nil, prog, argv);
	213	+//fprint(2, "exec: %s", e->prog);
	214	+//{int i;
	215	+//for(i=0; argv[i]; i++) print(" '%s'", argv[i]);
	216	+//print("\n");
	217	+//}
	218	+//argv[0] = "cat";
	219	+//argv[1] = nil;
	220	+//procexec(nil, "/bin/cat", argv);
	221	+ fprint(2, "Mail: can't exec %s: %r\n", prog);
	222	+ threadexits("can't exec");
	223	+}
	224	+
	225	+enum{
	226	+ ATTACH,
	227	+ BCC,
	228	+ CC,
	229	+ FROM,
	230	+ INCLUDE,
	231	+ TO,
	232	+};
	233	+
	234	+char *headers[] = {
	235	+ "attach:",
	236	+ "bcc:",
	237	+ "cc:",
	238	+ "from:",
	239	+ "include:",
	240	+ "to:",
	241	+ nil,
	242	+};
	243	+
	244	+int
	245	+whichheader(char *h)
	246	+{
	247	+ int i;
	248	+
	249	+ for(i=0; headers[i]!=nil; i++)
	250	+ if(cistrcmp(h, headers[i]) == 0)
	251	+ return i;
	252	+ return -1;
	253	+}
	254	+
	255	+char *tolist[200];
	256	+char *cclist[200];
	257	+char *bcclist[200];
	258	+int ncc, nbcc, nto;
	259	+char *attlist[200];
	260	+char included[200];
	261	+
	262	+int
	263	+addressed(char *name)
	264	+{
	265	+ int i;
	266	+
	267	+ for(i=0; i<nto; i++)
	268	+ if(strcmp(name, tolist[i]) == 0)
	269	+ return 1;
	270	+ for(i=0; i<ncc; i++)
	271	+ if(strcmp(name, cclist[i]) == 0)
	272	+ return 1;
	273	+ for(i=0; i<nbcc; i++)
	274	+ if(strcmp(name, bcclist[i]) == 0)
	275	+ return 1;
	276	+ return 0;
	277	+}
	278	+
	279	+char*
	280	+skipbl(char s, char e)
	281	+{
	282	+ while(s < e){
	283	+ if(s!=' ' && s!='\t' && *s!=',')
	284	+ break;
	285	+ s++;
	286	+ }
	287	+ return s;
	288	+}
	289	+
	290	+char*
	291	+findbl(char s, char e)
	292	+{
	293	+ while(s < e){
	294	+ if(s==' ' \|\| s=='\t' \|\| *s==',')
	295	+ break;
	296	+ s++;
	297	+ }
	298	+ return s;
	299	+}
	300	+
	301	+/*
	302	+ * comma-separate possibly blank-separated strings in line; e points before newline
	303	+ */
	304	+void
	305	+commas(char s, char e)
	306	+{
	307	+ char *t;
	308	+
	309	+ /* may have initial blanks */
	310	+ s = skipbl(s, e);
	311	+ while(s < e){
	312	+ s = findbl(s, e);
	313	+ if(s == e)
	314	+ break;
	315	+ t = skipbl(s, e);
	316	+ if(t == e) /* no more words */
	317	+ break;
	318	+ /* patch comma */
	319	+ *s++ = ',';
	320	+ while(s < t)
	321	+ *s++ = ' ';
	322	+ }
	323	+}
	324	+
	325	+int
	326	+print2(int fd, int ofd, char *fmt, ...)
	327	+{
	328	+ int m, n;
	329	+ char *s;
	330	+ va_list arg;
	331	+
	332	+ va_start(arg, fmt);
	333	+ s = vsmprint(fmt, arg);
	334	+ va_end(arg);
	335	+ if(s == nil)
	336	+ return -1;
	337	+ m = strlen(s);
	338	+ n = write(fd, s, m);
	339	+ if(ofd > 0)
	340	+ write(ofd, s, m);
	341	+ return n;
	342	+}
	343	+
	344	+void
	345	+write2(int fd, int ofd, char *buf, int n, int nofrom)
	346	+{
	347	+ char from, p;
	348	+ int m;
	349	+
	350	+ write(fd, buf, n);
	351	+
	352	+ if(ofd <= 0)
	353	+ return;
	354	+
	355	+ if(nofrom == 0){
	356	+ write(ofd, buf, n);
	357	+ return;
	358	+ }
	359	+
	360	+ /* need to escape leading From lines to avoid corrupting 'outgoing' mailbox */
	361	+ for(p=buf; *p; p+=m){
	362	+ from = cistrstr(p, "from");
	363	+ if(from == nil)
	364	+ m = n;
	365	+ else
	366	+ m = from - p;
	367	+ if(m > 0)
	368	+ write(ofd, p, m);
	369	+ if(from){
	370	+ if(p==buf \|\| from[-1]=='\n')
	371	+ write(ofd, " ", 1); /* escape with space if From is at start of line */
	372	+ write(ofd, from, 4);
	373	+ m += 4;
	374	+ }
	375	+ n -= m;
	376	+ }
	377	+}
	378	+
	379	+void
	380	+mesgsend(Message *m)
	381	+{
	382	+ char s, body, *to;
	383	+ int i, j, h, n, natt, p[2];
	384	+ struct Exec *e;
	385	+ Channel *sync;
	386	+ int first, nfld, delit, ofd;
	387	+ char copy, fld[100], *now;
	388	+
	389	+ body = winreadbody(m->w, &n);
	390	+ /* assemble to: list from first line, to: line, and cc: line */
	391	+ nto = 0;
	392	+ natt = 0;
	393	+ ncc = 0;
	394	+ nbcc = 0;
	395	+ first = 1;
	396	+ to = body;
	397	+ for(;;){
	398	+ for(s=to; *s!='\n'; s++)
	399	+ if(*s == '\0'){
	400	+ free(body);
	401	+ return;
	402	+ }
	403	+ if(s++ == to) /* blank line */
	404	+ break;
	405	+ /* make copy of line to tokenize */
	406	+ copy = emalloc(s-to);
	407	+ memmove(copy, to, s-to);
	408	+ copy[s-to-1] = '\0';
	409	+ nfld = tokenizec(copy, fld, nelem(fld), ", \t");
	410	+ if(nfld == 0){
	411	+ free(copy);
	412	+ break;
	413	+ }
	414	+ n -= s-to;
	415	+ switch(h = whichheader(fld[0])){
	416	+ case TO:
	417	+ case FROM:
	418	+ delit = 1;
	419	+ commas(to+strlen(fld[0]), s-1);
	420	+ for(i=1; i<nfld && nto<nelem(tolist); i++)
	421	+ if(!addressed(fld[i]))
	422	+ tolist[nto++] = estrdup(fld[i]);
	423	+ break;
	424	+ case BCC:
	425	+ delit = 1;
	426	+ commas(to+strlen(fld[0]), s-1);
	427	+ for(i=1; i<nfld && nbcc<nelem(bcclist); i++)
	428	+ if(!addressed(fld[i]))
	429	+ bcclist[nbcc++] = estrdup(fld[i]);
	430	+ break;
	431	+ case CC:
	432	+ delit = 1;
	433	+ commas(to+strlen(fld[0]), s-1);
	434	+ for(i=1; i<nfld && ncc<nelem(cclist); i++)
	435	+ if(!addressed(fld[i]))
	436	+ cclist[ncc++] = estrdup(fld[i]);
	437	+ break;
	438	+ case ATTACH:
	439	+ case INCLUDE:
	440	+ delit = 1;
	441	+ for(i=1; i<nfld && natt<nelem(attlist); i++){
	442	+ attlist[natt] = estrdup(fld[i]);
	443	+ included[natt++] = (h == INCLUDE);
	444	+ }
	445	+ break;
	446	+ default:
	447	+ if(first){
	448	+ delit = 1;
	449	+ for(i=0; i<nfld && nto<nelem(tolist); i++)
	450	+ tolist[nto++] = estrdup(fld[i]);
	451	+ }else /* ignore it */
	452	+ delit = 0;
	453	+ break;
	454	+ }
	455	+ if(delit){
	456	+ /* delete line from body */
	457	+ memmove(to, s, n+1);
	458	+ }else
	459	+ to = s;
	460	+ free(copy);
	461	+ first = 0;
	462	+ }
	463	+
	464	+ ofd = open(outgoing, OWRITE\|OCEXEC); /* no error check necessary */
	465	+ if(ofd > 0){
	466	+ /* From dhog Fri Aug 24 22:13:00 EDT 2001 */
	467	+ now = ctime(time(0));
	468	+ fprint(ofd, "From %s %s", user, now);
	469	+ fprint(ofd, "From: %s\n", user);
	470	+ fprint(ofd, "Date: %s", now);
	471	+ for(i=0; i<natt; i++)
	472	+ if(included[i])
	473	+ fprint(ofd, "Include: %s\n", attlist[i]);
	474	+ else
	475	+ fprint(ofd, "Attach: %s\n", attlist[i]);
	476	+ /* needed because mail is by default Latin-1 */
	477	+ fprint(ofd, "Content-Type: text/plain; charset=\"UTF-8\"\n");
	478	+ fprint(ofd, "Content-Transfer-Encoding: 8bit\n");
	479	+ }
	480	+
	481	+ e = emalloc(sizeof(struct Exec));
	482	+ if(pipe(p) < 0)
	483	+ error("can't create pipe: %r");
	484	+ e->p[0] = p[0];
	485	+ e->p[1] = p[1];
	486	+ e->prog = "/bin/upas/marshal";
	487	+ e->argv = emalloc((1+1+2+4natt+1)sizeof(char*));
	488	+ e->argv[0] = estrdup("marshal");
	489	+ e->argv[1] = estrdup("-8");
	490	+ j = 2;
	491	+ if(m->replyname){
	492	+ e->argv[j++] = estrdup("-R");
	493	+ e->argv[j++] = estrstrdup(mbox.name, m->replyname);
	494	+ }
	495	+ for(i=0; i<natt; i++){
	496	+ if(included[i])
	497	+ e->argv[j++] = estrdup("-A");
	498	+ else
	499	+ e->argv[j++] = estrdup("-a");
	500	+ e->argv[j++] = estrdup(attlist[i]);
	501	+ }
	502	+ sync = chancreate(sizeof(int), 0);
	503	+ e->sync = sync;
	504	+ proccreate(execproc, e, EXECSTACK);
	505	+ recvul(sync);
	506	+ close(p[0]);
	507	+
	508	+ /* using marshal -8, so generate rfc822 headers */
	509	+ if(nto > 0){
	510	+ print2(p[1], ofd, "To: ");
	511	+ for(i=0; i<nto-1; i++)
	512	+ print2(p[1], ofd, "%s, ", tolist[i]);
	513	+ print2(p[1], ofd, "%s\n", tolist[i]);
	514	+ }
	515	+ if(ncc > 0){
	516	+ print2(p[1], ofd, "CC: ");
	517	+ for(i=0; i<ncc-1; i++)
	518	+ print2(p[1], ofd, "%s, ", cclist[i]);
	519	+ print2(p[1], ofd, "%s\n", cclist[i]);
	520	+ }
	521	+ if(nbcc > 0){
	522	+ print2(p[1], ofd, "BCC: ");
	523	+ for(i=0; i<nbcc-1; i++)
	524	+ print2(p[1], ofd, "%s, ", bcclist[i]);
	525	+ print2(p[1], ofd, "%s\n", bcclist[i]);
	526	+ }
	527	+
	528	+ i = strlen(body);
	529	+ if(i > 0)
	530	+ write2(p[1], ofd, body, i, 1);
	531	+
	532	+ /* guarantee a blank line, to ensure attachments are separated from body */
	533	+ if(i==0 \|\| body[i-1]!='\n')
	534	+ write2(p[1], ofd, "\n\n", 2, 0);
	535	+ else if(i>1 && body[i-2]!='\n')
	536	+ write2(p[1], ofd, "\n", 1, 0);
	537	+
	538	+ /* these look like pseudo-attachments in the "outgoing" box */
	539	+ if(ofd>0 && natt>0){
	540	+ for(i=0; i<natt; i++)
	541	+ if(included[i])
	542	+ fprint(ofd, "=====> Include: %s\n", attlist[i]);
	543	+ else
	544	+ fprint(ofd, "=====> Attach: %s\n", attlist[i]);
	545	+ }
	546	+ if(ofd > 0)
	547	+ write(ofd, "\n", 1);
	548	+
	549	+ for(i=0; i<natt; i++)
	550	+ free(attlist[i]);
	551	+ close(ofd);
	552	+ close(p[1]);
	553	+ free(body);
	554	+
	555	+ if(m->replyname != nil)
	556	+ mesgmenumark(mbox.w, m->replyname, "\t[replied]");
	557	+ if(m->name[0] == '/')
	558	+ s = estrdup(m->name);
	559	+ else
	560	+ s = estrstrdup(mbox.name, m->name);
	561	+ s = egrow(s, "-R", nil);
	562	+ winname(m->w, s);
	563	+ free(s);
	564	+ winclean(m->w);
	565	+ /* mark message unopened because it's no longer the original message */
	566	+ m->opened = 0;
	567	+}

acme/mail/src/util.6+0−0

Binary file not shown.

acme/mail/src/util.8+0−0

Binary file not shown.

acme/mail/src/util.c+105−0

@@ -0,0 +1,105 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include <plumb.h>
	6	+#include "dat.h"
	7	+
	8	+void*
	9	+emalloc(uint n)
	10	+{
	11	+ void *p;
	12	+
	13	+ p = malloc(n);
	14	+ if(p == nil)
	15	+ error("can't malloc: %r");
	16	+ memset(p, 0, n);
	17	+ setmalloctag(p, getcallerpc(&n));
	18	+ return p;
	19	+}
	20	+
	21	+void*
	22	+erealloc(void *p, uint n)
	23	+{
	24	+ p = realloc(p, n);
	25	+ if(p == nil)
	26	+ error("can't realloc: %r");
	27	+ setmalloctag(p, getcallerpc(&n));
	28	+ return p;
	29	+}
	30	+
	31	+char*
	32	+estrdup(char *s)
	33	+{
	34	+ char *t;
	35	+
	36	+ t = emalloc(strlen(s)+1);
	37	+ strcpy(t, s);
	38	+ return t;
	39	+}
	40	+
	41	+char*
	42	+estrstrdup(char s, char t)
	43	+{
	44	+ char *u;
	45	+
	46	+ u = emalloc(strlen(s)+strlen(t)+1);
	47	+ strcpy(u, s);
	48	+ strcat(u, t);
	49	+ return u;
	50	+}
	51	+
	52	+char*
	53	+eappend(char s, char sep, char *t)
	54	+{
	55	+ char *u;
	56	+
	57	+ if(t == nil)
	58	+ u = estrstrdup(s, sep);
	59	+ else{
	60	+ u = emalloc(strlen(s)+strlen(sep)+strlen(t)+1);
	61	+ strcpy(u, s);
	62	+ strcat(u, sep);
	63	+ strcat(u, t);
	64	+ }
	65	+ free(s);
	66	+ return u;
	67	+}
	68	+
	69	+char*
	70	+egrow(char s, char sep, char *t)
	71	+{
	72	+ s = eappend(s, sep, t);
	73	+ free(t);
	74	+ return s;
	75	+}
	76	+
	77	+void
	78	+error(char *fmt, ...)
	79	+{
	80	+ Fmt f;
	81	+ char buf[64];
	82	+ va_list arg;
	83	+
	84	+ fmtfdinit(&f, 2, buf, sizeof buf);
	85	+ fmtprint(&f, "Mail: ");
	86	+ va_start(arg, fmt);
	87	+ fmtvprint(&f, fmt, arg);
	88	+ va_end(arg);
	89	+ fmtprint(&f, "\n");
	90	+ fmtfdflush(&f);
	91	+ threadexitsall(buf);
	92	+}
	93	+
	94	+void
	95	+ctlprint(int fd, char *fmt, ...)
	96	+{
	97	+ int n;
	98	+ va_list arg;
	99	+
	100	+ va_start(arg, fmt);
	101	+ n = vfprint(fd, fmt, arg);
	102	+ va_end(arg);
	103	+ if(n <= 0)
	104	+ error("control file write error: %r");
	105	+}

acme/mail/src/win.6+0−0

Binary file not shown.

acme/mail/src/win.8+0−0

Binary file not shown.

acme/mail/src/win.c+341−0

@@ -0,0 +1,341 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include <plumb.h>
	6	+#include "dat.h"
	7	+
	8	+Window*
	9	+newwindow(void)
	10	+{
	11	+ char buf[12];
	12	+ Window *w;
	13	+
	14	+ w = emalloc(sizeof(Window));
	15	+ w->ctl = open("/mnt/wsys/new/ctl", ORDWR\|OCEXEC);
	16	+ if(w->ctl<0 \|\| read(w->ctl, buf, 12)!=12)
	17	+ error("can't open window ctl file: %r");
	18	+ ctlprint(w->ctl, "noscroll\n");
	19	+ w->id = atoi(buf);
	20	+ w->event = winopenfile(w, "event");
	21	+ w->addr = -1; /* will be opened when needed */
	22	+ w->body = nil;
	23	+ w->data = -1;
	24	+ w->cevent = chancreate(sizeof(Event*), 0);
	25	+ return w;
	26	+}
	27	+
	28	+void
	29	+winsetdump(Window w, char dir, char *cmd)
	30	+{
	31	+ if(dir != nil)
	32	+ ctlprint(w->ctl, "dumpdir %s\n", dir);
	33	+ if(cmd != nil)
	34	+ ctlprint(w->ctl, "dump %s\n", cmd);
	35	+}
	36	+
	37	+void
	38	+wineventproc(void *v)
	39	+{
	40	+ Window *w;
	41	+ int i;
	42	+
	43	+ w = v;
	44	+ for(i=0; ; i++){
	45	+ if(i >= NEVENT)
	46	+ i = 0;
	47	+ wingetevent(w, &w->e[i]);
	48	+ sendp(w->cevent, &w->e[i]);
	49	+ }
	50	+}
	51	+
	52	+static int
	53	+winopenfile1(Window w, char f, int m)
	54	+{
	55	+ char buf[64];
	56	+ int fd;
	57	+
	58	+ sprint(buf, "/mnt/wsys/%d/%s", w->id, f);
	59	+ fd = open(buf, m\|OCEXEC);
	60	+ if(fd < 0)
	61	+ error("can't open window file %s: %r", f);
	62	+ return fd;
	63	+}
	64	+
	65	+int
	66	+winopenfile(Window w, char f)
	67	+{
	68	+ return winopenfile1(w, f, ORDWR);
	69	+}
	70	+
	71	+void
	72	+wintagwrite(Window w, char s, int n)
	73	+{
	74	+ int fd;
	75	+
	76	+ fd = winopenfile(w, "tag");
	77	+ if(write(fd, s, n) != n)
	78	+ error("tag write: %r");
	79	+ close(fd);
	80	+}
	81	+
	82	+void
	83	+winname(Window w, char s)
	84	+{
	85	+ ctlprint(w->ctl, "name %s\n", s);
	86	+}
	87	+
	88	+void
	89	+winopenbody(Window *w, int mode)
	90	+{
	91	+ char buf[256];
	92	+
	93	+ sprint(buf, "/mnt/wsys/%d/body", w->id);
	94	+ w->body = Bopen(buf, mode\|OCEXEC);
	95	+ if(w->body == nil)
	96	+ error("can't open window body file: %r");
	97	+}
	98	+
	99	+void
	100	+winclosebody(Window *w)
	101	+{
	102	+ if(w->body != nil){
	103	+ Bterm(w->body);
	104	+ w->body = nil;
	105	+ }
	106	+}
	107	+
	108	+void
	109	+winwritebody(Window w, char s, int n)
	110	+{
	111	+ if(w->body == nil)
	112	+ winopenbody(w, OWRITE);
	113	+ if(Bwrite(w->body, s, n) != n)
	114	+ error("write error to window: %r");
	115	+}
	116	+
	117	+int
	118	+wingetec(Window *w)
	119	+{
	120	+ if(w->nbuf == 0){
	121	+ w->nbuf = read(w->event, w->buf, sizeof w->buf);
	122	+ if(w->nbuf <= 0){
	123	+ /* probably because window has exited, and only called by wineventproc, so just shut down */
	124	+ threadexits(nil);
	125	+ }
	126	+ w->bufp = w->buf;
	127	+ }
	128	+ w->nbuf--;
	129	+ return *w->bufp++;
	130	+}
	131	+
	132	+int
	133	+wingeten(Window *w)
	134	+{
	135	+ int n, c;
	136	+
	137	+ n = 0;
	138	+ while('0'<=(c=wingetec(w)) && c<='9')
	139	+ n = n*10+(c-'0');
	140	+ if(c != ' ')
	141	+ error("event number syntax");
	142	+ return n;
	143	+}
	144	+
	145	+int
	146	+wingeter(Window w, char buf, int *nb)
	147	+{
	148	+ Rune r;
	149	+ int n;
	150	+
	151	+ r = wingetec(w);
	152	+ buf[0] = r;
	153	+ n = 1;
	154	+ if(r >= Runeself) {
	155	+ while(!fullrune(buf, n))
	156	+ buf[n++] = wingetec(w);
	157	+ chartorune(&r, buf);
	158	+ }
	159	+ *nb = n;
	160	+ return r;
	161	+}
	162	+
	163	+void
	164	+wingetevent(Window w, Event e)
	165	+{
	166	+ int i, nb;
	167	+
	168	+ e->c1 = wingetec(w);
	169	+ e->c2 = wingetec(w);
	170	+ e->q0 = wingeten(w);
	171	+ e->q1 = wingeten(w);
	172	+ e->flag = wingeten(w);
	173	+ e->nr = wingeten(w);
	174	+ if(e->nr > EVENTSIZE)
	175	+ error("event string too long");
	176	+ e->nb = 0;
	177	+ for(i=0; i<e->nr; i++){
	178	+ e->r[i] = wingeter(w, e->b+e->nb, &nb);
	179	+ e->nb += nb;
	180	+ }
	181	+ e->r[e->nr] = 0;
	182	+ e->b[e->nb] = 0;
	183	+ if(wingetec(w) != '\n')
	184	+ error("event syntax error");
	185	+}
	186	+
	187	+void
	188	+winwriteevent(Window w, Event e)
	189	+{
	190	+ fprint(w->event, "%c%c%d %d\n", e->c1, e->c2, e->q0, e->q1);
	191	+}
	192	+
	193	+void
	194	+winread(Window w, uint q0, uint q1, char data)
	195	+{
	196	+ int m, n, nr;
	197	+ char buf[256];
	198	+
	199	+ if(w->addr < 0)
	200	+ w->addr = winopenfile(w, "addr");
	201	+ if(w->data < 0)
	202	+ w->data = winopenfile(w, "data");
	203	+ m = q0;
	204	+ while(m < q1){
	205	+ n = sprint(buf, "#%d", m);
	206	+ if(write(w->addr, buf, n) != n)
	207	+ error("error writing addr: %r");
	208	+ n = read(w->data, buf, sizeof buf);
	209	+ if(n <= 0)
	210	+ error("reading data: %r");
	211	+ nr = utfnlen(buf, n);
	212	+ while(m+nr >q1){
	213	+ do; while(n>0 && (buf[--n]&0xC0)==0x80);
	214	+ --nr;
	215	+ }
	216	+ if(n == 0)
	217	+ break;
	218	+ memmove(data, buf, n);
	219	+ data += n;
	220	+ *data = 0;
	221	+ m += nr;
	222	+ }
	223	+}
	224	+
	225	+void
	226	+windormant(Window *w)
	227	+{
	228	+ if(w->addr >= 0){
	229	+ close(w->addr);
	230	+ w->addr = -1;
	231	+ }
	232	+ if(w->body != nil){
	233	+ Bterm(w->body);
	234	+ w->body = nil;
	235	+ }
	236	+ if(w->data >= 0){
	237	+ close(w->data);
	238	+ w->data = -1;
	239	+ }
	240	+}
	241	+
	242	+
	243	+int
	244	+windel(Window *w, int sure)
	245	+{
	246	+ if(sure)
	247	+ write(w->ctl, "delete\n", 7);
	248	+ else if(write(w->ctl, "del\n", 4) != 4)
	249	+ return 0;
	250	+ /* event proc will die due to read error from event file */
	251	+ windormant(w);
	252	+ close(w->ctl);
	253	+ w->ctl = -1;
	254	+ close(w->event);
	255	+ w->event = -1;
	256	+ return 1;
	257	+}
	258	+
	259	+void
	260	+winclean(Window *w)
	261	+{
	262	+ if(w->body)
	263	+ Bflush(w->body);
	264	+ ctlprint(w->ctl, "clean\n");
	265	+}
	266	+
	267	+int
	268	+winsetaddr(Window w, char addr, int errok)
	269	+{
	270	+ if(w->addr < 0)
	271	+ w->addr = winopenfile(w, "addr");
	272	+ if(write(w->addr, addr, strlen(addr)) < 0){
	273	+ if(!errok)
	274	+ error("error writing addr(%s): %r", addr);
	275	+ return 0;
	276	+ }
	277	+ return 1;
	278	+}
	279	+
	280	+int
	281	+winselect(Window w, char addr, int errok)
	282	+{
	283	+ if(winsetaddr(w, addr, errok)){
	284	+ ctlprint(w->ctl, "dot=addr\n");
	285	+ return 1;
	286	+ }
	287	+ return 0;
	288	+}
	289	+
	290	+char*
	291	+winreadbody(Window w, int np) /* can't use readfile because acme doesn't report the length */
	292	+{
	293	+ char *s;
	294	+ int m, na, n;
	295	+
	296	+ if(w->body != nil)
	297	+ winclosebody(w);
	298	+ winopenbody(w, OREAD);
	299	+ s = nil;
	300	+ na = 0;
	301	+ n = 0;
	302	+ for(;;){
	303	+ if(na < n+512){
	304	+ na += 1024;
	305	+ s = realloc(s, na+1);
	306	+ }
	307	+ m = Bread(w->body, s+n, na-n);
	308	+ if(m <= 0)
	309	+ break;
	310	+ n += m;
	311	+ }
	312	+ s[n] = 0;
	313	+ winclosebody(w);
	314	+ *np = n;
	315	+ return s;
	316	+}
	317	+
	318	+char*
	319	+winselection(Window *w)
	320	+{
	321	+ int fd, m, n;
	322	+ char *buf;
	323	+ char tmp[256];
	324	+
	325	+ fd = winopenfile1(w, "rdsel", OREAD);
	326	+ if(fd < 0)
	327	+ error("can't open rdsel: %r");
	328	+ n = 0;
	329	+ buf = nil;
	330	+ for(;;){
	331	+ m = read(fd, tmp, sizeof tmp);
	332	+ if(m <= 0)
	333	+ break;
	334	+ buf = erealloc(buf, n+m+1);
	335	+ memmove(buf+n, tmp, m);
	336	+ n += m;
	337	+ buf[n] = '\0';
	338	+ }
	339	+ close(fd);
	340	+ return buf;
	341	+}

acme/mkfile+10−0

@@ -0,0 +1,10 @@
	1	+</$objtype/mkfile
	2	+
	3	+none:VQ:
	4	+ echo mk all, install, clean, nuke, installall, update
	5	+
	6	+all install clean nuke installall update:V:
	7	+ @{cd bin/source; mk $target}
	8	+ @{cd mail/src; mk $target}
	9	+ @{cd news/src; mk $target}
	10	+ @{cd wiki/src; mk $target}

acme/news/guide+2−0

@@ -0,0 +1,2 @@
	1	+Local nntpfs
	2	+News comp.os.plan9

acme/news/src/6.out+0−0

Binary file not shown.

acme/news/src/8.out+0−0

Binary file not shown.

acme/news/src/mkfile+18−0

@@ -0,0 +1,18 @@
	1	+</$objtype/mkfile
	2	+
	3	+TARG=News
	4	+OFILES=\
	5	+ news.$O\
	6	+ util.$O\
	7	+ win.$O\
	8	+
	9	+HFILES=
	10	+
	11	+BIN=/acme/bin/$objtype
	12	+UPDATE=\
	13	+ mkfile\
	14	+ $HFILES\
	15	+ ${OFILES:%.$O=%.c}\
	16	+ ${TARG:%=/acme/bin/386/%}\
	17	+
	18	+</sys/src/cmd/mkone

acme/news/src/news.6+0−0

Binary file not shown.

acme/news/src/news.8+0−0

Binary file not shown.

acme/news/src/news.c+1007−0

@@ -0,0 +1,1007 @@
	1	+/*
	2	+ * Acme interface to nntpfs.
	3	+ */
	4	+#include <u.h>
	5	+#include <libc.h>
	6	+#include <bio.h>
	7	+#include <thread.h>
	8	+#include "win.h"
	9	+#include <ctype.h>
	10	+
	11	+int canpost;
	12	+int debug;
	13	+int nshow = 20;
	14	+
	15	+int lo; /* next message to look at in dir */
	16	+int hi; /* current hi message in dir */
	17	+char *dir = "/mnt/news";
	18	+char *group;
	19	+char *from;
	20	+
	21	+typedef struct Article Article;
	22	+struct Article {
	23	+ Ref;
	24	+ Article *prev;
	25	+ Article *next;
	26	+ Window *w;
	27	+ int n;
	28	+ int dead;
	29	+ int dirtied;
	30	+ int sayspost;
	31	+ int headers;
	32	+ int ispost;
	33	+};
	34	+
	35	+Article *mlist;
	36	+Window *root;
	37	+
	38	+int
	39	+cistrncmp(char a, char b, int n)
	40	+{
	41	+ while(n-- > 0){
	42	+ if(tolower(a++) != tolower(b++))
	43	+ return -1;
	44	+ }
	45	+ return 0;
	46	+}
	47	+
	48	+int
	49	+cistrcmp(char a, char b)
	50	+{
	51	+ for(;;){
	52	+ if(tolower(a) != tolower(b++))
	53	+ return -1;
	54	+ if(*a++ == 0)
	55	+ break;
	56	+ }
	57	+ return 0;
	58	+}
	59	+
	60	+char*
	61	+skipwhite(char *p)
	62	+{
	63	+ while(isspace(*p))
	64	+ p++;
	65	+ return p;
	66	+}
	67	+
	68	+int
	69	+gethi(void)
	70	+{
	71	+ Dir *d;
	72	+ int hi;
	73	+
	74	+ if((d = dirstat(dir)) == nil)
	75	+ return -1;
	76	+ hi = d->qid.vers;
	77	+ free(d);
	78	+ return hi;
	79	+}
	80	+
	81	+char*
	82	+fixfrom(char *s)
	83	+{
	84	+ char r, w;
	85	+
	86	+ s = estrdup(s);
	87	+ /* remove quotes */
	88	+ for(r=w=s; *r; r++)
	89	+ if(*r != '"')
	90	+ w++ = r;
	91	+ *w = '\0';
	92	+ return s;
	93	+}
	94	+
	95	+char *day[] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", };
	96	+char *mon[] = {
	97	+ "Jan", "Feb", "Mar", "Apr",
	98	+ "May", "Jun", "Jul", "Aug",
	99	+ "Sep", "Oct", "Nov", "Dec",
	100	+};
	101	+
	102	+char*
	103	+fixdate(char *s)
	104	+{
	105	+ char f[10], m, t, wd, tmp[40];
	106	+ int d, i, j, nf, hh, mm;
	107	+
	108	+ nf = tokenize(s, f, nelem(f));
	109	+
	110	+ wd = nil;
	111	+ d = 0;
	112	+ m = nil;
	113	+ t = nil;
	114	+ for(i=0; i<nf; i++){
	115	+ for(j=0; j<7; j++)
	116	+ if(cistrncmp(day[j], f[i], 3)==0)
	117	+ wd = day[j];
	118	+ for(j=0; j<12; j++)
	119	+ if(cistrncmp(mon[j], f[i], 3)==0)
	120	+ m = mon[j];
	121	+ j = atoi(f[i]);
	122	+ if(1 <= j && j <= 31 && d != 0)
	123	+ d = j;
	124	+ if(strchr(f[i], ':'))
	125	+ t = f[i];
	126	+ }
	127	+
	128	+ if(d==0 \|\| wd==nil \|\| m==nil \|\| t==nil)
	129	+ return nil;
	130	+
	131	+ hh = strtol(t, 0, 10);
	132	+ mm = strtol(strchr(t, ':')+1, 0, 10);
	133	+ sprint(tmp, "%s %d %s %d:%.2d", wd, d, m, hh, mm);
	134	+ return estrdup(tmp);
	135	+}
	136	+
	137	+void
	138	+msgheadline(Biobuf bin, int n, Biobuf bout)
	139	+{
	140	+ char p, q;
	141	+ char *date;
	142	+ char *from;
	143	+ char *subject;
	144	+
	145	+ date = nil;
	146	+ from = nil;
	147	+ subject = nil;
	148	+ while(p = Brdline(bin, '\n')){
	149	+ p[Blinelen(bin)-1] = '\0';
	150	+ if((q = strchr(p, ':')) == nil)
	151	+ continue;
	152	+ *q++ = '\0';
	153	+ if(cistrcmp(p, "from")==0)
	154	+ from = fixfrom(skipwhite(q));
	155	+ else if(cistrcmp(p, "subject")==0)
	156	+ subject = estrdup(skipwhite(q));
	157	+ else if(cistrcmp(p, "date")==0)
	158	+ date = fixdate(skipwhite(q));
	159	+ }
	160	+
	161	+ Bprint(bout, "%d/\t%s", n, from ? from : "");
	162	+ if(date)
	163	+ Bprint(bout, "\t%s", date);
	164	+ if(subject)
	165	+ Bprint(bout, "\n\t%s", subject);
	166	+ Bprint(bout, "\n");
	167	+
	168	+ free(date);
	169	+ free(from);
	170	+ free(subject);
	171	+}
	172	+
	173	+/*
	174	+ * Write the headers for at most nshow messages to b,
	175	+ * starting with hi and working down to lo.
	176	+ * Return number of first message not scanned.
	177	+ */
	178	+int
	179	+adddir(Biobuf *body, int hi, int lo, int nshow)
	180	+{
	181	+ char p, q, tmp[40];
	182	+ int i, n;
	183	+ Biobuf *b;
	184	+
	185	+ n = 0;
	186	+ for(i=hi; i>=lo && n<nshow; i--){
	187	+ sprint(tmp, "%d", i);
	188	+ p = estrstrdup(dir, tmp);
	189	+ if(access(p, OREAD) < 0){
	190	+ free(p);
	191	+ break;
	192	+ }
	193	+ q = estrstrdup(p, "/header");
	194	+ free(p);
	195	+ b = Bopen(q, OREAD);
	196	+ free(q);
	197	+ if(b == nil)
	198	+ continue;
	199	+ msgheadline(b, i, body);
	200	+ Bterm(b);
	201	+ n++;
	202	+ }
	203	+ return i;
	204	+}
	205	+
	206	+/*
	207	+ * Show the first nshow messages in the window.
	208	+ * This depends on nntpfs presenting contiguously
	209	+ * numbered directories, and on the qid version being
	210	+ * the topmost numbered directory.
	211	+ */
	212	+void
	213	+dirwindow(Window *w)
	214	+{
	215	+ if((hi=gethi()) < 0)
	216	+ return;
	217	+
	218	+ if(w->data < 0)
	219	+ w->data = winopenfile(w, "data");
	220	+
	221	+ fprint(w->ctl, "dirty\n");
	222	+
	223	+ winopenbody(w, OWRITE);
	224	+ lo = adddir(w->body, hi, 0, nshow);
	225	+ winclean(w);
	226	+}
	227	+
	228	+/* return 1 if handled, 0 otherwise */
	229	+static int
	230	+iscmd(char s, char cmd)
	231	+{
	232	+ int len;
	233	+
	234	+ len = strlen(cmd);
	235	+ return strncmp(s, cmd, len)==0 && (s[len]=='\0' \|\| s[len]==' ' \|\| s[len]=='\t' \|\| s[len]=='\n');
	236	+}
	237	+
	238	+static char*
	239	+skip(char s, char cmd)
	240	+{
	241	+ s += strlen(cmd);
	242	+ while(s==' ' \|\| s=='\t' \|\| *s=='\n')
	243	+ s++;
	244	+ return s;
	245	+}
	246	+
	247	+void
	248	+unlink(Article *m)
	249	+{
	250	+ if(mlist == m)
	251	+ mlist = m->next;
	252	+
	253	+ if(m->next)
	254	+ m->next->prev = m->prev;
	255	+ if(m->prev)
	256	+ m->prev->next = m->next;
	257	+ m->next = m->prev = nil;
	258	+}
	259	+
	260	+int mesgopen(char*);
	261	+int fillmesgwindow(int, Article*);
	262	+Article *newpost(void);
	263	+void replywindow(Article*);
	264	+void mesgpost(Article*);
	265	+
	266	+/*
	267	+ * Depends on d.qid.vers being highest numbered message in dir.
	268	+ */
	269	+void
	270	+acmetimer(Article m, Window w)
	271	+{
	272	+ Biobuf *b;
	273	+ Dir *d;
	274	+
	275	+ assert(m==nil && w==root);
	276	+
	277	+ if((d = dirstat(dir))==nil \| hi==d->qid.vers){
	278	+ free(d);
	279	+ return;
	280	+ }
	281	+
	282	+ if(w->data < 0)
	283	+ w->data = winopenfile(w, "data");
	284	+ if(winsetaddr(w, "0", 0))
	285	+ write(w->data, "", 0);
	286	+
	287	+ b = emalloc(sizeof(*b));
	288	+ Binit(b, w->data, OWRITE);
	289	+ adddir(b, d->qid.vers, hi+1, d->qid.vers);
	290	+ hi = d->qid.vers;
	291	+ Bterm(b);
	292	+ free(b);
	293	+ free(d);
	294	+ winselect(w, "0,.", 0);
	295	+}
	296	+
	297	+int
	298	+acmeload(Article, Window, char *s)
	299	+{
	300	+ int nopen;
	301	+
	302	+//fprint(2, "load %s\n", s);
	303	+
	304	+ nopen = 0;
	305	+ while(*s){
	306	+ /* skip directory name */
	307	+ if(strncmp(s, dir, strlen(dir))==0)
	308	+ s += strlen(dir);
	309	+ nopen += mesgopen(s);
	310	+ if((s = strchr(s, '\n')) == nil)
	311	+ break;
	312	+ s = skip(s, "");
	313	+ }
	314	+ return nopen;
	315	+}
	316	+
	317	+int
	318	+acmecmd(Article m, Window w, char *s)
	319	+{
	320	+ int n;
	321	+ Biobuf *b;
	322	+
	323	+//fprint(2, "cmd %s\n", s);
	324	+
	325	+ s = skip(s, "");
	326	+
	327	+ if(iscmd(s, "Del")){
	328	+ if(m == nil){ /* don't close dir until messages close */
	329	+ if(mlist != nil){
	330	+ ctlprint(mlist->w->ctl, "show\n");
	331	+ return 1;
	332	+ }
	333	+ if(windel(w, 0))
	334	+ threadexitsall(nil);
	335	+ return 1;
	336	+ }else{
	337	+ if(windel(w, 0))
	338	+ m->dead = 1;
	339	+ return 1;
	340	+ }
	341	+ }
	342	+ if(m==nil && iscmd(s, "More")){
	343	+ s = skip(s, "More");
	344	+ if(n = atoi(s))
	345	+ nshow = n;
	346	+
	347	+ if(w->data < 0)
	348	+ w->data = winopenfile(w, "data");
	349	+ winsetaddr(w, "$", 1);
	350	+
	351	+ fprint(w->ctl, "dirty\n");
	352	+
	353	+ b = emalloc(sizeof(*b));
	354	+ Binit(b, w->data, OWRITE);
	355	+ lo = adddir(b, lo, 0, nshow);
	356	+ Bterm(b);
	357	+ free(b);
	358	+ winclean(w);
	359	+ winsetaddr(w, ".,", 0);
	360	+ }
	361	+ if(m!=nil && !m->ispost && iscmd(s, "Headers")){
	362	+ m->headers = !m->headers;
	363	+ fillmesgwindow(-1, m);
	364	+ return 1;
	365	+ }
	366	+ if(iscmd(s, "Newpost")){
	367	+ m = newpost();
	368	+ winopenbody(m->w, OWRITE);
	369	+ Bprint(m->w->body, "%s\nsubject: \n\n", group);
	370	+ winclean(m->w);
	371	+ winselect(m->w, "$", 0);
	372	+ return 1;
	373	+ }
	374	+ if(m!=nil && !m->ispost && iscmd(s, "Reply")){
	375	+ replywindow(m);
	376	+ return 1;
	377	+ }
	378	+// if(m!=nil && iscmd(s, "Replymail")){
	379	+// fprint(2, "no replymail yet\n");
	380	+// return 1;
	381	+// }
	382	+ if(iscmd(s, "Post")){
	383	+ mesgpost(m);
	384	+ return 1;
	385	+ }
	386	+ return 0;
	387	+}
	388	+
	389	+void
	390	+acmeevent(Article m, Window w, Event *e)
	391	+{
	392	+ Event ea, e2, *eq;
	393	+ char s, t, *buf;
	394	+ int na;
	395	+ //int n;
	396	+ //ulong q0, q1;
	397	+
	398	+ switch(e->c1){ /* origin of action */
	399	+ default:
	400	+ Unknown:
	401	+ fprint(2, "unknown message %c%c\n", e->c1, e->c2);
	402	+ break;
	403	+
	404	+ case 'T': /* bogus timer event! */
	405	+ acmetimer(m, w);
	406	+ break;
	407	+
	408	+ case 'F': /* generated by our actions; ignore */
	409	+ break;
	410	+
	411	+ case 'E': /* write to body or tag; can't affect us */
	412	+ break;
	413	+
	414	+ case 'K': /* type away; we don't care */
	415	+ if(m && (e->c2 == 'I' \|\| e->c2 == 'D')){
	416	+ m->dirtied = 1;
	417	+ if(!m->sayspost){
	418	+ wintagwrite(w, "Post ", 5);
	419	+ m->sayspost = 1;
	420	+ }
	421	+ }
	422	+ break;
	423	+
	424	+ case 'M': /* mouse event */
	425	+ switch(e->c2){ /* type of action */
	426	+ case 'x': /* mouse: button 2 in tag */
	427	+ case 'X': /* mouse: button 2 in body */
	428	+ ea = nil;
	429	+ //e2 = nil;
	430	+ s = e->b;
	431	+ if(e->flag & 2){ /* null string with non-null expansion */
	432	+ e2 = recvp(w->cevent);
	433	+ if(e->nb==0)
	434	+ s = e2->b;
	435	+ }
	436	+ if(e->flag & 8){ /* chorded argument */
	437	+ ea = recvp(w->cevent); /* argument */
	438	+ na = ea->nb;
	439	+ recvp(w->cevent); /* ignore origin */
	440	+ }else
	441	+ na = 0;
	442	+
	443	+ /* append chorded arguments */
	444	+ if(na){
	445	+ t = emalloc(strlen(s)+1+na+1);
	446	+ sprint(t, "%s %s", s, ea->b);
	447	+ s = t;
	448	+ }
	449	+ /* if it's a known command, do it */
	450	+ /* if it's a long message, it can't be for us anyway */
	451	+ // DPRINT(2, "exec: %s\n", s);
	452	+ if(!acmecmd(m, w, s)) /* send it back */
	453	+ winwriteevent(w, e);
	454	+ if(na)
	455	+ free(s);
	456	+ break;
	457	+
	458	+ case 'l': /* mouse: button 3 in tag */
	459	+ case 'L': /* mouse: button 3 in body */
	460	+ //buf = nil;
	461	+ eq = e;
	462	+ if(e->flag & 2){
	463	+ e2 = recvp(w->cevent);
	464	+ eq = e2;
	465	+ }
	466	+ s = eq->b;
	467	+ if(eq->q1>eq->q0 && eq->nb==0){
	468	+ buf = emalloc((eq->q1-eq->q0)*UTFmax+1);
	469	+ winread(w, eq->q0, eq->q1, buf);
	470	+ s = buf;
	471	+ }
	472	+ if(!acmeload(m, w, s))
	473	+ winwriteevent(w, e);
	474	+ break;
	475	+
	476	+ case 'i': /* mouse: text inserted in tag */
	477	+ case 'd': /* mouse: text deleted from tag */
	478	+ break;
	479	+
	480	+ case 'I': /* mouse: text inserted in body */
	481	+ case 'D': /* mouse: text deleted from body */
	482	+ if(m == nil)
	483	+ break;
	484	+
	485	+ m->dirtied = 1;
	486	+ if(!m->sayspost){
	487	+ wintagwrite(w, "Post ", 5);
	488	+ m->sayspost = 1;
	489	+ }
	490	+ break;
	491	+
	492	+ default:
	493	+ goto Unknown;
	494	+ }
	495	+ }
	496	+}
	497	+
	498	+void
	499	+dirthread(void *v)
	500	+{
	501	+ Event *e;
	502	+ Window *w;
	503	+
	504	+ w = v;
	505	+ while(e = recvp(w->cevent))
	506	+ acmeevent(nil, w, e);
	507	+
	508	+ threadexitsall(nil);
	509	+}
	510	+
	511	+void
	512	+mesgthread(void *v)
	513	+{
	514	+ Event *e;
	515	+ Article *m;
	516	+
	517	+ m = v;
	518	+ while(!m->dead && (e = recvp(m->w->cevent)))
	519	+ acmeevent(m, m->w, e);
	520	+
	521	+//fprint(2, "msg %p exits\n", m);
	522	+ unlink(m);
	523	+ free(m->w);
	524	+ free(m);
	525	+ threadexits(nil);
	526	+}
	527	+
	528	+/*
	529	+Xref: news.research.att.com comp.os.plan9:7360
	530	+Newsgroups: comp.os.plan9
	531	+Path: news.research.att.com!batch0!uunet!ffx.uu.net!finch!news.mindspring.net!newsfeed.mathworks.com!fu-berlin.de!server1.netnews.ja.net!hgmp.mrc.ac.uk!pegasus.csx.cam.ac.uk!bath.ac.uk!ccsdhd
	532	+From: Stephen Adam <saadam@bigpond.com>
	533	+Subject: Future of Plan9
	534	+Approved: plan9mod@bath.ac.uk
	535	+X-Newsreader: Microsoft Outlook Express 5.00.2014.211
	536	+X-Mimeole: Produced By Microsoft MimeOLE V5.00.2014.211
	537	+Sender: ccsdhd@bath.ac.uk (Dennis Davis)
	538	+Nntp-Posting-Date: Wed, 13 Dec 2000 21:28:45 EST
	539	+NNTP-Posting-Host: 203.54.121.233
	540	+Organization: Telstra BigPond Internet Services (http://www.bigpond.com)
	541	+X-Date: Wed, 13 Dec 2000 20:43:37 +1000
	542	+Lines: 12
	543	+Message-ID: <xbIZ5.157945$e5.114349@newsfeeds.bigpond.com>
	544	+References: <95pghu$3lf$1@news.fas.harvard.edu> <95ph36$3m9$1@news.fas.harvard.edu> <slrn980iic.u5q.mperrin@hcs.harvard.edu> <95png6$4ln$1@news.fas.harvard.edu> <95poqg$4rq$1@news.fas.harvard.edu> <slrn980vh8.2gb.myLastName@is07.fas.harvard.edu> <95q40h$66c$2@news.fas.harvard.edu> <95qjhu$8ke$1@news.fas.harvard.edu> <95riue$bu2$1@news.fas.harvard.edu> <95rnar$cbu$1@news.fas.harvard.edu>
	545	+X-Msmail-Priority: Normal
	546	+X-Trace: newsfeeds.bigpond.com 976703325 203.54.121.233 (Wed, 13 Dec 2000 21:28:45 EST)
	547	+X-Priority: 3
	548	+Date: Wed, 13 Dec 2000 10:49:50 GMT
	549	+*/
	550	+
	551	+char *skipheader[] =
	552	+{
	553	+ "x-",
	554	+ "path:",
	555	+ "xref:",
	556	+ "approved:",
	557	+ "sender:",
	558	+ "nntp-",
	559	+ "organization:",
	560	+ "lines:",
	561	+ "message-id:",
	562	+ "references:",
	563	+ "reply-to:",
	564	+ "mime-",
	565	+ "content-",
	566	+};
	567	+
	568	+int
	569	+fillmesgwindow(int fd, Article *m)
	570	+{
	571	+ Biobuf *b;
	572	+ char *p, tmp[40];
	573	+ int i, inhdr, copy, xfd;
	574	+ Window *w;
	575	+
	576	+ xfd = -1;
	577	+ if(fd == -1){
	578	+ sprint(tmp, "%d/article", m->n);
	579	+ p = estrstrdup(dir, tmp);
	580	+ if((xfd = open(p, OREAD)) < 0){
	581	+ free(p);
	582	+ return 0;
	583	+ }
	584	+ free(p);
	585	+ fd = xfd;
	586	+ }
	587	+
	588	+ w = m->w;
	589	+ if(w->data < 0)
	590	+ w->data = winopenfile(w, "data");
	591	+ if(winsetaddr(w, ",", 0))
	592	+ write(w->data, "", 0);
	593	+
	594	+ winopenbody(m->w, OWRITE);
	595	+ b = emalloc(sizeof(*b));
	596	+ Binit(b, fd, OREAD);
	597	+
	598	+ inhdr = 1;
	599	+ copy = 1;
	600	+ while(p = Brdline(b, '\n')){
	601	+ if(Blinelen(b)==1)
	602	+ inhdr = 0, copy=1;
	603	+ if(inhdr && !isspace(p[0])){
	604	+ copy = 1;
	605	+ if(!m->headers){
	606	+ if(cistrncmp(p, "from:", 5)==0){
	607	+ p[Blinelen(b)-1] = '\0';
	608	+ p = fixfrom(skip(p, "from:"));
	609	+ Bprint(m->w->body, "From: %s\n", p);
	610	+ free(p);
	611	+ copy = 0;
	612	+ continue;
	613	+ }
	614	+ for(i=0; i<nelem(skipheader); i++)
	615	+ if(cistrncmp(p, skipheader[i], strlen(skipheader[i]))==0)
	616	+ copy=0;
	617	+ }
	618	+ }
	619	+ if(copy)
	620	+ Bwrite(m->w->body, p, Blinelen(b));
	621	+ }
	622	+ Bterm(b);
	623	+ free(b);
	624	+ winclean(m->w);
	625	+ if(xfd != -1)
	626	+ close(xfd);
	627	+ return 1;
	628	+}
	629	+
	630	+Article*
	631	+newpost(void)
	632	+{
	633	+ Article *m;
	634	+ char *p, tmp[40];
	635	+ static int nnew;
	636	+
	637	+ m = emalloc(sizeof *m);
	638	+ sprint(tmp, "Post%d", ++nnew);
	639	+ p = estrstrdup(dir, tmp);
	640	+
	641	+ m->w = newwindow();
	642	+ proccreate(wineventproc, m->w, STACK);
	643	+ winname(m->w, p);
	644	+ wintagwrite(m->w, "Post ", 5);
	645	+ m->sayspost = 1;
	646	+ m->ispost = 1;
	647	+ threadcreate(mesgthread, m, STACK);
	648	+
	649	+ if(mlist){
	650	+ m->next = mlist;
	651	+ mlist->prev = m;
	652	+ }
	653	+ mlist = m;
	654	+ return m;
	655	+}
	656	+
	657	+void
	658	+replywindow(Article *m)
	659	+{
	660	+ Biobuf *b;
	661	+ char p, ep, *q, tmp[40];
	662	+ int fd, copy;
	663	+ Article *reply;
	664	+
	665	+ sprint(tmp, "%d/article", m->n);
	666	+ p = estrstrdup(dir, tmp);
	667	+ if((fd = open(p, OREAD)) < 0){
	668	+ free(p);
	669	+ return;
	670	+ }
	671	+ free(p);
	672	+
	673	+ reply = newpost();
	674	+ winopenbody(reply->w, OWRITE);
	675	+ b = emalloc(sizeof(*b));
	676	+ Binit(b, fd, OREAD);
	677	+ copy = 0;
	678	+ while(p = Brdline(b, '\n')){
	679	+ if(Blinelen(b)==1)
	680	+ break;
	681	+ ep = p+Blinelen(b);
	682	+ if(!isspace(*p)){
	683	+ copy = 0;
	684	+ if(cistrncmp(p, "newsgroups:", 11)==0){
	685	+ for(q=p+11; *q!='\n'; q++)
	686	+ if(*q==',')
	687	+ *q = ' ';
	688	+ copy = 1;
	689	+ }else if(cistrncmp(p, "subject:", 8)==0){
	690	+ if(!strstr(p, " Re:") && !strstr(p, " RE:") && !strstr(p, " re:")){
	691	+ p = skip(p, "subject:");
	692	+ ep[-1] = '\0';
	693	+ Bprint(reply->w->body, "Subject: Re: %s\n", p);
	694	+ }else
	695	+ copy = 1;
	696	+ }else if(cistrncmp(p, "message-id:", 11)==0){
	697	+ Bprint(reply->w->body, "References: ");
	698	+ p += 11;
	699	+ copy = 1;
	700	+ }
	701	+ }
	702	+ if(copy)
	703	+ Bwrite(reply->w->body, p, ep-p);
	704	+ }
	705	+ Bterm(b);
	706	+ close(fd);
	707	+ free(b);
	708	+ Bprint(reply->w->body, "\n");
	709	+ winclean(reply->w);
	710	+ winselect(reply->w, "$", 0);
	711	+}
	712	+
	713	+char*
	714	+skipbl(char s, char e)
	715	+{
	716	+ while(s < e){
	717	+ if(s!=' ' && s!='\t' && *s!=',')
	718	+ break;
	719	+ s++;
	720	+ }
	721	+ return s;
	722	+}
	723	+
	724	+char*
	725	+findbl(char s, char e)
	726	+{
	727	+ while(s < e){
	728	+ if(s==' ' \|\| s=='\t' \|\| *s==',')
	729	+ break;
	730	+ s++;
	731	+ }
	732	+ return s;
	733	+}
	734	+
	735	+/*
	736	+ * comma-separate possibly blank-separated strings in line; e points before newline
	737	+ */
	738	+void
	739	+commas(char s, char e)
	740	+{
	741	+ char *t;
	742	+
	743	+ /* may have initial blanks */
	744	+ s = skipbl(s, e);
	745	+ while(s < e){
	746	+ s = findbl(s, e);
	747	+ if(s == e)
	748	+ break;
	749	+ t = skipbl(s, e);
	750	+ if(t == e) /* no more words */
	751	+ break;
	752	+ /* patch comma */
	753	+ *s++ = ',';
	754	+ while(s < t)
	755	+ *s++ = ' ';
	756	+ }
	757	+}
	758	+void
	759	+mesgpost(Article *m)
	760	+{
	761	+ Biobuf *b;
	762	+ char p, ep;
	763	+ int isfirst, ishdr, havegroup, havefrom;
	764	+
	765	+ p = estrstrdup(dir, "post");
	766	+ if((b = Bopen(p, OWRITE)) == nil){
	767	+ fprint(2, "cannot open %s: %r\n", p);
	768	+ free(p);
	769	+ return;
	770	+ }
	771	+ free(p);
	772	+
	773	+ winopenbody(m->w, OREAD);
	774	+ ishdr = 1;
	775	+ isfirst = 1;
	776	+ havegroup = havefrom = 0;
	777	+ while(p = Brdline(m->w->body, '\n')){
	778	+ ep = p+Blinelen(m->w->body);
	779	+ if(ishdr && p+1==ep){
	780	+ if(!havegroup)
	781	+ Bprint(b, "Newsgroups: %s\n", group);
	782	+ if(!havefrom)
	783	+ Bprint(b, "From: %s\n", from);
	784	+ ishdr = 0;
	785	+ }
	786	+ if(ishdr){
	787	+ ep[-1] = '\0';
	788	+ if(isfirst && strchr(p, ':')==0){ /* group list */
	789	+ commas(p, ep);
	790	+ Bprint(b, "newsgroups: %s\n", p);
	791	+ havegroup = 1;
	792	+ isfirst = 0;
	793	+ continue;
	794	+ }
	795	+ if(cistrncmp(p, "newsgroup:", 10)==0){
	796	+ commas(skip(p, "newsgroup:"), ep);
	797	+ Bprint(b, "newsgroups: %s\n", skip(p, "newsgroup:"));
	798	+ havegroup = 1;
	799	+ continue;
	800	+ }
	801	+ if(cistrncmp(p, "newsgroups:", 11)==0){
	802	+ commas(skip(p, "newsgroups:"), ep);
	803	+ Bprint(b, "newsgroups: %s\n", skip(p, "newsgroups:"));
	804	+ havegroup = 1;
	805	+ continue;
	806	+ }
	807	+ if(cistrncmp(p, "from:", 5)==0)
	808	+ havefrom = 1;
	809	+ ep[-1] = '\n';
	810	+ }
	811	+ Bwrite(b, p, ep-p);
	812	+ }
	813	+ winclosebody(m->w);
	814	+ Bflush(b);
	815	+ if(write(Bfildes(b), "", 0) == 0)
	816	+ winclean(m->w);
	817	+ else
	818	+ fprint(2, "post: %r\n");
	819	+ Bterm(b);
	820	+}
	821	+
	822	+int
	823	+mesgopen(char *s)
	824	+{
	825	+ char *p, tmp[40];
	826	+ int fd, n;
	827	+ Article *m;
	828	+
	829	+ n = atoi(s);
	830	+ if(n==0)
	831	+ return 0;
	832	+
	833	+ for(m=mlist; m; m=m->next){
	834	+ if(m->n == n){
	835	+ ctlprint(m->w->ctl, "show\n");
	836	+ return 1;
	837	+ }
	838	+ }
	839	+
	840	+ sprint(tmp, "%d/article", n);
	841	+ p = estrstrdup(dir, tmp);
	842	+ if((fd = open(p, OREAD)) < 0){
	843	+ free(p);
	844	+ return 0;
	845	+ }
	846	+
	847	+ m = emalloc(sizeof(*m));
	848	+ m->w = newwindow();
	849	+ m->n = n;
	850	+ proccreate(wineventproc, m->w, STACK);
	851	+ p[strlen(p)-strlen("article")] = '\0';
	852	+ winname(m->w, p);
	853	+ if(canpost)
	854	+ wintagwrite(m->w, "Reply ", 6);
	855	+ wintagwrite(m->w, "Headers ", 8);
	856	+
	857	+ free(p);
	858	+ if(mlist){
	859	+ m->next = mlist;
	860	+ mlist->prev = m;
	861	+ }
	862	+ mlist = m;
	863	+ threadcreate(mesgthread, m, STACK);
	864	+
	865	+ fillmesgwindow(fd, m);
	866	+ close(fd);
	867	+ windormant(m->w);
	868	+ return 1;
	869	+}
	870	+
	871	+void
	872	+usage(void)
	873	+{
	874	+ fprint(2, "usage: News [-d /mnt/news] comp.os.plan9\n");
	875	+ exits("usage");
	876	+}
	877	+
	878	+void
	879	+timerproc(void *v)
	880	+{
	881	+ Event e;
	882	+ Window *w;
	883	+
	884	+ memset(&e, 0, sizeof e);
	885	+ e.c1 = 'T';
	886	+ w = v;
	887	+
	888	+ for(;;){
	889	+ sleep(60*1000);
	890	+ sendp(w->cevent, &e);
	891	+ }
	892	+}
	893	+
	894	+char*
	895	+findfrom(void)
	896	+{
	897	+ char p, u;
	898	+ Biobuf *b;
	899	+
	900	+ u = getuser();
	901	+ if(u==nil)
	902	+ return "glenda";
	903	+
	904	+ p = estrstrstrdup("/usr/", u, "/lib/newsfrom");
	905	+ b = Bopen(p, OREAD);
	906	+ free(p);
	907	+ if(b){
	908	+ p = Brdline(b, '\n');
	909	+ if(p){
	910	+ p[Blinelen(b)-1] = '\0';
	911	+ p = estrdup(p);
	912	+ Bterm(b);
	913	+ return p;
	914	+ }
	915	+ Bterm(b);
	916	+ }
	917	+
	918	+ p = estrstrstrdup("/mail/box/", u, "/headers");
	919	+ b = Bopen(p, OREAD);
	920	+ free(p);
	921	+ if(b){
	922	+ while(p = Brdline(b, '\n')){
	923	+ p[Blinelen(b)-1] = '\0';
	924	+ if(cistrncmp(p, "from:", 5)==0){
	925	+ p = estrdup(skip(p, "from:"));
	926	+ Bterm(b);
	927	+ return p;
	928	+ }
	929	+ }
	930	+ Bterm(b);
	931	+ }
	932	+
	933	+ return u;
	934	+}
	935	+
	936	+void
	937	+threadmain(int argc, char **argv)
	938	+{
	939	+ char p, q;
	940	+ Dir *d;
	941	+ Window *w;
	942	+
	943	+ ARGBEGIN{
	944	+ case 'D':
	945	+ debug++;
	946	+ break;
	947	+ case 'd':
	948	+ dir = EARGF(usage());
	949	+ break;
	950	+ default:
	951	+ usage();
	952	+ break;
	953	+ }ARGEND
	954	+
	955	+ if(argc != 1)
	956	+ usage();
	957	+
	958	+ from = findfrom();
	959	+
	960	+ group = estrdup(argv[0]); /* someone will be cute */
	961	+ while(q=strchr(group, '/'))
	962	+ *q = '.';
	963	+
	964	+ p = estrdup(argv[0]);
	965	+ while(q=strchr(p, '.'))
	966	+ *q = '/';
	967	+ p = estrstrstrdup(dir, "/", p);
	968	+ cleanname(p);
	969	+
	970	+ if((d = dirstat(p)) == nil){ /* maybe it is a new group */
	971	+ if((d = dirstat(dir)) == nil){
	972	+ fprint(2, "dirstat(%s) fails: %r\n", dir);
	973	+ threadexitsall(nil);
	974	+ }
	975	+ if((d->mode&DMDIR)==0){
	976	+ fprint(2, "%s not a directory\n", dir);
	977	+ threadexitsall(nil);
	978	+ }
	979	+ free(d);
	980	+ if((d = dirstat(p)) == nil){
	981	+ fprint(2, "stat %s: %r\n", p);
	982	+ threadexitsall(nil);
	983	+ }
	984	+ }
	985	+ if((d->mode&DMDIR)==0){
	986	+ fprint(2, "%s not a directory\n", dir);
	987	+ threadexitsall(nil);
	988	+ }
	989	+ free(d);
	990	+ dir = estrstrdup(p, "/");
	991	+
	992	+ q = estrstrdup(dir, "post");
	993	+ canpost = access(q, AWRITE)==0;
	994	+
	995	+ w = newwindow();
	996	+ root = w;
	997	+ proccreate(wineventproc, w, STACK);
	998	+ proccreate(timerproc, w, STACK);
	999	+
	1000	+ winname(w, dir);
	1001	+ if(canpost)
	1002	+ wintagwrite(w, "Newpost ", 8);
	1003	+ wintagwrite(w, "More ", 5);
	1004	+ dirwindow(w);
	1005	+ threadcreate(dirthread, w, STACK);
	1006	+ threadexits(nil);
	1007	+}

acme/news/src/util.6+0−0

Binary file not shown.

acme/news/src/util.8+0−0

Binary file not shown.

acme/news/src/util.c+106−0

@@ -0,0 +1,106 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include "win.h"
	6	+
	7	+void*
	8	+emalloc(uint n)
	9	+{
	10	+ void *p;
	11	+
	12	+ p = malloc(n);
	13	+ if(p == nil)
	14	+ error("can't malloc: %r");
	15	+ memset(p, 0, n);
	16	+ return p;
	17	+}
	18	+
	19	+char*
	20	+estrdup(char *s)
	21	+{
	22	+ char *t;
	23	+
	24	+ t = emalloc(strlen(s)+1);
	25	+ strcpy(t, s);
	26	+ return t;
	27	+}
	28	+
	29	+char*
	30	+estrstrdup(char s, char t)
	31	+{
	32	+ char *u;
	33	+
	34	+ u = emalloc(strlen(s)+strlen(t)+1);
	35	+ strcpy(u, s);
	36	+ strcat(u, t);
	37	+ return u;
	38	+}
	39	+
	40	+char*
	41	+estrstrstrdup(char r, char s, char *t)
	42	+{
	43	+ char *u;
	44	+
	45	+ u = emalloc(strlen(r)+strlen(s)+strlen(t)+1);
	46	+ strcpy(u, r);
	47	+ strcat(u, s);
	48	+ strcat(u, t);
	49	+ return u;
	50	+}
	51	+
	52	+char*
	53	+eappend(char s, char sep, char *t)
	54	+{
	55	+ char *u;
	56	+
	57	+ if(t == nil)
	58	+ u = estrstrdup(s, sep);
	59	+ else{
	60	+ u = emalloc(strlen(s)+strlen(sep)+strlen(t)+1);
	61	+ strcpy(u, s);
	62	+ strcat(u, sep);
	63	+ strcat(u, t);
	64	+ }
	65	+ free(s);
	66	+ return u;
	67	+}
	68	+
	69	+char*
	70	+egrow(char s, char sep, char *t)
	71	+{
	72	+ s = eappend(s, sep, t);
	73	+ free(t);
	74	+ return s;
	75	+}
	76	+
	77	+void
	78	+error(char *fmt, ...)
	79	+{
	80	+ va_list arg;
	81	+ char buf[256];
	82	+ Fmt f;
	83	+
	84	+ fmtfdinit(&f, 2, buf, sizeof buf);
	85	+ fmtprint(&f, "%s: ", argv0);
	86	+ va_start(arg, fmt);
	87	+ fmtprint(&f, fmt, arg);
	88	+ va_end(arg);
	89	+ fmtprint(&f, "\n");
	90	+ fmtfdflush(&f);
	91	+ threadexitsall(buf);
	92	+}
	93	+
	94	+void
	95	+ctlprint(int fd, char *fmt, ...)
	96	+{
	97	+ int n;
	98	+ va_list arg;
	99	+ char buf[256];
	100	+
	101	+ va_start(arg, fmt);
	102	+ n = vfprint(fd, fmt, arg);
	103	+ va_end(arg);
	104	+ if(n < 0)
	105	+ error("control file write(%s) error: %r", buf);
	106	+}

acme/news/src/win.6+0−0

Binary file not shown.

acme/news/src/win.8+0−0

Binary file not shown.

acme/news/src/win.c+324−0

@@ -0,0 +1,324 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+#include "win.h"
	6	+
	7	+Window*
	8	+newwindow(void)
	9	+{
	10	+ char buf[12];
	11	+ Window *w;
	12	+
	13	+ w = emalloc(sizeof(Window));
	14	+ w->ctl = open("/mnt/wsys/new/ctl", ORDWR\|OCEXEC);
	15	+ if(w->ctl<0 \|\| read(w->ctl, buf, 12)!=12)
	16	+ error("can't open window ctl file: %r");
	17	+ ctlprint(w->ctl, "noscroll\n");
	18	+ w->id = atoi(buf);
	19	+ w->event = winopenfile(w, "event");
	20	+ w->addr = -1; /* will be opened when needed */
	21	+ w->body = nil;
	22	+ w->data = -1;
	23	+ w->cevent = chancreate(sizeof(Event*), 0);
	24	+ if(w->cevent == nil)
	25	+ error("cevent is nil: %r");
	26	+ return w;
	27	+}
	28	+
	29	+void
	30	+winsetdump(Window w, char dir, char *cmd)
	31	+{
	32	+ if(dir != nil)
	33	+ ctlprint(w->ctl, "dumpdir %s\n", dir);
	34	+ if(cmd != nil)
	35	+ ctlprint(w->ctl, "dump %s\n", cmd);
	36	+}
	37	+
	38	+void
	39	+wineventproc(void *v)
	40	+{
	41	+ Window *w;
	42	+ int i;
	43	+
	44	+ threadsetname("wineventproc");
	45	+ w = v;
	46	+ for(i=0; ; i++){
	47	+ if(i >= NEVENT)
	48	+ i = 0;
	49	+ wingetevent(w, &w->e[i]);
	50	+ sendp(w->cevent, &w->e[i]);
	51	+ }
	52	+}
	53	+
	54	+int
	55	+winopenfile(Window w, char f)
	56	+{
	57	+ char buf[64];
	58	+ int fd;
	59	+
	60	+ sprint(buf, "/mnt/wsys/%d/%s", w->id, f);
	61	+ fd = open(buf, ORDWR\|OCEXEC);
	62	+ if(fd < 0)
	63	+ error("can't open window file %s: %r", f);
	64	+ return fd;
	65	+}
	66	+
	67	+void
	68	+wintagwrite(Window w, char s, int n)
	69	+{
	70	+ int fd;
	71	+
	72	+ fd = winopenfile(w, "tag");
	73	+ if(write(fd, s, n) != n)
	74	+ error("tag write: %r");
	75	+ close(fd);
	76	+}
	77	+
	78	+void
	79	+winname(Window w, char s)
	80	+{
	81	+ ctlprint(w->ctl, "name %s\n", s);
	82	+}
	83	+
	84	+void
	85	+winopenbody(Window *w, int mode)
	86	+{
	87	+ char buf[256];
	88	+
	89	+ sprint(buf, "/mnt/wsys/%d/body", w->id);
	90	+ w->body = Bopen(buf, mode\|OCEXEC);
	91	+ if(w->body == nil)
	92	+ error("can't open window body file: %r");
	93	+}
	94	+
	95	+void
	96	+winclosebody(Window *w)
	97	+{
	98	+ if(w->body != nil){
	99	+ Bterm(w->body);
	100	+ w->body = nil;
	101	+ }
	102	+}
	103	+
	104	+void
	105	+winwritebody(Window w, char s, int n)
	106	+{
	107	+ if(w->body == nil)
	108	+ winopenbody(w, OWRITE);
	109	+ if(Bwrite(w->body, s, n) != n)
	110	+ error("write error to window: %r");
	111	+}
	112	+
	113	+int
	114	+wingetec(Window *w)
	115	+{
	116	+ if(w->nbuf == 0){
	117	+ w->nbuf = read(w->event, w->buf, sizeof w->buf);
	118	+ if(w->nbuf <= 0){
	119	+ /* probably because window has exited, and only called by wineventproc, so just shut down */
	120	+ threadexits(nil);
	121	+ }
	122	+ w->bufp = w->buf;
	123	+ }
	124	+ w->nbuf--;
	125	+ return *w->bufp++;
	126	+}
	127	+
	128	+int
	129	+wingeten(Window *w)
	130	+{
	131	+ int n, c;
	132	+
	133	+ n = 0;
	134	+ while('0'<=(c=wingetec(w)) && c<='9')
	135	+ n = n*10+(c-'0');
	136	+ if(c != ' ')
	137	+ error("event number syntax");
	138	+ return n;
	139	+}
	140	+
	141	+int
	142	+wingeter(Window w, char buf, int *nb)
	143	+{
	144	+ Rune r;
	145	+ int n;
	146	+
	147	+ r = wingetec(w);
	148	+ buf[0] = r;
	149	+ n = 1;
	150	+ if(r >= Runeself) {
	151	+ while(!fullrune(buf, n))
	152	+ buf[n++] = wingetec(w);
	153	+ chartorune(&r, buf);
	154	+ }
	155	+ *nb = n;
	156	+ return r;
	157	+}
	158	+
	159	+void
	160	+wingetevent(Window w, Event e)
	161	+{
	162	+ int i, nb;
	163	+
	164	+ e->c1 = wingetec(w);
	165	+ e->c2 = wingetec(w);
	166	+ e->q0 = wingeten(w);
	167	+ e->q1 = wingeten(w);
	168	+ e->flag = wingeten(w);
	169	+ e->nr = wingeten(w);
	170	+ if(e->nr > EVENTSIZE)
	171	+ error("event string too long");
	172	+ e->nb = 0;
	173	+ for(i=0; i<e->nr; i++){
	174	+ e->r[i] = wingeter(w, e->b+e->nb, &nb);
	175	+ e->nb += nb;
	176	+ }
	177	+ e->r[e->nr] = 0;
	178	+ e->b[e->nb] = 0;
	179	+ if(wingetec(w) != '\n')
	180	+ error("event syntax error");
	181	+}
	182	+
	183	+void
	184	+winwriteevent(Window w, Event e)
	185	+{
	186	+ fprint(w->event, "%c%c%d %d\n", e->c1, e->c2, e->q0, e->q1);
	187	+}
	188	+
	189	+static int
	190	+nrunes(char *s, int nb)
	191	+{
	192	+ int i, n;
	193	+ Rune r;
	194	+
	195	+ n = 0;
	196	+ for(i=0; i<nb; n++)
	197	+ i += chartorune(&r, s+i);
	198	+ return n;
	199	+}
	200	+
	201	+void
	202	+winread(Window w, uint q0, uint q1, char data)
	203	+{
	204	+ int m, n, nr;
	205	+ char buf[256];
	206	+
	207	+ if(w->addr < 0)
	208	+ w->addr = winopenfile(w, "addr");
	209	+ if(w->data < 0)
	210	+ w->data = winopenfile(w, "data");
	211	+ m = q0;
	212	+ while(m < q1){
	213	+ n = sprint(buf, "#%d", m);
	214	+ if(write(w->addr, buf, n) != n)
	215	+ error("error writing addr: %r");
	216	+ n = read(w->data, buf, sizeof buf);
	217	+ if(n <= 0)
	218	+ error("reading data: %r");
	219	+ nr = nrunes(buf, n);
	220	+ while(m+nr >q1){
	221	+ do; while(n>0 && (buf[--n]&0xC0)==0x80);
	222	+ --nr;
	223	+ }
	224	+ if(n == 0)
	225	+ break;
	226	+ memmove(data, buf, n);
	227	+ data += n;
	228	+ *data = 0;
	229	+ m += nr;
	230	+ }
	231	+}
	232	+
	233	+void
	234	+windormant(Window *w)
	235	+{
	236	+ if(w->addr >= 0){
	237	+ close(w->addr);
	238	+ w->addr = -1;
	239	+ }
	240	+ if(w->body != nil){
	241	+ Bterm(w->body);
	242	+ w->body = nil;
	243	+ }
	244	+ if(w->data >= 0){
	245	+ close(w->data);
	246	+ w->data = -1;
	247	+ }
	248	+}
	249	+
	250	+
	251	+int
	252	+windel(Window *w, int sure)
	253	+{
	254	+ if(sure)
	255	+ write(w->ctl, "delete\n", 7);
	256	+ else if(write(w->ctl, "del\n", 4) != 4)
	257	+ return 0;
	258	+ /* event proc will die due to read error from event file */
	259	+ windormant(w);
	260	+ close(w->ctl);
	261	+ w->ctl = -1;
	262	+ close(w->event);
	263	+ w->event = -1;
	264	+ return 1;
	265	+}
	266	+
	267	+void
	268	+winclean(Window *w)
	269	+{
	270	+ if(w->body)
	271	+ Bflush(w->body);
	272	+ ctlprint(w->ctl, "clean\n");
	273	+}
	274	+
	275	+int
	276	+winsetaddr(Window w, char addr, int errok)
	277	+{
	278	+ if(w->addr < 0)
	279	+ w->addr = winopenfile(w, "addr");
	280	+ if(write(w->addr, addr, strlen(addr)) < 0){
	281	+ if(!errok)
	282	+ error("error writing addr(%s): %r", addr);
	283	+ return 0;
	284	+ }
	285	+ return 1;
	286	+}
	287	+
	288	+int
	289	+winselect(Window w, char addr, int errok)
	290	+{
	291	+ if(winsetaddr(w, addr, errok)){
	292	+ ctlprint(w->ctl, "dot=addr\n");
	293	+ return 1;
	294	+ }
	295	+ return 0;
	296	+}
	297	+
	298	+char*
	299	+winreadbody(Window w, int np) /* can't use readfile because acme doesn't report the length */
	300	+{
	301	+ char *s;
	302	+ int m, na, n;
	303	+
	304	+ if(w->body != nil)
	305	+ winclosebody(w);
	306	+ winopenbody(w, OREAD);
	307	+ s = nil;
	308	+ na = 0;
	309	+ n = 0;
	310	+ for(;;){
	311	+ if(na < n+512){
	312	+ na += 1024;
	313	+ s = realloc(s, na+1);
	314	+ }
	315	+ m = Bread(w->body, s+n, na-n);
	316	+ if(m <= 0)
	317	+ break;
	318	+ n += m;
	319	+ }
	320	+ s[n] = 0;
	321	+ winclosebody(w);
	322	+ *np = n;
	323	+ return s;
	324	+}

acme/news/src/win.h+75−0

@@ -0,0 +1,75 @@
	1	+/* acme */
	2	+typedef struct Event Event;
	3	+typedef struct Window Window;
	4	+
	5	+enum
	6	+{
	7	+ STACK = 8192,
	8	+ EVENTSIZE = 256,
	9	+ NEVENT = 5,
	10	+};
	11	+
	12	+struct Event
	13	+{
	14	+ int c1;
	15	+ int c2;
	16	+ int q0;
	17	+ int q1;
	18	+ int flag;
	19	+ int nb;
	20	+ int nr;
	21	+ char b[EVENTSIZE*UTFmax+1];
	22	+ Rune r[EVENTSIZE+1];
	23	+};
	24	+
	25	+struct Window
	26	+{
	27	+ /* file descriptors */
	28	+ int ctl;
	29	+ int event;
	30	+ int addr;
	31	+ int data;
	32	+ Biobuf *body;
	33	+
	34	+ /* event input */
	35	+ char buf[512];
	36	+ char *bufp;
	37	+ int nbuf;
	38	+ Event e[NEVENT];
	39	+
	40	+ int dirtied;
	41	+ int id;
	42	+ int open;
	43	+ Channel cevent; / chan(Event) /
	44	+};
	45	+
	46	+extern Window* newwindow(void);
	47	+extern int winopenfile(Window, char);
	48	+extern void winopenbody(Window*, int);
	49	+extern void winclosebody(Window*);
	50	+extern void wintagwrite(Window, char, int);
	51	+extern void winname(Window, char);
	52	+extern void winwriteevent(Window, Event);
	53	+extern void winread(Window, uint, uint, char);
	54	+extern int windel(Window*, int);
	55	+extern void wingetevent(Window, Event);
	56	+extern void wineventproc(void*);
	57	+extern void winwritebody(Window, char, int);
	58	+extern void winclean(Window*);
	59	+extern int winselect(Window, char, int);
	60	+extern int winsetaddr(Window, char, int);
	61	+extern char* winreadbody(Window, int);
	62	+extern void windormant(Window*);
	63	+extern void winsetdump(Window, char, char*);
	64	+
	65	+extern char* readfile(char, char, int*);
	66	+extern void ctlprint(int, char*, ...);
	67	+extern void* emalloc(uint);
	68	+extern char* estrdup(char*);
	69	+extern char* estrstrdup(char, char);
	70	+extern char* estrstrstrdup(char, char, char*);
	71	+extern char* egrow(char, char, char*);
	72	+extern char* eappend(char, char, char*);
	73	+extern void error(char*, ...);
	74	+extern int tokenizec(char, char, int, char);
	75	+

acme/wiki/guide+3−0

@@ -0,0 +1,3 @@
	1	+Local 9fs wiki
	2	+# Local wikifs /sys/lib/wiki
	3	+Wiki /mnt/wiki

acme/wiki/src/6.out+0−0

Binary file not shown.

acme/wiki/src/8.out+0−0

Binary file not shown.

acme/wiki/src/awiki.h+114−0

@@ -0,0 +1,114 @@
	1	+#include <u.h>
	2	+#include <libc.h>
	3	+#include <bio.h>
	4	+#include <thread.h>
	5	+
	6	+/* acme */
	7	+typedef struct Event Event;
	8	+typedef struct Window Window;
	9	+
	10	+enum
	11	+{
	12	+ STACK = 8192,
	13	+ EVENTSIZE = 256,
	14	+ NEVENT = 5,
	15	+};
	16	+
	17	+struct Event
	18	+{
	19	+ int c1;
	20	+ int c2;
	21	+ int q0;
	22	+ int q1;
	23	+ int flag;
	24	+ int nb;
	25	+ int nr;
	26	+ char b[EVENTSIZE*UTFmax+1];
	27	+ Rune r[EVENTSIZE+1];
	28	+};
	29	+
	30	+struct Window
	31	+{
	32	+ /* file descriptors */
	33	+ int ctl;
	34	+ int event;
	35	+ int addr;
	36	+ int data;
	37	+ Biobuf *body;
	38	+
	39	+ /* event input */
	40	+ char buf[512];
	41	+ char *bufp;
	42	+ int nbuf;
	43	+ Event e[NEVENT];
	44	+
	45	+ int warned;
	46	+ int id;
	47	+ int open;
	48	+ Channel cevent; / chan(Event) /
	49	+};
	50	+
	51	+extern Window* newwindow(void);
	52	+extern int winopenfile(Window, char);
	53	+extern void winopenbody(Window*, int);
	54	+extern void winclosebody(Window*);
	55	+extern void wintagwrite(Window, char, int);
	56	+extern void winname(Window, char);
	57	+extern void winwriteevent(Window, Event);
	58	+extern void winread(Window, uint, uint, char);
	59	+extern int windel(Window*, int);
	60	+extern void wingetevent(Window, Event);
	61	+extern void wineventproc(void*);
	62	+extern void winwritebody(Window, char, int);
	63	+extern void winclean(Window*);
	64	+extern int winisdirty(Window*);
	65	+extern int winselect(Window, char, int);
	66	+extern int winsetaddr(Window, char, int);
	67	+extern char* winreadbody(Window, int);
	68	+extern void windormant(Window*);
	69	+extern void winsetdump(Window, char, char*);
	70	+
	71	+extern char* readfile(char, char, int*);
	72	+extern void ctlprint(int, char*, ...);
	73	+extern void* emalloc(uint);
	74	+extern char* estrdup(char*);
	75	+extern char* estrstrdup(char, char);
	76	+extern char* egrow(char, char, char*);
	77	+extern char* eappend(char, char, char*);
	78	+extern void error(char*, ...);
	79	+extern int tokenizec(char, char, int, char);
	80	+
	81	+typedef struct Treq Treq;
	82	+typedef struct Wiki Wiki;
	83	+
	84	+struct Treq {
	85	+ char *title;
	86	+ Channel c; / chan(int) */
	87	+};
	88	+
	89	+struct Wiki {
	90	+ QLock;
	91	+ int isnew;
	92	+ int special;
	93	+ char *arg;
	94	+ char *addr;
	95	+ int n;
	96	+ int dead;
	97	+ Window *win;
	98	+ ulong time;
	99	+ int linked;
	100	+ Wiki *next;
	101	+ Wiki *prev;
	102	+};
	103	+
	104	+extern int debug;
	105	+extern int mapfd;
	106	+extern char *email;
	107	+extern char *dir;
	108	+
	109	+void wikinew(char*);
	110	+int wikiopen(char, char);
	111	+int wikiput(Wiki*);
	112	+void wikiget(Wiki*);
	113	+int wikidiff(Wiki*);
	114	+

acme/wiki/src/main.6+0−0

Binary file not shown.

acme/wiki/src/main.8+0−0

Binary file not shown.

acme/wiki/src/main.c+60−0

@@ -0,0 +1,60 @@
	1	+#include "awiki.h"
	2	+
	3	+int debug;
	4	+int mapfd;
	5	+char *email;
	6	+char *dir;
	7	+
	8	+void
	9	+usage(void)
	10	+{
	11	+ fprint(2, "usage: Wiki [-e email] [dir]\n");
	12	+ exits("usage");
	13	+}
	14	+
	15	+void
	16	+threadmain(int argc, char **argv)
	17	+{
	18	+ char *s;
	19	+ Dir *d;
	20	+
	21	+ rfork(RFNAMEG);
	22	+ ARGBEGIN{
	23	+ case 'D':
	24	+ debug++;
	25	+ break;
	26	+ case 'e':
	27	+ email = EARGF(usage());
	28	+ break;
	29	+ default:
	30	+ usage();
	31	+ break;
	32	+ }ARGEND
	33	+
	34	+ if(argc > 1)
	35	+ usage();
	36	+ if(argc == 1)
	37	+ dir = argv[0];
	38	+ else
	39	+ dir = "/mnt/wiki";
	40	+
	41	+ if(chdir(dir) < 0){
	42	+ fprint(2, "chdir(%s) fails: %r\n", dir);
	43	+ threadexitsall(nil);
	44	+ }
	45	+
	46	+ if((mapfd = open("map", ORDWR)) < 0){
	47	+ fprint(2, "open(map): %r\n");
	48	+ threadexitsall(nil);
	49	+ }
	50	+
	51	+ if((d = dirstat("1")) == nil){
	52	+ fprint(2, "dirstat(%s/1) fails: %r\n", dir);
	53	+ threadexitsall(nil);
	54	+ }
	55	+ s = emalloc(strlen(d->name)+2);
	56	+ strcpy(s, d->name);
	57	+ strcat(s, "/");
	58	+ wikiopen(s, nil);
	59	+ threadexits(nil);
	60	+}

acme/wiki/src/mkfile+14−0

@@ -0,0 +1,14 @@
	1	+</$objtype/mkfile
	2	+
	3	+TARG=Wiki
	4	+
	5	+OFILES=\
	6	+ main.$O\
	7	+ util.$O\
	8	+ wiki.$O\
	9	+ win.$O\
	10	+
	11	+HFILES=awiki.h
	12	+BIN=../../bin/$objtype
	13	+
	14	+</sys/src/cmd/mkone

acme/wiki/src/util.6+0−0

Binary file not shown.

acme/wiki/src/util.8+0−0

Binary file not shown.

acme/wiki/src/util.c+89−0

@@ -0,0 +1,89 @@
	1	+#include "awiki.h"
	2	+
	3	+void*
	4	+emalloc(uint n)
	5	+{
	6	+ void *p;
	7	+
	8	+ p = malloc(n);
	9	+ if(p == nil)
	10	+ error("can't malloc: %r");
	11	+ memset(p, 0, n);
	12	+ return p;
	13	+}
	14	+
	15	+char*
	16	+estrdup(char *s)
	17	+{
	18	+ char *t;
	19	+
	20	+ t = emalloc(strlen(s)+1);
	21	+ strcpy(t, s);
	22	+ return t;
	23	+}
	24	+
	25	+char*
	26	+estrstrdup(char s, char t)
	27	+{
	28	+ char *u;
	29	+
	30	+ u = emalloc(strlen(s)+strlen(t)+1);
	31	+ strcpy(u, s);
	32	+ strcat(u, t);
	33	+ return u;
	34	+}
	35	+
	36	+char*
	37	+eappend(char s, char sep, char *t)
	38	+{
	39	+ char *u;
	40	+
	41	+ if(t == nil)
	42	+ u = estrstrdup(s, sep);
	43	+ else{
	44	+ u = emalloc(strlen(s)+strlen(sep)+strlen(t)+1);
	45	+ strcpy(u, s);
	46	+ strcat(u, sep);
	47	+ strcat(u, t);
	48	+ }
	49	+ free(s);
	50	+ return u;
	51	+}
	52	+
	53	+char*
	54	+egrow(char s, char sep, char *t)
	55	+{
	56	+ s = eappend(s, sep, t);
	57	+ free(t);
	58	+ return s;
	59	+}
	60	+
	61	+void
	62	+error(char *fmt, ...)
	63	+{
	64	+ int n;
	65	+ va_list arg;
	66	+ char buf[256];
	67	+
	68	+ fprint(2, "Wiki: ");
	69	+ va_start(arg, fmt);
	70	+ n = vseprint(buf, buf+sizeof buf, fmt, arg) - buf;
	71	+ va_end(arg);
	72	+ write(2, buf, n);
	73	+ write(2, "\n", 1);
	74	+ threadexitsall(buf);
	75	+}
	76	+
	77	+void
	78	+ctlprint(int fd, char *fmt, ...)
	79	+{
	80	+ int n;
	81	+ va_list arg;
	82	+ char buf[256];
	83	+
	84	+ va_start(arg, fmt);
	85	+ n = vseprint(buf, buf+sizeof buf, fmt, arg) - buf;
	86	+ va_end(arg);
	87	+ if(write(fd, buf, n) != n)
	88	+ error("control file write(%s) error: %r", buf);
	89	+}

acme/wiki/src/wiki.6+0−0

Binary file not shown.

acme/wiki/src/wiki.8+0−0

Binary file not shown.

acme/wiki/src/wiki.c+602−0

@@ -0,0 +1,602 @@
	1	+#include "awiki.h"
	2	+
	3	+Wiki *wlist;
	4	+
	5	+void
	6	+link(Wiki *w)
	7	+{
	8	+ if(w->linked)
	9	+ return;
	10	+ w->linked = 1;
	11	+ w->prev = nil;
	12	+ w->next = wlist;
	13	+ if(wlist)
	14	+ wlist->prev = w;
	15	+ wlist = w;
	16	+}
	17	+
	18	+void
	19	+unlink(Wiki *w)
	20	+{
	21	+ if(!w->linked)
	22	+ return;
	23	+ w->linked = 0;
	24	+
	25	+ if(w->next)
	26	+ w->next->prev = w->prev;
	27	+ if(w->prev)
	28	+ w->prev->next = w->next;
	29	+ else
	30	+ wlist = w->next;
	31	+
	32	+ w->next = nil;
	33	+ w->prev = nil;
	34	+}
	35	+
	36	+void
	37	+wikiname(Window w, char name)
	38	+{
	39	+ char p, q;
	40	+
	41	+ p = emalloc(strlen(dir)+1+strlen(name)+1+1);
	42	+ strcpy(p, dir);
	43	+ strcat(p, "/");
	44	+ strcat(p, name);
	45	+ for(q=p; *q; q++)
	46	+ if(*q==' ')
	47	+ *q = '_';
	48	+ winname(w, p);
	49	+ free(p);
	50	+}
	51	+
	52	+int
	53	+wikiput(Wiki *w)
	54	+{
	55	+ int fd, n;
	56	+ char buf[1024], *p;
	57	+ Biobuf *b;
	58	+
	59	+ if((fd = open("new", ORDWR)) < 0){
	60	+ fprint(2, "Wiki: cannot open raw: %r\n");
	61	+ return -1;
	62	+ }
	63	+
	64	+ winopenbody(w->win, OREAD);
	65	+ b = w->win->body;
	66	+ if((p = Brdline(b, '\n'))==nil){
	67	+ Short:
	68	+ winclosebody(w->win);
	69	+ fprint(2, "Wiki: no data\n");
	70	+ close(fd);
	71	+ return -1;
	72	+ }
	73	+ write(fd, p, Blinelen(b));
	74	+
	75	+ snprint(buf, sizeof buf, "D%lud\n", w->time);
	76	+ if(email)
	77	+ snprint(buf+strlen(buf), sizeof(buf)-strlen(buf), "A%s\n", email);
	78	+
	79	+ if(Bgetc(b) == '#'){
	80	+ p = Brdline(b, '\n');
	81	+ if(p == nil)
	82	+ goto Short;
	83	+ snprint(buf+strlen(buf), sizeof(buf)-strlen(buf), "C%s\n", p);
	84	+ }
	85	+ write(fd, buf, strlen(buf));
	86	+ write(fd, "\n\n", 2);
	87	+
	88	+ while((n = Bread(b, buf, sizeof buf)) > 0)
	89	+ write(fd, buf, n);
	90	+ winclosebody(w->win);
	91	+
	92	+ werrstr("");
	93	+ if((n=write(fd, "", 0)) != 0){
	94	+ fprint(2, "Wiki commit %lud %d %d: %r\n", w->time, fd, n);
	95	+ close(fd);
	96	+ return -1;
	97	+ }
	98	+ seek(fd, 0, 0);
	99	+ if((n = read(fd, buf, 300)) < 0){
	100	+ fprint(2, "Wiki readback: %r\n");
	101	+ close(fd);
	102	+ return -1;
	103	+ }
	104	+ close(fd);
	105	+ buf[n] = '\0';
	106	+ sprint(buf, "%s/", buf);
	107	+ free(w->arg);
	108	+ w->arg = estrdup(buf);
	109	+ w->isnew = 0;
	110	+ wikiget(w);
	111	+ wikiname(w->win, w->arg);
	112	+ return n;
	113	+}
	114	+
	115	+void
	116	+wikiget(Wiki *w)
	117	+{
	118	+ char *p;
	119	+ int fd, normal;
	120	+ Biobuf *bin;
	121	+
	122	+ fprint(w->win->ctl, "dirty\n");
	123	+
	124	+ p = emalloc(strlen(w->arg)+8+1);
	125	+ strcpy(p, w->arg);
	126	+ normal = 1;
	127	+ if(p[strlen(p)-1] == '/'){
	128	+ normal = 0;
	129	+ strcat(p, "current");
	130	+ }else if(strlen(p)>8 && strcmp(p+strlen(p)-8, "/current")==0){
	131	+ normal = 0;
	132	+ w->arg[strlen(w->arg)-7] = '\0';
	133	+ }
	134	+
	135	+ if((fd = open(p, OREAD)) < 0){
	136	+ fprint(2, "Wiki: cannot read %s: %r\n", p);
	137	+ winclean(w->win);
	138	+ return;
	139	+ }
	140	+ free(p);
	141	+
	142	+ winopenbody(w->win, OWRITE);
	143	+ bin = emalloc(sizeof(*bin));
	144	+ Binit(bin, fd, OREAD);
	145	+
	146	+ p = nil;
	147	+ if(!normal){
	148	+ if((p = Brdline(bin, '\n')) == nil){
	149	+ fprint(2, "Wiki: cannot read title: %r\n");
	150	+ winclean(w->win);
	151	+ close(fd);
	152	+ free(bin);
	153	+ return;
	154	+ }
	155	+ p[Blinelen(bin)-1] = '\0';
	156	+ }
	157	+ /* clear window */
	158	+ if(w->win->data < 0)
	159	+ w->win->data = winopenfile(w->win, "data");
	160	+ if(winsetaddr(w->win, ",", 0))
	161	+ write(w->win->data, "", 0);
	162	+
	163	+ if(!normal)
	164	+ Bprint(w->win->body, "%s\n\n", p);
	165	+
	166	+ while(p = Brdline(bin, '\n')){
	167	+ p[Blinelen(bin)-1] = '\0';
	168	+ if(normal)
	169	+ Bprint(w->win->body, "%s\n", p);
	170	+ else{
	171	+ if(p[0]=='D')
	172	+ w->time = strtoul(p+1, 0, 10);
	173	+ else if(p[0]=='#')
	174	+ Bprint(w->win->body, "%s\n", p+1);
	175	+ }
	176	+ }
	177	+ winclean(w->win);
	178	+ free(bin);
	179	+ close(fd);
	180	+}
	181	+
	182	+static int
	183	+iscmd(char s, char cmd)
	184	+{
	185	+ int len;
	186	+
	187	+ len = strlen(cmd);
	188	+ return strncmp(s, cmd, len)==0 && (s[len]=='\0' \|\| s[len]==' ' \|\| s[len]=='\t' \|\| s[len]=='\n');
	189	+}
	190	+
	191	+static char*
	192	+skip(char s, char cmd)
	193	+{
	194	+ s += strlen(cmd);
	195	+ while(s==' ' \|\| s=='\t' \|\| *s=='\n')
	196	+ s++;
	197	+ return s;
	198	+}
	199	+
	200	+int
	201	+wikiload(Wiki w, char arg)
	202	+{
	203	+ char p, q, path, addr;
	204	+ int rv;
	205	+
	206	+ p = nil;
	207	+ if(arg[0] == '/')
	208	+ path = arg;
	209	+ else{
	210	+ p = emalloc(strlen(w->arg)+1+strlen(arg)+1);
	211	+ strcpy(p, w->arg);
	212	+ if(q = strrchr(p, '/')){
	213	+ ++q;
	214	+ *q = '\0';
	215	+ }else
	216	+ *p = '\0';
	217	+ strcat(p, arg);
	218	+ cleanname(p);
	219	+ path = p;
	220	+ }
	221	+ if(addr=strchr(path, ':'))
	222	+ *addr++ = '\0';
	223	+
	224	+ rv = wikiopen(path, addr)==0;
	225	+ free(p);
	226	+ if(rv)
	227	+ return 1;
	228	+ return wikiopen(arg, 0)==0;
	229	+}
	230	+
	231	+/* return 1 if handled, 0 otherwise */
	232	+int
	233	+wikicmd(Wiki w, char s)
	234	+{
	235	+ char *p;
	236	+ s = skip(s, "");
	237	+
	238	+ if(iscmd(s, "Del")){
	239	+ if(windel(w->win, 0))
	240	+ w->dead = 1;
	241	+ return 1;
	242	+ }
	243	+ if(iscmd(s, "New")){
	244	+ wikinew(skip(s, "New"));
	245	+ return 1;
	246	+ }
	247	+ if(iscmd(s, "History"))
	248	+ return wikiload(w, "history.txt");
	249	+ if(iscmd(s, "Diff"))
	250	+ return wikidiff(w);
	251	+ if(iscmd(s, "Get")){
	252	+ if(winisdirty(w->win) && !w->win->warned){
	253	+ w->win->warned = 1;
	254	+ fprint(2, "%s/%s modified\n", dir, w->arg);
	255	+ }else{
	256	+ w->win->warned = 0;
	257	+ wikiget(w);
	258	+ }
	259	+ return 1;
	260	+ }
	261	+ if(iscmd(s, "Put")){
	262	+ if((p=strchr(w->arg, '/')) && p[1]!='\0')
	263	+ fprint(2, "%s/%s is read-only\n", dir, w->arg);
	264	+ else
	265	+ wikiput(w);
	266	+ return 1;
	267	+ }
	268	+ return 0;
	269	+}
	270	+
	271	+/* need to expand selection more than default word */
	272	+static long
	273	+eval(Window w, char s, ...)
	274	+{
	275	+ char buf[64];
	276	+ va_list arg;
	277	+
	278	+ va_start(arg, s);
	279	+ vsnprint(buf, sizeof buf, s, arg);
	280	+ va_end(arg);
	281	+
	282	+ if(winsetaddr(w, buf, 1)==0)
	283	+ return -1;
	284	+
	285	+ if(pread(w->addr, buf, 24, 0) != 24)
	286	+ return -1;
	287	+ return strtol(buf, 0, 10);
	288	+}
	289	+
	290	+static int
	291	+getdot(Window w, long q0, long *q1)
	292	+{
	293	+ char buf[24];
	294	+
	295	+ ctlprint(w->ctl, "addr=dot\n");
	296	+ if(pread(w->addr, buf, 24, 0) != 24)
	297	+ return -1;
	298	+ *q0 = atoi(buf);
	299	+ *q1 = atoi(buf+12);
	300	+ return 0;
	301	+}
	302	+
	303	+static Event*
	304	+expand(Window w, Event e, Event *eacme)
	305	+{
	306	+ long q0, q1, x;
	307	+
	308	+ if(getdot(w, &q0, &q1)==0 && q0 <= e->q0 && e->q0 <= q1){
	309	+ e->q0 = q0;
	310	+ e->q1 = q1;
	311	+ return e;
	312	+ }
	313	+
	314	+ q0 = eval(w, "#%lud-/\\[/", e->q0);
	315	+ if(q0 < 0)
	316	+ return eacme;
	317	+ if(eval(w, "#%lud+/\\]/", q0) < e->q0) /* [ closes before us */
	318	+ return eacme;
	319	+ q1 = eval(w, "#%lud+/\\]/", e->q1);
	320	+ if(q1 < 0)
	321	+ return eacme;
	322	+ if((x=eval(w, "#%lud-/\\[/", q1))==-1 \|\| x > e->q1) /* ] opens after us */
	323	+ return eacme;
	324	+ e->q0 = q0+1;
	325	+ e->q1 = q1;
	326	+ return e;
	327	+}
	328	+
	329	+void
	330	+acmeevent(Wiki wiki, Event e)
	331	+{
	332	+ Event ea, e2, *eq;
	333	+ Window *w;
	334	+ char s, t, *buf;
	335	+ int na;
	336	+
	337	+ w = wiki->win;
	338	+ switch(e->c1){ /* origin of action */
	339	+ default:
	340	+ Unknown:
	341	+ fprint(2, "unknown message %c%c\n", e->c1, e->c2);
	342	+ break;
	343	+
	344	+ case 'F': /* generated by our actions; ignore */
	345	+ break;
	346	+
	347	+ case 'E': /* write to body or tag; can't affect us */
	348	+ break;
	349	+
	350	+ case 'K': /* type away; we don't care */
	351	+ if(e->c2 == 'I' \|\| e->c2 == 'D')
	352	+ w->warned = 0;
	353	+ break;
	354	+
	355	+ case 'M': /* mouse event */
	356	+ switch(e->c2){ /* type of action */
	357	+ case 'x': /* mouse: button 2 in tag */
	358	+ case 'X': /* mouse: button 2 in body */
	359	+ ea = nil;
	360	+ //e2 = nil;
	361	+ s = e->b;
	362	+ if(e->flag & 2){ /* null string with non-null expansion */
	363	+ e2 = recvp(w->cevent);
	364	+ if(e->nb==0)
	365	+ s = e2->b;
	366	+ }
	367	+ if(e->flag & 8){ /* chorded argument */
	368	+ ea = recvp(w->cevent); /* argument */
	369	+ na = ea->nb;
	370	+ recvp(w->cevent); /* ignore origin */
	371	+ }else
	372	+ na = 0;
	373	+
	374	+ /* append chorded arguments */
	375	+ if(na){
	376	+ t = emalloc(strlen(s)+1+na+1);
	377	+ sprint(t, "%s %s", s, ea->b);
	378	+ s = t;
	379	+ }
	380	+ /* if it's a known command, do it */
	381	+ /* if it's a long message, it can't be for us anyway */
	382	+ // DPRINT(2, "exec: %s\n", s);
	383	+ if(!wikicmd(wiki, s)) /* send it back */
	384	+ winwriteevent(w, e);
	385	+ if(na)
	386	+ free(s);
	387	+ break;
	388	+
	389	+ case 'l': /* mouse: button 3 in tag */
	390	+ case 'L': /* mouse: button 3 in body */
	391	+ //buf = nil;
	392	+ eq = e;
	393	+ if(e->flag & 2){ /* we do our own expansion for loads */
	394	+ e2 = recvp(w->cevent);
	395	+ eq = expand(w, eq, e2);
	396	+ }
	397	+ s = eq->b;
	398	+ if(eq->q1>eq->q0 && eq->nb==0){
	399	+ buf = emalloc((eq->q1-eq->q0)*UTFmax+1);
	400	+ winread(w, eq->q0, eq->q1, buf);
	401	+ s = buf;
	402	+ }
	403	+ if(!wikiload(wiki, s))
	404	+ winwriteevent(w, e);
	405	+ break;
	406	+
	407	+ case 'i': /* mouse: text inserted in tag */
	408	+ case 'd': /* mouse: text deleted from tag */
	409	+ break;
	410	+
	411	+ case 'I': /* mouse: text inserted in body */
	412	+ case 'D': /* mouse: text deleted from body */
	413	+ w->warned = 0;
	414	+ break;
	415	+
	416	+ default:
	417	+ goto Unknown;
	418	+ }
	419	+ }
	420	+}
	421	+
	422	+void
	423	+wikithread(void *v)
	424	+{
	425	+ char tmp[40];
	426	+ Event *e;
	427	+ Wiki *w;
	428	+
	429	+ w = v;
	430	+
	431	+ if(w->isnew){
	432	+ sprint(tmp, "+new+%d", w->isnew);
	433	+ wikiname(w->win, tmp);
	434	+ if(w->arg){
	435	+ winopenbody(w->win, OWRITE);
	436	+ Bprint(w->win->body, "%s\n\n", w->arg);
	437	+ }
	438	+ winclean(w->win);
	439	+ }else if(!w->special){
	440	+ wikiget(w);
	441	+ wikiname(w->win, w->arg);
	442	+ if(w->addr)
	443	+ winselect(w->win, w->addr, 1);
	444	+ }
	445	+ fprint(w->win->ctl, "menu\n");
	446	+ wintagwrite(w->win, "Get History Diff New", 4+8+4+4);
	447	+ winclean(w->win);
	448	+
	449	+ while(!w->dead && (e = recvp(w->win->cevent)))
	450	+ acmeevent(w, e);
	451	+
	452	+ windormant(w->win);
	453	+ unlink(w);
	454	+ free(w->win);
	455	+ free(w->arg);
	456	+ free(w);
	457	+ threadexits(nil);
	458	+}
	459	+
	460	+int
	461	+wikiopen(char arg, char addr)
	462	+{
	463	+ Dir *d;
	464	+ char *p;
	465	+ Wiki *w;
	466	+
	467	+/*
	468	+ if(arg==nil){
	469	+ if(write(mapfd, title, strlen(title)) < 0
	470	+ \|\| seek(mapfd, 0, 0) < 0 \|\| (n=read(mapfd, tmp, sizeof(tmp)-2)) < 0){
	471	+ fprint(2, "Wiki: no page '%s' found: %r\n", title);
	472	+ return -1;
	473	+ }
	474	+ if(tmp[n-1] == '\n')
	475	+ tmp[--n] = '\0';
	476	+ tmp[n++] = '/';
	477	+ tmp[n] = '\0';
	478	+ arg = tmp;
	479	+ }
	480	+*/
	481	+
	482	+ /* replace embedded '\n' in links by ' ' */
	483	+ for(p=arg; *p; p++)
	484	+ if(*p=='\n')
	485	+ *p = ' ';
	486	+
	487	+ if(strncmp(arg, dir, strlen(dir))==0 && arg[strlen(dir)]=='/' && arg[strlen(dir)+1])
	488	+ arg += strlen(dir)+1;
	489	+ else if(arg[0] == '/')
	490	+ return -1;
	491	+
	492	+ if((d = dirstat(arg)) == nil)
	493	+ return -1;
	494	+
	495	+ if((d->mode&DMDIR) && arg[strlen(arg)-1] != '/'){
	496	+ p = emalloc(strlen(arg)+2);
	497	+ strcpy(p, arg);
	498	+ strcat(p, "/");
	499	+ arg = p;
	500	+ }else if(!(d->mode&DMDIR) && arg[strlen(arg)-1]=='/'){
	501	+ arg = estrdup(arg);
	502	+ arg[strlen(arg)-1] = '\0';
	503	+ }else
	504	+ arg = estrdup(arg);
	505	+ free(d);
	506	+
	507	+ /* rewrite /current into / */
	508	+ if(strlen(arg) > 8 && strcmp(arg+strlen(arg)-8, "/current")==0)
	509	+ arg[strlen(arg)-8+1] = '\0';
	510	+
	511	+ /* look for window already open */
	512	+ for(w=wlist; w; w=w->next){
	513	+ if(strcmp(w->arg, arg)==0){
	514	+ ctlprint(w->win->ctl, "show\n");
	515	+ return 0;
	516	+ }
	517	+ }
	518	+
	519	+ w = emalloc(sizeof *w);
	520	+ w->arg = arg;
	521	+ w->addr = addr;
	522	+ w->win = newwindow();
	523	+ link(w);
	524	+
	525	+ proccreate(wineventproc, w->win, STACK);
	526	+ threadcreate(wikithread, w, STACK);
	527	+ return 0;
	528	+}
	529	+
	530	+void
	531	+wikinew(char *arg)
	532	+{
	533	+ static int n;
	534	+ Wiki *w;
	535	+
	536	+ w = emalloc(sizeof *w);
	537	+ if(arg)
	538	+ arg = estrdup(arg);
	539	+ w->arg = arg;
	540	+ w->win = newwindow();
	541	+ w->isnew = ++n;
	542	+ proccreate(wineventproc, w->win, STACK);
	543	+ threadcreate(wikithread, w, STACK);
	544	+}
	545	+
	546	+typedef struct Diffarg Diffarg;
	547	+struct Diffarg {
	548	+ Wiki *w;
	549	+ char *dir;
	550	+};
	551	+
	552	+void
	553	+execdiff(void *v)
	554	+{
	555	+ char buf[64];
	556	+ Diffarg *a;
	557	+
	558	+ a = v;
	559	+
	560	+ rfork(RFFDG);
	561	+ close(0);
	562	+ open("/dev/null", OREAD);
	563	+ sprint(buf, "/mnt/wsys/%d/body", a->w->win->id);
	564	+ close(1);
	565	+ open(buf, OWRITE);
	566	+ close(2);
	567	+ open(buf, OWRITE);
	568	+ sprint(buf, "/mnt/wsys/%d", a->w->win->id);
	569	+ bind(buf, "/dev", MBEFORE);
	570	+
	571	+ procexecl(nil, "/acme/wiki/wiki.diff", "wiki.diff", a->dir, nil);
	572	+}
	573	+
	574	+int
	575	+wikidiff(Wiki *w)
	576	+{
	577	+ Diffarg *d;
	578	+ char p, q, *r;
	579	+ Wiki *nw;
	580	+
	581	+ p = emalloc(strlen(w->arg)+10);
	582	+ strcpy(p, w->arg);
	583	+ if(q = strchr(p, '/'))
	584	+ *q = '\0';
	585	+ r = estrdup(p);
	586	+ strcat(p, "/+Diff");
	587	+
	588	+ nw = emalloc(sizeof *w);
	589	+ nw->arg = p;
	590	+ nw->win = newwindow();
	591	+ nw->special = 1;
	592	+
	593	+ d = emalloc(sizeof(*d));
	594	+ d->w = nw;
	595	+ d->dir = r;
	596	+ wikiname(nw->win, p);
	597	+ proccreate(wineventproc, nw->win, STACK);
	598	+ proccreate(execdiff, d, STACK);
	599	+ threadcreate(wikithread, nw, STACK);
	600	+ return 1;
	601	+}
	602	+

acme/wiki/src/win.6+0−0

Binary file not shown.

acme/wiki/src/win.8+0−0

Binary file not shown.

acme/wiki/src/win.c+341−0

@@ -0,0 +1,341 @@
	1	+#include "awiki.h"
	2	+
	3	+Window*
	4	+newwindow(void)
	5	+{
	6	+ char buf[12];
	7	+ Window *w;
	8	+
	9	+ w = emalloc(sizeof(Window));
	10	+ w->ctl = open("/mnt/wsys/new/ctl", ORDWR\|OCEXEC);
	11	+ if(w->ctl<0 \|\| read(w->ctl, buf, 12)!=12)
	12	+ error("can't open window ctl file: %r");
	13	+ ctlprint(w->ctl, "noscroll\n");
	14	+ w->id = atoi(buf);
	15	+ w->event = winopenfile(w, "event");
	16	+ w->addr = -1; /* will be opened when needed */
	17	+ w->body = nil;
	18	+ w->data = -1;
	19	+ w->cevent = chancreate(sizeof(Event*), 0);
	20	+ if(w->cevent == nil)
	21	+ error("cevent is nil: %r");
	22	+ return w;
	23	+}
	24	+
	25	+void
	26	+winsetdump(Window w, char dir, char *cmd)
	27	+{
	28	+ if(dir != nil)
	29	+ ctlprint(w->ctl, "dumpdir %s\n", dir);
	30	+ if(cmd != nil)
	31	+ ctlprint(w->ctl, "dump %s\n", cmd);
	32	+}
	33	+
	34	+void
	35	+wineventproc(void *v)
	36	+{
	37	+ Window *w;
	38	+ int i;
	39	+
	40	+ threadsetname("wineventproc");
	41	+ w = v;
	42	+ for(i=0; ; i++){
	43	+ if(i >= NEVENT)
	44	+ i = 0;
	45	+ wingetevent(w, &w->e[i]);
	46	+ sendp(w->cevent, &w->e[i]);
	47	+ }
	48	+}
	49	+
	50	+int
	51	+winopenfile(Window w, char f)
	52	+{
	53	+ char buf[64];
	54	+ int fd;
	55	+
	56	+ sprint(buf, "/mnt/wsys/%d/%s", w->id, f);
	57	+ fd = open(buf, ORDWR\|OCEXEC);
	58	+ if(fd < 0)
	59	+ error("can't open window file %s: %r", f);
	60	+ return fd;
	61	+}
	62	+
	63	+void
	64	+wintagwrite(Window w, char s, int n)
	65	+{
	66	+ int fd;
	67	+
	68	+ fd = winopenfile(w, "tag");
	69	+ if(write(fd, s, n) != n)
	70	+ error("tag write: %r");
	71	+ close(fd);
	72	+}
	73	+
	74	+void
	75	+winname(Window w, char s)
	76	+{
	77	+ ctlprint(w->ctl, "name %s\n", s);
	78	+}
	79	+
	80	+void
	81	+winopenbody(Window *w, int mode)
	82	+{
	83	+ char buf[256];
	84	+
	85	+ sprint(buf, "/mnt/wsys/%d/body", w->id);
	86	+ w->body = Bopen(buf, mode\|OCEXEC);
	87	+ if(w->body == nil)
	88	+ error("can't open window body file: %r");
	89	+}
	90	+
	91	+void
	92	+winclosebody(Window *w)
	93	+{
	94	+ if(w->body != nil){
	95	+ Bterm(w->body);
	96	+ w->body = nil;
	97	+ }
	98	+}
	99	+
	100	+void
	101	+winwritebody(Window w, char s, int n)
	102	+{
	103	+ if(w->body == nil)
	104	+ winopenbody(w, OWRITE);
	105	+ if(Bwrite(w->body, s, n) != n)
	106	+ error("write error to window: %r");
	107	+}
	108	+
	109	+int
	110	+wingetec(Window *w)
	111	+{
	112	+ if(w->nbuf == 0){
	113	+ w->nbuf = read(w->event, w->buf, sizeof w->buf);
	114	+ if(w->nbuf <= 0){
	115	+ /* probably because window has exited, and only called by wineventproc, so just shut down */
	116	+ threadexits(nil);
	117	+ }
	118	+ w->bufp = w->buf;
	119	+ }
	120	+ w->nbuf--;
	121	+ return *w->bufp++;
	122	+}
	123	+
	124	+int
	125	+wingeten(Window *w)
	126	+{
	127	+ int n, c;
	128	+
	129	+ n = 0;
	130	+ while('0'<=(c=wingetec(w)) && c<='9')
	131	+ n = n*10+(c-'0');
	132	+ if(c != ' ')
	133	+ error("event number syntax");
	134	+ return n;
	135	+}
	136	+
	137	+int
	138	+wingeter(Window w, char buf, int *nb)
	139	+{
	140	+ Rune r;
	141	+ int n;
	142	+
	143	+ r = wingetec(w);
	144	+ buf[0] = r;
	145	+ n = 1;
	146	+ if(r >= Runeself) {
	147	+ while(!fullrune(buf, n))
	148	+ buf[n++] = wingetec(w);
	149	+ chartorune(&r, buf);
	150	+ }
	151	+ *nb = n;
	152	+ return r;
	153	+}
	154	+
	155	+void
	156	+wingetevent(Window w, Event e)
	157	+{
	158	+ int i, nb;
	159	+
	160	+ e->c1 = wingetec(w);
	161	+ e->c2 = wingetec(w);
	162	+ e->q0 = wingeten(w);
	163	+ e->q1 = wingeten(w);
	164	+ e->flag = wingeten(w);
	165	+ e->nr = wingeten(w);
	166	+ if(e->nr > EVENTSIZE)
	167	+ error("event string too long");
	168	+ e->nb = 0;
	169	+ for(i=0; i<e->nr; i++){
	170	+ e->r[i] = wingeter(w, e->b+e->nb, &nb);
	171	+ e->nb += nb;
	172	+ }
	173	+ e->r[e->nr] = 0;
	174	+ e->b[e->nb] = 0;
	175	+ if(wingetec(w) != '\n')
	176	+ error("event syntax error");
	177	+}
	178	+
	179	+void
	180	+winwriteevent(Window w, Event e)
	181	+{
	182	+ fprint(w->event, "%c%c%d %d\n", e->c1, e->c2, e->q0, e->q1);
	183	+}
	184	+
	185	+static int
	186	+nrunes(char *s, int nb)
	187	+{
	188	+ int i, n;
	189	+ Rune r;
	190	+
	191	+ n = 0;
	192	+ for(i=0; i<nb; n++)
	193	+ i += chartorune(&r, s+i);
	194	+ return n;
	195	+}
	196	+
	197	+void
	198	+winread(Window w, uint q0, uint q1, char data)
	199	+{
	200	+ int m, n, nr;
	201	+ char buf[256];
	202	+
	203	+ if(w->addr < 0)
	204	+ w->addr = winopenfile(w, "addr");
	205	+ if(w->data < 0)
	206	+ w->data = winopenfile(w, "data");
	207	+ m = q0;
	208	+ while(m < q1){
	209	+ n = sprint(buf, "#%d", m);
	210	+ if(write(w->addr, buf, n) != n)
	211	+ error("error writing addr: %r");
	212	+ n = read(w->data, buf, sizeof buf);
	213	+ if(n <= 0)
	214	+ error("reading data: %r");
	215	+ nr = nrunes(buf, n);
	216	+ while(m+nr >q1){
	217	+ do; while(n>0 && (buf[--n]&0xC0)==0x80);
	218	+ --nr;
	219	+ }
	220	+ if(n == 0)
	221	+ break;
	222	+ memmove(data, buf, n);
	223	+ data += n;
	224	+ *data = 0;
	225	+ m += nr;
	226	+ }
	227	+}
	228	+
	229	+void
	230	+windormant(Window *w)
	231	+{
	232	+ if(w->addr >= 0){
	233	+ close(w->addr);
	234	+ w->addr = -1;
	235	+ }
	236	+ if(w->body != nil){
	237	+ Bterm(w->body);
	238	+ w->body = nil;
	239	+ }
	240	+ if(w->data >= 0){
	241	+ close(w->data);
	242	+ w->data = -1;
	243	+ }
	244	+}
	245	+
	246	+
	247	+int
	248	+windel(Window *w, int sure)
	249	+{
	250	+ if(sure)
	251	+ write(w->ctl, "delete\n", 7);
	252	+ else if(write(w->ctl, "del\n", 4) != 4)
	253	+ return 0;
	254	+ /* event proc will die due to read error from event file */
	255	+ windormant(w);
	256	+ close(w->ctl);
	257	+ w->ctl = -1;
	258	+ close(w->event);
	259	+ w->event = -1;
	260	+ return 1;
	261	+}
	262	+
	263	+void
	264	+winclean(Window *w)
	265	+{
	266	+ if(w->body)
	267	+ Bflush(w->body);
	268	+ ctlprint(w->ctl, "clean\n");
	269	+}
	270	+
	271	+int
	272	+winisdirty(Window *w)
	273	+{
	274	+ char m;
	275	+
	276	+ if (seek(w->ctl, 4*(11+1) + 10, 0) < 0)
	277	+ error("control file seek error: %r");
	278	+
	279	+ if(read(w->ctl, &m, 1) != 1)
	280	+ error("control file read error: %r");
	281	+
	282	+ if (m == '0')
	283	+ return 0;
	284	+ else if (m == '1')
	285	+ return 1;
	286	+ else
	287	+ error("can't parse ismodified field: %c", m);
	288	+ return 1; // better safe than sorry
	289	+
	290	+}
	291	+
	292	+int
	293	+winsetaddr(Window w, char addr, int errok)
	294	+{
	295	+ if(w->addr < 0)
	296	+ w->addr = winopenfile(w, "addr");
	297	+ if(write(w->addr, addr, strlen(addr)) < 0){
	298	+ if(!errok)
	299	+ error("error writing addr(%s): %r", addr);
	300	+ return 0;
	301	+ }
	302	+ return 1;
	303	+}
	304	+
	305	+int
	306	+winselect(Window w, char addr, int errok)
	307	+{
	308	+ if(winsetaddr(w, addr, errok)){
	309	+ ctlprint(w->ctl, "dot=addr\n");
	310	+ return 1;
	311	+ }
	312	+ return 0;
	313	+}
	314	+
	315	+char*
	316	+winreadbody(Window w, int np) /* can't use readfile because acme doesn't report the length */
	317	+{
	318	+ char *s;
	319	+ int m, na, n;
	320	+
	321	+ if(w->body != nil)
	322	+ winclosebody(w);
	323	+ winopenbody(w, OREAD);
	324	+ s = nil;
	325	+ na = 0;
	326	+ n = 0;
	327	+ for(;;){
	328	+ if(na < n+512){
	329	+ na += 1024;
	330	+ s = realloc(s, na+1);
	331	+ }
	332	+ m = Bread(w->body, s+n, na-n);
	333	+ if(m <= 0)
	334	+ break;
	335	+ n += m;
	336	+ }
	337	+ s[n] = 0;
	338	+ winclosebody(w);
	339	+ *np = n;
	340	+ return s;
	341	+}

acme/wiki/wiki.diff+27−0

@@ -0,0 +1,27 @@
	1	+#!/bin/rc
	2	+
	3	+rfork n
	4	+cd $1
	5	+=(`{ls -drp [0-9]})
	6	+
	7	+while(! ~ $#* 0 1){
	8	+ diff -n $2/index.txt $1/index.txt \| awk -F'[\/ :]' '
	9	+ $1 ~/^[0-9]+$/ {
	10	+ getA = "cat "$5"/current \| sed -n -e ''1d; /^A/s/^A//p; /^#/q''"
	11	+ getA \| getline A; close getA
	12	+ $1 = t2d($1)
	13	+ $5 = t2d($5)
	14	+ print "\n" A ":\n" $1":"$3" "$4" "$5":"$7
	15	+ next
	16	+ }
	17	+ { print }
	18	+
	19	+ function t2d(t) {
	20	+ c = "date "t; c\|getline l; close c
	21	+ split(l, a, "[ :]+")
	22	+ return a[1]" "a[2]" "a[3]" "a[4]":"a[5]" "a[8]"("t")"
	23	+ }'
	24	+ shift
	25	+}
	26	+
	27	+echo clean >/dev/ctl >[2]/dev/null

sys/games/lib/4scores+0−0

Empty file deleted.

sys/games/lib/5scores+0−0

Empty file deleted.

sys/games/lib/anawords+0−18766

@@ -1,18766 +0,0 @@
1		−a
2		−aback
3		−abacus
4		−abaft
5		−abandon
6		−abase
7		−abash
8		−abate
9		−abattoir
10		−abbe
11		−abbess
12		−abbey
13		−abbot
14		−abbreviate
15		−abc
16		−abdicate
17		−abdomen
18		−abdominal
19		−abduct
20		−abeam
21		−abed
22		−aberration
23		−abet
24		−abeyance
25		−abhor
26		−abide
27		−ability
28		−abject
29		−abjure
30		−ablative
31		−ablaut
32		−ablaze
33		−able
34		−ablution
35		−abnegation
36		−abnormal
37		−abo
38		−aboard
39		−abode
40		−abolish
41		−abominable
42		−abominate
43		−aboriginal
44		−abort
45		−abortion
46		−abortive
47		−abound
48		−about
49		−above
50		−abracadabra
51		−abrade
52		−abrasion
53		−abrasive
54		−abreast
55		−abridge
56		−abroad
57		−abrogate
58		−abrupt
59		−abscess
60		−abscond
61		−absence
62		−absent
63		−absentee
64		−absinth
65		−absinthe
66		−absolute
67		−absolution
68		−absolve
69		−absorb
70		−abstain
71		−abstemious
72		−abstention
73		−abstinence
74		−abstract
75		−abstraction
76		−abstruse
77		−absurd
78		−abundance
79		−abundant
80		−abuse
81		−abusive
82		−abut
83		−abysm
84		−abysmal
85		−abyss
86		−acacia
87		−academic
88		−academicals
89		−academy
90		−accede
91		−accelerando
92		−accelerate
93		−accelerator
94		−accent
95		−accentuate
96		−accept
97		−access
98		−accessary
99		−accession
100		−accessory
101		−accidence
102		−accident
103		−accidental
104		−acclaim
105		−acclamation
106		−acclimate
107		−acclimatize
108		−acclivity
109		−accolade
110		−accommodate
111		−accommodation
112		−accompaniment
113		−accompany
114		−accomplice
115		−accomplish
116		−accord
117		−accordance
118		−according
119		−accordion
120		−accost
121		−accouchement
122		−account
123		−accountancy
124		−accountant
125		−accoutrements
126		−accredit
127		−accretion
128		−accrue
129		−accumulate
130		−accumulation
131		−accumulator
132		−accurate
133		−accursed
134		−accusation
135		−accusative
136		−accuse
137		−accustom
138		−ace
139		−acerbity
140		−acetic
141		−acetylene
142		−ache
143		−achieve
144		−achilles
145		−acid
146		−acknowledge
147		−acme
148		−acne
149		−acolyte
150		−aconite
151		−acorn
152		−acoustic
153		−acquaint
154		−acquaintance
155		−acquiesce
156		−acquire
157		−acquisition
158		−acquisitive
159		−acquit
160		−acre
161		−acrid
162		−acrimony
163		−acrobat
164		−acronym
165		−acropolis
166		−across
167		−acrostic
168		−acrylic
169		−act
170		−acting
171		−actinism
172		−action
173		−activate
174		−active
175		−activist
176		−activity
177		−actor
178		−actress
179		−actual
180		−actuary
181		−actuate
182		−acuity
183		−acumen
184		−acupuncture
185		−acute
186		−ad
187		−adage
188		−adagio
189		−adam
190		−adamant
191		−adapt
192		−add
193		−addendum
194		−adder
195		−addict
196		−addition
197		−additive
198		−addle
199		−address
200		−adduce
201		−adenoids
202		−adept
203		−adequate
204		−adhere
205		−adherent
206		−adhesion
207		−adhesive
208		−adieu
209		−adipose
210		−adjacent
211		−adjective
212		−adjoin
213		−adjourn
214		−adjudge
215		−adjudicate
216		−adjunct
217		−adjure
218		−adjust
219		−adjutant
220		−admass
221		−administer
222		−administration
223		−administrative
224		−administrator
225		−admirable
226		−admiral
227		−admiration
228		−admire
229		−admissible
230		−admission
231		−admit
232		−admittance
233		−admix
234		−admixture
235		−admonish
236		−ado
237		−adobe
238		−adolescence
239		−adopt
240		−adore
241		−adorn
242		−adrenal
243		−adrenalin
244		−adrift
245		−adroit
246		−adulation
247		−adult
248		−adulterate
249		−adultery
250		−adumbrate
251		−advance
252		−advantage
253		−advantageous
254		−advent
255		−adventitious
256		−adventure
257		−adverb
258		−adversary
259		−adverse
260		−adversity
261		−advert
262		−advertise
263		−advice
264		−advisable
265		−advise
266		−advocate
267		−advowson
268		−adz
269		−adze
270		−aegis
271		−aeon
272		−aerate
273		−aerial
274		−aerie
275		−aerobatics
276		−aerodrome
277		−aerodynamics
278		−aeronaut
279		−aeronautics
280		−aeroplane
281		−aerosol
282		−aerospace
283		−aertex
284		−aery
285		−aesthete
286		−aesthetic
287		−aether
288		−aetiology
289		−afar
290		−affable
291		−affair
292		−affect
293		−affectation
294		−affection
295		−affectionate
296		−affiance
297		−affidavit
298		−affiliate
299		−affiliation
300		−affinity
301		−affirm
302		−affix
303		−afflatus
304		−afflict
305		−affliction
306		−affluence
307		−affluent
308		−afford
309		−afforest
310		−affranchise
311		−affray
312		−affront
313		−afield
314		−afire
315		−aflame
316		−afloat
317		−afoot
318		−afore
319		−afoul
320		−afraid
321		−afresh
322		−african
323		−afrikaans
324		−aft
325		−after
326		−afternoon
327		−afters
328		−afterwards
329		−again
330		−against
331		−agape
332		−agate
333		−agave
334		−age
335		−agency
336		−agenda
337		−agent
338		−agglomerate
339		−agglutinate
340		−aggrandize
341		−aggravate
342		−aggregate
343		−aggression
344		−aggressive
345		−aggrieve
346		−aggro
347		−aghast
348		−agile
349		−agin
350		−agitate
351		−aglow
352		−agnail
353		−agnostic
354		−ago
355		−agog
356		−agony
357		−agora
358		−agrarian
359		−agree
360		−agreeable
361		−agreement
362		−agriculture
363		−aground
364		−ague
365		−ah
366		−aha
367		−ahead
368		−ahem
369		−ahoy
370		−aid
371		−aigret
372		−aigrette
373		−ail
374		−aileron
375		−ailment
376		−aim
377		−air
378		−airedale
379		−airless
380		−airy
381		−aisle
382		−aitch
383		−ajar
384		−akimbo
385		−akin
386		−alabaster
387		−alack
388		−alacrity
389		−alarm
390		−alas
391		−alb
392		−albatross
393		−albeit
394		−albino
395		−album
396		−albumen
397		−alchemist
398		−alchemy
399		−alcohol
400		−alcove
401		−alder
402		−alderman
403		−ale
404		−alee
405		−alert
406		−alexandrine
407		−alexia
408		−alfalfa
409		−alfresco
410		−alga
411		−algebra
412		−alias
413		−alibi
414		−alien
415		−alienate
416		−alienist
417		−alight
418		−align
419		−alike
420		−alimentary
421		−alimony
422		−alive
423		−alkali
424		−all
425		−allah
426		−allay
427		−allege
428		−allegiance
429		−allegory
430		−allegretto
431		−allegro
432		−alleluia
433		−allergy
434		−alleviate
435		−alley
436		−alliance
437		−allied
438		−alligator
439		−alliteration
440		−allocate
441		−allot
442		−allow
443		−allowance
444		−alloy
445		−allspice
446		−allude
447		−allure
448		−allusion
449		−alluvial
450		−ally
451		−almanac
452		−almighty
453		−almond
454		−almoner
455		−almost
456		−alms
457		−aloe
458		−aloft
459		−alone
460		−along
461		−aloof
462		−aloud
463		−alp
464		−alpaca
465		−alpenstock
466		−alpha
467		−alphabet
468		−alpine
469		−already
470		−alright
471		−alsatian
472		−also
473		−altar
474		−alter
475		−altercation
476		−alternate
477		−alternative
478		−altho
479		−although
480		−altimeter
481		−altitude
482		−alto
483		−altogether
484		−altruism
485		−alum
486		−aluminium
487		−alumna
488		−alumnus
489		−alveolar
490		−always
491		−am
492		−amah
493		−amain
494		−amalgam
495		−amalgamate
496		−amanuensis
497		−amaryllis
498		−amass
499		−amateur
500		−amatory
501		−amaze
502		−amazon
503		−ambassador
504		−amber
505		−ambergris
506		−ambidextrous
507		−ambience
508		−ambient
509		−ambiguity
510		−ambiguous
511		−ambit
512		−ambition
513		−ambitious
514		−ambivalent
515		−amble
516		−ambrosia
517		−ambulance
518		−ambuscade
519		−ambush
520		−ameba
521		−ameer
522		−ameliorate
523		−amen
524		−amenable
525		−amend
526		−amends
527		−amenity
528		−america
529		−american
530		−amethyst
531		−amiable
532		−amicable
533		−amid
534		−amidships
535		−amir
536		−amiss
537		−amity
538		−ammeter
539		−ammonia
540		−ammonite
541		−ammunition
542		−amnesia
543		−amnesty
544		−amoeba
545		−amok
546		−among
547		−amoral
548		−amorous
549		−amorphous
550		−amortize
551		−amount
552		−amour
553		−amp
554		−ampere
555		−amphetamine
556		−amphibian
557		−amphibious
558		−amphitheatre
559		−amphora
560		−ample
561		−amplify
562		−amplitude
563		−ampoule
564		−amputate
565		−amuck
566		−amulet
567		−amuse
568		−an
569		−anachronism
570		−anaconda
571		−anaemia
572		−anaesthesia
573		−anagram
574		−anal
575		−analects
576		−analgesia
577		−analogous
578		−analogue
579		−analogy
580		−analyse
581		−analysis
582		−analyst
583		−analyze
584		−anapaest
585		−anarchy
586		−anathema
587		−anatomy
588		−ancestor
589		−anchor
590		−anchorite
591		−anchovy
592		−ancient
593		−ancillary
594		−and
595		−andante
596		−andiron
597		−anecdote
598		−anemia
599		−anemic
600		−anemometer
601		−anemone
602		−anent
603		−aneroid
604		−anew
605		−angel
606		−angelica
607		−angelus
608		−anger
609		−angle
610		−anglican
611		−anglicize
612		−anglomania
613		−anglophile
614		−anglophobe
615		−anglophobia
616		−angora
617		−angostura
618		−angry
619		−angst
620		−anguish
621		−angular
622		−aniline
623		−animadvert
624		−animal
625		−animate
626		−animism
627		−animosity
628		−animus
629		−anise
630		−ankle
631		−anna
632		−annals
633		−anneal
634		−annex
635		−annihilate
636		−anniversary
637		−annotate
638		−announce
639		−annoy
640		−annual
641		−annuity
642		−annul
643		−annular
644		−annunciate
645		−annunciation
646		−anode
647		−anodyne
648		−anoint
649		−anomalous
650		−anon
651		−anonymity
652		−anonymous
653		−anopheles
654		−anorak
655		−another
656		−answer
657		−ant
658		−antagonism
659		−antagonist
660		−antagonistic
661		−antagonize
662		−antarctic
663		−ante
664		−antecedent
665		−antechamber
666		−antedate
667		−antediluvian
668		−antelope
669		−antenatal
670		−antenna
671		−antenuptial
672		−antepenultimate
673		−anterior
674		−anteroom
675		−anthem
676		−anther
677		−anthology
678		−anthracite
679		−anthrax
680		−anthropoid
681		−anthropology
682		−antibiotic
683		−antibody
684		−antic
685		−anticipate
686		−anticipation
687		−anticyclone
688		−antidote
689		−antifreeze
690		−antiknock
691		−antilogarithm
692		−antimacassar
693		−antimony
694		−antipathy
695		−antipodes
696		−antiquarian
697		−antiquary
698		−antiquated
699		−antique
700		−antiquity
701		−antirrhinum
702		−antiseptic
703		−antisocial
704		−antitank
705		−antithesis
706		−antitoxin
707		−antitrade
708		−antler
709		−antonym
710		−anus
711		−anvil
712		−anxiety
713		−anxious
714		−any
715		−anybody
716		−anyhow
717		−anyone
718		−anyplace
719		−anything
720		−anyway
721		−anywhere
722		−aorta
723		−apace
724		−apache
725		−apanage
726		−apart
727		−apartheid
728		−apartment
729		−apathy
730		−ape
731		−aperient
732		−aperitif
733		−aperture
734		−apex
735		−aphasia
736		−aphid
737		−aphis
738		−aphorism
739		−aphrodisiac
740		−apiary
741		−apiece
742		−apish
743		−aplomb
744		−apocalypse
745		−apocrypha
746		−apogee
747		−apologetic
748		−apologize
749		−apology
750		−apophthegm
751		−apoplexy
752		−apostasy
753		−apostle
754		−apostrophe
755		−apothecary
756		−apothegm
757		−apotheosis
758		−appal
759		−appanage
760		−apparatus
761		−apparel
762		−apparent
763		−apparition
764		−appeal
765		−appear
766		−appearance
767		−appease
768		−appellant
769		−appellation
770		−append
771		−appendage
772		−appendix
773		−appertain
774		−appetite
775		−applaud
776		−applause
777		−apple
778		−appliance
779		−applicable
780		−applicant
781		−application
782		−applied
783		−applique
784		−apply
785		−appoint
786		−appointment
787		−apportion
788		−apposite
789		−apposition
790		−appraise
791		−appreciable
792		−appreciate
793		−appreciation
794		−apprehend
795		−apprehension
796		−apprehensive
797		−apprentice
798		−apprise
799		−appro
800		−approach
801		−approbation
802		−appropriate
803		−approval
804		−approve
805		−approximate
806		−appurtenance
807		−apricot
808		−april
809		−apron
810		−apropos
811		−apse
812		−apt
813		−aptitude
814		−aqualung
815		−aquamarine
816		−aquanaut
817		−aquaplane
818		−aquarium
819		−aquarius
820		−aquatic
821		−aquatint
822		−aquavit
823		−aqueduct
824		−aqueous
825		−aquiline
826		−arab
827		−arabesque
828		−arabian
829		−arabic
830		−arabist
831		−arable
832		−arachnid
833		−arbiter
834		−arbitrament
835		−arbitrary
836		−arbitrate
837		−arbitration
838		−arbitrator
839		−arbor
840		−arboreal
841		−arbour
842		−arc
843		−arcade
844		−arcadian
845		−arcane
846		−arch
847		−archaeology
848		−archaic
849		−archangel
850		−archbishop
851		−archdeacon
852		−archdiocese
853		−archduke
854		−archer
855		−archetype
856		−archimandrite
857		−archipelago
858		−architect
859		−architecture
860		−archives
861		−archway
862		−arctic
863		−ardent
864		−ardour
865		−arduous
866		−are
867		−area
868		−areca
869		−arena
870		−arete
871		−argent
872		−argon
873		−argonaut
874		−argosy
875		−argot
876		−argue
877		−argument
878		−argumentation
879		−argus
880		−aria
881		−arid
882		−aries
883		−aright
884		−arise
885		−aristocracy
886		−aristocrat
887		−arithmetic
888		−ark
889		−arm
890		−armada
891		−armadillo
892		−armageddon
893		−armament
894		−armature
895		−armistice
896		−armoire
897		−armor
898		−armorial
899		−armour
900		−arms
901		−army
902		−arnica
903		−aroma
904		−arose
905		−around
906		−arouse
907		−arpeggio
908		−arquebus
909		−arrack
910		−arraign
911		−arrange
912		−arrangement
913		−arrant
914		−arras
915		−array
916		−arrears
917		−arrest
918		−arrival
919		−arrive
920		−arrogant
921		−arrogate
922		−arrow
923		−arrowroot
924		−arse
925		−arsenal
926		−arsenic
927		−arson
928		−art
929		−artefact
930		−arterial
931		−arteriosclerosis
932		−artery
933		−artesian
934		−artful
935		−arthritis
936		−artichoke
937		−article
938		−articulate
939		−articulation
940		−artifact
941		−artifice
942		−artificer
943		−artificial
944		−artillery
945		−artisan
946		−artist
947		−artiste
948		−artistic
949		−artistry
950		−artless
951		−arty
952		−arum
953		−aryan
954		−as
955		−asbestos
956		−ascend
957		−ascendancy
958		−ascendant
959		−ascension
960		−ascent
961		−ascertain
962		−ascetic
963		−ascorbic
964		−ascribe
965		−asdic
966		−aseptic
967		−asexual
968		−ash
969		−ashamed
970		−ashen
971		−ashore
972		−ashy
973		−asian
974		−asiatic
975		−aside
976		−asinine
977		−ask
978		−askance
979		−askew
980		−asking
981		−aslant
982		−asleep
983		−asp
984		−asparagus
985		−aspect
986		−aspen
987		−asperity
988		−asperse
989		−asphalt
990		−asphodel
991		−asphyxia
992		−aspic
993		−aspidistra
994		−aspirant
995		−aspirate
996		−aspiration
997		−aspire
998		−aspirin
999		−ass
1000		−assagai
1001		−assail
1002		−assassin
1003		−assault
1004		−assay
1005		−assegai
1006		−assemblage
1007		−assemble
1008		−assembly
1009		−assent
1010		−assert
1011		−assertion
1012		−assertive
1013		−assess
1014		−asset
1015		−asseverate
1016		−assiduity
1017		−assiduous
1018		−assign
1019		−assignation
1020		−assimilate
1021		−assist
1022		−assize
1023		−associate
1024		−association
1025		−assonance
1026		−assorted
1027		−assuage
1028		−assume
1029		−assumption
1030		−assurance
1031		−assure
1032		−aster
1033		−asterisk
1034		−astern
1035		−asteroid
1036		−asthma
1037		−astigmatism
1038		−astir
1039		−astonish
1040		−astound
1041		−astrakhan
1042		−astral
1043		−astray
1044		−astride
1045		−astringent
1046		−astrodome
1047		−astrolabe
1048		−astrology
1049		−astronaut
1050		−astronomy
1051		−astrophysics
1052		−astute
1053		−asunder
1054		−asylum
1055		−at
1056		−atabrine
1057		−atavism
1058		−ate
1059		−atelier
1060		−atheism
1061		−athirst
1062		−athlete
1063		−athletic
1064		−athletics
1065		−athwart
1066		−atishoo
1067		−atlas
1068		−atmosphere
1069		−atmospheric
1070		−atoll
1071		−atom
1072		−atomic
1073		−atomize
1074		−atonal
1075		−atone
1076		−atop
1077		−atrabilious
1078		−atrocious
1079		−atrocity
1080		−atrophy
1081		−attaboy
1082		−attach
1083		−attache
1084		−attack
1085		−attain
1086		−attainder
1087		−attar
1088		−attempt
1089		−attend
1090		−attendance
1091		−attendant
1092		−attention
1093		−attentive
1094		−attenuate
1095		−attest
1096		−attic
1097		−attire
1098		−attitude
1099		−attorney
1100		−attract
1101		−attraction
1102		−attractive
1103		−attribute
1104		−attributive
1105		−attrition
1106		−attune
1107		−aubergine
1108		−aubrietia
1109		−auburn
1110		−auction
1111		−audacious
1112		−audible
1113		−audience
1114		−audit
1115		−audition
1116		−auditor
1117		−auditorium
1118		−auditory
1119		−auger
1120		−aught
1121		−augment
1122		−augur
1123		−august
1124		−augustan
1125		−auk
1126		−aunt
1127		−aura
1128		−aural
1129		−aureole
1130		−auricle
1131		−auricular
1132		−auriferous
1133		−aurora
1134		−auspices
1135		−auspicious
1136		−aussie
1137		−austere
1138		−autarchy
1139		−autarky
1140		−authentic
1141		−authenticate
1142		−author
1143		−authoritarian
1144		−authoritative
1145		−authority
1146		−authorize
1147		−autism
1148		−auto
1149		−autobahn
1150		−autobiography
1151		−autocracy
1152		−autocrat
1153		−autogiro
1154		−autograph
1155		−automat
1156		−automate
1157		−automatic
1158		−automation
1159		−automaton
1160		−automobile
1161		−autonomous
1162		−autopsy
1163		−autostrada
1164		−autumn
1165		−auxiliary
1166		−avail
1167		−available
1168		−avalanche
1169		−avarice
1170		−avast
1171		−avatar
1172		−avaunt
1173		−avenge
1174		−avenue
1175		−aver
1176		−average
1177		−averse
1178		−aversion
1179		−avert
1180		−aviary
1181		−aviation
1182		−avid
1183		−avocado
1184		−avocation
1185		−avoid
1186		−avoirdupois
1187		−avouch
1188		−avow
1189		−avuncular
1190		−await
1191		−awake
1192		−awaken
1193		−award
1194		−aware
1195		−awash
1196		−away
1197		−awe
1198		−aweigh
1199		−awful
1200		−awhile
1201		−awkward
1202		−awl
1203		−awning
1204		−awoke
1205		−awry
1206		−ax
1207		−axe
1208		−axiom
1209		−axis
1210		−axle
1211		−ay
1212		−ayah
1213		−aye
1214		−azalea
1215		−azimuth
1216		−azure
1217		−b
1218		−baa
1219		−baas
1220		−babble
1221		−babe
1222		−babel
1223		−baboo
1224		−baboon
1225		−babu
1226		−baby
1227		−baccalaureate
1228		−baccarat
1229		−bacchanal
1230		−baccy
1231		−bachelor
1232		−bacillus
1233		−back
1234		−backgammon
1235		−backsheesh
1236		−backward
1237		−bacon
1238		−bacterium
1239		−bad
1240		−bade
1241		−badge
1242		−badger
1243		−badinage
1244		−badminton
1245		−baffle
1246		−bag
1247		−bagatelle
1248		−baggage
1249		−baggy
1250		−bagnio
1251		−bagpipe
1252		−bags
1253		−bah
1254		−bail
1255		−bailey
1256		−bailiff
1257		−bairn
1258		−bait
1259		−baize
1260		−bake
1261		−bakelite
1262		−baksheesh
1263		−balalaika
1264		−balance
1265		−balcony
1266		−bald
1267		−balderdash
1268		−baldric
1269		−bale
1270		−balk
1271		−ball
1272		−ballad
1273		−ballade
1274		−ballast
1275		−ballerina
1276		−ballet
1277		−ballistic
1278		−ballocks
1279		−balloon
1280		−ballot
1281		−bally
1282		−ballyhoo
1283		−balm
1284		−baloney
1285		−balsa
1286		−balsam
1287		−baluster
1288		−balustrade
1289		−bambino
1290		−bamboo
1291		−bamboozle
1292		−ban
1293		−banal
1294		−banana
1295		−band
1296		−bandage
1297		−bandanna
1298		−bandbox
1299		−bandeau
1300		−bandit
1301		−bandoleer
1302		−bandy
1303		−bane
1304		−bang
1305		−banger
1306		−bangle
1307		−banian
1308		−banish
1309		−banister
1310		−banjo
1311		−bank
1312		−bankrupt
1313		−banner
1314		−bannock
1315		−banns
1316		−banquet
1317		−banshee
1318		−bant
1319		−bantam
1320		−banter
1321		−bantu
1322		−banyan
1323		−baobab
1324		−baptism
1325		−baptist
1326		−baptize
1327		−bar
1328		−barb
1329		−barbarian
1330		−barbaric
1331		−barbarism
1332		−barbarity
1333		−barbarize
1334		−barbarous
1335		−barbecue
1336		−barbel
1337		−barber
1338		−barbican
1339		−barbitone
1340		−barbiturate
1341		−barcarole
1342		−bard
1343		−bare
1344		−bargain
1345		−barge
1346		−bargee
1347		−baritone
1348		−barium
1349		−bark
1350		−barker
1351		−barley
1352		−barm
1353		−barmy
1354		−barn
1355		−barnacle
1356		−barometer
1357		−baron
1358		−baronet
1359		−baroque
1360		−barouche
1361		−barque
1362		−barrack
1363		−barracuda
1364		−barrage
1365		−barred
1366		−barrel
1367		−barren
1368		−barricade
1369		−barrier
1370		−barring
1371		−barrister
1372		−barrow
1373		−barter
1374		−basalt
1375		−bascule
1376		−base
1377		−baseball
1378		−basement
1379		−bash
1380		−bashful
1381		−basic
1382		−basil
1383		−basilica
1384		−basilisk
1385		−basin
1386		−basis
1387		−bask
1388		−basket
1389		−bass
1390		−bassinet
1391		−bassoon
1392		−bast
1393		−bastard
1394		−baste
1395		−bastinado
1396		−bastion
1397		−bat
1398		−batch
1399		−bate
1400		−bath
1401		−bathe
1402		−bathing
1403		−bathos
1404		−bathysphere
1405		−batik
1406		−batiste
1407		−batman
1408		−baton
1409		−bats
1410		−battalion
1411		−batten
1412		−batter
1413		−battery
1414		−batting
1415		−battle
1416		−battledore
1417		−battlements
1418		−battue
1419		−batty
1420		−bauble
1421		−baulk
1422		−bauxite
1423		−bawbee
1424		−bawd
1425		−bawl
1426		−bay
1427		−bayonet
1428		−bayou
1429		−bazaar
1430		−bazooka
1431		−be
1432		−beach
1433		−beacon
1434		−bead
1435		−beadle
1436		−beady
1437		−beagle
1438		−beak
1439		−beaker
1440		−beam
1441		−bean
1442		−bear
1443		−bearable
1444		−beard
1445		−bearer
1446		−bearing
1447		−bearish
1448		−beast
1449		−beat
1450		−beaten
1451		−beater
1452		−beatific
1453		−beatify
1454		−beatitude
1455		−beatnik
1456		−beau
1457		−beaujolais
1458		−beauteous
1459		−beautician
1460		−beautiful
1461		−beauty
1462		−beaver
1463		−becalmed
1464		−because
1465		−beck
1466		−beckon
1467		−become
1468		−bed
1469		−bedaubed
1470		−bedding
1471		−bedecked
1472		−bedevil
1473		−bedewed
1474		−bedimmed
1475		−bedlam
1476		−bedouin
1477		−bedraggled
1478		−beduin
1479		−bee
1480		−beech
1481		−beef
1482		−been
1483		−beep
1484		−beer
1485		−beeswax
1486		−beet
1487		−beetle
1488		−beeves
1489		−befall
1490		−befit
1491		−befogged
1492		−before
1493		−beforehand
1494		−befoul
1495		−befriend
1496		−beg
1497		−begad
1498		−began
1499		−beget
1500		−beggar
1501		−begin
1502		−begone
1503		−begonia
1504		−begorra
1505		−begot
1506		−begotten
1507		−begrimed
1508		−begrudge
1509		−beguile
1510		−begum
1511		−begun
1512		−behalf
1513		−behave
1514		−behaviour
1515		−behead
1516		−beheld
1517		−behest
1518		−behind
1519		−behindhand
1520		−behold
1521		−beholden
1522		−behove
1523		−beige
1524		−being
1525		−bejewelled
1526		−belabour
1527		−belated
1528		−belay
1529		−belch
1530		−beldam
1531		−beldame
1532		−beleaguer
1533		−belfry
1534		−belie
1535		−belief
1536		−believe
1537		−belike
1538		−belittle
1539		−bell
1540		−belladonna
1541		−belle
1542		−bellicose
1543		−belligerency
1544		−belligerent
1545		−bellow
1546		−bellows
1547		−belly
1548		−belong
1549		−beloved
1550		−below
1551		−belt
1552		−bemoan
1553		−bemused
1554		−ben
1555		−bench
1556		−bend
1557		−beneath
1558		−benedick
1559		−benedictine
1560		−benediction
1561		−benefaction
1562		−benefactor
1563		−benefice
1564		−beneficence
1565		−beneficial
1566		−beneficiary
1567		−benefit
1568		−benevolence
1569		−benevolent
1570		−benighted
1571		−benign
1572		−benignant
1573		−benignity
1574		−benison
1575		−bent
1576		−benumbed
1577		−benzedrine
1578		−benzene
1579		−benzine
1580		−benzol
1581		−bequeath
1582		−bequest
1583		−berate
1584		−bereave
1585		−bereft
1586		−beret
1587		−berg
1588		−berry
1589		−berserk
1590		−berth
1591		−beryl
1592		−beseech
1593		−beseem
1594		−beset
1595		−beshrew
1596		−beside
1597		−besides
1598		−besiege
1599		−besmear
1600		−besmirch
1601		−besom
1602		−besotted
1603		−besought
1604		−bespangled
1605		−bespattered
1606		−bespeak
1607		−best
1608		−bestial
1609		−bestiary
1610		−bestir
1611		−bestow
1612		−bestrew
1613		−bestride
1614		−bet
1615		−beta
1616		−betake
1617		−betel
1618		−bethel
1619		−bethink
1620		−betide
1621		−betimes
1622		−betoken
1623		−betook
1624		−betray
1625		−betroth
1626		−better
1627		−bettor
1628		−between
1629		−betwixt
1630		−bevel
1631		−beverage
1632		−bevy
1633		−bewail
1634		−beware
1635		−bewilder
1636		−bewitch
1637		−bey
1638		−beyond
1639		−bezique
1640		−bhang
1641		−bias
1642		−bib
1643		−bible
1644		−bibliography
1645		−bibliophile
1646		−bibulous
1647		−bicameral
1648		−bicarbonate
1649		−bicentenary
1650		−bicentennial
1651		−biceps
1652		−bicker
1653		−bicycle
1654		−bid
1655		−bide
1656		−bidet
1657		−biennial
1658		−bier
1659		−biff
1660		−bifocal
1661		−bifurcate
1662		−big
1663		−bigamy
1664		−bight
1665		−bigot
1666		−bijou
1667		−bike
1668		−bikini
1669		−bilabial
1670		−bilateral
1671		−bilberry
1672		−bile
1673		−bilge
1674		−bilharzia
1675		−bilingual
1676		−bilious
1677		−bilk
1678		−bill
1679		−billet
1680		−billhook
1681		−billiards
1682		−billingsgate
1683		−billion
1684		−billow
1685		−billy
1686		−biltong
1687		−bimetallism
1688		−bin
1689		−binary
1690		−bind
1691		−bindweed
1692		−bine
1693		−binge
1694		−bingo
1695		−binnacle
1696		−binoculars
1697		−binomial
1698		−biochemistry
1699		−biodegradable
1700		−biograph
1701		−biography
1702		−biology
1703		−bioscope
1704		−bipartisan
1705		−biped
1706		−biplane
1707		−birch
1708		−bird
1709		−biretta
1710		−biro
1711		−birth
1712		−biscuit
1713		−bisect
1714		−bisexual
1715		−bishop
1716		−bismuth
1717		−bison
1718		−bistro
1719		−bit
1720		−bitch
1721		−bite
1722		−bitten
1723		−bitter
1724		−bittern
1725		−bitumen
1726		−bivalve
1727		−bivouac
1728		−biz
1729		−bizarre
1730		−bizonal
1731		−blab
1732		−blabber
1733		−black
1734		−blackamoor
1735		−blacken
1736		−blacking
1737		−bladder
1738		−blade
1739		−blaeberry
1740		−blah
1741		−blame
1742		−blanch
1743		−blancmange
1744		−bland
1745		−blandishment
1746		−blank
1747		−blanket
1748		−blare
1749		−blarney
1750		−blase
1751		−blaspheme
1752		−blast
1753		−blatant
1754		−blather
1755		−blaze
1756		−blazer
1757		−blazon
1758		−bleach
1759		−bleachers
1760		−bleak
1761		−bleary
1762		−bleat
1763		−bleed
1764		−bleep
1765		−blemish
1766		−blench
1767		−blend
1768		−blent
1769		−bless
1770		−blether
1771		−blew
1772		−blight
1773		−blighty
1774		−blimey
1775		−blimp
1776		−blind
1777		−blindfold
1778		−blink
1779		−blinkers
1780		−blip
1781		−bliss
1782		−blister
1783		−blithe
1784		−blithering
1785		−blithesome
1786		−blitz
1787		−blizzard
1788		−bloated
1789		−bloater
1790		−blob
1791		−bloc
1792		−block
1793		−blockade
1794		−blockage
1795		−blockhead
1796		−blockhouse
1797		−bloke
1798		−blond
1799		−blonde
1800		−blood
1801		−bloody
1802		−bloom
1803		−bloomer
1804		−bloomers
1805		−blossom
1806		−blot
1807		−blotch
1808		−blotto
1809		−blouse
1810		−blow
1811		−blower
1812		−blown
1813		−blowzy
1814		−blubber
1815		−bludgeon
1816		−blue
1817		−bluff
1818		−blunder
1819		−blunderbuss
1820		−blunt
1821		−blur
1822		−blurb
1823		−blurt
1824		−blush
1825		−bluster
1826		−boa
1827		−boar
1828		−board
1829		−boast
1830		−boat
1831		−boater
1832		−boatswain
1833		−bob
1834		−bobbin
1835		−bobby
1836		−bobolink
1837		−bobsled
1838		−bobsleigh
1839		−bobtail
1840		−boche
1841		−bode
1842		−bodice
1843		−bodily
1844		−bodkin
1845		−body
1846		−boer
1847		−boffin
1848		−bog
1849		−bogey
1850		−boggle
1851		−bogie
1852		−bogus
1853		−bogy
1854		−bohemian
1855		−boil
1856		−boiler
1857		−boisterous
1858		−bold
1859		−bole
1860		−bolero
1861		−boll
1862		−bollard
1863		−bollocks
1864		−boloney
1865		−bolshevik
1866		−bolshy
1867		−bolster
1868		−bolt
1869		−bomb
1870		−bombard
1871		−bombardier
1872		−bombast
1873		−bonanza
1874		−bonbon
1875		−bond
1876		−bondage
1877		−bone
1878		−boner
1879		−bonfire
1880		−bongo
1881		−bonhomie
1882		−bonito
1883		−bonkers
1884		−bonnet
1885		−bonny
1886		−bonus
1887		−bony
1888		−boo
1889		−boob
1890		−booby
1891		−boogie
1892		−book
1893		−bookie
1894		−bookish
1895		−booklet
1896		−boom
1897		−boomerang
1898		−boon
1899		−boor
1900		−boost
1901		−boot
1902		−bootee
1903		−booth
1904		−bootleg
1905		−bootless
1906		−booty
1907		−booze
1908		−bopeep
1909		−boracic
1910		−borage
1911		−borax
1912		−bordeaux
1913		−border
1914		−bore
1915		−boric
1916		−born
1917		−borne
1918		−boron
1919		−borough
1920		−borrow
1921		−borsch
1922		−borstal
1923		−bortsch
1924		−borzoi
1925		−bosh
1926		−bosky
1927		−bosom
1928		−boss
1929		−botany
1930		−botch
1931		−both
1932		−bother
1933		−bottle
1934		−bottom
1935		−botulism
1936		−boudoir
1937		−bougainvillea
1938		−bough
1939		−bought
1940		−bouillon
1941		−boulder
1942		−boulevard
1943		−bounce
1944		−bound
1945		−boundary
1946		−bounden
1947		−bounder
1948		−boundless
1949		−bounteous
1950		−bountiful
1951		−bounty
1952		−bouquet
1953		−bourbon
1954		−bourgeois
1955		−bourn
1956		−bourse
1957		−bout
1958		−boutique
1959		−bovine
1960		−bovril
1961		−bow
1962		−bowdlerize
1963		−bowel
1964		−bower
1965		−bowl
1966		−bowler
1967		−bowline
1968		−bowls
1969		−bowman
1970		−bowsprit
1971		−box
1972		−boy
1973		−boycott
1974		−bra
1975		−brace
1976		−bracelet
1977		−bracken
1978		−bracket
1979		−brackish
1980		−bract
1981		−brad
1982		−bradawl
1983		−brae
1984		−brag
1985		−brahmin
1986		−braid
1987		−braille
1988		−brain
1989		−braise
1990		−brake
1991		−bramble
1992		−bran
1993		−branch
1994		−brand
1995		−brandish
1996		−brandy
1997		−brash
1998		−brass
1999		−brassard
2000		−brasserie
2001		−brassiere
2002		−brat
2003		−bravado
2004		−brave
2005		−bravo
2006		−brawl
2007		−brawn
2008		−bray
2009		−braze
2010		−brazen
2011		−brazier
2012		−breach
2013		−bread
2014		−breadth
2015		−break
2016		−breakable
2017		−breakage
2018		−breaker
2019		−breakfast
2020		−breakneck
2021		−breakwater
2022		−bream
2023		−breast
2024		−breath
2025		−breathe
2026		−breech
2027		−breeches
2028		−breed
2029		−breeze
2030		−bren
2031		−brethren
2032		−breve
2033		−brevet
2034		−breviary
2035		−brevity
2036		−brew
2037		−briar
2038		−bribe
2039		−brick
2040		−bridal
2041		−bride
2042		−bridegroom
2043		−bridesmaid
2044		−bridge
2045		−bridle
2046		−brief
2047		−briefs
2048		−brier
2049		−brig
2050		−brigade
2051		−brigand
2052		−brigantine
2053		−bright
2054		−brill
2055		−brilliant
2056		−brilliantine
2057		−brim
2058		−brimstone
2059		−brindled
2060		−brine
2061		−bring
2062		−brink
2063		−briny
2064		−brioche
2065		−briquet
2066		−briquette
2067		−brisk
2068		−brisket
2069		−bristle
2070		−britain
2071		−british
2072		−briton
2073		−brittle
2074		−broach
2075		−broad
2076		−broadcast
2077		−broadcloth
2078		−broadsheet
2079		−broadside
2080		−broadways
2081		−broadwise
2082		−brocade
2083		−broccoli
2084		−brochure
2085		−brogue
2086		−broil
2087		−broke
2088		−broken
2089		−broker
2090		−brolly
2091		−bromide
2092		−bromine
2093		−bronchi
2094		−bronco
2095		−bronze
2096		−brooch
2097		−brood
2098		−brook
2099		−broom
2100		−bros
2101		−broth
2102		−brothel
2103		−brother
2104		−brougham
2105		−brouhaha
2106		−brow
2107		−browbeat
2108		−brown
2109		−brownie
2110		−browse
2111		−bruin
2112		−bruise
2113		−bruit
2114		−brunch
2115		−brunette
2116		−brunt
2117		−brush
2118		−brusque
2119		−brussels
2120		−brutal
2121		−brute
2122		−bubble
2123		−bubonic
2124		−buccaneer
2125		−buck
2126		−bucket
2127		−buckle
2128		−buckler
2129		−buckram
2130		−buckshot
2131		−buckwheat
2132		−bucolic
2133		−bud
2134		−buddhism
2135		−buddy
2136		−budge
2137		−budgerigar
2138		−budget
2139		−budgie
2140		−buff
2141		−buffalo
2142		−buffer
2143		−buffet
2144		−buffoon
2145		−bug
2146		−bugaboo
2147		−bugbear
2148		−bugger
2149		−buggy
2150		−bugle
2151		−buhl
2152		−build
2153		−building
2154		−bulb
2155		−bulbul
2156		−bulge
2157		−bulk
2158		−bulkhead
2159		−bull
2160		−bullet
2161		−bulletin
2162		−bullion
2163		−bullock
2164		−bully
2165		−bulrush
2166		−bulwark
2167		−bum
2168		−bumboat
2169		−bump
2170		−bumper
2171		−bumpkin
2172		−bumptious
2173		−bun
2174		−buna
2175		−bunch
2176		−bundle
2177		−bung
2178		−bungalow
2179		−bungle
2180		−bunion
2181		−bunk
2182		−bunker
2183		−bunkum
2184		−bunny
2185		−bunsen
2186		−bunting
2187		−buoy
2188		−buoyancy
2189		−buoyant
2190		−bur
2191		−burberry
2192		−burble
2193		−burden
2194		−burdock
2195		−bureau
2196		−bureaucracy
2197		−bureaucrat
2198		−burette
2199		−burg
2200		−burgeon
2201		−burgess
2202		−burgh
2203		−burgher
2204		−burglar
2205		−burgomaster
2206		−burgundy
2207		−burial
2208		−burke
2209		−burlap
2210		−burlesque
2211		−burly
2212		−burn
2213		−burner
2214		−burning
2215		−burnish
2216		−burnouse
2217		−burp
2218		−burr
2219		−burrow
2220		−bursar
2221		−burst
2222		−burthen
2223		−burton
2224		−bury
2225		−bus
2226		−busby
2227		−bush
2228		−bushel
2229		−busier
2230		−busiest
2231		−business
2232		−busker
2233		−bust
2234		−bustard
2235		−buster
2236		−bustle
2237		−busy
2238		−but
2239		−butane
2240		−butch
2241		−butcher
2242		−butler
2243		−butt
2244		−butter
2245		−butterfly
2246		−buttery
2247		−buttock
2248		−button
2249		−buttress
2250		−buxom
2251		−buy
2252		−buzz
2253		−buzzard
2254		−by
2255		−bye
2256		−bygone
2257		−bypath
2258		−byplay
2259		−bystander
2260		−byword
2261		−c
2262		−cab
2263		−cabal
2264		−cabaret
2265		−cabbage
2266		−cabby
2267		−caber
2268		−cabin
2269		−cabinet
2270		−cable
2271		−caboodle
2272		−caboose
2273		−cacao
2274		−cache
2275		−cachet
2276		−cachou
2277		−cackle
2278		−cacophony
2279		−cactus
2280		−cad
2281		−cadaver
2282		−caddie
2283		−caddy
2284		−cadence
2285		−cadenza
2286		−cadet
2287		−cadge
2288		−cadmium
2289		−cadre
2290		−caesar
2291		−caesura
2292		−cafe
2293		−cafeteria
2294		−caff
2295		−caffeine
2296		−caftan
2297		−cage
2298		−cagey
2299		−cagoule
2300		−cahoots
2301		−caiman
2302		−cairn
2303		−caisson
2304		−caitiff
2305		−cajole
2306		−cake
2307		−calabash
2308		−calamity
2309		−calcify
2310		−calcine
2311		−calcium
2312		−calculable
2313		−calculate
2314		−calculus
2315		−caldron
2316		−calendar
2317		−calender
2318		−calends
2319		−calf
2320		−calibrate
2321		−calico
2322		−calif
2323		−calipers
2324		−caliph
2325		−calisthenics
2326		−calk
2327		−call
2328		−calligraphy
2329		−calliope
2330		−callipers
2331		−callisthenics
2332		−callosity
2333		−callous
2334		−callow
2335		−callus
2336		−calm
2337		−calomel
2338		−calorie
2339		−calumny
2340		−calvary
2341		−calve
2342		−calvinism
2343		−calypso
2344		−calyx
2345		−cam
2346		−camaraderie
2347		−camber
2348		−cambric
2349		−camel
2350		−camellia
2351		−camembert
2352		−cameo
2353		−camera
2354		−camion
2355		−camomile
2356		−camouflage
2357		−camp
2358		−campaign
2359		−campanile
2360		−campanula
2361		−camphor
2362		−campion
2363		−campus
2364		−can
2365		−canadian
2366		−canal
2367		−canape
2368		−canard
2369		−canary
2370		−canasta
2371		−cancan
2372		−cancel
2373		−cancer
2374		−candelabrum
2375		−candid
2376		−candidate
2377		−candied
2378		−candle
2379		−candour
2380		−candy
2381		−candytuft
2382		−cane
2383		−canine
2384		−canister
2385		−canker
2386		−canna
2387		−cannabis
2388		−canned
2389		−cannery
2390		−cannibal
2391		−cannon
2392		−cannot
2393		−canny
2394		−canoe
2395		−canon
2396		−canonize
2397		−canopy
2398		−cant
2399		−cantab
2400		−cantaloup
2401		−cantankerous
2402		−cantata
2403		−canteen
2404		−canter
2405		−canticle
2406		−cantilever
2407		−canto
2408		−canton
2409		−cantonment
2410		−cantor
2411		−canuck
2412		−canvas
2413		−canvass
2414		−canyon
2415		−cap
2416		−capability
2417		−capable
2418		−capacious
2419		−capacity
2420		−caparison
2421		−cape
2422		−caper
2423		−capillary
2424		−capital
2425		−capitalism
2426		−capitalize
2427		−capitation
2428		−capitol
2429		−capitulate
2430		−capon
2431		−caprice
2432		−capricious
2433		−capricorn
2434		−capsicum
2435		−capsize
2436		−capstan
2437		−capsule
2438		−captain
2439		−caption
2440		−captious
2441		−captivate
2442		−captive
2443		−captor
2444		−capture
2445		−car
2446		−carafe
2447		−caramel
2448		−carapace
2449		−carat
2450		−caravan
2451		−caraway
2452		−carbide
2453		−carbine
2454		−carbohydrate
2455		−carbon
2456		−carborundum
2457		−carboy
2458		−carbuncle
2459		−carburettor
2460		−carcase
2461		−carcass
2462		−card
2463		−cardamom
2464		−cardboard
2465		−cardiac
2466		−cardigan
2467		−cardinal
2468		−care
2469		−careen
2470		−career
2471		−careful
2472		−careless
2473		−caress
2474		−caret
2475		−cargo
2476		−caribou
2477		−caricature
2478		−caries
2479		−carillon
2480		−carmelite
2481		−carmine
2482		−carnage
2483		−carnal
2484		−carnation
2485		−carnival
2486		−carnivore
2487		−carol
2488		−carouse
2489		−carp
2490		−carpal
2491		−carpenter
2492		−carpet
2493		−carriage
2494		−carrier
2495		−carrion
2496		−carrot
2497		−carry
2498		−cart
2499		−cartel
2500		−cartilage
2501		−cartographer
2502		−carton
2503		−cartoon
2504		−cartridge
2505		−carve
2506		−caryatid
2507		−cascade
2508		−case
2509		−casein
2510		−casement
2511		−cash
2512		−cashew
2513		−cashier
2514		−cashmere
2515		−casing
2516		−casino
2517		−cask
2518		−casket
2519		−cassava
2520		−casserole
2521		−cassette
2522		−cassock
2523		−cassowary
2524		−cast
2525		−castanets
2526		−castaway
2527		−caste
2528		−castellated
2529		−caster
2530		−castigate
2531		−castle
2532		−castor
2533		−castrate
2534		−casual
2535		−casualty
2536		−casuist
2537		−cat
2538		−cataclysm
2539		−catacombs
2540		−catafalque
2541		−catalepsy
2542		−catalogue
2543		−catalpa
2544		−catalysis
2545		−catamaran
2546		−catapult
2547		−cataract
2548		−catarrh
2549		−catastrophe
2550		−catch
2551		−catchment
2552		−catchup
2553		−catechism
2554		−catechize
2555		−categorical
2556		−category
2557		−cater
2558		−caterpillar
2559		−caterwaul
2560		−catgut
2561		−catharsis
2562		−cathedral
2563		−cathode
2564		−catholic
2565		−catkin
2566		−catsup
2567		−cattish
2568		−cattle
2569		−catty
2570		−caucasian
2571		−caucus
2572		−caught
2573		−caul
2574		−cauldron
2575		−cauliflower
2576		−caulk
2577		−causal
2578		−cause
2579		−causerie
2580		−causeway
2581		−caustic
2582		−cauterize
2583		−caution
2584		−cautious
2585		−cavalcade
2586		−cavalier
2587		−cavalry
2588		−cave
2589		−caveat
2590		−cavern
2591		−caviar
2592		−caviare
2593		−cavil
2594		−cavity
2595		−cavort
2596		−caw
2597		−cayenne
2598		−cayman
2599		−caymen
2600		−cease
2601		−cedar
2602		−cede
2603		−cedilla
2604		−ceiling
2605		−celandine
2606		−celebrant
2607		−celebrate
2608		−celerity
2609		−celery
2610		−celestial
2611		−celibacy
2612		−cell
2613		−cellar
2614		−cello
2615		−cellophane
2616		−cellular
2617		−celluloid
2618		−cellulose
2619		−celsius
2620		−celt
2621		−cement
2622		−cemetery
2623		−cenotaph
2624		−censer
2625		−censor
2626		−censorious
2627		−censure
2628		−census
2629		−cent
2630		−centaur
2631		−centenarian
2632		−centenary
2633		−centennial
2634		−center
2635		−centigrade
2636		−centime
2637		−centipede
2638		−central
2639		−centralize
2640		−centre
2641		−centrifugal
2642		−centripetal
2643		−centurion
2644		−century
2645		−ceramic
2646		−cereal
2647		−cerebral
2648		−cerebration
2649		−ceremonial
2650		−ceremonious
2651		−ceremony
2652		−cerise
2653		−cert
2654		−certain
2655		−certifiable
2656		−certificate
2657		−certify
2658		−certitude
2659		−cerulean
2660		−cervix
2661		−cessation
2662		−cession
2663		−cesspit
2664		−chafe
2665		−chaff
2666		−chaffinch
2667		−chagrin
2668		−chain
2669		−chair
2670		−chaise
2671		−chalet
2672		−chalice
2673		−chalk
2674		−challenge
2675		−chamber
2676		−chamberlain
2677		−chameleon
2678		−chamois
2679		−chamomile
2680		−champ
2681		−champagne
2682		−champion
2683		−chance
2684		−chancel
2685		−chancellery
2686		−chancellor
2687		−chancery
2688		−chancy
2689		−chandelier
2690		−chandler
2691		−change
2692		−changeling
2693		−channel
2694		−chant
2695		−chantey
2696		−chanty
2697		−chaos
2698		−chap
2699		−chapel
2700		−chaperon
2701		−chapfallen
2702		−chaplain
2703		−chaplet
2704		−chapman
2705		−chapter
2706		−char
2707		−character
2708		−charade
2709		−charcoal
2710		−chard
2711		−charge
2712		−chargeable
2713		−charger
2714		−chariot
2715		−charisma
2716		−charitable
2717		−charity
2718		−charivari
2719		−charlady
2720		−charlatan
2721		−charleston
2722		−charlock
2723		−charm
2724		−chart
2725		−charter
2726		−chartism
2727		−chartreuse
2728		−charwoman
2729		−chary
2730		−charybdis
2731		−chase
2732		−chasm
2733		−chassis
2734		−chaste
2735		−chasten
2736		−chastise
2737		−chastity
2738		−chasuble
2739		−chat
2740		−chateau
2741		−chatelaine
2742		−chattel
2743		−chatter
2744		−chauffeur
2745		−chauvinism
2746		−chaw
2747		−cheap
2748		−cheapen
2749		−cheat
2750		−check
2751		−checker
2752		−checkers
2753		−checkmate
2754		−cheddar
2755		−cheek
2756		−cheep
2757		−cheer
2758		−cheerful
2759		−cheerio
2760		−cheerless
2761		−cheery
2762		−cheese
2763		−cheetah
2764		−chef
2765		−chemical
2766		−chemise
2767		−chemist
2768		−chemistry
2769		−chemotherapy
2770		−chenille
2771		−cheque
2772		−chequer
2773		−cherish
2774		−cheroot
2775		−cherry
2776		−cherub
2777		−chervil
2778		−chess
2779		−chest
2780		−chesterfield
2781		−chestnut
2782		−chevron
2783		−chew
2784		−chianti
2785		−chiaroscuro
2786		−chic
2787		−chicanery
2788		−chichi
2789		−chick
2790		−chicken
2791		−chicle
2792		−chicory
2793		−chide
2794		−chief
2795		−chieftain
2796		−chiffon
2797		−chiffonier
2798		−chignon
2799		−chilblain
2800		−child
2801		−chile
2802		−chili
2803		−chill
2804		−chilli
2805		−chilly
2806		−chimaera
2807		−chime
2808		−chimera
2809		−chimney
2810		−chimp
2811		−chimpanzee
2812		−chin
2813		−china
2814		−chinchilla
2815		−chine
2816		−chink
2817		−chintz
2818		−chip
2819		−chipmunk
2820		−chippendale
2821		−chiropodist
2822		−chiropractor
2823		−chirp
2824		−chirpy
2825		−chirrup
2826		−chisel
2827		−chit
2828		−chivalry
2829		−chive
2830		−chivvy
2831		−chivy
2832		−chloride
2833		−chlorine
2834		−chloroform
2835		−chlorophyll
2836		−chock
2837		−chocolate
2838		−choice
2839		−choir
2840		−choke
2841		−choker
2842		−chokey
2843		−choky
2844		−choler
2845		−cholera
2846		−choose
2847		−choosey
2848		−choosy
2849		−chop
2850		−chopper
2851		−choppy
2852		−chopsticks
2853		−choral
2854		−chorale
2855		−chord
2856		−chore
2857		−choreography
2858		−chorister
2859		−chortle
2860		−chorus
2861		−chose
2862		−chosen
2863		−chow
2864		−chowder
2865		−christ
2866		−christen
2867		−christendom
2868		−christian
2869		−christmas
2870		−chromatic
2871		−chrome
2872		−chromium
2873		−chromosome
2874		−chronic
2875		−chronicle
2876		−chronological
2877		−chronology
2878		−chronometer
2879		−chrysalis
2880		−chrysanthemum
2881		−chubby
2882		−chuck
2883		−chuckle
2884		−chug
2885		−chukker
2886		−chum
2887		−chump
2888		−chunk
2889		−church
2890		−churl
2891		−churn
2892		−chute
2893		−chutney
2894		−cicada
2895		−cicala
2896		−cicatrice
2897		−cicerone
2898		−cider
2899		−cigar
2900		−cigarette
2901		−cinch
2902		−cinchona
2903		−cincture
2904		−cinder
2905		−cinderella
2906		−cinema
2907		−cinnamon
2908		−cinquefoil
2909		−cipher
2910		−circa
2911		−circle
2912		−circlet
2913		−circuit
2914		−circuitous
2915		−circular
2916		−circulate
2917		−circulation
2918		−circumcise
2919		−circumference
2920		−circumflex
2921		−circumlocution
2922		−circumnavigate
2923		−circumscribe
2924		−circumspect
2925		−circumstance
2926		−circumstantial
2927		−circumvent
2928		−circus
2929		−cirrhosis
2930		−cirrus
2931		−cissy
2932		−cistern
2933		−citadel
2934		−cite
2935		−citizen
2936		−citric
2937		−citron
2938		−citrous
2939		−citrus
2940		−city
2941		−civet
2942		−civic
2943		−civies
2944		−civil
2945		−civilian
2946		−civilization
2947		−civilize
2948		−civvies
2949		−clack
2950		−clad
2951		−claim
2952		−clairvoyance
2953		−clam
2954		−clamber
2955		−clammy
2956		−clamour
2957		−clamp
2958		−clan
2959		−clandestine
2960		−clang
2961		−clangour
2962		−clank
2963		−clannish
2964		−clansman
2965		−clap
2966		−clapboard
2967		−clapper
2968		−claptrap
2969		−claque
2970		−claret
2971		−clarify
2972		−clarinet
2973		−clarion
2974		−clarity
2975		−clash
2976		−clasp
2977		−class
2978		−classic
2979		−classical
2980		−classicist
2981		−classification
2982		−classify
2983		−classy
2984		−clatter
2985		−clause
2986		−claustrophobia
2987		−clavichord
2988		−clavicle
2989		−claw
2990		−clay
2991		−clean
2992		−cleanly
2993		−cleanse
2994		−clear
2995		−clearance
2996		−clearing
2997		−clearly
2998		−cleat
2999		−cleavage
3000		−cleave
3001		−cleaver
3002		−clef
3003		−cleft
3004		−clematis
3005		−clemency
3006		−clement
3007		−clench
3008		−clerestory
3009		−clergy
3010		−cleric
3011		−clerical
3012		−clerihew
3013		−clerk
3014		−clever
3015		−clew
3016		−cliche
3017		−click
3018		−client
3019		−cliff
3020		−climacteric
3021		−climactic
3022		−climate
3023		−climax
3024		−climb
3025		−clime
3026		−clinch
3027		−cling
3028		−clinic
3029		−clinical
3030		−clink
3031		−clinker
3032		−clip
3033		−clipper
3034		−clique
3035		−clitoris
3036		−cloak
3037		−clobber
3038		−cloche
3039		−clock
3040		−clod
3041		−clog
3042		−cloisonne
3043		−cloister
3044		−clone
3045		−close
3046		−closet
3047		−closure
3048		−clot
3049		−cloth
3050		−clothe
3051		−clothes
3052		−clothier
3053		−clothing
3054		−cloture
3055		−cloud
3056		−clout
3057		−clove
3058		−cloven
3059		−clover
3060		−clown
3061		−cloy
3062		−club
3063		−cluck
3064		−clue
3065		−clump
3066		−clumsy
3067		−clung
3068		−clunk
3069		−cluster
3070		−clutch
3071		−clutter
3072		−coach
3073		−coagulate
3074		−coal
3075		−coalesce
3076		−coalition
3077		−coaming
3078		−coarse
3079		−coast
3080		−coat
3081		−coatee
3082		−coax
3083		−cob
3084		−cobalt
3085		−cobber
3086		−cobble
3087		−cobbler
3088		−cobra
3089		−cobweb
3090		−cocaine
3091		−cochineal
3092		−cochlea
3093		−cock
3094		−cockade
3095		−cockatoo
3096		−cockchafer
3097		−cocker
3098		−cockerel
3099		−cockhorse
3100		−cockle
3101		−cockney
3102		−cockpit
3103		−cockroach
3104		−cockscomb
3105		−cocksure
3106		−cocktail
3107		−cocky
3108		−coco
3109		−cocoa
3110		−cocoon
3111		−cocotte
3112		−cod
3113		−coda
3114		−coddle
3115		−code
3116		−codeine
3117		−codex
3118		−codger
3119		−codices
3120		−codicil
3121		−codify
3122		−codling
3123		−codpiece
3124		−coerce
3125		−coeval
3126		−coexist
3127		−coffee
3128		−coffer
3129		−coffin
3130		−cog
3131		−cogent
3132		−cogitate
3133		−cognac
3134		−cognate
3135		−cognition
3136		−cognizance
3137		−cognomen
3138		−cohabit
3139		−cohere
3140		−cohesion
3141		−cohort
3142		−coif
3143		−coiffeur
3144		−coiffure
3145		−coign
3146		−coil
3147		−coin
3148		−coincide
3149		−coincidence
3150		−coir
3151		−coition
3152		−coitus
3153		−coke
3154		−cokernut
3155		−col
3156		−cola
3157		−colander
3158		−cold
3159		−coleslaw
3160		−colic
3161		−colitis
3162		−collaborate
3163		−collage
3164		−collapse
3165		−collar
3166		−collate
3167		−collateral
3168		−collation
3169		−colleague
3170		−collect
3171		−collection
3172		−collective
3173		−collector
3174		−colleen
3175		−college
3176		−collide
3177		−collie
3178		−collier
3179		−colliery
3180		−collision
3181		−collocate
3182		−colloquial
3183		−colloquy
3184		−collusion
3185		−collywobbles
3186		−colon
3187		−colonel
3188		−colonial
3189		−colonist
3190		−colonize
3191		−colonnade
3192		−colony
3193		−color
3194		−coloratura
3195		−colossal
3196		−colossus
3197		−colour
3198		−colt
3199		−colter
3200		−columbine
3201		−column
3202		−coma
3203		−comb
3204		−combat
3205		−combination
3206		−combine
3207		−combustible
3208		−combustion
3209		−come
3210		−comedian
3211		−comedy
3212		−comely
3213		−comer
3214		−comestible
3215		−comet
3216		−comfit
3217		−comfort
3218		−comfortable
3219		−comfrey
3220		−comfy
3221		−comic
3222		−comical
3223		−coming
3224		−comity
3225		−comma
3226		−command
3227		−commandant
3228		−commandeer
3229		−commander
3230		−commandment
3231		−commando
3232		−commemorate
3233		−commemoration
3234		−commence
3235		−commend
3236		−commensurable
3237		−commensurate
3238		−comment
3239		−commentary
3240		−commerce
3241		−commercial
3242		−commination
3243		−commingle
3244		−commiserate
3245		−commissar
3246		−commissariat
3247		−commissary
3248		−commission
3249		−commissionaire
3250		−commissioner
3251		−commit
3252		−committee
3253		−commode
3254		−commodious
3255		−commodity
3256		−commodore
3257		−common
3258		−commonalty
3259		−commoner
3260		−commonplace
3261		−commons
3262		−commonwealth
3263		−commotion
3264		−communal
3265		−commune
3266		−communicable
3267		−communicant
3268		−communicate
3269		−communication
3270		−communicative
3271		−communion
3272		−communique
3273		−communism
3274		−community
3275		−commutable
3276		−commutation
3277		−commutator
3278		−commute
3279		−compact
3280		−companion
3281		−company
3282		−comparable
3283		−comparative
3284		−compare
3285		−comparison
3286		−compartment
3287		−compass
3288		−compassion
3289		−compatible
3290		−compatriot
3291		−compeer
3292		−compel
3293		−compendious
3294		−compendium
3295		−compensate
3296		−compensation
3297		−compere
3298		−compete
3299		−competence
3300		−competent
3301		−competition
3302		−competitive
3303		−competitor
3304		−compile
3305		−complacence
3306		−complacent
3307		−complain
3308		−complainant
3309		−complaint
3310		−complaisance
3311		−complement
3312		−complete
3313		−completion
3314		−complex
3315		−complexion
3316		−compliance
3317		−compliant
3318		−complicate
3319		−complication
3320		−complicity
3321		−compliment
3322		−complimentary
3323		−complin
3324		−compline
3325		−comply
3326		−component
3327		−comport
3328		−compose
3329		−composer
3330		−composite
3331		−composition
3332		−compositor
3333		−compost
3334		−composure
3335		−compote
3336		−compound
3337		−comprehend
3338		−comprehensible
3339		−comprehension
3340		−comprehensive
3341		−compress
3342		−compression
3343		−comprise
3344		−compromise
3345		−comptroller
3346		−compulsion
3347		−compulsive
3348		−compulsory
3349		−compunction
3350		−computation
3351		−compute
3352		−computer
3353		−comrade
3354		−con
3355		−concatenation
3356		−concave
3357		−conceal
3358		−concede
3359		−conceit
3360		−conceive
3361		−concentrate
3362		−concentration
3363		−concentric
3364		−concept
3365		−conception
3366		−concern
3367		−concert
3368		−concertina
3369		−concerto
3370		−concession
3371		−conch
3372		−concierge
3373		−conciliate
3374		−conciliation
3375		−concise
3376		−conclave
3377		−conclude
3378		−conclusion
3379		−conclusive
3380		−concoct
3381		−concomitant
3382		−concord
3383		−concordance
3384		−concordant
3385		−concordat
3386		−concourse
3387		−concrete
3388		−concubine
3389		−concupiscence
3390		−concur
3391		−concurrent
3392		−concuss
3393		−concussion
3394		−condemn
3395		−condensation
3396		−condense
3397		−condenser
3398		−condescend
3399		−condign
3400		−condiment
3401		−condition
3402		−conditional
3403		−condole
3404		−condominium
3405		−condone
3406		−condor
3407		−conduce
3408		−conduct
3409		−conductor
3410		−conduit
3411		−cone
3412		−coney
3413		−confab
3414		−confabulate
3415		−confection
3416		−confederacy
3417		−confederate
3418		−confer
3419		−conference
3420		−confess
3421		−confession
3422		−confessional
3423		−confessor
3424		−confetti
3425		−confidant
3426		−confide
3427		−confidence
3428		−confident
3429		−confidential
3430		−configuration
3431		−confine
3432		−confines
3433		−confirm
3434		−confirmation
3435		−confiscate
3436		−conflagration
3437		−conflict
3438		−confluence
3439		−conform
3440		−conformation
3441		−conformist
3442		−conformity
3443		−confound
3444		−confrere
3445		−confront
3446		−confrontation
3447		−confucian
3448		−confuse
3449		−confusion
3450		−confute
3451		−conge
3452		−congeal
3453		−congenial
3454		−congenital
3455		−conger
3456		−congested
3457		−congestion
3458		−conglomerate
3459		−conglomeration
3460		−congratulate
3461		−congratulation
3462		−congregate
3463		−congregation
3464		−congress
3465		−congruent
3466		−congruous
3467		−conic
3468		−conifer
3469		−conjecture
3470		−conjoin
3471		−conjugal
3472		−conjugate
3473		−conjunction
3474		−conjunctive
3475		−conjuncture
3476		−conjuration
3477		−conjure
3478		−conk
3479		−conker
3480		−connect
3481		−connection
3482		−connective
3483		−connexion
3484		−connive
3485		−connoisseur
3486		−connote
3487		−connubial
3488		−conquer
3489		−conquest
3490		−conquistador
3491		−consanguinity
3492		−conscience
3493		−conscientious
3494		−conscious
3495		−consciousness
3496		−conscript
3497		−consecrate
3498		−consecration
3499		−consecutive
3500		−consensus
3501		−consent
3502		−consequence
3503		−consequent
3504		−consequential
3505		−conservancy
3506		−conservation
3507		−conservatism
3508		−conservative
3509		−conservatoire
3510		−conservatory
3511		−conserve
3512		−consider
3513		−considerable
3514		−considerate
3515		−consideration
3516		−considering
3517		−consign
3518		−consist
3519		−consistence
3520		−consistency
3521		−consistent
3522		−consistory
3523		−consolation
3524		−consolatory
3525		−console
3526		−consolidate
3527		−consolidation
3528		−consols
3529		−consomme
3530		−consonance
3531		−consonant
3532		−consort
3533		−consortium
3534		−conspectus
3535		−conspicuous
3536		−conspiracy
3537		−conspire
3538		−constable
3539		−constancy
3540		−constant
3541		−constellation
3542		−consternation
3543		−constipate
3544		−constipated
3545		−constipation
3546		−constituency
3547		−constituent
3548		−constitute
3549		−constitution
3550		−constitutional
3551		−constitutive
3552		−constrain
3553		−constraint
3554		−constrict
3555		−construct
3556		−construction
3557		−constructive
3558		−construe
3559		−consubstantiation
3560		−consul
3561		−consular
3562		−consulate
3563		−consult
3564		−consultant
3565		−consultation
3566		−consultative
3567		−consume
3568		−consumer
3569		−consummate
3570		−consummation
3571		−consumption
3572		−consumptive
3573		−contact
3574		−contagion
3575		−contagious
3576		−contain
3577		−contaminate
3578		−contamination
3579		−contemn
3580		−contemplate
3581		−contemplation
3582		−contemplative
3583		−contemporaneous
3584		−contemporary
3585		−contempt
3586		−contemptible
3587		−contemptuous
3588		−contend
3589		−content
3590		−contention
3591		−contentious
3592		−conterminous
3593		−contest
3594		−context
3595		−contiguity
3596		−contiguous
3597		−continence
3598		−continent
3599		−contingency
3600		−contingent
3601		−continual
3602		−continuance
3603		−continuation
3604		−continue
3605		−continuity
3606		−continuous
3607		−contort
3608		−contortion
3609		−contour
3610		−contraband
3611		−contrabass
3612		−contraception
3613		−contract
3614		−contraction
3615		−contradict
3616		−contradistinction
3617		−contradistinguish
3618		−contralto
3619		−contraption
3620		−contrapuntal
3621		−contrariety
3622		−contrariwise
3623		−contrary
3624		−contrast
3625		−contravene
3626		−contravention
3627		−contretemps
3628		−contribute
3629		−contribution
3630		−contributory
3631		−contrite
3632		−contrition
3633		−contrivance
3634		−contrive
3635		−control
3636		−controller
3637		−controversial
3638		−controversy
3639		−controvert
3640		−contumacious
3641		−contumacy
3642		−contumelious
3643		−contumely
3644		−contuse
3645		−conundrum
3646		−conurbation
3647		−convalesce
3648		−convection
3649		−convector
3650		−convene
3651		−convenience
3652		−convenient
3653		−convent
3654		−conventicle
3655		−convention
3656		−conventional
3657		−conventionality
3658		−converge
3659		−conversant
3660		−conversation
3661		−converse
3662		−conversion
3663		−convert
3664		−convertible
3665		−convex
3666		−convey
3667		−conveyance
3668		−convict
3669		−conviction
3670		−convince
3671		−convivial
3672		−convocation
3673		−convoke
3674		−convoluted
3675		−convolution
3676		−convolvulus
3677		−convoy
3678		−convulse
3679		−convulsion
3680		−convulsive
3681		−cony
3682		−coo
3683		−cook
3684		−cooker
3685		−cookery
3686		−cookie
3687		−cooky
3688		−cool
3689		−coolant
3690		−cooler
3691		−coolie
3692		−coon
3693		−coop
3694		−cooper
3695		−coot
3696		−cop
3697		−cope
3698		−copeck
3699		−copernican
3700		−coping
3701		−copious
3702		−copper
3703		−coppice
3704		−copra
3705		−copse
3706		−copt
3707		−copula
3708		−copulate
3709		−copy
3710		−copyhold
3711		−copyright
3712		−coquetry
3713		−coquette
3714		−coracle
3715		−coral
3716		−corbel
3717		−cord
3718		−cordage
3719		−cordial
3720		−cordite
3721		−cordon
3722		−cords
3723		−corduroy
3724		−core
3725		−corgi
3726		−corinthian
3727		−cork
3728		−corkage
3729		−corker
3730		−corm
3731		−cormorant
3732		−corn
3733		−cornea
3734		−cornelian
3735		−corner
3736		−cornet
3737		−cornice
3738		−cornucopia
3739		−corny
3740		−corolla
3741		−corollary
3742		−corona
3743		−coronary
3744		−coronation
3745		−coroner
3746		−coronet
3747		−corporal
3748		−corporate
3749		−corporation
3750		−corporeal
3751		−corps
3752		−corpse
3753		−corpulent
3754		−corpus
3755		−corpuscle
3756		−corral
3757		−correct
3758		−correction
3759		−correctitude
3760		−corrective
3761		−correlate
3762		−correlation
3763		−correlative
3764		−correspond
3765		−correspondence
3766		−correspondent
3767		−corridor
3768		−corrie
3769		−corrigendum
3770		−corrigible
3771		−corroborate
3772		−corroboration
3773		−corrode
3774		−corrosive
3775		−corrugate
3776		−corrupt
3777		−corruption
3778		−corsage
3779		−corsair
3780		−corse
3781		−corselet
3782		−corset
3783		−corslet
3784		−cortege
3785		−cortex
3786		−cortisone
3787		−corundum
3788		−coruscate
3789		−corvee
3790		−corvette
3791		−cos
3792		−cosh
3793		−cosher
3794		−cosine
3795		−cosmetic
3796		−cosmic
3797		−cosmogony
3798		−cosmonaut
3799		−cosmopolitan
3800		−cosmos
3801		−cosset
3802		−cost
3803		−costermonger
3804		−costive
3805		−costly
3806		−costume
3807		−cosy
3808		−cot
3809		−cote
3810		−coterie
3811		−coterminous
3812		−cotilion
3813		−cotillion
3814		−cottage
3815		−cottar
3816		−cotter
3817		−cotton
3818		−cotyledon
3819		−couch
3820		−couchant
3821		−couchette
3822		−cougar
3823		−cough
3824		−could
3825		−couldst
3826		−coulter
3827		−council
3828		−councillor
3829		−counsel
3830		−counsellor
3831		−count
3832		−countenance
3833		−counter
3834		−counteract
3835		−counterbalance
3836		−counterblast
3837		−counterclaim
3838		−counterfeit
3839		−counterfoil
3840		−countermand
3841		−countermine
3842		−counteroffer
3843		−counterpane
3844		−counterpart
3845		−counterplot
3846		−counterpoint
3847		−counterpoise
3848		−countersign
3849		−countersink
3850		−countertenor
3851		−countervail
3852		−countess
3853		−countless
3854		−countrified
3855		−country
3856		−countryman
3857		−countryside
3858		−county
3859		−coup
3860		−coupe
3861		−couple
3862		−couplet
3863		−coupling
3864		−coupon
3865		−courage
3866		−courageous
3867		−courgette
3868		−courier
3869		−course
3870		−courser
3871		−court
3872		−courteous
3873		−courtesan
3874		−courtesy
3875		−courtier
3876		−courtly
3877		−courtship
3878		−courtyard
3879		−cousin
3880		−cove
3881		−coven
3882		−covenant
3883		−coventry
3884		−cover
3885		−coverage
3886		−coverlet
3887		−covert
3888		−covet
3889		−covetous
3890		−covey
3891		−cow
3892		−coward
3893		−cowardice
3894		−cower
3895		−cowl
3896		−cowpox
3897		−cowrie
3898		−cowslip
3899		−cox
3900		−coxcomb
3901		−coxswain
3902		−coy
3903		−coyote
3904		−coypu
3905		−cozen
3906		−cozy
3907		−crab
3908		−crabbed
3909		−crack
3910		−cracker
3911		−crackers
3912		−crackle
3913		−crackling
3914		−crackpot
3915		−cracksman
3916		−cradle
3917		−craft
3918		−craftsman
3919		−crag
3920		−crake
3921		−cram
3922		−cramp
3923		−crampon
3924		−cranberry
3925		−crane
3926		−cranial
3927		−cranium
3928		−crank
3929		−cranny
3930		−crap
3931		−crape
3932		−craps
3933		−crash
3934		−crass
3935		−crate
3936		−crater
3937		−cravat
3938		−crave
3939		−craven
3940		−crawfish
3941		−crawl
3942		−crayfish
3943		−crayon
3944		−craze
3945		−crazed
3946		−crazy
3947		−creak
3948		−cream
3949		−crease
3950		−create
3951		−creation
3952		−creative
3953		−creator
3954		−creature
3955		−creche
3956		−credence
3957		−credentials
3958		−credible
3959		−credit
3960		−creditable
3961		−creditor
3962		−credo
3963		−credulity
3964		−credulous
3965		−creed
3966		−creek
3967		−creel
3968		−creep
3969		−creeper
3970		−creepy
3971		−cremate
3972		−crenellated
3973		−creole
3974		−creosote
3975		−crepe
3976		−crepitate
3977		−crept
3978		−crepuscular
3979		−crescendo
3980		−crescent
3981		−cress
3982		−crest
3983		−cretacious
3984		−cretin
3985		−cretonne
3986		−crevasse
3987		−crevice
3988		−crew
3989		−crib
3990		−cribbage
3991		−crick
3992		−cricket
3993		−cried
3994		−crier
3995		−cries
3996		−crikey
3997		−crime
3998		−criminal
3999		−criminology
4000		−crimp
4001		−crimson
4002		−cringe
4003		−crinkle
4004		−crinoline
4005		−cripes
4006		−cripple
4007		−crisis
4008		−crisp
4009		−crisscross
4010		−criterion
4011		−critic
4012		−critical
4013		−criticism
4014		−criticize
4015		−critique
4016		−croak
4017		−crochet
4018		−crock
4019		−crockery
4020		−crocodile
4021		−crocus
4022		−croesus
4023		−croft
4024		−cromlech
4025		−crone
4026		−crony
4027		−crook
4028		−crooked
4029		−croon
4030		−crop
4031		−cropper
4032		−croquet
4033		−croquette
4034		−crore
4035		−crosier
4036		−cross
4037		−crossbar
4038		−crossbeam
4039		−crossbenches
4040		−crossbones
4041		−crossbow
4042		−crossbred
4043		−crossbreed
4044		−crosscountry
4045		−crosscut
4046		−crosse
4047		−crosseyed
4048		−crossfire
4049		−crossing
4050		−crosskeys
4051		−crosspatch
4052		−crossroad
4053		−crosstrees
4054		−crosswalk
4055		−crosswind
4056		−crossword
4057		−crotch
4058		−crotchet
4059		−crouch
4060		−croup
4061		−croupier
4062		−crow
4063		−crowbar
4064		−crowd
4065		−crown
4066		−crozier
4067		−crucial
4068		−crucible
4069		−crucifix
4070		−crucifixion
4071		−cruciform
4072		−crucify
4073		−crude
4074		−crudity
4075		−cruel
4076		−cruelty
4077		−cruet
4078		−cruise
4079		−crumb
4080		−crumble
4081		−crumbly
4082		−crumpet
4083		−crumple
4084		−crunch
4085		−crupper
4086		−crusade
4087		−cruse
4088		−crush
4089		−crust
4090		−crustacean
4091		−crusted
4092		−crusty
4093		−crutch
4094		−crux
4095		−cry
4096		−crying
4097		−crypt
4098		−cryptic
4099		−cryptogram
4100		−crystal
4101		−crystalline
4102		−crystallize
4103		−cub
4104		−cube
4105		−cubic
4106		−cubical
4107		−cubicle
4108		−cubism
4109		−cubit
4110		−cuckold
4111		−cuckoo
4112		−cucumber
4113		−cud
4114		−cuddle
4115		−cudgel
4116		−cue
4117		−cuff
4118		−cuirass
4119		−cuisine
4120		−culinary
4121		−cull
4122		−cullender
4123		−culminate
4124		−culpable
4125		−culprit
4126		−cult
4127		−cultivable
4128		−cultivate
4129		−cultivation
4130		−cultivator
4131		−cultural
4132		−culture
4133		−culvert
4134		−cumber
4135		−cumbersome
4136		−cumbrous
4137		−cummerbund
4138		−cumulative
4139		−cumulus
4140		−cuneiform
4141		−cunning
4142		−cunt
4143		−cup
4144		−cupboard
4145		−cupid
4146		−cupidity
4147		−cupola
4148		−cuppa
4149		−cupping
4150		−cupric
4151		−cur
4152		−curable
4153		−curacao
4154		−curacy
4155		−curate
4156		−curative
4157		−curator
4158		−curb
4159		−curd
4160		−curdle
4161		−cure
4162		−curfew
4163		−curio
4164		−curiosity
4165		−curious
4166		−curl
4167		−curlew
4168		−curling
4169		−curly
4170		−curmudgeon
4171		−currant
4172		−currency
4173		−current
4174		−curriculum
4175		−currish
4176		−curry
4177		−curse
4178		−cursed
4179		−cursive
4180		−cursory
4181		−curst
4182		−curt
4183		−curtail
4184		−curtain
4185		−curtsey
4186		−curtsy
4187		−curvature
4188		−curve
4189		−cushion
4190		−cushy
4191		−cusp
4192		−cuspidor
4193		−cuss
4194		−cussed
4195		−custard
4196		−custodian
4197		−custody
4198		−custom
4199		−customary
4200		−customer
4201		−cut
4202		−cute
4203		−cuticle
4204		−cutlass
4205		−cutler
4206		−cutlet
4207		−cutpurse
4208		−cutter
4209		−cutting
4210		−cuttlefish
4211		−cutworm
4212		−cyanide
4213		−cybernetics
4214		−cyclamen
4215		−cycle
4216		−cyclic
4217		−cyclical
4218		−cyclist
4219		−cyclone
4220		−cyclopaedia
4221		−cyclopean
4222		−cyclostyle
4223		−cyclotron
4224		−cyder
4225		−cygnet
4226		−cylinder
4227		−cymbal
4228		−cynic
4229		−cynical
4230		−cynosure
4231		−cypher
4232		−cypress
4233		−cyrillic
4234		−cyst
4235		−czar
4236		−czech
4237		−d
4238		−dab
4239		−dabble
4240		−dace
4241		−dacha
4242		−dachshund
4243		−dacoit
4244		−dactyl
4245		−dad
4246		−daddy
4247		−dado
4248		−daemon
4249		−daffodil
4250		−daft
4251		−dagger
4252		−dago
4253		−daguerreotype
4254		−dahlia
4255		−daily
4256		−dainty
4257		−dairy
4258		−dais
4259		−daisy
4260		−dale
4261		−dalliance
4262		−dally
4263		−dalmation
4264		−dam
4265		−damage
4266		−damascene
4267		−damask
4268		−dame
4269		−damn
4270		−damnable
4271		−damnation
4272		−damned
4273		−damocles
4274		−damp
4275		−dampen
4276		−damper
4277		−damsel
4278		−damson
4279		−dance
4280		−dandelion
4281		−dander
4282		−dandle
4283		−dandruff
4284		−dandy
4285		−dane
4286		−danger
4287		−dangerous
4288		−dangle
4289		−daniel
4290		−danish
4291		−dank
4292		−daphne
4293		−dapper
4294		−dapple
4295		−dare
4296		−daring
4297		−dark
4298		−darken
4299		−darkey
4300		−darkie
4301		−darky
4302		−darling
4303		−darn
4304		−dart
4305		−dash
4306		−dastard
4307		−data
4308		−date
4309		−dative
4310		−datum
4311		−daub
4312		−daughter
4313		−daunt
4314		−dauntless
4315		−dauphin
4316		−davenport
4317		−davit
4318		−daw
4319		−dawdle
4320		−dawn
4321		−day
4322		−daylight
4323		−daze
4324		−dazzle
4325		−deacon
4326		−dead
4327		−deaden
4328		−deadlock
4329		−deadly
4330		−deaf
4331		−deafen
4332		−deal
4333		−dealer
4334		−dealing
4335		−dealt
4336		−dean
4337		−dear
4338		−dearie
4339		−dearth
4340		−deary
4341		−death
4342		−deathless
4343		−deathlike
4344		−deathly
4345		−deb
4346		−debacle
4347		−debag
4348		−debar
4349		−debark
4350		−debase
4351		−debatable
4352		−debate
4353		−debauch
4354		−debenture
4355		−debilitate
4356		−debility
4357		−debit
4358		−debonair
4359		−debouch
4360		−debrief
4361		−debris
4362		−debt
4363		−debug
4364		−debunk
4365		−debut
4366		−debutante
4367		−decade
4368		−decadence
4369		−decadent
4370		−decalogue
4371		−decamp
4372		−decant
4373		−decapitate
4374		−decarbonize
4375		−decasyllable
4376		−decay
4377		−decease
4378		−deceit
4379		−deceitful
4380		−deceive
4381		−decelerate
4382		−december
4383		−decency
4384		−decent
4385		−decentralize
4386		−deception
4387		−deceptive
4388		−decibel
4389		−decide
4390		−deciduous
4391		−decimal
4392		−decimate
4393		−decipher
4394		−decision
4395		−decisive
4396		−deck
4397		−declaim
4398		−declamation
4399		−declaration
4400		−declare
4401		−declassify
4402		−declension
4403		−declination
4404		−decline
4405		−declivity
4406		−declutch
4407		−decode
4408		−decoke
4409		−decollete
4410		−decolonize
4411		−decompose
4412		−decompress
4413		−decontaminate
4414		−decontrol
4415		−decor
4416		−decorate
4417		−decoration
4418		−decorative
4419		−decorous
4420		−decorum
4421		−decoy
4422		−decrease
4423		−decree
4424		−decrepit
4425		−decry
4426		−dedicate
4427		−deduce
4428		−deduct
4429		−deduction
4430		−deed
4431		−deem
4432		−deep
4433		−deer
4434		−deface
4435		−defalcation
4436		−defame
4437		−default
4438		−defeat
4439		−defecate
4440		−defect
4441		−defection
4442		−defective
4443		−defence
4444		−defend
4445		−defendant
4446		−defense
4447		−defensible
4448		−defensive
4449		−defer
4450		−deference
4451		−defiance
4452		−defiant
4453		−deficiency
4454		−deficient
4455		−deficit
4456		−defile
4457		−define
4458		−definite
4459		−definition
4460		−definitive
4461		−deflate
4462		−deflect
4463		−deflower
4464		−defoliate
4465		−deforest
4466		−deform
4467		−deformity
4468		−defraud
4469		−defray
4470		−defrock
4471		−defrost
4472		−deft
4473		−defunct
4474		−defuse
4475		−defy
4476		−degauss
4477		−degenerate
4478		−degrade
4479		−degree
4480		−dehumanize
4481		−dehydrate
4482		−deify
4483		−deign
4484		−deism
4485		−deity
4486		−deject
4487		−dekko
4488		−delay
4489		−delectable
4490		−delectation
4491		−delegacy
4492		−delegate
4493		−delegation
4494		−delete
4495		−deleterious
4496		−delft
4497		−deliberate
4498		−deliberation
4499		−delicacy
4500		−delicate
4501		−delicatessen
4502		−delicious
4503		−delight
4504		−delimit
4505		−delineate
4506		−delinquency
4507		−delinquent
4508		−deliquescent
4509		−delirious
4510		−delirium
4511		−deliver
4512		−deliverance
4513		−delivery
4514		−dell
4515		−delouse
4516		−delphic
4517		−delphinium
4518		−delta
4519		−delude
4520		−deluge
4521		−delusion
4522		−delusive
4523		−delve
4524		−demagnetize
4525		−demagogue
4526		−demand
4527		−demarcate
4528		−demarcation
4529		−demarche
4530		−demean
4531		−demeanour
4532		−demented
4533		−demerara
4534		−demerit
4535		−demesne
4536		−demigod
4537		−demijohn
4538		−demilitarize
4539		−demimonde
4540		−demise
4541		−demist
4542		−demo
4543		−demob
4544		−demobilize
4545		−democracy
4546		−democrat
4547		−democratic
4548		−democratize
4549		−demode
4550		−demography
4551		−demolish
4552		−demon
4553		−demonetize
4554		−demoniac
4555		−demonstrable
4556		−demonstrate
4557		−demonstration
4558		−demonstrative
4559		−demonstrator
4560		−demoralize
4561		−demote
4562		−demotic
4563		−demur
4564		−demure
4565		−den
4566		−denary
4567		−denationalize
4568		−denatured
4569		−deniable
4570		−denial
4571		−denier
4572		−denigrate
4573		−denim
4574		−denizen
4575		−denominate
4576		−denomination
4577		−denominator
4578		−denote
4579		−denouement
4580		−denounce
4581		−dense
4582		−density
4583		−dent
4584		−dental
4585		−dentifrice
4586		−dentist
4587		−denture
4588		−denude
4589		−denunciation
4590		−deny
4591		−deodar
4592		−deodorant
4593		−deodorize
4594		−depart
4595		−department
4596		−departure
4597		−depend
4598		−dependant
4599		−dependence
4600		−dependency
4601		−dependent
4602		−depict
4603		−depilatory
4604		−deplane
4605		−deplete
4606		−deplore
4607		−deploy
4608		−deponent
4609		−depopulate
4610		−deport
4611		−depose
4612		−deposit
4613		−deposition
4614		−depositor
4615		−depository
4616		−depot
4617		−deprave
4618		−depravity
4619		−deprecate
4620		−depreciate
4621		−depredation
4622		−depress
4623		−depression
4624		−depressive
4625		−deprive
4626		−depth
4627		−deputation
4628		−depute
4629		−deputize
4630		−deputy
4631		−derail
4632		−derange
4633		−derate
4634		−derby
4635		−derelict
4636		−derequisition
4637		−derestrict
4638		−deride
4639		−derision
4640		−derisive
4641		−derisory
4642		−derivation
4643		−derivative
4644		−derive
4645		−dermatology
4646		−derogate
4647		−derogatory
4648		−derrick
4649		−derv
4650		−dervish
4651		−desalinate
4652		−desalinize
4653		−desalt
4654		−descale
4655		−descant
4656		−descend
4657		−descent
4658		−describe
4659		−description
4660		−descriptive
4661		−descry
4662		−desecrate
4663		−desegregate
4664		−desensitize
4665		−desert
4666		−deserts
4667		−deserve
4668		−deserving
4669		−deshabille
4670		−desiccant
4671		−desiccate
4672		−desideratum
4673		−design
4674		−designate
4675		−designation
4676		−designer
4677		−designing
4678		−desirable
4679		−desire
4680		−desirous
4681		−desist
4682		−desk
4683		−desolate
4684		−despair
4685		−despatch
4686		−desperado
4687		−desperate
4688		−despicable
4689		−despise
4690		−despite
4691		−despoil
4692		−despondency
4693		−despot
4694		−dessert
4695		−destination
4696		−destine
4697		−destiny
4698		−destitute
4699		−destroy
4700		−destructible
4701		−destruction
4702		−destructive
4703		−desuetude
4704		−desultory
4705		−detach
4706		−detachment
4707		−detail
4708		−detain
4709		−detect
4710		−detection
4711		−detective
4712		−detente
4713		−detention
4714		−deter
4715		−detergent
4716		−deteriorate
4717		−determinant
4718		−determinate
4719		−determination
4720		−determinative
4721		−determine
4722		−determiner
4723		−deterrent
4724		−detest
4725		−dethrone
4726		−detonate
4727		−detour
4728		−detract
4729		−detrain
4730		−detribalize
4731		−detriment
4732		−detritus
4733		−deuce
4734		−devalue
4735		−devastate
4736		−develop
4737		−development
4738		−deviant
4739		−deviate
4740		−deviation
4741		−device
4742		−devil
4743		−devilish
4744		−devilment
4745		−devious
4746		−devise
4747		−devitalize
4748		−devoid
4749		−devolution
4750		−devolve
4751		−devote
4752		−devotee
4753		−devotion
4754		−devour
4755		−devout
4756		−dew
4757		−dewlap
4758		−dexterity
4759		−dexterous
4760		−dextrose
4761		−dextrous
4762		−dhoti
4763		−dhow
4764		−diabetes
4765		−diabetic
4766		−diabolic
4767		−diacritic
4768		−diadem
4769		−diaeresis
4770		−diagnose
4771		−diagnosis
4772		−diagnostic
4773		−diagonal
4774		−diagram
4775		−dial
4776		−dialect
4777		−dialectic
4778		−dialogue
4779		−diameter
4780		−diametrically
4781		−diamond
4782		−diaper
4783		−diaphanous
4784		−diaphragm
4785		−diarchy
4786		−diarrhoea
4787		−diary
4788		−diaspora
4789		−diatonic
4790		−diatribe
4791		−dibble
4792		−dice
4793		−dicey
4794		−dichotomy
4795		−dickens
4796		−dicker
4797		−dickey
4798		−dicky
4799		−dictaphone
4800		−dictate
4801		−dictation
4802		−dictator
4803		−diction
4804		−dictionary
4805		−dictum
4806		−did
4807		−didactic
4808		−diddle
4809		−die
4810		−dieresis
4811		−diesel
4812		−diet
4813		−differ
4814		−difference
4815		−different
4816		−differential
4817		−differentiate
4818		−difficult
4819		−difficulty
4820		−diffident
4821		−diffract
4822		−diffuse
4823		−dig
4824		−digest
4825		−digestion
4826		−digestive
4827		−digger
4828		−digging
4829		−digit
4830		−dignify
4831		−dignitary
4832		−dignity
4833		−digraph
4834		−digress
4835		−digs
4836		−dike
4837		−dilapidated
4838		−dilate
4839		−dilatory
4840		−dilemma
4841		−dilettante
4842		−diligence
4843		−diligent
4844		−dill
4845		−dilute
4846		−dim
4847		−dime
4848		−dimension
4849		−diminish
4850		−diminuendo
4851		−diminution
4852		−diminutive
4853		−dimity
4854		−dimple
4855		−din
4856		−dine
4857		−diner
4858		−dinghy
4859		−dingle
4860		−dingy
4861		−dining
4862		−dinky
4863		−dinner
4864		−dinosaur
4865		−dint
4866		−diocese
4867		−dioxide
4868		−dip
4869		−diphtheria
4870		−diphthong
4871		−diploma
4872		−diplomacy
4873		−diplomat
4874		−diplomatic
4875		−diplomatist
4876		−dipper
4877		−dipsomania
4878		−diptych
4879		−dire
4880		−direct
4881		−direction
4882		−directive
4883		−directly
4884		−director
4885		−directorate
4886		−directory
4887		−direful
4888		−dirge
4889		−dirigible
4890		−dirk
4891		−dirndl
4892		−dirt
4893		−dirty
4894		−disability
4895		−disable
4896		−disabuse
4897		−disadvantage
4898		−disaffected
4899		−disafforest
4900		−disagree
4901		−disagreement
4902		−disallow
4903		−disappear
4904		−disappoint
4905		−disappointment
4906		−disapprobation
4907		−disapprove
4908		−disarm
4909		−disarrange
4910		−disarray
4911		−disassociate
4912		−disaster
4913		−disavow
4914		−disband
4915		−disbelieve
4916		−disbud
4917		−disburden
4918		−disburse
4919		−disc
4920		−discard
4921		−discern
4922		−discharge
4923		−disciple
4924		−disciplinarian
4925		−discipline
4926		−disclaim
4927		−disclose
4928		−disco
4929		−discolour
4930		−discomfit
4931		−discomfort
4932		−discommode
4933		−discompose
4934		−disconcert
4935		−disconnect
4936		−disconsolate
4937		−discontent
4938		−discontinue
4939		−discontinuous
4940		−discord
4941		−discotheque
4942		−discount
4943		−discountenance
4944		−discourage
4945		−discourse
4946		−discourteous
4947		−discover
4948		−discovery
4949		−discredit
4950		−discreet
4951		−discrepancy
4952		−discrete
4953		−discretion
4954		−discriminate
4955		−discrimination
4956		−discursive
4957		−discus
4958		−discuss
4959		−discussion
4960		−disdain
4961		−disease
4962		−disembark
4963		−disembarrass
4964		−disembody
4965		−disembowel
4966		−disenchant
4967		−disencumber
4968		−disenfranchise
4969		−disengage
4970		−disentangle
4971		−disequilibrium
4972		−disestablish
4973		−disfavour
4974		−disfigure
4975		−disforest
4976		−disfranchise
4977		−disgorge
4978		−disgrace
4979		−disgruntled
4980		−disguise
4981		−disgust
4982		−dish
4983		−dishabille
4984		−disharmony
4985		−dishearten
4986		−dishevelled
4987		−dishonest
4988		−dishonour
4989		−disillusion
4990		−disincentive
4991		−disinclination
4992		−disincline
4993		−disinfect
4994		−disinfest
4995		−disinflation
4996		−disingenuous
4997		−disinherit
4998		−disintegrate
4999		−disinter

13767 more lines aren’t shown here.

sys/games/lib/fortunes+0−5235

@@ -1,5235 +0,0 @@
1		−login:
2		− case '\7': ((char )(3841024L+062)) = 2; / beep */
3		− Welcome to VAX/VMS Version 1.60
4		− ON ENDFILE(SYSIN) GO TO ADATHIBA; /* FILE-VEGE VIZSGALATA */
5		− Tape dump of all filesystems taken this afternoon.
6		−"Analysis" is "design" spelled backwards.
7		−"RULE 7: Option arguments cannot be optional." Sys V Interface p 343.
8		−"Sound advice" is usually mostly sound with not much advice.
9		−"The Dresser," first a play, then a movie, then AT&T headquarters.
10		−"The more you drive ... the less intelligent you are." -- Miller, in Repo Man
11		−"x.c", line 1: cannot recover from earlier errors: goodbye!
12		−#(cat probably won't work on 8 bit files, you will have to use a simpler filter)
13		−$! nulled, predecessor circle
14		−$3,000,000
15		−%-W-NORML Normal Successful Completion
16		−'Tis a gross error, held in schools, That Fortune always favours fools. - John Gay.
17		−'Tis better playing with a lion's whelp,/Than with an old one dying.
18		−'Tis nobler in the mind to Look Things Up than to Pull Them Out Of The Air.
19		−(^\|[ (,;])(([Jj]ul[^ ]* \|(07\|7)/)05)([^0123456789]\|$)
20		−* UNIX is a Trademark of Bell Laboratories.
21		−* LGP ERROR *: Initialize -- Cannot initialize graphics hardware device.
22		−* REPLACE THIS LINE WITH YOUR MESSAGE *
23		−-1: No code table for op: ++post
24		−...and on the seventh day, He exited from append mode.
25		−/usr/games/fortune: not found
26		−/usr/news/gotcha
27		−1 bulls, 3 cows
28		−127 now in the unregulated subsidiary; see /usr/news/btl-split
29		−2 is always smaller than 3, even for large values of 2.
30		−2 lacks generality in a way that 1 doesn't.
31		−23. ... r-q1
32		−355/113 -- not the famous irrational number PI, but an incredible simulation.
33		−4.2BSD is like a nightmare about Tenex. - Geoff Collyer
34		−4.2BSD may not be a complete disaster, but it does a good job of emulating one.
35		−55mph -- It's not a good idea, it's just the law.
36		−: is not an identifier
37		−A 10.0-szer 0.1 sohasem 1.0!
38		−A 6-char limit is like a 6-inch trout: throw it back.
39		−A 6-char limit is like night.
40		−A Cray is the best machine for simulating the performance of a Cray.
41		−A Point is a pair of shorts.
42		−A Smith and Wesson beats four aces.
43		−A bad workman quarrels with his tools.
44		−A big book is a big nuisance. - Callimachus, librarian of Alexandria
45		−A billion here, a billion there; soon you're talking real money. -E. Dirksen
46		−A bird in hand is safer than one overhead.
47		−A bird in the hand is worth what it will bring.
48		−A block grant is a nice terminal, but it will keep you awake until noon.
49		−A block grant is a solid mass of money surrounded on all sides by governors.
50		−A chicken is just an egg's way of making more eggs.
51		−A closed mouth gathers no foot.
52		−A conservative is one who is too cowardly to fight and too fat to run.
53		−A consistent indentation style is the hobgoblin of little minds.
54		−A couch is as good as a chair.
55		−A coward is one who in a perilous emergency thinks with his legs.
56		−A critic is a legless man who teaches running.
57		−A day for firm decisions!!!!! Or is it?
58		−A day without sunshine is like night.
59		−A duck with three wings and a loaf of bread is brother to the sun god.
60		−A duck with three wings and a loaf of bread is brother to the turkey.
61		−A fly by night leaves no shadow beyond a doubt.
62		−A fool and his money stabilize the economy.
63		−A foolish consistency is the hobgoblin of little minds.
64		−A furore Normanorum libera nos, O Domine!
65		−A game, a teaching aid, a sport, and a piece of art. -Erno Rubik
66		−A gentleman is one who is never rude unintentionally. -Noel Coward
67		−A good memory does not equal pale ink.
68		−A good plan today is better than a perfect plan tomorrow.
69		−A goodly apple rotten at the heart:/Oh, what a goodly outside falsehood hath!
70		−A hacker does for love what others would not do for money.
71		−A homeowner's reach should exceed his grasp, or what's a weekend for?
72		−A hydrogen bomb doesn't care how brave you are.
73		−A hypothesis is an opinion that you are trying to prove true.
74		−A journey of a thousand miles begins with a cash advance from Sam.
75		−A king's castle is his home.
76		−A liberal is one too open-minded to take his own side in an argument.
77		−A lone dime always gets the number nearly right.
78		−A man does not attain the status of Galileo merely because he is persecuted; he must also be right. -Stephen Jay Gould
79		−A man must destroy himself before others can destroy him. -Mong Tse
80		−A man who fishes for marlin in ponds will put his money in Etruscan bonds.
81		−A man who turns green has eschewed protein.
82		−A man with 3 wings and a dictionary is cousin to the turkey.
83		−A man without a faith is like a fish without a bicycle.
84		−A megabyte here, a megabyte there, and pretty soon you're talking real power.
85		−A megaflop is a failure of gigantic proportions.
86		−A mighty maze! but not without a plan. -Pope
87		−A more wretched hive of scum and villainy: not found.
88		−A movie studio is the best toy a boy ever had. -Orson Welles
89		−A penny saved is a political breakthrough.
90		−A penny saved is ridiculous.
91		−A penny saved kills your career in the Pentagon.
92		−A philosopher does not need a torch to gather glow-worms by at mid-day. -- Earnest Bramah
93		−A plague o' both your houses! They have made worms' meat of me.
94		−A plucked goose doesn't lay golden eggs.
95		−A poet who reads his verse in public may have other nasty habits.
96		−A professor is one who talks in someone else's sleep.
97		−A radical is a person with both feet firmly planted in the air.
98		−A real Initiation never ends. -Aleister Crowley
99		−A really busy person never knows how much he weighs. -Edgar Watson Howe
100		−A recently completed trial proved TOAD Generic 1 to be reliable, user-friendly, and convenient.
101		−A resort area will be part of your next holiday plans
102		−A rolling stone gathers momentum.
103		−A rose by any other name would still have thorns.
104		−A sharp tongue is the only edge tool that grows keener with constant use. -W. Irving
105		−A song in time is worth a dime.
106		−A stitch in time keeps your tu-tu from becoming a four-four.
107		−A system programmer is someone who debugs his programs with an oscilloscope.
108		−A theory is better than an explanation.
109		−A thousand throats may be slit in one night by a running man.
110		−A tree is best measured when it is down.
111		−A truly wise man never plays leapfrog with a Unicorn.
112		−A twisting road will take you to Warsaw, but you won't be bored.
113		−A u.f.o. closely encountered is no longer a u.f.o.
114		−A victory is the greatest tragedy in the world - except a defeat. -Wellington
115		−A watched terminal never prints.
116		−A wise man never tries to warm himself in front of a painting of a fire.
117		−A witty saying means nothing. -Voltaire
118		−A woman is only a woman, but a good cigar is a smoke. -Rudyard Kipling
119		−A578 Your FLP overflows into your KBUF.
120		−AAAOO OOZOR AZZAZ ZAIEO AZAEI IIOZA KHOEO OOYTH OEAZA EAOOZ AKHOZ AKHEY THXAA LETHX KH
121		−Ablata at alba.
122		−Abortion and suicide are hereditary only if you prevent them.
123		−About all some parents accomplish in life is either illegal, immoral or fattening.
124		−About all some parents accomplish in life is to send a child to Harvard.
125		−About the only thing on a farm that has an easy time is the dog.
126		−Absence is better than a cure.
127		−Absinthe makes the heart grow fonder.
128		−According to the latest official figures, 43% of all statistics are worthless.
129		−Accounting software is structured as a set of tools that can be used to build accounting systems.
130		−Ad pulchritudinem tria requiruntur; integritas, consonantia, claritas. -Aquinas
131		−Admiration is our polite recognition of another's resemblance to ourselves.
132		−After 24 hours, corpses and guests smell bad.
133		−After all, a murderer is only an extroverted suicide.
134		−Afternoon very favorable for romance. Try a single person for a change.
135		−Again, and strongly, undress the sheep. It is getting to visitors.
136		−All articles that coruscate with resplendence are not truly aurifers.
137		−All dare to write, who can or cannot read. -Horace, `Epistles', Book II
138		−All my men wear badges, or they wear nothing at all.
139		−All of the bridges between our today and our yesteryear have been burnt.
140		−All of these futures having been sold, this fortune appears as a matter of record only.
141		−All syllogisms have three parts; therefore this is not a syllogism.
142		−All that does not glitter is not not-gold.
143		−All the ethics in Hollywood can be rolled up and fit into a gnat's navel.
144		−All the good ones are taken.
145		−All the great men are dead and I'm not feeling too well myself.
146		−All things considered, life is 9-to-5 against.
147		−All things that are, are lights.
148		−All you need to know is in the manual.
149		−Almost all good computer programs contain at least one random-number generator.
150		−Always keep a record of data. It indicates you've been working.
151		−Always make water when you can. -Wellington
152		−America's best buy for a dime is a telephone call to the right person.
153		−An Austrian army, awfully arrayed, Boldly by battery besieged Belgrade.
154		−An airplane is in your future.
155		−An artist is never ahead of his time, but most people are far behind theirs. - Varese
156		−An asylum for the sane would be empty in America.
157		−An atheist is a man with no invisible means of support.
158		−An elephant is a mouse built to government specifications.
159		−An elephant is a mouse with an operating system.
160		−An idle mind is worth two in the bush.
161		−An oscilloscope is what cavemen used to debug fire. -Jim Veres
162		−An ounce of application is worth a ton of abstraction.
163		−And I alone am returned to wag the tail.
164		−And malt does more than Milton can/to justify God's ways to man -A.E. Housman
165		−And so to bed.
166		−Androgyny recapitulates philately.
167		−Another good night not to sleep in a eucalyptus tree.
168		−Any change or reform you make is going to have consequences you don't like.
169		−Any clod can have the facts, but having opinions is an art. -Chas. McCabe
170		−Any country with "democratic" in the title isn't.
171		−Any fool can paint a picture, but it takes a wise person to be able to sell it.
172		−Any man's speeding ticket on the Interstate diminishes me, for I am involved in mankind.
173		−Any small object that is accidentally dropped will hide under a larger object.
174		−Any sufficiently advanced technology is indistinguishable from a rigged demo.
175		−Any sufficiently advanced technology is indistinguishable from magic. -Clarke
176		−Anyone can win, unless there happens to be a second entry.
177		−Anyone who buys Wisconsin cheese is a traitor to mankind! -J. Pournelle
178		−Anyone who understands my music will never be unhappy again. -L. Van Beethoven
179		−Anyone's life is incomplete unless they are, in some smaller or larger way, saving the world.
180		−Anything good in life is either illegal, immoral or fattening.
181		−Arabic is a language, Persian is a sweetmeat, and Turkish is an art.
182		−Arabic is a mystery -- love is just a crock.
183		−Are we not men?
184		−Are you kidding?
185		−Are you sure you want a two dimensional array?
186		−Aren't you glad his name wasn't Alexander Graham Klaxon?
187		−Aries -- this is your lucky day!
188		−Art is merely cheese made visible.
189		−Artistic ventures highlighted. Rob a museum.
190		−As above, so below.
191		−As goatherd learns his trade by goat, so writer learns his trade by wrote.
192		−As of Tuesday, C will be flushed in favor of COBOL. Please update all programs.
193		−Assassination is the extreme form of censorship.
194		−At the feast of souls failure is always the guest of honor.
195		−Atomic compare and exchange. These sequences are not actually atomic [⋯]. However, they are very close to atomic, [⋯] LinuxThreads has been using these sequences for many years.
196		−Attend winter sheep meetings. Learning never ends!
197		−Auribus teneo lupum.
198		−Automating a mess yields an automated mess. -Michael Hammer
199		−Ave discordia.
200		−Avoid a hasty decision.
201		−Avoid reality at all costs.
202		−Away put your weapon! I mean you no harm.
203		−BLISS is ignorance.
204		−Bad taste is timeless.
205		−Ban the bomb. Save the world for conventional warfare.
206		−Bank error in your favor. Collect $200.
207		−Basic is like doing arithmetic with Roman numerals. - MD McIlroy
208		−Be sure to evaluate the bird-hand/bush ratio.
209		−Be the sea, and see me be.
210		−Beauty is only sin deep. H H Munro
211		−Beauty is only skin deep, but ugly goes clean to the bone.
212		−Beauty times brains equals a constant.
213		−Becoming an overnight success usually takes years.
214		−Been Transferred Lately?
215		−Better be right or your big venture goes wrong. -Resistor color code mnemonic
216		−Better to have failed your Wasserman than never to have loved at all.
217		−Between the idea and the reality, between the motion and the act falls the shadow.
218		−Beware -- local customs vary. Check with a native before going into the jungle.
219		−Beware of a dark-haired man with a loud tie.
220		−Beware of low-flying butterflies.
221		−Beware the foot of Nessus!
222		−Beware: the light at the end of the tunnel may be New Jersey.
223		−Beyond a certain point, the whole universe becomes a continuous Initiation.
224		−Bigamy is having one spouse too many. Monogamy is the same.
225		−Biggus Diggus wants YOU.
226		−Bignose from Winnetka.
227		−Blessed St. Leibowitz, let them keep on dreamin' down there...
228		−Blessed are the meek for they shall inhibit the earth.
229		−Blessed are they who Go Around in Circles, for they Shall be Known as Wheels.
230		−Bosses never realize that a bottle neck is always at the top.
231		−Bourne again.
232		−Brain fried -- core dumped
233		−Brashith Alhim
234		−Bring your wife or husband and pink slip for the best trade-in deal in town.
235		−Bubble bubble, toil and trouble; cast that float into a double.
236		−Buick offers inbred american quality. -TV ad
237		−Build a better mousetrap, and nature will build a better mouse.
238		−Build it so that even a fool can use it, and only a fool will want to use it.
239		−Bus error -- core dumped
240		−But he who kisses the joy as it flies/Lives in Eternity's sunrise. -Wm. Blake
241		−But many are not capable of a firm persuasion of anything. -Wm. Blake
242		−But you'll never become a rhinoceros...you haven't got the vocation!
243		−But, Siriusly...
244		−By failing to prepare, you are preparing to fail.
245		−By omnibus I traveled to Brooklyn.
246		−By the pricking of my thumbs,/Something wicked this way comes.
247		−C'est CHouette. Swiss bumper sticker
248		−C'est dommage, mais c'est vrai.
249		−C'est magnifique, mais ce n'est pas Unix. -Henry Spencer
250		−CB is a great place to work. There are so many good going away parties.
251		−CB is a many gendered thing.
252		−California is a fine place to live if you happen to be an orange. - Fred Allen
253		−Campus Crusade for Cthulhu -- It found me.
254		−Can all this just be an accident? Or could there be some alien intelligence behind it?
255		−Can tomorrow be more than just the end of today?
256		−Cannot fork -- try again.
257		−Capitalism is indeed obsessed with money, but Marxism is obsessed with Marxism.
258		−Captain Clark welcomes you aboard.
259		−Caught in --More-- loop.
260		−Caution -- be sure brain is engaged before putting mouth in gear.
261		−Caution: Do not view laser light with remaining eye.
262		−Caution: breathing may be hazardous to your health.
263		−Celebrate Hannibal Day this year. Take an elephant to lunch.
264		−Celibacy is not hereditary.
265		−Center 1127 -- It's not just a job, it's an adventure!
266		−Center meeting at 4pm in 2C-543
267		−Centran manuals are available in 2B-515.
268		−Charlie don't surf.
269		−Children are hereditary: if your parents didn't have any, neither will you.
270		−Clothes make the man. Naked people have little or no influence on society.
271		−Club sandwiches, not baby seals.
272		−Cocaine is nature's way of saying you make too much money.
273		−Cogito Ergo Spud.
274		−Cogito cogito ergo cogito sum.
275		−Colorless green ideas sleep furiously.
276		−Communication is only possible between equals.
277		−Computers are not intelligent. They only think they are.
278		−Consistency is always easier to defend than correctness.
279		−Constants aren't. Variables don't. LISP does. Functions won't. Bytes do.
280		−Contains no kung fu, car chases or decapitations.
281		−Continental Life. Why do you ask?
282		−Convictions cause convicts -- what you believe imprisons you.
283		−Core Error - Bus Dumped
284		−Could not open 2147478952 framebuffers.
285		−Courage is something you can never totally own or totally lose.
286		−Cowards die many times before their deaths;/The valiant never taste of death but once.
287		−Crazee Edeee, his prices are INSANE!!!
288		−Creativity is no substitute for knowing what you are doing.
289		−Creditors have much better memories than debtors.
290		−Critics are like eunuchs in a harem: they know how it's done, they've seen it done every day, but they're unable to do it themselves. -Brendan Behan
291		−Cthulhu Saves! ... in case He's hungry later.
292		−Dames is like streetcars -- The oceans is full of 'em. -Archie Bunker
293		−Dames lie about anything - just for practice. -Raymond Chandler
294		−Damn it, i gotta get outta here!
295		−Dangerous knowledge is a little thing.
296		−Data potato, du wop du wop.
297		−Day of inquiry. You will be subpoenaed.
298		−De minimis non curat lex.
299		−Death is nature's way of telling you to slow down.
300		−Death to all fanatics!
301		−Deep down, we all need that escape velocity. -Steven Spielberg.
302		−Democracy is also a form of worship. It is the worship of Jackals by Jackasses.
303		−Department meeting in 3 minutes.
304		−Deprive a mirror of its silver and even the Czar won't see his face.
305		−Der Herrgott wurfelt nicht. -A. Einstein
306		−Did you know ... that no-one ever reads these things?
307		−Did you know that clones never use mirrors?
308		−Die ich rief, die Geister, / Werd ich nun nicht los.
309		−Die: to stop sinning suddenly.
310		−Dieux! Un monstre hideux. En hurlant. Nous poursuit.
311		−Diplomacy is the art of saying "nice doggy" until you can find a rock.
312		−Disco delenda est.
313		−Disk crisis, please clean up!
314		−Disobedience was Man's Original Virtue. -Oscar Wilde.
315		−Distrust yourself, and sleep before you fight. 'Tis not too late tomorrow to be brave. - J. Armstrong.
316		−Ditat Deus.
317		−Do not believe in miracles -- rely on them.
318		−Do not clog intellect's sluices with bits of knowledge of questionable uses.
319		−Do not confuse boredom with security.
320		−Do not confuse effort with work.
321		−Do not drink coffee in early A.M. It will keep you awake until noon.
322		−Do not go gentle into that good night/Rage, rage against the dying of the light
323		−Do not meddle in the affairs of troff; it is subtle and quick to anger.
324		−Do not meddle in the affairs of wizards: it makes them soggy and hard to light.
325		−Do not meddle in the affairs of wizards: they are subtle and quick to anger.
326		−Do not meddle in the mouth.
327		−Do not sleep in a eucalyptus tree tonight.
328		−Do not take life too seriously; you will never get out if it alive.
329		−Do not throw butts in the urinal: it makes them soggy and hard to light.
330		−Do not throw butts in the urinal: they are subtle and quick to anger.
331		−Do not underestimate the power of the Force.
332		−Do not use the blue keys on this terminal.
333		−Do something unusual today. Pay a bill.
334		−Do what comes naturally now. Seethe and fume and throw a tantrum.
335		−Do what thou wilt shall be the whole of the law.
336		−Does George know what he's got here? -Steven Spielberg.
337		−Does a firm persuasion that a thing is so make it so? -Wm. Blake
338		−Does the early bird enjoy the worm as much as the late bird enjoys the sleep?
339		−Don't be overly suspicious where it's not warranted.
340		−Don't believe everything you hear or anything you say.
341		−Don't call me a mindless philosopher, you overweight glob of grease.
342		−Don't commute, communicate.
343		−Don't conscience-stricken before they're hatched.
344		−Don't eat yellow snow.
345		−Don't feed the bats tonight.
346		−Don't force it, use a bigger hammer.
347		−Don't forget to run "make depend"
348		−Don't get mad, make book.
349		−Don't go surfing in South Dakota for a while.
350		−Don't hate yourself in the morning -- sleep till noon.
351		−Don't kiss an elephant on the lips today.
352		−Don't let your thoughts get in a rut. The knife which spreads may also cut.
353		−Don't lie if you don't have to. -Leo Szilard
354		−Don't look back -- something may be gaining on you. -Satchel Paige.
355		−Don't play games with me. You weren't on any mercy mission this time.
356		−Don't put a loaded rifle on the stage unless someone intends to fire it.
357		−Don't rely on your nose -- TEST ATMOSPHERE!
358		−Don't speak about Time, until you have spoken to him.
359		−Don't tell any big lies today. Small ones can be just as effective.
360		−Don't try to have the last word. You might get it.
361		−Don't try to out-weird me, I get stranger things than you free with my breakfast cereal.
362		−Don't type so hard.
363		−Don't vote -- it only encourages them.
364		−Don't worry -- dat mine, it can't hurt us -- it's one of ours. -Eccles
365		−Don't worry if it doesn't work right; if everything did, you'd be out of a job.
366		−Don't worry, it's not loaded.
367		−Don't worry, they couldn't hit an elephant at this dist
368		−Don't you feel more like you do now than you did when you came in?
369		−Don't you have anything better to do with your time?
370		−Down with categorical imperative!
371		−Dreams are free, but there's a small charge for alterations.
372		−Dreams are free, but you get soaked on the connect time.
373		−Drive defensively, buy a tank.
374		−Ducking for apples. Change one letter and it's the story of my life. _ Dorothy Parker
375		−Dump time is unreasonable
376		−During 1986, UNIX will dominate the low end. J. Scanlon
377		−Dyslexics of the world, untie!
378		−E Pluribus Unix.
379		−E Unibus Plurum.
380		−E pur si muove.
381		−ERROR CREEPOUT HAS BEGUN
382		−EVACUATION ROUTE ---->
383		−Each man's death diminishes me for I am involved in Humanity. -John Donne
384		−Easy for you to type, I have to do all the work.
385		−Eat snart foobs. -Unknown Jerome
386		−Economic analysts say that while the economy may be slowing, it is not fizzling out.
387		−Edinburgh is the Reykjavik of the South.
388		−Ego sum ens omnipotens.
389		−Eileen L. Behr has translated her skill in public speaking into a successful career selling capacitors.
390		−Either I'm dead or my watch has stopped. -Groucho Marx' last words
391		−Either we are alone or we are not. Either way is mind-boggling.
392		−Eleemosynary deeds have their incipience intramurally.
393		−English is a stretch language; one size fits all. -W. Safire
394		−Eschew the implement of correction and vitiate the scion.
395		−Espanol tiene demasiada mucha grammatica.
396		−Even a cabbage may look at a king.
397		−Even a hawk is an eagle among crows.
398		−Even if I could be Shakespeare, I think I should still choose to be Faraday. - A. Huxley
399		−Even paranoia can sometimes be taken to extremes.
400		−Even the boldest zebra fears the hungry lion.
401		−Even the simplest solution is bound to have something wrong with it.
402		−Even the smallest candle burns brighter in the dark.
403		−Even the thousand-zloty note can't tapdance.
404		−Even these days, it's not as easy to go crazy as you think.
405		−Ever see what ratfor does on a syntax error in a for loop?
406		−Ever wake up feeling like a null pointer? -Allan Pratt
407		−Every absurdity has a champion to defend it.
408		−Every cloud has a silver lining; you should have sold it, and bought titanium.
409		−Every day, thousands of housewives pick up speed.
410		−Every excess becomes a vice.
411		−Every good subversive does it for fun. -Rich Rosen
412		−Every law creates a whole new criminal class overnight.
413		−Every little picofarad has a nanohenry all its own.
414		−Every purchase has its price.
415		−Every solution breeds new problems.
416		−Every time you make something foolproof, along comes a better class of fool.
417		−Everybody should believe in something -- I believe I'll have another drink.
418		−Everything breaks down.
419		−Everything east of the San Andreas Fault will eventually plunge into the ocean.
420		−Everything is funny so long as it is happening to someone else. -Will Rogers
421		−Everything should be as simple as possible, but no simpler. - A. Einstein
422		−Everything takes longer than you think.
423		−Everything you know is wrong.
424		−Everything's been said before, but nobody's listening, so keep repeating.
425		−Ewige Blumenkraft.
426		−Excellent day for drinking heavily. Spike the office water cooler.
427		−Excellent day to have a rotten day.
428		−Excellent time to become a missing person.
429		−Executive ability is in your make-up.
430		−Exercise is the Yuppie version of bulemia.
431		−Exhibition will continue to decline and ultimately lead to other sources of entertainment.
432		−Expansion means complexity; and complexity decay.
433		−Expected arrival date is presently unknown. -Dave Kristol
434		−Experience varies directly with the equipment ruined.
435		−Explicit liber viri elephantini.
436		−External Security:
437		−FORTRAN 8X combines the simplicity of PL/I and the parsimony of ADA. -S Feldman
438		−Fact without theory is trivia, theory without fact is bullshit.
439		−Facta, non verba -- et verbum caro factus est.
440		−Facta, non verba.
441		−Fairness? Decency? How can you expect fairness and decency on a planet of sleeping people?
442		−Far duller than a serpent's tooth it is to spend a quiet youth.
443		−Far too noisy, my dear Mozart. Far too many notes. -Emperor Ferdinand.
444		−Favor negative lobes.
445		−Fear is failure and the forerunner of failure.
446		−Fear not, the end of the world isn't until next week.
447		−Few things are harder to put up with than the annoyance of a good example.
448		−Fiat lux.
449		−Fiat voluntas tua.
450		−Fill what's empty; empty what's full; scratch where it itches. -Alice Roosevelt Longworth
451		−Find the enemy and shoot him down; everything else is rubbish. -M. von Richthofen
452		−Fine day to throw a party. Throw him as far as you can.
453		−Fine day to work off excess energy. Steal something heavy.
454		−First there is a mountain, then there is no mountain, then there is.
455		−First things first. Why not send for the Nazis right now.
456		−Fleas can be taught nearly anything that a congressperson can.
457		−Flee at once, all is discovered.
458		−Flight 23 is down in the Bermuda Triangle.
459		−Florida is the "flea and tick capital of America."
460		−Fnord.
461		−For a good time, call 8367-3100.
462		−For every action there is an equal and opposite government program.
463		−For me, UNIX is a way of being. -Armando P. Stettner
464		−For people who like that kind of book, that is the kind of book they will like.
465		−Forget it, Jake...it's Chinatown.
466		−Forsan et haec olim meminisse juvabit.
467		−Fortis fortuna adiuvat. - Terence
468		−Fortran est; non potest legi.
469		−Fortunate are they who can laugh at themselves; they will never want for amusement.
470		−Fortune, good night, smile once more, turn thy wheel! - King Lear II.ii.180
471		−Fortunes ... come tumbling into some men's laps. - Francis Bacon.
472		−Frankly, I'd rather be in Philadelphia.
473		−Freedom is the right to be our own potty little selves. -G. K. Chesterton
474		−Freedom of incrustations of grime is contiguous with rectitude.
475		−Friends come and go, but enemies accumulate.
476		−Fritter and waste the hours in an offhand way.
477		−From EXPLMY: Serious internal error, check the error code in the documentation of VRFYMY.
478		−Future looks spotty. You will spill soup in late evening.
479		−Gaffer's tape, like The Force, has a light and a dark side and binds the universe together.
480		−Gallium Arsenide is the material of the future and it always will be.
481		−Generalizations are useful. The work contained in them can be reckoned as labor and therefore can create value. -G.W. Hegel
482		−Generosity and perfection are your everlasting goals.
483		−Genius is the talent of a person who is dead.
484		−Gentlemen, you can't fight here. This is the war room.
485		−Get your boots on, 'cause we're gunna go in DEEP!
486		−Give me a rock, paper and scissors and I will move the world. CCFestoon
487		−Give me a sleeping pill and tell me your troubles.
488		−Give your child mental blocks for Christmas.
489		−Given enough inside information and unlimited credit, you've got to go broke.
490		−Go directly to jail. Do not pass Go, do not collect $200.
491		−Go out and see what the real world has to offer -Gerry Todd
492		−Go suck on an infinite tube.
493		−God does not play dice.
494		−God gives us relatives; thank goodness we can choose our friends.
495		−God is in the rock too -- in the rock!
496		−God isn't dead, he just couldn't find a parking place.
497		−God made the integers; all else is the work of Man.
498		−God not only plays dice with the universe, He loads the dice too.
499		−Gods! A hideous beast, baying is pursuing us!
500		−Golden lads and girls all must,/Like chimney sweepers, come to dust.
501		−Good Americans, when they die, go to Paris. - Thomas Appleton.
502		−Good Rule: Don't put anything in your mouth labeled "HARMFUL IF SWALLOWED"
503		−Good day for a change of scene. Repaper the bedroom wall.
504		−Good day for flaming at floyd!trb.
505		−Good day for overcoming obstacles. Try a steeplechase.
506		−Good day to avoid cops. Crawl to work.
507		−Good day to do the unexpected: write some documentation.
508		−Good day to let down old friends who need help.
509		−Good day to write a purchase requisition for a 747.
510		−Good fish get dull but sex is always fun. -- Mehinaku proverb
511		−Good health is just the slowest, most lingering way of dying.
512		−Good intentions don't mean anything unless they can deliver.
513		−Good manners and bad breath get you nowhere
514		−Good news. Ten weeks from Friday will be a pretty good day.
515		−Gort! Klaatu barada...uh...uh...
516		−Government expands to absorb all available revenue and then some.
517		−Government is just Anarchy's way of making more anarchy.
518		−Graecum est; non potest legi.
519		−Great shot, kid. That was one in a million.
520		−Great warrior? Heh-heh-heh. Wars do not make one great.
521		−Green light in A.M. for new projects. Red light in P.M. for traffic tickets.
522		−Growth itself becomes the only moral end. -John Dewey
523		−Guns don't kill detectives -- love does.
524		−Ha! You killed my husband, Sam. Be kind to me.
525		−Had Cleopatra's nose been shorter, the whole history of the world would have been different. - Pascal
526		−Hail to the sun god/He sure is a fun god/Ra! Ra! Ra!
527		−Half Moon tonight. (At least it's better than no Moon at all.)
528		−Hang by your pseudopod, write if you find a warm rich planet ripe for conquest.
529		−Hang in there, hammock-nose.
530		−Hangover is the wrath of the grapes.
531		−Have a nice diurnal anomaly.
532		−Have you done your Christmas chopping yet? -anon. White House Advisor 12/24/81
533		−Have you hugged my T-shirt today?
534		−He can't think without his hat.
535		−He cried at all his own weddings, and with reason.
536		−He gave her a look that you could have poured on a waffle.
537		−He is no lawyer who cannot take two sides.
538		−He is truly wise who gains wisdom from another's mishap.
539		−He is winding the watch of his wit; by and by it will strike.
540		−He looked at me as if I was a side dish he hadn't ordered.
541		−He missed an invaluable opportunity to hold his tongue.
542		−He serves the state best who opposes it most. -Thoreau
543		−He that laugheth in the face of death haveth the last laugh.
544		−He thinks by infection, catching an opinion like a cold.
545		−He was al coltissh, ful of ragerye,/And ful of jargon as a flekke pye. -Chaucer
546		−He was so narrow-minded he could see through a keyhole with two eyes.
547		−He who binds himself to a joy/Does the winged life destroy. -Wm. Blake
548		−He who has a shady past knows that nice guys finish last.
549		−He who has imagination without learning has wings but no feet.
550		−He who has science and art has religion. -Goethe
551		−He who hesitates is last.
552		−He who hesitates is scrap metal.
553		−He who hesitates is sometimes saved.
554		−He who invents adages for others to peruse takes along rowboat when going on cruise.
555		−He who keeps his nose to the grindstone, has a flat face.
556		−He who laughs last is a little slow on the uptake.
557		−He who laughs, lasts.
558		−He who listens last is the last one listening.
559		−He who makes a beast of himself gets rid of the pain of being a man. -H.S. Thompson
560		−He who spends a storm beneath a tree, takes life with a grain of TNT.
561		−He who trains his tongue to quote from learned sages will be known far and wide as a smartass.
562		−He who wears belt and suspenders needs tighter belt.
563		−Help a swallow land at Capistrano.
564		−Help conquer the IQ shortage: worry less and think more.
565		−Help me, i'm a prisoner in a chinese computer terminal!
566		−Hey, I've got it -- let's put on a show!
567		−Hi, this is Ken. What's the root password?
568		−Hindsight is an exact science.
569		−His heart was yours from the first moment that you met.
570		−His money is twice tainted: 'taint yours and 'taint mine.
571		−History is a race between education and catastrophe. -H. G. Wells
572		−Hit space to start
573		−Hodie tempum scriptire in Latinum non habeo. Cras epistlum submissibo.
574		−Home is the place where, when you have to go there, they have to take you in.
575		−Home is where / is.
576		−Honi soit la vache qui rit.
577		−Hop before you skip.
578		−Horse sense is the thing a horse has which keeps it from betting on people.
579		−How I want a drink, alcoholic of course, after the chapters involving quantum mechanics.
580		−How can I take an interest in my work when I don't like it?
581		−How can you work when the system's so crowded?
582		−How did the Universe manage to go bang in such an unreasonable way? -PCW Davies
583		−How do I love thee? Hand me my calculator...
584		−How is it far, if you can think of it?
585		−How long you live has nothing to do with how long you are going to be dead.
586		−How sharper than a child's tooth it is to have a thankless serpent.
587		−How sharper than a serpent's tooth it is to have a thankless child.
588		−How the elephant got into my pyjamas I'll never know. -Marx, Animal Crackers
589		−How wonderful opera would be if there were no singers.
590		−How you look depends on where you go.
591		−Human beings are the only animals of which I am thoroughly and cravenly afraid.
592		−Human kind cannot bear very much reality. -T.S. Eliot
593		−Hypocrisy is the tribute vice pays to virtue.
594		−Hypothesize and test.
595		−I am Magnus. You are registered in my memory banks...
596		−I am a high-pressure guy, and I didn't take this job to conduct a going-out-of-business sale. - A.A. Penzias
597		−I am free of the wheel of Maya; I am dead to the dance of life.
598		−I am large; I contain multitudes.
599		−I am the Supreme Being. I'm not entirely dim.
600		−I am the beast, I am the Word of the Aeon...I am a hell of a Holy Guru.
601		−I am the wandering glitch -- catch me if you can.
602		−I can call spirits from the vasty deep./Why, so can I, or so can any man.
603		−I can resist everything except temptation. -Oscar Wilde.
604		−I can't decide whether to throw you overboard or just change the way you look.
605		−I cannot teach him. The boy has no patience.
606		−I contradict myself? Very well, then: I contradict myself. I am large.
607		−I dinna believe she'll hold up much longer, Captin.
608		−I do not sketch or design a work, I merely begin. -Joan Miro
609		−I don't even know what street Canada is on. - Al Capone
610		−I don't have a moral plan... I'm a Canadian. -David Cronenberg
611		−I don't like to walk, and I don't like to paddle. -James Watt
612		−I don't love you any more since you ate my dog.
613		−I don't mind your thinking slowly; i mind your publishing faster than you think. -W. Pauli
614		−I give presents to the mother, but I think of the daughter.
615		−I hate programs that chdir on you - Boyd Roberts
616		−I have 36 rolls of 5247 for our use in the laser fridge...
617		−I have NEVER written a program in C! Narain Gehani
618		−I have discovered the art of deceiving diplomats; I tell them the truth and they never believe me. -Cavour
619		−I have everything we will need.
620		−I have never let my schooling interfere with my educations.
621		−I have nothing to say and I am saying it and that is poetry as I need it. -Cage
622		−I have the most perfect confidence in your indiscretion.
623		−I haven't lost my mind. I've got it backed up on tape somewhere.
624		−I hope that there are sour apples in every bushel.
625		−I kissed my first cigarette on the herpolhode lying in the invariable plane.
626		−I kissed my first cigarette on the stage unless someone intends to fire it.
627		−I kissed my first lady and smoked my first cigarette on the same day. I have never had time for tobacco since. -Arturo Toscanini
628		−I know nothing. -Ken Thompson
629		−I know the difference between real-real and drug-real.
630		−I like user-hostile ignorance-based amateur systems.
631		−I like work; it fascinates me; I can sit and look at it for hours.
632		−I love Pascal ... I'm also into leather.
633		−I love the smell of napalm in the morning.
634		−I love you.
635		−I must have slipped a disk; my pack hurts.
636		−I never dringk ... wine. -Bela Lugosi
637		−I never refuse. I never contradict. I sometimes forget. -Disraeli
638		−I knew it was coming and I still felt as if I'd swallowed a snowcone whole.
639		−I regard an original error as better than a borrowed truth. -Merton.
640		−I regard an original error as better than no Moon at all.
641		−I see no login here!
642		−I see only darkness in the crystal ball
643		−I sense something -- a presence I haven't felt since....
644		−I taught him everything he knows. Now he knows more. -Randal L. Schwartz
645		−I thank you from the heart of my bottom.
646		−I think Isaac Newton is doing most of the driving right now.
647		−I think my spaceship knows which way to go.
648		−I think that I shall never see a billboard as lovely as a tree. -Ogden Nash
649		−I think; therefore I am confused.
650		−I was just going to call you.
651		−I will not suffer fools gladly, but I will gladly make fools suffer. -Bimmler
652		−I wish I had time to explain dimensional transcendentalism -Dr. Who
653		−I wish you humans would leave me alone.
654		−I wonder what will happen if I touch these two wires together.
655		−I would be perfectly happy being Kepler, [but] I have been Kepler many times over.-B. Mandelbrot
656		−I wouldn't let a knight out on a dog like this!
657		−I wouldn't marry her to a ten foot Pole.
658		−I wouldn't marry him with a ten foot pole.
659		−I'd give my right arm to be ambidextrous.
660		−I'd rather have a free bottle in front of me than a pre-frontal lobotomy. -Martin Mull
661		−I'd rather have my mail delivered by Lockheed than ride in a plane built by the Post Office.
662		−I'll eat it if I'm wrong. I mean a potato. - Danny Sleator
663		−I'll produce anything that gets high ratings. -Anonymous NBC official
664		−I'll smoke when the pope's wife takes the pill.
665		−I'm a Hollywood writer; so I put on a sports jacket and take off my brain.
666		−I'm free -- and freedom tastes of reality.
667		−I'm from the government, and I'm here to help you.
668		−I'm prepared for all emergencies but totally unprepared for everyday life.
669		−I'm so hip I have difficulty seeing over my pelvis.
670		−I'm sorry, but I've made other plans.
671		−I've done this before and never had any trouble.
672		−I've got a ferret sticking up my nose.
673		−ICIKL: DO I = 1 /* BY +1 FELTETELEZESEVEL / TO 2N;
674		−IOT trap -- core dumped
675		−IOT trap -- core melted
676		−If A=B and B=C, then A=C, except where void or prohibited by law. -Roy Santoro
677		−If Congress must do a painful thing, it must be done in an odd-numbered year.
678		−If God could perform the tricks we do, He'd be a happy man.
679		−If God had meant Texans to ski, he would have made bullshit white.
680		−If God had wanted you to go around nude, He would have given you bigger hands.
681		−If God is perfect, why did He create discontinuous functions?
682		−If God lived on Earth, people would knock out all His windows.
683		−If God meant for Texans to ski, He would have made them a mountain.
684		−If God wanted us to have a President, He would have sent us a candidate.
685		−If I could remember the names of all these particles I would have been a botanist. -- Enrico Fermi
686		−If I had only known, I would have been a locksmith. -Albert Einstein
687		−If I had to choose between System V and 4.2, I'd resign. - Peter Honeyman
688		−If I owned Texas and Hell, I'd rent out Texas and live in Hell.
689		−If I say it's safe to surf this beach, Captain, it's safe to surf this beach.
690		−If I should return in my absence, kindly detain me until I get back.
691		−If I wanted your opinion, I'd tell it to you. -Samuel Goldwyn
692		−If Lincoln were alive today he would be spinning in his grave. -G. Ford
693		−If MS/DOS is the only operating system you're ever going to use, then the procedure is simple
694		−If a thousand people say a foolish thing, it remains a foolish thing.
695		−If all economists were laid end to end, they would not reach a conclusion.
696		−If anything can go wrong, it will.
697		−If at first you don't succeed, quit; don't be a nut about success.
698		−If at first you succeed, try to hide your astonishment.
699		−If bankers can count, why do they have eight windows and only four tellers?
700		−If butterflies had teeth like tigers they would never make it out of the hangar.
701		−If double-bubble inflation did occur, then the shadow world is exponentially uninteresting.
702		−If ever I utter an oath again may my soul be blasted to eternal damnation.
703		−If everything is coming your way, you're in the wrong lane.
704		−If ignorance were cornflakes, you'd be General Mills.
705		−If it ain't broke, don't fix it.
706		−If it doesn't matter, it does not matter.
707		−If it happens, it must be possible.
708		−If it isn't like TECO, it's not worth using. -Rae McLellan
709		−If it pours before seven, it has rained by eleven.
710		−If it were dangerous they would post a sign...
711		−If it's boring, turn it off.
712		−If it's gratitude you want, get a dog. -P. T. Barnum
713		−If it's not broken, don't fix it.
714		−If it's not worth doing, it's not worth doing well.
715		−If it's worth doing well, it's worth doing.
716		−If more is better then too much is just enough.
717		−If music be the breakfast food of love, kindly do not disturb until lunch time.
718		−If some day it should happen that a victim must be found, I've got a little list, I've got a little list.
719		−If the "medium is the message" then the message of low-bandwidth timesharing is "blah". -- Alan Kay
720		−If the check is truly in the mail, it is surely made out to someone else.
721		−If the coin is heads up don't pick it up.
722		−If the experiment works, you must be using the wrong equipment.
723		−If the facts do not support the theory, they must be disposed of.
724		−If the government doesn't trust the people, why doesn't it elect a new people?
725		−If the shoe fits, buy the other one, too.
726		−If there are any resources you need to get this job done, just let us know.
727		−If there is no God, who pops up the next Kleenex? -Art Hoppe
728		−If they gave me a goldfish, I would cook it. -Feng Jicai
729		−If time heals all wounds, how come the belly button stays the same?
730		−If voting could change the system, it would be against the law.
731		−If we turn on the lights fast enough, we'll see what the dark looks like.
732		−If we'd all been living in California, we wouldn't have worked at ALL.
733		−If you ask how much it is, you can't afford it.
734		−If you can't find enough radiation at Ralph's, you can probably do without it.
735		−If you can't stand the heat, remove your clothing!
736		−If you cannot convince them, confuse them. -Harry S. Truman
737		−If you do a job too well, you'll get stuck with it.
738		−If you don't care where you are, then you ain't lost.
739		−If you don't insist on correct answers, I can make it run as fast as you want.
740		−If you don't know where you're going, it doesn't matter how you get there.
741		−If you don't like the weather in New England, just wait a few minutes.
742		−If you don't pay attention to every little detail, you miss most of the jokes.
743		−If you gaze long enough into the abyss, the abyss will gaze back into you.
744		−If you grab the bull by the horns, feathers will fly.
745		−If you have to lie to someone, it's their fault.
746		−If you have to think twice about it, you're wrong.
747		−If you have to travel on the Titanic, why not go first class?
748		−If you know high class quality merchandise, you know this is CHEAP!
749		−If you start now you might finish on time.
750		−If you suspect a man, don't employ him.
751		−If you take the last cup, make a new pot.
752		−If you take the last pot, make a new cup.
753		−If you think before you speak the other guy gets his joke in first.
754		−If you think big enough, you'll never have to do it.
755		−If you think it's hard going to the moon, you should try staying home.
756		−If you think last Tuesday was a drag, wait till you see what happens tomorrow!
757		−If you want to go somewhere, goto is the best way to get there. K Thompson
758		−If you want to have clean ideas, change them like shirts.
759		−If you were able to count up to infinity I'll bet you would never get over it.
760		−If you're asked to join a parade, don't march behind the elephants.
761		−If you're feeling good, don't worry. You'll get over it.
762		−If you're not apprehensive then you don't understand the situation.
763		−If you're not part of the solution, you're part of the precipitate.
764		−If your experiment needs statistics, you ought to have done a better experiment. - E. Rutherford
765		−Ignore alien orders.
766		−Ignore previous fortune.
767		−Ignore the fatal errors. It's O.K.
768		−Il faut cultiver son jardins. -Voltaire
769		−Illegal Arbitrator - Line 23
770		−Illegitimi non carborundum.
771		−Immanuel Kant but Kubla Khan.
772		−In Africa the tusks are too firmly rooted, but in Alabama the Tuscaloosa.
773		−In addition to a yes and a no, the universe contains a maybe. -D. Finkelstein
774		−In an evolving universe, who stands still moves backwards.
775		−In any society, the correct pronunciation is the dialect that has an army.
776		−In case of fire, stand in the hall and shout "Fire!".
777		−In challenging a kzin, a simple scream of rage is sufficient.
778		−In communism Man exploits Man. In capitalism it's the other way around.
779		−In comparison with the ancients, we stand like dwarfs on the shoulders of giants. -Bernard of Chartres
780		−In girum imus nocte et consumimur igni.
781		−In marriage, as in war, it is permitted to take every advantage of the enemy.
782		−In nature there is immediate adjustment but no compulsion. -Chuang Chou
783		−In order to make an omelette, you have to break a few cooks.
784		−In rebus mathematicis errores quam minimi non sunt contemnendi.
785		−In the Unix tradition, vi is intended to be a small tool that does one thing well.
786		−In the future, all programmers will be able to use malloc.
787		−In the land of the blind the one-eyed man can see across the road and prove it.
788		−In the land of the blind, the one-eyed man is king.
789		−In the land of the one-eyed men, the blind have to wear glasses.
790		−In this world, truth can wait; she's used to it.
791		−Incest, like charity, begins at home.
792		−Insanity is always the best defense against boredom.
793		−Inside every large problem is a small problem struggling to get out. -N. Wirth
794		−Intermittent resolutions lack potency. -Robert Silverberg
795		−Into each life a little fallout must rain. -Baba Rebop
796		−It got to a point where I had to get a haircut or a violin. -F.D.Roosevelt
797		−It is a poor judge who cannot award a prize.
798		−It is a tale told by an idiot, full of sound and fury, signifying nothing.
799		−It is a very sad thing nowadays that there is so little useless information.
800		−It is absurd to deny the role of fantasy in even the strictest science. -Lenin
801		−It is bad luck to be superstitious. -Andrew W. Mathis
802		−It is better to have loved and lost -- much better.
803		−It is better to have loved and lost than just to have lost.
804		−It is better to kiss an avocado than to get in a fight with an aardvark.
805		−It is better to light a single candle than to curse the darkness, except at the Browns Ferry reactor.
806		−It is better to rule in Hell than to serve in Heaven. -Milton
807		−It is better to wear out than to rust out.
808		−It is easier to get forgiveness than permission.
809		−It is far better to vote for a loser than to elect one.
810		−It is far better to vote for a loser than to elect?
811		−It is fruitless to become lachrymal over precipitately departed lacteal fluid.
812		−It is hard to sit with the turkeys when you soar with the eagles.
813		−It is much easier to suggest solutions when you know nothing about the problem.
814		−It is the business of the future to be dangerous. -Hawkwind
815		−It is the wise bird who builds her nest in a tree.
816		−It is useless to put on your brakes when you're upside down. -Paul Newman
817		−It seems like the less a statesman amounts to, the more he loves the flag.
818		−It seems to make an auto driver mad if he misses you.
819		−It steam-engines when it becomes steam-engine time. -Charles Fort
820		−It takes approximately two minutes to reposition the continents from one geological era to another.
821		−It was a book to kill time for those who liked it better dead.
822		−It works better if you plug it in.
823		−It would appear that even BTL employees put their pants on one leg at a time.
824		−It would be wise to cut expectations in half.
825		−It's 5 o'clock. Do you know where your files are?
826		−It's Your Environment -- Use It Up!
827		−It's a hardware problem.
828		−It's a sad woman who buys her own perfume.
829		−It's a small world, but I'd hate to have to paint it.
830		−It's a software problem.
831		−It's a useless but absolutely vital precaution.
832		−It's an empty head that wears a hairpiece. - Pauline Kael
833		−It's business doing pleasure with you.
834		−It's clever, but is it art?
835		−It's deja vu all over again.
836		−It's difficult to explain Kleenex to an aborigine.
837		−It's earlier than you think.
838		−It's funny how they work so well, even when they're not appropriate.
839		−It's hard to be humble when you're perfect.
840		−It's hard to be mellow when you bite your nails.
841		−It's hard to be mellow when you can't stand up.
842		−It's hard to love someone who looks down on you because your hands get bloody protecting him.
843		−It's just a silly native superstition.
844		−It's later than you think.
845		−It's lonely at the top, but it's lonelier at the bottom.
846		−It's morally wrong to allow suckers to keep their money.
847		−It's not Camelot, but it's not Cleveland, either. -Boston Mayor Kevin White
848		−It's not a car, it's a Volkswagen.
849		−It's not cool enough for the eighties.
850		−It's not easy to play the clown when you've got to run the whole circus.
851		−It's not my fault -- it's a mechanical problem!
852		−It's not my fault!
853		−It's not reality that's important, but how you perceive things.
854		−It's not reality that's important, it's how you perceive things.
855		−It's not the time between the takes that takes the time - it's changing your mind between the takes that takes the time. -Stage Dept.
856		−It's not the time it takes to take the takes that takes the time, it's the time it takes between the takes that takes the time. -S. Spielberg
857		−It's not the years, it's the mileage.
858		−It's only a game!
859		−It's simple, clean, it works, and you can get it right now. -Mike O'Dell
860		−It's some kind of instinct...This was an important place in their lives.
861		−It's the law: Use a pun, go to prism (for minor refractions of the law only!)
862		−It's the thought, if any, that counts! -Dick Grantges
863		−It's time to gearshift up from the crawl we've been in to a full trot. - Jack Scanlon
864		−It's worse than being at the theatre.
865		−Jam tomorrow and jam yesterday -- but never jam today.
866		−Jesus Rodrigues has a 9-inch duck.
867		−Jesus saves, Moses invests, the Mongol Hoards, but only Buddha pays dividends.
868		−Join me and I will complete your training.
869		−Journalism will kill you, but it will keep you alive while you're at it.
870		−Just be glad you don't get all the government you pay for. -Will Rogers
871		−Just because you're paranoid doesn't mean they're not out to get you.
872		−Justice for the poor is much less popular than revenge on the rich.
873		−Keep emotionally active. Cater to your favorite neurosis.
874		−Ken Thompson can't beat Belle. So what? How fast can Seymour Cray add?
875		−Kids are always the only future the human race has. -William Saroyan
876		−Kill ugly radio!
877		−Klaatu barada nikto.
878		−Kleeneliness is next to Goedeliness.
879		−Label on a bottle of pills: "Do not take these pills if this label is missing"
880		−Lack of leadership is no substitute for inaction.
881		−Lando's not a system, he's a man. He's a gambler, scoundrel. You'd like him.
882		−Language is a virus from outer space. -William Burroughs.
883		−Language is all that separates us from the lower animals and the bureaucrats.
884		−Last login: Sat Aug 10 09:22:14 on ttym0
885		−Laugh and the world laughs with you; snore and you sleep alone.
886		−Laugh, and the world ignores you. Crying doesn't help either.
887		−Lay on, MacDuff, and curs'd be him who first cries, `Hold, enough!'
888		−Leadership means taxes.
889		−Lest men suspect your tale untrue,/Keep probability in view. -John Gay (1727)
890		−Let a fool hold his tongue and he will pass for a sage.
891		−Let him who takes the Plunge remember to return it by Tuesday.
892		−Let no one unskilled in geometry enter here. -Plato
893		−Let not the sands of time get in your lunch.
894		−Let sleeping wraiths lie.
895		−Let's just take this shortcut across this field. That bull doesn't see us.
896		−Let's look at the record. -Al Smith
897		−Li'l dollink, always fetful.
898		−Liar: One who tells an unpleasant truth.
899		−Life is a game: whoever dies with the most toys wins.
900		−Life is a giant shell and we're just processes.
901		−Life is a mystery -- love is a dancer.
902		−Life is a yo-yo, and mankind ties knots in the string.
903		−Life is hard but unjust.
904		−Life is just a bowl.
905		−Life is not for everyone. -M. O'Donoghue
906		−Life is what happens to you while you're busy making other plans.
907		−Like winter snow on summer lawn, time past is time gone.
908		−Little girls have pretty curls, but I like Oreos.
909		−Little things come in small packages.
910		−Live forever, or die trying.
911		−Live long and perspire.
912		−Living in the past has one thing in its favour - it's cheaper.
913		−Load average too high now (11.358253), please try later
914		−Local disks are our FORTRAN. -Warren Teitelman
915		−Long computations which yield 0 (zero) are probably all for naught.
916		−Longevity is an optimist's heaven and a pessimist's hell.
917		−Look after the molehills and the mountains will look after themselves.
918		−Look on my works, oh ye mighty, and giggle.
919		−Lord? We don't have no lord. We're an anarcho-syndicalist commune.
920		−Lose a few, lose a few.
921		−Losing your servo track is just God's way of saying `BOOGA, BOOGA!'
922		−Love and scandal are the best sweeteners of tea.
923		−Love is a many gendered thing.
924		−Love is in the offing, said the homicidal maniac.
925		−Love is only love, but money is forever.
926		−Love the sea? I dote upon it - from the beach.
927		−Love, and do what thou wilt.
928		−Luchamos contra el Wombat, otra enemigo de la humanidad. -Frente Wombato de Liberacion Nacional
929		−Luke, don't give in to hate. That leads to the dark side.
930		−MOUNT TAPE U1439 ON B3, NO RING
931		−Machne oprating at olny tn prcnt eficiency.
932		−Macro context switch under way, please do not log out!
933		−Make War, not Love: killing is fun too. -Nicholas von Hoffman
934		−Make a list of all the facts you know about the universe.
935		−Make is like Pascal: everybody likes it, so they go in and change it. -DM Ritchie
936		−Make use of whatever advanced technology is available
937		−Make: Don't know how to make love. Stop.
938		−Making outside money using our computers has resulted in suspension.
939		−Making sense makes more sense than not making sense. -T. Duff
940		−Male tyrannosaurs may have used their diminutive front legs to titillate female partners, but this will not explain why they got so small. - Gould and Lewontin
941		−Man cannot live by bread alone: frequently, there must be beverage, too.
942		−Man cannot live by bread alone; he needs a little peanut butter on it.
943		−Man has created death. -William Butler Yeats
944		−Man is in doubt to deem himself a god or beast. -Alexander Pope
945		−Man is in session.
946		−Man who falls in vat of molten optical glass makes spectacle of self.
947		−Man's horizons are bounded by his vision.
948		−Many are called, few are chosen. Fewer still get to do the choosing.
949		−Many are called, few volunteer.
950		−Many are cold, but few are frozen.
951		−Many pages make a thick book.
952		−Marriage is a ghastly public confession of a strictly private intention.
953		−Marriage is an attempt to change a night owl into a homing pigeon.
954		−Masterpieces make their own rules.
955		−May I have a large container of coffee?
956		−May the bluebird of happiness twiddle your bits.
957		−May you live all the days of your life.
958		−May your rolling stone always grow grass that is greener underneath.
959		−Maybe I should have screwed up. - Ken Thompson
960		−Mcc may be slow and generate bad code, but it took a long time to develop.
961		−Medeis ageometretos eisito mou ten stegen. -Plato
962		−Members of an avian species of identical plumage congregate.
963		−Men seldom make passes at girls who wear glasses. -Dorothy Parker.
964		−Men seldom show dimples to girls who have pimples.
965		−Message will arrive in the mail. Destroy, before the FBI sees it.
966		−Micronics makes it simple.
967		−Might as well be frank, monsieur. It would take a miracle to get you out of Casablanca.
968		−Military justice is to justice as military music is to music. -Clemenceau
969		−Military music is to music as military intelligence is to intelligence
970		−Mind your own business, Spock. I'm sick of your halfbreed interference.
971		−Misery loves company, but company does not reciprocate.
972		−Misfortunes arrive on wings and leave on foot.
973		−Mistakes are oft the stepping stones to failure.
974		−Money cannot buy happiness, but happiness will not buy groceries.
975		−Money is a terrible thing to follow but a charming thing to meet.
976		−Money is the root of all evil, and man needs roots.
977		−Money may buy friendship but money can not buy love.
978		−Money will say more in one moment than the most eloquent lover can in years.
979		−Most sacrilegious murder hath broke ope/The Lord's anointed temple. -MacBeth
980		−Most users are within a 10 mile radius.
981		−Mr. President! We cannot allow ... a MINE-SHAFT GAP!
982		−Multi sunt vocati, pauci vero electi.
983		−Multilevel standards are like onions. They're smelly and make you cry a lot. -Ron Natalie
984		−My broker is E. F. Hutton, and E. F. Hutton says...
985		−My karma just ran over your dogma.
986		−My program is so jammed with clever tricks - GJ Holzmann
987		−My way of joking is to tell the truth; it's the funniest joke in the world.
988		−NOT NOT NOT ALLOWED
989		−Naked is the best disguise.
990		−National security is the chief cause of national insecurity.
991		−Need a personal problem? Get a personal computer. - C. P. Killian
992		−Neither a borrower nor a lender be/For loan oft loses both itself and friend.
993		−Nembutal numbs it all, but I prefer alcohol. -Strummer/Jones
994		−Netnews is someone yelling "Anybody wanna buy a used car?" in a crowded theater.
995		−Never argue with a fool -- people might not know the difference.
996		−Never attribute to malice what can be found in scientific american, under computer recreations.
997		−Never buy a case of wine with eleven bottles.
998		−Never call a man a fool. Borrow from him.
999		−Never eat anything bigger than your head.
1000		−Never eat in a restaurant that rotates or is above the 10th floor.
1001		−Never eat rutabaga on any day of the week that has a "y" in it.
1002		−Never give a inch!
1003		−Never hatchet your Counts before they chicken.
1004		−Never lick a gift horse in the mouth.
1005		−Never put off till tomorrow what you can avoid altogether.
1006		−Never speak ill of yourself; your friends will always say enough on that subject.
1007		−Never stow away on a kamikaze plane.
1008		−Never worry the boss unnecessarily. Don't tell him.
1009		−New career ideas are worth pursuing.
1010		−New crypt. See /usr/news/crypt.
1011		−Niagara Falls is the second-biggest disappointment in a bride's life. -O. Wilde
1012		−Niagara Falls is the wise bird who builds her nest in a chinese computer terminal!
1013		−Niagara Falls would be much more impressive if it flowed the other way. - Oscar Wilde
1014		−Nihilism means nothing to the dancing peasants.
1015		−Nihilism should commence with oneself.
1016		−No amount of genius can overcome a preoccupation with detail.
1017		−No branch is better than its trunk.
1018		−No directory
1019		−No directory! Logging in with home=/
1020		−No good deed goes unpunished. -Clare Booth Luce.
1021		−No jaggies!
1022		−No man's life, liberty or property are safe while the legislature is in session.
1023		−No mistake is too small to be fixed, but first make sure it's a mistake.
1024		−No news is good news.
1025		−No note is too high to be taken down an octave.
1026		−No one can feel as helpless as the owner of a sick goldfish.
1027		−No two ways about it, there are two sides to every story.
1028		−No user jobs will be lost because of the crash.
1029		−Nobody can be as agreeable as an uninvited guest.
1030		−Nobody expects the Spanish Inquisition!
1031		−Nobody goes to the theatre unless suffering from acute bronchitis.
1032		−Nobody is truly sane until he feels gratitude to the whole universe.
1033		−Nobody knows anything, or if they do, they are careful to hide the fact.
1034		−Nobody takes computer graphics seriously, even the guys that do it. -T. Duff
1035		−Non serviam.
1036		−Nostalgia isn't what it used to be.
1037		−Not all the water in a rough rude sea/Can wash the balm from an anointed king.
1038		−Not only is there no God, but try getting a plumber on Sundays.
1039		−Nothing astonishes men so much as common sense and plain dealing.
1040		−Nothing difficult is ever easy. -Steve Falco
1041		−Nothing is as easy as it looks.
1042		−Nothing is capable of being well set to music that is not nonsense. - Joseph Addison.
1043		−Nothing is impossible for the man who doesn't have to do it himself.
1044		−Nothing is impossible for the man who will not listen to reason.
1045		−Nothing is true. Everything is permissible. -Hassan i Sabbah
1046		−Nothing matters indeed, it's all in your mind...
1047		−Nothing more certain than incertainties; Fortune is full of fresh variety: Constant in nothing but inconstancy. - Richard Barnfield.
1048		−Nothing of interest ever happened on this day.
1049		−Nothing works. No one knows why. And some jerk is talking French. -Bob Lied
1050		−Now and then an innocent man is sent to the legislature.
1051		−Now is the winter of our discontent, made glorious summer in Northern California.
1052		−Now is the winter of our discontent/Made glorious summer by this sun of York.
1053		−O brave new world,/That has such people in't!
1054		−O dear Ophelia! I am ill at these numbers: I have not art to reckon my groans.
1055		−O.T.O. wants you.
1056		−OK, I think I understand.
1057		−OS 360 -- Not uranium.
1058		−Of all forms of caution, caution in love is the most fatal.
1059		−Of all things man is the measure. -Protagoras
1060		−Oh, don't the days seem lank and long, when all goes right and nothing goes wrong.
1061		−Oh, so there you are!
1062		−Old MacDonald had an agricultural real estate tax abatement.
1063		−Old age -- it's the only disease that you don't look forward to being cured of.
1064		−Omnibus ex nihil ducendis sufficit unum. -Gottfried Wilhelm von Leibniz
1065		−On a clear disk you can seek forever.
1066		−Once TOAD is operational, how frequently would you expect to access TOAD?
1067		−One Bell System -- it sometimes works.
1068		−One Bell System -- it works.
1069		−One bad apple can ruin a snake.
1070		−One horse-laugh is worth ten thousand syllogisms. -H. L. Mencken
1071		−One man tells a falsehood, a hundred repeat it as true.
1072		−One man's Mede is another man's Persian.
1073		−One picture is worth 128k words.
1074		−One scythe fits all.
1075		−One starts life with a swelled head and ends with swelled feet. -Ezra Pound
1076		−Only %d shopping days until Christmas.
1077		−Only God can make a random selection.
1078		−Only someone with nothing to be sorry for smiles back at the rear of an elephant.
1079		−Only two things are infinite: the universe and human ignorance. -A. Einstein
1080		−Ontogeny recapitulates phylogeny, or is that ontology recapitulates philology?
1081		−Ontogeny recapitulates phylogeny. -Haeckel
1082		−Ontogeny rehashes phylogeny.
1083		−Ooh, Andy Tannenbaum? His netnews is SO derivative.
1084		−Options can cause undesirable operations, so it is important to ensure they are set up properly.
1085		−Order ignorant aliens.
1086		−Others will look to you for stability, so hide when you bite your nails.
1087		−Otto's too so-so to toss soot, too sot to toot SOSs. So?
1088		−Our ancestors may have been ignorant, but they were not stupid.
1089		−Our sponsor thought it was for ADA. In fact it was for C.
1090		−Our vision will speed up time, eventually deleting it. -Alexander Schure
1091		−Out of memory saving lines for undo - try using ed.
1092		−Out of the mouths of babes comes semi-digested Pablum.
1093		−Overall there is a smell of fried onions. (fnord)
1094		−Pack my box with five dozen liquor jugs.
1095		−Panem et circenses, that's what the public wants.
1096		−Paranoia doesn't mean the whole world really isn't out to get you.
1097		−Pardon me for breathing, which I never do anyway oh, God, I'm so depressed...
1098		−Passing over a black hole temporarily disables ship.
1099		−Password:
1100		−People get it into their heads that this is a democracy. Well it isn't. -gwl
1101		−People never go there anymore; it's too crowded. -Yogi Berra
1102		−People really shouldn't spread gossip, but what else is it good for?
1103		−People tend to congregate in the back of the church and the front of the bus.
1104		−People usually do what other people have done before them.
1105		−People who deal with bits should expect to get bitten. -Jon Bentley
1106		−People who take cat naps don't usually sleep in a cat's cradle.
1107		−People who think they know everything greatly annoy us who do.
1108		−People will buy anything that's one to a customer.
1109		−Per omnia saecula vombatidae.
1110		−Perfect day for scrubbing the floor and other exciting things.
1111		−Perfect love casteth out fear.
1112		−Person who falls in blast furnace is certain to feel overwrought.
1113		−Personality is a flimsy thing on which to build an art. -John Cage
1114		−Philosophy is the Rule of Life.
1115		−Philosopy: unintelligible answers to insoluble problems.
1116		−Physician, bill thyself.
1117		−Planning dooms most projects.
1118		−Please log off, the computer is out to get in your room and drink?
1119		−Please log off, the computer is out to lunch.
1120		−Please take note:
1121		−Please to remember the Fifth of November, Gunpowder Treason and Plot.
1122		−Plunk your magic twanger, froggy.
1123		−Pluralites non est punenda sine necessitate. -Wm. of Occam
1124		−Plus ça change, plus c'est la même chose.
1125		−Politicians, ugly buildings and whores all get respectable if they last long enough.
1126		−Populus vult decipi.
1127		−Pornography is in the groin of the beholder. -William F. Buckley
1128		−Post hoc, ergo propter hoc.
1129		−Post proelium, praemium.
1130		−Pregnant ropuli.
1131		−Premature optimization is the root of all evil. -D. E. Knuth
1132		−Preserve wildlife -- pickle a squirrel today!
1133		−Prevention makes the heart grow fonder.
1134		−Primate behaviour only changes under the impact of new technology.
1135		−Pro is to con as progress is to Congress.
1136		−Procrastination is the art of keeping up with yesterday. -Don Marquis
1137		−Programming and puddings demand consistency.
1138		−Progress is made on alternate Fridays.
1139		−Promptness is its own reward, if one lives by the clock instead of the sword.
1140		−Proofreading is more effective after publication.
1141		−Proper planning includes admitting that your plan may not work.
1142		−Pulchritude possesses solely cutaneous profundity.
1143		−Put not your trust in money, but your money in trust.
1144		−Put your mouth where your mouth is.
1145		−Quantity is no substitute for quality, but it's the only one we've got.
1146		−Quantum mechanics do it with uncertainty.
1147		−Questions are a burden for others; answers are a prison for oneself.
1148		−Rain before sunset, dark by midnight.
1149		−Rainy days and Mondays always get me down.
1150		−Reach out and grep someone.
1151		−Reading is thinking with someone else's head instead of one's own.
1152		−Real programmers can't say `lint' without adding `hbaxcu' -Wm Leler
1153		−Real programs don't eat cache.
1154		−Reality is for those who can't handle drugs.
1155		−Reality is good for you...in small doses.
1156		−Reality is silly-putty. -Paul Krassner
1157		−Reality seems harsher in the early morning.
1158		−Reason establishes the foundation of faith. Faith compensates the error of reason.
1159		−Reason is a universal instrument which can serve on any kind of occasion. -Descartes
1160		−Reform always comes from below. No man with four aces asks for a new deal.
1161		−Regnant populi.
1162		−Rei panta.
1163		−Religions revolve madly around sexual questions.
1164		−Remember that "almost" means "not".
1165		−Remember the Unknown Buffalo.
1166		−Remember when you asked me to tell you when you were being inconsiderate?
1167		−Remember why the good Lord made your eyes -- Pla-gi-a-rize! -Tom Lehrer
1168		−Remember, UNIX spelled backwards is XINU.
1169		−Remember, even if you win the rat race -- you're still a rat.
1170		−Render unto Caesar if line 54 is larger than line 62.
1171		−Repetition is a form of change. -B. Eno
1172		−Research is a great career: you get paid for looking, regardless of results.
1173		−Respect you in the morning?! Hell, I don't even respect you now.
1174		−Restrain your octopus! The canoes are going fishing tomorrow.
1175		−Ring around the collar.
1176		−Ring the bell; close the book; quench the candle.
1177		−Ritual is to the inner sciences what experiment is to the outer sciences. -Leary
1178		−Rog-O-Matic callidus est.
1179		−Rog-O-Matic perditus est.
1180		−Rog-O-Matic's not expert enough. It could handle rogue, but it couldn't handle More.
1181		−Rotten wood can not be carved -Confucius (Analects, Book 5, Ch. 9)
1182		−Round numbers are always false. -Samuel Johnson (c. 1750)
1183		−Rule 5 Violation
1184		−SCCS: the source-code motel -- your code checks in but it never checks out. Ken Thompson
1185		−SYS ERROR 0 - no error detected
1186		−Sailors in ships, sail on! Even while we died, others rode out the storm.
1187		−Satire does not look pretty upon a tombstone.
1188		−Save a forest -- eat a beaver!
1189		−Save the dot files!
1190		−Save yourself! Reboot in 5 seconds!
1191		−Say "no" to long-sleeved shirts!! Support your right to bare arms!
1192		−Say your prayers, you're going to Zen heaven.
1193		−Schroedinger might have been here.
1194		−Schroedinger's cat is sitting on Heisenberg's shoulder and they are both laughing at you.
1195		−Scintillate, scintillate, aster minific.
1196		−Screw up your courage! You've screwed up everything else.
1197		−Secrecy is the beginning of tyranny.
1198		−Secret mail has arrived.
1199		−See that ocean -- that used to be some ocean. -Burt Lancaster in Atlantic City
1200		−Seek not to understand that you may believe, but believe that you may understand.
1201		−Self denial is better than self degradation.
1202		−Sell everything. Market top has been reached. -Joseph Granville
1203		−Send not to ask for whom the bell tolls; it tolls for thee.
1204		−Señor, if you hurry from here, you will wait longer there. -Mexico taxi driver
1205		−Sex with someone you don't love is just gymnastics--and I hate exercise. -John Derek
1206		−Shadows slick as eels slither through.
1207		−Share your happiness with others today.
1208		−She canna take much more o' this, Mr. Spock.
1209		−Shift to the left! Shift to the right! Pop up! Push Down! Byte, byte, byte!
1210		−Show respect for age. Drink good Scotch for a change.
1211		−Si nummi immunis.
1212		−Silver is pure. It's been a symbol of justice and purity since the year of the sun.
1213		−Sin has many tools, but a lie is the handle which fits them all.
1214		−Sink or Swim with Teddy!
1215		−Sleep is an excellent way of listening to an opera.
1216		−Smile ... tomorrow will be worse.
1217		−Smoked carp is terrible unless you're out of smoked salmon.
1218		−Smooth rotation butters no parsnips. -J. W. Tukey
1219		−Snatch the pebble from my hand, Grasshopper.
1220		−Snob intellectual bachelors can't have fun in San Antonio. -Ted Nelson
1221		−Snoopy has fleas.
1222		−Snow Day -- stay home.
1223		−So long as radicals honor theory over facts, they will continue to dismantle their successes.
1224		−So narrow minded is the boss that he has to stack his ideas vertically.
1225		−Social innovations tend to the level of minimum tolerable well being.
1226		−Soft soap often has a high percentage of lye in it. -- Salada Tea
1227		−Solve et coagule.
1228		−Some books are to be tasted, others to be swallowed. -- Francis Bacon
1229		−Some day this war's gonna end.
1230		−Some men are discovered; others are found out.
1231		−Some of us feel that there is a loss of scholarship here, and we're not too happy about it. -Irvin Lustig
1232		−Some scholars are like donkeys, they merely carry a lot of books.
1233		−Some things are better left unsaid.
1234		−Sometimes a cigar is just a cigar. -Sigmund Freud
1235		−Sometimes it seems to me that men are children grown incompetent. -Carl Whitaker
1236		−Sometimes you've gotta give it all you've got, because it just isn't enough.
1237		−Soon you will be sitting on top of the world.
1238		−Sooner or later everybody's gotta pay their tab.
1239		−Sorting on the part of mendicants must be interdicted.
1240		−Space travel is utter bilge. -Sir Richard Van Der Riet Wolley
1241		−Spare no expense to save money on this one. -Samuel Goldwyn
1242		−Speaking of poison, I'll see that you get some fresh breakfast immediately.
1243		−Specialization is for insects. -Robt. A. Heinlein
1244		−Spend extra time on hobby. Get plenty of rolling papers.
1245		−Split a stick of wood, and the Christ is there, too.
1246		−Spock: We suffered 23 casualties in that attack, Captain.
1247		−Stack overflow in crawlout. User environment re-initialized. (FATAL$)
1248		−Standing on head makes smile of frown, but rest of face also upside down.
1249		−Status: R
1250		−Stay away from flying saucers today.
1251		−Stay away from hurricanes for a while.
1252		−Stereotypes are one of the worst things in the world. -miteddie!nessus
1253		−Sticks and stones may break my bones, but a laser beam is another matter.
1254		−Stop searching forever. Happiness is just next to you.
1255		−Stop searching forever. Happiness is unattainable.
1256		−Stop searching. Happiness is right next to you.
1257		−Stop worrying, you'll never get out of this world alive.
1258		−Subject: Re: Re: Clar ... HUMBUG! - Wrongthink st - (nf)
1259		−Succumb to natural tendencies. Be hateful and boring.
1260		−Sum quod eris.
1261		−Sun UNIX 4.2 Release 1.1 (IAS) #1: Tue Jan 29 01:25:15 PST 1985
1262		−Sunday clears away the rust of the whole week. - Joseph Addison.
1263		−Sure [Somoza]'s a son-of-a-bitch, but he's OUR son-of-a-bitch. -F.D. Roosevelt
1264		−Surprise due today. Also the rent.
1265		−Surprise your boss. Get to work on time.
1266		−Surveillance should precede salientation.
1267		−System down Tues. am for COBOL compiler installation.
1268		−System going down at 1:45 this afternoon for disk crash.
1269		−System going down for 5 minutes -- back up in barrels.
1270		−System going down for 5 minutes -- back up in half an hour.
1271		−System going down in 5 minutes.
1272		−System might crash at any moment.
1273		−System went down at Fri Dec 13 21:54:56 1901
1274		−TERROR IN THE OUTPUT FILE A A
1275		−TNT allows students the freedom to make mistakes.
1276		−TSO -- it may be slow, but it's hard to use.
1277		−Tai Chi is self-defense for people on Quaaludes.
1278		−Take care of the luxuries and the necessities will take care of themselves.
1279		−Take care of your peonies and the dahlias will take care of themselves.
1280		−Te ayudare a recorder la cantidad a indoctos si releesme bien.
1281		−Teach it ... phenomenology.
1282		−Technological unemployment is total today -- 300 years ago we were all farmers.
1283		−Tell the girls to slice the ham thin.
1284		−Ten years of rejection slips is nature's way of telling you to stop writing.
1285		−Terminals at home are always in the bedroom.
1286		−Thank God I'm an atheist. -Aleister Crowley
1287		−Thank you for choosing UNIX -- batteries not included, some assembly required.
1288		−That goes against the laws of Physics.
1289		−That must be wonderful! I don't understand it at all.
1290		−That we can comprehend the little we know already is mindboggling in itself.
1291		−That which does not kill me makes me stronger.
1292		−That which does not kill me missed.
1293		−That which is above is in that which is below.
1294		−That's as American as pie charts.
1295		−That's the nice thing about standards -- there's so many to choose from. -trb
1296		−The $SIGNON command is a risky practice.
1297		−The 3B2 Model 100 - the first machine with cat -v in ROM!
1298		−The Angels want to wear my red shoes.
1299		−The Beatles? Isn't that Paul McCartney's old band?
1300		−The Blit is a nice terminal, but it runs emacs.
1301		−The Constitution gives us freedom of religion, not freedom from religion -R Reagan
1302		−The Emperor is not as forgiving as I am.
1303		−The Force is strong with this one.
1304		−The Force is with you, young Skywalker, but you are not a Jedi yet.
1305		−The Government urges you to remain calm.
1306		−The Inuit have dozens of words for snow, so why do the Dutch only have one word for rain?
1307		−The Italians make money out of funding their own deficit.
1308		−The Luddites always lose. Always.
1309		−The Moral Majority are the people our ancestors came from Europe to escape.
1310		−The PIXAR -- it's not just a job, it's an adventure.
1311		−The SUN really is a hunk of junk. - Tom Duff
1312		−The Tao which can be talked about is not the Tao. -Lao Tzu
1313		−The Tree of Learning bears the noblest fruit, but noble fruit tastes bad.
1314		−The UFO and the BVM seem to be the same phenomenon. -Jacques Vallee
1315		−The UNIX system is harder to use than a toaster. -Kaare Christian
1316		−The United States Army: 194 years of proud service, unhampered by progress.
1317		−The aim of existence is to have clean ideas, change them like shirts.
1318		−The aim of existence is to offer resistance to the flow of time.
1319		−The answer you seek is in an envelope.
1320		−The attacker must vanquish; the defender need only survive.
1321		−The average legislator is somewhere nearly all the time. -Herb Nore
1322		−The barge was in my blind spot. - Peter Hobson, Cambridge cox
1323		−The best prophet of the future is the past.
1324		−The better part of valour is discretion; in the which better part I have saved my life.
1325		−The boundary condition of the universe is that it has no boundary. - S. Hawking
1326		−The check is in the mail.
1327		−The churches must learn humility as well as teach it.
1328		−The common Welsh name Bzjxxllwcp is pronounced Jackson.
1329		−The connotation depends on the beacon. - Mark V. Shaney
1330		−The contrary of a compound is the aggregate of the contraries of the components. - De Morgan
1331		−The contrary of an aggregate is the compound of the contraries of the aggregates. - De Morgan
1332		−The coroner gave you a clean bill of health.
1333		−The darkest hour is just before the storm.
1334		−The dawning of the Information Age is bringing about dramatic changes in the fundamental fabric of our civilization. - AA Penzias
1335		−The decision doesn't have to be logical, it was unanimous.
1336		−The difference between a thief and the IRS is that the thief doesn't audit you afterwards.
1337		−The difficult we gave up on yesterday, the impossible we are giving up on now.
1338		−The early bird gets the coffee left over from the night before.
1339		−The early worm gets the bird.
1340		−The earth is like a tiny grain of sand, only much, much heavier.
1341		−The empty fist always makes the deepest wound.
1342		−The end is closer than you think.
1343		−The end justifies the meanness.
1344		−The enemy is ignorance [our own]. -Ezra Pound
1345		−The eyes believe themselves, the ears believe other people.
1346		−The fear of the lord was discovered before vitamins.
1347		−The first piece of luggage out of the chute doesn't belong to anyone, ever.
1348		−The first step in fixing something is getting it to break.
1349		−The first thing we do, let's kill all the lawyers. - Henry VI, part II.
1350		−The fit between the world and the human symbols describing it is never perfect.
1351		−The following file systems are due for backup at this time:
1352		−The fruits of impatience are bitter.
1353		−The function of the sun is not to help the cabbages along. - Flaubert
1354		−The further you get, the better it looks.
1355		−The future isn't what it used to be. (It never was.)
1356		−The future isn't what it used to be. -Arthur C. Clarke
1357		−The gods do not protect fools. Fools are protected by more capable fools.
1358		−The hardest job kids face today is learning good manners without seeing any.
1359		−The hardest part of raising children is teaching them to ride bicycles.
1360		−The hippo has no sting, but the wise man would rather be sat upon by the bee.
1361		−The human brain is not a pretty sight.
1362		−The human mind treats a new idea the way the body treats a strange protein - it rejects it. -Peter Medawar
1363		−The invention of the multiple-choice exam was the death blow to competent writing.
1364		−The judge's jokes are always funny.
1365		−The ketchup of sorrow is better than the mustard of happiness.
1366		−The last twenty-nine days of the month are the worst. -Nicola Tesla
1367		−The lion will lie down with the lamb, but the lamb won't get much sleep.
1368		−The love of money is the mucilage of many a tragic friendship -Stuart McMillan
1369		−The man of knowledge can see several things at once.
1370		−The map is not the territory. -A. E. Van Vogt, in World of Null-A
1371		−The measure of the rigor of a science is the index of its ability to predict.
1372		−The meek shall inherit the earth -- they are careful to hide the fact.
1373		−The meek shall inherit the earth -- they are pronounced "o".
1374		−The meek shall inherit the earth -- they are too weak to refuse.
1375		−The more complicated the mind, the more simple the play.
1376		−The more things change, the more they'll never be the same again.
1377		−The more you run over a dead cat, the flatter it gets.
1378		−The move of bambam functionality to the new AP bugs is re-scheduled to Friday night
1379		−The nervous system sees no color, feels no pain. -T. Leary
1380		−The null string has always been a locksmith. -Albert Einstein
1381		−The null string has always been a productive source of off-by-0 errors.
1382		−The number of UNIX installations has grown to 10, with more expected. - 2nd Edition UNIX manual
1383		−The number of approved [COBOL] subsets has been reduced from 104,976 to 54. - JM Triance
1384		−The official state animal of New York is the cabbie.
1385		−The official state tree of North Dakota is the telephone pole?
1386		−The one interesting fact about the Diplodocus is that the accent is on the second syllable.
1387		−The only imperfect thing in nature is the human race.
1388		−The only one who got everything done by Friday was Robinson Crusoe.
1389		−The only people who listen to both sides of an argument are the neighbors.
1390		−The only sure things in life are net.suicide and net.taxes.
1391		−The only thing cheaper than hardware is talk.
1392		−The only way out of a circle is through the center.
1393		−The opera isn't over until the fat lady sings.
1394		−The opposite of a trivial truth is false; the opposite of a great truth is also true.
1395		−The pale companion is not for our pomp.
1396		−The pearl the squirrel the girl hit bit split.
1397		−The planes in Spain fall mainly in the rain.
1398		−The play's the thing/Wherein I'll catch the conscience of the king.
1399		−The plural of spouse is spice.
1400		−The polhode rolls without slipping on the herpolhode lying in the invariable plane.
1401		−The problem with a just economy is, who runs the Bureau of Economic Justice?
1402		−The prudent man does not hold his breath.
1403		−The reason Swedes put little o's over some A's is that ontology recapitulates philology.
1404		−The reason Swedes put little o's over some A's is that they are pronounced "o".
1405		−The religion that is afraid of science dishonors God and commits suicide.
1406		−The rich man has his motor car, His country and his town estate. He smokes a fifty-cent cigar And jeers at Fate. - F. P. Adams
1407		−The screen rectangle must be charged with emotion. Hitchcock
1408		−The sheep - symbolic creature of docility, sacrifice and stupidity.
1409		−The shorter the line, the slower it moves.
1410		−The shortest distance between two points is off the wall.
1411		−The shortest distance between two points is under construction. -Noelie Altito
1412		−The skeletons in the cupboard will all come out in the wash.
1413		−The solution to the problem of life is seen in the vanishing of the problem.
1414		−The sooner you fall behind, the more time you have to catch up.
1415		−The stapler runs out of staples only while you are trying to staple something.
1416		−The sterile pleasure of being right tends to get stale in the course of a lifetime. EW Dijkstra
1417		−The strength of a nation lies in the integrity of its homes. -Confucius
1418		−The stylus is more potent than the claymore.
1419		−The sword he sang a song of death/But could not make the sickle yield. -Blake
1420		−The thing about Chinatown is, you can never be sure of anything down there.
1421		−The three laws of physics: f=ma; things fall down; you can't push a rope.
1422		−The tide of change approaches.
1423		−The time is right to make new friends.
1424		−The unexamined life is not worth examining.
1425		−The universe is laughing behind your back.
1426		−The vanity of teaching often tempteth a man to forget that he is a blockhead.
1427		−The voice of the people is odd,/It is, and it is not, the voice of God. -Pope
1428		−The wheels of justice grind slow but fine.
1429		−The whole UNIX operating system was ripped off electronically.
1430		−The whole UNIX operating system whose documentation fits in a chinese computer terminal!
1431		−The wise shepherdess never trusts her flock to a smiling wolf.
1432		−The world cannot be understood from a single point of view. -Eleanor Roosevelt
1433		−The world ended yesterday-this is only a dream!
1434		−The world ended yesterday-why are you still here?
1435		−The world is a conspiracy of the unthinking against the unwitting.
1436		−The world is all that is the case. -Wittgenstein
1437		−The world is coming to an end! Repent and return those library books!
1438		−Them that dishes it out need not fall over every time someone blows hard.
1439		−There are more old drunkards than old doctors.
1440		−There are more things in heaven and earth, Horatio,/Than are dreamt of in your philosophy.
1441		−There are more ways of killing a cat than choking her with cream.
1442		−There are no color bars in Cuba.
1443		−There are only three kinds of proof: induction, exhaustion, and intimidation.
1444		−There are two kinds of people in the world -- those who are, and those who aren't.

3791 more lines aren’t shown here.

sys/games/lib/fortunes.index+0−0

Binary file not shown.

sys/games/lib/life/2.eaters+0−9

This diff is large: its 10 lines aren’t shown here.

sys/games/lib/life/34osc+0−47

This diff is large: its 48 lines aren’t shown here.

sys/games/lib/life/55555+0−1

This diff is large: its 2 lines aren’t shown here.

sys/games/lib/life/5row+0−1

This diff is large: its 2 lines aren’t shown here.

sys/games/lib/life/acorn+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/background1+0−59

This diff is large: its 60 lines aren’t shown here.

sys/games/lib/life/baker+0−95

This diff is large: its 96 lines aren’t shown here.

sys/games/lib/life/bakery+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/barber.pole+0−19

This diff is large: its 20 lines aren’t shown here.

sys/games/lib/life/barberpole+0−13

This diff is large: its 14 lines aren’t shown here.

sys/games/lib/life/beacon+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/beaconmaker+0−25

This diff is large: its 26 lines aren’t shown here.

sys/games/lib/life/benchmark+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/bheptomino+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/biclock+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/billiard.clock+0−12

This diff is large: its 13 lines aren’t shown here.

sys/games/lib/life/billiard1+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/billiard2+0−10

This diff is large: its 11 lines aren’t shown here.

sys/games/lib/life/billiard3+0−12

This diff is large: its 13 lines aren’t shown here.

sys/games/lib/life/billiard4+0−13

This diff is large: its 14 lines aren’t shown here.

sys/games/lib/life/billiard5+0−15

This diff is large: its 16 lines aren’t shown here.

sys/games/lib/life/billiard6+0−14

This diff is large: its 15 lines aren’t shown here.

sys/games/lib/life/billiardgeorge+0−19

This diff is large: its 20 lines aren’t shown here.

sys/games/lib/life/billiardsmall+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/biloaf+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/blanker+0−2

This diff is large: its 3 lines aren’t shown here.

sys/games/lib/life/blinker+0−1

This diff is large: its 2 lines aren’t shown here.

sys/games/lib/life/blinkership+0−17

This diff is large: its 18 lines aren’t shown here.

sys/games/lib/life/block+0−2

This diff is large: its 3 lines aren’t shown here.

sys/games/lib/life/boat.factory+0−98

This diff is large: its 99 lines aren’t shown here.

sys/games/lib/life/boatcap+0−14

This diff is large: its 15 lines aren’t shown here.

sys/games/lib/life/boatmaker+0−26

This diff is large: its 27 lines aren’t shown here.

sys/games/lib/life/breeder+0−338

This diff is large: its 339 lines aren’t shown here.

sys/games/lib/life/breeder4753+0−337

This diff is large: its 338 lines aren’t shown here.

sys/games/lib/life/c1+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/c2+0−11

This diff is large: its 12 lines aren’t shown here.

sys/games/lib/life/c3+0−17

This diff is large: its 18 lines aren’t shown here.

sys/games/lib/life/c4+0−23

This diff is large: its 24 lines aren’t shown here.

sys/games/lib/life/c5+0−29

This diff is large: its 30 lines aren’t shown here.

sys/games/lib/life/c6+0−35

This diff is large: its 36 lines aren’t shown here.

sys/games/lib/life/c7+0−41

This diff is large: its 42 lines aren’t shown here.

sys/games/lib/life/c8+0−47

This diff is large: its 48 lines aren’t shown here.

sys/games/lib/life/c9+0−53

This diff is large: its 54 lines aren’t shown here.

sys/games/lib/life/candelabra+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/capsule8+0−11

This diff is large: its 12 lines aren’t shown here.

sys/games/lib/life/catherinewheel+0−12

This diff is large: its 13 lines aren’t shown here.

sys/games/lib/life/cheshire.cat+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/cheshirecat+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/clappinghands+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/clean.fuse+0−159

This diff is large: its 160 lines aren’t shown here.

sys/games/lib/life/clock+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/clock2+0−12

This diff is large: its 13 lines aren’t shown here.

sys/games/lib/life/cmu+0−15

This diff is large: its 16 lines aren’t shown here.

sys/games/lib/life/cmu2+0−17

This diff is large: its 18 lines aren’t shown here.

sys/games/lib/life/cmu3+0−19

This diff is large: its 20 lines aren’t shown here.

sys/games/lib/life/collapsecap+0−14

This diff is large: its 15 lines aren’t shown here.

sys/games/lib/life/cow+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/cp.48-56-72+0−13

This diff is large: its 14 lines aren’t shown here.

sys/games/lib/life/crab+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/cross+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/diagfuse+0−16

This diff is large: its 17 lines aren’t shown here.

sys/games/lib/life/diamond+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/dirty.fuse+0−159

This diff is large: its 160 lines aren’t shown here.

sys/games/lib/life/eaters3+0−9

This diff is large: its 10 lines aren’t shown here.

sys/games/lib/life/eden+0−9

This diff is large: its 10 lines aren’t shown here.

sys/games/lib/life/figure8+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/fisheater+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/life/flare.path+0−97

This diff is large: its 98 lines aren’t shown here.

sys/games/lib/life/flasher+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/flip.flop+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/flotilla+0−52

This diff is large: its 53 lines aren’t shown here.

sys/games/lib/life/flywheel+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/fool+0−12

This diff is large: its 13 lines aren’t shown here.

sys/games/lib/life/fusebranch+0−26

This diff is large: its 27 lines aren’t shown here.

sys/games/lib/life/fusecorner+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/life/fusehinge+0−14

This diff is large: its 15 lines aren’t shown here.

sys/games/lib/life/futility+0−34

This diff is large: its 35 lines aren’t shown here.

sys/games/lib/life/fuzzcapsule+0−12

This diff is large: its 13 lines aren’t shown here.

sys/games/lib/life/gear+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/glider+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/glider.f+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/glider.gun+0−9

This diff is large: its 10 lines aren’t shown here.

sys/games/lib/life/glider.havoc+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/glider.step+0−9

This diff is large: its 10 lines aren’t shown here.

sys/games/lib/life/glider.thing1+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/glider.thing2+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/gliderarmyof25+0−78

This diff is large: its 79 lines aren’t shown here.

sys/games/lib/life/glidercap1+0−14

This diff is large: its 15 lines aren’t shown here.

sys/games/lib/life/glidercap2+0−14

This diff is large: its 15 lines aren’t shown here.

sys/games/lib/life/glidercap3+0−20

This diff is large: its 21 lines aren’t shown here.

sys/games/lib/life/glidercap4+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/life/glidercap5+0−17

This diff is large: its 18 lines aren’t shown here.

sys/games/lib/life/gliderglidergu+0−25

This diff is large: its 26 lines aren’t shown here.

sys/games/lib/life/glidergun+0−12

This diff is large: its 13 lines aren’t shown here.

sys/games/lib/life/glidergun2+0−34

This diff is large: its 35 lines aren’t shown here.

sys/games/lib/life/gliders.12+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/gliders.hex+0−9

This diff is large: its 10 lines aren’t shown here.

sys/games/lib/life/gosper.flop+0−72

This diff is large: its 73 lines aren’t shown here.

sys/games/lib/life/greymatter1+0−26

This diff is large: its 27 lines aren’t shown here.

sys/games/lib/life/gun.builder+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/gun.gliders+0−21

This diff is large: its 22 lines aren’t shown here.

sys/games/lib/life/gunandeater+0−21

This diff is large: its 22 lines aren’t shown here.

sys/games/lib/life/h.heptomino+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/harvester+0−96

This diff is large: its 97 lines aren’t shown here.

sys/games/lib/life/heavy.ship+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/hepto.shuttle+0−11

This diff is large: its 12 lines aren’t shown here.

sys/games/lib/life/hertz.osc+0−17

This diff is large: its 18 lines aren’t shown here.

sys/games/lib/life/horizfuse+0−2

This diff is large: its 3 lines aren’t shown here.

sys/games/lib/life/j+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/kickback+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/lambdabomb+0−2

This diff is large: its 3 lines aren’t shown here.

sys/games/lib/life/largefish+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/light.ship+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/longfuse+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/longfuse2+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/mathematician+0−12

This diff is large: its 13 lines aren’t shown here.

sys/games/lib/life/mediumfish+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/mediumfishgun+0−91

This diff is large: its 92 lines aren’t shown here.

sys/games/lib/life/methuselah+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/middle.ship+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/mip+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/morejunk+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/new.gun+0−34

This diff is large: its 35 lines aren’t shown here.

sys/games/lib/life/osc26+0−39

This diff is large: its 40 lines aren’t shown here.

sys/games/lib/life/osc28+0−14

This diff is large: its 15 lines aren’t shown here.

sys/games/lib/life/osc55+0−27

This diff is large: its 28 lines aren’t shown here.

sys/games/lib/life/osc66+0−32

This diff is large: its 33 lines aren’t shown here.

sys/games/lib/life/osc72+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/oscillator1+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/oscillator2+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/oscillator3+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/overw8.ship+0−16

This diff is large: its 17 lines aren’t shown here.

sys/games/lib/life/penta.bounce+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/penta.death+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/penta.kill+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/penta.shuttle+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/pentadecathlon+0−1

This diff is large: its 2 lines aren’t shown here.

sys/games/lib/life/pi.heptomino+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/piecollection+0−10

This diff is large: its 11 lines aren’t shown here.

sys/games/lib/life/pifuse+0−56

This diff is large: its 57 lines aren’t shown here.

sys/games/lib/life/piston+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/piston2+0−11

This diff is large: its 12 lines aren’t shown here.

sys/games/lib/life/pjw+0−48

This diff is large: its 49 lines aren’t shown here.

sys/games/lib/life/puffer.train+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/life/pulsar-48-56-7+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/pulse1+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/pulse2+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/pump+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/queen.bee+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/r+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/r.pentomino+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/rake+0−19

This diff is large: its 20 lines aren’t shown here.

sys/games/lib/life/rake2+0−33

This diff is large: its 34 lines aren’t shown here.

sys/games/lib/life/relay+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/round+0−70

This diff is large: its 71 lines aren’t shown here.

sys/games/lib/life/rpentomino+0−3

This diff is large: its 4 lines aren’t shown here.

sys/games/lib/life/s.glider+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/saint+0−63

This diff is large: its 64 lines aren’t shown here.

sys/games/lib/life/shiningflower+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/ships.appear+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/ships.gliders+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/ships.vanish+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/shuttle+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/sixgliders+0−8

This diff is large: its 9 lines aren’t shown here.

sys/games/lib/life/skyline+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/smallfish+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/somejunk+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/spark+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/spark2+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/sparkfuse+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/sparktopifuse+0−25

This diff is large: its 26 lines aren’t shown here.

sys/games/lib/life/sq.11+0−13

This diff is large: its 14 lines aren’t shown here.

sys/games/lib/life/sq.9+0−11

This diff is large: its 12 lines aren’t shown here.

sys/games/lib/life/squareblinker+0−4

This diff is large: its 5 lines aren’t shown here.

sys/games/lib/life/squarecap+0−14

This diff is large: its 15 lines aren’t shown here.

sys/games/lib/life/squaredance+0−7

This diff is large: its 8 lines aren’t shown here.

sys/games/lib/life/stargaterepeat+0−13

This diff is large: its 14 lines aren’t shown here.

sys/games/lib/life/still+0−30

This diff is large: its 31 lines aren’t shown here.

sys/games/lib/life/still.lives+0−27

This diff is large: its 28 lines aren’t shown here.

sys/games/lib/life/swastika+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/switch.block+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/switch.engine+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/testtube+0−19

This diff is large: its 20 lines aren’t shown here.

sys/games/lib/life/thunderbird+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/thunderbirdfus+0−21

This diff is large: its 22 lines aren’t shown here.

sys/games/lib/life/time.bomb+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/toad+0−2

This diff is large: its 3 lines aren’t shown here.

sys/games/lib/life/tumblers+0−6

This diff is large: its 7 lines aren’t shown here.

sys/games/lib/life/turbine8+0−9

This diff is large: its 10 lines aren’t shown here.

sys/games/lib/life/virus.dies+0−29

This diff is large: its 30 lines aren’t shown here.

sys/games/lib/life/virus.lives+0−29

This diff is large: its 30 lines aren’t shown here.

sys/games/lib/life/washerwoman+0−5

This diff is large: its 6 lines aren’t shown here.

sys/games/lib/life/wave1+0−15

This diff is large: its 16 lines aren’t shown here.

sys/games/lib/life/weird.wheel+0−30

This diff is large: its 31 lines aren’t shown here.

sys/games/lib/mahjongg/backgrounds/default.bit+0−0

Binary file not shown.

sys/games/lib/mahjongg/images/border.bit+0−0

Binary file not shown.

sys/games/lib/mahjongg/images/gameover.bit+0−0

Binary file not shown.

sys/games/lib/mahjongg/images/mask.bit+0−0

Binary file not shown.

sys/games/lib/mahjongg/layouts/default.layout+0−81

This diff is large: its 82 lines aren’t shown here.

sys/games/lib/mahjongg/tilesets/default.tileset+0−0

Binary file not shown.

sys/games/lib/sokoban/images/cargo.bit+0−0

Binary file not shown.

sys/games/lib/sokoban/images/empty.bit+0−0

Binary file not shown.

sys/games/lib/sokoban/images/goal.bit+0−0

Binary file not shown.

sys/games/lib/sokoban/images/goalcargo.bit+0−0

Binary file not shown.

sys/games/lib/sokoban/images/left.bit+0−0

Binary file not shown.

sys/games/lib/sokoban/images/right.bit+0−0

Binary file not shown.

sys/games/lib/sokoban/images/wall.bit+0−0

Binary file not shown.

sys/games/lib/sokoban/images/win.bit+0−0

Binary file not shown.

sys/games/lib/sokoban/levels/easy.slc+0−1549

This diff is large: its 1550 lines aren’t shown here.

sys/games/lib/sokoban/levels/hard.slc+0−1521

This diff is large: its 1522 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-01-21.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-01-23.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-01-25.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-01-29.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-01-30.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-02.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-03.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-04.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-06.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-07.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-08.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-09.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-10.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-11.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-12.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-13.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-14.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-16.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-02-17.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-03.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-04.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-05.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-06.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-07.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-08.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-09.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-10.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-11.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-12.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-03-29.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-04-11.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-04-26.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-04-28.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy-2005-05-24.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy000.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy001.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/easy002.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-03-13.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-03-14.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-03-19.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-03-26.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-03-27.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-02.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-03.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-07.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-08.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-09.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-17.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-22.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-23.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-24.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-04-30.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-05-01.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-05-07.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-05-14.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-05-15.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-05-19.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-05-21.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-05-22.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard-2005-05-23.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/hard000.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-01-22.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-01-24.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-01-26.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-01-27.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-01-28.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-01-31.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-01.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-05.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-15.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-18.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-19.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-20.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-21.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-22.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-23.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-24.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-25.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-26.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-27.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-02-28.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-01.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-02.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-15.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-16.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-18.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-21.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-22.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-23.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-24.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-28.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-30.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-03-31.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-01.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-04.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-05.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-06.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-12.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-13.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-14.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-15.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-18.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-19.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-20.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-21.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-25.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-27.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-04-29.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-02.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-03.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-04.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-05.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-06.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-09.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-10.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-11.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-12.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-13.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-16.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-17.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-18.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-20.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-25.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-26.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium-2005-05-27.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium000.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium002.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/medium003.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/veasy000.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/veasy001.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/vhard-2005-03-17.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/vhard-2005-03-20.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/vhard-2005-03-25.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/vhard-2005-04-10.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/vhard-2005-04-16.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/boards/vhard-2005-05-08.su+0−18

This diff is large: its 19 lines aren’t shown here.

sys/games/lib/sudoku/images/1.bit+0−0

Binary file not shown.

sys/games/lib/sudoku/images/2.bit+0−0

Binary file not shown.

sys/games/lib/sudoku/images/3.bit+0−0

Binary file not shown.

sys/games/lib/sudoku/images/4.bit+0−0

Binary file not shown.

sys/games/lib/sudoku/images/5.bit+0−0

Binary file not shown.

sys/games/lib/sudoku/images/6.bit+0−0

Binary file not shown.

sys/games/lib/sudoku/images/7.bit+0−0

Binary file not shown.

sys/games/lib/sudoku/images/8.bit+0−0

Binary file not shown.

sys/games/lib/sudoku/images/9.bit+0−0

Binary file not shown.

sys/src/cmd/gs/386.h+10−1

This diff is large: its 22 lines aren’t shown here.

sys/src/games/4s.c+0−43

This diff is large: its 44 lines aren’t shown here.

sys/src/games/5s.c+0−99

This diff is large: its 100 lines aren’t shown here.

sys/src/games/ana.c+0−451

This diff is large: its 452 lines aren’t shown here.

sys/src/games/blabs/blabs.c+0−831

This diff is large: its 832 lines aren’t shown here.

sys/src/games/blabs/mkface+0−37

This diff is large: its 38 lines aren’t shown here.

sys/src/games/blabs/mkfile+0−31

This diff is large: its 32 lines aren’t shown here.

sys/src/games/c64/c64.c+0−382

This diff is large: its 383 lines aren’t shown here.

sys/src/games/c64/cpu.c+0−514

This diff is large: its 515 lines aren’t shown here.

sys/src/games/c64/dat.h+0−95

This diff is large: its 96 lines aren’t shown here.

sys/src/games/c64/fns.h+0−11

This diff is large: its 12 lines aren’t shown here.

sys/src/games/c64/mem.c+0−307

This diff is large: its 308 lines aren’t shown here.

sys/src/games/c64/mkfile+0−13

This diff is large: its 14 lines aren’t shown here.

sys/src/games/c64/vic.c+0−370

This diff is large: its 371 lines aren’t shown here.

sys/src/games/catback.p+0−481

This diff is large: its 482 lines aren’t shown here.

sys/src/games/catclock.c+0−387

This diff is large: its 388 lines aren’t shown here.

sys/src/games/doom/am_map.c+0−1345

This diff is large: its 1346 lines aren’t shown here.

sys/src/games/doom/am_map.h+0−52

This diff is large: its 53 lines aren’t shown here.

sys/src/games/doom/d_englsh.h+0−701

This diff is large: its 702 lines aren’t shown here.

sys/src/games/doom/d_event.h+0−123

This diff is large: its 124 lines aren’t shown here.

sys/src/games/doom/d_french.h+0−433

This diff is large: its 434 lines aren’t shown here.

sys/src/games/doom/d_items.c+0−138

This diff is large: its 139 lines aren’t shown here.

sys/src/games/doom/d_items.h+0−52

This diff is large: its 53 lines aren’t shown here.

sys/src/games/doom/d_main.c+0−1093

This diff is large: its 1094 lines aren’t shown here.

sys/src/games/doom/d_main.h+0−64

This diff is large: its 65 lines aren’t shown here.

sys/src/games/doom/d_net.c+0−760

This diff is large: its 761 lines aren’t shown here.

sys/src/games/doom/d_net.h+0−148

This diff is large: its 149 lines aren’t shown here.

sys/src/games/doom/d_player.h+0−213

This diff is large: its 214 lines aren’t shown here.

sys/src/games/doom/d_textur.h+0−51

This diff is large: its 52 lines aren’t shown here.

sys/src/games/doom/d_think.h+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/doom/d_ticcmd.h+0−55

This diff is large: its 56 lines aren’t shown here.

sys/src/games/doom/doomdata.h+0−223

This diff is large: its 224 lines aren’t shown here.

sys/src/games/doom/doomdef.c+0−38

This diff is large: its 39 lines aren’t shown here.

sys/src/games/doom/doomdef.h+0−322

This diff is large: its 323 lines aren’t shown here.

sys/src/games/doom/doomstat.c+0−39

This diff is large: its 40 lines aren’t shown here.

sys/src/games/doom/doomstat.h+0−296

This diff is large: its 297 lines aren’t shown here.

sys/src/games/doom/doomtype.h+0−66

This diff is large: its 67 lines aren’t shown here.

sys/src/games/doom/dstrings.c+0−72

This diff is large: its 73 lines aren’t shown here.

sys/src/games/doom/dstrings.h+0−66

This diff is large: its 67 lines aren’t shown here.

sys/src/games/doom/f_finale.c+0−738

This diff is large: its 739 lines aren’t shown here.

sys/src/games/doom/f_finale.h+0−53

This diff is large: its 54 lines aren’t shown here.

sys/src/games/doom/f_wipe.c+0−301

This diff is large: its 302 lines aren’t shown here.

sys/src/games/doom/f_wipe.h+0−71

This diff is large: its 72 lines aren’t shown here.

sys/src/games/doom/g_game.c+0−1676

This diff is large: its 1677 lines aren’t shown here.

sys/src/games/doom/g_game.h+0−79

This diff is large: its 80 lines aren’t shown here.

sys/src/games/doom/hu_lib.c+0−354

This diff is large: its 355 lines aren’t shown here.

sys/src/games/doom/hu_lib.h+0−196

This diff is large: its 197 lines aren’t shown here.

sys/src/games/doom/hu_stuff.c+0−638

This diff is large: its 639 lines aren’t shown here.

sys/src/games/doom/hu_stuff.h+0−66

This diff is large: its 67 lines aren’t shown here.

sys/src/games/doom/i_main.c+0−12

This diff is large: its 13 lines aren’t shown here.

sys/src/games/doom/i_net.c+0−161

This diff is large: its 162 lines aren’t shown here.

sys/src/games/doom/i_net.h+0−45

This diff is large: its 46 lines aren’t shown here.

sys/src/games/doom/i_sound.c+0−523

This diff is large: its 524 lines aren’t shown here.

sys/src/games/doom/i_sound.h+0−115

This diff is large: its 116 lines aren’t shown here.

sys/src/games/doom/i_system.c+0−144

This diff is large: its 145 lines aren’t shown here.

sys/src/games/doom/i_system.h+0−106

This diff is large: its 107 lines aren’t shown here.

sys/src/games/doom/i_video.c+0−372

This diff is large: its 373 lines aren’t shown here.

sys/src/games/doom/i_video.h+0−63

This diff is large: its 64 lines aren’t shown here.

sys/src/games/doom/info.c+0−4664

This diff is large: its 4665 lines aren’t shown here.

sys/src/games/doom/info.h+0−1339

This diff is large: its 1340 lines aren’t shown here.

sys/src/games/doom/m_argv.c+0−55

This diff is large: its 56 lines aren’t shown here.

sys/src/games/doom/m_argv.h+0−42

This diff is large: its 43 lines aren’t shown here.

sys/src/games/doom/m_bbox.c+0−60

This diff is large: its 61 lines aren’t shown here.

sys/src/games/doom/m_bbox.h+0−54

This diff is large: its 55 lines aren’t shown here.

sys/src/games/doom/m_cheat.c+0−101

This diff is large: its 102 lines aren’t shown here.

sys/src/games/doom/m_cheat.h+0−58

This diff is large: its 59 lines aren’t shown here.

sys/src/games/doom/m_fixed.c+0−64

This diff is large: its 65 lines aren’t shown here.

sys/src/games/doom/m_fixed.h+0−50

This diff is large: its 51 lines aren’t shown here.

sys/src/games/doom/m_menu.c+0−1878

This diff is large: its 1879 lines aren’t shown here.

sys/src/games/doom/m_menu.h+0−67

This diff is large: its 68 lines aren’t shown here.

sys/src/games/doom/m_misc.c+0−475

This diff is large: its 476 lines aren’t shown here.

sys/src/games/doom/m_misc.h+0−65

This diff is large: its 66 lines aren’t shown here.

sys/src/games/doom/m_random.c+0−82

This diff is large: its 83 lines aren’t shown here.

sys/src/games/doom/m_random.h+0−48

This diff is large: its 49 lines aren’t shown here.

sys/src/games/doom/m_swap.c+0−57

This diff is large: its 58 lines aren’t shown here.

sys/src/games/doom/m_swap.h+0−52

This diff is large: its 53 lines aren’t shown here.

sys/src/games/doom/mkfile+0−142

This diff is large: its 143 lines aren’t shown here.

sys/src/games/doom/p_ceilng.c+0−335

This diff is large: its 336 lines aren’t shown here.

sys/src/games/doom/p_doors.c+0−535

This diff is large: its 536 lines aren’t shown here.

sys/src/games/doom/p_enemy.c+0−2046

This diff is large: its 2047 lines aren’t shown here.

sys/src/games/doom/p_floor.c+0−547

This diff is large: its 548 lines aren’t shown here.

sys/src/games/doom/p_inter.c+0−918

This diff is large: its 919 lines aren’t shown here.

sys/src/games/doom/p_inter.h+0−41

This diff is large: its 42 lines aren’t shown here.

sys/src/games/doom/p_lights.c+0−361

This diff is large: its 362 lines aren’t shown here.

sys/src/games/doom/p_local.h+0−291

This diff is large: its 292 lines aren’t shown here.

sys/src/games/doom/p_map.c+0−1337

This diff is large: its 1338 lines aren’t shown here.

sys/src/games/doom/p_maputl.c+0−836

This diff is large: its 837 lines aren’t shown here.

sys/src/games/doom/p_mobj.c+0−990

This diff is large: its 991 lines aren’t shown here.

sys/src/games/doom/p_mobj.h+0−295

This diff is large: its 296 lines aren’t shown here.

sys/src/games/doom/p_plats.c+0−314

This diff is large: its 315 lines aren’t shown here.

sys/src/games/doom/p_pspr.c+0−864

This diff is large: its 865 lines aren’t shown here.

sys/src/games/doom/p_pspr.h+0−82

This diff is large: its 83 lines aren’t shown here.

sys/src/games/doom/p_saveg.c+0−584

This diff is large: its 585 lines aren’t shown here.

sys/src/games/doom/p_saveg.h+0−51

This diff is large: its 52 lines aren’t shown here.

sys/src/games/doom/p_setup.c+0−689

This diff is large: its 690 lines aren’t shown here.

sys/src/games/doom/p_setup.h+0−46

This diff is large: its 47 lines aren’t shown here.

sys/src/games/doom/p_sight.c+0−349

This diff is large: its 350 lines aren’t shown here.

sys/src/games/doom/p_spec.c+0−1354

This diff is large: its 1355 lines aren’t shown here.

sys/src/games/doom/p_spec.h+0−559

This diff is large: its 560 lines aren’t shown here.

sys/src/games/doom/p_switch.c+0−642

This diff is large: its 643 lines aren’t shown here.

sys/src/games/doom/p_telept.c+0−132

This diff is large: its 133 lines aren’t shown here.

sys/src/games/doom/p_tick.c+0−147

This diff is large: its 148 lines aren’t shown here.

sys/src/games/doom/p_tick.h+0−44

This diff is large: its 45 lines aren’t shown here.

sys/src/games/doom/p_user.c+0−386

This diff is large: its 387 lines aren’t shown here.

sys/src/games/doom/r_bsp.c+0−580

This diff is large: its 581 lines aren’t shown here.

sys/src/games/doom/r_bsp.h+0−72

This diff is large: its 73 lines aren’t shown here.

sys/src/games/doom/r_data.c+0−853

This diff is large: its 854 lines aren’t shown here.

sys/src/games/doom/r_data.h+0−62

This diff is large: its 63 lines aren’t shown here.

sys/src/games/doom/r_defs.h+0−490

This diff is large: its 491 lines aren’t shown here.

sys/src/games/doom/r_draw.c+0−743

This diff is large: its 744 lines aren’t shown here.

sys/src/games/doom/r_draw.h+0−115

This diff is large: its 116 lines aren’t shown here.

sys/src/games/doom/r_local.h+0−53

This diff is large: its 54 lines aren’t shown here.

sys/src/games/doom/r_main.c+0−806

This diff is large: its 807 lines aren’t shown here.

sys/src/games/doom/r_main.h+0−172

This diff is large: its 173 lines aren’t shown here.

sys/src/games/doom/r_plane.c+0−451

This diff is large: its 452 lines aren’t shown here.

sys/src/games/doom/r_plane.h+0−87

This diff is large: its 88 lines aren’t shown here.

sys/src/games/doom/r_segs.c+0−726

This diff is large: its 727 lines aren’t shown here.

sys/src/games/doom/r_segs.h+0−44

This diff is large: its 45 lines aren’t shown here.

sys/src/games/doom/r_sky.c+0−62

This diff is large: its 63 lines aren’t shown here.

sys/src/games/doom/r_sky.h+0−48

This diff is large: its 49 lines aren’t shown here.

sys/src/games/doom/r_state.h+0−138

This diff is large: its 139 lines aren’t shown here.

sys/src/games/doom/r_things.c+0−991

This diff is large: its 992 lines aren’t shown here.

sys/src/games/doom/r_things.h+0−72

This diff is large: its 73 lines aren’t shown here.

sys/src/games/doom/s_sound.c+0−804

This diff is large: its 805 lines aren’t shown here.

sys/src/games/doom/s_sound.h+0−109

This diff is large: its 110 lines aren’t shown here.

sys/src/games/doom/sounds.c+0−228

This diff is large: its 229 lines aren’t shown here.

sys/src/games/doom/sounds.h+0−289

This diff is large: its 290 lines aren’t shown here.

sys/src/games/doom/st_lib.c+0−293

This diff is large: its 294 lines aren’t shown here.

sys/src/games/doom/st_lib.h+0−226

This diff is large: its 227 lines aren’t shown here.

sys/src/games/doom/st_stuff.c+0−1468

This diff is large: its 1469 lines aren’t shown here.

sys/src/games/doom/st_stuff.h+0−86

This diff is large: its 87 lines aren’t shown here.

sys/src/games/doom/tables.c+0−2130

This diff is large: its 2131 lines aren’t shown here.

sys/src/games/doom/tables.h+0−92

This diff is large: its 93 lines aren’t shown here.

sys/src/games/doom/v_video.c+0−493

This diff is large: its 494 lines aren’t shown here.

sys/src/games/doom/v_video.h+0−119

This diff is large: its 120 lines aren’t shown here.

sys/src/games/doom/w_wad.c+0−576

This diff is large: its 577 lines aren’t shown here.

sys/src/games/doom/w_wad.h+0−78

This diff is large: its 79 lines aren’t shown here.

sys/src/games/doom/wi_stuff.c+0−1844

This diff is large: its 1845 lines aren’t shown here.

sys/src/games/doom/wi_stuff.h+0−54

This diff is large: its 55 lines aren’t shown here.

sys/src/games/doom/z_zone.c+0−466

This diff is large: its 467 lines aren’t shown here.

sys/src/games/doom/z_zone.h+0−86

This diff is large: its 87 lines aren’t shown here.

sys/src/games/eyes.p+0−20

This diff is large: its 21 lines aren’t shown here.

sys/src/games/festoon.c+0−1661

This diff is large: its 1662 lines aren’t shown here.

sys/src/games/gb/apu.c+0−484

This diff is large: its 485 lines aren’t shown here.

sys/src/games/gb/cpu.c+0−554

This diff is large: its 555 lines aren’t shown here.

sys/src/games/gb/dat.h+0−160

This diff is large: its 161 lines aren’t shown here.

sys/src/games/gb/ev.c+0−123

This diff is large: its 124 lines aren’t shown here.

sys/src/games/gb/fns.h+0−28

This diff is large: its 29 lines aren’t shown here.

sys/src/games/gb/gb.c+0−491

This diff is large: its 492 lines aren’t shown here.

sys/src/games/gb/mem.c+0−590

This diff is large: its 591 lines aren’t shown here.

sys/src/games/gb/mkfile+0−16

This diff is large: its 17 lines aren’t shown here.

sys/src/games/gb/ppu.c+0−341

This diff is large: its 342 lines aren’t shown here.

sys/src/games/gb/state.c+0−164

This diff is large: its 165 lines aren’t shown here.

sys/src/games/gba/apu.c+0−379

This diff is large: its 380 lines aren’t shown here.

sys/src/games/gba/cpu.c+0−1284

This diff is large: its 1285 lines aren’t shown here.

sys/src/games/gba/dat.h+0−156

This diff is large: its 157 lines aren’t shown here.

sys/src/games/gba/ev.c+0−226

This diff is large: its 227 lines aren’t shown here.

sys/src/games/gba/fns.h+0−28

This diff is large: its 29 lines aren’t shown here.

sys/src/games/gba/gba.c+0−474

This diff is large: its 475 lines aren’t shown here.

sys/src/games/gba/mem.c+0−639

This diff is large: its 640 lines aren’t shown here.

sys/src/games/gba/mkfile+0−16

This diff is large: its 17 lines aren’t shown here.

sys/src/games/gba/ppu.c+0−795

This diff is large: its 796 lines aren’t shown here.

sys/src/games/gba/state.c+0−165

This diff is large: its 166 lines aren’t shown here.

sys/src/games/geigerstats.c+0−90

This diff is large: its 91 lines aren’t shown here.

sys/src/games/glendy.c+0−531

This diff is large: its 532 lines aren’t shown here.

sys/src/games/juggle.c+0−217

This diff is large: its 218 lines aren’t shown here.

sys/src/games/life.c+0−446

This diff is large: its 447 lines aren’t shown here.

sys/src/games/mahjongg/graphics.c+0−334

This diff is large: its 335 lines aren’t shown here.

sys/src/games/mahjongg/level.c+0−149

This diff is large: its 150 lines aren’t shown here.

sys/src/games/mahjongg/logic.c+0−99

This diff is large: its 100 lines aren’t shown here.

sys/src/games/mahjongg/mahjongg.c+0−233

This diff is large: its 234 lines aren’t shown here.

sys/src/games/mahjongg/mahjongg.h+0−114

This diff is large: its 115 lines aren’t shown here.

sys/src/games/mahjongg/mkfile+0−20

This diff is large: its 21 lines aren’t shown here.

sys/src/games/mandel.c+0−238

This diff is large: its 239 lines aren’t shown here.

sys/src/games/md/cpu.c+0−1181

This diff is large: its 1182 lines aren’t shown here.

sys/src/games/md/dat.h+0−97

This diff is large: its 98 lines aren’t shown here.

sys/src/games/md/fns.h+0−20

This diff is large: its 21 lines aren’t shown here.

sys/src/games/md/md.c+0−341

This diff is large: its 342 lines aren’t shown here.

sys/src/games/md/mem.c+0−437

This diff is large: its 438 lines aren’t shown here.

sys/src/games/md/mkfile+0−15

This diff is large: its 16 lines aren’t shown here.

sys/src/games/md/vdp.c+0−397

This diff is large: its 398 lines aren’t shown here.

sys/src/games/md/ym.c+0−454

This diff is large: its 455 lines aren’t shown here.

sys/src/games/md/z80.c+0−821

This diff is large: its 822 lines aren’t shown here.

sys/src/games/memo.c+0−392

This diff is large: its 393 lines aren’t shown here.

sys/src/games/midi.c+0−250

This diff is large: its 251 lines aren’t shown here.

sys/src/games/mines/LICENCE+0−340

This diff is large: its 341 lines aren’t shown here.

sys/src/games/mines/README+0−31

This diff is large: its 32 lines aren’t shown here.

sys/src/games/mines/digit0.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit0.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/digit1.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit1.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/digit2.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit2.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/digit3.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit3.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/digit4.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit4.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/digit5.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit5.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/digit6.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit6.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/digit7.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit7.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/digit8.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit8.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/digit9.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/digit9.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/empty0.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/empty0.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/empty1.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/empty1.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/empty2.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/empty2.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/empty3.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/empty3.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/empty4.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/empty4.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/empty5.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/empty5.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/empty6.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/empty6.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/empty7.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/empty7.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/empty8.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/empty8.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/explosion.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/explosion.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/fault.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/fault.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/game.c+0−144

This diff is large: its 145 lines aren’t shown here.

sys/src/games/mines/game.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/mark.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/mark.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/mined.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/mined.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/mines.c+0−764

This diff is large: its 765 lines aren’t shown here.

sys/src/games/mines/mkfile+0−61

This diff is large: its 62 lines aren’t shown here.

sys/src/games/mines/mouse.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/mouse.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/move.c+0−144

This diff is large: its 145 lines aren’t shown here.

sys/src/games/mines/move.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/oops.c+0−144

This diff is large: its 145 lines aren’t shown here.

sys/src/games/mines/oops.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/pictures/digit0.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/digit1.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/digit2.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/digit3.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/digit4.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/digit5.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/digit6.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/digit7.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/digit8.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/digit9.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/empty0.raw+0−1

This diff is large: its 2 lines aren’t shown here.

sys/src/games/mines/pictures/empty1.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/empty2.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/empty3.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/empty4.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/empty5.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/empty6.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/empty7.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/empty8.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/explosion.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/fault.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/game.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/mark.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/mined.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/mouse.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/move.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/oops.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/push.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/query.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/sign.raw+0−0

Binary file not shown.

sys/src/games/mines/pictures/unknown.raw+0−1

This diff is large: its 2 lines aren’t shown here.

sys/src/games/mines/pictures/win.raw+0−0

Binary file not shown.

sys/src/games/mines/push.c+0−144

This diff is large: its 145 lines aren’t shown here.

sys/src/games/mines/push.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/query.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/query.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/sign.c+0−70

This diff is large: its 71 lines aren’t shown here.

sys/src/games/mines/sign.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/unknown.c+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mines/unknown.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mines/win.c+0−144

This diff is large: its 145 lines aren’t shown here.

sys/src/games/mines/win.h+0−23

This diff is large: its 24 lines aren’t shown here.

sys/src/games/mkfile+0−69

This diff is large: its 70 lines aren’t shown here.

sys/src/games/mole.c+0−249

This diff is large: its 250 lines aren’t shown here.

sys/src/games/music/Readme+0−12

This diff is large: its 13 lines aren’t shown here.

sys/src/games/music/debug.h+0−13

This diff is large: its 14 lines aren’t shown here.

sys/src/games/music/icon/next.bit+0−0

Binary file not shown.

sys/src/games/music/icon/pause.bit+0−0

Binary file not shown.

sys/src/games/music/icon/play.bit+0−0

Binary file not shown.

sys/src/games/music/icon/prev.bit+0−0

Binary file not shown.

sys/src/games/music/icon/question.bit+0−0

Binary file not shown.

sys/src/games/music/icon/root.bit+0−0

Binary file not shown.

sys/src/games/music/icon/skull.bit+0−0

Binary file not shown.

sys/src/games/music/icon/stop.bit+0−0

Binary file not shown.

sys/src/games/music/icon/trash.bit+0−0

Binary file not shown.

sys/src/games/music/juke.rc+0−57

This diff is large: its 58 lines aren’t shown here.

sys/src/games/music/jukebox/client.c+0−157

This diff is large: its 158 lines aren’t shown here.

sys/src/games/music/jukebox/client.h+0−10

This diff is large: its 11 lines aren’t shown here.

sys/src/games/music/jukebox/colors.c+0−120

This diff is large: its 121 lines aren’t shown here.

sys/src/games/music/jukebox/colors.h+0−30

This diff is large: its 31 lines aren’t shown here.

sys/src/games/music/jukebox/mk.dep+0−4

This diff is large: its 5 lines aren’t shown here.

sys/src/games/music/jukebox/mkfile+0−16

This diff is large: its 17 lines aren’t shown here.

sys/src/games/music/jukebox/music.c+0−1091

This diff is large: its 1092 lines aren’t shown here.

sys/src/games/music/jukebox/playlist.c+0−297

This diff is large: its 298 lines aren’t shown here.

sys/src/games/music/jukebox/playlist.h+0−26

This diff is large: its 27 lines aren’t shown here.

sys/src/games/music/jukefs/catset.c+0−152

This diff is large: its 153 lines aren’t shown here.

sys/src/games/music/jukefs/catset.h+0−8

This diff is large: its 9 lines aren’t shown here.

sys/src/games/music/jukefs/fs.c+0−757

This diff is large: its 758 lines aren’t shown here.

sys/src/games/music/jukefs/mk.dep+0−6

This diff is large: its 7 lines aren’t shown here.

sys/src/games/music/jukefs/mkfile+0−18

This diff is large: its 19 lines aren’t shown here.

sys/src/games/music/jukefs/object.h+0−117

This diff is large: its 118 lines aren’t shown here.

sys/src/games/music/jukefs/parse.c+0−616

This diff is large: its 617 lines aren’t shown here.

sys/src/games/music/jukefs/parse.h+0−15

This diff is large: its 16 lines aren’t shown here.

sys/src/games/music/jukefs/print.c+0−489

This diff is large: its 490 lines aren’t shown here.

sys/src/games/music/jukefs/print.h+0−6

This diff is large: its 7 lines aren’t shown here.

sys/src/games/music/jukefs/search.c+0−44

This diff is large: its 45 lines aren’t shown here.

sys/src/games/music/jukefs/search.h+0−5

This diff is large: its 6 lines aren’t shown here.

sys/src/games/music/jukefs/server.c+0−214

This diff is large: its 215 lines aren’t shown here.

sys/src/games/music/mkfile+0−51

This diff is large: its 52 lines aren’t shown here.

sys/src/games/music/mkinc+0−9

This diff is large: its 10 lines aren’t shown here.

sys/src/games/music/playlistfs/boilerplate.c+0−100

This diff is large: its 101 lines aren’t shown here.

sys/src/games/music/playlistfs/fs.c+0−892

This diff is large: its 893 lines aren’t shown here.

sys/src/games/music/playlistfs/main.c+0−94

This diff is large: its 95 lines aren’t shown here.

sys/src/games/music/playlistfs/mk.dep+0−5

This diff is large: its 6 lines aren’t shown here.

sys/src/games/music/playlistfs/mkfile+0−16

This diff is large: its 17 lines aren’t shown here.

sys/src/games/music/playlistfs/player.c+0−373

This diff is large: its 374 lines aren’t shown here.

sys/src/games/music/playlistfs/playlist.h+0−147

This diff is large: its 148 lines aren’t shown here.

sys/src/games/music/playlistfs/playplumb.c+0−20

This diff is large: its 21 lines aren’t shown here.

sys/src/games/music/playlistfs/volume.c+0−91

This diff is large: its 92 lines aren’t shown here.

sys/src/games/music/readcd+0−46

This diff is large: its 47 lines aren’t shown here.

sys/src/games/nes/apu.c+0−309

This diff is large: its 310 lines aren’t shown here.

sys/src/games/nes/cpu.c+0−453

This diff is large: its 454 lines aren’t shown here.

sys/src/games/nes/dat.h+0−108

This diff is large: its 109 lines aren’t shown here.

sys/src/games/nes/fns.h+0−16

This diff is large: its 17 lines aren’t shown here.

sys/src/games/nes/joynes+0−33

This diff is large: its 34 lines aren’t shown here.

sys/src/games/nes/mem.c+0−557

This diff is large: its 558 lines aren’t shown here.

sys/src/games/nes/mkfile+0−15

This diff is large: its 16 lines aren’t shown here.

sys/src/games/nes/nes.c+0−337

This diff is large: its 338 lines aren’t shown here.

sys/src/games/nes/ppu.c+0−344

This diff is large: its 345 lines aren’t shown here.

sys/src/games/nes/state.c+0−145

This diff is large: its 146 lines aren’t shown here.

sys/src/games/packet.c+0−435

This diff is large: its 436 lines aren’t shown here.

sys/src/games/snes/cpu.c+0−1052

This diff is large: its 1053 lines aren’t shown here.

sys/src/games/snes/dat.h+0−84

This diff is large: its 85 lines aren’t shown here.

sys/src/games/snes/dsp.c+0−647

This diff is large: its 648 lines aren’t shown here.

sys/src/games/snes/fns.h+0−30

This diff is large: its 31 lines aren’t shown here.

sys/src/games/snes/mem.c+0−655

This diff is large: its 656 lines aren’t shown here.

sys/src/games/snes/mkfile+0−16

This diff is large: its 17 lines aren’t shown here.

sys/src/games/snes/ppu.c+0−954

This diff is large: its 955 lines aren’t shown here.

sys/src/games/snes/snes.c+0−412

This diff is large: its 413 lines aren’t shown here.

sys/src/games/snes/spc.c+0−748

This diff is large: its 749 lines aren’t shown here.

sys/src/games/snes/state.c+0−194

This diff is large: its 195 lines aren’t shown here.

sys/src/games/sokoban/README+0−22

This diff is large: its 23 lines aren’t shown here.

sys/src/games/sokoban/animation.c+0−60

This diff is large: its 61 lines aren’t shown here.

sys/src/games/sokoban/graphics.c+0−124

This diff is large: its 125 lines aren’t shown here.

sys/src/games/sokoban/level.c+0−101

This diff is large: its 102 lines aren’t shown here.

sys/src/games/sokoban/mkfile+0−21

This diff is large: its 22 lines aren’t shown here.

sys/src/games/sokoban/move.c+0−136

This diff is large: its 137 lines aren’t shown here.

sys/src/games/sokoban/route.c+0−280

This diff is large: its 281 lines aren’t shown here.

sys/src/games/sokoban/sokoban.c+0−378

This diff is large: its 379 lines aren’t shown here.

sys/src/games/sokoban/sokoban.h+0−119

This diff is large: its 120 lines aren’t shown here.

sys/src/games/sudoku/game.c+0−436

This diff is large: its 437 lines aren’t shown here.

sys/src/games/sudoku/levels.c+0−200

This diff is large: its 201 lines aren’t shown here.

sys/src/games/sudoku/mkfile+0−18

This diff is large: its 19 lines aren’t shown here.

sys/src/games/sudoku/sudoku.c+0−422

This diff is large: its 423 lines aren’t shown here.

sys/src/games/sudoku/sudoku.h+0−55

This diff is large: its 56 lines aren’t shown here.

sys/src/games/xs.c+0−891

This diff is large: its 892 lines aren’t shown here.

sys/src/games/xs.h+0−24

This diff is large: its 25 lines aren’t shown here.

sys/src/mkfile+1−1

This diff is large: its 9 lines aren’t shown here.

hmmm

Keyboard shortcuts

General

Issues and pull requests

Issues, pull requests and Inbox

Repository code