Zeus IDE

Code: Select all

function layout::linenum(doc = current_doc(), source = -1)
{

	local line_counter = 1;
	local row_line_base = 0;
	local row_line_counter = 1;
	local errors = 0;
	local i;
	local save_doc = current_doc(doc);
	
	#walk the doc from start to end,
	#modifying each startline attr1 with the value of the line counter
	#and each startpage attr1 with the value of its number attribute
	local oids[];
	oid_find_children(oid_null(), oids, "atipl::*", 0x08);
		
	for(i in oids) {
		local name = oid_name(oids[i]);
	    	layout::clear_attrs(oids[i]);

		if( name == "atipl:startpage" ) {
			if(!oid_modify_attr(oids[i], "attr1", oid_attr(oids[i], "number")) ){
				_composerlog::add_record($_eventlog::SEVERITY_ERROR, 'Unable to modify startpage attr1 for oid: ' . $oids[i]);
				errors++;
			}
			line_counter = 1;
		}
		
		#only set attr1 on startlines that contain something other than gentext
		else if( ( name == "atipl:startline" ) && ( ( oid_attr(oids[$i], "typemask" ) ) & 1 ) ){
		    if( row_line_base == 0 || row_line_counter <= line_counter) {
			if(!oid_modify_attr(oids[i], "attr1", $line_counter)){		
				_composerlog::add_record($_eventlog::SEVERITY_ERROR, 'Unable to modify startline attr1 for oid: ' . $oids[i]);
				errors++;
			}
		    }
		    line_counter++;
		}

		else if( name == "atipl:startrow" ) {
		    row_line_base = line_counter;
		    row_line_counter = 0;
		}

		else if( name == "atipl:endrow" ) {
			if(line_counter <  row_line_counter) {
				line_counter = row_line_counter;
		    }
		    row_line_base = 0;
		}

		else if( name == "atipl:startentry" ) {
		    line_counter = row_line_base;
		}

		else if( name == "atipl:endentry" ) {
		    if (row_line_counter < line_counter) {
			row_line_counter = line_counter;
		    }
		}
	}
	
	# toggle gentext in order to force a redisplay
	if(option("gentext") == "on") {
		set gentext=off;
		set gentext=on;
	}

	# reset the current doc
	current_doc(save_doc);	
	
	return (errors == 0);
}

Code: Select all

TCL=tcl

Code: Select all

TCL=tcl;acl

Code: Select all

C:\Users\CurrentUser\AppData\Roaming\Xidicone\Zeus\

Code: Select all

C:\Program Files\Zeus\

Code: Select all

;
; Zeus Keyword Information File
; =========================================
;
; This is a keyword information file for the Zeus for Windows IDE:
;
;     http://www.zeusedit.com/index.html
;
; This file can be used to create or configure the Keywords section
; of the Zeus document type.
;
; NOTE: To correctly import this file make sure it has a .zki file 
;       extension.
;
[Syntax]
CommentStart01=
CommentEnd01=
NestsComments01=No
LineComment01=#
CommentStart02=
CommentEnd02=
NestsComments02=No
LineComment02=
Delimiters=#~!@$%^&*()[]{}<>=+/?|;:-,.
DelimitKeywords=No
IgnoreCase=No
Literal=
ManageComments=No
Numbers=(0x*[0-9A-Fa-f]+[Hh]*)|([0-9]+(L*))
Preprocessor=
Strings="'
TripleQuotes=No

[ReservedWords]
FileClose
alias
autoload
beep
break
caret
case
cc
cd
change_tag
check_completeness
clear_mark
clm
continue
copy_file
copy_keymap
copy_mark
cpm
default
define_keymap
define_tag
delete_buffer
delete_char
delete_mark
delete_tag
detail
edit
else
eval
exe
exec
execute
find
for
function
global
help
if
insert_string
insert_tag
keymap_destroy
link
local
map
mark
mark_tag_at_caret
mark_word
menu
menu_add
menu_change
menu_delete
menu_load
menu_move
mes
message
mkdir
modify_tag
move_file
mt
newline
options
package
paste
read
readvar
redisplay
require
return
rm
save
save_as
set
sh
show
source
switch
tag_display
td
undefine_keymap
undefine_tag
undo
unmap
unsetvar
while
word_left
write

[ExReservedWords]
Pattern=
IsNested=No

[UserWords1]

[ExUserWords1]
Pattern=
IsNested=No

[UserWords2]

[ExUserWords2]
Pattern=
IsNested=No

[UserWords3]

[ExUserWords3]
Pattern=
IsNested=No

[UserWords4]

[ExUserWords4]
Pattern=
IsNested=No

[UserWords5]

[ExUserWords5]

Pattern=
IsNested=No