
DIRECTORY
CStrings USING [CString],
Rope USING [ROPE];

UXStrings: CEDAR DEFINITIONS
~ BEGIN

Error: ERROR [ec: ErrorCode];
ErrorCode: TYPE = { clientModifiedReleasedString };

CString: TYPE = CStrings.CString;

Create: PROC [from: REF] RETURNS [string: CString];

CreateSpace: PROC [size: INT] RETURNS [string: CString];
ToRope: PROC [from: CString, maxLength: INT ¬ LAST[INT]] RETURNS [Rope.ROPE];
ViewRefText: UNSAFE PROC [from: REF TEXT] RETURNS [string: CString];
CreateScratch: PROC [from: REF] RETURNS [string: UXStrings.CString];

ObtainScratch: PROC [nChars: INT] RETURNS [UXStrings.CString];

ReleaseScratch: PROC [s: UXStrings.CString];
CopyRefToString: UNSAFE PROC [ref: REF, string: UXStrings.CString];

END.


     
UXStrings.mesa
Copyright Ó 1988, 1991 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, May 23, 1988 3:19:13 pm PDT
Carl Hauser, November 21, 1988 2:33:48 pm PST
Willie-s, August 8, 1991 3:46 pm PDT
This error may be raised by ObtainScratch, below.
Creates a Unix compatible string by copying to a newly allocated object.
from: 	ROPE, REF TEXT 
	NIL creates an empty string [not a NIL string]

Creates newly allocated space for a Unix compatible string of given size.  Adds an extra byte for the null terminator.

Transforms unix compatible string into ROPE 
Copies the bits; the ROPE is safe and subject to Cedar GC

from:	non-NIL REF TEXT
string: 	a pointer to the beginning of the text contents of from.  Since from and string share storage, modifications to either appear in both.  Further,  holding string is not sufficient to prevent GC of from, so while the latter is in use, hold onto the former. 

Like CStrings.Create but obtains space from a scratch pool.  See ObtainScratch, below, for caveats.
! Error [clientModifiedReleasedText]
Like CStrings.CreateSpace but obtains space from a scratch pool.
A call to ObtainScratch is less expensive than CreateSpace, but ObtainScratch should only be called with the expectation of calling ReleaseScratch (below) later on the resulting pointer.  (It is ok for a client to occasionally "forget" to release a string obtained with this procedure, so for instance there is no need to call ReleaseScratch in UNWIND catch phrases unless UNWIND is expected most of the time!)
Raises Error [clientModifiedReleasedString] if the string it wanted to return has been tampered with (in a detectable way) since it was released with ReleaseScratch; this indicates that some client is not playing by the rules. 
Caller asserts that it has no further interest in the string pointed to by s.
Noop if s was not obtained from scratch pool.

Copies content of ref^ to string.  Works for ROPE, REF TEXT, and NIL refs.  Caller's responsibility to assure that string holds enough space for the copied characters.

Ê‚  –(cedarcode) style•NewlineDelimiter
™ šœ™Icodešœ
Ïeœ7™BK™8K™-K™$—K˜ šÏk	˜	Kšœ	žœ˜Kšœžœžœ˜K˜ —KšÐbl	œžœž˜šœž˜K˜ KšÏnœžœ˜šœžœ$˜3K™1—K˜ Kšœ	žœ˜!K˜ š œžœžœžœ˜3KšœH™HKšœžœžœžœ™Kšœžœ žœ™/K™ —K˜ š œžœžœžœ˜8Kšœv™vK™ —š œžœžœžœžœžœžœ˜MKšœ,™,Kšœžœ ™9K™ —š œžœžœžœžœžœ˜DKšœ
žœžœž™Kšœ<œ	œœKœÏbœœ7™ˆK™ —š œžœžœžœ˜DKšœc™c—K˜ š œžœ
žœžœ˜>Kšœ$™$Kšœ@™@Kš	œ²žœ@žœZžœžœ™šKšœ3žœª™ãK˜ —š œžœ˜,Kšœ6žœ™MK™-K™ —š œžœžœžœ˜CJ™§—K™ K˜ —Kšžœ˜K˜ K˜ — …—    Ö  p  