-- CookieDoc.Tioga
-- last edited by Spreitzer, November 18, 1984 3:38:32 pm PST
name  Cookie
<<syntax>>
<<Cookie ([<keyword> [= | _ | ~ | :]] <value>)*>>
<<Possible keyword-value pairs are:>>
<<Probability : <real number in [0, 1]> (defaut 0.1)>>
<<Initial : <integer> (default 1)>>
<<If the keyword is omitted, the first argument is taken to be the Probability; the second, the Initial.>>
<<description>>
<<This is the fortune cookie program.  It prints fortunes in the command tools from which it was invoked.  At the time of 
invocation, it prints a number of fortunes given by "Initial".  Thereafter, after every command, it will print an additional 
fortune, with the given probability.>>
<<Parameters that are not given in the command are taken from the UserProfile (with names "Cookie.<keyword>").  If not found there, 
the indicated defaults are used.>>
<<The cookies are loaded from the list of files given in UserProfile entry "Cookie.Sources".  The files are looked for in the 
directory which was current when Cookie was run.  The cookies may be given relative weights.  To do this, precede a filename token 
with a real number token; all the cookies in subsequent files get that same weight (unless overridden).  For example, to weight 
each cookie by the inverse of the number of cookies in its file, you could say:>>
<<Cookie.Sources: 8.0E-4 Almond.Cookies 1.2E-3 Legal.Cookies 2.9E-3 Doit.LOTS 1.6E-2 Snippets>>
<<The default token list of Cookie.Sources is>>
<<Almond.Cookies Legal.Cookies Doit.LOTS Snippets Dans.Cookies>>
<<The files should contain rope literals separated by white space.  For each data file, Cookie maintains an index file, whose name 
is the name of the data file, followed by ".Index".>>
<<Cookie is enabled by a Boolean User Profile entry named "Cookie.Enabled" (defaults to FALSE).>>
<<installation>>
<<Do a bringover, enable Cookie in your profile, then issue the Cookie command:>>
<<% cd ///Commands/>>
<<% Bringover -p [Indigo]<Cedar5.1>Top>Cookie.DF>>
<<... edit profile to include:>>
Cookie.Enabled: TRUE
<<% cd ///Foo/>>
<<% PrintSearchRules
(... ///Commands/ ...)>>
<<% Cookie ...>>
<<examples>>
<<Ask for a fortune after, on the average, every other command (and none initially)>>
<<% Cookie 0.5 0
% date
Friday, January 27, 1984 3:45 pm
% date
Friday, January 27, 1984 3:45 pm
Stop searching forever. Happiness is unattainable.
% >>
<<Ask to be bothered no more, after receiving one fortune:>>
<<% Cookie 0 Initial = 1
A truly wise man never plays leapfrog with a Unicorn.>>
<<warnings>>
<<You may not like the cookies.>>
<<stop/undo >>
<<Impossible>>
<<implementation >>
<<Cookie.Mesa, from Cookie.DF>>
<<contact>>
<<Spreitzer>>
<<keyword hints>>
<<fortune cookie saying addage>>
<<keywords>>
<<to be supplied by the Index Czar at the appropriate time in the future>>