1
1
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00

Add template syntax support

This commit is contained in:
joshvera 2016-10-18 16:10:22 -04:00
parent 13c615731e
commit 7809618716
5 changed files with 129 additions and 89 deletions

View File

@ -102,24 +102,31 @@ runAddSubmodule repoUrl repoPath = do
-- | Also appends the JSONTestCases generated to the test case file defined by
-- | the syntaxes.
runCommitsAndTestCasesGeneration :: GeneratorArgs -> JSONMetaRepo -> IO ()
runCommitsAndTestCasesGeneration opts JSONMetaRepo{..} =
runCommitsAndTestCasesGeneration opts metaRepo@JSONMetaRepo{..} =
for_ syntaxes generate
where generate :: JSONMetaSyntax -> IO ()
generate metaSyntax = do
_ <- runInitialCommitForSyntax repoPath metaSyntax
_ <- runInitialCommitForSyntax metaRepo metaSyntax
runSetupTestCaseFile metaSyntax
runCommitAndTestCaseGeneration opts language repoPath metaSyntax
runCommitAndTestCaseGeneration opts language metaRepo metaSyntax
runCloseTestCaseFile metaSyntax
-- | For a syntax, we want the initial commit to be an empty file.
-- | This function performs a touch and commits the empty file.
runInitialCommitForSyntax :: FilePath -> JSONMetaSyntax -> IO ()
runInitialCommitForSyntax repoPath JSONMetaSyntax{..} = do
runInitialCommitForSyntax :: JSONMetaRepo -> JSONMetaSyntax -> IO ()
runInitialCommitForSyntax metaRepo@JSONMetaRepo{..} metaSyntax@JSONMetaSyntax{..} = do
Prelude.putStrLn $ "Generating initial commit for " <> syntax <> " syntax."
result <- try . executeCommand repoPath $ touchCommand repoFilePath <> commitCommand syntax "Initial commit"
case ( result :: Either Prelude.IOError String) of
Left error -> Prelude.putStrLn $ "Initializing the " <> repoFilePath <> " failed with: " <> show error <> ". " <> "Possible reason: file already initialized. \nProceeding to the next step."
Right _ -> pure ()
Right _ -> runAddTemplateForSyntax metaRepo metaSyntax
runAddTemplateForSyntax :: JSONMetaRepo -> JSONMetaSyntax -> IO ()
runAddTemplateForSyntax JSONMetaRepo{..} JSONMetaSyntax{..} = case templateText of
Just templateText -> do
_ <- executeCommand repoPath $ fileWriteCommand repoFilePath templateText <> commitCommand syntax ("Add " <> repoFilePath <> " template text.")
pure ()
Nothing -> pure ()
-- | Initializes the test case file where JSONTestCase examples are written to.
-- | This manually inserts a "[" to open a JSON array.
@ -129,9 +136,9 @@ runSetupTestCaseFile metaSyntax = do
DL.writeFile (testCaseFilePath metaSyntax) "["
-- | For each command constructed for a given metaSyntax, execute the system commands.
runCommitAndTestCaseGeneration :: GeneratorArgs -> String -> FilePath -> JSONMetaSyntax -> IO ()
runCommitAndTestCaseGeneration opts language repoPath metaSyntax@JSONMetaSyntax{..} =
traverse_ (runGenerateCommitAndTestCase opts language repoPath) (commands metaSyntax)
runCommitAndTestCaseGeneration :: GeneratorArgs -> String -> JSONMetaRepo -> JSONMetaSyntax -> IO ()
runCommitAndTestCaseGeneration opts language metaRepo metaSyntax@JSONMetaSyntax{..} =
traverse_ (runGenerateCommitAndTestCase opts language (repoPath metaRepo)) (commands metaRepo metaSyntax)
maybeMapSummary :: [R.Output] -> [Maybe (Map Text (Map Text [Value]))]
maybeMapSummary = fmap $ \case
@ -184,18 +191,19 @@ runMaybeSummaries beforeSha afterSha repoPath repoFilePath GeneratorArgs{..}
-- | Commands represent the various combination of patches (insert, delete, replacement)
-- | for a given syntax.
commands :: JSONMetaSyntax -> [(JSONMetaSyntax, String, String, String)]
commands metaSyntax@JSONMetaSyntax{..} =
[ (metaSyntax, "insert", commaSeperator, fileWriteCommand repoFilePath insert <> commitCommand syntax "insert")
, (metaSyntax, "replacement-insert", commaSeperator, fileWriteCommand repoFilePath (Prologue.intercalate "\n" [replacement, insert, insert]) <> commitCommand syntax "replacement + insert + insert")
, (metaSyntax, "delete-insert", commaSeperator, fileWriteCommand repoFilePath (Prologue.intercalate "\n" [insert, insert, insert]) <> commitCommand syntax "delete + insert")
, (metaSyntax, "replacement", commaSeperator, fileWriteCommand repoFilePath (Prologue.intercalate "\n" [replacement, insert, insert]) <> commitCommand syntax "replacement")
, (metaSyntax, "delete-replacement", commaSeperator, fileWriteCommand repoFilePath (Prologue.intercalate "\n" [insert, replacement]) <> commitCommand syntax "delete + replacement")
, (metaSyntax, "delete", commaSeperator, fileWriteCommand repoFilePath replacement <> commitCommand syntax "delete")
, (metaSyntax, "delete-rest", spaceSeperator, removeCommand repoFilePath <> touchCommand repoFilePath <> commitCommand syntax "delete rest")
commands :: JSONMetaRepo -> JSONMetaSyntax -> [(JSONMetaSyntax, String, String, String)]
commands metaRepo metaSyntax@JSONMetaSyntax{..} =
[ (metaSyntax, "insert", commaSeperator, fileAppendCommand repoFilePath insert <> commitCommand syntax "insert")
, (metaSyntax, "replacement-insert", commaSeperator, fileWriteCommand repoFilePath templateText' <> fileAppendCommand repoFilePath (Prologue.intercalate "\n" [replacement, insert, insert]) <> commitCommand syntax "replacement + insert + insert")
, (metaSyntax, "delete-insert", commaSeperator, fileWriteCommand repoFilePath templateText' <> fileAppendCommand repoFilePath (Prologue.intercalate "\n" [insert, insert, insert]) <> commitCommand syntax "delete + insert")
, (metaSyntax, "replacement", commaSeperator, fileWriteCommand repoFilePath templateText' <> fileAppendCommand repoFilePath (Prologue.intercalate "\n" [replacement, insert, insert]) <> commitCommand syntax "replacement")
, (metaSyntax, "delete-replacement", commaSeperator, fileWriteCommand repoFilePath templateText' <> fileAppendCommand repoFilePath (Prologue.intercalate "\n" [insert, replacement]) <> commitCommand syntax "delete + replacement")
, (metaSyntax, "delete", commaSeperator, fileWriteCommand repoFilePath templateText' <> fileAppendCommand repoFilePath replacement <> commitCommand syntax "delete")
, (metaSyntax, "delete-rest", spaceSeperator, fileWriteCommand repoFilePath templateText' <> commitCommand syntax "delete rest")
]
where commaSeperator = "\n,"
spaceSeperator = ""
templateText' = fromMaybe "" (templateText metaRepo)
-- | Attempts to pull from the git repository's remote repository.
-- | If the pull fails, the exception is caught and continues to the next step.
@ -260,6 +268,12 @@ fileWriteCommand repoFilePath contents = "echo \"" <> (escapeBackticks . escapeD
escapeBackticks = DSUtils.replace "`" "\\`"
escapeDoubleQuotes = DSUtils.replace "\"" "\\\""
fileAppendCommand :: FilePath -> String -> String
fileAppendCommand repoFilePath contents = "echo \"" <> (escapeBackticks . escapeDoubleQuotes) contents <> "\" >> " <> repoFilePath <> ";"
where
escapeBackticks = DSUtils.replace "`" "\\`"
escapeDoubleQuotes = DSUtils.replace "\"" "\\\""
commitCommand :: String -> String -> String
commitCommand syntax commitMessage = "git add .; git commit -m \"" <> syntax <> ": " <> commitMessage <> "\"" <> ";"

View File

@ -10,6 +10,7 @@ data JSONMetaRepo = JSONMetaRepo { repoPath :: !String
, repoUrl :: !String
, language :: !String
, syntaxes :: ![JSONMetaSyntax]
, templateText :: !(Maybe String)
} deriving (Show, Generic, FromJSON)
data JSONMetaSyntax = JSONMetaSyntax { syntax :: !String

View File

@ -5,18 +5,30 @@
"assignment.go": [
{
"span": {
"insert": {
"replace": [
{
"start": [
1,
1
],
"end": [
1,
17
13
]
},
{
"start": [
1,
1
],
"end": [
5,
1
]
}
]
},
"summary": "Added the 'foo' assignment"
"summary": "Replaced the 'package main' source_file with the 'package main\n\n\nvar foo int = 42\n' source_file"
}
]
},
@ -25,9 +37,9 @@
"filePaths": [
"assignment.go"
],
"sha1": "e5c03dd2dec45eb07530e422c3037cbb3215f2c8",
"sha1": "b9da8acec42374295d1e2c8ef4e718a71674b5c8",
"gitDir": "test/corpus/repos/go",
"sha2": "f24e7162d5add6f51ef328f9810a510ea8dc1779"
"sha2": "78d912e517fdbf5bf094f2eb42416144c7bd6ba9"
}
,{
"testCaseDescription": "go-assignment-replacement-insert-test",
@ -43,8 +55,8 @@
1
],
"end": [
1,
17
5,
1
]
},
{
@ -53,13 +65,13 @@
1
],
"end": [
4,
7,
1
]
}
]
},
"summary": "Replaced the 'foo' assignment with the 'bar' assignment"
"summary": "Replaced the 'package main\n\n\nvar foo int = 42\n' source_file with the 'package main\n\n\nvar bar string = \"hello\"\nvar foo int = 42\nvar foo int = 42\n' source_file"
}
]
},
@ -68,9 +80,9 @@
"filePaths": [
"assignment.go"
],
"sha1": "f24e7162d5add6f51ef328f9810a510ea8dc1779",
"sha1": "78d912e517fdbf5bf094f2eb42416144c7bd6ba9",
"gitDir": "test/corpus/repos/go",
"sha2": "32ed6d330fd778f40d75859c4bc2b41110ccea7d"
"sha2": "46b7a84458c868398bc8b288598385b7ecb00c31"
}
,{
"testCaseDescription": "go-assignment-delete-insert-test",
@ -86,7 +98,7 @@
1
],
"end": [
4,
7,
1
]
},
@ -96,13 +108,13 @@
1
],
"end": [
4,
7,
1
]
}
]
},
"summary": "Replaced the 'bar' assignment with the 'foo' assignment"
"summary": "Replaced the 'package main\n\n\nvar bar string = \"hello\"\nvar foo int = 42\nvar foo int = 42\n' source_file with the 'package main\n\n\nvar foo int = 42\nvar foo int = 42\nvar foo int = 42\n' source_file"
}
]
},
@ -111,9 +123,9 @@
"filePaths": [
"assignment.go"
],
"sha1": "32ed6d330fd778f40d75859c4bc2b41110ccea7d",
"sha1": "46b7a84458c868398bc8b288598385b7ecb00c31",
"gitDir": "test/corpus/repos/go",
"sha2": "69f46ae90b9ac56d897f6ca46d84e05593983cac"
"sha2": "0660fdb214202450d7cce4f515f3a60ef9c10490"
}
,{
"testCaseDescription": "go-assignment-replacement-test",
@ -129,7 +141,7 @@
1
],
"end": [
4,
7,
1
]
},
@ -139,13 +151,13 @@
1
],
"end": [
4,
7,
1
]
}
]
},
"summary": "Replaced the 'bar' assignment with the 'foo' assignment"
"summary": "Replaced the 'package main\n\n\nvar foo int = 42\nvar foo int = 42\nvar foo int = 42\n' source_file with the 'package main\n\n\nvar bar string = \"hello\"\nvar foo int = 42\nvar foo int = 42\n' source_file"
}
]
},
@ -154,9 +166,9 @@
"filePaths": [
"assignment.go"
],
"sha1": "69f46ae90b9ac56d897f6ca46d84e05593983cac",
"sha1": "0660fdb214202450d7cce4f515f3a60ef9c10490",
"gitDir": "test/corpus/repos/go",
"sha2": "15c297fbbb50bebdaabb08a83d97fc00235a6655"
"sha2": "f97f9b8acec8b3ff1d5ed77d9bc13c2666a6de4d"
}
,{
"testCaseDescription": "go-assignment-delete-replacement-test",
@ -172,7 +184,7 @@
1
],
"end": [
4,
7,
1
]
},
@ -182,13 +194,13 @@
1
],
"end": [
3,
6,
1
]
}
]
},
"summary": "Replaced the 'bar' assignment with the 'foo' assignment"
"summary": "Replaced the 'package main\n\n\nvar bar string = \"hello\"\nvar foo int = 42\nvar foo int = 42\n' source_file with the 'package main\n\n\nvar foo int = 42\nvar bar string = \"hello\"\n' source_file"
}
]
},
@ -197,9 +209,9 @@
"filePaths": [
"assignment.go"
],
"sha1": "15c297fbbb50bebdaabb08a83d97fc00235a6655",
"sha1": "f97f9b8acec8b3ff1d5ed77d9bc13c2666a6de4d",
"gitDir": "test/corpus/repos/go",
"sha2": "b166f37106251a0b4244cb96caa2c4115699c65f"
"sha2": "26a079f5798bcd44defb40ff55f6e8a2691d3f85"
}
,{
"testCaseDescription": "go-assignment-delete-test",
@ -215,7 +227,7 @@
1
],
"end": [
3,
6,
1
]
},
@ -225,13 +237,13 @@
1
],
"end": [
1,
25
5,
1
]
}
]
},
"summary": "Replaced the 'var bar string = \"hello\"\nvar foo int = 42\nvar foo int = 42\n' ERROR with the 'var foo int = 42\nvar bar string = \"hello\"\n' ERROR"
"summary": "Replaced the 'package main\n\n\nvar foo int = 42\nvar bar string = \"hello\"\n' source_file with the 'package main\n\n\nvar bar string = \"hello\"\n' source_file"
}
]
},
@ -240,9 +252,9 @@
"filePaths": [
"assignment.go"
],
"sha1": "b166f37106251a0b4244cb96caa2c4115699c65f",
"sha1": "26a079f5798bcd44defb40ff55f6e8a2691d3f85",
"gitDir": "test/corpus/repos/go",
"sha2": "8b609bd3d2e63b59cd2f4dbb0ef28d8a901a4016"
"sha2": "7df173e52ab3790631e6c3f946896d283fbc433e"
}
,{
"testCaseDescription": "go-assignment-delete-rest-test",
@ -251,18 +263,30 @@
"assignment.go": [
{
"span": {
"delete": {
"replace": [
{
"start": [
1,
1
],
"end": [
5,
1
]
},
{
"start": [
1,
1
],
"end": [
1,
25
13
]
}
]
},
"summary": "Deleted the 'bar' assignment"
"summary": "Replaced the 'package main\n\n\nvar bar string = \"hello\"\n' source_file with the 'package main' source_file"
}
]
},
@ -271,7 +295,7 @@
"filePaths": [
"assignment.go"
],
"sha1": "8b609bd3d2e63b59cd2f4dbb0ef28d8a901a4016",
"sha1": "7df173e52ab3790631e6c3f946896d283fbc433e",
"gitDir": "test/corpus/repos/go",
"sha2": "f6aae483e1a28331a6c388755ca93f8007caddff"
"sha2": "d3fa479c4d82673363dbcee77472346afb069504"
}]

View File

@ -3,6 +3,7 @@
"repoPath": "test/corpus/repos/go",
"repoUrl": "https://github.com/joshvera/go.git",
"language": "go",
"templateText": "package main\n",
"syntaxes": [
{
"syntax": "assignment",

@ -1 +1 @@
Subproject commit f6aae483e1a28331a6c388755ca93f8007caddff
Subproject commit d3fa479c4d82673363dbcee77472346afb069504