language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-08-03 19:58:18 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Change example to be a calculator

Browse source
This commit is contained in:
Ayaz Hafiz 2022-09-14 12:06:35 -05:00
parent faeb3358eb
commit c9e73b6761
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
2 changed files with 37 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

4
crates/cli/tests/cli_run.rs
View file

@ -495,8 +495,8 @@ mod cli_run {
filename: "args.roc",
executable_filename: "args",
stdin: &[],
arguments: &[Arg::PlainText("greet"), Arg::PlainText("--name"), Arg::PlainText("test"), Arg::PlainText("-g"), Arg::PlainText("hello")],
expected_ending: "hello, test\n",
arguments: &[Arg::PlainText("log"), Arg::PlainText("-b"), Arg::PlainText("3"), Arg::PlainText("--num"), Arg::PlainText("81")],
expected_ending: "4\n",
use_valgrind: false,
},
effects:"interactive" => Example {

60
examples/interactive/args.roc
View file

@ -6,46 +6,56 @@ app "args"
main : List Str -> Task.Task {} [] [Write [Stdout]]
main = \args ->
parser =
exclaimCmd =
Arg.succeed (\s -> Exclaim s)
divCmd =
Arg.succeed (\dividend -> \divisor -> Div (Num.toF64 dividend) (Num.toF64 divisor))
|> Arg.withParser
(
Arg.str {
long: "string",
short: "s",
help: "the string to exclaim",
Arg.i64 {
long: "dividend",
short: "n",
help: "the number to divide; corresponds to a numerator",
}
)
|> Arg.subCommand "exclaim"
|> Arg.withParser
(
Arg.i64 {
long: "divisor",
short: "d",
help: "the number to divide by; corresponds to a denominator",
}
)
|> Arg.subCommand "div"
greetCmd =
Arg.succeed (\name -> \greeting -> Greet { name, greeting })
logCmd =
Arg.succeed (\base -> \num -> Log (Num.toF64 base) (Num.toF64 num))
|> Arg.withParser
(
Arg.str {
long: "name",
help: "the name of the individual to greet",
Arg.i64 {
long: "base",
short: "b",
help: "base of the logarithm",
}
)
|> Arg.withParser
(
Arg.str {
long: "greeting",
short: "g",
help: "the greeting to use",
Arg.i64 {
long: "num",
help: "the number to take the logarithm of",
}
)
|> Arg.subCommand "greet"
|> Arg.subCommand "log"
Arg.choice [exclaimCmd, greetCmd]
|> Arg.program { name: "args-example", help: "An example of the CLI platform argument parser" }
Arg.choice [divCmd, logCmd]
|> Arg.program { name: "args-example", help: "A calculator example of the CLI platform argument parser" }
when Arg.parseFormatted parser args is
Ok (Exclaim s) ->
Stdout.line "\(s)!"
Ok (Greet { name, greeting }) ->
Stdout.line "\(greeting), \(name)"
Ok cmd -> runCmd cmd |> Num.toStr |> Stdout.line
Err helpMenu ->
Stdout.line helpMenu
runCmd = \cmd ->
when cmd is
Div n d -> n / d
Log b n ->
# log_b(n) = log_x(n) / log_x(b) for all x
runCmd (Div (Num.log n) (Num.log b))