mirror of
https://github.com/microtherion/VocalEasel.git
synced 2024-12-22 19:23:59 +00:00
135 lines
4.2 KiB
Plaintext
135 lines
4.2 KiB
Plaintext
//
|
|
// VLLilypondDocument.mm
|
|
// Vocalese
|
|
//
|
|
// Created by Matthias Neeracher on 10/20/06.
|
|
// Copyright 2006 __MyCompanyName__. All rights reserved.
|
|
//
|
|
|
|
#import "VLLilypondDocument.h"
|
|
|
|
@interface NSMutableString (VLLilypond)
|
|
|
|
- (void) substituteMacro:(NSString *)macro withValue:(NSString *)value;
|
|
- (void) purgeMacros;
|
|
|
|
@end
|
|
|
|
@implementation NSMutableString (VLLilypond)
|
|
|
|
- (void) substituteMacro:(NSString *)m withValue:(NSString *)value
|
|
{
|
|
if ([value isEqual:@""])
|
|
return;
|
|
NSString * macro = [NSString stringWithFormat:@"<{%@}>", m];
|
|
NSRange range =
|
|
[value rangeOfCharacterFromSet:
|
|
[NSCharacterSet characterSetWithCharactersInString:@"\n"]];
|
|
BOOL hasEOL= range.location != NSNotFound;
|
|
|
|
for (range = [self rangeOfString:macro];
|
|
range.location != NSNotFound;
|
|
range = [self rangeOfString:macro]
|
|
) {
|
|
if (hasEOL) {
|
|
//
|
|
// Multi line substitution, figure out a prefix
|
|
//
|
|
NSRange prefix, suffix;
|
|
NSRange line = [self lineRangeForRange:range];
|
|
suffix.location = range.location+range.length;
|
|
suffix.length = line.location+line.length-suffix.location;
|
|
prefix.location = line.location;
|
|
prefix.length = range.location-prefix.location;
|
|
NSString * pfxStr = [self substringWithRange:prefix];
|
|
NSString * nonBlank =
|
|
[pfxStr stringByTrimmingCharactersInSet:
|
|
[NSCharacterSet whitespaceCharacterSet]];
|
|
NSString * sfxStr =
|
|
[[self substringWithRange:suffix]
|
|
stringByTrimmingCharactersInSet:
|
|
[NSCharacterSet whitespaceCharacterSet]];
|
|
if ([nonBlank length]) {
|
|
NSRange nb = [pfxStr rangeOfString:nonBlank];
|
|
prefix.length = nb.location - prefix.location;
|
|
pfxStr =
|
|
[[self substringWithRange:prefix]
|
|
stringByAppendingString:@" "];
|
|
sfxStr = [NSString stringWithFormat:@"\n%@", pfxStr];
|
|
} else {
|
|
range = line;
|
|
}
|
|
NSArray * lines = [value componentsSeparatedByString:@"\n"];
|
|
value =
|
|
[NSString stringWithFormat:@"%@%@%@", pfxStr,
|
|
[lines componentsJoinedByString:
|
|
[@"\n" stringByAppendingString:pfxStr]],
|
|
sfxStr];
|
|
}
|
|
[self replaceCharactersInRange:range withString:value];
|
|
}
|
|
}
|
|
|
|
- (void) purgeMacros
|
|
{
|
|
for (NSRange range = [self rangeOfString:@"<{"];
|
|
range.location != NSNotFound;
|
|
range = [self rangeOfString:@"<{"]
|
|
)
|
|
[self replaceCharactersInRange:[self lineRangeForRange:range]
|
|
withString: @""];
|
|
}
|
|
|
|
@end
|
|
|
|
@implementation VLDocument (Lilypond)
|
|
|
|
const int kMajorOffset = 6;
|
|
const int kMinorOffset = 9;
|
|
|
|
const char * sKeyNames[] = {
|
|
"ges", "des", "as", "es", "bes", "f",
|
|
"c", "g", "d", "a", "e", "b", "fis", "cis", "gis"
|
|
};
|
|
|
|
- (NSData *)lilypondDataWithError:(NSError **)outError
|
|
{
|
|
const VLProperties & prop = song->fProperties.front();
|
|
NSBundle * bndl = [NSBundle mainBundle];
|
|
NSString * tmpl =
|
|
[bndl pathForResource:lilypondTemplate
|
|
ofType:@"lyt" inDirectory:@"Templates"];
|
|
NSStringEncoding enc = NSUTF8StringEncoding;
|
|
NSMutableString * ly =
|
|
[NSMutableString stringWithContentsOfFile:tmpl encoding:enc error:outError];
|
|
[ly substituteMacro:@"TITLE" withValue:songTitle];
|
|
[ly substituteMacro:@"POET" withValue:songLyricist];
|
|
[ly substituteMacro:@"COMPOSER" withValue:songComposer];
|
|
[ly substituteMacro:@"ARRANGER" withValue:songArranger];
|
|
[ly substituteMacro:@"VLVERSION" withValue:
|
|
[bndl objectForInfoDictionaryKey:@"CFBundleVersion"]];
|
|
[ly substituteMacro:@"PAPERSIZE" withValue:@"letter"];
|
|
[ly substituteMacro:@"FORMATTING" withValue:@"ragged-last-bottom = ##f"];
|
|
std::string lys;
|
|
song->LilypondChords(lys);
|
|
[ly substituteMacro:@"VLVERSION" withValue:
|
|
[bndl objectForInfoDictionaryKey:@"CFBundleVersion"]];
|
|
[ly substituteMacro:@"CHORDS" withValue:
|
|
[NSString stringWithUTF8String:lys.c_str()]];
|
|
[ly substituteMacro:@"TIME" withValue:
|
|
[NSString stringWithFormat:@"%d/%d",
|
|
prop.fTime.fNum, prop.fTime.fDenom]];
|
|
[ly substituteMacro:@"KEY" withValue: prop.fMode > 0
|
|
? [NSString stringWithFormat:@"%s \\major",
|
|
sKeyNames[prop.fKey+kMajorOffset]]
|
|
: [NSString stringWithFormat:@"%s \\minor",
|
|
sKeyNames[prop.fKey+kMinorOffset]]];
|
|
song->LilypondNotes(lys);
|
|
[ly substituteMacro:@"NOTES" withValue:
|
|
[NSString stringWithUTF8String:lys.c_str()]];
|
|
[ly purgeMacros];
|
|
return [ly dataUsingEncoding:enc];
|
|
}
|
|
|
|
@end
|