source: trunk/SlickEdit/kdev.e@ 3036

Last change on this file since 3036 was 3018, checked in by bird, 9 years ago

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