Changeset 3451


Ignore:
Timestamp:
Feb 29, 2008, 6:25:32 PM (13 years ago)
Author:
yura
Message:
Location:
to-imperative/trunk/compiler
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/rfp_src.rf

    r2729 r3451  
    154154
    155155
    156 RFP_Src_InitFromEnv s.env =
    157   <Store &Env s.env>;
     156// No more used
     157//RFP_Src_InitFromEnv s.env =
     158//  <Store &Env s.env>;
    158159
    159160Env_GetImplementationReader t =
  • to-imperative/trunk/compiler/rfp_src.rfi

    r2658 r3451  
    1818// $Id$
    1919
    20 $func RFP_Src_InitFromEnv s.env = ;
     20// $func RFP_Src_InitFromEnv s.env = ;
    2121$func RFP_Src_InitFromArgs e.files = ;
    2222$func GetImplementationReader t.fileId = (e.qname) (e.inter_reader) (e.implem_reader) ;
  • to-imperative/trunk/compiler/rfpc.rf

    r3424 r3451  
    3434
    3535$use "org.refal.plus.wrappers.java.io.FileOutputStream";
    36 $use "org.refal.plus.wrappers.org.refal.plus.comp.CompilerEnvironment";
    3736
    3837$use Access Arithm Box Class Compare Convert CppMangle File Java JavaMangle
     
    6867$func? Compilation_Failed = ;
    6968
    70 CompileModule s.env =
    71   <RFP_Src_InitFromEnv s.env>,
    72   {
    73     <RFP_Parser <GetModuleName s.env>>;
    74     $error <RFP_Parser_Errors>;
    75   } : (s t.ModuleName e.Items),
    76   <Get_Ready_For_Compilation e.Items>,
    77   <RFP_Check e.Items>,
    78   <RFP_As2As_Transform e.Items> :: e.Items,
    79   <RFP_Compile t.ModuleName e.Items> :: t.module,
    80   {
    81     <IsInTable &RFP_Options "NO-OPTIM"> = t.module;
    82     <Simplify_ASAIL t.module>;
    83   } :: t.module,
    84   {
    85     <RFP_ASAIL_To_JBC t.module> : e (s.bytecode e.java_module_name) e,
    86       <MakeClass s.env <ToWord <Intersperse ('/') e.java_module_name>> s.bytecode>,
    87       $fail;;
    88   };
    89 
    90 
    91 CompileASToJBC s.env t.as =
     69CompileASToJBC t.as =
    9270  t.as : (s t.ModuleName e.Items),
    9371  <Get_Ready_For_Compilation e.Items>,
     
    9775    <IsInTable &RFP_Options "NO-OPTIM"> = t.module;
    9876    <Simplify_ASAIL t.module>;
    99   } :: t.module,
    100   {
    101     <RFP_ASAIL_To_JBC t.module> : e (s.bytecode e.java_module_name) e,
    102       <MakeClass s.env <ToWord <Intersperse ('/') e.java_module_name>> s.bytecode>,
    103       $fail;;
    104   };
    105 
    106 CompileASToJBC2 s.env t.as (e.callList) =
     77  } :: t.module,
     78  () (<RFP_ASAIL_To_JBC t.module>) $iter {
     79    e.out : (s.bytecode e.java_module_name) e.outtail =
     80      (e.jbcs (<ToWord <Intersperse ('/') e.java_module_name>> s.bytecode)) (e.outtail);
     81  } :: (e.jbcs) (e.out), e.out : /*empty*/, e.jbcs;
     82
     83CompileASToJBC2 t.as (e.callList) =
    10784  <Store &CallList e.callList>,
    108   <CompileASToJBC s.env t.as>;
     85  <CompileASToJBC t.as>;
    10986
    11087Main =
  • to-imperative/trunk/compiler/rfpc.rfi

    r3424 r3451  
    1313$func Main = e ;
    1414
    15 $func CompileModule s.env = ;
    16 $func CompileASToJBC s.env t.as = ;
    17 $func CompileASToJBC2 s.env t.as t.callList = ;
     15$func CompileASToJBC t.as = e.jbcs;
     16$func CompileASToJBC2 t.as t.callList = e.jbcs;
    1817
    1918$box CallList;
Note: See TracChangeset for help on using the changeset viewer.