home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume4 / spacewar / part06 / vmsdelmbx.c < prev    next >
C/C++ Source or Header  |  1988-05-31  |  789b  |  43 lines
  1. /*
  2.  * Spacewar - for deleting mailboxes left around if the game dies - VMS ONLY!
  3.  *
  4.  * Copyright 1985 obo Systems, Inc.
  5.  * Copyright 1985 Dan Rosenblatt
  6.  */
  7.  
  8. #include <stdio.h>
  9.  
  10. #include <descrip.h>
  11. #include <ssdef.h>
  12. #include <psldef.h>
  13.  
  14. main()
  15. {
  16.     char buf[128];
  17.     struct dsc$descriptor_d mlbx;
  18.     short chan;
  19.     int e;
  20.  
  21.     printf("mailbox name>");
  22.     scanf("%s",buf);
  23.  
  24.     mlbx.dsc$w_length = strlen(buf);
  25.     mlbx.dsc$b_dtype = DSC$K_DTYPE_T;
  26.     mlbx.dsc$b_class = DSC$K_CLASS_S;
  27.     mlbx.dsc$a_pointer = buf;
  28.  
  29.     if ((e=sys$assign(&mlbx,&chan,PSL$C_USER,0)) != SS$_NORMAL) {
  30.         printf("assign()=%d ",e);
  31.         perror(buf);
  32.         exit(SS$_ABORT);
  33.     }
  34.     if ((e=sys$delmbx(chan)) != SS$_NORMAL) {
  35.         printf("delmbx()=%d ",e);
  36.         perror(buf);
  37.         exit(SS$_ABORT);
  38.     }
  39.  
  40.     printf("mailbox %s deleted\n",buf);
  41.     exit(SS$_NORMAL);
  42. }
  43.