Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 53 lines (44 sloc) 1.51 KB
//
// _MiscMergeEndprocedureCommand.m
//
// Written by Don Yacktman and Carl Lindberg
//
// Copyright 2001-2004 by Don Yacktman and Carl Lindberg.
// All rights reserved.
//
// This notice may not be removed from this source code.
//
// This header is included in the MiscKit by permission from the author
// and its use is governed by the MiscKit license, found in the file
// "License.rtf" in the MiscKit distribution. Please refer to that file
// for a list of all applicable permissions and restrictions.
//
#import "_MiscMergeEndprocedureCommand.h"
//#import <Foundation/NSUtilities.h>
#import <Foundation/NSString.h>
#import "_MiscMergeProcedureCommand.h"
#import "MiscMergeCommandBlock.h"
@implementation _MiscMergeEndprocedureCommand
- (void)dealloc
{
[procName release];
[super dealloc];
}
- (BOOL)parseFromScanner:(NSScanner *)aScanner template:(MiscMergeTemplate *)template
{
_MiscMergeProcedureCommand *procCommand = [[template currentCommandBlock] owner];
[self eatKeyWord:@"endprocedure" fromScanner:aScanner isOptional:NO];
procName = [[self getArgumentStringFromScanner:aScanner toEnd:NO] retain];
if (![procCommand isKindOfCommandClass:@"Procedure"] ||
([procName length] > 0 && [[procCommand procedureName] length] > 0 &&
![procName isEqualToString:[procCommand procedureName]]))
{
[template reportParseError:@"Mismatched endprocedure command"];
}
else
{
[procCommand handleEndProcedureInTemplate:template];
}
return YES;
}
@end
Something went wrong with that request. Please try again.