scel/sc/ScelDocument.sc

// copyright 2007 Marije Baalman (nescivi AT gmail DOT com)
//
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License as
// published by the Free Software Foundation; either version 2 of the
// License, or (at your option) any later version.
//
// This program 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
// General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA

ScelDocument : Document{
	var <thisdoc;
	var cFuncs;
	var checkCurrent;
	var <envir;
	var title_p, path_p;
	var <>currentString;

	*new{ | title = "Untitled", string = "", makeListener = false, toFront=true |
		//		"ScelDocument.new".postln;
		^super.prBasicNew.init( title, string, makeListener, toFront );
	}

	*open{  | path, selectionStart = 0, selectionLength = 0, toFront=true |
		^super.prBasicNew.initFromPath( path, selectionStart, selectionLength, toFront );
	}

	*newFromEmacs{ |doc|
		^this.prBasicNew.prinitFromEmacs( doc );
	}

	prinitFromEmacs{ |doc|
		thisdoc = doc;
		thisdoc.sceld = this;
		checkCurrent = { |doc| if ( EmacsDocument.current === doc, { this.didBecomeKey } ); };
		checkCurrent.value( doc );
		^this;
	}

	initFromPath{ | path, selectionStart = 0, selectionLength = 0, toFront=true|
		checkCurrent = { |doc| if ( EmacsDocument.current === doc, { this.didBecomeKey } ); };
		cFuncs = [checkCurrent];
		path_p = path;
		title_p = path;
		EmacsDocument.prNewFromPath(path, selectionStart, selectionLength, { |doc| thisdoc = doc; thisdoc.sceld = this; cFuncs.do{ |it| it.value(doc); } } );
		if ( toFront, { this.front } );
		^this
	}

	init{ |title, string, makeListener, toFront|
		//		"ScelDocument.init".postln;
		checkCurrent = { |doc| if ( EmacsDocument.current === doc, { this.didBecomeKey } ); };
		cFuncs = [checkCurrent];
		title_p = title;
		EmacsDocument.prNewFromString(title, string, makeListener, { |doc| thisdoc = doc; thisdoc.sceld = this; cFuncs.do{ |it| it.value(doc)} });
		if ( toFront, { this.front } );
		^this
	}

	string_ { | argName, completFunc |
		if ( thisdoc.notNil, { 
			thisdoc.string_( argName, completFunc )
		},{ 
			cFuncs = cFuncs ++ { this.string_( argName, completFunc ) };  
		});
	}

	title_ { | argName, completFunc |
		if ( thisdoc.notNil, { 
			thisdoc.title_( argName, completFunc )
		},{ 
			cFuncs = cFuncs ++ { this.title_( argName, completFunc ) };  
		});
	}

	title{
		if ( thisdoc.notNil, {
			^thisdoc.title;
		},{ 
			^("***"++title_p++"***")
		});
	}

	// printing
	printOn { | stream |
		super.printOn(stream);
		stream << $( << this.title << $);
	}

	prGetFileName {
		if ( thisdoc.notNil, {
			^thisdoc.path;
		},{ 
			^path_p;
		});
	}
	prSetFileName { | argPath |
		"sceldoc.prSetFileName".postln;
		if ( thisdoc.notNil, {
			thisdoc.prSetFileName( argPath );
		},{
			cFuncs = cFuncs ++ { this.prSetFileName( argPath ) };  
		});
	}

	prSetFileName_ { | argPath |
		"sceldoc.prSetFileName_".postln;
		path_p = argPath;
	}

	path_{ |path|
		"sceldoc.path".postln;
		this.prSetFileName( path );
		//		if ( thisdoc.notNil, { thisdoc.path_( path ) },{ completionFuncs = completionFuncs ++ { this.path_( path ) };  });
		//		^this
	}

	front {	
		if ( thisdoc.notNil, { 
			thisdoc.front
		},{ 
			cFuncs = cFuncs ++ { this.front };  
		});
	}

	unfocusedFront { 
		if ( thisdoc.notNil, { 
			thisdoc.unfocusedFront;
		},{
			cFuncs = cFuncs ++ { this.unfocusedFront };  
		});
	}
	syntaxColorize { 
		if ( thisdoc.notNil, { 
			thisdoc.syntaxColorize;
		},{
			cFuncs = cFuncs ++ { this.syntaxColorize };  
		});
	}
	prisEditable_{ | flag = true | 
		if ( thisdoc.notNil, { 
			thisdoc.prisEditable_( flag );
		},{
			cFuncs = cFuncs ++ { this.prisEditable_( flag ) };
		});
		editable = flag;
	}
	
	removeUndo{ 
		if ( thisdoc.notNil, { 
			thisdoc.removeUndo
		},{
			cFuncs = cFuncs ++ { this.removeUndo };  
		});
	}

	envir_ { | environment |
		envir = environment;
		if (this === current) {
			envir.push;
		}
	}

	didBecomeKey {
		if (envir.notNil) {
			envir.push;
		};
		super.didBecomeKey;
		EmacsDocument.current = this;
	}

	didResignKey {
		if (envir === currentEnvironment) {
			envir.pop;
		};
		super.didResignKey;
	}

	//	envir_ { | environment | thisdoc.envir_( environment ) }
	//	didBecomeKey { thisdoc.didBecomeKey }
	//	didResignKey { thisdoc.didResignKey }

	closed {
		thisdoc.prRemove;
		onClose.value(this); // call user function
		//		allDocuments.remove(this);
		//		dataptr = nil;
	}

	isEdited { 
		if ( thisdoc.notNil, {
			^thisdoc.isEdited
		},{
			^false;  
		});
	}
	//	isFront { thisdoc.isFront }
	editable_{arg abool=true; this.prisEditable_( abool ) }

	/* should maybe be this:
	path{ 
		if ( thisdoc.notNil, {
			^^thisdoc.prGetFileName;
		},{ 
			^path_p;
		});
	*/
	
	path{^thisdoc.prGetFileName }
	
	*addToList{ |doc| 
		var key, sceld; 
		//		"adding to List".postln;
		key = allDocuments.detectIndex( { |it| it.thisdoc === doc } );
		if ( key.isNil,
			{
				sceld = ScelDocument.newFromEmacs( doc );
				allDocuments = allDocuments.add(sceld);
				initAction.value(sceld);
			});
	}
	*removeFromList{ |doc|
		var toremove;
		toremove = allDocuments.detectIndex( { |it| it.thisdoc === doc }  );
		if ( toremove.notNil,
			{
				allDocuments.removeAt(toremove);
			});
	}
	
	prclose { 
		if ( thisdoc.notNil,{
			thisdoc.prclose
		},{
			cFuncs = cFuncs ++ { this.prclose };  
		});			
	}

	string {arg rangestart, rangesize = 1;
		var cond;
		currentString = nil;
		thisdoc.string( rangestart, { |v| currentString = v }, rangesize );
//		cond = Condition.new( { currentString.notNil } );
//		cond.wait;
		//		while ( { currentString.isNil }, {"wait for string".postln;} );
		^currentString;
	}
	text {
		^this.string;
	}
	rangeText { arg rangestart=0, rangesize=1; 
		^this.string( rangestart, rangesize );
	}

	// not implemented:
	selectRange { arg start=0, length=0; }
	background_ {arg color, rangestart= -1, rangesize = 0;
	}	
	stringColor_ {arg color, rangeStart = -1, rangeSize = 0;
	}
	currentLine {
		^""
	}

	prGetBounds { | bounds | ^bounds }
	prSetBounds { }
	setFont { }
	setTextColor { }
	selectedText {
		^""
	}
	prinsertText { arg dataptr, txt;
	}
	insertTextRange { arg string, rangestart, rangesize;
	}
	setBackgroundColor { }	
	selectedRangeLocation {
		^0
	}
	selectedRangeSize {
		^0
	}
	prselectLine { arg line;
	}

	bounds_{
	}
	
	*current {
		^EmacsDocument.current.sceld;
	}	

	*prGetIndexOfListener{
		^this.allDocuments.detectIndex( { |doc| doc.title == "*SCLang:PostBuffer*" } );
	}

	// invalid methods
	initByIndex {
		^this.shouldNotImplement(thisMethod)
	}
	prinitByIndex {
		^this.shouldNotImplement(thisMethod)
	}	
	initLast {
		^this.shouldNotImplement(thisMethod)
	}
	prGetLastIndex {
		^this.shouldNotImplement(thisMethod)
	}
}