mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-21 10:41:04 +00:00
03e911003b
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@16377 72102866-910b-0410-8b05-ffd578937521
63 lines
1.8 KiB
Objective-C
63 lines
1.8 KiB
Objective-C
/**
|
|
STBlock.h
|
|
Wrapper for STBlockContext to make it invisible
|
|
|
|
Copyright (c) 2002 Free Software Foundation
|
|
|
|
This file is part of the StepTalk project.
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Lesser General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
This library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public
|
|
License along with this library; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
*/
|
|
|
|
#import <Foundation/NSObject.h>
|
|
|
|
@class STBlockLiteral;
|
|
@class STBytecodeInterpreter;
|
|
@class STMethodContext;
|
|
@class STBlockContext;
|
|
|
|
@interface STBlock:NSObject
|
|
{
|
|
STBytecodeInterpreter *interpreter;
|
|
STMethodContext *homeContext;
|
|
|
|
unsigned initialIP;
|
|
unsigned argCount;
|
|
unsigned stackSize;
|
|
|
|
STBlockContext *cachedContext;
|
|
BOOL usingCachedContext;
|
|
}
|
|
|
|
- initWithInterpreter:(STBytecodeInterpreter *)anInterpreter
|
|
homeContext:(STMethodContext *)context
|
|
initialIP:(unsigned)ptr
|
|
argumentCount:(int)count
|
|
stackSize:(int)size;
|
|
|
|
- (unsigned)argumentCount;
|
|
|
|
- value;
|
|
- valueWith:arg;
|
|
- valueWith:arg1 with:arg2;
|
|
- valueWith:arg1 with:arg2 with:arg3;
|
|
- valueWithArgs:(id *)args count:(unsigned)count;
|
|
|
|
- whileTrue:(STBlock *)doBlock;
|
|
- whileFalse:(STBlock *)doBlock;
|
|
|
|
- handler:(STBlock *)handlerBlock;
|
|
@end
|