/**
 **  $VER: IndentLeft.quill 1.0 (30.9.94)
 **  By Timothy J. Aston
 **
 **  Outdents the current line, or all lines with the currently marked block
 **  left by a tab.
 **
 **/


/* Some setup first.
 */
options results
options failat 200

TAB = d2c(9)

main:
	/* Make sure rexxsupport.library is there, just in case we need it.
	 */
	if ~show(l, 'rexxsupport.library') then do
		if ~addlib('rexxsupport.library', 0, -30) then do
			'REQUESTNOTIFY' '"Could not build project:'NL' · libs:rexxsupport.library not installed"'
			exit 10
		end
	end
	
	/* Get the starting and stopping lines.
	 */
	'GETATTR PROJECT MARKINGBLOCK VAR' markingblock
	if markingblock = TRUE then do
		'GETATTR PROJECT BLOCKSTARTLINE VAR' startline
		'GETATTR PROJECT BLOCKENDLINE VAR' endline
		'MARK'
	end
	else do
		'GETATTR PROJECT LINE VAR' startline
		endline = startline
	end
	
	/* Take a tab away from the beginning of each line.
	 */
	'GOTOCOLUMN' 1
	'GOTOLINE' startline
	do i = startline to endline
		'GETLINE'
		if left(result, 1) = TAB then do
			'DELETECHAR'
		end
		'LINE' 1
	end
	
	exit