/usr/share/mozart/examples/gump/OzFrontend.oz is in mozart-doc 1.4.0-8ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | %%%
%%% Authors:
%%% Andreas Sundstroem <andreas@sics.se>
%%%
%%% Copyright:
%%% Andreas Sundstroem, 1998
%%%
%%% Last change:
%%% $Date: 1999-01-21 11:01:50 +0100 (Thu, 21 Jan 1999) $Author:
%%% $Revision:
%%%
%%% This file is part of Mozart, an implementation of Oz 3:
%%% http://www.mozart-oz.org
%%%
%%% See the file "LICENSE" or
%%% http://www.mozart-oz.org/LICENSE.html
%%% for information on usage and redistribution
%%% of this file, and for a DISCLAIMER OF ALL
%%% WARRANTIES.
%%%
\switch +gump +compilerpasses
functor
import
GumpScanner('class')
GumpParser('class')
Property(get)
Open(file)
OS(getEnv)
System(showInfo)
export
parseFile: ParseFile
parseVirtualString: ParseVirtualString
define
\insert OzScanner.ozg
\insert OzParser.ozg
fun {ParseFile FileName Reporter GetSwitch Macros}
\gumpscannerprefix ozfront
MyScanner = {New OzScanner init(gump:{GetSwitch gump}
showInsert:{GetSwitch showinsert}
reporter:Reporter macros:Macros)}
MyParser = {New OzParser init(allowDeprecated:{GetSwitch allowdeprecated}
'scanner':MyScanner
reporter:Reporter)}
Status ParseTree
in
{MyScanner scanFile(FileName)}
{MyParser parse(file(?ParseTree) ?Status)}
{MyScanner close()}
if Status then
ParseTree
else
parseError
end
end
fun {ParseVirtualString VS Reporter GetSwitch Macros}
\gumpscannerprefix ozfront
MyScanner = {New OzScanner init(gump:{GetSwitch gump}
showInsert:{GetSwitch showinsert}
reporter:Reporter macros:Macros)}
MyParser = {New OzParser init(allowDeprecated:{GetSwitch allowdeprecated}
'scanner':MyScanner
reporter:Reporter)}
Status ParseTree
in
{MyScanner scanVirtualString(VS)}
{MyParser parse(file(ParseTree) ?Status)}
{MyScanner close()}
if Status then
ParseTree
else
parseError
end
end
end
|