VirtualBox

source: kBuild/trunk/SlickEdit/kdev.e@ 3085

Last change on this file since 3085 was 3069, checked in by bird, 7 years ago

kdev: k_noref
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 113.7 KB
Line 
1/* $Id: kdev.e 3069 2017-10-02 06:28:54Z bird $ -*- tab-width: 4 c-indent-level: 4 -*- */
2/** @file
3 * Visual SlickEdit Documentation Macros.
4 */
5
6/*
7 * Copyright (c) 1999-2010 knut st. osmundsen <[email protected]>
8 *
9 * This file is part of kBuild.
10 *
11 * kBuild is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 3 of the License, or
14 * (at your option) any later version.
15 *
16 * kBuild is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
20 *
21 * You should have received a copy of the GNU General Public License
22 * along with kBuild. If not, see <http://www.gnu.org/licenses/>
23 *
24 */
25
26/***
27 *
28 * This define the following keys:
29 *---------------------------------
30 * Ctrl+Shift+C: Class description box.
31 * Ctrl+Shift+F: Function/method description box.
32 * Ctrl+Shift+M: Module(file) description box
33 * Ctrl+Shift+O: One-liner (comment)
34 *
35 * Ctrl+Shift+G: Global box
36 * Ctrl+Shift+H: Header box
37 * Ctrl+Shift+E: Exported Symbols
38 * Ctrl+Shift+I: Internal function box
39 * Ctrl+Shift+K: Const/macro box
40 * Ctrl+Shift+S: Struct/Typedef box
41 *
42 * Ctrl+Shift+A: Signature+Date marker
43 * Ctrl+Shift+P: Mark line as change by me
44 *
45 * Ctrl+Shift+T: Update project tagfile.
46 * Ctrl+Shift+L: Load document variables.
47 *
48 * Ctrl+Shift+B: KLOGENTRYX(..)
49 * Ctrl+Shift+E: KLOGEXIT(..)
50 * Ctrl+Shift+N: Do kLog stuff for the current file. No questions.
51 * Ctrl+Shift+Q: Do kLog stuff for the current file. Ask a lot of questions.
52 *
53 * Remember to set the correct sOdin32UserName, sOdin32UserEmail and sOdin32UserInitials
54 * before compiling and loading the macros into Visual SlickEdit.
55 *
56 * These macros are compatible with both 3.0(c) and 4.0(b).
57 *
58 */
59defeventtab default_keys
60def 'C-S-A' = k_signature
61//def 'C-S-C' = k_javadoc_classbox
62def 'C-S-C' = k_calc
63def 'C-S-E' = k_box_exported
64def 'C-S-F' = k_javadoc_funcbox
65def 'C-S-G' = k_box_globals
66def 'C-S-H' = k_box_headers
67def 'C-S-I' = k_box_intfuncs
68def 'C-S-K' = k_box_consts
69def 'C-S-N' = k_noref
70def 'C-S-M' = k_javadoc_moduleheader
71def 'C-S-O' = k_oneliner
72def 'C-S-P' = k_mark_modified_line
73def 'C-S-S' = k_box_structs
74def 'C-S-T' = k_rebuild_tagfile
75def 'C-S-L' = k_style_load
76
77//optional stuff
78//def 'C-S-Q' = klib_klog_file_ask
79//def 'C-S-N' = klib_klog_file_no_ask
80//def 'C-S-1' = klib_klogentry
81//def 'C-S-3' = klib_klogexit
82
83
84//MARKER. Editor searches for this line!
85#pragma option(redeclvars, on)
86#include 'slick.sh'
87#ifndef VS_TAGDETAIL_context_args
88/* newer vslick version. */
89#include 'tagsdb.sh'
90//#pragma option(strict,on)
91/*#else: Version 4.0 (OS/2) */
92#endif
93
94#ifndef __MACOSX__
95 #define KDEV_WITH_MENU
96#endif
97
98/* Remeber to change these! */
99static _str skUserInitials = "bird";
100static _str skUserName = "knut st. osmundsen";
101static _str skUserEmail = "[email protected]";
102
103
104/*******************************************************************************
105* Global Variables *
106*******************************************************************************/
107static _str skCodeStyle = 'Opt2Ind4'; /* coding style scheme. */
108static _str skDocStyle = 'javadoc';/* options: javadoc, */
109static _str skLicense = 'GPLv3'; /* options: GPL, LGPL, Odin32, Confidential, ++ */
110static _str skCompany = ''; /* empty or company name for copyright */
111static _str skProgram = ''; /* Current program name - used by [L]GPL */
112static _str skChange = ''; /* Current change identifier. */
113
114static int ikStyleWidth = 130; /* The page width of the style. */
115static boolean fkStyleFullHeaders = false; /* false: omit some tags. */
116static int ikStyleOneliner = 41; /* The oneline comment column. */
117static int ikStyleModifyMarkColumn = 105;
118static boolean fkStyleBoxTag = false; /* true: Include tag in k_box_start. */
119
120
121/*******************************************************************************
122* Internal Functions *
123*******************************************************************************/
124/**
125 * Gets iso date.
126 * @returns ISO formatted date.
127 */
128static _str k_date()
129{
130 int i,j;
131 _str date;
132
133 date = _date('U');
134 i = pos("/", date);
135 j = pos("/", date, i+1);
136 _str month = substr(date, 1, i-1);
137 if (length(month) == 1) month = '0'month;
138 _str day = substr(date, i+1, j-i-1);
139 if (length(day) == 1) day = '0'day;
140 _str year = substr(date, j+1);
141 return year"-"month"-"day;
142}
143
144
145/**
146 * Get the current year.
147 * @returns Current year string.
148 */
149static _str k_year()
150{
151 _str date = _date('U');
152 return substr(date, pos("/",date, pos("/",date)+1)+1, 4);
153}
154
155
156/**
157 * Aligns a value up to a given alignment.
158 */
159static int k_alignup(int iValue, iAlign)
160{
161 if (iAlign <= 0)
162 {
163 message('k_alignup: iValue='iValue ' iAlign='iAlign);
164 iAlign = 4;
165 }
166 return ((iValue intdiv iAlign) + 1) * iAlign;
167}
168
169
170/**
171 * Reads the comment setup for this lexer/extension .
172 *
173 * @returns Success indicator.
174 * @param sLeft Left comment. (output)
175 * @param sRight Right comment. (output)
176 * @param iColumn Comment mark column. (1-based) (output)
177 * @param sExt The extension to lookup defaults to the current one.
178 * @param sLexer The lexer to lookup defaults to the current one.
179 * @remark This should be exported from box.e, but unfortunately it isn't.
180 */
181static boolean k_commentconfig(_str &sLeft, _str &sRight, int &iColumn, _str sExt = p_extension, _str sLexer = p_lexer_name)
182{
183 /* init returns */
184 sLeft = sRight = '';
185 iColumn = 0;
186
187 /*
188 * Get comment setup from the lexer.
189 */
190 _str sLine = '';
191 if (sLexer)
192 {
193 /* multiline */
194#if __VERSION__ >= 21.0
195 COMMENT_TYPE aComments[];
196 GetComments(aComments, "M", sLexer);
197 for (i = 0; i < aComments._length(); i++)
198 if (!aComments[i].isDocumentation)
199 {
200 sLeft = aComments[i].delim1;
201 sRight = aComments[i].delim2;
202 iColumn = aComments[i].startcol;
203 if (sLeft != '' && sRight != '')
204 return true;
205 }
206#else
207# if __VERSION__ >= 14.0
208 _str aComments[] = null;
209 GetComments(aComments, "mlcomment", sLexer);
210 for (i = 0; i < aComments._length(); i++)
211 if (pos("documentation", aComments[i]) <= 0)
212 {
213 sLine = aComments[i];
214 break;
215 }
216 if (sLine != '')
217# else
218 rc = _ini_get_value(slick_path_search("user.vlx"), sLexer, 'mlcomment', sLine);
219 if (rc)
220 rc = _ini_get_value(slick_path_search("vslick.vlx"), sLexer, 'mlcomment', sLine);
221 if (!rc)
222# endif
223 {
224 sLeft = strip(word(sLine, 1));
225 sRight = strip(word(sLine, 2));
226 if (sLeft != '' && sRight != '')
227 return true;
228 }
229#endif
230
231 /* failed, try single line. */
232#if __VERSION__ >= 21.0
233 GetComments(aComments, "L", sLexer);
234 for (i = 0; i < aComments._length(); i++)
235 if (!aComments[i].isDocumentation)
236 {
237 sLeft = aComments[i].delim1;
238 sRight = '';
239 iColumn = aComments[i].startcol;
240 if (sLeft != '')
241 return true;
242 }
243#else
244# if __VERSION__ >= 14.0
245 GetComments(aComments, "linecomment", sLexer)
246 for (i = 0; i < aComments._length(); i++)
247 if (pos("documentation", aComments[i]) <= 0)
248 {
249 sLine = aComments[i];
250 break;
251 }
252 if (sLine != '')
253# else
254 rc = _ini_get_value(slick_path_search("user.vlx"), sLexer, 'linecomment', sLine);
255 if (rc)
256 rc = _ini_get_value(slick_path_search("vslick.vlx"), sLexer, 'linecomment', sLine);
257 if (!rc)
258# endif
259 {
260 sLeft = strip(word(sLine, 1));
261 sRight = '';
262 iColumn = 0;
263 _str sTmp = word(sLine, 2);
264 if (isnumber(sTmp))
265 iColumn = (int)sTmp;
266 if (sLeft != '')
267 return true;
268 }
269#endif
270 }
271
272 /*
273 * Read the nonboxchars and determin user or default box.ini.
274 */
275 _str sFile = slick_path_search("ubox.ini");
276 boolean frc = _ini_get_value(sFile, sExt, 'nonboxchars', sLine);
277 if (frc)
278 {
279 sFile = slick_path_search("box.ini");
280 frc = _ini_get_value(sFile, sExt, 'nonboxchars', sLine);
281 }
282
283 if (!frc)
284 { /*
285 * Found extension.
286 */
287 sLeft = strip(eq_name2value('left',sLine));
288 if (sLeft == '\e') sLeft = '';
289 sRight = strip(eq_name2value('right',sLine));
290 if (sRight == '\e') sRight = '';
291
292 /* Read comment column too */
293 frc = _ini_get_value(sFile, sExt, 'comment_col', sLine);
294 if (frc)
295 {
296 iColumn = eq_name2value('comment_col', sLine);
297 if (iColumn == '\e') iColumn = 0;
298 }
299 else
300 iColumn = 0;
301 return true;
302 }
303
304 /* failure */
305 sLeft = sRight = '';
306 iColumn = 0;
307
308 return false;
309}
310
311
312/**
313 * Checks if current file only support line comments.
314 * @returns True / False.
315 * @remark Use builtin extension stuff!
316 */
317static boolean k_line_comment()
318{
319 _str sRight = '';
320 _str sLeft = '';
321 int iColumn;
322 boolean fLineComment = false;
323 if (k_commentconfig(sLeft, sRight, iColumn))
324 fLineComment = (sRight == '' || iColumn > 0);
325 return fLineComment;
326}
327
328
329
330#define KIC_CURSOR_BEFORE 1
331#define KIC_CURSOR_AFTER 2
332#define KIC_CURSOR_AT_END 3
333
334/**
335 * Insert a comment at current or best fitting position in the text.
336 * @param sStr The comment to insert.
337 * @param iCursor Where to put the cursor.
338 * @param iPosition Where to start the comment.
339 * Doesn't apply to column based source.
340 * -1 means at cursor position. (default)
341 * >0 means at end of line, but not before this column (1-based).
342 * This also implies a min of one space to EOL.
343 */
344void k_insert_comment(_str sStr, int iCursor, int iPosition = -1)
345{
346 _str sLeft;
347 _str sRight;
348 int iColumn;
349 if (!k_commentconfig(sLeft, sRight, iColumn))
350 {
351 sLeft = '/*'; sRight = '*/'; iColumn = 0;
352 }
353
354 int iCol = 0;
355 if (iColumn <= 0)
356 { /*
357 * not column based source
358 */
359
360 /* position us first */
361 if (iPosition > 0)
362 {
363 end_line();
364 do {
365 _insert_text(" ");
366 } while (p_col < iPosition);
367 }
368
369 /* insert comment saving the position for _BEFORE. */
370 iCol = p_col;
371 _insert_text(sLeft:+' ':+sStr);
372 if (iCursor == KIC_CURSOR_AT_END)
373 iCol = p_col;
374 /* right comment delimiter? */
375 if (sRight != '')
376 _insert_text(' ':+sRight);
377 }
378 else
379 {
380 if (p_col >= iColumn)
381 _insert_text("\n");
382 do { _insert_text(" "); } while (p_col < iColumn);
383 if (iCursor == KIC_CURSOR_BEFORE)
384 iCol = p_col;
385 _insert_text(sLeft:+' ':+sStr);
386 if (iCursor == KIC_CURSOR_AT_END)
387 iCol = p_col;
388 }
389
390 /* set cursor. */
391 if (iCursor != KIC_CURSOR_AFTER)
392 p_col = iCol;
393}
394
395
396/**
397 * Gets the comment prefix or postfix.
398 * @returns Comment prefix or postfix.
399 * @param fRight If clear left comment string - default.
400 * If set right comment string.
401 */
402static _str k_comment(boolean fRight = false)
403{
404 _str sLeft, sRight;
405 int iColumn;
406 _str sComment = '/*';
407 if (k_commentconfig(sLeft, sRight, iColumn))
408 sComment = (!fRight || iColumn > 0 ? sLeft : sRight);
409
410 return strip(sComment);
411}
412
413
414/*******************************************************************************
415* BOXES *
416*******************************************************************************/
417
418/**
419 * Inserts the first line in a box.
420 * @param sTag Not used - box tag.
421 */
422static void k_box_start(sTag)
423{
424 _str sLeft, sRight;
425 int iColumn;
426 if (!k_commentconfig(sLeft, sRight, iColumn))
427 return;
428 _begin_line();
429 if (iColumn >= 0)
430 while (p_col < iColumn)
431 _insert_text(" ");
432
433 _str sText = sLeft;
434 if (sTag != '' && fkStyleBoxTag)
435 {
436 if (substr(sText, length(sText)) != '*')
437 sText = sText:+'*';
438 sText = sText:+sTag;
439 }
440
441 int i;
442 for (i = length(sText); i <= ikStyleWidth - p_col; i++)
443 sText = sText:+'*';
444 sText = sText:+"\n";
445
446 _insert_text(sText);
447}
448
449
450/**
451 * Places a string, sStr, into a line started and ended by '*'.
452 * @param sStr Text to have between the '*'s.
453 */
454static void k_box_line(_str sStr)
455{
456 _str sLeft, sRight;
457 int iColumn;
458 if (!k_commentconfig(sLeft, sRight, iColumn))
459 return;
460 if (iColumn >= 0)
461 while (p_col < iColumn)
462 _insert_text(" ");
463
464 _str sText = '';
465 if (k_line_comment())
466 sText = sLeft;
467 if (sText == '' || substr(sText, length(sText)) != '*')
468 sText = sText:+'*';
469
470 sText = sText:+' ';
471 int i;
472 for (i = length(sText); i < p_SyntaxIndent; i++)
473 sText = sText:+' ';
474
475 sText = sText:+sStr;
476
477 for (i = length(sText) + 1; i <= ikStyleWidth - p_col; i++)
478 sText = sText:+' ';
479 sText = sText:+"*\n";
480
481 _insert_text(sText);
482}
483
484
485/**
486 * Inserts the last line in a box.
487 */
488static void k_box_end()
489{
490 _str sLeft, sRight;
491 int iColumn, i;
492 if (!k_commentconfig(sLeft, sRight, iColumn))
493 return;
494 if (iColumn >= 0)
495 while (p_col < iColumn)
496 _insert_text(" ");
497
498 _str sText = '';
499 if (k_line_comment())
500 sText = sLeft;
501 for (i = length(sText) + length(sRight); i <= ikStyleWidth - p_col; i++)
502 sText = sText:+'*';
503 sText = sText:+sRight:+"\n";
504
505 _insert_text(sText);
506}
507
508
509
510/*******************************************************************************
511* FUNCTION AND CODE PARSERS *
512*******************************************************************************/
513/**
514 * Moves cursor to nearest function start.
515 * @returns 0 if ok.
516 * -1 on failure.
517 */
518static int k_func_goto_nearest_function()
519{
520 boolean fFix = false; /* cursor at function fix. (last function) */
521 int cur_line = p_line;
522 int prev_line = -1;
523 int next_line = -1;
524 typeless org_pos;
525 _save_pos2(org_pos);
526
527 if (!next_proc(1))
528 {
529 next_line = p_line;
530 if (!prev_proc(1) && p_line == cur_line)
531 {
532 _restore_pos2(org_pos);
533 return 0;
534 }
535 _restore_pos2(org_pos);
536 _save_pos2(org_pos);
537 }
538 else
539 {
540 p_col++; /* fixes problem with single function files. */
541 fFix = true;
542 }
543
544 if (!prev_proc(1))
545 {
546 prev_line = p_line;
547 if (!next_proc(1) && p_line == cur_line)
548 {
549 _restore_pos2(org_pos);
550 return 0;
551 }
552 _restore_pos2(org_pos);
553 _save_pos2(org_pos);
554 }
555
556
557 if (prev_line != -1 && (next_line == -1 || cur_line - prev_line <= next_line - cur_line))
558 {
559 if (fFix)
560 p_col++;
561 prev_proc(1);
562 return 0;
563 }
564
565 if (next_line != -1 && (prev_line == -1 || cur_line - prev_line > next_line - cur_line))
566 {
567 next_proc();
568 return 0;
569 }
570
571 _restore_pos2(org_pos);
572 return -1;
573}
574
575
576/**
577 * Check if nearest function is a prototype.
578 * @returns True if function prototype.
579 * False if not function prototype.
580 */
581static boolean k_func_prototype()
582{
583 /*
584 * Check if this is a real function implementation.
585 */
586 typeless procpos;
587 _save_pos2(procpos);
588 if (!k_func_goto_nearest_function())
589 {
590 int proc_line = p_line;
591
592 if (!k_func_searchcode("{"))
593 {
594 prev_proc();
595 if (p_line != proc_line)
596 {
597 _restore_pos2(procpos);
598 return true;
599 }
600 }
601 }
602 _restore_pos2(procpos);
603
604 return false;
605}
606
607
608/**
609 * Gets the name fo the current function.
610 * @returns The current function name.
611 */
612static _str k_func_getfunction_name()
613{
614 _str sFunctionName = current_proc();
615 if (!sFunctionName)
616 sFunctionName = "";
617 //say 'functionanme='sFunctionName;
618 return sFunctionName;
619}
620
621
622/**
623 * Goes to the neares function and gets its parameters.
624 * @remark Should be reimplemented to use tags (if someone can figure out how to query that stuff).
625 */
626static _str k_func_getparams()
627{
628 typeless org_pos;
629 _save_pos2(org_pos);
630
631 /*
632 * Try use the tags first.
633 */
634 _UpdateContext(true);
635 int context_id = tag_current_context();
636 if (context_id <= 0)
637 {
638 k_func_goto_nearest_function();
639 context_id = tag_current_context();
640 }
641 if (context_id > 0)
642 {
643 _str args = '';
644 _str type = '';
645 tag_get_detail2(VS_TAGDETAIL_context_args, context_id, args);
646 tag_get_detail2(VS_TAGDETAIL_context_type, context_id, type);
647 if (tag_tree_type_is_func(type))
648 return args
649 //caption = tag_tree_make_caption_fast(VS_TAGMATCH_context,context_id,true,true,false);
650 }
651
652 /*
653 * Go to nearest function.
654 */
655 if ( !k_func_goto_nearest_function()
656 && !k_func_searchcode("(") /* makes some assumptions. */
657 )
658 {
659 /*
660 * Get parameters.
661 */
662 typeless posStart;
663 _save_pos2(posStart);
664 long offStart = _QROffset();
665 if (!find_matching_paren())
666 {
667 long offEnd = _QROffset();
668 _restore_pos2(posStart);
669 p_col++;
670 _str sParamsRaw = strip(get_text((int)(offEnd - offStart - 1)));
671
672
673 /*
674 * Remove new lines and double spaces within params.
675 */
676 _str sParams = "";
677
678 int i;
679 _str chPrev;
680 for (i = 1, chPrev = ' '; i <= length(sParamsRaw); i++)
681 {
682 _str ch = substr(sParamsRaw, i, 1);
683
684 /*
685 * Do fixups.
686 */
687 if (ch == " " && chPrev == " ")
688 continue;
689
690 if ((ch :== "\n") || (ch :== "\r") || (ch :== "\t"))
691 {
692 if (chPrev == ' ')
693 continue;
694 ch = ' ';
695 }
696
697 if (ch == ',' && chPrev == ' ')
698 {
699 sParams = substr(sParams, 1, length(sParams) - 1);
700 }
701
702 if (ch == '*')
703 {
704 if (chPrev != ' ')
705 sParams = sParams :+ ' * ';
706 else
707 sParams = sParams :+ '* ';
708 chPrev = ' ';
709 }
710 else
711 {
712 sParams = sParams :+ ch;
713 chPrev = ch;
714 }
715
716 } /* for */
717
718 sParams = strip(sParams);
719 if (sParams == 'void' || sParams == 'VOID')
720 sParams = "";
721 _restore_pos2(org_pos);
722 return sParams;
723 }
724 else
725 message("find_matchin_paren failed");
726 }
727
728 _restore_pos2(org_pos);
729 return false;
730}
731
732
733
734/**
735 * Enumerates the parameters to the function.
736 * @param sParams Parameter string from k_func_getparams.
737 * @param iParam The index (0-based) of the parameter to get.
738 * @param sType Type. (output)
739 * @param sName Name. (output)
740 * @param sDefault Default value. (output)
741 * @remark Doesn't perhaps handle function pointers very well (I think)?
742 * @remark Should be reimplemented to use tags (if someone can figure out how to query that stuff).
743 */
744static int k_func_enumparams(_str sParams, int iParam, _str &sType, _str &sName, _str &sDefault)
745{
746 int i;
747 int iParLevel;
748 int iCurParam;
749 int iStartParam;
750
751 sType = sName = sDefault = "";
752
753 /* no use working on empty string! */
754 if (length(sParams) == 0)
755 return -1;
756
757 /* find the parameter in question */
758 for (iStartParam = i = 1, iParLevel = iCurParam = 0; i <= length(sParams); i++)
759 {
760 _str ch = substr(sParams, i, 1);
761 if (ch == ',' && iParLevel == 0)
762 {
763 /* is it this parameter ? */
764 if (iParam == iCurParam)
765 break;
766
767 iCurParam++;
768 iStartParam = i + 1;
769 }
770 else if (ch == '(')
771 iParLevel++;
772 else if (ch == ')')
773 iParLevel--;
774 }
775
776 /* did we find the parameter? */
777 if (iParam == iCurParam)
778 { /* (yeah, we did!) */
779 _str sArg = strip(substr(sParams, iStartParam, i - iStartParam));
780 /* remove M$ stuff */
781 sArg = stranslate(sArg, "", "IN", "E");
782 sArg = stranslate(sArg, "", "OUT", "E");
783 sArg = stranslate(sArg, "", "OPTIONAL", "E");
784 sArg = strip(sArg);
785
786 /* lazy approach, which doens't support function types */
787
788 if (pos('=', sParams) > 0) /* default */
789 {
790 sDefault = strip(substr(sParams, pos('=', sParams) + 1));
791 sArg = strip(substr(sArg, 1, pos('=', sParams) - 1));
792 }
793
794 for (i = length(sArg); i > 1; i--)
795 {
796 _str ch = substr(sArg, i, 1);
797 if ( !(ch >= 'a' && ch <= 'z')
798 && !(ch >= 'A' && ch <= 'Z')
799 && !(ch >= '0' && ch <= '9')
800 && ch != '_' && ch != '$')
801 break;
802 }
803 if (sArg == "...")
804 i = 0;
805 sName = strip(substr(sArg, i + 1));
806 sType = strip(substr(sArg, 1, i));
807
808 return 0;
809 }
810
811 return -1;
812}
813
814
815/**
816 * Counts the parameters to the function.
817 * @param sParams Parameter string from k_func_getparams.
818 * @remark Should be reimplemented to use tags (if someone can figure out how to query that stuff).
819 */
820static int k_func_countparams(_str sParams)
821{
822 int i;
823 int iParLevel;
824 int iCurParam;
825 _str sType = "", sName = "", sDefault = "";
826
827 /* check for 0 parameters */
828 if (length(sParams) == 0)
829 return 0;
830
831 /* find the parameter in question */
832 for (i = 1, iParLevel = iCurParam = 0; i <= length(sParams); i++)
833 {
834 _str ch = substr(sParams, i, 1);
835 if (ch == ',' && iParLevel == 0)
836 {
837 iCurParam++;
838 }
839 else if (ch == '(')
840 iParLevel++;
841 else if (ch == ')')
842 iParLevel--;
843 }
844
845 return iCurParam + 1;
846}
847
848
849/**
850 * Gets the return type.
851 */
852static _str k_func_getreturntype(boolean fPureType = false)
853{
854 typeless org_pos;
855 _save_pos2(org_pos);
856
857 /*
858 * Go to nearest function.
859 */
860 if (!k_func_goto_nearest_function())
861 {
862 /*
863 * Return type is from function start to function name...
864 */
865 typeless posStart;
866 _save_pos2(posStart);
867 long offStart = _QROffset();
868
869 if (!k_func_searchcode("(")) /* makes some assumptions. */
870 {
871 prev_word();
872 long offEnd = _QROffset();
873 _restore_pos2(posStart);
874 _str sTypeRaw = strip(get_text((int)(offEnd - offStart)));
875
876 //say 'sTypeRaw='sTypeRaw;
877 /*
878 * Remove static, inline, _Optlink, stdcall, EXPENTRY etc.
879 */
880 if (fPureType)
881 {
882 sTypeRaw = stranslate(sTypeRaw, "", "__static__", "I");
883 sTypeRaw = stranslate(sTypeRaw, "", "__static", "I");
884 sTypeRaw = stranslate(sTypeRaw, "", "static__", "I");
885 sTypeRaw = stranslate(sTypeRaw, "", "static", "I");
886 sTypeRaw = stranslate(sTypeRaw, "", "__inline__", "I");
887 sTypeRaw = stranslate(sTypeRaw, "", "__inline", "I");
888 sTypeRaw = stranslate(sTypeRaw, "", "inline__", "I");
889 sTypeRaw = stranslate(sTypeRaw, "", "inline", "I");
890 sTypeRaw = stranslate(sTypeRaw, "", "EXPENTRY", "I");
891 sTypeRaw = stranslate(sTypeRaw, "", "_Optlink", "I");
892 sTypeRaw = stranslate(sTypeRaw, "", "__stdcall", "I");
893 sTypeRaw = stranslate(sTypeRaw, "", "__cdecl", "I");
894 sTypeRaw = stranslate(sTypeRaw, "", "_cdecl", "I");
895 sTypeRaw = stranslate(sTypeRaw, "", "cdecl", "I");
896 sTypeRaw = stranslate(sTypeRaw, "", "__PASCAL", "I");
897 sTypeRaw = stranslate(sTypeRaw, "", "_PASCAL", "I");
898 sTypeRaw = stranslate(sTypeRaw, "", "PASCAL", "I");
899 sTypeRaw = stranslate(sTypeRaw, "", "__Far32__", "I");
900 sTypeRaw = stranslate(sTypeRaw, "", "__Far32", "I");
901 sTypeRaw = stranslate(sTypeRaw, "", "Far32__", "I");
902 sTypeRaw = stranslate(sTypeRaw, "", "_Far32_", "I");
903 sTypeRaw = stranslate(sTypeRaw, "", "_Far32", "I");
904 sTypeRaw = stranslate(sTypeRaw, "", "Far32_", "I");
905 sTypeRaw = stranslate(sTypeRaw, "", "Far32", "I");
906 sTypeRaw = stranslate(sTypeRaw, "", "__far", "I");
907 sTypeRaw = stranslate(sTypeRaw, "", "_far", "I");
908 sTypeRaw = stranslate(sTypeRaw, "", "far", "I");
909 sTypeRaw = stranslate(sTypeRaw, "", "__near", "I");
910 sTypeRaw = stranslate(sTypeRaw, "", "_near", "I");
911 sTypeRaw = stranslate(sTypeRaw, "", "near", "I");
912 sTypeRaw = stranslate(sTypeRaw, "", "__loadds__", "I");
913 sTypeRaw = stranslate(sTypeRaw, "", "__loadds", "I");
914 sTypeRaw = stranslate(sTypeRaw, "", "loadds__", "I");
915 sTypeRaw = stranslate(sTypeRaw, "", "_loadds_", "I");
916 sTypeRaw = stranslate(sTypeRaw, "", "_loadds", "I");
917 sTypeRaw = stranslate(sTypeRaw, "", "loadds_", "I");
918 sTypeRaw = stranslate(sTypeRaw, "", "loadds", "I");
919 sTypeRaw = stranslate(sTypeRaw, "", "__loades__", "I");
920 sTypeRaw = stranslate(sTypeRaw, "", "__loades", "I");
921 sTypeRaw = stranslate(sTypeRaw, "", "loades__", "I");
922 sTypeRaw = stranslate(sTypeRaw, "", "_loades_", "I");
923 sTypeRaw = stranslate(sTypeRaw, "", "_loades", "I");
924 sTypeRaw = stranslate(sTypeRaw, "", "loades_", "I");
925 sTypeRaw = stranslate(sTypeRaw, "", "loades", "I");
926 sTypeRaw = stranslate(sTypeRaw, "", "WIN32API", "I");
927 sTypeRaw = stranslate(sTypeRaw, "", "WINAPI", "I");
928 sTypeRaw = stranslate(sTypeRaw, "", "LDRCALL", "I");
929 sTypeRaw = stranslate(sTypeRaw, "", "KRNLCALL", "I");
930 sTypeRaw = stranslate(sTypeRaw, "", "__operator__", "I"); /* operator fix */
931 sTypeRaw = stranslate(sTypeRaw, "", "__operator", "I"); /* operator fix */
932 sTypeRaw = stranslate(sTypeRaw, "", "operator__", "I"); /* operator fix */
933 sTypeRaw = stranslate(sTypeRaw, "", "operator", "I"); /* operator fix */
934 sTypeRaw = stranslate(sTypeRaw, "", "IN", "E");
935 sTypeRaw = stranslate(sTypeRaw, "", "OUT", "E");
936 sTypeRaw = stranslate(sTypeRaw, "", "OPTIONAL", "E");
937 }
938
939 /*
940 * Remove new lines and double spaces within params.
941 */
942 _str sType = "";
943
944 int i;
945 _str chPrev;
946 for (i = 1, chPrev = ' '; i <= length(sTypeRaw); i++)
947 {
948 _str ch = substr(sTypeRaw, i, 1);
949
950 /*
951 * Do fixups.
952 */
953 if (ch == " " && chPrev == " ")
954 continue;
955
956 if ((ch :== "\n") || (ch :== "\r") || (ch :== "\t"))
957 {
958 if (chPrev == ' ')
959 continue;
960 ch = ' ';
961 }
962
963 if (ch == ',' && chPrev == ' ')
964 {
965 sType = substr(sType, 1, length(sType) - 1);
966 }
967
968 if (ch == '*')
969 {
970 if (chPrev != ' ')
971 sType = sType :+ ' * ';
972 else
973 sType = sType :+ '* ';
974 chPrev = ' ';
975 }
976 else
977 {
978 sType = sType :+ ch;
979 chPrev = ch;
980 }
981
982 } /* for */
983
984 sType = strip(sType);
985
986 _restore_pos2(org_pos);
987 return sType;
988 }
989 else
990 message('k_func_getreturntype: can''t find ''(''.');
991 }
992
993 _restore_pos2(org_pos);
994 return false;
995}
996
997
998/**
999 * Search for some piece of code.
1000 */
1001static int k_func_searchcode(_str sSearchString, _str sOptions = "E+")
1002{
1003 int rc;
1004 rc = search(sSearchString, sOptions);
1005 while (!rc && !k_func_in_code())
1006 {
1007 p_col++;
1008 rc = search(sSearchString, sOptions);
1009 }
1010 return rc;
1011}
1012
1013
1014/**
1015 * Checks if cursor is in code or in comment.
1016 * @return True if cursor in code.
1017 */
1018static boolean k_func_in_code()
1019{
1020 typeless searchsave;
1021 _save_pos2(searchsave);
1022 boolean fRc = !_in_comment();
1023 _restore_pos2(searchsave);
1024 return fRc;
1025}
1026
1027
1028/*
1029 * Gets the next piece of code.
1030 */
1031static _str k_func_get_next_code_text()
1032{
1033 typeless searchsave;
1034 _save_pos2(searchsave);
1035 _str ch = k_func_get_next_code_text2();
1036 _restore_pos2(searchsave);
1037 return ch;
1038}
1039
1040
1041/**
1042 * Checks if there is more code on the line.
1043 */
1044static boolean k_func_more_code_on_line()
1045{
1046 boolean fRc;
1047 int curline = p_line;
1048 typeless searchsave;
1049 _save_pos2(searchsave);
1050 k_func_get_next_code_text2();
1051 fRc = curline == p_line;
1052 _restore_pos2(searchsave);
1053
1054 return fRc;
1055}
1056
1057
1058/**
1059 * Gets the next piece of code.
1060 * Doesn't preserver cursor position.
1061 */
1062static _str k_func_get_next_code_text2()
1063{
1064 _str ch;
1065 do
1066 {
1067 int curcol = ++p_col;
1068 end_line();
1069 if (p_col <= curcol)
1070 {
1071 p_line++;
1072 p_col = 1;
1073 }
1074 else
1075 p_col = curcol;
1076
1077 ch = get_text();
1078 //say ch ' ('_asc(ch)')';
1079 while (ch == "#") /* preprocessor stuff */
1080 {
1081 p_col = 1;
1082 p_line++;
1083 ch = get_text();
1084 //say ch ' ('_asc(ch)')';
1085 continue;
1086 }
1087 } while (ch :== ' ' || ch :== "\t" || ch :== "\n" || ch :== "\r" || !k_func_in_code());
1088
1089 return ch;
1090}
1091
1092
1093
1094
1095/*******************************************************************************
1096* JAVA DOC STYLED WORKERS *
1097*******************************************************************************/
1098
1099/** starts a javadoc documentation box. */
1100static void k_javadoc_box_start(_str sStr = '', boolean fDouble = true)
1101{
1102 _str sLeft, sRight;
1103 int iColumn;
1104 if (!k_commentconfig(sLeft, sRight, iColumn))
1105 return;
1106 _begin_line();
1107 if (iColumn >= 0)
1108 while (p_col < iColumn)
1109 _insert_text(" ");
1110
1111 _str sText = sLeft;
1112 if (fDouble)
1113 sText = sLeft:+substr(sLeft, length(sLeft), 1);
1114 if (sStr != '')
1115 sText = sText:+' ':+sStr;
1116 sText = sText:+"\n";
1117
1118 _insert_text(sText);
1119}
1120
1121/** inserts a new line in a javadoc documentation box. */
1122static void k_javadoc_box_line(_str sStr = '', int iPadd = 0, _str sStr2 = '', int iPadd2 = 0, _str sStr3 = '')
1123{
1124 _str sLeft, sRight;
1125 int iColumn;
1126 if (!k_commentconfig(sLeft, sRight, iColumn))
1127 return;
1128 if (iColumn >= 0)
1129 while (p_col < iColumn)
1130 _insert_text(" ");
1131
1132 _str sText;
1133 if (k_line_comment())
1134 sText = sLeft;
1135 else
1136 {
1137 sText = sLeft;
1138 sText = ' ':+substr(sLeft, length(sLeft));
1139 }
1140
1141 if (sStr != '')
1142 sText = sText:+' ':+sStr;
1143 if (iPadd > 0)
1144 {
1145 int i;
1146 for (i = length(sText); i < iPadd; i++)
1147 sText = sText:+' ';
1148
1149 if (sStr2 != '')
1150 sText = sText:+sStr2;
1151
1152 if (iPadd2 > 0)
1153 {
1154 for (i = length(sText); i < iPadd2; i++)
1155 sText = sText:+' ';
1156
1157 if (sStr3 != '')
1158 sText = sText:+sStr3;
1159 }
1160 }
1161 sText = sText:+"\n";
1162
1163 _insert_text(sText);
1164}
1165
1166/** ends a javadoc documentation box. */
1167static void k_javadoc_box_end()
1168{
1169 _str sLeft, sRight;
1170 int iColumn;
1171 if (!k_commentconfig(sLeft, sRight, iColumn))
1172 return;
1173 if (iColumn >= 0)
1174 while (p_col < iColumn)
1175 _insert_text(" ");
1176
1177 _str sText;
1178 if (k_line_comment())
1179 sText = sLeft;
1180 else
1181 {
1182 sText = sRight;
1183 /*if (substr(sText, 1, 1) != '*')
1184 sText = '*':+sText;*/
1185 sText = ' ':+sText;
1186 }
1187 sText = sText:+"\n";
1188
1189 _insert_text(sText);
1190}
1191
1192
1193/**
1194 * Write a Javadoc styled classbox.
1195 */
1196void k_javadoc_classbox()
1197{
1198 int iCursorLine;
1199 int iPadd = k_alignup(12, p_SyntaxIndent);
1200
1201 k_javadoc_box_start();
1202 iCursorLine = p_RLine;
1203 k_javadoc_box_line(' ');
1204
1205 if (fkStyleFullHeaders)
1206 {
1207 k_javadoc_box_line('@shortdesc', iPadd);
1208 k_javadoc_box_line('@dstruct', iPadd);
1209 k_javadoc_box_line('@version', iPadd);
1210 k_javadoc_box_line('@verdesc', iPadd);
1211 }
1212 k_javadoc_box_line('@author', iPadd, skUserName ' <' skUserEmail '>');
1213 k_javadoc_box_line('@approval', iPadd);
1214 k_javadoc_box_end();
1215
1216 up(p_RLine - iCursorLine);
1217 end_line();
1218 keyin(' ');
1219}
1220
1221
1222/**
1223 * Javadoc - functionbox(/header).
1224 */
1225void k_javadoc_funcbox()
1226{
1227 int cArgs = 1;
1228 _str sArgs = "";
1229 int iCursorLine;
1230 int iPadd = k_alignup(11, p_SyntaxIndent);
1231
1232 /* look for parameters */
1233 boolean fFoundFn = !k_func_goto_nearest_function();
1234 if (fFoundFn)
1235 {
1236 sArgs = k_func_getparams();
1237 cArgs = k_func_countparams(sArgs);
1238 }
1239
1240 k_javadoc_box_start();
1241 iCursorLine = p_RLine;
1242 k_javadoc_box_line(' ');
1243 if (file_eq(p_extension, 'asm') || file_eq(p_extension, 'masm'))
1244 k_javadoc_box_line('@cproto', iPadd);
1245 k_javadoc_box_line('@returns', iPadd);
1246 if (fFoundFn)
1247 {
1248 /*
1249 * Determin parameter description indent.
1250 */
1251 int iPadd2 = 0;
1252 int i;
1253 for (i = 0; i < cArgs; i++)
1254 {
1255 _str sName, sType, sDefault;
1256 if ( !k_func_enumparams(sArgs, i, sType, sName, sDefault)
1257 && iPadd2 < length(sName))
1258 iPadd2 = length(sName);
1259 }
1260 iPadd2 = k_alignup((iPadd + iPadd2), p_SyntaxIndent);
1261 if (iPadd2 < 28)
1262 iPadd2 = k_alignup(28, p_SyntaxIndent);
1263
1264 /*
1265 * Insert parameter.
1266 */
1267 for (i = 0; i < cArgs; i++)
1268 {
1269 _str sName, sType, sDefault;
1270 if (!k_func_enumparams(sArgs, i, sType, sName, sDefault))
1271 {
1272 _str sStr3 = '.';
1273 if (sDefault != "")
1274 sStr3 = '(default='sDefault')';
1275 k_javadoc_box_line('@param', iPadd, sName, iPadd2, sStr3);
1276 }
1277 else
1278 k_javadoc_box_line('@param', iPadd);
1279 }
1280 }
1281 else
1282 k_javadoc_box_line('@param', iPadd);
1283
1284 if (file_eq(p_extension, 'asm') || file_eq(p_extension, 'masm'))
1285 k_javadoc_box_line('@uses', iPadd);
1286 if (fkStyleFullHeaders)
1287 {
1288 k_javadoc_box_line('@equiv', iPadd);
1289 k_javadoc_box_line('@time', iPadd);
1290 k_javadoc_box_line('@sketch', iPadd);
1291 k_javadoc_box_line('@status', iPadd);
1292 k_javadoc_box_line('@author', iPadd, skUserName ' <' skUserEmail '>');
1293 k_javadoc_box_line('@remark', iPadd);
1294 }
1295 k_javadoc_box_end();
1296
1297 up(p_RLine - iCursorLine);
1298 end_line();
1299 keyin(' ');
1300}
1301
1302
1303/**
1304 * Javadoc module header.
1305 */
1306void k_javadoc_moduleheader()
1307{
1308 int iCursorLine;
1309 int fSplit = 0;
1310
1311 _insert_text("\n");
1312 up();
1313 _begin_line();
1314 k_insert_comment('$':+'I':+'d: $', KIC_CURSOR_AT_END, -1);
1315 _end_line();
1316 _insert_text("\n");
1317
1318 k_javadoc_box_start('@file');
1319 fSplit = 1;
1320 iCursorLine = p_RLine;
1321 k_javadoc_box_line();
1322 k_javadoc_box_end();
1323 _insert_text("\n");
1324 _insert_text(k_comment() "\n");
1325
1326 if (skLicense == 'Confidential')
1327 {
1328 k_javadoc_box_line(skCompany ' confidential');
1329 k_javadoc_box_line();
1330 }
1331
1332 if (skCompany != '')
1333 {
1334 if (skLicense != 'Confidential')
1335 k_javadoc_box_line('Copyright (C) ' k_year() ' ' skCompany);
1336 else
1337 {
1338 k_javadoc_box_line('Copyright (c) ' k_year() ' ' skCompany);
1339 k_javadoc_box_line();
1340 k_javadoc_box_line('Author: ' skUserName' <' skUserEmail '>');
1341 }
1342 }
1343 else
1344 k_javadoc_box_line('Copyright (c) ' k_year() ' 'skUserName' <' skUserEmail '>');
1345 k_javadoc_box_line();
1346 _str sProg = skProgram;
1347 switch (skLicense)
1348 {
1349 case 'Odin32':
1350 k_javadoc_box_line('Project Odin Software License can be found in LICENSE.TXT.');
1351 break;
1352
1353 case 'GPL':
1354 if (!fSplit)
1355 k_javadoc_box_line();
1356 if (sProg == '')
1357 sProg = 'This program';
1358 else
1359 {
1360 k_javadoc_box_line('This file is part of ' sProg '.');
1361 k_javadoc_box_line();
1362 }
1363 k_javadoc_box_line(sProg ' is free software; you can redistribute it and/or modify');
1364 k_javadoc_box_line('it under the terms of the GNU General Public License as published by');
1365 k_javadoc_box_line('the Free Software Foundation; either version 2 of the License, or');
1366 k_javadoc_box_line('(at your option) any later version.');
1367 k_javadoc_box_line();
1368 k_javadoc_box_line(sProg ' is distributed in the hope that it will be useful,');
1369 k_javadoc_box_line('but WITHOUT ANY WARRANTY; without even the implied warranty of');
1370 k_javadoc_box_line('MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the');
1371 k_javadoc_box_line('GNU General Public License for more details.');
1372 k_javadoc_box_line();
1373 k_javadoc_box_line('You should have received a copy of the GNU General Public License');
1374 k_javadoc_box_line('along with ' sProg '; if not, write to the Free Software');
1375 k_javadoc_box_line('Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA');
1376 break;
1377
1378 case 'LGPL':
1379 if (!fSplit)
1380 k_javadoc_box_line();
1381 if (sProg == '')
1382 sProg = 'This library';
1383 else
1384 {
1385 k_javadoc_box_line('This file is part of ' sProg '.');
1386 k_javadoc_box_line();
1387 }
1388 k_javadoc_box_line(sProg ' is free software; you can redistribute it and/or');
1389 k_javadoc_box_line('modify it under the terms of the GNU Lesser General Public');
1390 k_javadoc_box_line('License as published by the Free Software Foundation; either');
1391 k_javadoc_box_line('version 2.1 of the License, or (at your option) any later version.');
1392 k_javadoc_box_line();
1393 k_javadoc_box_line(sProg ' is distributed in the hope that it will be useful,');
1394 k_javadoc_box_line('but WITHOUT ANY WARRANTY; without even the implied warranty of');
1395 k_javadoc_box_line('MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU');
1396 k_javadoc_box_line('Lesser General Public License for more details.');
1397 k_javadoc_box_line();
1398 k_javadoc_box_line('You should have received a copy of the GNU Lesser General Public');
1399 k_javadoc_box_line('License along with ' sProg '; if not, write to the Free Software');
1400 k_javadoc_box_line('Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA');
1401 break;
1402
1403 case 'GPLv3':
1404 if (!fSplit)
1405 k_javadoc_box_line();
1406 if (sProg == '')
1407 sProg = 'This program';
1408 else
1409 {
1410 k_javadoc_box_line('This file is part of ' sProg '.');
1411 k_javadoc_box_line();
1412 }
1413 k_javadoc_box_line(sProg ' is free software; you can redistribute it and/or modify');
1414 k_javadoc_box_line('it under the terms of the GNU General Public License as published by');
1415 k_javadoc_box_line('the Free Software Foundation; either version 3 of the License, or');
1416 k_javadoc_box_line('(at your option) any later version.');
1417 k_javadoc_box_line();
1418 k_javadoc_box_line(sProg ' is distributed in the hope that it will be useful,');
1419 k_javadoc_box_line('but WITHOUT ANY WARRANTY; without even the implied warranty of');
1420 k_javadoc_box_line('MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the');
1421 k_javadoc_box_line('GNU General Public License for more details.');
1422 k_javadoc_box_line();
1423 k_javadoc_box_line('You should have received a copy of the GNU General Public License');
1424 k_javadoc_box_line('along with ' sProg '. If not, see <http://www.gnu.org/licenses/>');
1425 break;
1426
1427 case 'LGPLv3':
1428 if (!fSplit)
1429 k_javadoc_box_line();
1430 if (sProg == '')
1431 sProg = 'This program';
1432 else
1433 {
1434 k_javadoc_box_line('This file is part of ' sProg '.');
1435 k_javadoc_box_line();
1436 }
1437 k_javadoc_box_line(sProg ' is free software; you can redistribute it and/or');
1438 k_javadoc_box_line('modify it under the terms of the GNU Lesser General Public');
1439 k_javadoc_box_line('License as published by the Free Software Foundation; either');
1440 k_javadoc_box_line('version 3 of the License, or (at your option) any later version.');
1441 k_javadoc_box_line();
1442 k_javadoc_box_line(sProg ' is distributed in the hope that it will be useful,');
1443 k_javadoc_box_line('but WITHOUT ANY WARRANTY; without even the implied warranty of');
1444 k_javadoc_box_line('MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the');
1445 k_javadoc_box_line('GNU Lesser General Public License for more details.');
1446 k_javadoc_box_line();
1447 k_javadoc_box_line('You should have received a copy of the GNU Lesser General Public License');
1448 k_javadoc_box_line('along with ' sProg '. If not, see <http://www.gnu.org/licenses/>');
1449 break;
1450
1451 case 'Confidential':
1452 k_javadoc_box_line('All Rights Reserved');
1453 break;
1454
1455 case 'ConfidentialNoAuthor':
1456 k_javadoc_box_line(skCompany ' confidential');
1457 k_javadoc_box_line('All Rights Reserved');
1458 break;
1459
1460 case 'VirtualBox':
1461 k_javadoc_box_line('This file is part of VirtualBox Open Source Edition (OSE), as')
1462 k_javadoc_box_line('available from http://www.virtualbox.org. This file is free software;')
1463 k_javadoc_box_line('you can redistribute it and/or modify it under the terms of the GNU')
1464 k_javadoc_box_line('General Public License (GPL) as published by the Free Software')
1465 k_javadoc_box_line('Foundation, in version 2 as it comes in the "COPYING" file of the')
1466 k_javadoc_box_line('VirtualBox OSE distribution. VirtualBox OSE is distributed in the')
1467 k_javadoc_box_line('hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.')
1468 k_javadoc_box_line('')
1469 k_javadoc_box_line('Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa')
1470 k_javadoc_box_line('Clara, CA 95054 USA or visit http://www.sun.com if you need')
1471 k_javadoc_box_line('additional information or have any questions.')
1472 break;
1473
1474 case 'VirtualBoxGPLAndCDDL':
1475 k_javadoc_box_line('This file is part of VirtualBox Open Source Edition (OSE), as')
1476 k_javadoc_box_line('available from http://www.virtualbox.org. This file is free software;')
1477 k_javadoc_box_line('you can redistribute it and/or modify it under the terms of the GNU')
1478 k_javadoc_box_line('General Public License (GPL) as published by the Free Software')
1479 k_javadoc_box_line('Foundation, in version 2 as it comes in the "COPYING" file of the')
1480 k_javadoc_box_line('VirtualBox OSE distribution. VirtualBox OSE is distributed in the')
1481 k_javadoc_box_line('hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.')
1482 k_javadoc_box_line('')
1483 k_javadoc_box_line('The contents of this file may alternatively be used under the terms')
1484 k_javadoc_box_line('of the Common Development and Distribution License Version 1.0')
1485 k_javadoc_box_line('(CDDL) only, as it comes in the "COPYING.CDDL" file of the')
1486 k_javadoc_box_line('VirtualBox OSE distribution, in which case the provisions of the')
1487 k_javadoc_box_line('CDDL are applicable instead of those of the GPL.')
1488 k_javadoc_box_line('')
1489 k_javadoc_box_line('You may elect to license modified versions of this file under the')
1490 k_javadoc_box_line('terms and conditions of either the GPL or the CDDL or both.')
1491 k_javadoc_box_line('')
1492 k_javadoc_box_line('Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa')
1493 k_javadoc_box_line('Clara, CA 95054 USA or visit http://www.sun.com if you need')
1494 k_javadoc_box_line('additional information or have any questions.')
1495 break;
1496
1497 default:
1498
1499 }
1500 k_javadoc_box_line();
1501 k_javadoc_box_end();
1502
1503 up(p_RLine - iCursorLine);
1504 end_line();
1505 keyin(' ');
1506}
1507
1508
1509
1510
1511
1512
1513
1514/*******************************************************************************
1515* Keyboard Shortcuts *
1516*******************************************************************************/
1517/** Makes global box. */
1518void k_box_globals()
1519{
1520 k_box_start('Global');
1521 k_box_line('Global Variables');
1522 k_box_end();
1523}
1524
1525/** Makes header box. */
1526void k_box_headers()
1527{
1528 k_box_start("Header");
1529 k_box_line("Header Files");
1530 k_box_end();
1531}
1532
1533/** Makes internal function box. */
1534void k_box_intfuncs()
1535{
1536 k_box_start("IntFunc");
1537 k_box_line("Internal Functions");
1538 k_box_end();
1539}
1540
1541/** Makes def/const box. */
1542void k_box_consts()
1543{
1544 k_box_start("Const");
1545 k_box_line("Defined Constants And Macros");
1546 k_box_end();
1547}
1548
1549/** Structure box */
1550void k_box_structs()
1551{
1552 k_box_start("Struct");
1553 k_box_line("Structures and Typedefs");
1554 k_box_end();
1555}
1556
1557/** Makes exported symbols box. */
1558void k_box_exported()
1559{
1560 k_box_start('Exported');
1561 k_box_line('Exported Symbols');
1562 k_box_end();
1563}
1564
1565/** oneliner comment */
1566void k_oneliner()
1567{
1568 _str sLeft, sRight;
1569 int iColumn;
1570 if ( k_commentconfig(sLeft, sRight, iColumn)
1571 && iColumn > 0)
1572 { /* column based needs some tricky repositioning. */
1573 _end_line();
1574 if (p_col > iColumn)
1575 {
1576 _begin_line();
1577 _insert_text("\n\r");
1578 up();
1579 }
1580 }
1581 k_insert_comment("", KIC_CURSOR_AT_END, ikStyleOneliner);
1582}
1583
1584/** mark line as modified. */
1585void k_mark_modified_line()
1586{
1587 /* not supported for column based sources */
1588 _str sLeft, sRight;
1589 int iColumn;
1590 if ( !k_commentconfig(sLeft, sRight, iColumn)
1591 || iColumn > 0)
1592 return;
1593 _str sStr;
1594 if (skChange != '')
1595 sStr = skChange ' (' skUserInitials ')';
1596 else
1597 sStr = skUserInitials;
1598 k_insert_comment(sStr, KIC_CURSOR_BEFORE, ikStyleModifyMarkColumn);
1599 down();
1600}
1601
1602/**
1603 * Inserts a signature. Form: "//Initials ISO-date:"
1604 * @remark defeventtab
1605 */
1606void k_signature()
1607{
1608 /* kso I5-10000 2002-09-10: */
1609 _str sSig;
1610 if (skChange != '')
1611 sSig = skUserInitials ' ' skChange ' ' k_date() ': ';
1612 else
1613 sSig = skUserInitials ' ' k_date() ': ';
1614 k_insert_comment(sSig, KIC_CURSOR_AT_END);
1615}
1616
1617/* Insert a list of NOREF() macro invocations. */
1618void k_noref()
1619{
1620 typeless org_pos;
1621 _save_pos2(org_pos);
1622
1623 _str sNoRefs = '';
1624 boolean fFoundFn = !k_func_goto_nearest_function();
1625 if (fFoundFn)
1626 {
1627 _str sArgs = k_func_getparams();
1628 int cArgs = k_func_countparams(sArgs);
1629 int i;
1630 int offLine = 4;
1631 for (i = 0; i < cArgs; i++)
1632 {
1633 _str sName, sType, sDefault;
1634 if (!k_func_enumparams(sArgs, i, sType, sName, sDefault))
1635 {
1636 sThis = 'NOREF(' sName ');';
1637 if (length(sNoRefs) == 0)
1638 {
1639 sNoRefs = sThis;
1640 offLine += length(sThis);
1641 }
1642 else if (offLine + length(sThis) < 130)
1643 {
1644 sNoRefs = sNoRefs ' ' sThis;
1645 offLine += 1 + length(sThis);
1646 }
1647 else
1648 {
1649 sNoRefs = sNoRefs "\n " sThis;
1650 offLine = 4 + length(sThis);
1651 }
1652 }
1653 }
1654 }
1655
1656 _restore_pos2(org_pos);
1657 _insert_text(sNoRefs);
1658}
1659
1660/*******************************************************************************
1661* kLIB Logging *
1662*******************************************************************************/
1663/**
1664 * Hot-Key: Inserts a KLOGENTRY statement at start of nearest function.
1665 */
1666void klib_klogentry()
1667{
1668 typeless org_pos;
1669 _save_pos2(org_pos);
1670
1671 /*
1672 * Go to nearest function.
1673 */
1674 if (!k_func_goto_nearest_function())
1675 {
1676 /*
1677 * Get parameters.
1678 */
1679 _str sParams = k_func_getparams();
1680 if (sParams)
1681 {
1682 _str sRetType = k_func_getreturntype(true);
1683 if (!sRetType || sRetType == "")
1684 sRetType = "void"; /* paranoia! */
1685
1686 /*
1687 * Insert text.
1688 */
1689 if (!k_func_searchcode("{"))
1690 {
1691 p_col++;
1692 int cArgs = k_func_countparams(sParams);
1693 if (cArgs > 0)
1694 {
1695 _str sArgs = "";
1696 int i;
1697 for (i = 0; i < cArgs; i++)
1698 {
1699 _str sType, sName, sDefault;
1700 if (!k_func_enumparams(sParams, i, sType, sName, sDefault))
1701 sArgs = sArgs', 'sName;
1702 }
1703
1704 _insert_text("\n KLOGENTRY"cArgs"(\""sRetType"\",\""sParams"\""sArgs");"); /* todo tab size.. or smart indent */
1705 }
1706 else
1707 _insert_text("\n KLOGENTRY0(\""sRetType"\");"); /* todo tab size.. or smart indent */
1708
1709 /*
1710 * Check if the next word is KLOGENTRY.
1711 */
1712 next_word();
1713 if (def_next_word_style == 'E')
1714 prev_word();
1715 int iIgnorePos = 0;
1716 if (substr(cur_word(iIgnorePos), 1, 9) == "KLOGENTRY")
1717 delete_line();
1718
1719 }
1720 else
1721 message("didn't find {");
1722 }
1723 else
1724 message("k_func_getparams failed, sParams=" sParams);
1725 return;
1726 }
1727
1728 _restore_pos2(org_pos);
1729}
1730
1731
1732/**
1733 * Hot-Key: Inserts a KLOGEXIT statement at cursor location.
1734 */
1735void klib_klogexit()
1736{
1737 typeless org_pos;
1738 _save_pos2(org_pos);
1739
1740 /*
1741 * Go to nearest function.
1742 */
1743 if (!prev_proc())
1744 {
1745 /*
1746 * Get parameters.
1747 */
1748 _str sType = k_func_getreturntype(true);
1749 _restore_pos2(org_pos);
1750 if (sType)
1751 {
1752 boolean fReturn = true; /* true if an return statment is following the KLOGEXIT statement. */
1753
1754 /*
1755 * Insert text.
1756 */
1757 int cur_col = p_col;
1758 if (sType == 'void' || sType == 'VOID')
1759 { /* procedure */
1760 int iIgnorePos;
1761 fReturn = cur_word(iIgnorePos) == 'return';
1762 if (!fReturn)
1763 {
1764 while (p_col <= p_SyntaxIndent)
1765 keyin(" ");
1766 }
1767
1768 _insert_text("KLOGEXITVOID();\n");
1769
1770 if (fReturn)
1771 {
1772 int i;
1773 for (i = 1; i < cur_col; i++)
1774 _insert_text(" ");
1775 }
1776 search(")","E-");
1777 }
1778 else
1779 { /* function */
1780 _insert_text("KLOGEXIT();\n");
1781 int i;
1782 for (i = 1; i < cur_col; i++)
1783 _insert_text(" ");
1784 search(")","E-");
1785
1786 /*
1787 * Insert value if possible.
1788 */
1789 typeless valuepos;
1790 _save_pos2(valuepos);
1791 next_word();
1792 if (def_next_word_style == 'E')
1793 prev_word();
1794 int iIgnorePos;
1795 if (cur_word(iIgnorePos) == 'return')
1796 {
1797 p_col += length('return');
1798 typeless posStart;
1799 _save_pos2(posStart);
1800 long offStart = _QROffset();
1801 if (!k_func_searchcode(";", "E+"))
1802 {
1803 long offEnd = _QROffset();
1804 _restore_pos2(posStart);
1805 _str sValue = strip(get_text((int)(offEnd - offStart)));
1806 //say 'sValue = 'sValue;
1807 _restore_pos2(valuepos);
1808 _save_pos2(valuepos);
1809 _insert_text(sValue);
1810 }
1811 }
1812 _restore_pos2(valuepos);
1813 }
1814
1815 /*
1816 * Remove old KLOGEXIT statement on previous line if any.
1817 */
1818 typeless valuepos;
1819 _save_pos2(valuepos);
1820 int newexitline = p_line;
1821 p_line--; p_col = 1;
1822 next_word();
1823 if (def_next_word_style == 'E')
1824 prev_word();
1825 int iIgnorePos;
1826 if (p_line == newexitline - 1 && substr(cur_word(iIgnorePos), 1, 8) == 'KLOGEXIT')
1827 delete_line();
1828 _restore_pos2(valuepos);
1829
1830 /*
1831 * Check for missing '{...}'.
1832 */
1833 if (fReturn)
1834 {
1835 boolean fFound = false;
1836 _save_pos2(valuepos);
1837 p_col--; find_matching_paren(); p_col += 2;
1838 k_func_searchcode(';', 'E+'); /* places us at the ';' of the return. (hopefully) */
1839
1840 _str ch = k_func_get_next_code_text();
1841 if (ch != '}')
1842 {
1843 _restore_pos2(valuepos);
1844 _save_pos2(valuepos);
1845 p_col--; find_matching_paren(); p_col += 2;
1846 k_func_searchcode(';', 'E+'); /* places us at the ';' of the return. (hopefully) */
1847 p_col++;
1848 if (k_func_more_code_on_line())
1849 _insert_text(' }');
1850 else
1851 {
1852 typeless returnget;
1853 _save_pos2(returnget);
1854 k_func_searchcode("return", "E-");
1855 int return_col = p_col;
1856 _restore_pos2(returnget);
1857
1858 end_line();
1859 _insert_text("\n");
1860 while (p_col < return_col - p_SyntaxIndent)
1861 _insert_text(' ');
1862 _insert_text('}');
1863 }
1864
1865 _restore_pos2(valuepos);
1866 _save_pos2(valuepos);
1867 prev_word();
1868 p_col -= p_SyntaxIndent;
1869 int codecol = p_col;
1870 _insert_text("{\n");
1871 while (p_col < codecol)
1872 _insert_text(' ');
1873 }
1874
1875 _restore_pos2(valuepos);
1876 }
1877 }
1878 else
1879 message("k_func_getreturntype failed, sType=" sType);
1880 return;
1881 }
1882
1883 _restore_pos2(org_pos);
1884}
1885
1886
1887/**
1888 * Processes a file - ask user all the time.
1889 */
1890void klib_klog_file_ask()
1891{
1892 klib_klog_file_int(true);
1893}
1894
1895
1896/**
1897 * Processes a file - no questions.
1898 */
1899void klib_klog_file_no_ask()
1900{
1901 klib_klog_file_int(false);
1902}
1903
1904
1905
1906/**
1907 * Processes a file.
1908 */
1909static void klib_klog_file_int(boolean fAsk)
1910{
1911 show_all();
1912 bottom();
1913 _refresh_scroll();
1914
1915 /* ask question so we can get to the right position somehow.. */
1916 if (fAsk && _message_box("kLog process this file?", "Visual SlickEdit", MB_YESNO | MB_ICONQUESTION) != IDYES)
1917 return;
1918
1919 /*
1920 * Entries.
1921 */
1922 while (!prev_proc())
1923 {
1924 //say 'entry main loop: ' k_func_getfunction_name();
1925
1926 /*
1927 * Skip prototypes.
1928 */
1929 if (k_func_prototype())
1930 continue;
1931
1932 /*
1933 * Ask user.
1934 */
1935 center_line();
1936 _refresh_scroll();
1937 _str sFunction = k_func_getfunction_name();
1938 rc = fAsk ? _message_box("Process this function ("sFunction")?", "Visual SlickEdit", MB_YESNOCANCEL | MB_ICONQUESTION) : IDYES;
1939 if (rc == IDYES)
1940 {
1941 typeless procpos;
1942 _save_pos2(procpos);
1943 klib_klogentry();
1944 _restore_pos2(procpos);
1945 }
1946 else if (rc == IDNO)
1947 continue;
1948 else
1949 break;
1950 }
1951
1952 /*
1953 * Exits.
1954 */
1955 bottom(); _refresh_scroll();
1956 boolean fUserCancel = false;
1957 while (!prev_proc() && !fUserCancel)
1958 {
1959 typeless procpos;
1960 _save_pos2(procpos);
1961 _str sCurFunction = k_func_getfunction_name();
1962 //say 'exit main loop: ' sCurFunction
1963
1964 /*
1965 * Skip prototypes.
1966 */
1967 if (k_func_prototype())
1968 continue;
1969
1970 /*
1971 * Select procedure.
1972 */
1973 while ( !k_func_searchcode("return", "WE<+")
1974 && k_func_getfunction_name() == sCurFunction)
1975 {
1976 //say 'exit sub loop: ' p_line
1977 /*
1978 * Ask User.
1979 */
1980 center_line();
1981 _refresh_scroll();
1982 _str sFunction = k_func_getfunction_name();
1983 rc = fAsk ? _message_box("Process this exit from "sFunction"?", "Visual SlickEdit", MB_YESNOCANCEL | MB_ICONQUESTION) : IDYES;
1984 deselect();
1985 if (rc == IDYES)
1986 {
1987 typeless returnpos;
1988 _save_pos2(returnpos);
1989 klib_klogexit();
1990 _restore_pos2(returnpos);
1991 p_line++;
1992 }
1993 else if (rc != IDNO)
1994 {
1995 fUserCancel = true;
1996 break;
1997 }
1998 p_line++; /* just so we won't hit it again. */
1999 }
2000
2001 /*
2002 * If void function we'll have to check if there is and return; prior to the ending '}'.
2003 */
2004 _restore_pos2(procpos);
2005 _save_pos2(procpos);
2006 _str sType = k_func_getreturntype(true);
2007 if (!fUserCancel && sType && (sType == 'void' || sType == 'VOID'))
2008 {
2009 if ( !k_func_searchcode("{", "E+")
2010 && !find_matching_paren())
2011 {
2012 typeless funcend;
2013 _save_pos2(funcend);
2014 prev_word();
2015 int iIgnorePos;
2016 if (cur_word(iIgnorePos) != "return")
2017 {
2018 /*
2019 * Ask User.
2020 */
2021 _restore_pos2(funcend);
2022 center_line();
2023 _refresh_scroll();
2024 _str sFunction = k_func_getfunction_name();
2025 rc = fAsk ? _message_box("Process this exit from "sFunction"?", "Visual SlickEdit", MB_YESNOCANCEL | MB_ICONQUESTION) : IDYES;
2026 deselect();
2027 if (rc == IDYES)
2028 {
2029 typeless returnpos;
2030 _save_pos2(returnpos);
2031 klib_klogexit();
2032 _restore_pos2(returnpos);
2033 }
2034 }
2035 }
2036 }
2037
2038 /*
2039 * Next proc.
2040 */
2041 _restore_pos2(procpos);
2042 }
2043}
2044
2045/** @todo move to kkeys.e */
2046_command void k_rebuild_tagfile()
2047{
2048#if 1 /*__VERSION__ < 14.0*/
2049 if (file_match('-p 'maybe_quote_filename(strip_filename(_project_name,'e'):+TAG_FILE_EXT),1) != "")
2050 _project_update_files_retag(false, false, false, false);
2051 else
2052 _project_update_files_retag(true, false, false, true);
2053#else
2054 _str sArgs = "-refs=on";
2055 if (file_match('-p 'maybe_quote_filename(strip_filename(_project_name,'e'):+TAG_FILE_EXT),1) != "")
2056 sArgs = sArgs :+ " -retag";
2057 sArgs = sArgs :+ " " :+ _workspace_filename;
2058 build_workspace_tagfiles(sArgs);
2059#endif
2060}
2061
2062
2063/*******************************************************************************
2064* Styles *
2065*******************************************************************************/
2066static _str StyleLanguages[] =
2067{
2068 "c",
2069 "e",
2070 "java"
2071};
2072
2073struct StyleScheme
2074{
2075 _str name;
2076 _str settings[];
2077};
2078
2079static StyleScheme StyleSchemes[] =
2080{
2081 {
2082 "Opt2Ind4",
2083 {
2084 "orig_tabsize=4",
2085 "syntax_indent=4",
2086 "tabsize=4",
2087 "align_on_equal=1",
2088 "pad_condition_state=1",
2089 "indent_with_tabs=0",
2090 "nospace_before_paren=0",
2091 "indent_comments=1",
2092 "indent_case=1",
2093 "statement_comment_col=0",
2094 "disable_bestyle=0",
2095 "decl_comment_col=0",
2096 "bestyle_on_functions=0",
2097 "use_relative_indent=1",
2098 "nospace_before_brace=0",
2099 "indent_fl=1",
2100 "statement_comment_state=2",
2101 "indent_pp=1",
2102 "be_style=1",
2103 "parens_on_return=0",
2104 "eat_blank_lines=0",
2105 "brace_indent=0",
2106 "eat_pp_space=1",
2107 "align_on_parens=1",
2108 "continuation_indent=0",
2109 "cuddle_else=0",
2110 "nopad_condition=1",
2111 "pad_condition=0",
2112 "indent_col1_comments=0"
2113 }
2114 }
2115 ,
2116 {
2117 "Opt2Ind3",
2118 {
2119 "orig_tabsize=3",
2120 "syntax_indent=3",
2121 "tabsize=3",
2122 "align_on_equal=1",
2123 "pad_condition_state=1",
2124 "indent_with_tabs=0",
2125 "nospace_before_paren=0",
2126 "indent_comments=1",
2127 "indent_case=1",
2128 "statement_comment_col=0",
2129 "disable_bestyle=0",
2130 "decl_comment_col=0",
2131 "bestyle_on_functions=0",
2132 "use_relative_indent=1",
2133 "nospace_before_brace=0",
2134 "indent_fl=1",
2135 "statement_comment_state=2",
2136 "indent_pp=1",
2137 "be_style=1",
2138 "parens_on_return=0",
2139 "eat_blank_lines=0",
2140 "brace_indent=0",
2141 "eat_pp_space=1",
2142 "align_on_parens=1",
2143 "continuation_indent=0",
2144 "cuddle_else=0",
2145 "nopad_condition=1",
2146 "pad_condition=0",
2147 "indent_col1_comments=0"
2148 }
2149 }
2150 ,
2151 {
2152 "Opt2Ind8",
2153 {
2154 "orig_tabsize=8",
2155 "syntax_indent=8",
2156 "tabsize=8",
2157 "align_on_equal=1",
2158 "pad_condition_state=1",
2159 "indent_with_tabs=0",
2160 "nospace_before_paren=0",
2161 "indent_comments=1",
2162 "indent_case=1",
2163 "statement_comment_col=0",
2164 "disable_bestyle=0",
2165 "decl_comment_col=0",
2166 "bestyle_on_functions=0",
2167 "use_relative_indent=1",
2168 "nospace_before_brace=0",
2169 "indent_fl=1",
2170 "statement_comment_state=2",
2171 "indent_pp=1",
2172 "be_style=1",
2173 "parens_on_return=0",
2174 "eat_blank_lines=0",
2175 "brace_indent=0",
2176 "eat_pp_space=1",
2177 "align_on_parens=1",
2178 "continuation_indent=0",
2179 "cuddle_else=0",
2180 "nopad_condition=1",
2181 "pad_condition=0",
2182 "indent_col1_comments=0"
2183 }
2184 }
2185 ,
2186 {
2187 "Opt3Ind4",
2188 {
2189 "orig_tabsize=4",
2190 "syntax_indent=4",
2191 "tabsize=4",
2192 "align_on_equal=1",
2193 "pad_condition_state=1",
2194 "indent_with_tabs=0",
2195 "nospace_before_paren=0",
2196 "indent_comments=1",
2197 "indent_case=1",
2198 "statement_comment_col=0",
2199 "disable_bestyle=0",
2200 "decl_comment_col=0",
2201 "bestyle_on_functions=0",
2202 "use_relative_indent=1",
2203 "nospace_before_brace=0",
2204 "indent_fl=1",
2205 "statement_comment_state=2",
2206 "indent_pp=1",
2207 "be_style=2",
2208 "parens_on_return=0",
2209 "eat_blank_lines=0",
2210 "brace_indent=0",
2211 "eat_pp_space=1",
2212 "align_on_parens=1",
2213 "continuation_indent=0",
2214 "cuddle_else=0",
2215 "nopad_condition=1",
2216 "pad_condition=0",
2217 "indent_col1_comments=0"
2218 }
2219 }
2220 ,
2221 {
2222 "Opt3Ind3",
2223 {
2224 "orig_tabsize=3",
2225 "syntax_indent=3",
2226 "tabsize=3",
2227 "align_on_equal=1",
2228 "pad_condition_state=1",
2229 "indent_with_tabs=0",
2230 "nospace_before_paren=0",
2231 "indent_comments=1",
2232 "indent_case=1",
2233 "statement_comment_col=0",
2234 "disable_bestyle=0",
2235 "decl_comment_col=0",
2236 "bestyle_on_functions=0",
2237 "use_relative_indent=1",
2238 "nospace_before_brace=0",
2239 "indent_fl=1",
2240 "statement_comment_state=2",
2241 "indent_pp=1",
2242 "be_style=2",
2243 "parens_on_return=0",
2244 "eat_blank_lines=0",
2245 "brace_indent=0",
2246 "eat_pp_space=1",
2247 "align_on_parens=1",
2248 "continuation_indent=0",
2249 "cuddle_else=0",
2250 "nopad_condition=1",
2251 "pad_condition=0",
2252 "indent_col1_comments=0"
2253 }
2254 }
2255};
2256
2257
2258static void k_styles_create()
2259{
2260 /*
2261 * Find user format ini file.
2262 */
2263 _str userini = maybe_quote_filename(_config_path():+'uformat.ini');
2264 if (file_match('-p 'userini, 1) == '')
2265 {
2266 _str ini = maybe_quote_filename(slick_path_search('uformat.ini'));
2267 if (ini != '') userini = ini;
2268 }
2269
2270
2271 /*
2272 * Remove any old schemes.
2273 */
2274 int i,j,tv;
2275 for (i = 0; i < StyleSchemes._length(); i++)
2276 for (j = 0; j < StyleLanguages._length(); j++)
2277 {
2278 _str sectionname = StyleLanguages[j]:+'-scheme-':+StyleSchemes[i].name;
2279 if (!_ini_get_section(userini, sectionname, tv))
2280 {
2281 _ini_delete_section(userini, sectionname);
2282 _delete_temp_view(tv);
2283 //message("delete old scheme");
2284 }
2285 }
2286
2287 /*
2288 * Create the new schemes.
2289 */
2290 for (i = 0; i < StyleSchemes._length(); i++)
2291 {
2292 for (j = 0; j < StyleLanguages._length(); j++)
2293 {
2294 _str sectionname = StyleLanguages[j]:+'-scheme-':+StyleSchemes[i].name;
2295 int temp_view_id, k;
2296 _str orig_view_id = _create_temp_view(temp_view_id);
2297 activate_view(temp_view_id);
2298 for (k = 0; k < StyleSchemes[i].settings._length(); k++)
2299 insert_line(StyleSchemes[i].settings[k]);
2300
2301 /* Insert the scheme section. */
2302 _ini_replace_section(userini, sectionname, temp_view_id);
2303 //message(userini)
2304 //bogus id - activate_view(orig_view_id);
2305 }
2306 }
2307
2308 //last_scheme = last scheme name!!!
2309}
2310
2311
2312/*
2313 * Sets the last used beutify scheme.
2314 */
2315static k_styles_set(_str scheme)
2316{
2317
2318 /*
2319 * Find user format ini file.
2320 */
2321 _str userini = maybe_quote_filename(_config_path():+'uformat.ini');
2322 if (file_match('-p 'userini, 1) == '')
2323 {
2324 _str ini = maybe_quote_filename(slick_path_search('uformat.ini'));
2325 if (ini != '') userini = ini;
2326 }
2327
2328 /*
2329 * Set the scheme for each language.
2330 */
2331 int j;
2332 for (j = 0; j < StyleLanguages._length(); j++)
2333 {
2334 _ini_set_value(userini,
2335 StyleLanguages[j]:+'-scheme-Default',
2336 'last_scheme',
2337 scheme);
2338 }
2339}
2340
2341
2342static _str defoptions[] =
2343{
2344 "def-options-sas",
2345 "def-options-js",
2346 "def-options-bat",
2347 "def-options-c",
2348 "def-options-pas",
2349 "def-options-e",
2350 "def-options-java",
2351 "def-options-bourneshell",
2352 "def-options-csh",
2353 "def-options-vlx",
2354 "def-options-plsql",
2355 "def-options-sqlserver",
2356 "def-options-cmd"
2357};
2358
2359static _str defsetups[] =
2360{
2361 "def-setup-sas",
2362 "def-setup-js",
2363 "def-setup-bat",
2364 "def-setup-fundamental",
2365 "def-setup-process",
2366 "def-setup-c",
2367 "def-setup-pas",
2368 "def-setup-e",
2369 "def-setup-asm",
2370 "def-setup-java",
2371 "def-setup-html",
2372 "def-setup-bourneshell",
2373 "def-setup-csh",
2374 "def-setup-vlx",
2375 "def-setup-fileman",
2376 "def-setup-plsql",
2377 "def-setup-sqlserver",
2378 "def-setup-s",
2379 "def-setup-cmd"
2380};
2381
2382static _str defsetupstab8[] =
2383{
2384 "def-setup-c"
2385};
2386
2387
2388static void k_styles_setindent(int indent, int iBraceStyle, boolean iWithTabs = false)
2389{
2390 if (iBraceStyle < 1 || iBraceStyle > 3)
2391 {
2392 message('k_styles_setindent: iBraceStyle is bad (=' :+ iBraceStyle :+ ')');
2393 iBraceStyle = 2;
2394 }
2395
2396 /*
2397 * def-options for extentions known to have that info.
2398 */
2399 int i;
2400 for (i = 0; i < defoptions._length(); i++)
2401 {
2402 int idx = find_index(defoptions[i], MISC_TYPE);
2403 if (!idx)
2404 continue;
2405
2406 parse name_info(idx) with syntax_indent o2 o3 o4 flags indent_fl o7 indent_case rest;
2407
2408 /* Begin/end style */
2409 flags = flags & ~(1|2);
2410 flags = flags | (iBraceStyle - 1); /* Set style (0-based) */
2411 flags = flags & ~(16); /* no scape before parent.*/
2412 indent_fl = 1; /* Indent first level */
2413 indent_case = 1; /* Indent case from switch */
2414
2415 sNewOptions = indent' 'o2' 'o3' 'o4' 'flags' 'indent_fl' 'o7' 'indent_case' 'rest;
2416 set_name_info(idx, sNewOptions);
2417 _config_modify |= CFGMODIFY_DEFDATA;
2418 }
2419
2420 /*
2421 * def-setup for known extentions.
2422 */
2423 for (i = 0; i < defsetups._length(); i++)
2424 {
2425 idx = find_index(defsetups[i], MISC_TYPE);
2426 if (!idx)
2427 continue;
2428 sExt = substr(defsetups[i], length('def-setup-') + 1);
2429 sSetup = name_info(idx);
2430
2431 /*
2432 parse sSetup with 'MN=' mode_name ','\
2433 'TABS=' tabs ',' 'MA=' margins ',' 'KEYTAB=' keytab_name ','\
2434 'WW='word_wrap_style ',' 'IWT='indent_with_tabs ','\
2435 'ST='show_tabs ',' 'IN='indent_style ','\
2436 'WC='word_chars',' 'LN='lexer_name',' 'CF='color_flags','\
2437 'LNL='line_numbers_len','rest;
2438
2439 indent_with_tabs = 0; /* Indent with tabs */
2440
2441 /* Make sure all the values are legal */
2442 _ext_init_values(ext, lexer_name, color_flags);
2443 if (!isinteger(line_numbers_len)) line_numbers_len = 0;
2444 if (word_chars == '') word_chars = 'A-Za-z0-9_$';
2445 if (word_wrap_style == '') word_wrap_style = 3;
2446 if (show_tabs == '') show_tabs = 0;
2447 if (indent_style == '') indent_style = INDENT_SMART;
2448
2449 /* Set new indent */
2450 tabs = '+'indent;
2451 */
2452
2453 sNewSetup = sSetup;
2454
2455 /* Set new indent */
2456 if (pos('TABS=', sNewSetup) > 0)
2457 {
2458 /*
2459 * If either in defoptions or defsetupstab8 use default tab of 8
2460 * For those supporting separate syntax indent using the normal tabsize
2461 * helps us a lot when reading it...
2462 */
2463 fTab8 = false;
2464 for (j = 0; !fTab8 && j < defsetupstab8._length(); j++)
2465 if (substr(defsetupstab8[j], lastpos('-', defsetupstab8[j]) + 1) == sExt)
2466 fTab8 = true;
2467 for (j = 0; !fTab8 && j < defoptions._length(); j++)
2468 if (substr(defoptions[j], lastpos('-', defoptions[j]) + 1) == sExt)
2469 fTab8 = true;
2470
2471 parse sNewSetup with sPre 'TABS=' sValue ',' sPost;
2472 if (fTab8)
2473 sNewSetup = sPre 'TABS=+8,' sPost
2474 else
2475 sNewSetup = sPre 'TABS=+' indent ',' sPost
2476 }
2477
2478 /* Set indent with tabs flag. */
2479 if (pos('IWT=', sNewSetup) > 0)
2480 {
2481 parse sNewSetup with sPre 'IWT=' sValue ',' sPost;
2482 if (iWithTabs)
2483 sNewSetup = sPre 'IWT=1,' sPost
2484 else
2485 sNewSetup = sPre 'IWT=0,' sPost
2486 }
2487
2488 /* Do the real changes */
2489 set_name_info(idx, sNewSetup);
2490 _config_modify |= CFGMODIFY_DEFDATA;
2491 _update_buffers(sExt);
2492 }
2493}
2494
2495
2496/**
2497 * Takes necessary steps to convert a string to integer.
2498 */
2499static int k_style_emacs_var_integer(_str sVal)
2500{
2501 int i = (int)sVal;
2502 //say 'k_style_emacs_var_integer('sVal') -> 'i;
2503 return (int)sVal;
2504}
2505
2506
2507/**
2508 * Sets a Emacs style variable.
2509 */
2510static int k_style_emacs_var(_str sVar, _str sVal)
2511{
2512 /* check input. */
2513 if (sVar == '' || sVal == '')
2514 return -1;
2515 //say 'k_style_emacs_var: 'sVar'='sVal;
2516
2517#if __VERSION__ >= 21.0
2518 /** @todo figure out p_index. */
2519 return 0;
2520#else
2521
2522 /*
2523 * Unpack the mode style parameters.
2524 */
2525 _str sStyle = name_info(_edit_window().p_index);
2526 _str sStyleName = p_mode_name;
2527 typeless iIndentAmount, fExpansion, iMinAbbrivation, fIndentAfterOpenParen, iBeginEndStyle, fIndent1stLevel, iMainStyle, iSwitchStyle,
2528 sRest, sRes0, sRes1;
2529 if (sStyleName == 'Slick-C')
2530 {
2531 parse sStyle with iMinAbbrivation sRes0 iBeginEndStyle fIndent1stLevel sRes1 iSwitchStyle sRest;
2532 iIndentAmount = p_SyntaxIndent;
2533 }
2534 else /* C */
2535 parse sStyle with iIndentAmount fExpansion iMinAbbrivation fIndentAfterOpenParen iBeginEndStyle fIndent1stLevel iMainStyle iSwitchStyle sRest;
2536
2537
2538 /*
2539 * Process the variable.
2540 */
2541 switch (sVar)
2542 {
2543 case 'mode':
2544 case 'Mode':
2545 {
2546 switch (sVal)
2547 {
2548 case 'c':
2549 case 'C':
2550 case 'c++':
2551 case 'C++':
2552 case 'cpp':
2553 case 'CPP':
2554 case 'cxx':
2555 case 'CXX':
2556 p_extension = 'c';
2557 p_mode_name = 'C';
2558 break;
2559
2560 case 'e':
2561 case 'slick-c':
2562 case 'Slick-c':
2563 case 'Slick-C':
2564 p_extension = 'e';
2565 p_mode_name = 'Slick-C';
2566 break;
2567
2568 default:
2569 message('emacs mode "'sVal'" is not known to us');
2570 return -3;
2571 }
2572 break;
2573 }
2574/* relevant emacs code:
2575(defconst c-style-alist
2576 '(("gnu"
2577 (c-basic-offset . 2)
2578 (c-comment-only-line-offset . (0 . 0))
2579 (c-offsets-alist . ((statement-block-intro . +)
2580 (knr-argdecl-intro . 5)
2581 (substatement-open . +)
2582 (label . 0)
2583 (statement-case-open . +)
2584 (statement-cont . +)
2585 (arglist-intro . c-lineup-arglist-intro-after-paren)
2586 (arglist-close . c-lineup-arglist)
2587 (inline-open . 0)
2588 (brace-list-open . +)
2589 ))
2590 (c-special-indent-hook . c-gnu-impose-minimum)
2591 (c-block-comment-prefix . "")
2592 )
2593 ("k&r"
2594 (c-basic-offset . 5)
2595 (c-comment-only-line-offset . 0)
2596 (c-offsets-alist . ((statement-block-intro . +)
2597 (knr-argdecl-intro . 0)
2598 (substatement-open . 0)
2599 (label . 0)
2600 (statement-cont . +)
2601 ))
2602 )
2603 ("bsd"
2604 (c-basic-offset . 8)
2605 (c-comment-only-line-offset . 0)
2606 (c-offsets-alist . ((statement-block-intro . +)
2607 (knr-argdecl-intro . +)
2608 (substatement-open . 0)
2609 (label . 0)
2610 (statement-cont . +)
2611 (inline-open . 0)
2612 (inexpr-class . 0)
2613 ))
2614 )
2615 ("stroustrup"
2616 (c-basic-offset . 4)
2617 (c-comment-only-line-offset . 0)
2618 (c-offsets-alist . ((statement-block-intro . +)
2619 (substatement-open . 0)
2620 (label . 0)
2621 (statement-cont . +)
2622 ))
2623 )
2624 ("whitesmith"
2625 (c-basic-offset . 4)
2626 (c-comment-only-line-offset . 0)
2627 (c-offsets-alist . ((knr-argdecl-intro . +)
2628 (label . 0)
2629 (statement-cont . +)
2630 (substatement-open . +)
2631 (block-open . +)
2632 (statement-block-intro . c-lineup-whitesmith-in-block)
2633 (block-close . c-lineup-whitesmith-in-block)
2634 (inline-open . +)
2635 (defun-open . +)
2636 (defun-block-intro . c-lineup-whitesmith-in-block)
2637 (defun-close . c-lineup-whitesmith-in-block)
2638 (brace-list-open . +)
2639 (brace-list-intro . c-lineup-whitesmith-in-block)
2640 (brace-entry-open . c-indent-multi-line-block)
2641 (brace-list-close . c-lineup-whitesmith-in-block)
2642 (class-open . +)
2643 (inclass . c-lineup-whitesmith-in-block)
2644 (class-close . +)
2645 (inexpr-class . 0)
2646 (extern-lang-open . +)
2647 (inextern-lang . c-lineup-whitesmith-in-block)
2648 (extern-lang-close . +)
2649 (namespace-open . +)
2650 (innamespace . c-lineup-whitesmith-in-block)
2651 (namespace-close . +)
2652 ))
2653 )
2654 ("ellemtel"
2655 (c-basic-offset . 3)
2656 (c-comment-only-line-offset . 0)
2657 (c-hanging-braces-alist . ((substatement-open before after)))
2658 (c-offsets-alist . ((topmost-intro . 0)
2659 (topmost-intro-cont . 0)
2660 (substatement . +)
2661 (substatement-open . 0)
2662 (case-label . +)
2663 (access-label . -)
2664 (inclass . ++)
2665 (inline-open . 0)
2666 ))
2667 )
2668 ("linux"
2669 (c-basic-offset . 8)
2670 (c-comment-only-line-offset . 0)
2671 (c-hanging-braces-alist . ((brace-list-open)
2672 (brace-entry-open)
2673 (substatement-open after)
2674 (block-close . c-snug-do-while)))
2675 (c-cleanup-list . (brace-else-brace))
2676 (c-offsets-alist . ((statement-block-intro . +)
2677 (knr-argdecl-intro . 0)
2678 (substatement-open . 0)
2679 (label . 0)
2680 (statement-cont . +)
2681 ))
2682 )
2683 ("python"
2684 (indent-tabs-mode . t)
2685 (fill-column . 78)
2686 (c-basic-offset . 8)
2687 (c-offsets-alist . ((substatement-open . 0)
2688 (inextern-lang . 0)
2689 (arglist-intro . +)
2690 (knr-argdecl-intro . +)
2691 ))
2692 (c-hanging-braces-alist . ((brace-list-open)
2693 (brace-list-intro)
2694 (brace-list-close)
2695 (brace-entry-open)
2696 (substatement-open after)
2697 (block-close . c-snug-do-while)
2698 ))
2699 (c-block-comment-prefix . "")
2700 )
2701 ("java"
2702 (c-basic-offset . 4)
2703 (c-comment-only-line-offset . (0 . 0))
2704 ;; the following preserves Javadoc starter lines
2705 (c-offsets-alist . ((inline-open . 0)
2706 (topmost-intro-cont . +)
2707 (statement-block-intro . +)
2708 (knr-argdecl-intro . 5)
2709 (substatement-open . +)
2710 (label . +)
2711 (statement-case-open . +)
2712 (statement-cont . +)
2713 (arglist-intro . c-lineup-arglist-intro-after-paren)
2714 (arglist-close . c-lineup-arglist)
2715 (access-label . 0)
2716 (inher-cont . c-lineup-java-inher)
2717 (func-decl-cont . c-lineup-java-throws)
2718 ))
2719 )
2720 )
2721*/
2722
2723 case 'c-file-style':
2724 case 'c-indentation-style':
2725 switch (sVal)
2726 {
2727 case 'bsd':
2728 case '"bsd"':
2729 case 'BSD':
2730 iBeginEndStyle = 1 | (iBeginEndStyle & ~3);
2731 p_indent_with_tabs = true;
2732 iIndentAmount = 8;
2733 p_SyntaxIndent = 8;
2734 p_tabs = "+8";
2735 //say 'bsd';
2736 break;
2737
2738 case 'k&r':
2739 case '"k&r"':
2740 case 'K&R':
2741 iBeginEndStyle = 0 | (iBeginEndStyle & ~3);
2742 p_indent_with_tabs = false;
2743 iIndentAmount = 4;
2744 p_SyntaxIndent = 4;
2745 p_tabs = "+4";
2746 //say 'k&r';
2747 break;
2748
2749 case 'linux-c':
2750 case '"linux-c"':
2751 iBeginEndStyle = 0 | (iBeginEndStyle & ~3);
2752 p_indent_with_tabs = true;
2753 iIndentAmount = 4;
2754 p_SyntaxIndent = 4;
2755 p_tabs = "+4";
2756 //say 'linux-c';
2757 break;
2758
2759 case 'yet-to-be-found':
2760 iBeginEndStyle = 2 | (iBeginEndStyle & ~3);
2761 p_indent_with_tabs = false;
2762 iIndentAmount = 4;
2763 p_SyntaxIndent = 4;
2764 p_tabs = "+4";
2765 //say 'todo';
2766 break;
2767
2768 default:
2769 message('emacs "'sVar'" value "'sVal'" is not known to us.');
2770 return -3;
2771 }
2772 break;
2773
2774 case 'c-label-offset':
2775 {
2776 int i = k_style_emacs_var_integer(sVal);
2777 if (i >= -16 && i <= 16)
2778 {
2779 if (i == -p_SyntaxIndent)
2780 iSwitchStyle = 0;
2781 else
2782 iSwitchStyle = 1;
2783 }
2784 break;
2785 }
2786
2787
2788 case 'indent-tabs-mode':
2789 p_indent_with_tabs = sVal == 't';
2790 break;
2791
2792 case 'c-indent-level':
2793 case 'c-basic-offset':
2794 {
2795 int i = k_style_emacs_var_integer(sVal);
2796 if (i > 0 && i <= 16)
2797 {
2798 iIndentAmount = i;
2799 p_SyntaxIndent = i;
2800 }
2801 else
2802 {
2803 message('emacs "'sVar'" value "'sVal'" is out of range.');
2804 return -4;
2805 }
2806 break;
2807 }
2808
2809 case 'tab-width':
2810 {
2811 int i = k_style_emacs_var_integer(sVal);
2812 if (i > 0 && i <= 16)
2813 p_tabs = '+'i;
2814 else
2815 {
2816 message('emacs "'sVar'" value "'sVal'" is out of range.');
2817 return -4;
2818 }
2819 break;
2820 }
2821
2822 case 'nuke-trailing-whitespace-p':
2823 {
2824#if 0
2825 _str sName = 'def-koptions-'p_buf_id;
2826 int idx = insert_name(sName, MISC_TYPE, "kstyledoc");
2827 if (!idx)
2828 idx = find_index(sName, MISC_TYPE);
2829 if (idx)
2830 {
2831 if (sVal == 't')
2832 set_name_info(idx, "saveoptions: +S");
2833 else
2834 set_name_info(idx, "saveoptions: -S");
2835 say 'sVal=' sVal;
2836 }
2837#endif
2838 break;
2839 }
2840
2841 default:
2842 message('emacs variable "'sVar'" (value "'sVal'") is unknown to us.');
2843 return -5;
2844 }
2845
2846 /*
2847 * Update the style?
2848 */
2849 _str sNewStyle = "";
2850 if (sStyleName == 'Slick-C')
2851 sNewStyle = iMinAbbrivation' 'sRes0' 'iBeginEndStyle' 'fIndent1stLevel' 'sRes1' 'iSwitchStyle' 'sRest;
2852 else
2853 sNewStyle = iIndentAmount' 'fExpansion' 'iMinAbbrivation' 'fIndentAfterOpenParen' 'iBeginEndStyle' 'fIndent1stLevel' 'iMainStyle' 'iSwitchStyle' 'sRest;
2854 if ( sNewStyle != ""
2855 && sNewStyle != sStyle
2856 && sStyleName == p_mode_name)
2857 {
2858 _str sName = name_name(_edit_window().p_index)
2859 //say ' sStyle='sStyle' p_mode_name='p_mode_name;
2860 //say 'sNewStyle='sNewStyle' sName='sName;
2861 if (pos('kstyledoc-', sName) <= 0)
2862 {
2863 sName = 'def-kstyledoc-'p_buf_id;
2864 int idx = insert_name(sName, MISC_TYPE, "kstyledoc");
2865 if (!idx)
2866 idx = find_index(sName, MISC_TYPE);
2867 if (idx)
2868 {
2869 if (!set_name_info(idx, sNewStyle))
2870 _edit_window().p_index = idx;
2871 }
2872 //say sName'='idx;
2873 }
2874 else
2875 set_name_info(_edit_window().p_index, sNewStyle);
2876 }
2877
2878 return 0;
2879#endif
2880}
2881
2882
2883/**
2884 * Parses a string with emacs variables.
2885 *
2886 * The variables are separated by new line. Junk at
2887 * the start and end of the line is ignored.
2888 */
2889static int k_style_emac_vars(_str sVars)
2890{
2891 /* process them line by line */
2892 int iLine = 0;
2893 while (sVars != '' && iLine++ < 20)
2894 {
2895 int iNext, iEnd;
2896 iEnd = iNext = pos("\n", sVars);
2897 if (iEnd <= 0)
2898 iEnd = iNext = length(sVars);
2899 else
2900 iEnd--;
2901 iNext++;
2902
2903 sLine = strip(substr(sVars, 1, iEnd), 'B', " \t\n\r");
2904 sVars = strip(substr(sVars, iNext), 'L', " \t\n\r");
2905 //say 'iLine='iLine' sVars='sVars'<eol>';
2906 //say 'iLine='iLine' sLine='sLine'<eol>';
2907 if (sLine != '')
2908 {
2909 rc = pos('[^a-zA-Z0-9-_]*([a-zA-Z0-9-_]+)[ \t]*:[ \t]*([^ \t]*)', sLine, 1, 'U');
2910 //say '0={'pos('S0')','pos('0')',"'substr(sLine,pos('S0'),pos('0'))'"'
2911 //say '1={'pos('S1')','pos('1')',"'substr(sLine,pos('S1'),pos('1'))'"'
2912 //say '2={'pos('S2')','pos('2')',"'substr(sLine,pos('S2'),pos('2'))'"'
2913 //say '3={'pos('S3')','pos('3')',"'substr(sLine,pos('S3'),pos('3'))'"'
2914 //say '4={'pos('S4')','pos('4')',"'substr(sLine,pos('S4'),pos('4'))'"'
2915 if (rc > 0)
2916 k_style_emacs_var(substr(sLine,pos('S1'),pos('1')),
2917 substr(sLine,pos('S2'),pos('2')));
2918 }
2919 }
2920 return 0;
2921}
2922
2923/**
2924 * Searches for Emacs style specification for the current document.
2925 */
2926void k_style_load()
2927{
2928 /* save the position before we start looking around the file. */
2929 typeless saved_pos;
2930 _save_pos2(saved_pos);
2931
2932 int rc;
2933
2934 /* Check first line. */
2935 top_of_buffer();
2936 _str sLine;
2937 get_line(sLine);
2938 strip(sLine);
2939 if (pos('-*-[ \t]+(.*:.*)[ \t]+-*-', sLine, 1, 'U'))
2940 {
2941 _str sVars;
2942 sVars = substr(sLine, pos('S1'), pos('1'));
2943 sVars = translate(sVars, "\n", ";");
2944 k_style_emac_vars(sVars);
2945 }
2946
2947 /* Look for the "Local Variables:" stuff from the end of the file. */
2948 bottom_of_buffer();
2949 rc = search('Local Variables:[ \t]*\n\om(.*)\ol\n.*End:.*\n', '-EU');
2950 if (!rc)
2951 {
2952 /* copy the variables out to a buffer. */
2953 _str sVars;
2954 sVars = get_text(match_length("1"), match_length("S1"));
2955 k_style_emac_vars(sVars);
2956 }
2957
2958 _restore_pos2(saved_pos);
2959}
2960
2961
2962/**
2963 * Callback function for the event of a new buffer.
2964 *
2965 * This is used to make sure there are no left over per buffer options
2966 * hanging around.
2967 */
2968void _buffer_add_kdev(int buf_id)
2969{
2970 _str sName = 'def-koptions-'buf_id;
2971 int idx = find_index(sName, MISC_TYPE);
2972 if (idx)
2973 delete_name(idx);
2974 //message("_buffer_add_kdev: " idx " name=" sName);
2975
2976 sName = 'def-kstyledoc-'buf_id;
2977 idx = find_index(sName, MISC_TYPE);
2978 if (idx)
2979 delete_name(idx);
2980
2981 //k_style_load();
2982}
2983
2984
2985/**
2986 * Callback function for the event of quitting a buffer.
2987 *
2988 * This is used to make sure there are no left over per buffer options
2989 * hanging around.
2990 */
2991void _cbquit2_kdev(int buf_id)
2992{
2993 _str sName = 'def-koptions-'buf_id;
2994 int idx = find_index(sName, MISC_TYPE);
2995 if (idx)
2996 delete_name(idx);
2997 //message("_cbquit2_kdev: " idx " " sName);
2998
2999 sName = 'def-kstyledoc-'buf_id;
3000 idx = find_index(sName, MISC_TYPE);
3001 if (idx)
3002 delete_name(idx);
3003}
3004
3005
3006/**
3007 * Called to get save options for the current buffer.
3008 *
3009 * This requires a modified loadsave.e!
3010 */
3011_str _buffer_save_kdev(int buf_id)
3012{
3013 _str sRet = ""
3014 _str sName = 'def-koptions-'buf_id;
3015 int idx = find_index(sName, MISC_TYPE);
3016 if (idx)
3017 {
3018 _str sOptions = strip(name_info(idx));
3019 if (sOptions != "")
3020 parse sOptions with . "saveoptions:" sRet .
3021 message("_buffer_save_kdev: " idx " " sName " " sOptions);
3022 }
3023 return sRet;
3024}
3025
3026
3027/**
3028 * Command similar to the add() command in math.e, only this
3029 * produces hex and doesn't do the multi line stuff.
3030 */
3031_command int k_calc()
3032{
3033 _str sLine;
3034 filter_init();
3035 typeless rc = filter_get_string(sLine);
3036 if (rc == 0)
3037 {
3038 _str sResultHex;
3039 rc = eval_exp(sResultHex, sLine, 16);
3040 if (rc == 0)
3041 {
3042 _str sResultDec;
3043 rc = eval_exp(sResultDec, sLine, 10);
3044 if (rc == 0)
3045 {
3046 _end_select();
3047 _insert_text(' = ' :+ sResultHex :+ ' (' :+ sResultDec :+ ')');
3048 return 0;
3049 }
3050 }
3051 }
3052
3053 if (isinteger(rc))
3054 message(get_message(rc));
3055 else
3056 message(rc);
3057 return 1;
3058}
3059
3060
3061
3062/*******************************************************************************
3063* Menu and Menu commands *
3064*******************************************************************************/
3065#ifdef KDEV_WITH_MENU
3066#if __VERSION__ < 18.0 /* Something with timers are busted, so excusing my code. */
3067static int iTimer = 0;
3068#endif
3069static int mhkDev = 0;
3070static int mhCode = 0;
3071static int mhDoc = 0;
3072static int mhLic = 0;
3073static int mhPre = 0;
3074
3075/*
3076 * Creates the kDev menu.
3077 */
3078static k_menu_create()
3079{
3080# if __VERSION__ < 18.0 /* Something with timers are busted, so excusing my code. */
3081 if (arg(1) == 'timer')
3082 _kill_timer(iTimer);
3083# endif
3084 menu_handle = _mdi.p_menu_handle;
3085 menu_index = find_index(_cur_mdi_menu,oi2type(OI_MENU));
3086
3087 /*
3088 * Remove any old menu.
3089 */
3090 mhDelete = iPos = 0;
3091 index = _menu_find(menu_handle, "kDev", mhDelete, iPos, 'C');
3092 //message("index="index " mhDelete="mhDelete " iPos="iPos);
3093 if (index == 0)
3094 _menu_delete(mhDelete, iPos);
3095
3096
3097 /*
3098 * Insert the "kDev" menu.
3099 */
3100 mhkDev = _menu_insert(menu_handle, 9, MF_SUBMENU, "&kDev", "", "kDev");
3101 mhCode=_menu_insert(mhkDev, -1, MF_ENABLED | MF_SUBMENU, "Coding &Style", "", "coding");
3102 rc = _menu_insert(mhCode, -1, MF_ENABLED | MF_UNCHECKED, "Braces 2, Syntax Indent 4 (knut)", "k_menu_style Opt2Ind4", "Opt2Ind4");
3103 rc = _menu_insert(mhCode, -1, MF_ENABLED | MF_UNCHECKED, "Braces 2, Syntax Indent 3", "k_menu_style Opt2Ind3", "Opt2Ind3");
3104 rc = _menu_insert(mhCode, -1, MF_ENABLED | MF_UNCHECKED, "Braces 2, Syntax Indent 8", "k_menu_style Opt2Ind8", "Opt2Ind8");
3105 rc = _menu_insert(mhCode, -1, MF_ENABLED | MF_UNCHECKED, "Braces 3, Syntax Indent 4 (giws)", "k_menu_style Opt3Ind4", "Opt3Ind4");
3106 rc = _menu_insert(mhCode, -1, MF_ENABLED | MF_UNCHECKED, "Braces 3, Syntax Indent 3 (giws)", "k_menu_style Opt3Ind3", "Opt3Ind3");
3107
3108 mhDoc= _menu_insert(mhkDev, -1, MF_ENABLED | MF_SUBMENU, "&Documentation", "", "doc");
3109 mhDSJ= _menu_insert(mhDoc, -1, MF_ENABLED | MF_UNCHECKED, "&Javadoc Style", "k_menu_doc_style javadoc", "javadoc");
3110 mhDSL= _menu_insert(mhDoc, -1, MF_GRAYED | MF_UNCHECKED, "&Linux Kernel Style", "k_menu_doc_style linux", "linux");
3111
3112 mhLic= _menu_insert(mhkDev, -1, MF_ENABLED | MF_SUBMENU, "&License", "", "License");
3113 rc = _menu_insert(mhLic, -1, MF_ENABLED | MF_UNCHECKED, "&Odin32", "k_menu_license Odin32", "Odin32");
3114 rc = _menu_insert(mhLic, -1, MF_ENABLED | MF_UNCHECKED, "&GPL", "k_menu_license GPL", "GPL");
3115 rc = _menu_insert(mhLic, -1, MF_ENABLED | MF_UNCHECKED, "&LGPL", "k_menu_license LGPL", "LGPL");
3116 rc = _menu_insert(mhLic, -1, MF_ENABLED | MF_UNCHECKED, "&GPLv3", "k_menu_license GPLv3", "GPLv3");
3117 rc = _menu_insert(mhLic, -1, MF_ENABLED | MF_UNCHECKED, "&LGPLv3", "k_menu_license LGPLv3", "LGPLv3");
3118 rc = _menu_insert(mhLic, -1, MF_ENABLED | MF_UNCHECKED, "&VirtualBox", "k_menu_license VirtualBox", "VirtualBox");
3119 rc = _menu_insert(mhLic, -1, MF_ENABLED | MF_UNCHECKED, "&VirtualBox GPL And CDDL","k_menu_license VirtualBoxGPLAndCDDL", "VirtualBoxGPLAndCDDL");
3120 rc = _menu_insert(mhLic, -1, MF_ENABLED | MF_UNCHECKED, "&Confidential", "k_menu_license Confidential", "Confidential");
3121 rc = _menu_insert(mhLic, -1, MF_ENABLED | MF_UNCHECKED, "&Confidential No Author", "k_menu_license ConfidentialNoAuthor", "ConfidentialNoAuthor");
3122
3123 rc = _menu_insert(mhkDev, -1, MF_ENABLED, "-", "", "dash vars");
3124 rc = _menu_insert(mhkDev, -1, MF_ENABLED, skChange == '' ? '&Change...' : '&Change (' skChange ')...', "k_menu_change", "");
3125 rc = _menu_insert(mhkDev, -1, MF_ENABLED, skProgram == '' ? '&Program...' : '&Program (' skProgram ')...', "k_menu_program", "");
3126 rc = _menu_insert(mhkDev, -1, MF_ENABLED, skCompany == '' ? 'Co&mpany...' : 'Co&mpany (' skCompany ')...', "k_menu_company", "");
3127 rc = _menu_insert(mhkDev, -1, MF_ENABLED, '&User Name (' skUserName ')...', "k_menu_user_name", "username");
3128 rc = _menu_insert(mhkDev, -1, MF_ENABLED, 'User &e-mail (' skUserEmail ')...', "k_menu_user_email", "useremail");
3129 rc = _menu_insert(mhkDev, -1, MF_ENABLED, 'User &Initials (' skUserInitials ')...', "k_menu_user_initials", "userinitials");
3130 rc = _menu_insert(mhkDev, -1, MF_ENABLED, "-", "", "dash preset");
3131 mhPre= _menu_insert(mhkDev, -1, MF_SUBMENU, "P&resets", "", "");
3132 rc = _menu_insert(mhPre, -1, MF_ENABLED, "The Bird", "k_menu_preset javadoc, GPL, Opt2Ind4", "bird");
3133 rc = _menu_insert(mhPre, -1, MF_ENABLED, "kLIBC", "k_menu_preset javadoc, GPL, Opt2Ind4,, kLIBC", "kLIBC");
3134 rc = _menu_insert(mhPre, -1, MF_ENABLED, "kBuild", "k_menu_preset javadoc, GPLv3, Opt2Ind4,, kBuild", "kBuild");
3135 rc = _menu_insert(mhPre, -1, MF_ENABLED, "kStuff", "k_menu_preset javadoc, GPL, Opt2Ind4,, kStuff", "kStuff");
3136 rc = _menu_insert(mhPre, -1, MF_ENABLED, "sun", "k_menu_preset javadoc, ConfidentialNoAuthor, Opt2Ind4, sun", "sun");
3137 rc = _menu_insert(mhPre, -1, MF_ENABLED, "VirtualBox", "k_menu_preset javadoc, VirtualBox, Opt2Ind4, sun", "VirtualBox");
3138
3139 k_menu_doc_style();
3140 k_menu_license();
3141 k_menu_style();
3142}
3143
3144
3145/**
3146 * Change change Id.
3147 */
3148_command k_menu_change()
3149{
3150 sRc = show("-modal k_form_simple_input", "Change ID", skChange);
3151 if (sRc != "\r")
3152 {
3153 skChange = sRc;
3154 k_menu_create();
3155 }
3156}
3157
3158
3159/**
3160 * Change program name.
3161 */
3162_command k_menu_program()
3163{
3164 sRc = show("-modal k_form_simple_input", "Program", skProgram);
3165 if (sRc != "\r")
3166 {
3167 skProgram = sRc;
3168 k_menu_create();
3169 }
3170}
3171
3172
3173/**
3174 * Change company.
3175 */
3176_command k_menu_company()
3177{
3178 if (skCompany == '')
3179 sRc = show("-modal k_form_simple_input", "Company", 'innotek GmbH');
3180 else
3181 sRc = show("-modal k_form_simple_input", "Company", skCompany);
3182 if (sRc != "\r")
3183 {
3184 skCompany = sRc;
3185 k_menu_create();
3186 }
3187}
3188
3189
3190/**
3191 * Change user name.
3192 */
3193_command k_menu_user_name()
3194{
3195 sRc = show("-modal k_form_simple_input", "User Name", skUserName);
3196 if (sRc != "\r" && sRc != '')
3197 {
3198 skUserName = sRc;
3199 k_menu_create();
3200 }
3201}
3202
3203
3204/**
3205 * Change user email.
3206 */
3207_command k_menu_user_email()
3208{
3209 sRc = show("-modal k_form_simple_input", "User e-mail", skUserEmail);
3210 if (sRc != "\r" && sRc != '')
3211 {
3212 skUserEmail = sRc;
3213 k_menu_create();
3214 }
3215}
3216
3217
3218/**
3219 * Change user initials.
3220 */
3221_command k_menu_user_initials()
3222{
3223 sRc = show("-modal k_form_simple_input", "User e-mail", skUserInitials);
3224 if (sRc != "\r" && sRc != '')
3225 {
3226 skUserInitials = sRc;
3227 k_menu_create();
3228 }
3229}
3230
3231
3232
3233/**
3234 * Checks the correct menu item.
3235 */
3236_command void k_menu_doc_style(_str sNewDocStyle = '')
3237{
3238 //say 'sNewDocStyle='sNewDocStyle;
3239 if (sNewDocStyle != '')
3240 skDocStyle = sNewDocStyle
3241 _menu_set_state(mhDoc, "javadoc", MF_UNCHECKED);
3242 _menu_set_state(mhDoc, "linux", MF_UNCHECKED | MF_GRAYED);
3243
3244 _menu_set_state(mhDoc, skDocStyle, MF_CHECKED);
3245}
3246
3247
3248/**
3249 * Checks the correct menu item.
3250 */
3251_command void k_menu_license(_str sNewLicense = '')
3252{
3253 //say 'sNewLicense='sNewLicense;
3254 if (sNewLicense != '')
3255 skLicense = sNewLicense
3256 _menu_set_state(mhLic, "Odin32", MF_UNCHECKED);
3257 _menu_set_state(mhLic, "GPL", MF_UNCHECKED);
3258 _menu_set_state(mhLic, "LGPL", MF_UNCHECKED);
3259 _menu_set_state(mhLic, "GPLv3", MF_UNCHECKED);
3260 _menu_set_state(mhLic, "LGPLv3", MF_UNCHECKED);
3261 _menu_set_state(mhLic, "VirtualBox", MF_UNCHECKED);
3262 _menu_set_state(mhLic, "VirtualBoxGPLAndCDDL", MF_UNCHECKED);
3263 _menu_set_state(mhLic, "Confidential", MF_UNCHECKED);
3264 _menu_set_state(mhLic, "ConfidentialNoAuthor", MF_UNCHECKED);
3265
3266 _menu_set_state(mhLic, skLicense, MF_CHECKED);
3267}
3268
3269
3270/**
3271 * Check the correct style menu item.
3272 */
3273_command void k_menu_style(_str sNewStyle = '')
3274{
3275 //say 'sNewStyle='sNewStyle;
3276 _menu_set_state(mhCode, "Opt1Ind4", MF_UNCHECKED);
3277 _menu_set_state(mhCode, "Opt1Ind3", MF_UNCHECKED);
3278 _menu_set_state(mhCode, "Opt1Ind8", MF_UNCHECKED);
3279 _menu_set_state(mhCode, "Opt2Ind4", MF_UNCHECKED);
3280 _menu_set_state(mhCode, "Opt2Ind3", MF_UNCHECKED);
3281 _menu_set_state(mhCode, "Opt2Ind8", MF_UNCHECKED);
3282 _menu_set_state(mhCode, "Opt3Ind4", MF_UNCHECKED);
3283 _menu_set_state(mhCode, "Opt3Ind3", MF_UNCHECKED);
3284 _menu_set_state(mhCode, "Opt3Ind8", MF_UNCHECKED);
3285
3286 if (sNewStyle != '')
3287 {
3288 int iIndent = (int)substr(sNewStyle, 8, 1);
3289 int iBraceStyle = (int)substr(sNewStyle, 4, 1);
3290 skCodeStyle = sNewStyle;
3291 k_styles_setindent(iIndent, iBraceStyle);
3292 k_styles_set(sNewStyle);
3293 }
3294
3295 _menu_set_state(mhCode, skCodeStyle, MF_CHECKED);
3296}
3297
3298
3299/**
3300 * Load a 'preset'.
3301 */
3302_command void k_menu_preset(_str sArgs = '')
3303{
3304 parse sArgs with sNewDocStyle ',' sNewLicense ',' sNewStyle ',' sNewCompany ',' sNewProgram ',' sNewChange
3305 sNewDocStyle= strip(sNewDocStyle);
3306 sNewLicense = strip(sNewLicense);
3307 sNewStyle = strip(sNewStyle);
3308 sNewCompany = strip(sNewCompany);
3309 if (sNewCompany == 'sun')
3310 sNewCompany = 'Sun Microsystems, Inc.'
3311 sNewProgram = strip(sNewProgram);
3312 sNewChange = strip(sNewChange);
3313
3314 //say 'k_menu_preset('sNewDocStyle',' sNewLicense',' sNewStyle',' sNewCompany',' sNewProgram')';
3315 k_menu_doc_style(sNewDocStyle);
3316 k_menu_license(sNewLicense);
3317 k_menu_style(sNewStyle);
3318 skCompany = sNewCompany;
3319 skProgram = sNewProgram;
3320 skChange = sNewChange;
3321 k_menu_create();
3322}
3323
3324
3325
3326/* future ones..
3327_command k_menu_setcolor()
3328{
3329 createMyColorSchemeAndUseIt();
3330}
3331
3332
3333_command k_menu_setkeys()
3334{
3335 rc = load("d:/knut/VSlickMacros/BoxerDef.e");
3336}
3337
3338_command k_menu_settings()
3339{
3340 mySettings();
3341}
3342*/
3343
3344
3345#endif /* KDEV_WITH_MENU */
3346
3347
3348/*******************************************************************************
3349* Dialogs *
3350*******************************************************************************/
3351_form k_form_simple_input {
3352 p_backcolor=0x80000005
3353 p_border_style=BDS_DIALOG_BOX
3354 p_caption='Simple Input'
3355 p_clip_controls=FALSE
3356 p_forecolor=0x80000008
3357 p_height=1120
3358 p_width=5020
3359 p_x=6660
3360 p_y=6680
3361 _text_box entText {
3362 p_auto_size=TRUE
3363 p_backcolor=0x80000005
3364 p_border_style=BDS_FIXED_SINGLE
3365 p_completion=NONE_ARG
3366 p_font_bold=FALSE
3367 p_font_italic=FALSE
3368 p_font_name='MS Sans Serif'
3369 p_font_size=8
3370 p_font_underline=FALSE
3371 p_forecolor=0x80000008
3372 p_height=270
3373 p_tab_index=1
3374 p_tab_stop=TRUE
3375 p_text='text'
3376 p_width=3180
3377 p_x=1680
3378 p_y=240
3379 p_eventtab2=_ul2_textbox
3380 }
3381 _label lblLabel {
3382 p_alignment=AL_VCENTERRIGHT
3383 p_auto_size=FALSE
3384 p_backcolor=0x80000005
3385 p_border_style=BDS_NONE
3386 p_caption='Label'
3387 p_font_bold=FALSE
3388 p_font_italic=FALSE
3389 p_font_name='MS Sans Serif'
3390 p_font_size=8
3391 p_font_underline=FALSE
3392 p_forecolor=0x80000008
3393 p_height=240
3394 p_tab_index=2
3395 p_width=1380
3396 p_word_wrap=FALSE
3397 p_x=180
3398 p_y=240
3399 }
3400 _command_button btnOK {
3401 p_cancel=FALSE
3402 p_caption='&OK'
3403 p_default=TRUE
3404 p_font_bold=FALSE
3405 p_font_italic=FALSE
3406 p_font_name='MS Sans Serif'
3407 p_font_size=8
3408 p_font_underline=FALSE
3409 p_height=360
3410 p_tab_index=3
3411 p_tab_stop=TRUE
3412 p_width=1020
3413 p_x=180
3414 p_y=660
3415 }
3416 _command_button btnCancel {
3417 p_cancel=TRUE
3418 p_caption='Cancel'
3419 p_default=FALSE
3420 p_font_bold=FALSE
3421 p_font_italic=FALSE
3422 p_font_name='MS Sans Serif'
3423 p_font_size=8
3424 p_font_underline=FALSE
3425 p_height=360
3426 p_tab_index=4
3427 p_tab_stop=TRUE
3428 p_width=840
3429 p_x=1380
3430 p_y=660
3431 }
3432}
3433
3434defeventtab k_form_simple_input
3435btnOK.on_create(_str sLabel = '', _str sText = '')
3436{
3437 p_active_form.p_caption = sLabel;
3438 lblLabel.p_caption = sLabel;
3439 entText.p_text = sText;
3440}
3441
3442btnOK.lbutton_up()
3443{
3444 sText = entText.p_text;
3445 p_active_form._delete_window(sText);
3446}
3447btnCancel.lbutton_up()
3448{
3449 sText = entText.p_text;
3450 p_active_form._delete_window("\r");
3451}
3452
3453static _str aCLikeIncs[] =
3454{
3455 "c", "ansic", "java", "rul", "vera", "cs", "js", "as", "idl", "asm", "s", "imakefile", "rc", "lex", "yacc", "antlr"
3456};
3457
3458static _str aMyLangIds[] =
3459{
3460 "applescript",
3461 "ansic",
3462 "antlr",
3463 "as",
3464#if __VERSION__ < 19.0
3465 "asm",
3466#endif
3467 "c",
3468 "cs",
3469 "csh",
3470 "css",
3471 "conf",
3472 "d",
3473 "docbook",
3474 "dtd",
3475 "e",
3476 "html",
3477 "idl",
3478 "imakefile",
3479 "ini",
3480 "java",
3481 "js",
3482 "lex",
3483 "mak",
3484 "masm",
3485 "pas",
3486 "phpscript",
3487 "powershell",
3488 "py",
3489 "rexx",
3490 "rc",
3491 "rul",
3492 "tcl",
3493#if __VERSION__ < 19.0
3494 "s",
3495#endif
3496 "unixasm",
3497 "vbs",
3498 "xhtml",
3499 "xml",
3500 "xmldoc",
3501 "xsd",
3502 "yacc"
3503};
3504
3505#if __VERSION__ >= 17.0
3506# require "se/lang/api/LanguageSettings.e"
3507using se.lang.api.LanguageSettings;
3508#endif
3509
3510#if __VERSION__ >= 16.0
3511int def_auto_unsurround_block;
3512#endif
3513
3514/**
3515 * Loads the standard bird settings.
3516 */
3517_command void kdev_load_settings()
3518{
3519 typeless nt1;
3520 typeless nt2;
3521 typeless nt3;
3522 typeless nt4;
3523 typeless nt5;
3524 typeless nt6;
3525 typeless i7;
3526 _str sRest;
3527 _str sTmp;
3528
3529 /*
3530 * Generl stuff.
3531 */
3532 _default_option('A', '0'); /* ALT menu */
3533 def_alt_menu = 0;
3534 _default_option('R', '130'); /* Vertical line in column 130. */
3535 def_mfsearch_init_flags = 2 | 4; /* MFSEARCH_INIT_CURWORD | MFSEARCH_INIT_SELECTION */
3536 def_line_insert = 'B'; /* insert before */
3537 def_file_types='All Files (*),' /** @todo make this prettier */
3538 'C/C++ Files (*.c;*.cc;*.cpp;*.cp;*.cxx;*.c++;*.h;*.hh;*.hpp;*.hxx;*.inl;*.xpm),'
3539 'Assembler (*.s;*.asm;*.mac;*.S),'
3540 'Makefiles (*;*.mak;*.kmk)'
3541 'C# Files (*.cs),'
3542 'Ch Files (*.ch;*.chf;*.chs;*.cpp;*.h),'
3543 'D Files (*.d),'
3544 'Java Files (*.java),'
3545 'HTML Files (*.htm;*.html;*.shtml;*.asp;*.jsp;*.php;*.php3;*.rhtml;*.css),'
3546 'CFML Files (*.cfm;*.cfml;*.cfc),'
3547 'XML Files (*.xml;*.dtd;*.xsd;*.xmldoc;*.xsl;*.xslt;*.ent;*.tld;*.xhtml;*.build;*.plist),'
3548 'XML/SGML DTD Files (*.xsd;*.dtd),'
3549 'XML/JSP TagLib Files (*.tld;*.xml),'
3550 'Objective-C (*.m;*.mm;*.h),'
3551 'IDL Files (*.idl),'
3552 'Ada Files (*.ada;*.adb;*.ads),'
3553 'Applescript Files (*.applescript),'
3554 'Basic Files (*.vb;*.vbs;*.bas;*.frm),'
3555 'Cobol Files (*.cob;*.cbl;*.ocb),'
3556 'JCL Files (*.jcl),'
3557 'JavaScript (*.js;*.ds),'
3558 'ActionScript (*.as),'
3559 'Pascal Files (*.pas;*.dpr),'
3560 'Fortran Files (*.for;*.f),'
3561 'PL/I Files (*.pl1),'
3562 'InstallScript (*.rul),'
3563 'Perl Files (*.pl;*.pm;*.perl;*.plx),'
3564 'Python Files (*.py),'
3565 'Ruby Files (*.rb;*.rby),'
3566 'Java Properties (*.properties),'
3567 'Lua Files (*.lua),'
3568 'Tcl Files (*.tcl;*.tlib;*.itk;*.itcl;*.exp),'
3569 'PV-WAVE (*.pro),'
3570 'Slick-C (*.e;*.sh),'
3571 'SQL Files (*.sql;*.pgsql),'
3572 'SAS Files (*.sas),'
3573 'Text Files (*.txt),'
3574 'Verilog Files (*.v),'
3575 'VHDL Files (*.vhd),'
3576 'SystemVerilog Files (*.sv;*.svh;*.svi),'
3577 'Vera Files (*.vr;*.vrh),'
3578 'Erlang Files (*.erl;*.hrl),'
3579 ;
3580
3581 def_updown_col=0; /* cursor movement */
3582 def_cursorwrap=0; /* ditto. */
3583 def_click_past_end=1; /* ditto */
3584 def_start_on_first=1; /* vs A B C; view A. */
3585 def_vc_system='Subversion' /* svn is default version control */
3586#if __VERSION__ >= 16.0
3587 def_auto_unsurround_block=0; /* Delete line, not block. */
3588#endif
3589 _config_modify_flags(CFGMODIFY_DEFDATA);
3590
3591 /* Make it grok: # include <stuff.h> */
3592 for (i = 0; i < aCLikeIncs._length(); i++)
3593 replace_def_data("def-":+aCLikeIncs[i]:+"-include",
3594 '^[ \t]*(\#[ \t]*include|include|\#[ \t]*line)[ \t]#({#1:i}[ \t]#|)(<{#0[~>]#}>|"{#0[~"]#}")');
3595 replace_def_data("def-m-include", '^[ \t]*(\#[ \t]*include|\#[ \t]*import|include|\#[ \t]*line)[ \t]#({#1:i}[ \t]#|)(<{#0[~>]#}>|"{#0[~"]#}")');
3596 replace_def_data("def-e-include", '^[ \t]*(\#[ \t]*include|\#[ \t]*import|\#[ \t]*require|include)[ \t]#(''{#0[~'']#}''|"{#0[~"]#}")');
3597
3598 /* Replace the default unicode proportional font with the fixed oned. */
3599 _str sCodeFont = _default_font(CFG_SBCS_DBCS_SOURCE_WINDOW);
3600 _str sUnicodeFont = _default_font(CFG_UNICODE_SOURCE_WINDOW);
3601 if (pos("Default Unicode", sUnicodeFont) > 0 && length(sCodeFont) > 5)
3602 _default_font(CFG_UNICODE_SOURCE_WINDOW,sCodeFont);
3603 if (machine()=='INTELSOLARIS' || machine()=='SPARCSOLARIS')
3604 {
3605 _default_font(CFG_MENU,'DejaVu Sans,10,0,0,');
3606 _default_font(CFG_DIALOG,'DejaVu Sans,10,0,,');
3607 _ConfigEnvVar('VSLICKDIALOGFONT','DejaVu Sans,10,0,,');
3608 }
3609
3610 /* Not so important. */
3611 int fSearch = 0x400400; /* VSSEARCHFLAG_WRAP | VSSEARCHFLAG_PROMPT_WRAP */;
3612 _default_option('S', (_str)fSearch);
3613
3614
3615#if __VERSION__ >= 17.0
3616 /*
3617 * Language settings via API.
3618 */
3619 int fNewAff = AFF_BEGIN_END_STYLE \
3620 | AFF_INDENT_WITH_TABS \
3621 | AFF_SYNTAX_INDENT \
3622 /*| AFF_TABS*/ \
3623 | AFF_NO_SPACE_BEFORE_PAREN \
3624 | AFF_PAD_PARENS \
3625 | AFF_INDENT_CASE \
3626 | AFF_KEYWORD_CASING \
3627 | AFF_TAG_CASING \
3628 | AFF_ATTRIBUTE_CASING \
3629 | AFF_VALUE_CASING \
3630 /*| AFF_HEX_VALUE_CASING*/;
3631 def_adaptive_formatting_flags = ~fNewAff;
3632 replace_def_data("def-adaptive-formatting-flags", def_adaptive_formatting_flags);
3633 _str sLangId;
3634 foreach (sLangId in aMyLangIds)
3635 {
3636 LanguageSettings.setIndentCaseFromSwitch(sLangId, true);
3637 LanguageSettings.setBeginEndStyle(sLangId, BES_BEGIN_END_STYLE_2);
3638 LanguageSettings.setIndentWithTabs(sLangId, false);
3639 LanguageSettings.setUseAdaptiveFormatting(sLangId, true);
3640 LanguageSettings.setAdaptiveFormattingFlags(sLangId, ~fNewAff);
3641 LanguageSettings.setSaveStripTrailingSpaces(sLangId, STSO_STRIP_MODIFIED);
3642 LanguageSettings.setTabs(sLangId, "8+");
3643 LanguageSettings.setSyntaxIndent(sLangId, 4);
3644
3645 /* C/C++ setup, wrap at column 80 not 64. */
3646# if __VERSION__ >= 21.0
3647 if (_LangGetPropertyInt32(sLangId, VSLANGPROPNAME_CW_FIXED_RIGHT_COLUMN) < 80)
3648 _LangSetPropertyInt32(sLangId, VSLANGPROPNAME_CW_FIXED_RIGHT_COLUMN, 80);
3649# else
3650 sTmp = LanguageSettings.getCommentWrapOptions(sLangId);
3651 if (length(sTmp) > 10)
3652 {
3653 typeless ntBlockCommentWrap, ntDocCommentWrap, ntFixedWidth;
3654 parse sTmp with ntBlockCommentWrap ntDocCommentWrap nt3 nt4 nt5 ntFixedWidth sRest;
3655 if ((int)ntFixedWidth < 80)
3656 LanguageSettings.setCommentWrapOptions('c', ntBlockCommentWrap:+' ':+ntDocCommentWrap:+' ':+nt3:+' ':+nt4:+' ':+nt5:+' 80 ':+sRest);
3657 //replace_def_data("def-comment-wrap-c",'0 1 0 1 1 64 0 0 80 0 80 0 80 0 0 1 '); - default
3658 //replace_def_data("def-comment-wrap-c",'0 1 0 1 1 80 0 0 80 0 80 0 80 0 0 0 '); - disabled
3659 //replace_def_data("def-comment-wrap-c",'1 1 0 1 1 80 0 0 80 0 80 0 80 0 0 1 '); - enable block comment wrap.
3660 }
3661# endif
3662
3663 /* set the encoding to UTF-8 without any friggin useless signatures. */
3664 idxExt = name_match('def-lang-for-ext-', 1, MISC_TYPE);
3665 while (idxExt > 0)
3666 {
3667 if (name_info(idxExt) == sLangId)
3668 {
3669 parse name_name(idxExt) with 'def-lang-for-ext-' auto sExt;
3670 sVarName = 'def-encoding-' :+ sExt;
3671 idxExtEncoding = find_index(sVarName, MISC_TYPE);
3672 if (idxExtEncoding != 0)
3673 delete_name(idxExtEncoding);
3674 }
3675 idxExt = name_match('def-lang-for-ext-', 0, MISC_TYPE);
3676 }
3677 //replace_def_data('def-encoding-' :+ sLangId, '+futf8 ');
3678 idxLangEncoding = find_index('def-encoding-' :+ sLangId, MISC_TYPE);
3679 if (idxLangEncoding != 0)
3680 delete_name(idxLangEncoding);
3681
3682 }
3683 replace_def_data('def-encoding', '+futf8 ');
3684
3685 LanguageSettings.setIndentWithTabs('mak', true);
3686 LanguageSettings.setLexerName('mak', 'kmk');
3687 LanguageSettings.setSyntaxIndent('mak', 8);
3688
3689 LanguageSettings.setBeautifierProfileName('c', "bird's Style");
3690 LanguageSettings.setBeautifierProfileName('m', "bird's Objective-C Style");
3691
3692 /* Fix .asm and add .mac, .kmk, .cmd, and .pgsql. */
3693 replace_def_data("def-lang-for-ext-asm", 'masm');
3694 replace_def_data("def-lang-for-ext-mac", 'masm');
3695 replace_def_data("def-lang-for-ext-kmk", 'mak');
3696 replace_def_data("def-lang-for-ext-cmd", 'bat');
3697 replace_def_data("def-lang-for-ext-pgsql", 'plsql');
3698
3699 /*
3700 * Change the codehelp default.
3701 */
3702 int fOldCodeHelp = def_codehelp_flags;
3703 int fNewCodeHelp = fOldCodeHelp \
3704 | VSCODEHELPFLAG_AUTO_FUNCTION_HELP \
3705 | VSCODEHELPFLAG_AUTO_LIST_MEMBERS \
3706 | VSCODEHELPFLAG_SPACE_INSERTS_SPACE \
3707 | VSCODEHELPFLAG_INSERT_OPEN_PAREN \
3708 | VSCODEHELPFLAG_DISPLAY_MEMBER_COMMENTS \
3709 | VSCODEHELPFLAG_DISPLAY_FUNCTION_COMMENTS \
3710 | VSCODEHELPFLAG_REPLACE_IDENTIFIER \
3711 | VSCODEHELPFLAG_PRESERVE_IDENTIFIER \
3712 | VSCODEHELPFLAG_AUTO_PARAMETER_COMPLETION \
3713 | VSCODEHELPFLAG_AUTO_LIST_PARAMS \
3714 | VSCODEHELPFLAG_PARAMETER_TYPE_MATCHING \
3715 | VSCODEHELPFLAG_NO_SPACE_AFTER_PAREN \
3716 | VSCODEHELPFLAG_RESERVED_ON \
3717 | VSCODEHELPFLAG_MOUSE_OVER_INFO \
3718 | VSCODEHELPFLAG_AUTO_LIST_VALUES \
3719 | VSCODEHELPFLAG_HIGHLIGHT_TAGS \
3720 | VSCODEHELPFLAG_FIND_TAG_PREFERS_ALTERNATE \
3721 ;
3722 fNewCodeHelp &= ~( VSCODEHELPFLAG_SPACE_COMPLETION \
3723 | VSCODEHELPFLAG_AUTO_SYNTAX_HELP \
3724 | VSCODEHELPFLAG_NO_SPACE_AFTER_COMMA \
3725 | VSCODEHELPFLAG_STRICT_LIST_SELECT \
3726 | VSCODEHELPFLAG_AUTO_LIST_VALUES \
3727 | VSCODEHELPFLAG_FIND_TAG_PREFERS_DECLARATION \
3728 | VSCODEHELPFLAG_FIND_TAG_PREFERS_DEFINITION \
3729 | VSCODEHELPFLAG_FIND_TAG_HIDE_OPTIONS \
3730 );
3731 def_codehelp_flags = fNewCodeHelp;
3732 foreach (sLangId in aMyLangIds)
3733 {
3734 _str sVarName = 'def-codehelp-' :+ sLangId;
3735 int idxVar = find_index(sVarName, MISC_TYPE);
3736 if (idxVar != 0)
3737 replace_def_data(sVarName, fNewCodeHelp);
3738 }
3739#endif
3740
3741 /** @todo
3742 * - def_save_options
3743 * - Auto restore clipboards
3744 * */
3745
3746 message("Please restart SlickEdit.")
3747}
3748
3749
3750static int kfile_to_array(_str sFile, _str (&asLines)[])
3751{
3752 asLines._makeempty();
3753
3754 int idTempView = 0;
3755 int idOrgView = 0;
3756 int rc = _open_temp_view(sFile, idTempView, idOrgView);
3757 if (!rc)
3758 {
3759 _GoToROffset(0); /* top of the file. */
3760
3761 int i = 0;
3762 do
3763 {
3764 _str sLine = '';
3765 get_line(sLine);
3766 asLines[i] = sLine;
3767 i += 1;
3768 } while (down() == 0);
3769
3770 _delete_temp_view(idTempView);
3771 activate_window(idOrgView);
3772 }
3773 return rc;
3774}
3775
3776
3777_command void kload_files(_str sFile = "file-not-specified.lst")
3778{
3779 _str sFileDir = absolute(_strip_filename(sFile, 'NE'));
3780 _str aFiles[];
3781 int rc = kfile_to_array(sFile, asFiles);
3782 if (rc == 0)
3783 {
3784 _str sFile;
3785 int i;
3786 for (i = 0; i < asFiles._length(); i++)
3787 {
3788 _str sFile = strip(asFiles[i]);
3789 if (length(sFile) > 0)
3790 {
3791 sAbsFile = absolute(sFile, sFileDir);
3792 message("Loading \"" :+ sAbsFile :+ "\"...");
3793 //say("sAbsFile=" :+ sAbsFile);
3794 edit(sAbsFile);
3795 }
3796 }
3797 }
3798 else
3799 message("_GetFileContents failed: " :+ rc);
3800}
3801
3802
3803/**
3804 * Module initiation.
3805 */
3806definit()
3807{
3808 /* do cleanup. */
3809 for (i = 0; i < 999; i++)
3810 {
3811 index = name_match("def-koptions-", 1 /*find_first*/, MISC_TYPE);
3812 if (!index)
3813 break;
3814 delete_name(index);
3815 }
3816
3817 /* do init */
3818 k_styles_create();
3819#ifdef KDEV_WITH_MENU
3820 k_menu_create();
3821# if __VERSION__ < 18.0 /* Something with timers are busted, so excusing my code. */
3822 iTimer = _set_timer(1000, k_menu_create, "timer");
3823# endif
3824 /* createMyColorSchemeAndUseIt();*/
3825#endif
3826}
3827
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette