*copyc osd$default_pragmats
?? NEWTITLE := ' NOS/VE File Server: Client: trial commands ', EJECT ??
MODULE dfm$trial_commands;
{
{  This module provides trial test commands for exercising the
{  file server code.  This is initiated from the driver_test_utility
{  subcommand SEND_TEST
{
?? NEWTITLE := '    Global Declarations ', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc clp$get_value
*copyc clp$scan_parameter_list
*copyc dfi$display
?? POP ??

?? TITLE := '    Global Variables ', EJECT ??
?? TITLE := '  [XDCL] DFP$SEND_TEST_COMMAND ', EJECT ??

  PROCEDURE [XDCL] dfp$send_test_command
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);


{ pdt try_family (family_name fn: name = nve
{  status)

?? PUSH (LISTEXT := ON) ??

    VAR
      try_family: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table :=
            [^try_family_names, ^try_family_params];

    VAR
      try_family_names: [STATIC, READ, cls$pdt_names_and_defaults] array
            [1 .. 3] of clt$parameter_name_descriptor :=
            [['FAMILY_NAME', 1], ['FN', 1], ['STATUS', 2]];

    VAR
      try_family_params: [STATIC, READ, cls$pdt_parameters] array [1 .. 2] of
            clt$parameter_descriptor := [

{ FAMILY_NAME FN }
      [[clc$optional_with_default, ^try_family_dv1], 1, 1, 1, 1,
            clc$value_range_not_allowed, [NIL, clc$name_value, 1,
            osc$max_name_size]],

{ STATUS }
      [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed,
            [NIL, clc$variable_reference, clc$array_not_allowed,
            clc$status_value]]];

    VAR
      try_family_dv1: [STATIC, READ, cls$pdt_names_and_defaults] string (3) :=
            'nve';

?? POP ??

    VAR
      family: ost$name,
      value: clt$value;

    clp$scan_parameter_list (parameter_list, try_family, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

    clp$get_value ('FAMILY_NAME', 1, 1, clc$low, value, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    family := value.name.value;

    display (family);
    display (' This command does nothing ' );
  PROCEND dfp$send_test_command;
MODEND dfm$trial_commands;
