diff options
| author | Eugen Wissner <belka@caraus.de> | 2026-07-03 08:53:03 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2026-07-03 08:53:03 +0200 |
| commit | 4ad6052aa2816f8296e62569272e99fc0d2fd3c1 (patch) | |
| tree | e1002f3fc1d51929b6f7b77f4769eb84be4e9e82 /source/command_line_interface.elna | |
| parent | 453332311ac2d569093f9ef62d41d13b0ce024c8 (diff) | |
| download | elna-4ad6052aa2816f8296e62569272e99fc0d2fd3c1.tar.gz | |
Merge variable_expression and named_type_expression
Diffstat (limited to 'source/command_line_interface.elna')
| -rw-r--r-- | source/command_line_interface.elna | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/source/command_line_interface.elna b/source/command_line_interface.elna index 040fdeb..78e1cf5 100644 --- a/source/command_line_interface.elna +++ b/source/command_line_interface.elna @@ -5,9 +5,7 @@ (* Command line handling. *) -module; - -import cstdlib, cstring, common; +import cstdlib, cstring, common type CommandLine* = record @@ -15,14 +13,14 @@ type output: ^Char; lex: Bool; parse: Bool - end; + end -proc parse_command_line*(argc: Int, argv: ^^Char) -> ^CommandLine; +proc parse_command_line*(argc: Int, argv: ^^Char) -> ^CommandLine var - parameter: ^Char; - i: Int; - result: ^CommandLine; - parsed: Bool; + parameter: ^Char + i: Int + result: ^CommandLine + parsed: Bool begin i := 1; result := cast(malloc(#size(CommandLine)): ^CommandLine); @@ -88,6 +86,6 @@ begin end; return result -end; +end end. |
