Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 53 lines (44 sloc) 1.543 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;
Jump to Line
Something went wrong with that request. Please try again.