mirror of
https://github.com/gnustep/libs-gui.git
synced 2025-04-25 05:01:00 +00:00
6ef83b3719
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gui/trunk@4844 72102866-910b-0410-8b05-ffd578937521
567 lines
13 KiB
Objective-C
567 lines
13 KiB
Objective-C
#include <AppKit/NSAttributedString.h>
|
|
#include <AppKit/NSParagraphStyle.h>
|
|
#include <AppKit/NSTextAttachment.h>
|
|
|
|
/*
|
|
* function to return a character set containing characters that
|
|
* separate words.
|
|
*/
|
|
static NSCharacterSet*
|
|
wordBreakCSet()
|
|
{
|
|
static NSCharacterSet *cset = nil;
|
|
|
|
if (cset == nil)
|
|
{
|
|
NSMutableCharacterSet *m = [NSMutableCharacterSet new];
|
|
|
|
cset = [NSCharacterSet whitespaceAndNewlineCharacterSet];
|
|
[m formUnionWithCharacterSet: cset];
|
|
cset = [NSCharacterSet punctuationCharacterSet];
|
|
[m formUnionWithCharacterSet: cset];
|
|
cset = [NSCharacterSet controlCharacterSet];
|
|
[m formUnionWithCharacterSet: cset];
|
|
cset = [NSCharacterSet illegalCharacterSet];
|
|
[m formUnionWithCharacterSet: cset];
|
|
cset = [m copy];
|
|
RELEASE(m);
|
|
}
|
|
return cset;
|
|
}
|
|
|
|
/*
|
|
* function to return a character set containing characters that
|
|
* are legal within words.
|
|
*/
|
|
static NSCharacterSet*
|
|
wordCSet()
|
|
{
|
|
static NSCharacterSet *cset = nil;
|
|
|
|
if (cset == nil)
|
|
{
|
|
cset = [[wordBreakCSet() invertedSet] copy];
|
|
}
|
|
return cset;
|
|
}
|
|
|
|
/*
|
|
* function to return a character set containing paragraph separators
|
|
*/
|
|
static NSCharacterSet*
|
|
paraBreakCSet()
|
|
{
|
|
static NSCharacterSet *cset = nil;
|
|
|
|
if (cset == nil)
|
|
{
|
|
NSMutableCharacterSet *m = [NSMutableCharacterSet new];
|
|
|
|
/*
|
|
* Build set with characters specified in MacOS-X documentation for
|
|
* [NSAttributedString -fixParagraphStyleAttributeInRange:]
|
|
*/
|
|
[m addCharactersInRange: NSMakeRange(0x000A, 1)]; /* CR */
|
|
[m addCharactersInRange: NSMakeRange(0x000D, 1)]; /* LF */
|
|
[m addCharactersInRange: NSMakeRange(0x2028, 1)]; /* line sep */
|
|
[m addCharactersInRange: NSMakeRange(0x2029, 1)]; /* para sep */
|
|
cset = [m copy];
|
|
RELEASE(m);
|
|
}
|
|
return cset;
|
|
}
|
|
|
|
@implementation NSAttributedString (AppKit)
|
|
|
|
- (BOOL) containsAttachments
|
|
{
|
|
// Currently there are no attachment in GNUstep.
|
|
// FIXME.
|
|
return NO;
|
|
}
|
|
|
|
- (NSDictionary*) fontAttributesInRange: (NSRange)range
|
|
{
|
|
NSDictionary *all;
|
|
static SEL sel = @selector(objectForKey:);
|
|
IMP objForKey;
|
|
id objects[8];
|
|
id keys[8];
|
|
int count = 0;
|
|
|
|
if (range.location < 0 || NSMaxRange(range) > [self length])
|
|
{
|
|
[NSException raise: NSRangeException
|
|
format: @"RangeError in method -fontAttributesInRange:"];
|
|
}
|
|
all = [self attributesAtIndex: range.location
|
|
effectiveRange: &range];
|
|
|
|
objForKey = [all methodForSelector: sel];
|
|
|
|
keys[count] = NSFontAttributeName;
|
|
objects[count] = (*objForKey)(all, sel, keys[count]);
|
|
if (objects[count] != nil)
|
|
count++;
|
|
|
|
keys[count] = NSForegroundColorAttributeName;
|
|
objects[count] = (*objForKey)(all, sel, keys[count]);
|
|
if (objects[count] != nil)
|
|
count++;
|
|
|
|
keys[count] = NSBackgroundColorAttributeName;
|
|
objects[count] = (*objForKey)(all, sel, keys[count]);
|
|
if (objects[count] != nil)
|
|
count++;
|
|
|
|
keys[count] = NSUnderlineStyleAttributeName;
|
|
objects[count] = (*objForKey)(all, sel, keys[count]);
|
|
if (objects[count] != nil)
|
|
count++;
|
|
|
|
keys[count] = NSSuperscriptAttributeName;
|
|
objects[count] = (*objForKey)(all, sel, keys[count]);
|
|
if (objects[count] != nil)
|
|
count++;
|
|
|
|
keys[count] = NSBaselineOffsetAttributeName;
|
|
objects[count] = (*objForKey)(all, sel, keys[count]);
|
|
if (objects[count] != nil)
|
|
count++;
|
|
|
|
keys[count] = NSKernAttributeName;
|
|
objects[count] = (*objForKey)(all, sel, keys[count]);
|
|
if (objects[count] != nil)
|
|
count++;
|
|
|
|
keys[count] = NSLigatureAttributeName;
|
|
objects[count] = (*objForKey)(all, sel, keys[count]);
|
|
if (objects[count] != nil)
|
|
count++;
|
|
|
|
return [NSDictionary dictionaryWithObjects: objects
|
|
forKeys: keys
|
|
count: count];
|
|
}
|
|
|
|
- (NSDictionary*) rulerAttributesInRange: (NSRange)range
|
|
{
|
|
id style;
|
|
|
|
if (range.location < 0 || NSMaxRange(range) > [self length])
|
|
{
|
|
[NSException raise: NSRangeException
|
|
format: @"RangeError in method -rulerAttributesInRange:"];
|
|
}
|
|
|
|
style = [self attribute: NSParagraphStyleAttributeName
|
|
atIndex: range.location
|
|
effectiveRange: &range];
|
|
|
|
if (style)
|
|
{
|
|
return [NSDictionary dictionaryWithObject: style
|
|
forKey: NSParagraphStyleAttributeName];
|
|
}
|
|
return [NSDictionary dictionary];
|
|
}
|
|
|
|
- (unsigned) lineBreakBeforeIndex: (unsigned)location
|
|
withinRange: (NSRange)aRange
|
|
{
|
|
NSScanner *tScanner;
|
|
unsigned int sL;
|
|
|
|
tScanner = [[NSScanner alloc] initWithString: [[self string]
|
|
substringWithRange: aRange]];
|
|
[tScanner scanUpToString: [NSText newlineString] intoString:NULL];
|
|
sL = [tScanner scanLocation] + 2;
|
|
|
|
[tScanner release];
|
|
|
|
if (sL > aRange.length)
|
|
return NSNotFound;
|
|
else
|
|
return sL;
|
|
}
|
|
|
|
- (NSRange) doubleClickAtIndex: (unsigned)location
|
|
{
|
|
NSString *str = [self string];
|
|
unsigned length = [str length];
|
|
NSRange scanRange;
|
|
NSRange startRange;
|
|
NSRange endRange;
|
|
|
|
scanRange = NSMakeRange(0, location);
|
|
startRange = [str rangeOfCharacterFromSet: wordBreakCSet()
|
|
options: NSBackwardsSearch|NSLiteralSearch
|
|
range: scanRange];
|
|
scanRange = NSMakeRange(location, length - location);
|
|
endRange = [str rangeOfCharacterFromSet: wordBreakCSet()
|
|
options: NSLiteralSearch
|
|
range: scanRange];
|
|
if (startRange.length == 0)
|
|
{
|
|
location = 0;
|
|
}
|
|
else
|
|
{
|
|
location = startRange.location + startRange.length;
|
|
}
|
|
if (endRange.length == 0)
|
|
{
|
|
length = length - location;
|
|
}
|
|
else
|
|
{
|
|
length = endRange.location - location;
|
|
}
|
|
return NSMakeRange(location, length);
|
|
}
|
|
|
|
- (unsigned) nextWordFromIndex: (unsigned)location
|
|
forward: (BOOL)isForward
|
|
{
|
|
if (isForward)
|
|
{
|
|
NSString *str = [self string];
|
|
unsigned length = [str length];
|
|
NSRange range;
|
|
|
|
range = NSMakeRange(location, length - location);
|
|
range = [str rangeOfCharacterFromSet: wordBreakCSet()
|
|
options: NSLiteralSearch
|
|
range: range];
|
|
if (range.length == 0)
|
|
return NSNotFound;
|
|
location = range.location;
|
|
range = NSMakeRange(location, length - location);
|
|
range = [str rangeOfCharacterFromSet: wordCSet()
|
|
options: NSLiteralSearch
|
|
range: range];
|
|
if (range.length == 0)
|
|
return NSNotFound;
|
|
return range.location;
|
|
}
|
|
else if (location > 0)
|
|
{
|
|
NSString *str = [self string];
|
|
NSRange range;
|
|
|
|
range = NSMakeRange(0, location);
|
|
range = [str rangeOfCharacterFromSet: wordBreakCSet()
|
|
options: NSBackwardsSearch|NSLiteralSearch
|
|
range: range];
|
|
location = range.location;
|
|
range = NSMakeRange(0, location);
|
|
range = [str rangeOfCharacterFromSet: wordCSet()
|
|
options: NSLiteralSearch
|
|
range: range];
|
|
if (range.length == 0)
|
|
return NSNotFound;
|
|
return range.location;
|
|
}
|
|
else
|
|
{
|
|
return NSNotFound;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* This is where the fun begins with RTF/RTFD/HTML
|
|
* This is currently ALL FIXME. :-)
|
|
* With love from Michael, hehe.
|
|
*/
|
|
|
|
- (id) initWithRTF: (NSData*)data
|
|
documentAttributes: (NSDictionary**)dict
|
|
{
|
|
return self;
|
|
}
|
|
|
|
- (id) initWithRTFD: (NSData*)data
|
|
documentAttributes: (NSDictionary**)dict
|
|
{
|
|
return self;
|
|
}
|
|
|
|
- (id) initWithPath: (NSString*)path
|
|
documentAttributes: (NSDictionary**)dict
|
|
{
|
|
return self;
|
|
}
|
|
|
|
- (id) initWithURL: (NSURL*)url
|
|
documentAttributes: (NSDictionary**)dict
|
|
{
|
|
return self;
|
|
}
|
|
|
|
- (id) initWithRTFDFileWrapper: (NSFileWrapper*)wrapper
|
|
documentAttributes: (NSDictionary**)dict
|
|
{
|
|
return self;
|
|
}
|
|
|
|
- (id) initWithHTML: (NSData*)data
|
|
documentAttributes: (NSDictionary**)dict
|
|
{
|
|
return self;
|
|
}
|
|
|
|
- (id) initWithHTML: (NSData*)data
|
|
baseURL: (NSURL*)base
|
|
documentAttributes: (NSDictionary**)dict
|
|
{
|
|
return self;
|
|
}
|
|
|
|
- (NSData*) RTFFromRange: (NSRange)range
|
|
documentAttributes: (NSDictionary*)dict
|
|
{
|
|
return (NSData *)self;
|
|
}
|
|
|
|
- (NSData*) RTFDFromRange: (NSRange)range
|
|
documentAttributes: (NSDictionary*)dict
|
|
{
|
|
return (NSData *)self;
|
|
}
|
|
|
|
- (NSFileWrapper*) RTFDFileWrapperFromRange: (NSRange)range
|
|
documentAttributes: (NSDictionary*)dict
|
|
{
|
|
return (NSFileWrapper *)self;
|
|
}
|
|
@end
|
|
|
|
@implementation NSMutableAttributedString (AppKit)
|
|
- (void) superscriptRange: (NSRange)range
|
|
{
|
|
id value;
|
|
int sValue;
|
|
|
|
value = [self attribute: NSSuperscriptAttributeName
|
|
atIndex: range.location
|
|
effectiveRange: &range];
|
|
|
|
sValue = [value intValue];
|
|
|
|
sValue++;
|
|
|
|
[self addAttribute: NSSuperscriptAttributeName
|
|
value: [NSNumber numberWithInt: sValue]
|
|
range: range];
|
|
}
|
|
|
|
- (void) subscriptRange: (NSRange)range
|
|
{
|
|
id value;
|
|
int sValue;
|
|
|
|
value = [self attribute: NSSuperscriptAttributeName
|
|
atIndex: range.location
|
|
effectiveRange: &range];
|
|
|
|
sValue = [value intValue];
|
|
|
|
sValue--;
|
|
|
|
[self addAttribute: NSSuperscriptAttributeName
|
|
value: [NSNumber numberWithInt: sValue]
|
|
range: range];
|
|
}
|
|
|
|
- (void) unscriptRange: (NSRange)range
|
|
{
|
|
[self addAttribute: NSSuperscriptAttributeName
|
|
value: [NSNumber numberWithInt: 0]
|
|
range: range];
|
|
}
|
|
|
|
- (void) applyFontTraits: (NSFontTraitMask)traitMask range: (NSRange)range
|
|
{
|
|
/* We don't use font traits yet, oops. */
|
|
/*
|
|
id value;
|
|
|
|
value = [self attribute: NSFontAttributeName
|
|
atIndex: range.location
|
|
effectiveRange: range];
|
|
|
|
[value setFontTraits: traitMask];
|
|
|
|
[self addAttribute: NSFontAttributeName value: value range: range];
|
|
*/
|
|
}
|
|
|
|
- (void) setAlignment: (NSTextAlignment)alignment range: (NSRange)range
|
|
{
|
|
id value;
|
|
|
|
value = [self attribute: NSParagraphStyleAttributeName
|
|
atIndex: range.location
|
|
effectiveRange: &range];
|
|
|
|
[value setAlignment: alignment];
|
|
|
|
[self addAttribute: NSParagraphStyleAttributeName value: value range: range];
|
|
}
|
|
|
|
- (void) fixAttributesInRange: (NSRange)range
|
|
{
|
|
[self fixFontAttributeInRange: range];
|
|
// [self fixParagraphStyleAttributeInRange: range];
|
|
[self fixAttachmentAttributeInRange: range];
|
|
}
|
|
|
|
- (void) fixFontAttributeInRange: (NSRange)range
|
|
{
|
|
}
|
|
|
|
- (void) fixParagraphStyleAttributeInRange: (NSRange)range
|
|
{
|
|
NSString *str = [self string];
|
|
unsigned length = [str length];
|
|
unsigned location;
|
|
NSRange r;
|
|
|
|
if (range.location > 0)
|
|
{
|
|
/*
|
|
* Extend range backward to take in entire paragraph if necessary.
|
|
*/
|
|
r = NSMakeRange(0, range.location);
|
|
r = [str rangeOfCharacterFromSet: paraBreakCSet()
|
|
options: NSBackwardsSearch|NSLiteralSearch
|
|
range: r];
|
|
if (r.length == 0)
|
|
{
|
|
/*
|
|
* No paragraph before this in range - so extend range right
|
|
* back to the start of the string.
|
|
*/
|
|
range.length += range.location;
|
|
range.location = 0;
|
|
}
|
|
else if (r.location + 1 < range.location)
|
|
{
|
|
range.length += (range.location - r.location - 1);
|
|
range.location = r.location + 1;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Extend range forwards to take in entire paragraph if necessary.
|
|
*/
|
|
location = r.location + r.length;
|
|
if (location > 0)
|
|
location--;
|
|
r = NSMakeRange(location, length - location);
|
|
r = [str rangeOfCharacterFromSet: paraBreakCSet()
|
|
options: NSLiteralSearch
|
|
range: r];
|
|
if (r.length > 0 && r.location > location)
|
|
range.length += (r.location - location);
|
|
|
|
/*
|
|
* Now try to step through the range fixing up the paragraph styles in
|
|
* each paragraph so the entire paragraph has the same style as the
|
|
* first character in the paragraph.
|
|
*/
|
|
while (range.length > 0)
|
|
{
|
|
NSParagraphStyle *style;
|
|
NSRange found;
|
|
unsigned end;
|
|
|
|
/*
|
|
* Determine position of next paragraph end.
|
|
*/
|
|
r = [str rangeOfCharacterFromSet: paraBreakCSet()
|
|
options: NSLiteralSearch
|
|
range: range];
|
|
if (r.length == 0)
|
|
end = NSMaxRange(range);
|
|
else
|
|
end = r.location + 1;
|
|
|
|
/*
|
|
* get the style in effect at the paragraph start.
|
|
*/
|
|
style = [self attribute: NSParagraphStyleAttributeName
|
|
atIndex: location
|
|
effectiveRange: &found];
|
|
/*
|
|
* Fix up this paragraph to have the starting style.
|
|
*/
|
|
while (NSMaxRange(found) < end)
|
|
{
|
|
NSParagraphStyle *nextStyle;
|
|
NSRange nextFound;
|
|
|
|
nextStyle = [self attribute: NSParagraphStyleAttributeName
|
|
atIndex: NSMaxRange(found)
|
|
effectiveRange: &nextFound];
|
|
if (nextStyle == style || [nextStyle isEqual: style] == YES)
|
|
{
|
|
found = nextFound;
|
|
}
|
|
else
|
|
{
|
|
/*
|
|
* Styles differ - add the old style to the remainder of the
|
|
* range.
|
|
*/
|
|
found.location = NSMaxRange(found);
|
|
found.length = end - found.location;
|
|
[self addAttribute: NSParagraphStyleAttributeName
|
|
value: style
|
|
range: found];
|
|
}
|
|
}
|
|
/*
|
|
* Adjust the range to start at the beginning of the next paragraph.
|
|
*/
|
|
range.length = NSMaxRange(range) - end;
|
|
range.location = end;
|
|
}
|
|
}
|
|
|
|
- (void) fixAttachmentAttributeInRange: (NSRange)range
|
|
{
|
|
unsigned location = range.location;
|
|
unsigned end = NSMaxRange(range);
|
|
|
|
while (location < end)
|
|
{
|
|
NSDictionary *attr;
|
|
|
|
attr = [self attributesAtIndex: location effectiveRange: &range];
|
|
if ([attr objectForKey: NSAttachmentAttributeName] != nil)
|
|
{
|
|
unichar buf[range.length];
|
|
unsigned pos = 0;
|
|
|
|
[[self string] getCharacters: buf range: range];
|
|
while (pos < range.length)
|
|
{
|
|
unsigned start;
|
|
unsigned end;
|
|
|
|
while (pos < range.length && buf[pos] == NSAttachmentCharacter)
|
|
pos++;
|
|
start = pos;
|
|
while (pos < range.length && buf[pos] == NSAttachmentCharacter)
|
|
pos++;
|
|
end = pos;
|
|
if (start != end)
|
|
[self removeAttribute: NSAttachmentAttributeName
|
|
range: NSMakeRange(start, end - start)];
|
|
}
|
|
}
|
|
location = NSMaxRange(range);
|
|
}
|
|
}
|
|
@end
|