Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
curry
curry-tools
Commits
d9f9d732
Commit
d9f9d732
authored
Oct 25, 2017
by
Michael Hanus
Browse files
CPM updated
parent
f2c1ca9a
Changes
3
Hide whitespace changes
Inline
Side-by-side
cpm/docs/currysystem_manual.tex
View file @
d9f9d732
\section
{
\texttt
{
cpm
}
: The Curry Package Manager
}
\section
{
\texttt
{
c
y
pm
}
: The Curry Package Manager
}
\label
{
sec-cpm
}
The Curry package manager (CPM) is a tool to
...
...
cpm/src/CPM/Main.curry
View file @
d9f9d732
...
...
@@ -48,13 +48,13 @@ cpmBanner :: String
cpmBanner = unlines [bannerLine,bannerText,bannerLine]
where
bannerText =
"Curry Package Manager <curry-language.org/tools/cpm> (version of 2
0
/10/2017)"
"Curry Package Manager <curry-language.org/tools/cpm> (version of 2
5
/10/2017)"
bannerLine = take (length bannerText) (repeat '-')
main :: IO ()
main = do
args <- getArgs
parseResult <- return $ parse (
intercalate " "
args) optionParser "cypm"
parseResult <- return $ parse (
unwords
args)
(
optionParser
args)
"cypm"
case parseResult of
Left err -> do putStrLn cpmBanner
putStrLn err
...
...
@@ -62,7 +62,7 @@ main = do
exitWith 1
Right r -> case applyParse r of
Left err -> do putStrLn cpmBanner
--printUsage "cypm" 80 optionParser
--printUsage "cypm" 80
(
optionParser
args)
putStrLn err
exitWith 1
Right opts -> runWithArgs opts
...
...
@@ -337,8 +337,8 @@ a >.> f = case a of
Left err -> Left err
Right v -> Right $ f v
optionParser :: ParseSpec (Options -> Either String Options)
optionParser = optParser
optionParser ::
[String] ->
ParseSpec (Options -> Either String Options)
optionParser
allargs
= optParser
( option (\s a -> readLogLevel s >.> \ll -> a { optLogLevel = ll })
( long "verbosity"
<> short "v"
...
...
@@ -473,18 +473,22 @@ optionParser = optParser
<> help "The name of the new project" )
curryArgs =
rest (\
s
a -> Right $ a { optCommand = Compiler (compOpts a)
{ comCommand = s } })
rest (\
_
a -> Right $ a { optCommand = Compiler (compOpts a)
{ comCommand =
unwords remarg
s } })
( metavar "ARGS"
<> help "The options to pass to the compiler"
<> optional )
where
remargs = tail (snd (break (=="curry") allargs))
execArgs =
rest (\
s
a -> Right $ a { optCommand = Exec (execOpts a)
{ exeCommand = s } })
rest (\
_
a -> Right $ a { optCommand = Exec (execOpts a)
{ exeCommand =
unwords remarg
s } })
( metavar "CMD"
<> help "The command to execute. Don't forget the quotes!"
<> optional )
where
remargs = tail (snd (break (=="exec") allargs))
infoArgs =
arg (\s a -> Right $ a { optCommand = PkgInfo (infoOpts a)
...
...
currypp/.cpm/packages/regexp/package.json
View file @
d9f9d732
...
...
@@ -13,10 +13,14 @@
},
"license"
:
"BSD-3-Clause"
,
"licenseFile"
:
"LICENSE"
,
"testsuite"
:
{
"src-dir"
:
"examples"
,
"modules"
:
[
"ABC"
]
},
"testsuite"
:
[
{
"src-dir"
:
"examples"
,
"modules"
:
[
"ABC"
]
},
{
"src-dir"
:
"test"
,
"modules"
:
[
"TestRegExp"
]
}
],
"source"
:
{
"git"
:
"https://git.ps.informatik.uni-kiel.de/curry-packages/regexp.git"
,
"tag"
:
"$version"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment