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"];
[procCommand handleEndProcedureInTemplate:template];
return YES;
Something went wrong with that request. Please try again.