-/* For VMS versions with limited file name syntax,
- convert the name to something VMS will allow. */
-static void
-munge_doc_file_name (name)
- char *name;
-{
-#ifdef VMS
-#ifndef NO_HYPHENS_IN_FILENAMES
- extern char * sys_translate_unix (char *ufile);
- strcpy (name, sys_translate_unix (name));
-#else /* NO_HYPHENS_IN_FILENAMES */
- char *p = name;
- while (*p)
- {
- if (*p == '-')
- *p = '_';
- p++;
- }
-#endif /* NO_HYPHENS_IN_FILENAMES */
-#endif /* VMS */
-}
-