pascalabcnet/VisualPascalABCNET/Projects/ProjectHelper.cs

// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
using System;
using System.Collections;
using System.Collections.Generic;
using System.Drawing;
using System.Windows.Forms;
using System.IO;
using System.Text;

namespace VisualPascalABC
{
	
	public class ProjectFactory
	{
		private PascalABCCompiler.ProjectInfo currentProject;
		private int uid=1;
		
		static ProjectFactory()
		{
			
		}
		
		public PascalABCCompiler.IProjectInfo CurrentProject
		{
			get
			{
				return currentProject;
			}
		}
		
		private static ProjectFactory instance;
		public static ProjectFactory Instance
		{
			get
			{
				if (instance == null)
				{
					instance = new ProjectFactory();
				}
				return instance;
			}
		}
		
		public string ProjectDirectory
		{
			get
			{
				return Path.GetDirectoryName(currentProject.Path);
			}
		}
		
		public PascalABCCompiler.IProjectInfo CreateProject(string projectName, string projectFileName, PascalABCCompiler.ProjectType projectType)
		{
			currentProject = new PascalABCCompiler.ProjectInfo();
			currentProject.name = projectName;
			currentProject.path = projectFileName;
			string dir = Path.GetDirectoryName(projectFileName);
			if (!Directory.Exists(dir))
			{
				Directory.CreateDirectory(dir);
			}
			currentProject.include_debug_info = true;
           
			currentProject.project_type = projectType;
			currentProject.source_files.Add(new PascalABCCompiler.SourceCodeFileInfo(projectName+".pas",Path.Combine(dir,projectName+".pas")));
			currentProject.references.Add(new PascalABCCompiler.ReferenceInfo("System","System.dll"));
			if (projectType == PascalABCCompiler.ProjectType.WindowsApp)
			{
				currentProject.references.Add(new PascalABCCompiler.ReferenceInfo("System.Windows.Forms","System.Windows.Forms.dll"));
				currentProject.references.Add(new PascalABCCompiler.ReferenceInfo("System.Drawing","System.Drawing.dll"));
                //roman//
                currentProject.references.Add(new PascalABCCompiler.ReferenceInfo("System.Core", "System.Core.dll"));
                currentProject.references.Add(new PascalABCCompiler.ReferenceInfo("System.Data", "System.Data.dll"));
                currentProject.references.Add(new PascalABCCompiler.ReferenceInfo("System.Data.DataSetExtensions", "System.Data.DataSetExtensions.dll"));
                currentProject.references.Add(new PascalABCCompiler.ReferenceInfo("System.Xml", "System.Xml.dll"));
                currentProject.references.Add(new PascalABCCompiler.ReferenceInfo("System.Xml.Linq", "System.Xml.Linq.dll"));
                //roman//
			}
			currentProject.main_file = Path.Combine(dir,projectName+".pas");
			currentProject.generate_xml_doc = false;
            currentProject.delete_exe = true;
            currentProject.delete_pdb = true;
            currentProject.major_version = 0;
            currentProject.minor_version = 0;
            currentProject.build_version = 0;
            currentProject.revision_version = 0;
			currentProject.output_directory = dir;
			StreamWriter sw = File.CreateText(Path.Combine(dir,projectName+".pas"));
			currentProject.output_file_name = projectName + ".exe";
			if (projectType == PascalABCCompiler.ProjectType.ConsoleApp)
			{
				//sw.WriteLine("program "+projectName+";");
				//sw.WriteLine();
				//sw.WriteLine("uses System;");
				//sw.WriteLine();
				sw.WriteLine("begin");
				sw.WriteLine();
				sw.WriteLine("end.");
			}
			else if (projectType == PascalABCCompiler.ProjectType.Library)
			{
				sw.WriteLine("library "+projectName+";");
				sw.WriteLine();
				//sw.WriteLine("uses System;");
				//sw.WriteLine();
				sw.WriteLine("end.");
				currentProject.output_file_name = projectName + ".dll";
			}
			sw.Close();
			currentProject.Save();
			//VisualPABCSingleton.MainForm.OpenFile(Path.Combine(dir,projectName+".pas"));
			return currentProject;
		}

        public PascalABCCompiler.IProjectInfo OpenProject(string projectFileName)
        {
            PascalABCCompiler.ProjectInfo _currentProject = new PascalABCCompiler.ProjectInfo();
            _currentProject.Load(projectFileName);
            currentProject = _currentProject;
            return currentProject;
        }
		
		public bool ProjectLoaded
		{
			get
			{
				return currentProject != null;
			}
		}
		
		private bool dirty = false;
		public bool Dirty
		{
			get
			{
				return dirty;
			}
			set
			{
				dirty = value;
				if (value == true)
				{
					VisualPABCSingleton.MainForm.SaveAllButtonsEnabled = true;
					WorkbenchServiceFactory.CodeCompletionParserController.SetAllInProjectChanged();
				}
				else
				{
					VisualPABCSingleton.MainForm.SaveAllButtonsEnabled = VisualPABCSingleton.MainForm.AllSaved();
				}
			}
		}
		
		public PascalABCCompiler.IFileInfo AddSourceFile(string file_name)
		{
			PascalABCCompiler.SourceCodeFileInfo fi = new PascalABCCompiler.SourceCodeFileInfo(file_name,Path.Combine(Path.GetDirectoryName(currentProject.Path),file_name));
			currentProject.source_files.Add(fi);
			Dirty = true;
			return fi;
		}
		
		public PascalABCCompiler.IReferenceInfo AddReference(string s)
		{
			PascalABCCompiler.ReferenceInfo ri = new PascalABCCompiler.ReferenceInfo(s,s+".dll");
			currentProject.references.Add(ri);
			Dirty = true;
			return ri;
		}
		
		public void RemoveReference(PascalABCCompiler.IReferenceInfo ri)
		{
			currentProject.RemoveReference(ri);
			Dirty = true;
		}
		
		public void ExcludeFile(PascalABCCompiler.IFileInfo fi)
		{
			currentProject.ExcludeFile(fi);
			Dirty = true;
		}
		
		public void RenameFile(PascalABCCompiler.IFileInfo fi, string new_name)
		{
			fi.Name = new_name;
			Dirty = true;
		}
		
		public string GetUnitFileName()
		{
			return "Unit"+uid++ + ".pas";
		}
		
		public string GetFullUnitFileName()
		{
			return Path.Combine(Path.GetDirectoryName(currentProject.path),GetUnitFileName());
		}
		
		public void SaveProject()
		{
			if (currentProject != null)
			{
				currentProject.Save();
				Dirty = false;
			}
		}
		
		public void CloseProject()
		{
			currentProject = null;
			uid = 1;
			Dirty = false;
		}
	}
}