Changeset 2195


Ignore:
Timestamp:
Dec 25, 2006, 2:58:48 AM (14 years ago)
Author:
orlov
Message:
  • New $func? Convert.Read-Expr expr = e.terms;
Location:
to-imperative/trunk
Files:
2 added
7 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/c++/Makefile

    r2187 r2195  
    7474        install -m 0755 rfp.sh $(INSTALL_DIR)/bin/
    7575        mkdir -p -m 0755 $(INSTALL_DIR)/include
    76         cp -rf include/refal $(INSTALL_DIR)/include
    77         mkdir -p -m 0755 $(INSTALL_DIR)/lib
    78         cp -rf ../lib $(INSTALL_DIR)/lib/refal-plus
     76        cp -rf include/refal $(INSTALL_DIR)/include/
     77        mkdir -p -m 0755 $(INSTALL_DIR)/lib/refal-plus
     78        cp -rf ../lib/* $(INSTALL_DIR)/lib/refal-plus/
    7979
    8080clean::
  • to-imperative/trunk/c++/compiler/rfpc.cc

    r2187 r2195  
    43194319{
    43204320  RFP_m_Root = Char::create_expr (L"/usr");
    4321   RFP_m_Default_m_Include_m_Path = (Char::create_expr (L"/usr/include/refal-plus")) () + (Char::create_expr (L"/usr/local/include/refal-plus")) ();
     4321  RFP_m_Default_m_Include_m_Path = (Char::create_expr ("/home/orlov/tmp2//lib/refal-plus")) ();
    43224322  RFP_m_Boot_m_Path = Expr::create_sym< rftype::NamedObject<rftype::BoxContents> >(L"RFP-Boot-Path");
    43234323  RFP_m_Include_m_Path = Expr::create_sym< rftype::NamedObject<rftype::BoxContents> >(L"RFP-Include-Path");
  • to-imperative/trunk/c++/include/refal/Convert.hh

    r2187 r2195  
    2626RF_DECL (To_m_Word);
    2727
     28RF_DECL (Read_m_Expr);
     29
    2830}
    2931
  • to-imperative/trunk/c++/lib/Convert/Makefile

    r2187 r2195  
    1212  chars_to_bytes \
    1313  to_int \
    14   to_word
     14  to_word \
     15  read_expr
    1516
    1617SOURCES = $(addsuffix .cc, $(MODULES))
  • to-imperative/trunk/java/Makefile

    r2187 r2195  
    11all:: \
     2        Convert \
    23        CppMangle \
    34        cpp__specific \
     
    1112        StreamErr \
    1213        Stream
     14
     15Convert: ../lib/Convert.rf
    1316
    1417Error: ../lib/Error.rf
  • to-imperative/trunk/java/org/refal/plus/library/Convert.java

    r2192 r2195  
    9191        res.assign(arr);
    9292    }
     93
     94    /////////////////////// Begining of generated part ///////////////////
     95
     96  static public boolean Read_m_Expr (Expr _ve_xpr, Result _v_res1) throws RefalException
     97  {
     98    Result _ge_auxcall1 = new Result ();
     99    To_m_Chars (_ve_xpr, _ge_auxcall1);
     100    Result _vs_tream = new Result ();
     101    Stream.Expr_m_Open (_ge_auxcall1.getExpr (), _vs_tream);
     102    Expr _ve_res = Expr.empty;
     103    _exit__iter1: for ( ; ; )
     104    {
     105      _iter1: {
     106        if (!Stream.End_m_of_m_Stream_q_ (_vs_tream.getExpr ()))
     107        {
     108          break _iter1;
     109        }
     110        _v_res1.assign (_ve_res);
     111        break _exit__iter1;
     112      }
     113      Result _v_Read_m_Term_q_1 = new Result ();
     114      if (!Lexer.Read_m_Term_q_ (_vs_tream.getExpr (), _v_Read_m_Term_q_1))
     115      {
     116        return false;
     117      }
     118      _ve_res = new Expr (_ve_res, _v_Read_m_Term_q_1.getExpr ());
     119    }
     120    return true;
     121  }
     122
     123    /////////////////////// End of generated part ///////////////////
     124
    93125}
  • to-imperative/trunk/lib/Convert.rfi

    r2187 r2195  
    44$func To-Upper       e.Char = e.Char;
    55
    6 $func? To-Int    e.Exp  = s.Int;
    7 $func  To-Chars  e.Exp  = e.Char;
    8 $func  To-Word   e.Exp  = s.Word;
     6$func? To-Int    e.Exp = s.Int;
     7$func  To-Chars  e.Exp = e.Char;
     8$func  To-Word   e.Exp = s.Word;
     9
     10$func? Read-Expr e.Exp = e.Exp;
Note: See TracChangeset for help on using the changeset viewer.