XEROX CD-COMMAND 2 4 1 CD-COMMAND 1 4 By: Matt Heffron (BEC.Heffron@USC-ECL.ARPA) CD-COMMAND defines a new programmer's assistant command and function CD to assist in connecting to different directories (similar to CONN). (CD DIR-SPEC) [Function & Prog. Asst. Command] DIR-SPEC specifies the directory to connect to. It can be a {DEVICE/HOST} as for CONN in which case CD behaves the same as CONN. It can be an ATOM suitable as a sub-directory name, CD will pack DIR-SPEC onto the end of the value of global variable CD-ROOTDIR and connect to that directory. If the first character of DIR-SPEC is > then CD will pack the rest of DIR-SPEC onto the end of the current connected directory and connect there. This, in effect, decends the sub-directory tree. If DIR-SPEC is the LITATOM < then CD will connect to the value of global variable CD-ROOTDIR; and if DIR-SPEC is either ? or . (period) then CD will display the current connected directory without changing it. If DIR-SPEC is unspecified then CD will connect to the value of LOGINHOST/DIR. CD-ROOTDIR [Global Variable] Used by CD (above). CD-COMMAND initializes it when loading (using INITVARS) to the value of LOGINHOST/DIR. Examples: (assuming CD-ROOTDIR is {DSK}) CD PROJECT Connects to {DSK}PROJECT> CD >DOCUMENTATION Connects to {DSK}PROJECT>DOCUMENTATION> CD PROJECT>DOCUMENTATION Also connects to {DSK}PROJECT>DOCUMENTATION> (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (162 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (162 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (162 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))(È(È (È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEAD(øMODERN MODERNLOGOMODERN MODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN - ;>(\7A G±. d   >   &3:Àazº