@powerlang/egg-js/interpreter/SMethod.js

A Smalltalk VM that runs on top of JavaScript

import SScript from './SScript.js';


let SMethod = class extends SScript {

	constructor() {
		super();
		this._pragma = nil;
	}

	acceptVisitor_(visitor) {
		return visitor.visitMethod_(this);
	}

	isMethod() {
		return true;
	}

	offsetOfCurrentEnvironment() {
		return 0;
	}

	offsetOfEnvironment_(anInteger) {
		return 0;
	}

	pragma() {
		return this._pragma;
	}

	pragma_(anSPragma) {
		this._pragma = anSPragma;
		return this;
	}

	primitive() {
		let _retval;
		_retval = nil;
		if (nil !== this._pragma)
		{
			_retval = this._pragma.name()
		}
		;
		return _retval;
	}

}

export default SMethod