Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!elroy.jpl.nasa.gov!decwrl!pa.dec.com!src.dec.com!mjordan
From: mjordan (Mick Jordan)
Newsgroups: comp.lang.modula3
Subject: Udir.i3
Message-ID: <9104261717.AA07095@jumbo.pa.dec.com>
Date: 26 Apr 91 17:17:32 GMT
Lines: 29
To: m3


If you look at this interface, you will note that it has a comment
about a difference for SunOS (4.0 and upwards actually), but no
field inserted. This makes code which scans directories fail.

TYPE
  gen_dir = RECORD                    (* describes directory entry *)
    (* SunOS has another field here. *)
    gd_ino: Ctypes.unsigned_long;          (* inode number of entry *)
    gd_reclen: Ctypes.unsigned_short;      (* record length in bytes *)
    gd_namelen: Ctypes.unsigned_short;     (* name length in bytes *)
    gd_name: Ctypes.char; (* C array *)    (* name *)
  END;

The declaration should read:

TYPE
  gen_dir = RECORD                    (* describes directory entry *)
    gd_off: Ctypes.long;              (* offset of next disk  directory entry *)
    gd_ino: Ctypes.unsigned_long;          (* inode number of entry *)
    gd_reclen: Ctypes.unsigned_short;      (* record length in bytes *)
    gd_namelen: Ctypes.unsigned_short;     (* name length in bytes *)
    gd_name: Ctypes.char; (* C array *)    (* name *)
  END;

Sadly this means that simply using the "ultrix-3-1" library for SunOS
is no longer viable. Anyway, I am sure there are other differences.

Mick Jordan