DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 472 (0x1d8) Types: TextFile Names: »V«
└─⟦bdeee703f⟧ Bits:30000538 8mm tape, Rational 1000, RWI 10_1_1 └─ ⟦545705153⟧ »DATA« └─⟦f9289093d⟧ └─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS └─ ⟦91c658230⟧ »DATA« └─⟦f9289093d⟧ └─⟦this⟧
package Rwi_String is ------------------------------------------------------------------------------ -- Heap String - Ada can't construct aggregates using string literals and Ada -- can't use a function in the same spec that defines the function. This is -- used by the Release module. ------------------------------------------------------------------------------ type Heap_String is access String; function Hs (S : String) return Heap_String; end Rwi_String;