SourceSafe Keyword Expansion Template

We use Visual SourceSafe's keyword expansion. Each of our project's source files has (or should if we remember) the following header when we add it to source control.

// TEST.CPP : implementation file
//
/* $Log: /TEST/TEST.CPP $
*/     
This macro inserts the template into .H and .CPP files.

Sub AddSSHeader()
'DESCRIPTION: Insert the source safe keyword expansion comments at the top of source file

 strName = UCase(ActiveDocument.Name)
 pos = Instr(strName, ".")

 if (pos < 1) then
  Exit Sub
 end if
  
 strExt = Mid(strName, pos)

 if (strExt = ".CPP") then
  strDesc = "implementation file"
 else 
  if (strExt = ".H") then
   strDesc = "header file"
  else
   exit sub       
  end if
 end if

 ActiveDocument.Selection.StartOfDocument

 ' Check for existing keyword expansion
 for i = 1 to 20
  ActiveDocument.Selection.SelectLine

 if Instr(ActiveDocument.Selection, "/* $Log:") > 0 then
  MsgBox "File already has keyword expansion."
  exit sub
 end if  

  ActiveDocument.Selection.LineDown
 next

 strFullName = ActiveDocument.FullName
 pos = Instr(strFullName, ":")

 if (pos > 0) then
  strFullName = Mid(strFullName, pos + 1)
 end if

 ActiveDocument.Selection.StartOfDocument
 ActiveDocument.Selection = "// " + strName + " : " + strDesc + vbCrLf 
 ActiveDocument.Selection = "//" + vbCrLf
 ActiveDocument.Selection = "/* $Log: " + UCase(Replace(strFullName, 
 "\", "/")) + " $" + vbCrLf
 ActiveDocument.Selection = "*/" + vbCrLf + vbCrLf

end sub

Date Last Updated: February 3, 1999



Comments

  • There are no comments yet. Be the first to comment!

Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Complex hybrid environments can make it difficult to track interdependencies, increasing the risk of disrupting critical business services. In this white paper by EMA, you'll learn how application discovery and dependency mapping can help you: Meet granular targets for availability, cost, and time-to-revenue for cloud services. Accelerate mean time to repair (MTTR) while communicating better with stakeholders. Manage even the most complex hybrid environments more efficiently and effectively Understand the …

  • Rocket Mobile® for IBM i is an enterprise mobile application development and deployment platform for customers who rely on the IBM i system. Rocket Mobile for IBM i enables customers to leave proven applications in-place and rapidly repurpose them into new managed and secure mobile applications. Fast, easy creation of mobile, web, and hybrid mobile applications that deploy to any iOS, Android, or Windows mobile phone or tablet Built-in integration for seamless repurposing of existing IBM i applications …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date