New user/Problem to compilate

[Jean-Pierre Bernède]

Hi,

Help, Help,

I have some problem to compilate this sample :
  ozc -c Webget.oz -o Webget.oza
%*************************** parse error ************************
%**
%** unexpected token comparison operator
%**
%** in file "./Webget.oz", line 1, column 0
%** ------------------ rejected (1 error)


<Webget.oz>=
 functor 
   <Module import (no convenience)>=
       import  
         Application at 'x-oz://system/Application' 
         Open        at 'x-oz://system/Open'
   <Functor body>= 
       define 
         <Argument processing>= 
            Args = {Application.getArgs record('in'(single type:string)
                                                'out'(single type:string))}         
            Status = try 
               <Opening input and output files> 
                   I={New Open.file init(url:  Args.'in')}
                   O={New Open.file init(name: Args.'out'  
                                         flags:[write create truncate])}                                                                       
            in 
               <Copying input file to output file>=
               local 
                 proc {Copy}
                   S={I read(list:$)}
                 in 
                   if S\="" then  
                      {O write(vs:S)} {Copy}  
                   end 
                 end 
               in  
                {Copy}
               end                
               0
            catch _ then 1
            end 
         <Terminating the application>=
            {Application.exit Status}   
 end

Thanks.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.gforge.info.ucl.ac.be/pipermail/mozart-users/attachments/20030527/021faae1/attachment.html