source: trunk/VSlickMacros/kdev.e@ 2750

Last change on this file since 2750 was 2737, checked in by bird, 11 years ago

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