Added library support

Author: ThomasJaeger

Domain/uGroup.pas

@@ -108,30 +108,40 @@ procedure TGroup.CreateNewProject(projectType: TProjectType; options: TVisualMAS
     ptWin32:
       begin
         project := CreateProject('Win32App.exe',projectType);
+        project.CreateProjectFile(DEFAULT_FILE_NAME, options);
       end;
     ptWin32Dlg:
       begin
         project := CreateProject('Win32AppDlg.exe',projectType);
+        project.CreateProjectFile(DEFAULT_FILE_NAME, options);
       end;
     ptWin32Con:
       begin
         project := CreateProject('Win32Con.exe',projectType);
+        project.CreateProjectFile(DEFAULT_FILE_NAME, options);
       end;
     ptWin64:
       begin
         project := CreateProject('Win64App.exe',projectType);
+        project.CreateProjectFile(DEFAULT_FILE_NAME, options);
       end;
     ptDos16COM:
       begin
         project := CreateProject('Program.com',projectType);
+        project.CreateProjectFile(DEFAULT_FILE_NAME, options);
       end;
     ptDos16EXE:
       begin
         project := CreateProject('Program.exe',projectType);
+        project.CreateProjectFile(DEFAULT_FILE_NAME, options);
+      end;
+    ptLib:
+      begin
+        project := CreateProject('MyLibrary.lib',projectType);
+        project.CreateProjectFile('readme.txt', options, pftTXT);
       end;
   end;
 
-  project.CreateProjectFile(DEFAULT_FILE_NAME, options);
   AddProject(project);
   SetActiveProject(project);
 end;

Domain/uProject.pas

@@ -171,6 +171,11 @@ function TProject.CreateProjectFile(name: string; options: TVisualMASMOptions; f
         if fileType = pftASM then
           projectFile.Content := TFile.ReadAllText(options.TemplatesFolder+DOS_16_BIT_EXE_STUB_FILENAME);
       end;
+    ptLib:
+      begin
+        if fileType = pftTXT then
+          projectFile.Content := TFile.ReadAllText(options.TemplatesFolder+LIB_STUB_FILENAME);
+      end;
   end;
 
   AddProjectFile(projectFile);

Domain/uProjectFile.pas

@@ -144,6 +144,8 @@ procedure TProjectFile.SetFileName(value: string);
     FProjectFileType := pftINI
   else if (fileExt = '.C') or (fileExt = '.CPP') or (fileExt = '.CC') or (fileExt = '.H') or (fileExt = '.HPP') or (fileExt = '.HH') or (fileExt = '.CXX') or (fileExt = '.HXX') or (fileExt = '.CU') then
     FProjectFileType := pftCPP
+  else if fileExt = '.LIB' then
+    FProjectFileType := pftLib
   else
     // FProjectFileType := pftOther;
     FProjectFileType := pftBinary;

Domain/uSharedGlobals.pas

@@ -70,6 +70,7 @@ interface
   WIN_32_BIT_DLG_MASM32_FILENAME: string = 'Win32HelloWorldDialog.asm';
   WIN_32_BIT_CON_MASM32_FILENAME: string = 'Win32HelloWorldConsole.asm';
   WIN_64_BIT_EXE_WINSDK64_FILENAME: string = 'WinSDK64HelloWorld.asm';
+  LIB_STUB_FILENAME: string = 'LibraryReadMe.txt';
   TAB: string = #9;
   DEFAULT_PROJECTGROUP_NAME: string = 'ProjectGroup1';
   DEFAULT_PROJECT_NAME: string = 'Project1';
@@ -79,6 +80,7 @@ interface
   PROJECT_FILTER: string = 'Visual MASM Project (*.vmp)|*.vmp';
   RESOURCE_FILTER: string = 'Resource File (*.rc)|*.rc';
   INI_FILTER: string = 'Ini File (*.ini)|*.ini';
+  LIB_FILTER: string = 'LIB File (*.lib)|*.lib';
   ANY_FILE_FILTER: string = 'Any File (*.*)|*.*';
   MODIFIED_CHAR: string = '*';
   THEME_CODE_EDITOR_DEFAULT: string = 'Default';
@@ -99,6 +101,7 @@ interface
   NEW_ITEM_32_BIT_WIN_DLL_APP: string = '32-Bit Windows DLL Application Extension';
   NEW_ITEM_64_BIT_WIN_EXE_APP: string = '64-Bit Windows EXE Application';
   NEW_ITEM_64_BIT_WIN_DLL_APP: string = '64-Bit Windows DLL Application Extension';
+  NEW_ITEM_LIB_APP: string = 'Library';
   NEW_ITEM_ASSEMBLY_FILE: string = 'Assembly File';
   NEW_ITEM_PROJECT_GROUP: string = 'Project Group';
   NEW_ITEM_BATCH_FILE: string = 'Batch File';
@@ -189,10 +192,10 @@   TGenericTreeData = record
     p64BitWinX86ia64);
 
   TProjectType = (ptWin32, ptWin64, ptWin32DLL, ptWin64DLL, ptDos16COM,
-    ptDos16EXE, ptWin16, ptWin16DLL, ptWin32Con, ptWin32Dlg);
+    ptDos16EXE, ptWin16, ptWin16DLL, ptWin32Con, ptWin32Dlg, ptLib);
 
   TProjectFileType = (pftASM, pftRC, pftTXT, pftDLG, pftBAT, pftOther, pftINI,
-    pftCPP, pftINC, pftBinary);
+    pftCPP, pftINC, pftBinary, pftLib);
 
   TChange = (fcNone, fcCreate, fcUpdate, fcDelete);
 
@@ -890,7 +893,7 @@ procedure RegisterFileType(fileType: TProjectFileType; OnlyForCurrentUser: boole
     pftINI: ;
     pftCPP: ;
     pftINC: FileExt := 'inc';
-    pftBinary: ;
+    pftBinary,pftLib: ;
   end;
   if FileExt = '' then exit;
 

History.txt

@@ -1,3 +1,9 @@
+Update - 08-12-2017
+-------------------
+- Added new project type Library. Go to File -> New -> Other and select Assembly Projects and then Library or
+  right click on the Project Group in the project manager and select Add new project... and then Library. You
+  can add assembly files, .obj, and .lib files to manage your libraries.
+
 Update - 08-10-2017
 -------------------
 - Fixed "Go to line number" dialog to operate properly (Search -> Go to line number)