Handling of generated files #712

I searched for an option to make generated files in VSCode readonly.
My first attempt was to contact the maintainers of vscode-objectscript if there was an option to achieve this.
intersystems-community/vscode-objectscript#1478
The result of this discussion lead to a change I made to Extension.cls of the installed git-source-control version 2.9.0:

diff --git a/cls/SourceControl/Git/Extension.cls b/cls/SourceControl/Git/Extension.cls
index 69fdaaa..2a6fd66 100644
+++ b/cls/SourceControl/Git/Extension.cls
@@ -432,8 +432,39 @@ ClassMethod FullExternalName(InternalName As %String) As %String
     quit ##class(SourceControl.Git.Utils).FullExternalName(InternalName)
 }
 
+ClassMethod IsGenerated(InternalName As %String) As %String
+{
+	Set name=##class(SourceControl.Git.Utils).NormalizeInternalName(InternalName),nm=$piece(name,".",1,*-1)
+	If nm="" Quit 0
+	/* // would make a loop?
+	Set generated=##class(%Studio.SourceControl.Interface).IsGenerated(name)
+	If generated'="" Quit generated
+	*/
+	Set ext=$zconvert($piece(name,".",*),"U")
+	If ..IsCSPName(name) {
+		Quit 0
+	} ElseIf ext="CLS" {
+		Quit +$listget($get(^rINDEXCLASS($zconvert(nm,"U"))),10,0)
+	} ElseIf $$$rtnIsMAC(ext) {
+		Quit +$get(^rMAC(nm,0,"GENERATED"))
+	} ElseIf $$$rtnIsINT(ext) {
+		Quit +$get(^ROUTINE(nm,0,"GENERATED"))
+	} ElseIf $$$rtnIsINC(ext) {
+		Quit +$get(^rINC(nm,0,"GENERATED"))
+	} ElseIf ext="PRJ" {
+		Quit 0
+	} /*ElseIf ..UserType(name,.cls) {
+		Quit +$classmethod(cls,"IsGenerated",name)
+	} */
+	Quit 0
+}
+
+ClassMethod IsCSPName(name As %String) As %Boolean
+{
+	Quit $$IsCSPName^%occXMLExport(name)
+}
+
 Method IsReadOnly(InternalName As %String) As %Boolean
 {
+    quit:..IsGenerated(InternalName) 1
     set settings = ##class(SourceControl.Git.Settings).%New()
     quit (##class(SourceControl.Git.Utils).Locked() 
             && '$get(^IRIS.Temp("sscProd",$job,"bypassLock")))
@@ -507,7 +538,8 @@ Method GetStatus(ByRef InternalName As %String, ByRef IsInSourceControl As %Bool
         }
     } else {
         // If it doesn't show up in git status, there are no uncommitted changes so it should not be locked or checked out by any user
-        set Editable=1, IsCheckedOut=0, UserCheckedOut=""
+        //set Editable=1
+        set IsCheckedOut=0, UserCheckedOut=""
         if ##class(SourceControl.Git.Change).IsUncommitted(filename){
             #; Remove the item from the list of uncommitted changes;
             set sc=##class(SourceControl.Git.Change).RemoveUncommitted(filename,1,1)

Maybe this could be made an option just like "Treat Mapped Items as Read-only" in the settings of git-source-control
as an enhancement.
The "IsGenerated"/"IsCSPName" part is a modified excerpt of %Library.RoutineMgr.cls