DIRECTORY Atom USING [PropList], Rope USING [ROPE], TextLooks USING [allLooks, Looks, noLooks, Runs], TextNode USING [Ref], UndoEvent USING [Ref]; TextEdit: CEDAR DEFINITIONS = BEGIN RefTextNode: TYPE = TextNode.Ref; ROPE: TYPE = Rope.ROPE; Looks: TYPE = TextLooks.Looks; noLooks: Looks = TextLooks.noLooks; allLooks: Looks = TextLooks.allLooks; Offset: TYPE = INT; MaxLen, MaxOffset: INT = LAST[INT]; MaxNat: NAT = LAST[NAT]; Event: TYPE = UndoEvent.Ref; CharSet: TYPE ~ [0..256); -- for XNS 16-bit character set; use in conjunction with 8-bit CHAR FetchChar: PROC [text: RefTextNode, index: INT] RETURNS [charSet: CharSet, char: CHAR]; FetchLooks: PROC [text: RefTextNode, index: INT] RETURNS [Looks]; Fetch: PROC [text: RefTextNode, index: INT] RETURNS [charSet: CharSet, char: CHAR, looks: Looks]; GetRope: PROC [text: RefTextNode] RETURNS [ROPE]; GetRuns: PROC [text: RefTextNode] RETURNS [TextLooks.Runs]; Size: PROC [text: RefTextNode] RETURNS [INT]; Flatten: PROC [text: RefTextNode] RETURNS [BOOL]; FromRope: PROC [rope: ROPE] RETURNS [RefTextNode]; FromString: PROC [string: REF READONLY TEXT] RETURNS [RefTextNode]; DocFromNode: PROC [child: RefTextNode] RETURNS [root: RefTextNode]; ChangeLooks: PROC [root: RefTextNode, text: RefTextNode, remove, add: Looks, start: INT _ 0, len: INT _ MaxOffset, event: Event _ NIL]; AddLooks: PROC [root: RefTextNode, text: RefTextNode, add: Looks, start: INT _ 0, len: INT _ MaxOffset, event: Event _ NIL]; RemoveLooks: PROC [root: RefTextNode, text: RefTextNode, remove: Looks _ allLooks, start: INT _ 0, len: INT _ MaxOffset, event: Event _ NIL]; SetLooks: PROC [root: RefTextNode, text: RefTextNode, new: Looks, start: INT _ 0, len: INT _ MaxOffset, event: Event _ NIL]; ClearLooks: PROC [root: RefTextNode, text: RefTextNode, start: INT _ 0, len: INT _ MaxOffset, event: Event _ NIL]; GetCharProp: PROC [node: RefTextNode, index: INT, name: ATOM] RETURNS [value: REF]; PutCharProp: PROC [node: RefTextNode, index: INT, name: ATOM, value: REF, nChars: INT _ 1, event: Event _ NIL, root: RefTextNode _ NIL]; MapCharProps: PROC [node: RefTextNode, index: INT, action: MapPropsAction] RETURNS [quit: BOOL]; MapPropsAction: TYPE ~ PROC [name: ATOM, value: REF] RETURNS [quit: BOOL _ FALSE]; ModifyCharProps: PROC [node: RefTextNode, name: ATOM, index: INT _ 0, nChars: INT _ INT.LAST, action: ModifyPropsAction, event: Event _ NIL, root: RefTextNode _ NIL] RETURNS [quit: BOOL]; ModifyPropsAction: TYPE ~ PROC [value: REF, index: INT, nChars: INT] RETURNS [quit: BOOL _ FALSE, newValue: REF]; PropList: TYPE ~ Atom.PropList; GetCharPropList: PROC [node: RefTextNode, index: INT] RETURNS [PropList _ NIL]; PutCharPropList: PROC [node: RefTextNode, index: INT, propList: PropList, nChars: INT _ 1, event: Event _ NIL, root: RefTextNode _ NIL]; GetPropFromList: PROC [propList: PropList, key: ATOM] RETURNS [value: REF]; PutPropOnList: PROC [propList: PropList, key: ATOM, value: REF] RETURNS [new: PropList]; ChangeFormat: PROC [node: RefTextNode, formatName: ATOM, event: Event _ NIL, root: RefTextNode _ NIL]; ChangeStyle: PROC [node: RefTextNode, name: ROPE, event: Event _ NIL, root: RefTextNode _ NIL]; PutProp: PROC [node: RefTextNode, name: ATOM, value: REF, event: Event _ NIL, root: RefTextNode _ NIL]; GetProp: PROC [node: RefTextNode, name: ATOM] RETURNS [value: REF]; TwoSpanProc: TYPE = PROC [destRoot, sourceRoot: RefTextNode, dest: RefTextNode, destStart: INT _ 0, destLen: INT _ MaxLen, source: RefTextNode, sourceStart: INT _ 0, sourceLen: INT _ MaxLen, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; DestSpanProc: TYPE = PROC [destRoot, sourceRoot: RefTextNode, dest: RefTextNode, destLoc: INT _ 0, source: RefTextNode, start: INT _ 0, len: INT _ MaxLen, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; OneSpanProc: TYPE = PROC [root: RefTextNode, text: RefTextNode, start: INT _ 0, len: INT _ MaxLen, event: Event _ NIL]; TransposeProc: TYPE = PROC [alphaRoot, betaRoot: RefTextNode, alpha: RefTextNode, alphaStart: INT _ 0, alphaLen: INT _ MaxLen, beta: RefTextNode, betaStart: INT _ 0, betaLen: INT _ MaxLen, event: Event _ NIL ] RETURNS [alphaResultStart, alphaResultLen, betaResultStart, betaResultLen: INT]; ReplaceText: TwoSpanProc; DeleteText: OneSpanProc; CopyText: DestSpanProc; MoveText: DestSpanProc; MoveTextOnto: TwoSpanProc; TransposeText: TransposeProc; ReplaceByChar: PROC [root: RefTextNode, dest: RefTextNode, char: CHAR, start: INT _ 0, len: INT _ MaxLen, inherit: BOOL _ TRUE, looks: Looks _ noLooks, charSet: CharSet _ 0, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; ReplaceByString: PROC [root: RefTextNode, dest: RefTextNode, string: REF READONLY TEXT, stringStart: NAT _ 0, stringNum: NAT _ MaxNat, start: INT _ 0, len: INT _ MaxLen, inherit: BOOL _ TRUE, looks: Looks _ noLooks, charSet: CharSet _ 0, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; ReplaceByRope: PROC [root: RefTextNode, dest: RefTextNode, rope: ROPE, start: INT _ 0, len: INT _ MaxLen, inherit: BOOL _ TRUE, looks: Looks _ noLooks, charSet: CharSet _ 0, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; InsertChar: PROC [root: RefTextNode, dest: RefTextNode, char: CHAR, destLoc: INT _ 0, inherit: BOOL _ TRUE, looks: Looks _ noLooks, charSet: CharSet _ 0, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; AppendChar: PROC [root: RefTextNode, dest: RefTextNode, char: CHAR, inherit: BOOL _ TRUE, looks: Looks _ noLooks, charSet: CharSet _ 0, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; InsertString: PROC [root: RefTextNode, dest: RefTextNode, string: REF READONLY TEXT, stringStart: NAT _ 0, stringNum: NAT _ MaxNat, destLoc: INT _ 0, inherit: BOOL _ TRUE, looks: Looks _ noLooks, charSet: CharSet _ 0, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; AppendString: PROC [root: RefTextNode, dest: RefTextNode, string: REF READONLY TEXT, stringStart: NAT _ 0, stringNum: NAT _ MaxNat, inherit: BOOL _ TRUE, looks: Looks _ noLooks, charSet: CharSet _ 0, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; InsertRope: PROC [root: RefTextNode, dest: RefTextNode, rope: ROPE, destLoc: INT _ 0, inherit: BOOL _ TRUE, looks: Looks _ noLooks, charSet: CharSet _ 0, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; AppendRope: PROC [root: RefTextNode, dest: RefTextNode, rope: ROPE, inherit: BOOL _ TRUE, looks: Looks _ noLooks, charSet: CharSet _ 0, event: Event _ NIL] RETURNS [resultStart, resultLen: INT]; CapChange: TYPE = {allCaps, allLower, initCaps, firstCap}; ChangeCaps: PROC [root: RefTextNode, dest: RefTextNode, start: INT _ 0, len: INT _ MaxLen, how: CapChange _ allCaps, event: Event _ NIL]; AllCaps: PROC [root: RefTextNode, dest: RefTextNode, start: INT_0, len: INT_MaxLen, event: Event_NIL]; AllLower: PROC [root: RefTextNode, dest: RefTextNode, start: INT_0, len: INT_MaxLen, event: Event_NIL]; InitialCaps: PROC [root: RefTextNode, dest: RefTextNode, start: INT _ 0, len: INT _ MaxLen, event: Event _ NIL]; END. jTextEdit.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. written by Bill Paxton, February 1981 last edit by Bill Paxton, April 23, 1982 6:14 am last edit by Russ Atkinson, July 22, 1983 9:51 am Doug Wyatt, March 2, 1985 2:56:18 pm PST Michael Plass, April 1, 1985 4:05:55 pm PST This package provides editing, filing, and various other operations for text nodes Overview: a text node contains a rope and runs of looks looks are represented by a vector of 32 bits each character in a text node has looks vector associated with it run encoding is used to reduce the storage needed to represent the looks see TextLooks.Mesa for more information about looks see TextNode.Mesa for the details of text node structure Text editing operations are provided to edit the contents of text nodes unlike ropes or runs of looks, text nodes are mutable i.e., the edit changes the node rather than returning a new node the looks related commands are AddLooks, RemoveLooks, SetLooks, ClearLooks, and ChangeLooks the text related commands are ReplaceText, DeleteText, CopyText, MoveText, MoveTextOnto, TransposeText the word commands are ReplaceWords, DeleteWords, CopyWords, MoveWords, MoveWordsOnto, TransposeWords in addition there are commands taking a character/string/rope as source ReplaceByChar, InsertChar, AppendChar ReplaceByString, InsertString, AppendString ReplaceByRope, InsertRope, AppendRope several commands are available for changing capitalization AllCaps, AllLower, InitialCaps Persistent addresses in text of a node You can associate an address with a character location in a text node the address persists with the same character even if the text is edited the address is an arbitrary REF ANY supplied by the client program see NodeAddrs.Mesa for the persistent addressing operations Property lists Each node includes a property list of key-value pairs The keys are ATOMs and the values are arbitrary REF ANYs Clients can register routines to read/write properties to files and to copy property values when nodes are copied see NodeProps.Mesa for the property list operations Character property lists Each character may include a property list of key-value pairs The keys are ATOMs and the values are arbitrary REF ANYs Filing There are operations to read and write files containing text nodes The characters go at the front of the file, followed by 0's then the information about looks, etc. and finally a password and a pointer to the end of the text. Thus programs that simply want to look at the characters can read up to 0's operations to read/write nodes to files are found in PutGet.Mesa Edit notification procedures Client's can register procedures to be called before/after edits the client procedure is called with the node(s) changed by the edit and a record describing the details of the edit see EditNotify.Mesa for more information Other kinds of nodes clients can create their own varieties in addition to the basic text nodes simply need to provide routines to write specs to files, take specs read from file and create a corresponding node, and to copy when nodes are copied see OtherNode.Mesa for details Tree editing nodes can have children there is a set of tree editing operations available see EditSpan.Mesa for details Note: Character properties are implemented using a ROSARY (an immutable sequence of REFs; see Rosary.mesa), appearing in the CharSets property of the node. The values in this ROSARY are of type REF CharSet. General operations fetches the indexed information use rope readers if want characters from contiguous locations returns the looks for the character at the given location use readers if getting looks for sequence of locations fetches the indexed information, except for character properties use rope & looks readers if want info from contiguous locations returns true if it decides to flatten rope & runs this is done automatically after a certain number of edits to the node Operations to create a text node create a text node with looks from a normal rope copies the contents of the string returns root node which has one child child typically created by FromRope or FromString Operations to add or delete looks first remove then add in the given range Character Properties Places the value on the character property lists of the chars in the specified range. Use value = NIL to remove a character property. Used for traversing all the properites attached to a particular character. Used for traversing and altering the values of a character property ofer a range of characters; the action procedure is called for runs of properties, but adjacent runs are not necessarily merged. This property list mechanism regards a PropList as an immutable value. Changing Style / Format / Property of node appends style to end of node prefix Editing Operations for text NOTE: edit operations do not create or delete addrs, but they can change their locations within the text replace the dest text by a copy of the source text addrs that are in the replaced text move to destStart addrs that are after the replaced text are adjusted delete the specified range of text addrs that are in the deleted section move to start copy the specified text add length of inserted text to addrs that are beyond destLoc move [start..start+len) in source to destLoc in dest no-op if dest=source and destLoc IN [start..start+len] addrs that are in the moved text do one of the following: move with the text if dest = source, or move to start if dest # source move [start..start+len) onto [destStart..destStart+destLen) implemented by appropriate calls on MoveText and DeleteText transpose the alpha text and the beta text addrs treated same as in Move move with the text if alpha = beta, or move to respective starts if alpha # beta replacement characters don't get any character properties if inherit is false, char gets specifed looks if inherit is true, char gets looks in following manner: if dest length is 0, then gets looks from argument list, else if start > 0, then gets looks from previous char, else gets looks from char following replacement Caps and Lowercase force specified span to all uppercase force specified span to all lowercase force first letter of words uppercase Э╩АШcodeЪЬ Щ KЪЬ ╧mЬ1Щ