add support for empty filenames (#14)

* add support for empty filenames

* add option to enable or disable allowing empty file names

Author: rfns

cls/Port/Configuration.cls

@@ -208,5 +208,21 @@ ClassMethod RewritePlaceHolders(basePath As %String, projectName As %String = {$
   return translatedPath
 }
 
+/// Enable or disable enqueing files that follow the format ".name". When disabled
+/// Port will ignore these files altogether. Useful if you don't want to import directories
+/// that there supposed to be internal or hidden.
+ClassMethod AllowEmptyFileName(enabledOrDisable As %Integer)
+{
+  if '$lf($lb(0,1), value) quit
+  set ^Port.Configuration("files.allowEmptyName") = value
+}
+
+/// Returns if Port is allowed to enqueue files on which the name follows the format ".name".
+ClassMethod IsAllowEmptyFileNameEnabled() As %Boolean
+{
+  return $get(^Port.Configuration("files.allowEmptyName"), 0)
+}
+
+
 }
 

cls/Port/Project/Importer.cls

@@ -123,15 +123,15 @@ Method DescribeItem(origin As %String, Output isOutdated As %Boolean = 0, Output
 {
 
   set fileName = ##class(%File).GetFilename(origin)     
-  set emptyName = ($piece(fileName, ".") = "")
+  set allowEmptyName = ##class(Port.Configuration).IsAllowEmptyFileNameEnabled() && ($piece(fileName, ".") = "")
   set pathType = ##class(Port.Util).GetPathType(origin)
 
   set isOutdated = 1
   set itemName = ##class(Port.Util).PathToItem(origin)
   set itemType = ##class(Port.Util).GetItemType(itemName)  
   set priority = ..GetTypePriority(itemType)
 
-  if emptyName || (pathType '= itemType && (pathType '= "PUBLIC")) {
+  if allowEmptyName || (pathType '= itemType && (pathType '= "PUBLIC")) {
     set itemName = ""
     set itemType = ""
     set priority = -1