
{ table rfv$install_directives type=command
{ command (define_local_host, deflh) processor=rfp$define_local_host
{ command (define_remote_host, defrh) processor=rfp$define_remote_host
{ command (define_local_nad, defln) processor=rfp$define_local_nad
{ command (define_remote_nad, defrn) processor=rfp$define_remote_nad
{ command (define_lcn_path, deflp) processor=rfp$define_lcn_path
{ command (auto_path_generation, autpg) processor=rfp$auto_path_generation
{ command (quit, q) processor=rfp$irc_quit

?? PUSH (LISTEXT := ON) ??
VAR
  rfv$install_directives: [STATIC, READ] ^clt$command_table := ^rfv$install_directives_entries,

  rfv$install_directives_entries: [STATIC, READ] array [1 .. 14] of  clt$command_table_entry := [
  {} ['AUTO_PATH_GENERATION           ', clc$nominal_entry, clc$advertised_entry, 6,
        clc$automatically_log, clc$linked_call, ^rfp$auto_path_generation],
  {} ['AUTPG                          ', clc$abbreviation_entry, clc$advertised_entry, 6,
        clc$automatically_log, clc$linked_call, ^rfp$auto_path_generation],
  {} ['DEFINE_LCN_PATH                ', clc$nominal_entry, clc$advertised_entry, 5,
        clc$automatically_log, clc$linked_call, ^rfp$define_lcn_path],
  {} ['DEFINE_LOCAL_HOST              ', clc$nominal_entry, clc$advertised_entry, 1,
        clc$automatically_log, clc$linked_call, ^rfp$define_local_host],
  {} ['DEFINE_LOCAL_NAD               ', clc$nominal_entry, clc$advertised_entry, 3,
        clc$automatically_log, clc$linked_call, ^rfp$define_local_nad],
  {} ['DEFINE_REMOTE_HOST             ', clc$nominal_entry, clc$advertised_entry, 2,
        clc$automatically_log, clc$linked_call, ^rfp$define_remote_host],
  {} ['DEFINE_REMOTE_NAD              ', clc$nominal_entry, clc$advertised_entry, 4,
        clc$automatically_log, clc$linked_call, ^rfp$define_remote_nad],
  {} ['DEFLH                          ', clc$abbreviation_entry, clc$advertised_entry, 1,
        clc$automatically_log, clc$linked_call, ^rfp$define_local_host],
  {} ['DEFLN                          ', clc$abbreviation_entry, clc$advertised_entry, 3,
        clc$automatically_log, clc$linked_call, ^rfp$define_local_nad],
  {} ['DEFLP                          ', clc$abbreviation_entry, clc$advertised_entry, 5,
        clc$automatically_log, clc$linked_call, ^rfp$define_lcn_path],
  {} ['DEFRH                          ', clc$abbreviation_entry, clc$advertised_entry, 2,
        clc$automatically_log, clc$linked_call, ^rfp$define_remote_host],
  {} ['DEFRN                          ', clc$abbreviation_entry, clc$advertised_entry, 4,
        clc$automatically_log, clc$linked_call, ^rfp$define_remote_nad],
  {} ['Q                              ', clc$abbreviation_entry, clc$advertised_entry, 7,
        clc$automatically_log, clc$linked_call, ^rfp$irc_quit],
  {} ['QUIT                           ', clc$nominal_entry, clc$advertised_entry, 7,
        clc$automatically_log, clc$linked_call, ^rfp$irc_quit]];

?? POP ??

