/*
DECterm -- by David W. Bynon, January, 1990

This simple program calls the DECwTermPort() to
create a DECterm window on the specified display
device.  If you do not specify a display 
(i.e., BIFF::0), the default display is used.

To compile and link:

$ cc decterm
$ link decterm, sys$input/options
sys$share:decw$terminalshr/share

File name: SYS$SYSTEM:DECTERM.EXE
Protection: W:RE
*/

#include descrip
#include prcdef
#include ssdef

main(int argc, char **argv) {

  char *server_display;
  int status, proc_flags, devlen;
  char devnam[10];

  $DESCRIPTOR(input, "");
  $DESCRIPTOR(output, "");
  $DESCRIPTOR(image, "SYS$SYSTEM:LOGINOUT.EXE");

  server_display = argv[1];
  status = DECwTermPort(server_display, 0, 0, devnam, 
&devlen);

  proc_flags = PRC$M_INTER | PRC$M_DETACH;
  output.dsc$w_length = devlen;
  output.dsc$a_pointer = devnam;
  input.dsc$w_length = devlen;
  input.dsc$a_pointer = devnam;
  status = sys$creprc(0, &image, &input, &output,
                      0, 0, 0, 0, 0, 0, 0, proc_flags);
  exit();
}




$! VUE$DECTERM.COM
$!
$! Procedure to open a DECterm window on
$! the specified X server.
$!
$! By David W. Bynon, January 1990
$!
$! File name: VUE$LIBRARY:VUE$DECTERM.COM
$! Protection: W:RE
$!-----------------------------------------
$ SET NOON
$ ON WARNING THEN GOTO VIEW_ERROR
$GET_SERVER:
$ VUE$SUPPRESS_OUTPUT_POPUP
$ VUE$INQUIRE_SYMBOL "SERVER X Server:"
$ VUE$READ SERVER
$ DECTERM = "$DECTERM"
$ IF SERVER .EQS. "" THEN GOTO START
$ IF F$LOCATE(":",SERVER) .EQ. F$LENGTH(SERVER)
$   THEN
$     VUE$POPUP_CONFIRM -
          "''SERVER' is an invalid server name.
                                                Try again?"
$     VUE$READ YESNO
$     IF YESNO .EQS. "YES" THEN GOTO GET_SERVER
$     GOTO END
$   ENDIF
$START:
$ DECTERM 'SERVER'
$END:
$ VUE$EXIT_COMMAND_LOOP
$ LOGOUT
$VIEW_ERROR:
$ VUE$SET_ERROR_STATUS
$ EXIT