dhscanner-kbgen 1.0.31 → 1.0.32

raw patch · 2 files changed

+20/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• dhscanner-kbgen.cabal +1/−1
• src/Kbgen.hs +19/−1

@@ -33,7 +33,7 @@         * explain in plain English your query's purpose
         * et voilà !
 
-version:            1.0.31
+version:            1.0.32
 license:            GPL-3.0-only
 license-file:       LICENSE
 author:             OrenGitHub

@@ -57,6 +57,7 @@     ClassDef(..),
     FuncDef(..),
     Call1stPartyFuncDefinedInDir(..),
+    Call1stPartyFuncDefinedInFile(..),
     ParamName(..),
     CallMethodOfClass(..),
     ConstString(..),
@@ -89,8 +90,8 @@     ResolvedType(..),
     CallResolved(..),
     ResolvedSuper(..),
-    FuncDefinedInFile(..),
     FuncDefinedInDir(..),
+    FuncDefinedInFile(..),
     ClassDefinedInFile(..),
     SuperDefinedInFile(..),
     SuperQualifiedName(..),
@@ -348,6 +349,12 @@     FuncDefinedInDir -- ^
     deriving ( Show, Eq, Ord, Generic, ToJSON, FromJSON )
 
+data Call1stPartyFuncDefinedInFile = Call1stPartyFuncDefinedInFile
+    Call -- ^
+    FuncName -- ^
+    FuncDefinedInFile -- ^
+    deriving ( Show, Eq, Ord, Generic, ToJSON, FromJSON )
+
 -- |
 --
 -- __Description:__
@@ -842,6 +849,7 @@    | ClassHas1stPartySuperCtor ClassHas1stPartySuper
    | ClassHas3rdPartySuperCtor ClassHas3rdPartySuper
    | Call1stPartyFuncDefinedInDirCtor Call1stPartyFuncDefinedInDir
+   | Call1stPartyFuncDefinedInFileCtor Call1stPartyFuncDefinedInFile
    | CallMethodOfUntypedNamedParamCtor CallMethodOfUntypedNamedParam
    deriving ( Show, Eq, Ord, Generic, ToJSON, FromJSON )
 
@@ -873,6 +881,7 @@ prologify (ClassHas1stPartySuperCtor content) = prologify_ClassHas1stPartySuper content
 prologify (ClassHas3rdPartySuperCtor content) = prologify_ClassHas3rdPartySuper content
 prologify (Call1stPartyFuncDefinedInDirCtor content) = prologify_Call1stPartyFuncDefinedInDir content
+prologify (Call1stPartyFuncDefinedInFileCtor content) = prologify_Call1stPartyFuncDefinedInFile content
 prologify (CallMethodOfUntypedNamedParamCtor content) = prologify_CallMethodOfUntypedNamedParam content
 
 prologify_ParamResolvedType' :: Location -> String -> String
@@ -953,6 +962,15 @@  
 prologify_ClassHas3rdPartySuper :: ClassHas3rdPartySuper -> String
 prologify_ClassHas3rdPartySuper (ClassHas3rdPartySuper (Class c) (Token.SuperName (Token.Named s _)) (SuperQualifiedName f)) = prologify_ClassHas3rdPartySuper' c s f
+
+prologify_Call1stPartyFuncDefinedInFile :: Call1stPartyFuncDefinedInFile -> String
+prologify_Call1stPartyFuncDefinedInFile (Call1stPartyFuncDefinedInFile call func f) = prologify_Call1stPartyFuncDefinedInFile' call func f
+
+prologify_Call1stPartyFuncDefinedInFile' :: Call -> FuncName -> FuncDefinedInFile -> String
+prologify_Call1stPartyFuncDefinedInFile' (Call call) (FuncName func) (FuncDefinedInFile f) = prologify_Call1stPartyFuncDefinedInFile'' call func f
+
+prologify_Call1stPartyFuncDefinedInFile'' :: Location -> String -> FilePath -> String
+prologify_Call1stPartyFuncDefinedInFile'' call func f = printf "kb_call_1st_party_func_defined_in_file( %s, \'%s\', \'%s\' )." (locationify call) func f
 
 prologify_Call1stPartyFuncDefinedInDir :: Call1stPartyFuncDefinedInDir -> String
 prologify_Call1stPartyFuncDefinedInDir (Call1stPartyFuncDefinedInDir call func d) = prologify_Call1stPartyFuncDefinedInDir' call func d