kdev.e@ 289

Last change on this file since 289 was 289, checked in by bird, 20 years ago
emacs file variables - no say.
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 83.3 KB

Line
1	/* $Id: kdev.e 289 2005-05-22 23:55:32Z bird $ -- tab-width: 4 c-indent-level: 4 --
2	*
3	* Visual SlickEdit Documentation Macros.
4	*
5	* Copyright (c) 1999-2004 knut st. osmundsen <[email protected]>
6	*
7	*
8	* This program is free software; you can redistribute it and/or modify
9	* it under the terms of the GNU General Public License as published by
10	* the Free Software Foundation; either version 2 of the License, or
11	* (at your option) any later version.
12	*
13	* This program is distributed in the hope that it will be useful,
14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16	* GNU General Public License for more details.
17	*
18	* You should have received a copy of the GNU General Public License
19	* along with This program; if not, write to the Free Software
20	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21	*
22	*/
23
24	/***
25	*
26	* This define the following keys:
27	*---------------------------------
28	* Ctrl+Shift+C: Class description box.
29	* Ctrl+Shift+F: Function/method description box.
30	* Ctrl+Shift+M: Module(file) description box
31	* Ctrl+Shift+O: One-liner (comment)
32	*
33	* Ctrl+Shift+G: Global box
34	* Ctrl+Shift+H: Header box
35	* Ctrl+Shift+E: Exported Symbols
36	* Ctrl+Shift+I: Internal function box
37	* Ctrl+Shift+K: Const/macro box
38	* Ctrl+Shift+S: Struct/Typedef box
39	*
40	* Ctrl+Shift+A: Signature+Date marker
41	* Ctrl+Shift+P: Mark line as change by me
42	*
43	* Ctrl+Shift+T: Update project tagfile.
44	*
45	* Ctrl+Shift+B: KLOGENTRYX(..)
46	* Ctrl+Shift+E: KLOGEXIT(..)
47	* Ctrl+Shift+N: Do kLog stuff for the current file. No questions.
48	* Ctrl+Shift+Q: Do kLog stuff for the current file. Ask a lot of questions.
49	*
50	* Remember to set the correct sOdin32UserName, sOdin32UserEmail and sOdin32UserInitials
51	* before compiling and loading the macros into Visual SlickEdit.
52	*
53	* These macros are compatible with both 3.0(c) and 4.0(b).
54	*
55	*/
56	defeventtab default_keys
57	def 'C-S-A' = k_signature
58	def 'C-S-C' = k_javadoc_classbox
59	def 'C-S-E' = k_box_exported
60	def 'C-S-F' = k_javadoc_funcbox
61	def 'C-S-G' = k_box_globals
62	def 'C-S-H' = k_box_headers
63	def 'C-S-I' = k_box_intfuncs
64	def 'C-S-K' = k_box_consts
65	def 'C-S-M' = k_javadoc_moduleheader
66	def 'C-S-O' = k_oneliner
67	def 'C-S-P' = k_mark_modified_line
68	def 'C-S-S' = k_box_structs
69	def 'C-S-T' = odin32_maketagfile
70	def 'C-S-L' = k_style_load
71
72	//optional stuff
73	//def 'C-S-Q' = odin32_klog_file_ask
74	//def 'C-S-N' = odin32_klog_file_no_ask
75	//def 'C-S-1' = odin32_klogentry
76	//def 'C-S-3' = odin32_klogexit
77
78
79	//MARKER. Editor searches for this line!
80	#pragma option(redeclvars, on)
81	#include 'slick.sh'
82	#ifndef VS_TAGDETAIL_context_args
83	/* newer vslick version. */
84	#include 'tagsdb.sh'
85	//#pragma option(strict,on)
86	/#else: Version 4.0 (OS/2) /
87	#endif
88
89	/* Remeber to change these! */
90	static _str skUserInitials = "kso";
91	static _str skUserName = "knut st. osmundsen";
92	static _str skUserEmail = "[email protected]";
93
94
95	/*******************************************************************************
96	* Global Variables *
97	*******************************************************************************/
98	static _str skCodeStyle = 'Opt2Ind4'; /* coding style scheme. */
99	static _str skDocStyle = 'javadoc';/* options: javadoc, */
100	static _str skLicense = 'GPL'; /* options: GPL, LGPL, Odin32, Confidential */
101	static _str skCompany = ''; /* empty or company name for copyright */
102	static _str skProgram = ''; /* Current program name - used by [L]GPL */
103	static _str skChange = ''; /* Current change identifier. */
104
105	static int ikStyleWidth = 80; /* The page width of the style. */
106	static boolean fkStyleFullHeaders = false; /* false: omit some tags. */
107	static int ikStyleOneliner = 41; /* The oneline comment column. */
108	static int ikStyleModifyMarkColumn = 105;
109	static boolean fkStyleBoxTag = false; /* true: Include tag in k_box_start. */
110
111	/*******************************************************************************
112	* Internal Functions *
113	*******************************************************************************/
114	/**
115	* Gets iso date.
116	* @returns ISO formatted date.
117	*/
118	static _str k_date()
119	{
120	int i,j;
121	_str date;
122
123	date = _date('U');
124	i = pos("/", date);
125	j = pos("/", date, i+1);
126	_str month = substr(date, 1, i-1);
127	if (length(month) == 1) month = '0'month;
128	_str day = substr(date, i+1, j-i-1);
129	if (length(day) == 1) day = '0'day;
130	_str year = substr(date, j+1);
131	return year"-"month"-"day;
132	}
133
134
135	/**
136	* Get the current year.
137	* @returns Current year string.
138	*/
139	static _str k_year()
140	{
141	_str date = _date('U');
142	return substr(date, pos("/",date, pos("/",date)+1)+1, 4);
143	}
144
145
146	/**
147	* Aligns a value up to a given alignment.
148	*/
149	static int k_alignup(int iValue, iAlign)
150	{
151	if (iAlign <= 0)
152	{
153	message('k_alignup: iValue='iValue ' iAlign='iAlign);
154	iAlign = 4;
155	}
156	return ((iValue intdiv iAlign) + 1) * iAlign;
157	}
158
159
160	/**
161	* Reads the comment setup for this lexer/extension .
162	*
163	* @returns Success indicator.
164	* @param sLeft Left comment. (output)
165	* @param sRight Right comment. (output)
166	* @param iColumn Comment mark column. (1-based) (output)
167	* @param sExt The extension to lookup defaults to the current one.
168	* @param sLexer The lexer to lookup defaults to the current one.
169	* @author knut st. osmundsen ([email protected])
170	* @remark This should be exported from box.e, but unfortunately it isn't.
171	*/
172	static boolean k_commentconfig(_str &sLeft, _str &sRight, int &iColumn, _str sExt = p_extension, _str sLexer = p_lexer_name)
173	{
174	/* init returns */
175	sLeft = sRight = '';
176	iColumn = 0;
177
178	/*
179	* Get comment setup from the lexer.
180	*/
181	_str sLine = '';
182	if (sLexer)
183	{
184	/* multiline */
185	rc = _ini_get_value(slick_path_search("user.vlx"), sLexer, 'mlcomment', sLine);
186	if (rc)
187	rc = _ini_get_value(slick_path_search("vslick.vlx"), sLexer, 'mlcomment', sLine);
188	if (!rc)
189	{
190	sLeft = strip(word(sLine, 1));
191	sRight = strip(word(sLine, 2));
192	if (sLeft != '' && sRight != '')
193	return true;
194	}
195
196	/* failed, try single line. */
197	rc = _ini_get_value(slick_path_search("user.vlx"), sLexer, 'linecomment', sLine);
198	if (rc)
199	rc = _ini_get_value(slick_path_search("vslick.vlx"), sLexer, 'linecomment', sLine);
200	if (!rc)
201	{
202	sLeft = strip(word(sLine, 1));
203	sRight = '';
204	iColumn = 0;
205	_str sTmp = word(sLine, 2);
206	if (isnumber(sTmp))
207	iColumn = (int)sTmp;
208	if (sLeft != '')
209	return true;
210	}
211	}
212
213	/*
214	* Read the nonboxchars and determin user or default box.ini.
215	*/
216	_str sFile = slick_path_search("ubox.ini");
217	boolean frc = _ini_get_value(sFile, sExt, 'nonboxchars', sLine);
218	if (frc)
219	{
220	sFile = slick_path_search("box.ini");
221	frc = _ini_get_value(sFile, sExt, 'nonboxchars', sLine);
222	}
223
224	if (!frc)
225	{ /*
226	* Found extension.
227	*/
228	sLeft = strip(eq_name2value('left',sLine));
229	if (sLeft == '\e') sLeft = '';
230	sRight = strip(eq_name2value('right',sLine));
231	if (sRight == '\e') sRight = '';
232
233	/* Read comment column too */
234	frc = _ini_get_value(sFile, sExt, 'comment_col', sLine);
235	if (frc)
236	{
237	iColumn = eq_name2value('comment_col', sLine);
238	if (iColumn == '\e') iColumn = 0;
239	}
240	else
241	iColumn = 0;
242	return true;
243	}
244
245	/* failure */
246	sLeft = sRight = '';
247	iColumn = 0;
248
249	return false;
250	}
251
252
253	/**
254	* Checks if current file only support line comments.
255	* @returns True / False.
256	* @remark Use builtin extension stuff!
257	*/
258	static boolean k_line_comment()
259	{
260	_str sRight = '';
261	_str sLeft = '';
262	int iColumn;
263	boolean fLineComment = false;
264	if (k_commentconfig(sLeft, sRight, iColumn))
265	fLineComment = (sRight == '' \|\| iColumn > 0);
266	return fLineComment;
267	}
268
269
270
271	#define KIC_CURSOR_BEFORE 1
272	#define KIC_CURSOR_AFTER 2
273	#define KIC_CURSOR_AT_END 3
274
275	/**
276	* Insert a comment at current or best fitting position in the text.
277	* @param sStr The comment to insert.
278	* @param iCursor Where to put the cursor.
279	* @param iPosition Where to start the comment.
280	* Doesn't apply to column based source.
281	* -1 means at cursor position. (default)
282	* >0 means at end of line, but not before this column (1-based).
283	* This also implies a min of one space to EOL.
284	*/
285	void k_insert_comment(_str sStr, int iCursor, int iPosition = -1)
286	{
287	_str sLeft;
288	_str sRight;
289	int iColumn;
290	if (!k_commentconfig(sLeft, sRight, iColumn))
291	{
292	sLeft = '/'; sRight = '/'; iColumn = 0;
293	}
294
295	int iCol = 0;
296	if (iColumn <= 0)
297	{ /*
298	* not column based source
299	*/
300
301	/* position us first */
302	if (iPosition > 0)
303	{
304	end_line();
305	do {
306	_insert_text(" ");
307	} while (p_col < iPosition);
308	}
309
310	/* insert comment saving the position for _BEFORE. */
311	iCol = p_col;
312	_insert_text(sLeft:+' ':+sStr);
313	if (iCursor == KIC_CURSOR_AT_END)
314	iCol = p_col;
315	/* right comment delimiter? */
316	if (sRight != '')
317	_insert_text(' ':+sRight);
318	}
319	else
320	{
321	if (p_col >= iColumn)
322	_insert_text("\n");
323	do { _insert_text(" "); } while (p_col < iColumn);
324	if (iCursor == KIC_CURSOR_BEFORE)
325	iCol = p_col;
326	_insert_text(sLeft:+' ':+sStr);
327	if (iCursor == KIC_CURSOR_AT_END)
328	iCol = p_col;
329	}
330
331	/* set cursor. */
332	if (iCursor != KIC_CURSOR_AFTER)
333	p_col = iCol;
334	}
335
336
337	/**
338	* Gets the comment prefix or postfix.
339	* @returns Comment prefix or postfix.
340	* @param fRight If clear left comment string - default.
341	* If set right comment string.
342	* @author knut st. osmundsen ([email protected])
343	*/
344	static _str k_comment(boolean fRight = false)
345	{
346	_str sLeft, sRight;
347	int iColumn;
348	_str sComment = '/*';
349	if (k_commentconfig(sLeft, sRight, iColumn))
350	sComment = (!fRight \|\| iColumn > 0 ? sLeft : sRight);
351
352	return strip(sComment);
353	}
354
355
356	/*******************************************************************************
357	* BOXES *
358	*******************************************************************************/
359
360	/**
361	* Inserts the first line in a box.
362	* @param sTag Not used - box tag.
363	*/
364	static void k_box_start(sTag)
365	{
366	_str sLeft, sRight;
367	int iColumn;
368	if (!k_commentconfig(sLeft, sRight, iColumn))
369	return;
370	_begin_line();
371	if (iColumn >= 0)
372	while (p_col < iColumn)
373	_insert_text(" ");
374
375	_str sText = sLeft;
376	if (sTag != '' && fkStyleBoxTag)
377	{
378	if (substr(sText, length(sText)) != '*')
379	sText = sText:+'*';
380	sText = sText:+sTag;
381	}
382
383	int i;
384	for (i = length(sText); i <= ikStyleWidth - p_col; i++)
385	sText = sText:+'*';
386	sText = sText:+"\n";
387
388	_insert_text(sText);
389	}
390
391
392	/**
393	* Places a string, sStr, into a line started and ended by '*'.
394	* @param sStr Text to have between the '*'s.
395	*/
396	static void k_box_line(_str sStr)
397	{
398	_str sLeft, sRight;
399	int iColumn;
400	if (!k_commentconfig(sLeft, sRight, iColumn))
401	return;
402	if (iColumn >= 0)
403	while (p_col < iColumn)
404	_insert_text(" ");
405
406	_str sText = '';
407	if (k_line_comment())
408	sText = sLeft;
409	if (sText == '' \|\| substr(sText, length(sText)) != '*')
410	sText = sText:+'*';
411
412	sText = sText:+' ';
413	int i;
414	for (i = length(sText); i < p_SyntaxIndent; i++)
415	sText = sText:+' ';
416
417	sText = sText:+sStr;
418
419	for (i = length(sText) + 1; i <= ikStyleWidth - p_col; i++)
420	sText = sText:+' ';
421	sText = sText:+"*\n";
422
423	_insert_text(sText);
424	}
425
426
427	/**
428	* Inserts the last line in a box.
429	*/
430	static void k_box_end()
431	{
432	_str sLeft, sRight;
433	int iColumn, i;
434	if (!k_commentconfig(sLeft, sRight, iColumn))
435	return;
436	if (iColumn >= 0)
437	while (p_col < iColumn)
438	_insert_text(" ");
439
440	_str sText = '';
441	if (k_line_comment())
442	sText = sLeft;
443	for (i = length(sText) + length(sRight); i <= ikStyleWidth - p_col; i++)
444	sText = sText:+'*';
445	sText = sText:+sRight:+"\n";
446
447	_insert_text(sText);
448	}
449
450
451
452	/*******************************************************************************
453	* FUNCTION AND CODE PARSERS *
454	*******************************************************************************/
455	/**
456	* Moves cursor to nearest function start.
457	* @returns 0 if ok.
458	* -1 on failure.
459	*/
460	static int k_func_goto_nearest_function()
461	{
462	boolean fFix = false; /* cursor at function fix. (last function) */
463	int cur_line = p_line;
464	int prev_line = -1;
465	int next_line = -1;
466	typeless org_pos;
467	_save_pos2(org_pos);
468
469	if (!next_proc(1))
470	{
471	next_line = p_line;
472	if (!prev_proc(1) && p_line == cur_line)
473	{
474	_restore_pos2(org_pos);
475	return 0;
476	}
477	_restore_pos2(org_pos);
478	_save_pos2(org_pos);
479	}
480	else
481	{
482	p_col++; /* fixes problem with single function files. */
483	fFix = true;
484	}
485
486	if (!prev_proc(1))
487	{
488	prev_line = p_line;
489	if (!next_proc(1) && p_line == cur_line)
490	{
491	_restore_pos2(org_pos);
492	return 0;
493	}
494	_restore_pos2(org_pos);
495	_save_pos2(org_pos);
496	}
497
498
499	if (prev_line != -1 && (next_line == -1 \|\| cur_line - prev_line <= next_line - cur_line))
500	{
501	if (fFix)
502	p_col++;
503	prev_proc(1);
504	return 0;
505	}
506
507	if (next_line != -1 && (prev_line == -1 \|\| cur_line - prev_line > next_line - cur_line))
508	{
509	next_proc();
510	return 0;
511	}
512
513	_restore_pos2(org_pos);
514	return -1;
515	}
516
517
518	/**
519	* Check if nearest function is a prototype.
520	* @returns True if function prototype.
521	* False if not function prototype.
522	*/
523	static boolean k_func_prototype()
524	{
525	/*
526	* Check if this is a real function implementation.
527	*/
528	typeless procpos;
529	_save_pos2(procpos);
530	if (!k_func_goto_nearest_function())
531	{
532	int proc_line = p_line;
533
534	if (!k_func_searchcode("{"))
535	{
536	prev_proc();
537	if (p_line != proc_line)
538	{
539	_restore_pos2(procpos);
540	return true;
541	}
542	}
543	}
544	_restore_pos2(procpos);
545
546	return false;
547	}
548
549
550	/**
551	* Gets the name fo the current function.
552	* @returns The current function name.
553	*/
554	static _str k_func_getfunction_name()
555	{
556	_str sFunctionName = current_proc();
557	if (!sFunctionName)
558	sFunctionName = "";
559	//say 'functionanme='sFunctionName;
560	return sFunctionName;
561	}
562
563
564	/**
565	* Goes to the neares function and gets its parameters.
566	* @remark Should be reimplemented to use tags (if someone can figure out how to query that stuff).
567	*/
568	static _str k_func_getparams()
569	{
570	typeless org_pos;
571	_save_pos2(org_pos);
572
573	/*
574	* Try use the tags first.
575	*/
576	_UpdateContext(true);
577	int context_id = tag_current_context();
578	if (context_id <= 0)
579	{
580	k_func_goto_nearest_function();
581	context_id = tag_current_context();
582	}
583	if (context_id > 0)
584	{
585	_str args = '';
586	_str type = '';
587	tag_get_detail2(VS_TAGDETAIL_context_args, context_id, args);
588	tag_get_detail2(VS_TAGDETAIL_context_type, context_id, type);
589	if (tag_tree_type_is_func(type))
590	return args
591	//caption = tag_tree_make_caption_fast(VS_TAGMATCH_context,context_id,true,true,false);
592	}
593
594	/*
595	* Go to nearest function.
596	*/
597	if ( !k_func_goto_nearest_function()
598	&& !k_func_searchcode("(") /* makes some assumptions. */
599	)
600	{
601	/*
602	* Get parameters.
603	*/
604	typeless posStart;
605	_save_pos2(posStart);
606	long offStart = _QROffset();
607	if (!find_matching_paren())
608	{
609	long offEnd = _QROffset();
610	_restore_pos2(posStart);
611	p_col++;
612	_str sParamsRaw = strip(get_text((int)(offEnd - offStart - 1)));
613
614
615	/*
616	* Remove new lines and double spaces within params.
617	*/
618	_str sParams = "";
619
620	int i;
621	_str chPrev;
622	for (i = 1, chPrev = ' '; i <= length(sParamsRaw); i++)
623	{
624	_str ch = substr(sParamsRaw, i, 1);
625
626	/*
627	* Do fixups.
628	*/
629	if (ch == " " && chPrev == " ")
630	continue;
631
632	if ((ch :== "\n") \|\| (ch :== "\r") \|\| (ch :== "\t"))
633	{
634	if (chPrev == ' ')
635	continue;
636	ch = ' ';
637	}
638
639	if (ch == ',' && chPrev == ' ')
640	{
641	sParams = substr(sParams, 1, length(sParams) - 1);
642	}
643
644	if (ch == '*')
645	{
646	if (chPrev != ' ')
647	sParams = sParams :+ ' * ';
648	else
649	sParams = sParams :+ '* ';
650	chPrev = ' ';
651	}
652	else
653	{
654	sParams = sParams :+ ch;
655	chPrev = ch;
656	}
657
658	} /* for */
659
660	sParams = strip(sParams);
661	if (sParams == 'void' \|\| sParams == 'VOID')
662	sParams = "";
663	_restore_pos2(org_pos);
664	return sParams;
665	}
666	else
667	message("find_matchin_paren failed");
668	}
669
670	_restore_pos2(org_pos);
671	return false;
672	}
673
674
675
676	/**
677	* Enumerates the parameters to the function.
678	* @param sParams Parameter string from k_func_getparams.
679	* @param iParam The index (0-based) of the parameter to get.
680	* @param sType Type. (output)
681	* @param sName Name. (output)
682	* @param sDefault Default value. (output)
683	* @remark Doesn't perhaps handle function pointers very well (I think)?
684	* @remark Should be reimplemented to use tags (if someone can figure out how to query that stuff).
685	*/
686	static int k_func_enumparams(_str sParams, int iParam, _str &sType, _str &sName, _str &sDefault)
687	{
688	int i;
689	int iParLevel;
690	int iCurParam;
691	int iStartParam;
692
693	sType = sName = sDefault = "";
694
695	/* no use working on empty string! */
696	if (length(sParams) == 0)
697	return -1;
698
699	/* find the parameter in question */
700	for (iStartParam = i = 1, iParLevel = iCurParam = 0; i <= length(sParams); i++)
701	{
702	_str ch = substr(sParams, i, 1);
703	if (ch == ',' && iParLevel == 0)
704	{
705	/* is it this parameter ? */
706	if (iParam == iCurParam)
707	break;
708
709	iCurParam++;
710	iStartParam = i + 1;
711	}
712	else if (ch == '(')
713	iParLevel++;
714	else if (ch == ')')
715	iParLevel--;
716	}
717
718	/* did we find the parameter? */
719	if (iParam == iCurParam)
720	{ /* (yeah, we did!) */
721	_str sArg = strip(substr(sParams, iStartParam, i - iStartParam));
722	/* remove M$ stuff */
723	sArg = stranslate(sArg, "", "IN", "E");
724	sArg = stranslate(sArg, "", "OUT", "E");
725	sArg = stranslate(sArg, "", "OPTIONAL", "E");
726	sArg = strip(sArg);
727
728	/* lazy approach, which doens't support function types */
729
730	if (pos('=', sParams) > 0) /* default */
731	{
732	sDefault = strip(substr(sParams, pos('=', sParams) + 1));
733	sArg = strip(substr(sArg, 1, pos('=', sParams) - 1));
734	}
735
736	for (i = length(sArg); i > 1; i--)
737	{
738	_str ch = substr(sArg, i, 1);
739	if ( !(ch >= 'a' && ch <= 'z')
740	&& !(ch >= 'A' && ch <= 'Z')
741	&& !(ch >= '0' && ch <= '9')
742	&& ch != '_' && ch != '$')
743	break;
744	}
745	if (sArg == "...")
746	i = 0;
747	sName = strip(substr(sArg, i + 1));
748	sType = strip(substr(sArg, 1, i));
749
750	return 0;
751	}
752
753	return -1;
754	}
755
756
757	/**
758	* Counts the parameters to the function.
759	* @param sParams Parameter string from k_func_getparams.
760	* @remark Should be reimplemented to use tags (if someone can figure out how to query that stuff).
761	*/
762	static int k_func_countparams(_str sParams)
763	{
764	int i;
765	int iParLevel;
766	int iCurParam;
767	_str sType = "", sName = "", sDefault = "";
768
769	/* check for 0 parameters */
770	if (length(sParams) == 0)
771	return 0;
772
773	/* find the parameter in question */
774	for (i = 1, iParLevel = iCurParam = 0; i <= length(sParams); i++)
775	{
776	_str ch = substr(sParams, i, 1);
777	if (ch == ',' && iParLevel == 0)
778	{
779	iCurParam++;
780	}
781	else if (ch == '(')
782	iParLevel++;
783	else if (ch == ')')
784	iParLevel--;
785	}
786
787	return iCurParam + 1;
788	}
789
790
791	/**
792	* Gets the return type.
793	*/
794	static _str k_func_getreturntype(boolean fPureType = false)
795	{
796	typeless org_pos;
797	_save_pos2(org_pos);
798
799	/*
800	* Go to nearest function.
801	*/
802	if (!k_func_goto_nearest_function())
803	{
804	/*
805	* Return type is from function start to function name...
806	*/
807	typeless posStart;
808	_save_pos2(posStart);
809	long offStart = _QROffset();
810
811	if (!k_func_searchcode("(")) /* makes some assumptions. */
812	{
813	prev_word();
814	long offEnd = _QROffset();
815	_restore_pos2(posStart);
816	_str sTypeRaw = strip(get_text((int)(offEnd - offStart)));
817
818	//say 'sTypeRaw='sTypeRaw;
819	/*
820	* Remove static, inline, _Optlink, stdcall, EXPENTRY etc.
821	*/
822	if (fPureType)
823	{
824	sTypeRaw = stranslate(sTypeRaw, "", "__static__", "I");
825	sTypeRaw = stranslate(sTypeRaw, "", "__static", "I");
826	sTypeRaw = stranslate(sTypeRaw, "", "static__", "I");
827	sTypeRaw = stranslate(sTypeRaw, "", "static", "I");
828	sTypeRaw = stranslate(sTypeRaw, "", "__inline__", "I");
829	sTypeRaw = stranslate(sTypeRaw, "", "__inline", "I");
830	sTypeRaw = stranslate(sTypeRaw, "", "inline__", "I");
831	sTypeRaw = stranslate(sTypeRaw, "", "inline", "I");
832	sTypeRaw = stranslate(sTypeRaw, "", "EXPENTRY", "I");
833	sTypeRaw = stranslate(sTypeRaw, "", "_Optlink", "I");
834	sTypeRaw = stranslate(sTypeRaw, "", "__stdcall", "I");
835	sTypeRaw = stranslate(sTypeRaw, "", "__cdecl", "I");
836	sTypeRaw = stranslate(sTypeRaw, "", "_cdecl", "I");
837	sTypeRaw = stranslate(sTypeRaw, "", "cdecl", "I");
838	sTypeRaw = stranslate(sTypeRaw, "", "__PASCAL", "I");
839	sTypeRaw = stranslate(sTypeRaw, "", "_PASCAL", "I");
840	sTypeRaw = stranslate(sTypeRaw, "", "PASCAL", "I");
841	sTypeRaw = stranslate(sTypeRaw, "", "__Far32__", "I");
842	sTypeRaw = stranslate(sTypeRaw, "", "__Far32", "I");
843	sTypeRaw = stranslate(sTypeRaw, "", "Far32__", "I");
844	sTypeRaw = stranslate(sTypeRaw, "", "_Far32_", "I");
845	sTypeRaw = stranslate(sTypeRaw, "", "_Far32", "I");
846	sTypeRaw = stranslate(sTypeRaw, "", "Far32_", "I");
847	sTypeRaw = stranslate(sTypeRaw, "", "Far32", "I");
848	sTypeRaw = stranslate(sTypeRaw, "", "__far", "I");
849	sTypeRaw = stranslate(sTypeRaw, "", "_far", "I");
850	sTypeRaw = stranslate(sTypeRaw, "", "far", "I");
851	sTypeRaw = stranslate(sTypeRaw, "", "__near", "I");
852	sTypeRaw = stranslate(sTypeRaw, "", "_near", "I");
853	sTypeRaw = stranslate(sTypeRaw, "", "near", "I");
854	sTypeRaw = stranslate(sTypeRaw, "", "__loadds__", "I");
855	sTypeRaw = stranslate(sTypeRaw, "", "__loadds", "I");
856	sTypeRaw = stranslate(sTypeRaw, "", "loadds__", "I");
857	sTypeRaw = stranslate(sTypeRaw, "", "_loadds_", "I");
858	sTypeRaw = stranslate(sTypeRaw, "", "_loadds", "I");
859	sTypeRaw = stranslate(sTypeRaw, "", "loadds_", "I");
860	sTypeRaw = stranslate(sTypeRaw, "", "loadds", "I");
861	sTypeRaw = stranslate(sTypeRaw, "", "__loades__", "I");
862	sTypeRaw = stranslate(sTypeRaw, "", "__loades", "I");
863	sTypeRaw = stranslate(sTypeRaw, "", "loades__", "I");
864	sTypeRaw = stranslate(sTypeRaw, "", "_loades_", "I");
865	sTypeRaw = stranslate(sTypeRaw, "", "_loades", "I");
866	sTypeRaw = stranslate(sTypeRaw, "", "loades_", "I");
867	sTypeRaw = stranslate(sTypeRaw, "", "loades", "I");
868	sTypeRaw = stranslate(sTypeRaw, "", "WIN32API", "I");
869	sTypeRaw = stranslate(sTypeRaw, "", "WINAPI", "I");
870	sTypeRaw = stranslate(sTypeRaw, "", "LDRCALL", "I");
871	sTypeRaw = stranslate(sTypeRaw, "", "KRNLCALL", "I");
872	sTypeRaw = stranslate(sTypeRaw, "", "__operator__", "I"); /* operator fix */
873	sTypeRaw = stranslate(sTypeRaw, "", "__operator", "I"); /* operator fix */
874	sTypeRaw = stranslate(sTypeRaw, "", "operator__", "I"); /* operator fix */
875	sTypeRaw = stranslate(sTypeRaw, "", "operator", "I"); /* operator fix */
876	sTypeRaw = stranslate(sTypeRaw, "", "IN", "E");
877	sTypeRaw = stranslate(sTypeRaw, "", "OUT", "E");
878	sTypeRaw = stranslate(sTypeRaw, "", "OPTIONAL", "E");
879	}
880
881	/*
882	* Remove new lines and double spaces within params.
883	*/
884	_str sType = "";
885
886	int i;
887	_str chPrev;
888	for (i = 1, chPrev = ' '; i <= length(sTypeRaw); i++)
889	{
890	_str ch = substr(sTypeRaw, i, 1);
891
892	/*
893	* Do fixups.
894	*/
895	if (ch == " " && chPrev == " ")
896	continue;
897
898	if ((ch :== "\n") \|\| (ch :== "\r") \|\| (ch :== "\t"))
899	{
900	if (chPrev == ' ')
901	continue;
902	ch = ' ';
903	}
904
905	if (ch == ',' && chPrev == ' ')
906	{
907	sType = substr(sType, 1, length(sType) - 1);
908	}
909
910	if (ch == '*')
911	{
912	if (chPrev != ' ')
913	sType = sType :+ ' * ';
914	else
915	sType = sType :+ '* ';
916	chPrev = ' ';
917	}
918	else
919	{
920	sType = sType :+ ch;
921	chPrev = ch;
922	}
923
924	} /* for */
925
926	sType = strip(sType);
927
928	_restore_pos2(org_pos);
929	return sType;
930	}
931	else
932	message('k_func_getreturntype: can''t find ''(''.');
933	}
934
935	_restore_pos2(org_pos);
936	return false;
937	}
938
939
940	/**
941	* Search for some piece of code.
942	*/
943	static int k_func_searchcode(_str sSearchString, _str sOptions = "E+")
944	{
945	int rc;
946	rc = search(sSearchString, sOptions);
947	while (!rc && !k_func_in_code())
948	{
949	p_col++;
950	rc = search(sSearchString, sOptions);
951	}
952	return rc;
953	}
954
955
956	/**
957	* Checks if cursor is in code or in comment.
958	* @return True if cursor in code.
959	*/
960	static boolean k_func_in_code()
961	{
962	typeless searchsave;
963	_save_pos2(searchsave);
964	boolean fRc = !_in_comment();
965	_restore_pos2(searchsave);
966	return fRc;
967	}
968
969
970	/*
971	* Gets the next piece of code.
972	*/
973	static _str k_func_get_next_code_text()
974	{
975	typeless searchsave;
976	_save_pos2(searchsave);
977	_str ch = k_func_get_next_code_text2();
978	_restore_pos2(searchsave);
979	return ch;
980	}
981
982
983	/**
984	* Checks if there is more code on the line.
985	*/
986	static boolean k_func_more_code_on_line()
987	{
988	boolean fRc;
989	int curline = p_line;
990	typeless searchsave;
991	_save_pos2(searchsave);
992	k_func_get_next_code_text2();
993	fRc = curline == p_line;
994	_restore_pos2(searchsave);
995
996	return fRc;
997	}
998
999
1000	/**
1001	* Gets the next piece of code.
1002	* Doesn't preserver cursor position.
1003	*/
1004	static _str k_func_get_next_code_text2()
1005	{
1006	_str ch;
1007	do
1008	{
1009	int curcol = ++p_col;
1010	end_line();
1011	if (p_col <= curcol)
1012	{
1013	p_line++;
1014	p_col = 1;
1015	}
1016	else
1017	p_col = curcol;
1018
1019	ch = get_text();
1020	//say ch ' ('_asc(ch)')';
1021	while (ch == "#") /* preprocessor stuff */
1022	{
1023	p_col = 1;
1024	p_line++;
1025	ch = get_text();
1026	//say ch ' ('_asc(ch)')';
1027	continue;
1028	}
1029	} while (ch :== ' ' \|\| ch :== "\t" \|\| ch :== "\n" \|\| ch :== "\r" \|\| !k_func_in_code());
1030
1031	return ch;
1032	}
1033
1034
1035
1036
1037	/*******************************************************************************
1038	* JAVA DOC STYLED WORKERS *
1039	*******************************************************************************/
1040
1041	/** starts a javadoc documentation box. */
1042	static void k_javadoc_box_start(_str sStr = '', boolean fDouble = true)
1043	{
1044	_str sLeft, sRight;
1045	int iColumn;
1046	if (!k_commentconfig(sLeft, sRight, iColumn))
1047	return;
1048	_begin_line();
1049	if (iColumn >= 0)
1050	while (p_col < iColumn)
1051	_insert_text(" ");
1052
1053	_str sText = sLeft;
1054	if (fDouble)
1055	sText = sLeft:+substr(sLeft, length(sLeft), 1);
1056	if (sStr != '')
1057	sText = sText:+' ':+sStr;
1058	sText = sText:+"\n";
1059
1060	_insert_text(sText);
1061	}
1062
1063	/** inserts a new line in a javadoc documentation box. */
1064	static void k_javadoc_box_line(_str sStr = '', int iPadd = 0, _str sStr2 = '', int iPadd2 = 0, _str sStr3 = '')
1065	{
1066	_str sLeft, sRight;
1067	int iColumn;
1068	if (!k_commentconfig(sLeft, sRight, iColumn))
1069	return;
1070	if (iColumn >= 0)
1071	while (p_col < iColumn)
1072	_insert_text(" ");
1073
1074	_str sText;
1075	if (k_line_comment())
1076	sText = sLeft;
1077	else
1078	{
1079	sText = sLeft;
1080	sText = ' ':+substr(sLeft, length(sLeft));
1081	}
1082
1083	if (sStr != '')
1084	sText = sText:+' ':+sStr;
1085	if (iPadd > 0)
1086	{
1087	int i;
1088	for (i = length(sText); i < iPadd; i++)
1089	sText = sText:+' ';
1090
1091	if (sStr2 != '')
1092	sText = sText:+sStr2;
1093
1094	if (iPadd2 > 0)
1095	{
1096	for (i = length(sText); i < iPadd2; i++)
1097	sText = sText:+' ';
1098
1099	if (sStr3 != '')
1100	sText = sText:+sStr3;
1101	}
1102	}
1103	sText = sText:+"\n";
1104
1105	_insert_text(sText);
1106	}
1107
1108	/** ends a javadoc documentation box. */
1109	static void k_javadoc_box_end()
1110	{
1111	_str sLeft, sRight;
1112	int iColumn;
1113	if (!k_commentconfig(sLeft, sRight, iColumn))
1114	return;
1115	if (iColumn >= 0)
1116	while (p_col < iColumn)
1117	_insert_text(" ");
1118
1119	_str sText;
1120	if (k_line_comment())
1121	sText = sLeft;
1122	else
1123	{
1124	sText = sRight;
1125	/if (substr(sText, 1, 1) != '')
1126	sText = '':+sText;/
1127	sText = ' ':+sText;
1128	}
1129	sText = sText:+"\n";
1130
1131	_insert_text(sText);
1132	}
1133
1134
1135	/**
1136	* Write a Javadoc styled classbox.
1137	*/
1138	void k_javadoc_classbox()
1139	{
1140	int iCursorLine;
1141	int iPadd = k_alignup(12, p_SyntaxIndent);
1142
1143	k_javadoc_box_start();
1144	iCursorLine = p_RLine;
1145	k_javadoc_box_line(' ');
1146
1147	if (fkStyleFullHeaders)
1148	{
1149	k_javadoc_box_line('@shortdesc', iPadd);
1150	k_javadoc_box_line('@dstruct', iPadd);
1151	k_javadoc_box_line('@version', iPadd);
1152	k_javadoc_box_line('@verdesc', iPadd);
1153	}
1154	k_javadoc_box_line('@author', iPadd, skUserName ' <' skUserEmail '>');
1155	k_javadoc_box_line('@approval', iPadd);
1156	k_javadoc_box_end();
1157
1158	up(p_RLine - iCursorLine);
1159	end_line();
1160	keyin(' ');
1161	}
1162
1163
1164	/**
1165	* Javadoc - functionbox(/header).
1166	*/
1167	void k_javadoc_funcbox()
1168	{
1169	int cArgs = 1;
1170	_str sArgs = "";
1171	int iCursorLine;
1172	int iPadd = k_alignup(11, p_SyntaxIndent);
1173	/* look for parameters */
1174	boolean fFoundFn = !k_func_goto_nearest_function();
1175	if (fFoundFn)
1176	{
1177	sArgs = k_func_getparams();
1178	cArgs = k_func_countparams(sArgs);
1179	}
1180
1181	k_javadoc_box_start();
1182	iCursorLine = p_RLine;
1183	k_javadoc_box_line(' ');
1184	if (file_eq(p_extension, 'asm'))
1185	k_javadoc_box_line('@cproto', iPadd);
1186	k_javadoc_box_line('@returns', iPadd);
1187	if (fFoundFn)
1188	{
1189	/*
1190	* Determin parameter description indent.
1191	*/
1192	int iPadd2 = 0;
1193	int i;
1194	for (i = 0; i < cArgs; i++)
1195	{
1196	_str sName, sType, sDefault;
1197	if (!k_func_enumparams(sArgs, i, sType, sName, sDefault)
1198	&& iPadd2 < length(sName))
1199	iPadd2 = length(sName);
1200	}
1201	iPadd2 = k_alignup((iPadd + iPadd2), p_SyntaxIndent);
1202
1203	/*
1204	* Insert parameter.
1205	*/
1206	for (i = 0; i < cArgs; i++)
1207	{
1208	_str sName, sType, sDefault;
1209	if (!k_func_enumparams(sArgs, i, sType, sName, sDefault))
1210	{
1211	_str sStr3 = '';
1212	if (sDefault != "")
1213	sStr3 = '(default='sDefault')';
1214	k_javadoc_box_line('@param', iPadd, sName, iPadd2, sStr3);
1215	}
1216	else
1217	k_javadoc_box_line('@param', iPadd);
1218	}
1219	}
1220	else
1221	k_javadoc_box_line('@param', iPadd);
1222
1223	if (file_eq(p_extension, 'asm'))
1224	k_javadoc_box_line('@uses', iPadd);
1225	if (fkStyleFullHeaders)
1226	{
1227	k_javadoc_box_line('@equiv', iPadd);
1228	k_javadoc_box_line('@time', iPadd);
1229	k_javadoc_box_line('@sketch', iPadd);
1230	k_javadoc_box_line('@status', iPadd);
1231	k_javadoc_box_line('@author', iPadd, skUserName ' <' skUserEmail '>');
1232	k_javadoc_box_line('@remark', iPadd);
1233	}
1234	k_javadoc_box_end();
1235
1236	up(p_RLine - iCursorLine);
1237	end_line();
1238	keyin(' ');
1239	}
1240
1241
1242	/**
1243	* Javadoc module header.
1244	*/
1245	void k_javadoc_moduleheader()
1246	{
1247	int iCursorLine;
1248
1249	_begin_line();
1250	k_insert_comment('$':+'I':+'d: $', KIC_CURSOR_AT_END, -1);
1251	_end_line();
1252	_insert_text("\n");
1253
1254	k_javadoc_box_start('@file');
1255	k_javadoc_box_line();
1256	iCursorLine = p_RLine;
1257	k_javadoc_box_line();
1258	k_javadoc_box_line();
1259
1260	if (skLicense == 'Confidential')
1261	{
1262	k_javadoc_box_line(skCompany ' confidential');
1263	k_javadoc_box_line();
1264	}
1265
1266	if (skCompany != '')
1267	{
1268	k_javadoc_box_line('Copyright (c) ' k_year() ' ' skCompany);
1269	k_javadoc_box_line();
1270	k_javadoc_box_line('Author: ' skUserName' <' skUserEmail '>');
1271	}
1272	else
1273	k_javadoc_box_line('Copyright (c) ' k_year() ' 'skUserName' <' skUserEmail '>');
1274	k_javadoc_box_line();
1275	switch (skLicense)
1276	{
1277	case 'Odin32':
1278	k_javadoc_box_line('Project Odin Software License can be found in LICENSE.TXT.');
1279	break;
1280
1281	case 'GPL':
1282	_str sProg = skProgram;
1283	k_javadoc_box_line();
1284	if (sProg == '')
1285	sProg = 'This program';
1286	else
1287	{
1288	k_javadoc_box_line('This file is part of ' sProg '.');
1289	k_javadoc_box_line();
1290	}
1291	k_javadoc_box_line(sProg ' is free software; you can redistribute it and/or modify');
1292	k_javadoc_box_line('it under the terms of the GNU General Public License as published by');
1293	k_javadoc_box_line('the Free Software Foundation; either version 2 of the License, or');
1294	k_javadoc_box_line('(at your option) any later version.');
1295	k_javadoc_box_line();
1296	k_javadoc_box_line(sProg ' is distributed in the hope that it will be useful,');
1297	k_javadoc_box_line('but WITHOUT ANY WARRANTY; without even the implied warranty of');
1298	k_javadoc_box_line('MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the');
1299	k_javadoc_box_line('GNU General Public License for more details.');
1300	k_javadoc_box_line();
1301	k_javadoc_box_line('You should have received a copy of the GNU General Public License');
1302	k_javadoc_box_line('along with ' sProg '; if not, write to the Free Software');
1303	k_javadoc_box_line('Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA');
1304	break;
1305
1306	case 'LGPL':
1307	sProg = skProgram;
1308	k_javadoc_box_line();
1309	if (sProg == '')
1310	sProg = 'This program';
1311	else
1312	{
1313	k_javadoc_box_line('This file is part of ' sProg '.');
1314	k_javadoc_box_line();
1315	}
1316	k_javadoc_box_line(sProg ' is free software; you can redistribute it and/or modify');
1317	k_javadoc_box_line('it under the terms of the GNU Lesser General Public License as published');
1318	k_javadoc_box_line('by the Free Software Foundation; either version 2 of the License, or');
1319	k_javadoc_box_line('(at your option) any later version.');
1320	k_javadoc_box_line();
1321	k_javadoc_box_line(sProg ' is distributed in the hope that it will be useful,');
1322	k_javadoc_box_line('but WITHOUT ANY WARRANTY; without even the implied warranty of');
1323	k_javadoc_box_line('MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the');
1324	k_javadoc_box_line('GNU Lesser General Public License for more details.');
1325	k_javadoc_box_line();
1326	k_javadoc_box_line('You should have received a copy of the GNU Lesser General Public License');
1327	k_javadoc_box_line('along with ' sProg '; if not, write to the Free Software');
1328	k_javadoc_box_line('Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA');
1329	break;
1330
1331	case 'Confidential':
1332	k_javadoc_box_line('All Rights Reserved');
1333	break;
1334
1335	default:
1336
1337	}
1338	k_javadoc_box_line();
1339	k_javadoc_box_end();
1340
1341	up(p_RLine - iCursorLine);
1342	end_line();
1343	keyin(' ');
1344	}
1345
1346
1347
1348
1349
1350
1351
1352	/*******************************************************************************
1353	* Keyboard Shortcuts *
1354	*******************************************************************************/
1355	/** Makes global box. */
1356	void k_box_globals()
1357	{
1358	k_box_start('Global');
1359	k_box_line('Global Variables');
1360	k_box_end();
1361	}
1362
1363	/** Makes header box. */
1364	void k_box_headers()
1365	{
1366	k_box_start("Header");
1367	k_box_line("Header Files");
1368	k_box_end();
1369	}
1370
1371	/** Makes internal function box. */
1372	void k_box_intfuncs()
1373	{
1374	k_box_start("IntFunc");
1375	k_box_line("Internal Functions");
1376	k_box_end();
1377	}
1378
1379	/** Makes def/const box. */
1380	void k_box_consts()
1381	{
1382	k_box_start("Const");
1383	k_box_line("Defined Constants And Macros");
1384	k_box_end();
1385	}
1386
1387	/** Structure box */
1388	void k_box_structs()
1389	{
1390	k_box_start("Struct");
1391	k_box_line("Structures and Typedefs");
1392	k_box_end();
1393	}
1394
1395	/** Makes exported symbols box. */
1396	void k_box_exported()
1397	{
1398	k_box_start('Exported');
1399	k_box_line('Exported Symbols');
1400	k_box_end();
1401	}
1402
1403
1404
1405	/** oneliner comment */
1406	void k_oneliner()
1407	{
1408	_str sLeft, sRight;
1409	int iColumn;
1410	if ( k_commentconfig(sLeft, sRight, iColumn)
1411	&& iColumn > 0)
1412	{ /* column based needs some tricky repositioning. */
1413	_end_line();
1414	if (p_col > iColumn)
1415	{
1416	_begin_line();
1417	_insert_text("\n\r");
1418	up();
1419	}
1420	}
1421	k_insert_comment("", KIC_CURSOR_AT_END, ikStyleOneliner);
1422	}
1423
1424	/** mark line as modified. */
1425	void k_mark_modified_line()
1426	{
1427	/* not supported for column based sources */
1428	_str sLeft, sRight;
1429	int iColumn;
1430	if ( !k_commentconfig(sLeft, sRight, iColumn)
1431	\|\| iColumn > 0)
1432	return;
1433	_str sStr;
1434	if (skChange != '')
1435	sStr = skChange ' (' skUserInitials ')';
1436	else
1437	sStr = skUserInitials;
1438	k_insert_comment(sStr, KIC_CURSOR_BEFORE, ikStyleModifyMarkColumn);
1439	down();
1440	}
1441
1442
1443	/**
1444	* Inserts a signature. Form: "//Initials ISO-date:"
1445	* @remark defeventtab
1446	*/
1447	void k_signature()
1448	{
1449	/* kso I5-10000 2002-09-10: */
1450	_str sSig;
1451	if (skChange != '')
1452	sSig = skUserInitials ' ' skChange ' ' k_date() ': ';
1453	else
1454	sSig = skUserInitials ' ' k_date() ': ';
1455	k_insert_comment(sSig, KIC_CURSOR_AT_END);
1456	}
1457
1458
1459	/*******************************************************************************
1460	* kLIB Logging *
1461	*******************************************************************************/
1462	/**
1463	* Hot-Key: Inserts a KLOGENTRY statement at start of nearest function.
1464	*/
1465	void klib_klogentry()
1466	{
1467	typeless org_pos;
1468	_save_pos2(org_pos);
1469
1470	/*
1471	* Go to nearest function.
1472	*/
1473	if (!k_func_goto_nearest_function())
1474	{
1475	/*
1476	* Get parameters.
1477	*/
1478	_str sParams = k_func_getparams();
1479	if (sParams)
1480	{
1481	_str sRetType = k_func_getreturntype(true);
1482	if (!sRetType \|\| sRetType == "")
1483	sRetType = "void"; /* paranoia! */
1484
1485	/*
1486	* Insert text.
1487	*/
1488	if (!k_func_searchcode("{"))
1489	{
1490	p_col++;
1491	int cArgs = k_func_countparams(sParams);
1492	if (cArgs > 0)
1493	{
1494	_str sArgs = "";
1495	int i;
1496	for (i = 0; i < cArgs; i++)
1497	{
1498	_str sType, sName, sDefault;
1499	if (!k_func_enumparams(sParams, i, sType, sName, sDefault))
1500	sArgs = sArgs', 'sName;
1501	}
1502
1503	_insert_text("\n KLOGENTRY"cArgs"(\""sRetType"\",\""sParams"\""sArgs");"); /* todo tab size.. or smart indent */
1504	}
1505	else
1506	_insert_text("\n KLOGENTRY0(\""sRetType"\");"); /* todo tab size.. or smart indent */
1507
1508	/*
1509	* Check if the next word is KLOGENTRY.
1510	*/
1511	next_word();
1512	if (def_next_word_style == 'E')
1513	prev_word();
1514	int iIgnorePos = 0;
1515	if (substr(cur_word(iIgnorePos), 1, 9) == "KLOGENTRY")
1516	delete_line();
1517
1518	}
1519	else
1520	message("didn't find {");
1521	}
1522	else
1523	message("k_func_getparams failed, sParams=" sParams);
1524	return;
1525	}
1526
1527	_restore_pos2(org_pos);
1528	}
1529
1530
1531	/**
1532	* Hot-Key: Inserts a KLOGEXIT statement at cursor location.
1533	*/
1534	void klib_klogexit()
1535	{
1536	typeless org_pos;
1537	_save_pos2(org_pos);
1538
1539	/*
1540	* Go to nearest function.
1541	*/
1542	if (!prev_proc())
1543	{
1544	/*
1545	* Get parameters.
1546	*/
1547	_str sType = k_func_getreturntype(true);
1548	_restore_pos2(org_pos);
1549	if (sType)
1550	{
1551	boolean fReturn = true; /* true if an return statment is following the KLOGEXIT statement. */
1552
1553	/*
1554	* Insert text.
1555	*/
1556	int cur_col = p_col;
1557	if (sType == 'void' \|\| sType == 'VOID')
1558	{ /* procedure */
1559	int iIgnorePos;
1560	fReturn = cur_word(iIgnorePos) == 'return';
1561	if (!fReturn)
1562	{
1563	while (p_col <= p_SyntaxIndent)
1564	keyin(" ");
1565	}
1566
1567	_insert_text("KLOGEXITVOID();\n");
1568
1569	if (fReturn)
1570	{
1571	int i;
1572	for (i = 1; i < cur_col; i++)
1573	_insert_text(" ");
1574	}
1575	search(")","E-");
1576	}
1577	else
1578	{ /* function */
1579	_insert_text("KLOGEXIT();\n");
1580	int i;
1581	for (i = 1; i < cur_col; i++)
1582	_insert_text(" ");
1583	search(")","E-");
1584
1585	/*
1586	* Insert value if possible.
1587	*/
1588	typeless valuepos;
1589	_save_pos2(valuepos);
1590	next_word();
1591	if (def_next_word_style == 'E')
1592	prev_word();
1593	int iIgnorePos;
1594	if (cur_word(iIgnorePos) == 'return')
1595	{
1596	p_col += length('return');
1597	typeless posStart;
1598	_save_pos2(posStart);
1599	long offStart = _QROffset();
1600	if (!k_func_searchcode(";", "E+"))
1601	{
1602	long offEnd = _QROffset();
1603	_restore_pos2(posStart);
1604	_str sValue = strip(get_text((int)(offEnd - offStart)));
1605	//say 'sValue = 'sValue;
1606	_restore_pos2(valuepos);
1607	_save_pos2(valuepos);
1608	_insert_text(sValue);
1609	}
1610	}
1611	_restore_pos2(valuepos);
1612	}
1613
1614	/*
1615	* Remove old KLOGEXIT statement on previous line if any.
1616	*/
1617	typeless valuepos;
1618	_save_pos2(valuepos);
1619	int newexitline = p_line;
1620	p_line--; p_col = 1;
1621	next_word();
1622	if (def_next_word_style == 'E')
1623	prev_word();
1624	int iIgnorePos;
1625	if (p_line == newexitline - 1 && substr(cur_word(iIgnorePos), 1, 8) == 'KLOGEXIT')
1626	delete_line();
1627	_restore_pos2(valuepos);
1628
1629	/*
1630	* Check for missing '{...}'.
1631	*/
1632	if (fReturn)
1633	{
1634	boolean fFound = false;
1635	_save_pos2(valuepos);
1636	p_col--; find_matching_paren(); p_col += 2;
1637	k_func_searchcode(';', 'E+'); /* places us at the ';' of the return. (hopefully) */
1638
1639	_str ch = k_func_get_next_code_text();
1640	if (ch != '}')
1641	{
1642	_restore_pos2(valuepos);
1643	_save_pos2(valuepos);
1644	p_col--; find_matching_paren(); p_col += 2;
1645	k_func_searchcode(';', 'E+'); /* places us at the ';' of the return. (hopefully) */
1646	p_col++;
1647	if (k_func_more_code_on_line())
1648	_insert_text(' }');
1649	else
1650	{
1651	typeless returnget;
1652	_save_pos2(returnget);
1653	k_func_searchcode("return", "E-");
1654	int return_col = p_col;
1655	_restore_pos2(returnget);
1656
1657	end_line();
1658	_insert_text("\n");
1659	while (p_col < return_col - p_SyntaxIndent)
1660	_insert_text(' ');
1661	_insert_text('}');
1662	}
1663
1664	_restore_pos2(valuepos);
1665	_save_pos2(valuepos);
1666	prev_word();
1667	p_col -= p_SyntaxIndent;
1668	int codecol = p_col;
1669	_insert_text("{\n");
1670	while (p_col < codecol)
1671	_insert_text(' ');
1672	}
1673
1674	_restore_pos2(valuepos);
1675	}
1676	}
1677	else
1678	message("k_func_getreturntype failed, sType=" sType);
1679	return;
1680	}
1681
1682	_restore_pos2(org_pos);
1683	}
1684
1685
1686	/**
1687	* Processes a file - ask user all the time.
1688	*/
1689	void klib_klog_file_ask()
1690	{
1691	klib_klog_file_int(true);
1692	}
1693
1694
1695	/**
1696	* Processes a file - no questions.
1697	*/
1698	void klib_klog_file_no_ask()
1699	{
1700	klib_klog_file_int(false);
1701	}
1702
1703
1704
1705	/**
1706	* Processes a file.
1707	*/
1708	static void klib_klog_file_int(boolean fAsk)
1709	{
1710	show_all();
1711	bottom();
1712	_refresh_scroll();
1713
1714	/* ask question so we can get to the right position somehow.. */
1715	if (fAsk && _message_box("kLog process this file?", "Visual SlickEdit", MB_YESNO \| MB_ICONQUESTION) != IDYES)
1716	return;
1717
1718	/*
1719	* Entries.
1720	*/
1721	while (!prev_proc())
1722	{
1723	//say 'entry main loop: ' k_func_getfunction_name();
1724
1725	/*
1726	* Skip prototypes.
1727	*/
1728	if (k_func_prototype())
1729	continue;
1730
1731	/*
1732	* Ask user.
1733	*/
1734	center_line();
1735	_refresh_scroll();
1736	_str sFunction = k_func_getfunction_name();
1737	rc = fAsk ? _message_box("Process this function ("sFunction")?", "Visual SlickEdit", MB_YESNOCANCEL \| MB_ICONQUESTION) : IDYES;
1738	if (rc == IDYES)
1739	{
1740	typeless procpos;
1741	_save_pos2(procpos);
1742	klib_klogentry();
1743	_restore_pos2(procpos);
1744	}
1745	else if (rc == IDNO)
1746	continue;
1747	else
1748	break;
1749	}
1750
1751	/*
1752	* Exits.
1753	*/
1754	bottom(); _refresh_scroll();
1755	boolean fUserCancel = false;
1756	while (!prev_proc() && !fUserCancel)
1757	{
1758	typeless procpos;
1759	_save_pos2(procpos);
1760	_str sCurFunction = k_func_getfunction_name();
1761	//say 'exit main loop: ' sCurFunction
1762
1763	/*
1764	* Skip prototypes.
1765	*/
1766	if (k_func_prototype())
1767	continue;
1768
1769	/*
1770	* Select procedure.
1771	*/
1772	while ( !k_func_searchcode("return", "WE<+")
1773	&& k_func_getfunction_name() == sCurFunction)
1774	{
1775	//say 'exit sub loop: ' p_line
1776	/*
1777	* Ask User.
1778	*/
1779	center_line();
1780	_refresh_scroll();
1781	_str sFunction = k_func_getfunction_name();
1782	rc = fAsk ? _message_box("Process this exit from "sFunction"?", "Visual SlickEdit", MB_YESNOCANCEL \| MB_ICONQUESTION) : IDYES;
1783	deselect();
1784	if (rc == IDYES)
1785	{
1786	typeless returnpos;
1787	_save_pos2(returnpos);
1788	klib_klogexit();
1789	_restore_pos2(returnpos);
1790	p_line++;
1791	}
1792	else if (rc != IDNO)
1793	{
1794	fUserCancel = true;
1795	break;
1796	}
1797	p_line++; /* just so we won't hit it again. */
1798	}
1799
1800	/*
1801	* If void function we'll have to check if there is and return; prior to the ending '}'.
1802	*/
1803	_restore_pos2(procpos);
1804	_save_pos2(procpos);
1805	_str sType = k_func_getreturntype(true);
1806	if (!fUserCancel && sType && (sType == 'void' \|\| sType == 'VOID'))
1807	{
1808	if ( !k_func_searchcode("{", "E+")
1809	&& !find_matching_paren())
1810	{
1811	typeless funcend;
1812	_save_pos2(funcend);
1813	prev_word();
1814	int iIgnorePos;
1815	if (cur_word(iIgnorePos) != "return")
1816	{
1817	/*
1818	* Ask User.
1819	*/
1820	_restore_pos2(funcend);
1821	center_line();
1822	_refresh_scroll();
1823	_str sFunction = k_func_getfunction_name();
1824	rc = fAsk ? _message_box("Process this exit from "sFunction"?", "Visual SlickEdit", MB_YESNOCANCEL \| MB_ICONQUESTION) : IDYES;
1825	deselect();
1826	if (rc == IDYES)
1827	{
1828	typeless returnpos;
1829	_save_pos2(returnpos);
1830	klib_klogexit();
1831	_restore_pos2(returnpos);
1832	}
1833	}
1834	}
1835	}
1836
1837	/*
1838	* Next proc.
1839	*/
1840	_restore_pos2(procpos);
1841	}
1842	}
1843
1844
1845	/*******************************************************************************
1846	* Odin32 backward compatibility *
1847	*******************************************************************************/
1848	_command void odin32_maketagfile()
1849	{
1850	/* We'll */
1851	if (file_match('-p 'maybe_quote_filename(strip_filename(_project_name,'e'):+TAG_FILE_EXT),1) != "")
1852	{
1853	_project_update_files_retag(false,false,false,false);
1854	/*
1855	RetagFilesInTagFile2(project_tag_file, orig_view_id, temp_view_id, rebuild_all, false,
1856	doRemove,false,true,true);*/
1857	}
1858	else
1859	_project_update_files_retag(true,false,false,true);
1860	}
1861
1862	_command void odin32_setcurrentdir()
1863	{
1864	//_ini_get_value(_project_name,"COMPILER","WORKINGDIR", workingdir);
1865	//cd(workingdir);
1866	/* Go the the directory containing the project filename */
1867	cd(strip_filename(_project_name, 'NE'));
1868	}
1869
1870
1871
1872
1873	/*******************************************************************************
1874	* Styles *
1875	*******************************************************************************/
1876	static _str StyleLanguages[] =
1877	{
1878	"c",
1879	"e",
1880	"java"
1881	};
1882
1883	struct StyleScheme
1884	{
1885	_str name;
1886	_str settings[];
1887	};
1888
1889	static StyleScheme StyleSchemes[] =
1890	{
1891	{
1892	"Opt2Ind4",
1893	{
1894	"orig_tabsize=4",
1895	"syntax_indent=4",
1896	"tabsize=4",
1897	"align_on_equal=1",
1898	"pad_condition_state=1",
1899	"indent_with_tabs=0",
1900	"nospace_before_paren=0",
1901	"indent_comments=1",
1902	"indent_case=1",
1903	"statement_comment_col=0",
1904	"disable_bestyle=0",
1905	"decl_comment_col=0",
1906	"bestyle_on_functions=0",
1907	"use_relative_indent=1",
1908	"nospace_before_brace=0",
1909	"indent_fl=1",
1910	"statement_comment_state=2",
1911	"indent_pp=1",
1912	"be_style=1",
1913	"parens_on_return=0",
1914	"eat_blank_lines=0",
1915	"brace_indent=0",
1916	"eat_pp_space=1",
1917	"align_on_parens=1",
1918	"continuation_indent=0",
1919	"cuddle_else=0",
1920	"nopad_condition=1",
1921	"pad_condition=0",
1922	"indent_col1_comments=0"
1923	}
1924	}
1925	,
1926	{
1927	"Opt2Ind3",
1928	{
1929	"orig_tabsize=3",
1930	"syntax_indent=3",
1931	"tabsize=3",
1932	"align_on_equal=1",
1933	"pad_condition_state=1",
1934	"indent_with_tabs=0",
1935	"nospace_before_paren=0",
1936	"indent_comments=1",
1937	"indent_case=1",
1938	"statement_comment_col=0",
1939	"disable_bestyle=0",
1940	"decl_comment_col=0",
1941	"bestyle_on_functions=0",
1942	"use_relative_indent=1",
1943	"nospace_before_brace=0",
1944	"indent_fl=1",
1945	"statement_comment_state=2",
1946	"indent_pp=1",
1947	"be_style=1",
1948	"parens_on_return=0",
1949	"eat_blank_lines=0",
1950	"brace_indent=0",
1951	"eat_pp_space=1",
1952	"align_on_parens=1",
1953	"continuation_indent=0",
1954	"cuddle_else=0",
1955	"nopad_condition=1",
1956	"pad_condition=0",
1957	"indent_col1_comments=0"
1958	}
1959	}
1960	,
1961	{
1962	"Opt2Ind8",
1963	{
1964	"orig_tabsize=8",
1965	"syntax_indent=8",
1966	"tabsize=8",
1967	"align_on_equal=1",
1968	"pad_condition_state=1",
1969	"indent_with_tabs=0",
1970	"nospace_before_paren=0",
1971	"indent_comments=1",
1972	"indent_case=1",
1973	"statement_comment_col=0",
1974	"disable_bestyle=0",
1975	"decl_comment_col=0",
1976	"bestyle_on_functions=0",
1977	"use_relative_indent=1",
1978	"nospace_before_brace=0",
1979	"indent_fl=1",
1980	"statement_comment_state=2",
1981	"indent_pp=1",
1982	"be_style=1",
1983	"parens_on_return=0",
1984	"eat_blank_lines=0",
1985	"brace_indent=0",
1986	"eat_pp_space=1",
1987	"align_on_parens=1",
1988	"continuation_indent=0",
1989	"cuddle_else=0",
1990	"nopad_condition=1",
1991	"pad_condition=0",
1992	"indent_col1_comments=0"
1993	}
1994	}
1995	,
1996	{
1997	"Opt3Ind4",
1998	{
1999	"orig_tabsize=4",
2000	"syntax_indent=4",
2001	"tabsize=4",
2002	"align_on_equal=1",
2003	"pad_condition_state=1",
2004	"indent_with_tabs=0",
2005	"nospace_before_paren=0",
2006	"indent_comments=1",
2007	"indent_case=1",
2008	"statement_comment_col=0",
2009	"disable_bestyle=0",
2010	"decl_comment_col=0",
2011	"bestyle_on_functions=0",
2012	"use_relative_indent=1",
2013	"nospace_before_brace=0",
2014	"indent_fl=1",
2015	"statement_comment_state=2",
2016	"indent_pp=1",
2017	"be_style=2",
2018	"parens_on_return=0",
2019	"eat_blank_lines=0",
2020	"brace_indent=0",
2021	"eat_pp_space=1",
2022	"align_on_parens=1",
2023	"continuation_indent=0",
2024	"cuddle_else=0",
2025	"nopad_condition=1",
2026	"pad_condition=0",
2027	"indent_col1_comments=0"
2028	}
2029	}
2030	,
2031	{
2032	"Opt3Ind3",
2033	{
2034	"orig_tabsize=3",
2035	"syntax_indent=3",
2036	"tabsize=3",
2037	"align_on_equal=1",
2038	"pad_condition_state=1",
2039	"indent_with_tabs=0",
2040	"nospace_before_paren=0",
2041	"indent_comments=1",
2042	"indent_case=1",
2043	"statement_comment_col=0",
2044	"disable_bestyle=0",
2045	"decl_comment_col=0",
2046	"bestyle_on_functions=0",
2047	"use_relative_indent=1",
2048	"nospace_before_brace=0",
2049	"indent_fl=1",
2050	"statement_comment_state=2",
2051	"indent_pp=1",
2052	"be_style=2",
2053	"parens_on_return=0",
2054	"eat_blank_lines=0",
2055	"brace_indent=0",
2056	"eat_pp_space=1",
2057	"align_on_parens=1",
2058	"continuation_indent=0",
2059	"cuddle_else=0",
2060	"nopad_condition=1",
2061	"pad_condition=0",
2062	"indent_col1_comments=0"
2063	}
2064	}
2065	};
2066
2067
2068	static void k_styles_create()
2069	{
2070	/*
2071	* Find user format ini file.
2072	*/
2073	_str userini = maybe_quote_filename(_config_path():+'uformat.ini');
2074	if (file_match('-p 'userini, 1) == '')
2075	{
2076	_str ini = maybe_quote_filename(slick_path_search('uformat.ini'));
2077	if (ini != '') userini = ini;
2078	}
2079
2080
2081	/*
2082	* Remove any old schemes.
2083	*/
2084	int i,j,tv;
2085	for (i = 0; i < StyleSchemes._length(); i++)
2086	for (j = 0; j < StyleLanguages._length(); j++)
2087	{
2088	_str sectionname = StyleLanguages[j]:+'-scheme-':+StyleSchemes[i].name;
2089	if (!_ini_get_section(userini, sectionname, tv))
2090	{
2091	_ini_delete_section(userini, sectionname);
2092	_delete_temp_view(tv);
2093	//message("delete old scheme");
2094	}
2095	}
2096
2097	/*
2098	* Create the new schemes.
2099	*/
2100	for (i = 0; i < StyleSchemes._length(); i++)
2101	{
2102	for (j = 0; j < StyleLanguages._length(); j++)
2103	{
2104	_str sectionname = StyleLanguages[j]:+'-scheme-':+StyleSchemes[i].name;
2105	int temp_view_id, k;
2106	_str orig_view_id = _create_temp_view(temp_view_id);
2107	activate_view(temp_view_id);
2108	for (k = 0; k < StyleSchemes[i].settings._length(); k++)
2109	insert_line(StyleSchemes[i].settings[k]);
2110
2111	/* Insert the scheme section. */
2112	_ini_replace_section(userini, sectionname, temp_view_id);
2113	//message(userini)
2114	//bogus id - activate_view(orig_view_id);
2115	}
2116	}
2117
2118	//last_scheme = last scheme name!!!
2119	}
2120
2121
2122	/*
2123	* Sets the last used beutify scheme.
2124	*/
2125	static k_styles_set(_str scheme)
2126	{
2127
2128	/*
2129	* Find user format ini file.
2130	*/
2131	_str userini = maybe_quote_filename(_config_path():+'uformat.ini');
2132	if (file_match('-p 'userini, 1) == '')
2133	{
2134	_str ini = maybe_quote_filename(slick_path_search('uformat.ini'));
2135	if (ini != '') userini = ini;
2136	}
2137
2138	/*
2139	* Set the scheme for each language.
2140	*/
2141	int j;
2142	for (j = 0; j < StyleLanguages._length(); j++)
2143	{
2144	_ini_set_value(userini,
2145	StyleLanguages[j]:+'-scheme-Default',
2146	'last_scheme',
2147	scheme);
2148	}
2149	}
2150
2151
2152	static _str defoptions[] =
2153	{
2154	"def-options-sas",
2155	"def-options-js",
2156	"def-options-bat",
2157	"def-options-c",
2158	"def-options-pas",
2159	"def-options-e",
2160	"def-options-java",
2161	"def-options-bourneshell",
2162	"def-options-csh",
2163	"def-options-vlx",
2164	"def-options-plsql",
2165	"def-options-sqlserver",
2166	"def-options-cmd"
2167	};
2168
2169	static _str defsetups[] =
2170	{
2171	"def-setup-sas",
2172	"def-setup-js",
2173	"def-setup-bat",
2174	"def-setup-fundamental",
2175	"def-setup-process",
2176	"def-setup-c",
2177	"def-setup-pas",
2178	"def-setup-e",
2179	"def-setup-asm",
2180	"def-setup-java",
2181	"def-setup-html",
2182	"def-setup-bourneshell",
2183	"def-setup-csh",
2184	"def-setup-vlx",
2185	"def-setup-fileman",
2186	"def-setup-plsql",
2187	"def-setup-sqlserver",
2188	"def-setup-s",
2189	"def-setup-cmd"
2190	};
2191
2192	static _str defsetupstab8[] =
2193	{
2194	"def-setup-c"
2195	};
2196
2197
2198	static void k_styles_setindent(int indent, int iBraceStyle, boolean iWithTabs = false)
2199	{
2200	if (iBraceStyle < 1 \|\| iBraceStyle > 3)
2201	{
2202	message('k_styles_setindent: iBraceStyle is bad (=' :+ iBraceStyle :+ ')');
2203	iBraceStyle = 2;
2204	}
2205
2206	/*
2207	* def-options for extentions known to have that info.
2208	*/
2209	int i;
2210	for (i = 0; i < defoptions._length(); i++)
2211	{
2212	int idx = find_index(defoptions[i], MISC_TYPE);
2213	if (!idx)
2214	continue;
2215
2216	parse name_info(idx) with syntax_indent o2 o3 o4 flags indent_fl o7 indent_case rest;
2217
2218	/* Begin/end style */
2219	flags = flags & ~(1\|2);
2220	flags = flags \| (iBraceStyle - 1); /* Set style (0-based) */
2221	flags = flags & ~(16); /* no scape before parent.*/
2222	indent_fl = 1; /* Indent first level */
2223	indent_case = 1; /* Indent case from switch */
2224
2225	sNewOptions = indent' 'o2' 'o3' 'o4' 'flags' 'indent_fl' 'o7' 'indent_case' 'rest;
2226	set_name_info(idx, sNewOptions);
2227	_config_modify \|= CFGMODIFY_DEFDATA;
2228	}
2229
2230	/*
2231	* def-setup for known extentions.
2232	*/
2233	for (i = 0; i < defsetups._length(); i++)
2234	{
2235	idx = find_index(defsetups[i], MISC_TYPE);
2236	if (!idx)
2237	continue;
2238	sExt = substr(defsetups[i], length('def-setup-') + 1);
2239	sSetup = name_info(idx);
2240
2241	/*
2242	parse sSetup with 'MN=' mode_name ','\
2243	'TABS=' tabs ',' 'MA=' margins ',' 'KEYTAB=' keytab_name ','\
2244	'WW='word_wrap_style ',' 'IWT='indent_with_tabs ','\
2245	'ST='show_tabs ',' 'IN='indent_style ','\
2246	'WC='word_chars',' 'LN='lexer_name',' 'CF='color_flags','\
2247	'LNL='line_numbers_len','rest;
2248
2249	indent_with_tabs = 0; /* Indent with tabs */
2250
2251	/* Make sure all the values are legal */
2252	_ext_init_values(ext, lexer_name, color_flags);
2253	if (!isinteger(line_numbers_len)) line_numbers_len = 0;
2254	if (word_chars == '') word_chars = 'A-Za-z0-9_$';
2255	if (word_wrap_style == '') word_wrap_style = 3;
2256	if (show_tabs == '') show_tabs = 0;
2257	if (indent_style == '') indent_style = INDENT_SMART;
2258
2259	/* Set new indent */
2260	tabs = '+'indent;
2261	*/
2262
2263	sNewSetup = sSetup;
2264
2265	/* Set new indent */
2266	if (pos('TABS=', sNewSetup) > 0)
2267	{
2268	/*
2269	* If either in defoptions or defsetupstab8 use default tab of 8
2270	* For those supporting separate syntax indent using the normal tabsize
2271	* helps us a lot when reading it...
2272	*/
2273	fTab8 = false;
2274	for (j = 0; !fTab8 && j < defsetupstab8._length(); j++)
2275	if (substr(defsetupstab8[j], lastpos('-', defsetupstab8[j]) + 1) == sExt)
2276	fTab8 = true;
2277	for (j = 0; !fTab8 && j < defoptions._length(); j++)
2278	if (substr(defoptions[j], lastpos('-', defoptions[j]) + 1) == sExt)
2279	fTab8 = true;
2280
2281	parse sNewSetup with sPre 'TABS=' sValue ',' sPost;
2282	if (fTab8)
2283	sNewSetup = sPre 'TABS=+8,' sPost
2284	else
2285	sNewSetup = sPre 'TABS=+' indent ',' sPost
2286	}
2287
2288	/* Set indent with tabs flag. */
2289	if (pos('IWT=', sNewSetup) > 0)
2290	{
2291	parse sNewSetup with sPre 'IWT=' sValue ',' sPost;
2292	if (iWithTabs)
2293	sNewSetup = sPre 'IWT=1,' sPost
2294	else
2295	sNewSetup = sPre 'IWT=0,' sPost
2296	}
2297
2298	/* Do the real changes */
2299	set_name_info(idx, sNewSetup);
2300	_config_modify \|= CFGMODIFY_DEFDATA;
2301	_update_buffers(sExt);
2302	}
2303	}
2304
2305
2306	/**
2307	* Takes necessary steps to convert a string to integer.
2308	*/
2309	static int k_style_emacs_var_integer(_str sVal)
2310	{
2311	int i = (int)sVal;
2312	//say 'k_style_emacs_var_integer('sVal') -> 'i;
2313	return (int)sVal;
2314	}
2315
2316
2317	/**
2318	* Sets a Emacs style variable.
2319	*/
2320	static int k_style_emacs_var(_str sVar, _str sVal)
2321	{
2322	/* check input. */
2323	if (sVar == '' \|\| sVal == '')
2324	return -1;
2325	//say 'k_style_emacs_var: 'sVar'='sVal;
2326	//say 'p_extension='p_extension' p_mode_name='p_mode_name;
2327
2328
2329	/* prepare style changes (C) */
2330	_str sStyle = name_info(_edit_window().p_index);
2331	typeless iIndentAmount, fExpansion, iMinAbbrivation, fIndentAfterOpenParen, iBeginEndStyle, fIndent1stLevel, iMainStyle, iSwitchStyle, sRest;
2332	parse sStyle with iIndentAmount fExpansion iMinAbbrivation fIndentAfterOpenParen iBeginEndStyle fIndent1stLevel iMainStyle iSwitchStyle sRest;
2333
2334	/* process the variable. */
2335	switch (sVar)
2336	{
2337	case 'mode':
2338	case 'Mode':
2339	{
2340	switch (sVal)
2341	{
2342	case 'c':
2343	case 'C':
2344	case 'c++':
2345	case 'C++':
2346	case 'cpp':
2347	case 'CPP':
2348	case 'cxx':
2349	case 'CXX':
2350	p_extension = 'c';
2351	p_mode_name = 'C';
2352	break;
2353
2354	case 'e':
2355	case 'slick-c':
2356	case 'Slick-c':
2357	case 'Slick-C':
2358	p_extension = 'e';
2359	p_mode_name = 'Slick-C';
2360	break;
2361
2362	default:
2363	message('emacs mode "'sVal'" is not known to us');
2364	return -3;
2365	}
2366	break;
2367	}
2368
2369	case 'c-file-style':
2370	case 'c-indentation-style':
2371	switch (sVal)
2372	{
2373	case 'BSD':
2374	case 'bsd':
2375	iBeginEndStyle = 1 \| (iBeginEndStyle & ~3);
2376	p_indent_with_tabs = true;
2377	iIndentAmount = 8;
2378	p_SyntaxIndent = 8;
2379	p_tabs = "+8";
2380	//say 'bsd';
2381	break;
2382
2383	case 'k&r':
2384	case 'K&R':
2385	iBeginEndStyle = 0 \| (iBeginEndStyle & ~3);
2386	p_indent_with_tabs = false;
2387	iIndentAmount = 4;
2388	p_SyntaxIndent = 4;
2389	p_tabs = "+4";
2390	//say 'k&r';
2391	break;
2392
2393	case 'linux-c':
2394	iBeginEndStyle = 0 \| (iBeginEndStyle & ~3);
2395	p_indent_with_tabs = true;
2396	iIndentAmount = 4;
2397	p_SyntaxIndent = 4;
2398	p_tabs = "+4";
2399	//say 'linux-c';
2400	break;
2401
2402	case 'yet-to-be-found':
2403	iBeginEndStyle = 2 \| (iBeginEndStyle & ~3);
2404	p_indent_with_tabs = false;
2405	iIndentAmount = 4;
2406	p_SyntaxIndent = 4;
2407	p_tabs = "+4";
2408	//say 'todo';
2409	break;
2410
2411	default:
2412	message('emacs "'sVar'" value "'sVal'" is not known to us.');
2413	return -3;
2414	}
2415	break;
2416
2417	case 'indent-tabs-mode':
2418	p_indent_with_tabs = sVal == 't';
2419	break;
2420
2421	case 'c-indent-level':
2422	case 'c-basic-offset':
2423	{
2424	int i = k_style_emacs_var_integer(sVal);
2425	if (i > 0 && i <= 16)
2426	{
2427	iIndentAmount = i;
2428	p_SyntaxIndent = i;
2429	}
2430	else
2431	{
2432	message('emacs "'sVar'" value "'sVal'" is out of range.');
2433	return -4;
2434	}
2435	break;
2436	}
2437
2438	case 'tab-width':
2439	{
2440	int i = k_style_emacs_var_integer(sVal);
2441	if (i > 0 && i <= 16)
2442	p_tabs = '+'i;
2443	else
2444	{
2445	message('emacs "'sVar'" value "'sVal'" is out of range.');
2446	return -4;
2447	}
2448	break;
2449	}
2450
2451	default:
2452	message('emacs variable "'sVar'" (value "'sVal'") is unknown to us.');
2453	return -5;
2454	}
2455
2456	/* change the style? (C only) */
2457	if (p_mode_name == 'C')
2458	{
2459	_str sNewStyle = iIndentAmount' 'fExpansion' 'iMinAbbrivation' 'fIndentAfterOpenParen' 'iBeginEndStyle' 'fIndent1stLevel' 'iMainStyle' 'iSwitchStyle' 'sRest;
2460	if (sNewStyle != sStyle)
2461	{
2462	//say ' sStyle='sStyle;
2463	//say 'sNewStyle='sNewStyle;
2464	set_name_info(_edit_window().p_index, sNewStyle);
2465	}
2466	}
2467
2468	return 0;
2469	}
2470
2471
2472	/**
2473	* Parses a string with emacs variables.
2474	*
2475	* The variables are separated by new line. Junk at
2476	* the start and end of the line is ignored.
2477	*/
2478	static int k_style_emac_vars(_str sVars)
2479	{
2480	/* process them line by line */
2481	int iLine = 0;
2482	while (sVars != '' && iLine++ < 20)
2483	{
2484	int iNext, iEnd;
2485	iEnd = iNext = pos("\n", sVars);
2486	if (iEnd <= 0)
2487	iEnd = iNext = length(sVars);
2488	else
2489	iEnd--;
2490	iNext++;
2491
2492	sLine = strip(substr(sVars, 1, iEnd), 'B', " \t\n\r");
2493	sVars = strip(substr(sVars, iNext), 'L', " \t\n\r");
2494	//say 'iLine='iLine' sVars='sVars'<eol>';
2495	//say 'iLine='iLine' sLine='sLine'<eol>';
2496	if (sLine != '')
2497	{
2498	rc = pos('[^a-zA-Z0-9-_]([a-zA-Z0-9-_]+)[ \t]:[ \t]([^ \t])', sLine, 1, 'U');
2499	//say '0={'pos('S0')','pos('0')',"'substr(sLine,pos('S0'),pos('0'))'"'
2500	//say '1={'pos('S1')','pos('1')',"'substr(sLine,pos('S1'),pos('1'))'"'
2501	//say '2={'pos('S2')','pos('2')',"'substr(sLine,pos('S2'),pos('2'))'"'
2502	//say '3={'pos('S3')','pos('3')',"'substr(sLine,pos('S3'),pos('3'))'"'
2503	//say '4={'pos('S4')','pos('4')',"'substr(sLine,pos('S4'),pos('4'))'"'
2504	if (rc > 0)
2505	k_style_emacs_var(substr(sLine,pos('S1'),pos('1')),
2506	substr(sLine,pos('S2'),pos('2')));
2507	}
2508	}
2509	return 0;
2510	}
2511
2512	/**
2513	* Searches for Emacs style specification for the current document.
2514	*/
2515	void k_style_load()
2516	{
2517	/* save the position before we start looking around the file. */
2518	typeless saved_pos;
2519	_save_pos2(saved_pos);
2520
2521	int rc;
2522
2523	/* Check first line. */
2524	top_of_buffer();
2525	_str sLine;
2526	get_line(sLine);
2527	strip(sLine);
2528	if (pos('--[ \t]+(.:.)[ \t]+--', sLine, 1, 'U'))
2529	{
2530	_str sVars;
2531	sVars = substr(sLine, pos('S1'), pos('1'));
2532	sVars = translate(sVars, "\n", ";");
2533	k_style_emac_vars(sVars);
2534	}
2535
2536	/* Look for the "Local Variables:" stuff from the end of the file. */
2537	bottom_of_buffer();
2538	rc = search('Local Variables:[ \t]\n\om(.)\ol\n.End:.\n', '-EU');
2539	if (!rc)
2540	{
2541	/* copy the variables out to a buffer. */
2542	_str sVars;
2543	sVars = get_text(match_length("1"), match_length("S1"));
2544	k_style_emac_vars(sVars);
2545	}
2546
2547	_restore_pos2(saved_pos);
2548	}
2549
2550
2551
2552	/*******************************************************************************
2553	* Menu and Menu commands *
2554	*******************************************************************************/
2555	static int iTimer = 0;
2556	static int mhkDev = 0;
2557	static int mhCode = 0;
2558	static int mhDoc = 0;
2559	static int mhLic = 0;
2560	static int mhPre = 0;
2561
2562	/*
2563	* Creates the kDev menu.
2564	*/
2565	static k_menu_create()
2566	{
2567	if (arg(1) == 'timer')
2568	_kill_timer(iTimer);
2569	menu_handle = _mdi.p_menu_handle;
2570	menu_index = find_index(_cur_mdi_menu,oi2type(OI_MENU));
2571
2572	/*
2573	* Remove any old menu.
2574	*/
2575	mhDelete = iPos = 0;
2576	index = _menu_find(menu_handle, "kDev", mhDelete, iPos, 'C');
2577	//message("index="index " mhDelete="mhDelete " iPos="iPos);
2578	if (index == 0)
2579	_menu_delete(mhDelete, iPos);
2580
2581
2582	/*
2583	* Insert the "kDev" menu.
2584	*/
2585	mhkDev = _menu_insert(menu_handle, 9, MF_SUBMENU, "&kDev", "", "kDev");
2586	mhCode=_menu_insert(mhkDev, -1, MF_ENABLED \| MF_SUBMENU, "Coding &Style", "", "coding");
2587	rc = _menu_insert(mhCode, -1, MF_ENABLED \| MF_UNCHECKED, "Braces 2, Syntax Indent 4 (knut)", "k_menu_style Opt2Ind4", "Opt2Ind4");
2588	rc = _menu_insert(mhCode, -1, MF_ENABLED \| MF_UNCHECKED, "Braces 2, Syntax Indent 3", "k_menu_style Opt2Ind3", "Opt2Ind3");
2589	rc = _menu_insert(mhCode, -1, MF_ENABLED \| MF_UNCHECKED, "Braces 2, Syntax Indent 8", "k_menu_style Opt2Ind8", "Opt2Ind8");
2590	rc = _menu_insert(mhCode, -1, MF_ENABLED \| MF_UNCHECKED, "Braces 3, Syntax Indent 4 (giws)", "k_menu_style Opt3Ind4", "Opt3Ind4");
2591	rc = _menu_insert(mhCode, -1, MF_ENABLED \| MF_UNCHECKED, "Braces 3, Syntax Indent 3 (giws)", "k_menu_style Opt3Ind3", "Opt3Ind3");
2592
2593	mhDoc= _menu_insert(mhkDev, -1, MF_ENABLED \| MF_SUBMENU, "&Documentation", "", "doc");
2594	mhDSJ= _menu_insert(mhDoc, -1, MF_ENABLED \| MF_UNCHECKED, "&Javadoc Style", "k_menu_doc_style javadoc", "javadoc");
2595	mhDSL= _menu_insert(mhDoc, -1, MF_GRAYED \| MF_UNCHECKED, "&Linux Kernel Style", "k_menu_doc_style linux", "linux");
2596
2597	mhLic= _menu_insert(mhkDev, -1, MF_ENABLED \| MF_SUBMENU, "&License", "", "License");
2598	rc = _menu_insert(mhLic, -1, MF_ENABLED \| MF_UNCHECKED, "&Odin32", "k_menu_license Odin32", "Odin32");
2599	rc = _menu_insert(mhLic, -1, MF_ENABLED \| MF_UNCHECKED, "&GPL", "k_menu_license GPL", "GPL");
2600	rc = _menu_insert(mhLic, -1, MF_ENABLED \| MF_UNCHECKED, "&LGPL", "k_menu_license LGPL", "LGPL");
2601	rc = _menu_insert(mhLic, -1, MF_ENABLED \| MF_UNCHECKED, "&Confidential", "k_menu_license Confidential", "Confidential");
2602
2603	rc = _menu_insert(mhkDev, -1, MF_ENABLED, "-", "", "dash vars");
2604	rc = _menu_insert(mhkDev, -1, MF_ENABLED, skChange == '' ? '&Change...' : '&Change (' skChange ')...', "k_menu_change", "");
2605	rc = _menu_insert(mhkDev, -1, MF_ENABLED, skProgram == '' ? '&Program...' : '&Program (' skProgram ')...', "k_menu_program", "");
2606	rc = _menu_insert(mhkDev, -1, MF_ENABLED, skCompany == '' ? 'Co&mpany...' : 'Co&mpany (' skCompany ')...', "k_menu_company", "");
2607	rc = _menu_insert(mhkDev, -1, MF_ENABLED, '&User Name (' skUserName ')...', "k_menu_user_name", "username");
2608	rc = _menu_insert(mhkDev, -1, MF_ENABLED, 'User &e-mail (' skUserEmail ')...', "k_menu_user_email", "useremail");
2609	rc = _menu_insert(mhkDev, -1, MF_ENABLED, 'User &Initials (' skUserInitials ')...', "k_menu_user_initials", "userinitials");
2610	rc = _menu_insert(mhkDev, -1, MF_ENABLED, "-", "", "dash preset");
2611	mhPre= _menu_insert(mhkDev, -1, MF_SUBMENU, "P&resets", "", "");
2612	rc = _menu_insert(mhPre, -1, MF_ENABLED, "Odin32", "k_menu_preset javadoc, Odin32, Opt2Ind4,,Odin32", "odin32");
2613	rc = _menu_insert(mhPre, -1, MF_ENABLED, "Linux Kernel","k_menu_preset linux, GPL, Opt1Ind4,,Linux", "linux");
2614	rc = _menu_insert(mhPre, -1, MF_ENABLED, "The Bird", "k_menu_preset javadoc, GPL, Opt2Ind4", "bird");
2615	rc = _menu_insert(mhPre, -1, MF_ENABLED, "Win32k", "k_menu_preset javadoc, GPL, Opt2Ind4,, Win32k", "Win32k");
2616	rc = _menu_insert(mhPre, -1, MF_ENABLED, "kKrnlLib", "k_menu_preset javadoc, GPL, Opt2Ind4,, kKrnlLib", "kKrnlLib");
2617	rc = _menu_insert(mhPre, -1, MF_ENABLED, "kLib", "k_menu_preset javadoc, GPL, Opt2Ind4,, kLib", "kLib");
2618	rc = _menu_insert(mhPre, -1, MF_ENABLED, "kBuild", "k_menu_preset javadoc, GPL, Opt2Ind4,, kBuild", "kBuild");
2619	rc = _menu_insert(mhPre, -1, MF_ENABLED, "Innotek", "k_menu_preset javadoc, Confidential, Opt2Ind4, InnoTek Systemberatung GmbH", "Innotek");
2620	rc = _menu_insert(mhPre, -1, MF_ENABLED, "VPC/2", "k_menu_preset javadoc, Confidential, Opt2Ind4, InnoTek Systemberatung GmbH, VPC/2", "VPC2");
2621
2622	k_menu_doc_style();
2623	k_menu_license();
2624	k_menu_style();
2625	}
2626
2627
2628	/**
2629	* Change change Id.
2630	*/
2631	_command k_menu_change()
2632	{
2633	sRc = show("-modal k_form_simple_input", "Change ID", skChange);
2634	if (sRc != "\r")
2635	{
2636	skChange = sRc;
2637	k_menu_create();
2638	}
2639	}
2640
2641
2642	/**
2643	* Change program name.
2644	*/
2645	_command k_menu_program()
2646	{
2647	sRc = show("-modal k_form_simple_input", "Program", skProgram);
2648	if (sRc != "\r")
2649	{
2650	skProgram = sRc;
2651	k_menu_create();
2652	}
2653	}
2654
2655
2656	/**
2657	* Change company.
2658	*/
2659	_command k_menu_company()
2660	{
2661	if (skCompany == '')
2662	sRc = show("-modal k_form_simple_input", "Company", 'InnoTek Systemberatung GmbH');
2663	else
2664	sRc = show("-modal k_form_simple_input", "Company", skCompany);
2665	if (sRc != "\r")
2666	{
2667	skCompany = sRc;
2668	k_menu_create();
2669	}
2670	}
2671
2672
2673	/**
2674	* Change user name.
2675	*/
2676	_command k_menu_user_name()
2677	{
2678	sRc = show("-modal k_form_simple_input", "User Name", skUserName);
2679	if (sRc != "\r" && sRc != '')
2680	{
2681	skUserName = sRc;
2682	k_menu_create();
2683	}
2684	}
2685
2686
2687	/**
2688	* Change user email.
2689	*/
2690	_command k_menu_user_email()
2691	{
2692	sRc = show("-modal k_form_simple_input", "User e-mail", skUserEmail);
2693	if (sRc != "\r" && sRc != '')
2694	{
2695	skUserEmail = sRc;
2696	k_menu_create();
2697	}
2698	}
2699
2700
2701	/**
2702	* Change user initials.
2703	*/
2704	_command k_menu_user_initials()
2705	{
2706	sRc = show("-modal k_form_simple_input", "User e-mail", skUserInitials);
2707	if (sRc != "\r" && sRc != '')
2708	{
2709	skUserInitials = sRc;
2710	k_menu_create();
2711	}
2712	}
2713
2714
2715
2716	/**
2717	* Checks the correct menu item.
2718	*/
2719	_command void k_menu_doc_style(_str sNewDocStyle = '')
2720	{
2721	//say 'sNewDocStyle='sNewDocStyle;
2722	if (sNewDocStyle != '')
2723	skDocStyle = sNewDocStyle
2724	_menu_set_state(mhDoc, "javadoc", MF_UNCHECKED);
2725	_menu_set_state(mhDoc, "linux", MF_UNCHECKED \| MF_GRAYED);
2726	_menu_set_state(mhDoc, skDocStyle, MF_CHECKED);
2727	}
2728
2729
2730	/**
2731	* Checks the correct menu item.
2732	*/
2733	_command void k_menu_license(_str sNewLicense = '')
2734	{
2735	//say 'sNewLicense='sNewLicense;
2736	if (sNewLicense != '')
2737	skLicense = sNewLicense
2738	_menu_set_state(mhLic, "Odin32", MF_UNCHECKED);
2739	_menu_set_state(mhLic, "GPL", MF_UNCHECKED);
2740	_menu_set_state(mhLic, "LGPL", MF_UNCHECKED);
2741	_menu_set_state(mhLic, "Confidential", MF_UNCHECKED);
2742	_menu_set_state(mhLic, skLicense, MF_CHECKED);
2743	}
2744
2745
2746	/**
2747	* Check the correct style menu item.
2748	*/
2749	_command void k_menu_style(_str sNewStyle = '')
2750	{
2751	//say 'sNewStyle='sNewStyle;
2752	_menu_set_state(mhCode, "Opt1Ind4", MF_UNCHECKED);
2753	_menu_set_state(mhCode, "Opt1Ind3", MF_UNCHECKED);
2754	_menu_set_state(mhCode, "Opt1Ind8", MF_UNCHECKED);
2755	_menu_set_state(mhCode, "Opt2Ind4", MF_UNCHECKED);
2756	_menu_set_state(mhCode, "Opt2Ind3", MF_UNCHECKED);
2757	_menu_set_state(mhCode, "Opt2Ind8", MF_UNCHECKED);
2758	_menu_set_state(mhCode, "Opt3Ind4", MF_UNCHECKED);
2759	_menu_set_state(mhCode, "Opt3Ind3", MF_UNCHECKED);
2760	_menu_set_state(mhCode, "Opt3Ind8", MF_UNCHECKED);
2761
2762	if (sNewStyle != '')
2763	{
2764	int iIndent = (int)substr(sNewStyle, 8, 1);
2765	int iBraceStyle = (int)substr(sNewStyle, 4, 1);
2766	skCodeStyle = sNewStyle;
2767	k_styles_setindent(iIndent, iBraceStyle);
2768	k_styles_set(sNewStyle);
2769	}
2770
2771	_menu_set_state(mhCode, skCodeStyle, MF_CHECKED);
2772	}
2773
2774
2775	/**
2776	* Load a 'preset'.
2777	*/
2778	_command void k_menu_preset(_str sArgs = '')
2779	{
2780	parse sArgs with sNewDocStyle ',' sNewLicense ',' sNewStyle ',' sNewCompany ',' sNewProgram ',' sNewChange
2781	sNewDocStyle= strip(sNewDocStyle);
2782	sNewLicense = strip(sNewLicense);
2783	sNewStyle = strip(sNewStyle);
2784	sNewCompany = strip(sNewCompany);
2785	sNewProgram = strip(sNewProgram);
2786	sNewChange = strip(sNewChange);
2787
2788	//say 'k_menu_preset('sNewDocStyle',' sNewLicense',' sNewStyle',' sNewCompany',' sNewProgram')';
2789	k_menu_doc_style(sNewDocStyle);
2790	k_menu_license(sNewLicense);
2791	k_menu_style(sNewStyle);
2792	skCompany = sNewCompany;
2793	skProgram = sNewProgram;
2794	skChange = sNewChange;
2795	k_menu_create();
2796	}
2797
2798
2799
2800	/* future ones..
2801	_command k_menu_setcolor()
2802	{
2803	createMyColorSchemeAndUseIt();
2804	}
2805
2806
2807	_command k_menu_setkeys()
2808	{
2809	rc = load("d:/knut/VSlickMacros/BoxerDef.e");
2810	}
2811
2812	_command k_menu_settings()
2813	{
2814	mySettings();
2815	}
2816	*/
2817
2818
2819	/*******************************************************************************
2820	* Dialogs *
2821	*******************************************************************************/
2822	_form k_form_simple_input {
2823	p_backcolor=0x80000005
2824	p_border_style=BDS_DIALOG_BOX
2825	p_caption='Simple Input'
2826	p_clip_controls=FALSE
2827	p_forecolor=0x80000008
2828	p_height=1120
2829	p_width=5020
2830	p_x=6660
2831	p_y=6680
2832	_text_box entText {
2833	p_auto_size=TRUE
2834	p_backcolor=0x80000005
2835	p_border_style=BDS_FIXED_SINGLE
2836	p_completion=NONE_ARG
2837	p_font_bold=FALSE
2838	p_font_italic=FALSE
2839	p_font_name='MS Sans Serif'
2840	p_font_size=8
2841	p_font_underline=FALSE
2842	p_forecolor=0x80000008
2843	p_height=270
2844	p_tab_index=1
2845	p_tab_stop=TRUE
2846	p_text='text'
2847	p_width=3180
2848	p_x=1680
2849	p_y=240
2850	p_eventtab2=_ul2_textbox
2851	}
2852	_label lblLabel {
2853	p_alignment=AL_VCENTERRIGHT
2854	p_auto_size=FALSE
2855	p_backcolor=0x80000005
2856	p_border_style=BDS_NONE
2857	p_caption='Label'
2858	p_font_bold=FALSE
2859	p_font_italic=FALSE
2860	p_font_name='MS Sans Serif'
2861	p_font_size=8
2862	p_font_underline=FALSE
2863	p_forecolor=0x80000008
2864	p_height=240
2865	p_tab_index=2
2866	p_width=1380
2867	p_word_wrap=FALSE
2868	p_x=180
2869	p_y=240
2870	}
2871	_command_button btnOK {
2872	p_cancel=FALSE
2873	p_caption='&OK'
2874	p_default=TRUE
2875	p_font_bold=FALSE
2876	p_font_italic=FALSE
2877	p_font_name='MS Sans Serif'
2878	p_font_size=8
2879	p_font_underline=FALSE
2880	p_height=360
2881	p_tab_index=3
2882	p_tab_stop=TRUE
2883	p_width=1020
2884	p_x=180
2885	p_y=660
2886	}
2887	_command_button btnCancel {
2888	p_cancel=TRUE
2889	p_caption='Cancel'
2890	p_default=FALSE
2891	p_font_bold=FALSE
2892	p_font_italic=FALSE
2893	p_font_name='MS Sans Serif'
2894	p_font_size=8
2895	p_font_underline=FALSE
2896	p_height=360
2897	p_tab_index=4
2898	p_tab_stop=TRUE
2899	p_width=840
2900	p_x=1380
2901	p_y=660
2902	}
2903	}
2904
2905	defeventtab k_form_simple_input
2906	btnOK.on_create(_str sLabel = '', _str sText = '')
2907	{
2908	p_active_form.p_caption = sLabel;
2909	lblLabel.p_caption = sLabel;
2910	entText.p_text = sText;
2911	}
2912
2913	btnOK.lbutton_up()
2914	{
2915	sText = entText.p_text;
2916	p_active_form._delete_window(sText);
2917	}
2918	btnCancel.lbutton_up()
2919	{
2920	sText = entText.p_text;
2921	p_active_form._delete_window("\r");
2922	}
2923
2924
2925
2926	/**
2927	* Module initiation.
2928	*/
2929	definit()
2930	{
2931	k_styles_create();
2932	k_menu_create();
2933	iTimer = _set_timer(1000, k_menu_create, "timer");
2934	/* createMyColorSchemeAndUseIt();*/
2935	}
2936
2937

Note: See TracBrowser for help on using the repository browser.

source: kBuild/trunk/VSlickMacros/kdev.e@ 289

Download in other formats: