' nevrax_macros.dsm ' ' Copyright (C) 2000-2005 Nevrax. All rights reserved. ' ' The redistribution, use and modification in source or binary forms of ' this software is subject to the conditions set forth in the copyright ' document ("Copyright") included with this distribution. ' '------------------------------------------------------------------------------ ' FILE DESCRIPTION: Nevrax Visual Studio macro file ' $Id: nevrax_macros.dsm,v 1.22 2005/01/03 14:46:02 cado Exp $ '------------------------------------------------------------------------------ ' *** NevraxNewClass *** ' NevraxInsertFileHeader ' Utility Sub for NevraxNewClass() ' Author : Olivier Cado Sub NevraxInsertFileHeader( filename, productname ) ActiveDocument.Selection.StartOfDocument ActiveDocument.Selection = _ "/** \file " + filename + vbLf + _ " *" + vbLf + _ " */" + vbLf + vbLf End Sub Function IsUpCase( str ) IsUpcase = ( str = Ucase(str) ) End Function ' NevraxClassNameToFileName ' Utility Function for NevraxNewClass() ' 1/08/2000 : now analyses the first character ' Author : Olivier Cado Function NevraxClassNameToFileName( classname ) beginningpos = 1 first = left(classname,1) if ((first="C") or (first="E") or (first="I")) then if len(classname)>1 then if IsUpCase( mid(classname,2,1) ) then beginningpos = 2 end if end if end if filename = lcase(mid(classname,beginningpos,1)) for i = beginningpos+1 to len( classname ) charact = mid(classname,i,1 ) if IsUpCase( charact ) then if i+1 <= len( classname ) then if not IsUpCase( mid(classname,i+1,1) ) then filename = filename + "_" end if else filename = filename + "_" end if end if filename = filename + lcase(charact) next NevraxClassNameToFileName = filename End Function ' NevraxProjectOpen ' Utility Function for NevraxNewClass() ' Author : Olivier Cado Function NevraxProjectOpen( projname ) found = 0 dim proj for i = 1 to Projects.Count if Projects(i).Name = projname then found = i exit for end if next NevraxProjectOpen = found End Function ' Global variable Dim CurrentDirectoryName Dim CurrentProgrammerName ' NevraxNewClass ' DESCRIPTION: Wizard for new class creation ' 1/08/2000 : added input boxes for directories ' 7/09/2000 : added programmer's name dialog and test for file existence (dirs & files) ' 18/09/2000 : namespace, programmer's name saved in a file, file added to the right project ' 12/10/2000 : modified output ' Weird things : ' - CreateObject( Scripting.FileSystemObject ) doesn't work on Win 98, but on 2000 ' - Projects.Item( string ) doesn't work. Using number instead ' Author : Olivier Cado Sub NevraxNewClass() ' ** Input class name and file name ClassName = InputBox( "Bienvenue dans l'assistant de cr�ation de classe." + vbLf + vbLf + _ "Nom de la nouvelle classe :", "Nouvelle classe (1)" ) if ClassName = "" then Exit Sub end if Filename = NevraxClassNameToFileName( ClassName ) ' Warning: do not enter an existing filename, or MsDev will crash when attempting to save Filename = InputBox( "Nom de fichier sans l'extension:", "Nouvelle classe (2)", Filename ) if Filename = "" then Exit Sub end if UniqueName = "NL_" + UCase( Filename ) + "_H" HFilename = Filename + ".h" CppFilename = Filename + ".cpp" ' Load configuration dim fso set fso = CreateObject("Scripting.FileSystemObject") ConfigFileName = "R:\code\tool\visual_studio_macros\nevrax_new_class.cfg" if fso.FileExists( ConfigFileName ) then set f = fso.OpenTextFile( ConfigFileName, 1 ) ' 1 = ForReading 'if CurrentProgrammerName = "" then CurrentProgrammerName = f.ReadLine 'else ' CurrentProgrammerName = "Richard Stallman" 'end if SrcDirectory = f.ReadLine IncDirectory = f.ReadLine f.Close end if ' ** Directories (NB: input boxes cannot be canceled in this part) SrcDirectory = InputBox( "R�pertoire racine (existant) des sources (.cpp)" + vbLf + "(ex: R:\code\nel\src pour NeL) :","Nouvelle classe (3)", SrcDirectory ) if SrcDirectory <> "" then if right(SrcDirectory,1)<>"\" then SrcDirectory = SrcDirectory + "\" end if else IncDirectory = "" end if IncDirectory = InputBox( "R�pertoire racine (existant) des include (.h)" + vbLf + "(ex: R:\code\nel\include\nel pour NeL ; cha�ne vide pour le m�me r�pertoire que les fichiers source ) :","Nouvelle classe (4)", IncDirectory ) if IncDirectory = "" then IncDirectory = SrcDirectory else if (right(IncDirectory,1)<>"\") then IncDirectory = IncDirectory + "\" end if end if CurrentDirectoryName = InputBox( "Nom du r�pertoire de travail (ex: misc)" + vbLf + "(existant dans " + SrcDirectory + _ " et dans " + IncDirectory + ")" + vbLf + "Ce nom restera m�moris�" + vbLf + "(cha�ne vide pour pour un projet hors-NeL).", "Nouvelle classe (5)", CurrentDirectoryName ) if CurrentDirectoryName<>"" then CurrentDirectoryDir = CurrentDirectoryName + "\" Namesp = "NL" + ucase(CurrentDirectoryName) end if If InStr( IncDirectory, "nel" ) then ProdName = "NEL" ShortIncDir = "nel/" + CurrentDirectoryName + "/" else ProdName = "NeL Network Services" ' not Distributed Toolkit Components System anymore end if ' ** Check for file existence FinalCPPdir = SrcDirectory + CurrentDirectoryDir FinalHdir = IncDirectory + CurrentDirectoryDir if not fso.FolderExists( FinalHdir ) then MsgBox "Erreur : le r�pertoire " + FinalHdir + " n'existe pas !", vbExclamation Exit Sub end if if not fso.FolderExists( FinalCPPdir ) then MsgBox "Erreur : le r�pertoire " + FinalCPPdir + " n'existe pas !", vbExclamation Exit Sub end if FinalCPPfilename = FinalCPPdir + CppFilename FinalHfilename = FinalHdir + HFilename if fso.FileExists( FinalHfilename ) then MsgBox "Erreur : le fichier " + FinalHfilename + " existe d�j� !", vbExclamation Exit Sub end if if fso.FileExists( FinalCPPfilename ) then MsgBox "Erreur : le fichier " + FinalCPPfilename + " existe d�j� !", vbExclamation Exit Sub end if ' ** Check for open project if CurrentDirectoryName="" then AddToProject = 0 else AddToProject = NevraxProjectOpen( CurrentDirectoryName ) end if ' ** Programmer's name CurrentProgrammerName = InputBox( "Votre pr�nom et votre nom (qui restera m�moris� dans un fichier) :", "Nouvelle classe (6)", CurrentProgrammerName ) if CurrentProgrammerName = "" then Exit Sub end if ' Save configuration set f = fso.OpenTextFile( ConfigFileName, 2, true ) ' 2 = ForWriting f.WriteLine CurrentProgrammerName f.WriteLine SrcDirectory f.WriteLine IncDirectory f.Close ' ** Input ancestor class name and file name NoAncestor = "NO BASE CLASS" AncClassName = InputBox( "Nom de la classe de base :", "Nouvelle classe (7)", NoAncestor ) if AncClassName = "" then Exit Sub else if AncClassName = NoAncestor then AncClassName = "" else AncFilename = InputBox( "Nom de fichier (avec chemin) sans l'extension (ex: nel/misc/toto) :", "Nouvelle classe (8)" ) if AncFileName = "" then Exit Sub end if AncHFilename = AncFilename + ".h" 'if not fso.FileExists( AncHFilename ) then ' MsgBox "Attention : le fichier " + AncHFilename + " n'existe pas encore.", vbInformation 'end if end if end if ' ** Now write .cpp Documents.Add( "Text" ) NevraxInsertFileHeader CppFilename, ProdName ActiveDocument.Selection = vbLf + "#include """ + ShortIncDir + HFilename + """" + vbLf + vbLf + vbLf if ( CurrentDirectoryName<>"" ) then ActiveDocument.Selection = "namespace " + Namesp + " {" + vbLf + vbLf + vbLf end if ActiveDocument.Selection = "/*" + vbLf + _ " * Constructor" + vbLf + _ " */" + vbLf + _ ClassName + "::" + ClassName + "()" + vbLf + _ "{" + vbLf + _ "}" + vbLf + vbLf + vbLf if ( CurrentDirectoryName<>"" ) then ActiveDocument.Selection = "} // " + Namesp + vbLf end if ' Warning: ActiveDocument.Save raises an "Unknown error" if the directory does not exist" ActiveDocument.Save( FinalCPPfilename ) if AddToProject=0 then ActiveProject.AddFile( FinalCPPfilename ) else Projects(AddToProject).AddFile( FinalCPPfilename ) end if ' ** Now write .h Documents.Add( "Text" ) NevraxInsertFileHeader HFilename, ProdName ActiveDocument.Selection = vbLf + "#ifndef " + UniqueName + vbLf + _ "#define " + UniqueName + vbLf + vbLf ActiveDocument.Selection = "#include ""nel/misc/types_nl.h""" + vbLf if AncClassName <> "" then ActiveDocument.Selection = "#include """ + AncHFilename + """" + vbLf end if if ( CurrentDirectoryName<>"" ) then ActiveDocument.Selection = vbLf + vbLf + "namespace " + Namesp + " {" + vbLf end if ActiveDocument.Selection = vbLf + vbLf + _ "/**" + vbLf + _ " * <Class description>" + vbLf + _ " * \author " + CurrentProgrammerName + vbLf + _ " * \author Nevrax France" + vbLf + _ " * \date 2005" + vbLf + _ " */" + vbLf + _ "class " + ClassName if AncClassName <> "" then ActiveDocument.Selection = " : public " + AncClassName end if ActiveDocument.Selection = vbLf + _ "{" + vbLf + _ "public:" + vbLf + vbLf + _ " /// Constructor" + vbLf + _ " " + ClassName + "();" + vbLf + vbLf + _ "};" + vbLf + vbLf if ( CurrentDirectoryName<>"" ) then ActiveDocument.Selection = vbLf + "} // " + Namesp + vbLf + vbLf end if ActiveDocument.Selection = vbLf + "#endif // " + UniqueName + vbLf ActiveDocument.Selection = vbLf + "/* End of " + HFilename + " */" + vbLf ' Warning: ActiveDocument.Save raises an "Unknown error" if the directory does not exist" ActiveDocument.Save( FinalHfilename ) if AddToProject=0 then ActiveProject.AddFile( FinalHfilename ) else Projects(AddToProject).AddFile( FinalHfilename ) end if End Sub ' *** End of NevraxNewClass *** ' ** NevraxToggleHCPP ' NevraxToggleHCPP ' DESCRIPTION: Opens the .cpp or .h file (toggles) for the current document. ' TIP: Bind this macro to Ctrl+< ' Last modification : 22/05/2001 ' Author : Olivier Cado Sub NevraxToggleHCPP() ' ** Get filename extension and ensure it is .h or .cpp ActFilename = ActiveDocument.FullName pos = InstrRev( ActFilename, "." ) if ( pos <> 0 ) then Ext = mid(ActFilename,pos) if (Ext<>".h" and Ext<>".cpp") then msgbox( "Error : Active document is not a .cpp or .h file" ) exit sub end if else exit sub end if ' ** Build the alternative filename ' The module name is the word between the two last backslashes of the path\filename ModuleDir = left( ActFilename, InstrRev(ActFilename,"\")-1 ) ModuleDir = mid( ModuleDir, InstrRev(ModuleDir, "\")+1 ) + "\" dim SearchDirs (4) if ( Ext = ".cpp" ) then SearchDirs(1) = "R:\code\nel\include\nel\" + ModuleDir SearchDirs(2) = "R:\code\nel\include_private\nel\" + ModuleDir SearchDirs(3) = left( ActFilename, InstrRev(ActFilename,"\") ) 'dir of the current file NbDirs = 3 Ext = "h" else SearchDirs(1) = "R:\code\nel\src\" + ModuleDir SearchDirs(2) = left( ActFilename, InstrRev(ActFilename,"\") ) 'dir of the current file NbDirs = 2 Ext = "cpp" end if DirIndex = 1 FileFound = False Dirs = "" while (DirIndex <= NbDirs) and (FileFound = False) ' NeL directory scheme if InStr(ActFilename,"nel")<>0 then ' Add the search path and the filename NewFilename = SearchDirs(DirIndex) ShortFilenameDot = mid( ActFilename, InstrRev(ActFilename,"\")+1 ) else ' The complete filename ShortFilenameDot = ActFilename end if ShortFilenameDot = left( ShortFilenameDot, Instr(ShortFilenameDot,".") ) NewFilename = NewFilename + ShortFilenameDot + Ext ' ** Open the alternative file dim fso set fso = CreateObject("Scripting.FileSystemObject") if fso.FileExists( NewFilename ) then Documents.Open( NewFilename ) FileFound = True else Dirs = Dirs + SearchDirs(DirIndex) + vbLf DirIndex = DirIndex + 1 end if wend if FileFound <> True then MsgBox "There is no file " + ShortFilenameDot + Ext + " in " + vbLf + Dirs end if End Sub ' ** NevraxToggleHCPP ' NevraxFormatMethodHeader ' DESCRIPTION: Edit a Doxygen .h style method header for a .cpp file. ' The caret must be a the beginning of the first line of the header. ' Author : Olivier Cado Sub NevraxFormatMethodHeader() ActiveDocument.Selection.Delete ActiveDocument.Selection.CharRight ActiveDocument.Selection.Delete 2 ActiveDocument.Selection = "*" + vbLf + " *" ActiveDocument.Selection.EndOfLine ActiveDocument.Selection = vbLf + " */" ActiveDocument.Selection.LineDown ActiveDocument.Selection.Delete ActiveDocument.Selection.EndOfLine ActiveDocument.Selection.Backspace ActiveDocument.Selection = vbLf + "{" + vbLf + vbLf + "}" + vbLf ActiveDocument.Selection.LineDown dsMove,2 End Sub