INTERFACE M3MGTool; (***************************************************************************) (* Copyright (C) Olivetti 1989 *) (* All Rights reserved *) (* *) (* Use and copy of this software and preparation of derivative works based *) (* upon this software are permitted to any person, provided this same *) (* copyright notice and the following Olivetti warranty disclaimer are *) (* included in any copy of the software or any modification thereof or *) (* derivative work therefrom made by any person. *) (* *) (* This software is made available AS IS and Olivetti disclaims all *) (* warranties with respect to this software, whether expressed or implied *) (* under any law, including all implied warranties of merchantibility and *) (* fitness for any purpose. In no event shall Olivetti be liable for any *) (* damages whatsoever resulting from loss of use, data or profits or *) (* otherwise arising out of or in connection with the use or performance *) (* of this software. *) (***************************************************************************) IMPORT M3Context; PROCEDURE Run(c: M3Context.T; copy := FALSE) RAISES {}; (* Run the module generator tool on the ASTs in 'c'. All the interfaces marked as primary (M3Conventions.PrimarySource IN cu.fe_status), will be transformed into modules, and written out to files with names derived from that asssociated with the interface. This is a destructive operation on the AST, so the caller may request that the tranformation take place on a copy by setting 'copy := TRUE'. *) CONST OverWrite_Arg = "OverWrite"; (* flag to set to overwrite existing file *) END M3MGTool.