| 1 | (* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh |
| 2 | * Jagannathan, and Stephen Weeks. |
| 3 | * Copyright (C) 1997-2000 NEC Research Institute. |
| 4 | * |
| 5 | * MLton is released under a BSD-style license. |
| 6 | * See the file MLton-LICENSE for details. |
| 7 | *) |
| 8 | |
| 9 | structure Main = |
| 10 | struct |
| 11 | |
| 12 | fun usage s = |
| 13 | Process.usage {usage = "file.lex ...", |
| 14 | msg = s} |
| 15 | |
| 16 | fun main args = |
| 17 | let |
| 18 | val rest = |
| 19 | let open Popt |
| 20 | in parse {switches = args, opts = []} |
| 21 | end |
| 22 | in |
| 23 | case rest of |
| 24 | Result.No msg => usage msg |
| 25 | | Result.Yes [] => usage "no files" |
| 26 | | Result.Yes files => List.foreach (files, LexGen.lexGen) |
| 27 | end |
| 28 | |
| 29 | val main = Process.makeMain main |
| 30 | |
| 31 | end |