Copyright (C) by IBM Corporation, 1991.
MODULE; IMPORT Text; <*UNUSED*> CONST UdirImplCopyright = "Copyright (C) by IBM Corporation, 1991."; UdirImplRCSHeader = "$Header: /mnt1/muller/m3/dev/src/libs/aix-3-1/os/RCS/Udir.m3,v 1.3 1991/03/21 23:05:52 muller Exp $"; UdirImplDate = "$Date: 1991/03/21 23:05:52 $"; UdirImplRevision = "$Revision: 1.3 $"; PROCEDURE Udir NameToText (READONLY name: D_name): TEXT RAISES {} =
Converts the d_name field of a struct_dirent to a TEXT and returns it.
VAR len: CARDINAL := 0; BEGIN FOR i := FIRST(name) TO LAST(name) DO IF name[i] = '\000' THEN EXIT ELSE INC(len) END END; RETURN Text.FromChars(SUBARRAY (name, 0, len)) END NameToText; BEGIN END Udir.Change Log
$Log: Udir.m3,v $ # Revision 1.3 1991/03/21 23:05:52 muller # Removed the dependency on Char.i3 # # Revision 1.2 1991/03/07 00:57:33 muller # *** empty log message *** #