Program TSTCNCT;

{ File: [22,311]TSTCNCT.PAS      Last edit: 8-MAY-1989 17:23:59 
  
  History:

    8-May-89.  Philip Hannay.  Created.


  Test the P3UTIL CNCT (connect) procedure.   Accepts a command line with
  the name of the task to connect to, or will prompt for that task name.

}

{[A+,B+, K+, L-, R+] Pasmat Directive }

%include pas$ext:general.typ;
%include pas$ext:spawn.typ;

%include pas$ext:cnct.ext;
%include pas$ext:catr56.ext;  
%include pas$ext:stse.ext;

{ Use predefined pascal procedure GMCR to get MCR command line if any }
procedure GMCR;external;

Var
  task_name: ch6;
  rad_task_name: rad56;
  connect_block: spawn_status_array;
  dir_stat: integer;
  cmd_line: ch40;
  i: integer;

Begin
GMCR;
readln(cmd_line);
if cmd_line[1] = ' '
  then begin
    Writeln;
    Writeln('Test CNCT (connect) procedure...');
    Writeln;
    Write('Enter name of task (offspring) to connect to> ');
    Readln(task_name);
    end
  else begin
    writeln;
    for i:= 1 to 6 do task_name[i]:= cmd_line[i];
    end;
catr56(task_name,rad_task_name);
cnct(rad_task_name,f1,connect_block);
dir_stat:= $dsw;
if dir_stat = 1
  then begin
    writeln('  connect done successfully, wait for offspring task to exit');
    stse(f1);
    writeln('  offspring task exited, status is ', connect_block.exit_code:1);
    end
  else begin
    writeln('  unable to connect, $DSW = ',dir_stat:1);
    end;
writeln;
writeln('done with CNCT test');
writeln;
end.