Added Browsing path property in boss .json.

This is similar to mainsrc, but add browsing to delphi registry

Author: AO3\andriws.luna

models/package.go

@@ -17,6 +17,7 @@ type Package struct {
 	Version      string      `json:"version"`
 	Homepage     string      `json:"homepage"`
 	MainSrc      string      `json:"mainsrc"`
+	BrowsingPath string      `json:"browsingpath"`
 	Projects     []string    `json:"projects"`
 	Scripts      interface{} `json:"scripts,omitempty"`
 	Dependencies interface{} `json:"dependencies"`

utils/librarypath/global_util_win.go

@@ -16,6 +16,7 @@ import (
 )
 
 const SearchPathRegistry = "Search Path"
+const BrowsingPathRegistry = "Browsing Path"
 
 func updateGlobalLibraryPath() {
 	ideVersion := bossRegistry.GetCurrentDelphiVersion()
@@ -57,3 +58,44 @@ func updateGlobalLibraryPath() {
 	}
 
 }
+
+func updateGlobalBrowsingPath() {
+	ideVersion := bossRegistry.GetCurrentDelphiVersion()
+	if ideVersion == "" {
+		msg.Err("Version not found for path %s", env.GlobalConfiguration.DelphiPath)
+	}
+	library, err := registry.OpenKey(registry.CURRENT_USER, consts.RegistryBasePath+ideVersion+`\Library`, registry.ALL_ACCESS)
+
+	if err != nil {
+		msg.Err(`Registry path` + consts.RegistryBasePath + ideVersion + `\Library not exists`)
+		return
+	}
+
+	libraryInfo, err := library.Stat()
+	if err != nil {
+		msg.Err(err.Error())
+		return
+	}
+	platforms, err := library.ReadSubKeyNames(int(libraryInfo.SubKeyCount))
+	if err != nil {
+		msg.Err("No platform found for delphi " + ideVersion)
+		return
+	}
+
+	for _, platform := range platforms {
+		delphiPlatform, err := registry.OpenKey(registry.CURRENT_USER, consts.RegistryBasePath+ideVersion+`\Library\`+platform, registry.ALL_ACCESS)
+		utils.HandleError(err)
+		paths, _, err := delphiPlatform.GetStringValue(BrowsingPathRegistry)
+		if err != nil {
+			msg.Debug("Failed to update library path from platform %s with delphi %s", platform, ideVersion)
+			continue
+		}
+
+		splitPaths := strings.Split(paths, ";")
+		newSplitPaths := GetNewBrowsingPaths(splitPaths, false, env.GetCurrentDir())
+		newPaths := strings.Join(newSplitPaths, ";")
+		err = delphiPlatform.SetStringValue(BrowsingPathRegistry, newPaths)
+		utils.HandleError(err)
+	}
+
+}

utils/librarypath/librarypath.go

@@ -18,6 +18,7 @@ func UpdateLibraryPath(pkg *models.Package) {
 		updateGlobalLibraryPath()
 	} else {
 		updateDprojLibraryPath(pkg)
+		updateGlobalBrowsingPath()
 	}
 
 }
@@ -40,6 +41,27 @@ func cleanPath(paths []string, fullPath bool) []string {
 	return processedPaths
 }
 
+func GetNewBrowsingPaths(paths []string, fullPath bool, rootPath string) []string {
+	paths = cleanPath(paths, fullPath)
+	var path = env.GetModulesDir()
+
+	matches, _ := ioutil.ReadDir(path)
+
+	for _, value := range matches {
+
+		var packagePath = filepath.Join(path, value.Name(), consts.FilePackage)
+		if _, err := os.Stat(packagePath); !os.IsNotExist(err) {
+
+			other, _ := models.LoadPackageOther(packagePath)
+			if other.BrowsingPath != "" {
+				paths = getNewBrowsingPathsFromDir(filepath.Join(path, value.Name(), other.BrowsingPath), paths, fullPath, rootPath)
+			}
+
+		}
+	}
+	return paths
+}
+
 func GetNewPaths(paths []string, fullPath bool, rootPath string) []string {
 	paths = cleanPath(paths, fullPath)
 	var path = env.GetModulesDir()
@@ -99,6 +121,33 @@ func cleanEmpty(paths []string) []string {
 	return paths
 }
 
+func getNewBrowsingPathsFromDir(path string, paths []string, fullPath bool, rootPath string) []string {
+	_, e := os.Stat(path)
+	if os.IsNotExist(e) {
+		return paths
+	}
+
+	_ = filepath.Walk(path, func(path string, info os.FileInfo, err error) error {
+		matched, _ := regexp.MatchString(consts.RegexArtifacts, info.Name())
+		if matched {
+			dir, _ := filepath.Split(path)
+			if !fullPath {
+				dir, _ = filepath.Rel(rootPath, dir)
+			}
+			if !utils.Contains(paths, dir) {
+				paths = append(paths, dir)
+			}
+			// add ..\ prefixed path -> @MeroFuruya fix #146
+			//prefixedPath := "..\\" + dir
+			//if !utils.Contains(paths, prefixedPath) {
+			//	paths = append(paths, prefixedPath)
+			//}
+		}
+		return nil
+	})
+	return cleanEmpty(paths)
+}
+
 func getNewPathsFromDir(path string, paths []string, fullPath bool, rootPath string) []string {
 	_, e := os.Stat(path)
 	if os.IsNotExist(e) {