Source Insightv3.5 中文注冊版

Source Insight，一個無比強大的工具。一個很好的查看代碼的工具。到它的官網上去看一下，就知道，世界上基本上所有的大的軟件公司，都在用這個工具。
習慣了這個工具以後，你會無法忍受其它的代碼編輯和查看工具。

為什麼要用Source Insight呢？貌似是因為比完整的IDE要更快一些，比較利於查看大量的代碼。

軟件的安裝很簡單，設置好安裝目錄。

配置好文檔路徑，當然這個也可以在Options裏麵改，選Options->Preferences…裏麵的Folders標簽就行。

SourceInsight使用技巧

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)

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

+

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>

source insight常用宏

轉自:http://blog.csdn.net/Jupin/archive/2005/02/04/281020.aspx

說明:
該宏文件實現一些編碼程中能會到的功能, 如添加文件頭、函數說明和宏定義等, 使用時能自動添加文件名、函數名和當前日期.

使用說明:
1. Project->Open Project... 打開Base工程(該工程一般在"我的文檔\Source Insight\Projects\Base"中);
2. Project->Add and Remove Project Files... 加入宏文件(即Gaoke.em);
3. Options->Menu Assignments 打開Menu Assignments窗口, 在Command中輸入Macro, 選中要使用的宏, 添加到合適的菜單中.

/*附上宏定義文件*/
/* t357.em - a small collection of useful editing macros */

/******************************************************************************
* InsFileHeader -- insert the information of file
*
* modification history
* --------------------
* 01a, 23mar2003, added DESCRIPTION by t357
* 01a, 05mar2003, t357 written
* --------------------
******************************************************************************/
/*-------------------------------------------------------------------------
I N S E R T H E A D E R

Inserts a comment header block at the top of the current function.
This actually works font-size: 12px;"> To use this, define an environment variable "szMyName" and set it
to your email name. eg. set szMyName=raygr
-------------------------------------------------------------------------*/

macro InsFileHeader()
{

/*#########################################################
#########################################################
####### Set szMyName variable to your name ########
####### for example szMyName = "t357" ########
#########################################################
#########################################################*/
szMyName = ""

// 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)

hBuf = GetCurrentBuf()
szpathName = GetBufName(hBuf)
szfileName = GetFileName(szpathName)
nlength = StrLen(szfileName)
szInf = Ask("Enter the information of file:")
szDescription = Ask("Enter the description of file:")

hbuf = GetCurrentBuf()
// begin assembling the title string
InsBufLine(hbuf, 0, "/******************************************************************************")
InsBufLine(hbuf, 1, " * @szfileName@ - @szInf@")
InsBufLine(hbuf, 2, " * ")
InsBufLine(hbuf, 3, " * Copyright 1998-2003 Guangzhou Gaoke Communication Technology Co.,Ltd.")
InsBufLine(hbuf, 4, " * ")
InsBufLine(hbuf, 5, " * DESCRIPTION: - ")
InsBufLine(hbuf, 6, " * @szDescription@")
InsBufLine(hbuf, 7, " * modification history")
InsBufLine(hbuf, 8, " * --------------------")
InsBufLine(hbuf, 9, " * 01a, @szDay@@szMonth@@Year@, @szMyName@ written")
InsBufLine(hbuf, 10, " * --------------------")
InsBufLine(hbuf, 11, " ******************************************************************************/")

// put the insertion point inside the header comment
SetBufIns(hbuf, 1, nlength + strlen(szInf) + 8)
}

/******************************************************************************
* 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 = ""

// 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
}
}

/******************************************************************************
* GetFileName -- get the filename font-size: 12px;"> return name
}

/******************************************************************************
* ReturnTrueOrFalse -- Inserts "Returns True or False" at the current line
*
* modification history
* --------------------
* 01a, 05mar2003, t357 written
* --------------------
******************************************************************************/
macro ReturnTrueOrFalse()
{
szReturns = "return True if successful or False if errors."
hbuf = GetCurrentBuf()
ln = GetBufLnCur(hbuf)
szCurLine = GetBufLine(hbuf, ln)
DelBufLine(hbuf, ln)
InsBufLine(hbuf, ln, "@szCurLine@@szReturns@")
SetBufIns(hbuf, ln, StrLen(szReturns) + StrLen(szCurLine) + 3)
}

/******************************************************************************
* InsHeaderDef -- Inserts the header define in the headerfile
*
* modification history
* --------------------
* 01a, 05mar2003, t357 written
* --------------------
******************************************************************************/
macro InsHeaderDef()
{
hBuf = GetCurrentBuf()
szpathName = GetBufName(hBuf)
szfileName = GetFileName(szpathName)
szfileName = toupper(szfileName)
nlength = StrLen(szfileName)
i = 0 /* loop control */
szdefineName = ""
while (i < nlength)
{
if (szfileName[i] == ".")
szdefineName = Cat(szdefineName, "_")
else
szdefineName = Cat(szdefineName, szfileName[i])
i = i + 1
}
szdefineName = Cat("_", szdefineName)
IfdefineSz(szdefineName)
}

/******************************************************************************
* PrintDate - print date mailto:0@Day">0@Day@"
else
szDay = Day
szMonth = NumToName(Month)
hbuf = GetCurrentBuf()
ln = GetBufLnCur(hbuf)
szCurLine = GetBufLine(hbuf, ln)
DelBufLine(hbuf, ln)
InsBufLine(hbuf, ln, "@szCurLine@ @szDay@@szMonth@@Year@")
SetBufIns(hbuf, ln, StrLen(szCurLine) + 10)
}

// Ask user for ifdef condition and wrap it around current
// selection.
// 28mar2003, modified by t357.
// 26mar2003, modified by t357.
macro InsIfdef()
{
sz = Ask("Enter ifdef condition:")
if (sz != "")
{
// IfdefSz(sz);
hwnd = GetCurrentWnd()
sel = GetWndSel(hwnd)
hbuf = GetWndBuf(hwnd)
// get line the selection (insertion point) is font-size: 12px;"> InsBufLine(hbuf, sel.lnFirst, "")
InsBufLine(hbuf, sel.lnFirst + 1, "@ich@#ifdef @sz@")
InsBufLine(hbuf, sel.lnFirst + 2, "@ich@" # chTab)
InsBufLine(hbuf, sel.lnFirst + 3, "@ich@#endif /* @sz@ */")
SetBufIns(hbuf, sel.lnFirst + 2, StrLen(ich) + StrLen(chTab))
}
}

// Wrap ifdeinef.. 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 font-size: 12px;"> // 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 font-size: 12px;"> 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
}