Define method

One of the very boring things when hacking a little function directly into
the Sourcefile is to copy its definition to the Headerfile.

Here is a quick Solution:

Put the Cursor in the Line where the Function starts (for Example : void
foo( int x) ). Call the Makro ‘DefineMethod’. It searches for the header file,
and then for the beginnig of the public, protected and private blocks. After that
it ask you in which block your function is defined. If there is no block the macro
creates one.

It uses the ‘ToggleHandCPP’ macro from Ian Southwell
(link here) !



‘MTMacro.dsm – Written by M.Taupitz

‘——————————————————————————
‘FILE DESCRIPTION: copys the definition from the CPP to the header.
‘——————————————————————————

Sub DefineMethod()
‘DESCRIPTION: Copy the Definition into the Header-File
strHpt = ActiveDocument.FullName
if right(strHpt,3) = "CPP" Or right (strHpt,3) = "cpp" Then
ActiveDocument.Selection.SelectLine
strText = ActiveDocument.Selection.Text
if (Instr(strText, "::" ) = 0) Then
MsgBox("Line not valid !!")
Exit Sub
End If

pos = Instr(strText, "::")
strName = Right(strText, (Len(strText) – (pos+1)))

strClass = Left(strText,pos – 1)
while (instr(strClass, " ") > 0)
pos = instr(strClass, " ")
strTyp = strTyp & Left(strClass, pos)
strClass = Right(strClass, Len(strClass) – (pos) )
wend

strName = strTyp & " " & Left(strName,Len(strName)-2 ) ‘(without CRLF also -2)
iCou = InStr(ActiveDocument.Selection.Text,"//")
if (iCou > 0) Then
strName = strName & Trim( Left(strName, iCou – 1))
End If
while (instr(strName, ")" ) = 0 )
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.LineDown dsMove
ActiveDocument.Selection.StartOfLine dsExtend
ActiveDocument.Selection.EndOfLine dsExtend
while Left(strName,1) = " " Or Left(strName,1) = " "
strName = Right(strName, Len(strName) -1)
Wend
iCou = InStr(ActiveDocument.Selection.Text,"//")
if (iCou = 0)Then
strName = strName & Trim(ActiveDocument.Selection.Text)
Else
strName = strName & Trim( Left(ActiveDocument.Selection.Text, iCou – 1))
End If

‘ kill the Tabs
tabCou = InStr(strName, vbTab)
while tabCou > 0
strName = (Left(strName, tabCou-1)) & (Right(strName, Len(strName)-tabCou ) )
tabCou = InStr(strName, vbTab)
Wend ‘tabCou
Wend

strName = strName & ";" & vbCrLf

ToggleHandCPP

ActiveDocument.Selection.SelectAll
strHead = ActiveDocument.Selection.Text

if (instr(strHead,strClass) = 0) Then
MsgBox(" Can’t find class " & strClass & " !!")
ToggleHandCPP
Exit Sub
End If

pos = instr(strHead,strClass)

linePublic = 0
linePrivate = 0
lineProtected = 0
ActiveDocument.Selection.EndOfDocument
lineBottom = ActiveDocument.Selection.CurrentLine

ActiveDocument.Selection.StartOfDocument
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text
while (instr(strLine, "private:" ) = 0 And ActiveDocument.Selection.CurrentLine <> lineBottom)
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.LineDown dsMove
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text
Wend
if (ActiveDocument.Selection.CurrentLine < lineBottom) Then
linePrivate = ActiveDocument.Selection.CurrentLine
else
linePrivate = 0
end if

ActiveDocument.Selection.StartOfDocument
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text
while (instr(strLine, "protected:" ) = 0 And ActiveDocument.Selection.CurrentLine <> lineBottom)
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.LineDown dsMove
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text
Wend
if (ActiveDocument.Selection.CurrentLine < lineBottom) Then
lineProtected = ActiveDocument.Selection.CurrentLine
else
lineProtected = 0
end if

ActiveDocument.Selection.StartOfDocument
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text
while (instr(strLine, "public:" ) = 0 And ActiveDocument.Selection.CurrentLine <> lineBottom)
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.LineDown dsMove
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text
Wend
if (ActiveDocument.Selection.CurrentLine < lineBottom) Then
linePublic = ActiveDocument.Selection.CurrentLine
else
linePublic = 0
end if

ActiveDocument.Selection.StartOfDocument
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text
while (instr(strLine, "{" ) = 0 And ActiveDocument.Selection.CurrentLine <> lineBottom)
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.LineDown dsMove
ActiveDocument.Selection.SelectLine
strLine = ActiveDocument.Selection.Text
Wend
if (ActiveDocument.Selection.CurrentLine < lineBottom) Then
lineStart = ActiveDocument.Selection.CurrentLine
else
lineStart = 0
end if

bAnswer = MsgBox("Copy the definition as –public-(YES), –protected-(NO) or –private-(CANCEL) ?", vbYesNoCancel)

Replace strName, vbCrLf, " "
Replace strName, vbCr, " "
Replace strName, vbLf, " "

If bAnswer = vbYes Then
if linePublic = 0 Then
ActiveDocument.Selection.GoToLine lineStart+1, dsSelect
ActiveDocument.Selection = ActiveDocument.Selection & "public:" & vbCrLf & vbTab & strName
Else
ActiveDocument.Selection.GoToLine linePublic+1, dsSelect
ActiveDocument.Selection = ActiveDocument.Selection & vbTab & strName
End If
End If

If bAnswer = vbNo Then
if lineProtected = 0 Then
ActiveDocument.Selection.GoToLine lineStart+1, dsSelect
ActiveDocument.Selection = ActiveDocument.Selection & "protected:" & vbCrLf & vbTab & strName
Else
ActiveDocument.Selection.GoToLine lineProtected+1, dsSelect
ActiveDocument.Selection = ActiveDocument.Selection & vbTab & strName
End If
End If

If bAnswer = vbCancel Then
if linePrivate = 0 Then
ActiveDocument.Selection.GoToLine lineStart+1, dsSelect
ActiveDocument.Selection = ActiveDocument.Selection & "private:" & vbCrLf & vbTab & strName
Else
ActiveDocument.Selection.GoToLine linePrivate+1, dsSelect
ActiveDocument.Selection = ActiveDocument.Selection & vbTab & strName
End If
End If

ToggleHandCPP
End If ‘right = "CPP"

End Sub

More by Author

Must Read