Ignore:
Timestamp:
Apr 20, 2006, 4:41:35 PM (15 years ago)
Author:
sveta
Message:
  • Changing of t++-examples.
Location:
to-imperative/trunk/trefal/samples
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/trefal/samples/fib.tpp

    r1906 r1932  
    11#include <rf_core.hh>
    22#include <refal/Arithm.hh>
     3#include <refal/StdIO.hh>
    34#include <refal/Compare.hh>
    4 #include <refal/StdIO.hh>
    55
    66namespace refal
     
    1414tfun int Fib;
    1515
     16tfun int Main;
     17
    1618static tval Expr _c_0;
    1719
     
    2224static tval Expr _c_3;
    2325
    24 int Fib( tval Expr_v_arg1,tout Expr_v_res1){
     26tfun int Fib( tval Expr_v_arg1,tout Expr_v_res1){
    2527  {
    2628    {
     
    7274}
    7375
    74 int Main( tout Expr_v_res1){
     76tfun int Main( tout Expr_v_res1){
    7577  tval Expr _v_Fib1;
    7678  Fib( _c_3, _v_Fib1);
  • to-imperative/trunk/trefal/samples/read.tpp

    r1906 r1932  
    1010{
    1111
    12 int Main( tout Expr_v_res1){
     12tfun int Main;
     13
     14tfun int Main( tout Expr_v_res1){
    1315  tval Expr _v_Read1;
    1416  if (!StdIO::Read(/*void*/, _v_Read1))
Note: See TracChangeset for help on using the changeset viewer.