(* File Udir.m3, created by Dick Orgass at 11:49:05 on Tue Sep 18 1990. *)

(*   Copyright (C) by IBM Corporation, 1990. *)

MODULE Udir;
IMPORT Char, Text;

<*UNUSED*> CONST
  UdirImplCopyright = "Copyright (C) by IBM Corporation, 1990.";   
  UdirImplRCSHeader = "$Header: /mnt1/muller/m3/dev/src/libs/aix-ps2-1-2/os/RCS/Udir.m3,v 1.2 1991/03/18 22:38:12 muller Exp $";
  UdirImplDate = "$Date: 1991/03/18 22:38:12 $";
  UdirImplRevision = "$Revision: 1.2 $";

PROCEDURE NameToText(name: D_name): TEXT RAISES {} =

(* Converts the d_name field of a struct_dirent to a TEXT and returns it.  *)

VAR
  nameLength: CARDINAL := 0;
  charName: REF ARRAY OF CHAR;
BEGIN
  FOR i := 0 TO 255 DO
    IF name[i] = Char.NUL THEN EXIT ELSE INC(nameLength) END
  END;
  charName := NEW(REF ARRAY OF CHAR, nameLength);
  FOR i := 0 TO nameLength-1 DO charName[i] := name[i] END;
  RETURN Text.FromChars(charName^)
END NameToText;
  
BEGIN
END Udir.

(* Change Log

  $Log: Udir.m3,v $
# Revision 1.2  1991/03/18  22:38:12  muller
# *** empty log message ***
#

*)