/* Copyright (C) 1991 Free Software Foundation, Inc.This file is part of the GNU C Library.The GNU C Library is free software; you can redistribute it and/ormodify it under the terms of the GNU Library General Public License aspublished by the Free Software Foundation; either version 2 of theLicense, or (at your option) any later version.The GNU C Library is distributed in the hope that it will be useful,but WITHOUT ANY WARRANTY; without even the implied warranty ofMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNULibrary General Public License for more details.You should have received a copy of the GNU Library General PublicLicense along with the GNU C Library; see the file COPYING.LIB.  Ifnot, write to the Free Software Foundation, Inc., 675 Mass Ave,Cambridge, MA 02139, USA.  *//* CHANGED FOR VMS *//* * <getpass.c>**** HISTORY:**	 8 Jul 94  FM	Include "HTUtils.h" for memory allocation and free()**			substitutions with VAXC on VMS.***/#include <stdio.h>#include <descrip.h>#include <psldef.h>#include <iodef.h>#include "HTUtils.h"char *getpass (const char *prompt){  static char *buf;  int result;  $DESCRIPTOR(devnam,"SYS$INPUT");  int chan;  int promptlen;  struct {     short result;     short count;     int   info;  } iosb;  promptlen = strlen(prompt);  buf = malloc(256);  if (buf == NULL)     return(NULL);    result = SYS$ASSIGN(&devnam, &chan, PSL$C_USER, 0, 0);  result = SYS$QIOW(0, chan, IO$_READPROMPT | IO$M_PURGE |IO$M_NOECHO, &iosb, 0, 0,                    buf, 255, 0, 0, prompt, promptlen);  buf[iosb.count] = '\0';  result = SYS$DASSGN(chan);  return buf;}