2 勾掉indent Open Brace和Indent Close Brace的效果: 繼上一段，在相對縮進行裏, 如果輸入"{"或"}", 則自動和上一行列對齊
3 今天把一個用sourceinsight排版整齊的C文件，偶然用VC打開一看，全亂了。研究了半天，發現SI對每個字符的寬度不太一致。
配置成簡單好用的c/java代碼編輯器
1、縮進與tab
（1）Options菜單àPreferencesàTyping卡，勾掉下面兩項∶
Typing tab indents line，regardless of selection，空行按tab無法前進
Typing tab replaces current selection，選定部分內容、再按tab時會清除所選
（2）Options菜單àDocument Options（針對不同文件類型，分別進行設置）à下拉左上文件類型框、選擇合適類型（c源文件）àEditing Options框中，tab width=2à Editing Options框中，勾選Expand tabs（這樣，按tab鍵、等價於輸入2個空格）
（3）Options菜單àDocument Optionsà選擇合適的文件類型à點擊右邊中間的Auto Indent鈕à在彈出的框中，左邊一定要點Smart，右邊有兩個複選框Indent Open Brace和Indent Close Brace，具體效果可以看SIS的HELP。按照部門裏的編程風格要求，最方便的就是把兩個複選框都取消掉，然後點OK。
勾選Auto Indent之SMART的效果∶在C程序裏, 如果遇到行末沒有分號的語句,如IF, WHILE, SWITCH等, 寫到該行末按回車，則新行自動相對上一行縮進兩列。
勾掉Indent Open Brace和Indent Close Brace的效果∶繼上一段，在相對縮進行裏, 如果輸入"}", 則自動和上一行列對齊（好像勾不勾都會有這個功能）；而輸入"{"時，不會與下面的行對齊（這是勾上Indent Open Brace時的效果）。
2、向項目中添加文件時，只添加特定類型的文件（文件類型過濾器）
有個同事比較生猛，得整彙編代碼，但在SIS裏建立PROJECT並ADD TREE的時候，根據默認設置並不會把該TREE裏面所有彙編文件都包含進來，只加了.inc和.asm後綴的，.s後綴的沒有。而且用SIS打開.s的文件，一片黑白沒有色彩，感覺回到DOS的EDIT時代了…… 解決方法是在Options->Document Options裏面，點左上的Document Type下拉菜單，選擇x86 Asm Source File，然後在右邊的File filter裏*.asm；*.inc；的後面加上*.s；接着CLOSE就可以了。上面兩個問題解決了，但注意加入*.s後還需要重新ADD TREE一遍才能把這些彙編加到PROJECT裏面。
3、去掉功能強大但是無用的自動完成功能
Options菜單àPreferences àTyping卡àAuto Completion框，勾掉Use automatic symbol completion window（這裏是SIS的全局設置）
Options菜單àDocument OptionsàEditing Options框中，勾掉Allow auto-complete（局部設置）
上面兩項必須全部勾選，才能啓用Auto Completion功能
4、恢復小鍵盤的“+，-，*，/”功能
Options菜單àKey assignments，通過關鍵詞Scroll 找到Scroll Half Page Up，取消小鍵盤/；通過關鍵詞Scroll 找到Scroll Half Page Down取消小鍵盤*；通過關鍵詞Function找到Function Up，取消小鍵盤-，通過關鍵詞Function找到Function down，取消小鍵盤+。
5、恢復ctrl+a的全選功能
通過關鍵詞save 找到save all，更改爲ctrl+shift+a，通過關鍵詞select找到select all， 更改爲ctrl +a
6、解決字符等寬對齊問題。
SIS默認字體是VERDANA，很漂亮。這網頁上應該也是用的VERDANA字體。但由於美觀的緣故，VERDANA字體是不等寬的。比如下面兩行
llllllllll
MMMMMMMMMM
同樣10個字符，長度差多了.用VERDANA來看程序，有些本應該對齊的就歪了。解放方法是使用等寬的字體，但肯定比較醜。可以用DOS字體，也就是記事本里的默認字體sysfixed 很醜，要有心理準備。比較推薦的是用Courier New。
SourceInsight提供的功能
1、解析日誌信息時非常有用的Source Link
總地說來，SourceLink根據特定的搜索模式，把當前文件中滿足模式的行、鏈接到由該行指定的其他源文件中。
所謂特定的搜索模式，共有兩種“File, then line”和“Line, then file”，其中前後兩部分依靠正則表達式的組的概念來予以分割。如果當前文件具有匹配行，比如“Error d:tcsrcq5.c 18: Lvalue required in function jsSort”，那麼SourceInsight在該行創建SourceLink、把該行鏈接到由該行指定的文件中（即d:tcsrcq5.c，第18行）。
1.1 創建SourceLink
運行Search菜單的Parse Source Links…命令，在彈出的框中、選擇搜索模式、並填入相應的正則表達式串，點OK，SIS就會解析當前文件，如果有匹配，就創建SourceLink。
1.2 在解析日誌信息時，使用SourceLink
可以打開日誌信息，運行Parse Source Links命令，日誌中能夠匹配模式的每一行（通常是含有錯誤信息的行）、就會被設置上一個SourceLink
1.3在解析自定義命令輸出時，使用SourceLink
首先勾選Custom Command 中的“Parse Links in Output”，然後選擇特定的搜索模式，最後填入合適的正則表達式。這樣，Source Insight把輸出信息作爲當前搜索用文件；並且，如果有匹配行（通常即編譯錯誤信息行），SIS爲 該行創建SourceLink、並把每一個錯誤信息中給定的文件（和行號）作爲link目的地，這對於我們修改源代碼錯誤非常有幫助。
2、替換（Replace） VS 上下文敏感的智能重命名（Context-Sensitive Smart Rename）
2.1 替換（Replace）
目前來說，普通的替換命令、快捷鍵爲ctrl+H，足以已滿足工作要求。
在彈出的替換窗口中，在Search框中勾選Selection來只在所選文本區域中替換（當然這時你要先選定區域然後再按ctrl+H）、勾選WholeFile來在整個當前文件內替換、兩者都不勾選來從當前光標處替換至文件末尾；點右邊的Files…按鈕，可選擇替換多個文件的內容。
2.2上下文敏感的智能重命名（Context-Sensitive Smart Rename）
Smart Rename命令、快捷鍵是Ctrl+’，是上下文敏感的全局搜索替換。它可以智能地重命名全部項目文件中的一個標示符。SourceInsight的搜索索引（search index）使得搜索過程進行地非常快。而且，使用Smart Rename所做的替換會被記錄在Search Results窗口中，每一條替換記錄旁有一個SourceLink鏈接到替換髮生地文件。
Smart Rename可以用來重命名標記（symbol）。如果勾選了Smart Reference Matching選項，Smart Rename就只在正確的上下文範圍內進行重命名。它可以智能地重命名全部項目文件中的一個標示符；它可以重命名函數本地變量，類或結構體成員、函數。
在彈出的Smart Rename窗口中有下面幾項∶
|
Old Name 填舊名稱。光標下的詞會被自動加載；光標的位置非常重要，這是因爲Source Insight會根據本地上下文背景、準確地確定你想要重命名哪一個標記。 推薦只填單個詞、而不是字符串。 如果你在命名成員變量、或本地變量（），Old Name框中會顯示完全標記名、即上層容器名+標記名。例如，框中的“DocDraw.paintStruc”代表DocDraw是函數名，paintStruc是函數的本地成員變量。 New Name 填新名稱。只填標記名，不填上層容器名。 Output Search Results 如果勾選，搜索替換結果日誌會被輸出到Search Results窗口中。可以通過Windows菜單來切換，或ctrl+tab切換察看。並且每一條記錄旁會有SourceLink鏈接到替換髮生地文件。 Confirm Each Replacement 每次替換詢問。 Skip Comments 不重名註釋部分。 |
【使用心得列表】
（１）如何用Smart Rename重命名數組的數組名？如果只選取數組名，會報錯！
（２）如果勾掉Smart Reference Matching，會搜索全部項目文件，並且Old Name框中不顯示完全限定名；如果勾選Smart Reference Matching，無法重命名數組名，而且鼠標位置不正確時會報錯。應該如何應對？
3、在SourceInsight中提供的正則表達式
3.1在SourceInsight中提供的正則表達式
正則表達式，是用來匹配複雜模式的特殊搜索用字符串。正則表達式串中，許多字符具有特殊的含義。例如，有個特殊的字符代表 “行首”。
下面是SourceInsight提供的所有可用特殊字符∶
|
Table 4.3: Regular Expression Characters |
|
|
Character |
Matches |
|
^ (at the beginning only) |
beginning of line。如^Hello，匹配Hello在句首。 |
|
. |
any single character |
|
[abc] |
any single character that belongs to the set abc |
|
[^abc] |
any single character that does not belong to the set abc |
|
* |
zero or more occurrences of the preceding character |
|
+ |
one or more occurrences of the preceding character |
|
t |
a tab character |
|
s |
a space character |
|
w |
white space (a tab or a space character) |
|
$ |
the end of the line。如TRUE$，匹配TRUE在句尾。 |
|
|
轉義字符。如果在它後面有元字符，取消其特殊含義。 |
可利用 “(”和 “)”、把正則表達式分割成不同的組；模式中的每個組自左向右指定爲 Group #n，n=1,2,…；組的概念在替換時很有用。
例如∶
abc(xyz)可匹配abcxyz，其中xyz被認爲是group#1，
利用21來替換(abc)(xyz)，替換結果爲xyzabc。
3.2 正則表達式在配置tc編譯器中的應用∶
正則表達式格式與源代碼文件路徑相對應，這裏我的tc安裝目錄爲d:tc，tc源文件放在d:tcsrc下，並命名爲qn.c或qtn.c（其中n=1,2,…）。
觀察Tc編譯器某一次輸出錯誤信息的格式∶
Error d:tcsrcq5.c 18: Lvalue required in function jsSort
則我們要匹配“d:tcsrcq5.c 18”部分，進一步地，按照SourceInsight捕捉輸出並加以解析時的要求，要以組的形式、分別匹配“d:tcsrcq5.c 18”中的文件部分和行號部分∶
行號([1-9][0-9]*)
空格行號s([1-9][0-9]*)
文件名(d:tcsrc[qQ][tT][1-9][0-9]*.[cC])
全部加起來爲∶
|
(d:tcsrc[qQ][tT]*[1-9][0-9]*.[cC])s([1-9][0-9]*) |
3.3 正則表達式在配置javac編譯器中的應用∶
我的JAVA_HOME是c:jdk，我的java源文件放於d:javasrc中，並命名爲qn.java或qtn.java（其中n=1,2,…）。
觀察JDK編譯器某一次輸出錯誤信息的格式∶
D:javasrcQ3.java:3: ';' expected
正則表達式爲∶
|
([dD]:javasrc[qQ][tT]*[1-9][0-9]*.java):([1-9][0-9]*) |
4、自定義命令
自定義命令與項目相關，在一個項目中定義的所有自定義命令屬於該項目、只對該項目有效（包括快捷鍵等）。
自定義命令類似於命令行批處理文件。SIS允許自定義命令在後臺運行；並可以捕捉自定義命令的輸出、放置於文件中、或粘貼入當前光標插入點。
分別利用上面SIS對輸出信息的處理方式，自定義命令對集成編譯器相當有用，可以捕捉編譯器輸出並創建SourceLink尋錯；自定義命令對於文本過濾也相當有用，可選中待過濾區塊、運行Sort自定義命令、粘貼回選定區塊、即完成文本過濾。
請按下面步驟創建自定義命令∶
Options菜單àCustom Command
à點右邊Add鈕、填入新自定義命令名稱，或下拉左邊Commands、選擇命令進行修改
àRun框、填入待執行命令行，可含有特殊元字符，見後面的元字符表
àDir框、執行命令行時應處的目錄，如不填，以源代碼文件所在目錄爲命令執行目錄
à勾選Output框的Capture Output、輸出被捕捉，如果勾選Paste Output，輸出被粘貼
à勾選Control Group框中的Save Files First、SIS會在運行命令前先檢查文件是否保存
à勾選Control Group框中的Pause When Done、SIS會在命令結束後暫停、方便檢查
à勾選Source Links in Output框中的Parse Source Links，?/p>
說明:
該宏文件實現一些編碼程中能會到的功能, 如添加文件頭、函數說明和宏定義等, 使用時能自動添加文件名、函數名和當前日期.
使用說明:
1. Project->Open Project... 打開Base工程(該工程一般在"我的文檔/Source Insight/Projects/Base"中);
2. Project->Add and Remove Project Files... 加入宏文件(即mymacro.em);
3. Options->Menu Assignments 打開Menu Assignments窗口, 在Command中輸入Macro, 選中要使用的宏, 添加到合適的菜單中.
在http://www.sourceinsight.com/public/macros/可以找到很多宏定義文件，但大多數沒什麼用。
/*附上宏定義文件（一下是我精心挑選的十分好用的宏定義，不試不知道，一試真有用）*/
/* mymacro.em - a small collection of useful editing macros */
/******************************************************************************
* InsFunHeader -- insert function's information
*
* modification history
* --------------------
* 01a, 23mar2003, added DESCRIPTION by t357
* 01a, 05mar2003, t357 written
* --------------------
******************************************************************************/
macro InsFunHeader()
{
// Get the owner's name from the environment variable: szMyName.
// If the variable doesn't exist, then the owner field is skipped.
/*#########################################################
#########################################################
####### Set szMyName variable to your name ########
####### for example szMyName = "t357" ########
#########################################################
#########################################################*/
szMyName = "LW"
// Get a handle to the current file buffer and the name
// and location of the current symbol where the cursor is.
hbuf = GetCurrentBuf()
szFunc = GetCurSymbol()
ln = GetSymbolLine(szFunc)
// Get current time
szTime = GetSysTime(1)
Day = szTime.Day
Month = szTime.Month
Year = szTime.Year
if (Day < 10)
szDay = "0@Day@"
else
szDay = Day
szMonth = NumToName(Month)
szInf = Ask("Enter the information of function:")
szDescription = Ask("Enter the description of function:")
// begin assembling the title string
sz = "/******************************************************************************"
InsBufLine(hbuf, ln, sz)
InsBufLine(hbuf, ln + 1, " * @szFunc@ - @szInf@")
InsBufLine(hbuf, ln + 2, " * DESCRIPTION: - ")
InsBufLine(hbuf, ln + 3, " * @szDescription@ ")
// remove by t357. CutWord(szDescription)
InsBufLine(hbuf, ln + 4, " * Input: ")
InsBufLine(hbuf, ln + 5, " * Output: ")
InsBufLine(hbuf, ln + 6, " * Returns: ")
InsBufLine(hbuf, ln + 7, " * ")
InsBufLine(hbuf, ln + 8, " * modification history")
InsBufLine(hbuf, ln + 9, " * --------------------")
InsBufLine(hbuf, ln + 10, " * 01a, @szDay@@szMonth@@Year@, @szMyName@ written")
InsBufLine(hbuf, ln + 11, " * --------------------")
InsBufLine(hbuf, ln + 12, " ******************************************************************************/")
// put the insertion point inside the header comment
SetBufIns(hbuf, ln + 1, strlen(szFunc) + strlen(szInf) + 8)
}
/******************************************************************************
* NumToName -- change the month number to name
*
* modification history
* --------------------
* 01a, 05mar2003, t357 written
* --------------------
******************************************************************************/
macro NumToName(Month)
{
if (Month == 1)
return "jan"
if (Month == 2)
return "feb"
if (Month == 3)
return "mar"
if (Month == 4)
return "apr"
if (Month == 5)
return "may"
if (Month == 6)
return "jun"
if (Month == 7)
return "jul"
if (Month == 8)
return "aug"
if (Month == 9)
return "sep"
if (Month == 10)
return "oct"
if (Month == 11)
return "nov"
if (Month == 12)
return "dec"
}
/******************************************************************************
* CutWord -- auto newline
*
* modification history
* --------------------
* 01a, 24mar2003, t357 fix some bug
* 01a, 05mar2003, t357 written
* --------------------
******************************************************************************/
macro CutWord(ncurLine, szInf)
{
LENGTH = 63
nlength = StrLen(szInf)
i = 0 /* loop control */
begin = 0 /* first character's index of current line */
pre = 0 /* preceding word's index */
hbuf = GetCurrentBuf()
// nline = GetBufLnCur()
while (i < nlength)
{
/* remove by t357
nrow = 0
sz = ""
while (nrow < 80)
{
if (nlength < 0)
break
sz = Cat(sz, szInf[nrow])
nrow = nrow + 1
nlength = nlength - 1
}
InsBufLine(hbuf, nline, sz)
szInf = szInf[nrow]
}
*/
c = szInf[i]
if (" " == @c@ && (i - b < LENGTH))
{
pre = i
}
else if (" " == @c@)
{
szOutput = ""
k = begin /* loop control */
while (k < pre)
{
szOutput = Cat(szOutput, szInf[k])
k = k + 1
}
InsBufLine(hbuf, ncurLine, sz)
ncurLine = ncurLine + 1
begin = pre
}
i = i + 1
}
if (h != i - 1)
{
szOutput = ""
k = begin /* loop control */
while (k < pre)
{
szOutput = Cat(szOutput, szInf[k])
k = k + 1
}
InsBufLine(hbuf, ncurLine, sz)
ncurLine = ncurLine + 1
}
}
// Wrap ifdeinef <sz> .. endif around the current selection
macro IfdefineSz(sz)
{
hwnd = GetCurrentWnd()
lnFirst = GetWndSelLnFirst(hwnd)
lnLast = GetWndSelLnLast(hwnd)
hbuf = GetCurrentBuf()
InsBufLine(hbuf, lnFirst, "#ifndef @sz@")
InsBufLine(hbuf, lnFirst + 1, "#define @sz@")
InsBufLine(hbuf, lnLast + 3, "#endif /* @sz@ */")
SetBufIns(hbuf, lnFirst + 2, 0)
}
/* A U T O E X P A N D */
/*-------------------------------------------------------------------------
Automatically expands C statements like if, for, while, switch, etc..
To use this macro,
1. Add this file to your project or your Base project.
2. Run the Options->Key Assignments command and assign a
convenient keystroke to the "AutoExpand" command.
3. After typing a keyword, press the AutoExpand keystroke to have the
statement expanded. The expanded statement will contain a ### string
which represents a field where you are supposed to type more.
The ### string is also loaded in to the search pattern so you can
use "Search Forward" to select the next ### field.
For example:
1. you type "for" + AutoExpand key
2. this is inserted:
for (###; ###; ###)
{
###
}
3. and the first ### field is selected.
-------------------------------------------------------------------------*/
/******************************************************************************
* AutoExpand - Automatically expands C statements
*
* DESCRIPTION: - Automatically expands C statements like if, for, while,
* switch, etc..
*
* Input:
* Output:
* Returns:
*
* modification history
* --------------------
* 01a, 27mar2003, t357 modified
* --------------------
******************************************************************************/
macro AutoExpand()
{
// get window, sel, and buffer handles
hwnd = GetCurrentWnd()
if (hwnd == 0)
stop
sel = GetWndSel(hwnd)
if (sel.ichFirst == 0)
stop
hbuf = GetWndBuf(hwnd)
// get line the selection (insertion point) is on
szLine = GetBufLine(hbuf, sel.lnFirst);
// parse word just to the left of the insertion point
wordinfo = GetWordLeftOfIch(sel.ichFirst, szLine)
ln = sel.lnFirst;
chTab = CharFromAscii(9)
// prepare a new indented blank line to be inserted.
// keep white space on left and add a tab to indent.
// this preserves the indentation level.
ich = 0
while (szLine[ich] == ' ' || szLine[ich] == chTab)
{
ich = ich + 1
}
szLine = strmid(szLine, 0, ich)
sel.lnFirst = sel.lnLast
sel.ichFirst = wordinfo.ich
sel.ichLim = wordinfo.ich
// expand szWord keyword...
if (wordinfo.szWord == "if" ||
wordinfo.szWord == "while" ||
wordinfo.szWord == "elseif")
{
SetBufSelText(hbuf, " (###)")
InsBufLine(hbuf, ln + 1, "@szLine@" # "{");
InsBufLine(hbuf, ln + 2, "@szLine@" # chTab);
InsBufLine(hbuf, ln + 3, "@szLine@" # "}");
}
else if (wordinfo.szWord == "for")
{
SetBufSelText(hbuf, " (###; ###; ###)")
InsBufLine(hbuf, ln + 1, "@szLine@" # "{");
InsBufLine(hbuf, ln + 2, "@szLine@" # chTab);
InsBufLine(hbuf, ln + 3, "@szLine@" # "}");
}
else if (wordinfo.szWord == "switch")
{
SetBufSelText(hbuf, " (###)")
InsBufLine(hbuf, ln + 1, "@szLine@" # "{")
InsBufLine(hbuf, ln + 2, "@szLine@" # "case ")
InsBufLine(hbuf, ln + 3, "@szLine@" # chTab)
InsBufLine(hbuf, ln + 4, "@szLine@" # chTab # "break;")
InsBufLine(hbuf, ln + 5, "@szLine@" # "default:")
InsBufLine(hbuf, ln + 6, "@szLine@" # chTab)
InsBufLine(hbuf, ln + 7, "@szLine@" # "}")
}
else if (wordinfo.szWord == "do")
{
InsBufLine(hbuf, ln + 1, "@szLine@" # "{")
InsBufLine(hbuf, ln + 2, "@szLine@" # chTab);
InsBufLine(hbuf, ln + 3, "@szLine@" # "} while ();")
}
else if (wordinfo.szWord == "case")
{
SetBufSelText(hbuf, " ###")
InsBufLine(hbuf, ln + 1, "@szLine@" # chTab)
InsBufLine(hbuf, ln + 2, "@szLine@" # chTab # "break;")
}
else
stop
SetWndSel(hwnd, sel)
LoadSearchPattern("###", true, false, false);
Search_Forward
}
/* G E T W O R D L E F T O F I C H */
/*-------------------------------------------------------------------------
Given an index to a character (ich) and a string (sz),
return a "wordinfo" record variable that describes the
text word just to the left of the ich.
Output:
wordinfo.szWord = the word string
wordinfo.ich = the first ich of the word
wordinfo.ichLim = the limit ich of the word
-------------------------------------------------------------------------*/
macro GetWordLeftOfIch(ich, sz)
{
wordinfo = "" // create a "wordinfo" structure
chTab = CharFromAscii(9)
// scan backwords over white space, if any
ich = ich - 1;
if (ich >= 0)
while (sz[ich] == " " || sz[ich] == chTab)
{
ich = ich - 1;
if (ich < 0)
break;
}
// scan backwords to start of word
ichLim = ich + 1;
asciiA = AsciiFromChar("A")
asciiZ = AsciiFromChar("Z")
while (ich >= 0)
{
ch = toupper(sz[ich])
asciiCh = AsciiFromChar(ch)
if ((asciiCh < asciiA || asciiCh > asciiZ) && !IsNumber(ch))
break // stop at first non-identifier character
ich = ich - 1;
}
ich = ich + 1
wordinfo.szWord = strmid(sz, ich, ichLim)
wordinfo.ich = ich
wordinfo.ichLim = ichLim;
return wordinfo
}
//
// Comment the selected block of text using single line comments and indent it
//
macro CommentBlock()
{
hbuf = GetCurrentBuf();
hwnd = GetCurrentWnd();
sel = GetWndSel(hwnd);
iLine = sel.lnFirst;
while (iLine <= sel.lnLast)
{
szLine = GetBufLine(hbuf, iLine);
szLine = cat("// ", szLine);
PutBufLine(hbuf, iLine, szLine);
iLine = iLine + 1;
}
if (sel.lnFirst == sel.lnLast)
{
tabSize = _tsGetTabSize() - 1;
sel.ichFirst = sel.ichFirst + tabSize;
sel.ichLim = sel.ichLim + tabSize;
}
SetWndSel(hwnd, sel);
}
//
// Undo the CommentBlock for the selected text.
//
macro UnCommentBlock()
{
hbuf = GetCurrentBuf();
hwnd = GetCurrentWnd();
sel = GetWndSel(hwnd);
iLine = sel.lnFirst;
tabSize = 0;
while (iLine <= sel.lnLast)
{
szLine = GetBufLine(hbuf, iLine);
len = strlen(szLine);
szNewLine = "";
if (len > 1)
{
if (szLine[0] == "/" && szLine[1] == "/")
{
if (len > 2)
{
if (AsciiFromChar(szLine[2]) == 9)
{
tabSize = _tsGetTabSize() - 1;
szNewLine = strmid(szLine, 3, strlen(szLine));
}
}
if (szNewLine == "")
{
szNewLine = strmid(szLine, 2, strlen(szLine));
tabSize = 2;
}
PutBufLine(hbuf, iLine, szNewLine);
}
}
iLine = iLine + 1;
}
if (sel.lnFirst == sel.lnLast)
{
sel.ichFirst = sel.ichFirst - tabSize;
sel.ichLim = sel.ichLim - tabSize;
}
SetWndSel(hwnd, sel);
}
macro _tsGetTabSize()
{
szTabSize = GetReg("TabSize");
if (szTabSize != "")
{
tabSize = AsciiFromChar(szTabSize[0]) - AsciiFromChar("0");
}
else
{
tabSize = 4;
}
return tabSize;
}
//
// Reformat a selected comment block to wrap text at 80 columns.
// The start of the selection (upper left most character of the selection) is
// handled specially, in that it specifies the left most column at which all
// lines will begin. For example, if the following block was selected starting
// at the @ symbol, through the last line of the block...
//------------------------------------------------------------------------------
// preamble: @ This is a line that will be wrapped keeping the "at" symbol in its current column.
// All lines following it that are selected will use that as their starting column. See below to see how the wrapping
// works for this block of text.
//------------------------------------------------------------------------------
// preamble: @ This is a line that will be wrapped keeping the "at" symbol in
// its current column. All lines following it that are selected
// will use that as their starting column. See below to see how
// the wrapping works for this block of text.
//
macro tsReformatCommentBlock()
{
hbuf = GetCurrentBuf();
hwnd = GetCurrentWnd();
sel = GetWndSel(hwnd);
tabSize = _tsGetTabSize();
leftTextCol = 0 - 1;
colWrap = 80;
// Find the starting column, and create a Margin string
ichFirst = sel.ichFirst;
// Single line comment reformat?
if (sel.ichFirst == sel.ichLim && sel.lnFirst == sel.lnLast)
{
ichFirst = 0;
}
rec = _tsGetStartColumn(hbuf, ichFirst, sel.lnFirst);
if (rec == "")
stop;
colLeftMargin = rec.colMargin;
szMargin = "";
colComment = 0;
if (rec.colComment >= 0)
{
colComment = rec.colComment + 2
szMargin = _tsAddWhiteToColumn(szMargin, 0, rec.colComment, tabSize);
szMargin = cat(szMargin, "//");
}
szMargin = _tsAddWhiteToColumn(szMargin, colComment, rec.colMargin, tabSize);
rec = "";
szCurMargin = "";
if (ichFirst != 0)
{
szLine = GetBufLine(hbuf, sel.lnFirst);
szCurMargin = strmid(szLine, 0, ichFirst);
}
else
{
szCurMargin = szMargin;
szMargin = "";
}
insertLine = sel.lnFirst;
iLine = sel.lnFirst;
szRemainder = "";
while (1)
{
// msg("$0-" # iLine # ":" # szRemainder);
rec = _tsGetNextCommentString(hbuf, ichFirst, szRemainder, iLine, sel.lnLast, colWrap);
ichFirst = 0;
if (rec == "")
break;
// msg("$1-" # rec.ln # ":" # rec.szComment);
szLine = rec.szComment;
ich = 0;
col = colLeftMargin;
len = strlen(szLine);
ichPrevCharToWhite = 0-1;
ichPrevWhiteToChar = 0-1;
// msg("Leftovers @szRemainder@");
while (ich < len)
{
if (AsciiFromChar(szLine[ich]) == 9)
{
col = (((col + tabSize) / tabSize) * tabSize);
}
else
{
col = col + 1;
}
if (col > colWrap)
break;
fIsWhitespace = _tsIsWhitespaceChar(szLine[ich]);
fIsWhitespace1 = 1;
if (ich + 1 < len)
{
fIsWhitespace1 = _tsIsWhitespaceChar(szLine[ich + 1]);
}
if (!fIsWhitespace && fIsWhitespace1)
ichPrevCharToWhite = ich;
ich = ich + 1;
}
if (ichPrevCharToWhite > 0)
{
// msg("$2:" # strmid(szLine, 0, ichPrevCharToWhite + 1));
ich = ichPrevCharToWhite + 1;
while (ich < len)
{
if (!_tsIsWhitespaceChar(szLine[ich]))
{
ichPrevWhiteToChar = ich - 1;
// msg("$3:" # strmid(szLine, ichPrevWhiteToChar + 1, len));
break;
}
ich = ich + 1;
}
}
if (ichPrevCharToWhite > 0 && col > colWrap)
{
szNewLine = cat(szCurMargin, strmid(szLine, 0, ichPrevCharToWhite + 1));
szRemainder = "";
if (ichPrevWhiteToChar > 0)
szRemainder = strmid(szLine, ichPrevWhiteToChar + 1, len);
if (ichPrevCharToWhite > ichPrevWhiteToChar)
msg("!!!Wrap, duplicating word " # ichPrevWhiteToChar # " " # ichPrevCharToWhite # " " # szNewLine # " >>> " # szRemainder);
// msg(szLine);
// msg(col # " " # ichPrevWhiteToChar # " " # ichPrevCharToWhite # " " # szNewLine # " >>> " # szRemainder);
}
else if (szLine != "")
{
szNewLine = cat(szCurMargin, szLine );
szRemainder = "";
// sel.lnLast = sel.lnLast + 1;
}
iLine = rec.ln;
if (insertLine == iLine)
{
iLine = iLine + 1;
sel.lnLast = sel.lnLast + 1;
// msg("$5-" # insertLine # ":" # szNewLine);
InsBufLine(hbuf, insertLine, szNewLine);
}
else
{
szLine = GetBufLine(hbuf, insertLine);
if (szLine != szNewLine)
{
// msg("$6-" # insertLine # ":" # szNewLine);
PutBufLine(hbuf, insertLine, szNewLine);
}
}
insertLine = insertLine + 1;
if (szMargin != "")
{
szCurMargin = szMargin;
szMargin = "";
}
}
while (insertLine <= sel.lnLast)
{
DelBufLine(hbuf, insertLine);
sel.lnLast = sel.lnLast - 1;
}
len = GetBufLineLength(hbuf, insertLine-1);
sel.ichFirst = len;
sel.ichLim = len;
sel.lnFirst = sel.lnLast;
SetWndSel(hwnd, sel);
}
macro _tsAddWhiteToColumn(sz, col0, col, tabSize)
{
szTabs = " ";
szSpaces = " ";
tabs0 = col0 / tabSize;
tabs = (col / tabSize) - tabs0;
if (tabs == 0)
foo = col0;
else
foo = (tabs + tabs0) * tabSize;
spaces = col - foo;
// msg(col0 # " " # col # " " # tabs # " " # spaces # " " # tabs0);
if (tabs)
sz = cat(sz, strmid(szTabs, 0, tabs));
if (spaces)
sz = cat(sz, strmid(szSpaces, 0, spaces));
return sz;
}
macro _tsGetStartColumn(hbuf, ichBegin, ln)
{
szLine = GetBufLine(hbuf, ln);
len = strlen(szLine);
tabSize = _tsGetTabSize();
ich = 0;
colMargin = 0;
colComment = 0-1;
rec = "";
rec.colMargin = colMargin;
rec.colComment = colComment;
while (ich < len)
{
if (AsciiFromChar(szLine[ich]) == 9)
{
colMargin = (((colMargin + tabSize) / tabSize) * tabSize);
}
else
{
colMargin = colMargin + 1;
}
if (colComment < 0)
{
if (ich + 1 < len)
{
if (szLine[ich] == "/" && szLine[ich+1] == "/")
{
colComment = colMargin - 1;
ich = ich + 2;
colMargin = colMargin + 1;
continue;
}
}
}
if (ich >= ichBegin)
{
if (!_tsIsWhitespaceChar(szLine[ich]))
{
rec.colMargin = colMargin - 1;
rec.colComment = colComment;
// msg(szLine[ich]);
return rec;
}
}
ich = ich + 1;
}
return rec;
}
macro _tsGetNextCommentString(hbuf, ichSkip, szRemainder, ln, lnLast, colWrap)
{
rec = "";
// Go until we get a string that is at least long enough to fill a line
// or, we run out of lines.
if (szRemainder == "" && ln > lnLast)
return "";
ichFirst = ichSkip;
// msg(ichSkip);
while (1)
{
if (ln > lnLast)
{
rec.szComment = szRemainder;
rec.ln = ln;
return rec;
}
cchRemainder = strlen(szRemainder);
if (cchRemainder > colWrap)
{
rec.szComment = szRemainder;
rec.ln = ln;
return rec;
}
szLine = GetBufLine(hbuf, ln);
len = strlen(szLine);
if (ichSkip == 0)
ichFirst = _tsSkipPastCommentAndWhitespace(szLine, len);
ichSkip = 0;
ichLast = len - 1;
// Now, strip out all whitespace at the end of the line
while (ichLast >= ichFirst)
{
if (!_tsIsWhitespaceChar(szLine[ichLast]))
{
break;
}
ichLast = ichLast - 1;
}
// Entire line is whitespace?
if (ichLast < ichFirst)
{
if (szRemainder == "")
ln = ln + 1;
rec.szComment = szRemainder;
rec.ln = ln;
return rec;
}
// length of the non whitespaced comment + 1 space + cchRemainder
if ((ichLast + 1) - ichFirst + cchRemainder + 1 > 255)
{
// It may not format the current line quite right, but
// but at least we won't throw away some of the comment.
rec.szComment = szRemainder;
rec.ln = ln;
return rec;
}
if (szRemainder != "")
szRemainder = cat(szRemainder, " ");
szRemainder = cat(szRemainder, strmid(szLine, ichFirst, ichLast + 1));
ln = ln + 1;
}
}
macro _tsSkipPastCommentAndWhitespace(szLine, len)
{
ichFirst = 0;
// Skip past the comment initiator "//" if there is one.
while (ichFirst < len)
{
if (ichFirst + 1 < len)
{
if (szLine[ichFirst] == "/" && szLine[ichFirst+1] == "/")
{
ichFirst = ichFirst + 2;
break;
}
}
ichFirst = ichFirst + 1;
}
// If no comment found in line, then start from the beginning
if (ichFirst >= len)
ichFirst = 0;
ichFirst = ichFirst;
// Now, strip out all whitespace after the comment start.
while (ichFirst < len)
{
if (!_tsIsWhitespaceChar(szLine[ichFirst]))
{
break;
}
ichFirst = ichFirst + 1;
}
return ichFirst;
}