10 lines
3.5 KiB
Plaintext
10 lines
3.5 KiB
Plaintext
XEROX Lisp Users' Packages
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
GraphGroup
|
||
1
|
||
|
||
4
|
||
|
||
By: Nick Briggs (Briggs.pa@Xerox.com)
|
||
For internal use only.
|
||
The GraphGroup package contains functions for generating a graph showing the structure of a Grapevine distribution list.
|
||
DESCRIPTION
|
||
There is a single user-callable function:
|
||
(GraphGroup GroupName InfoStream LayoutOptions ExpandNSGroups) [Function]
|
||
GroupName is the group to be graphed.
|
||
Because it is rather slow tracking down the whole structure of a group, if InfoStream is non-nil GraphGroup will print on InfoStream a trace consisting of: a "[" followed by the number of entries in the group each time it starts a (sub-) group, a "." or "?" each time it identifies an individual , and a "]" at the end of a group. T is a good choice for this parameter.
|
||
LayoutOptions is a list of options, in property list format, to be passed to the Grapher function LAYOUTSEXPR. Properties recognized are: FORMAT, BOXING, FONT, MOTHERD, PERSONALD, and FAMILYD. See the Grapher documentation for a description of how to use these options. In most cases you will get a satisfactory graph by leaving this parameter NIL. Should you be planning to hardcopy the resulting graph on an NS printer it is reccomended that if you specify a font you use an NS font (such as Classic or Modern) so that the layout spacing is done correctly.
|
||
If ExpandNSGroups is T, then GraphGroup will attempt to trace into the NSworld when it finds Grapevine RNames that it recognizes as having pseudo-registries that are really NS domain/organizations.
|
||
(LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) ( <01> 1 <01> <01> 1 <01> <01><01> ( <00> <00>8 ( <01> ( <00> <00>8 D <01> <01> PAGEHEADING RUNNINGHEAD HELVETICA
|
||
MODERN
|
||
MODERN
|
||
MODERN MODERN MODERN
|
||
LOGO HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN HRULE.GETFN MODERN ' ~ *
|
||
1 K
|
||
%
|
||
<00>
|
||
& <00> 7z<37> |