dirty code for generating all defs

docs-utils/Main.hs

@@ -4,8 +4,8 @@
 
 module Main where
 
-import System.Directory (listDirectory, doesFileExist)
-import System.FilePath ((</>),(<.>), takeBaseName, takeExtension)
+import System.Directory (listDirectory, doesFileExist, createDirectoryIfMissing)
+import System.FilePath ((</>),(<.>), takeBaseName, takeExtension,takeDirectory)
 import Data.List (sort, (\\),intersperse,sortOn)
 import Control.Monad (filterM,forM,forM_, when, unless)
 import Pact.Core.Builtin
@@ -427,3 +427,30 @@ makeReport = do
  where
  presentFirst :: [[Text]] -> [[Text]]
  presentFirst = reverse . sortOn (Text.length . head . (drop 1))
+
+
+
+genInFolder :: Bool -> (a -> FilePath) -> (a -> IO Text) -> [ a ] -> IO ()
+genInFolder verbose pathGenerator contentGenerator list
+  = forM_ list $ \item -> do
+      let path = pathGenerator item
+      let directoryPath = takeDirectory path
+      createDirectoryIfMissing True directoryPath
+      content <- contentGenerator item
+      withFile path WriteMode $ \h -> do
+          T.hPutStr h content
+      if verbose 
+        then putStrLn $ "File " ++ path ++ " created."
+        else return ()
+
+genDocumentation :: Bool -> FilePath -> Maybe Int -> IO ()
+genDocumentation verbose path limit = do
+    let limitedBuiltins = case limit of
+                            Just n  -> take n $ drop 40 allCoreBuiltins
+                            Nothing -> allCoreBuiltins
+    genInFolder verbose fileName contentGen limitedBuiltins
+  where 
+    fileName :: CoreBuiltin -> FilePath
+    fileName bi = path </> (Text.unpack (coreBuiltinToText bi)) ++ ".md"
+    contentGen :: CoreBuiltin -> IO Text
+    contentGen = generateDocumentationForBuiltin verbose

docs-utils/Snippets.hs

@@ -85,7 +85,7 @@ findSnippets phrases repos = do
 
 findSnippetsInRepo :: [Text] -> Repo -> IO (Map Text [Snippet])
 findSnippetsInRepo phrases repo@(url, relativePath) = do
-    let repoPath = "/tmp" </> Text.unpack url     -- assuming '/tmp' as base path
+    let repoPath = "/tmp" </> "temprepo" ---Text.unpack url     -- assuming '/tmp' as base path
     cloneRepo repoPath repo
     files <- getPactOrReplFiles (repoPath </> relativePath)
     fileSnippetMaps <- mapM (\file -> createSnippets phrases file (drop (length (repoPath </> relativePath)) file) repo) files

docs-utils/StubGen.hs

@@ -82,6 +82,7 @@ generateSectionPrompt docOfCurrentFromLegacyDocs snippets exampleDocInNewFormat
   , Message "user" $ "Additionally, consider the following snippets from our repositories which show examples or use-cases of the `" ++ builtInName ++ "` function:"
   , Message "user" snippets
   , Message "user" $ "Using the provided example, legacy documentation, and code snippets, please write the '" ++ Text.unpack sectionHeading ++ "' section of the documentation taking into account the following description and instruction, remember! Generate only requested section, nothing more! :"
+  , Message "user" "Most importantly, be extreamly carefull to not introduce anything what cannot be directly infered from code snippets and previous version of documentation! Generated content must be as brief as possible."
   , Message "user" sectionDescription
   ]
   where
@@ -133,7 +134,7 @@ generateDocumentationForBuiltin verbose builtin = do
         -- Use the ChatGPT API to generate content for the section
         maybeSectionContent <- GPT.makeChatGPTRequest' messages
         case maybeSectionContent of
-          Just sectionContent -> return sectionContent
+          Just sectionContent -> return $ sectionContent ++ "\n"
           Nothing -> do
             -- Log or handle the error case here
             when verbose $