At 11:39 PM -0400 6/5/06, John E. Malmberg wrote:
>There are three encodings available for ODS-5 disks;
I think you mean for filenames on ODS-5 disks. I guess that's implicit in EFS.
>--- /rsync_root/perl/vms/vms.c Tue May 30 23:23:07 2006
>+++ vms/vms.c Sun Jun 4 22:12:56 2006
Wow. I"m working on this. It didn't compile as is in a threaded
configuration or a default configuration either. It adds 794 lines
of code to vms.c and I don't think I will ever find time to read it
all, much less understand it, so do please submit tests. I will get
it in as soon as I get it to compile and I'm satisfied it doesn't
introduce failures for tests we already have.
>+/* This routine converts a UCS-2 character to be VTF-7 encoded.
>+ */
>+
>+static void ucs2_to_vtf7
>+ (char *outspec,
>+ unsigned long ucs2_char,
>+ int * output_cnt)
>+{
Why not use the CRTL's iconv() ? I think ucs2-to-vtf7 is one of the
translations supported even if you have not installed the optional
internationalization kit, but I could be wrong.
>
>@@ -9846,8 +10558,7 @@
> dev_desc.dsc$b_dtype = DSC$K_DTYPE_T;
> dev_desc.dsc$b_class = DSC$K_CLASS_S;
> dev_desc.dsc$a_pointer = (char *) dev; /* Read only parameter */
>- status = lib$getdvi(&item, 0, &dev_desc, &lockid, 0, 0);
>- if (!(status & 1)) {
>+ if (!$VMS_STATUS_SUCCESS(status)) {
> switch (status) {
> case SS$_NOSUCHDEV:
> SETERRNO(ENODEV, status);
I think you threw the baby out with the bathwater on that one.
--
________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
