DataMuseum.dk

top - download

    Length: 2105 (0x839)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1990 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1990.  ALL RIGHTS RESERVED.
--
--

--with Runtime_Interface;
WITH System;
WITH Unchecked_Conversion;

PACKAGE BODY Unix_Base_Types IS

   FUNCTION To_String (Object : Char_Ptr) RETURN String IS

      FUNCTION To_Address IS NEW Unchecked_Conversion
                                    (Char_Ptr, System.Address);

      --
      -- Establish a pointer to the beginning of the string, that is,
      -- the dope vector rather than to the first character in the
      -- string.
      --
      String_Address : CONSTANT System.Address := To_Address (Object);

      --String_Length : constant Natural :=
      --Runtime_Interface.Target_Dependent.String_Length (String_Address);

      -- Set up a dummy string using the length returned from string length
      -- then copy that amount of bytes.
      --Dummy : String (1 .. String_Length);

   BEGIN
      --if Object = null then
      RETURN "";
      --else
      --  Runtime_Interface.Target_Dependent.Block_Copy
      --   (String_Address, Dummy (Dummy'First)'Address, String_Length);
      --return Dummy;
      --end if;

   END To_String;

   FUNCTION To_Char_Ptr (Object : String) RETURN Char_Ptr IS
   BEGIN
      RETURN To_Char_Ptr (Object (Object'First)'Address);
   END To_Char_Ptr;

END Unix_Base_Types;