Changeset 2689


Ignore:
Timestamp:
Apr 16, 2007, 6:21:46 PM (14 years ago)
Author:
orlov
Message:
Location:
to-imperative/trunk/java
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/java/org/refal/plus/comp/FormatReader.java

    r2687 r2689  
    1313
    1414                public void visit(String name, Object value) {
     15            System.out.println(name+" - "+value);
    1516                        if (value instanceof String)
    1617                                formats = formats.concat((String) value);
    1718                }
    18                 public AnnotationVisitor visitAnnotation (String name, String desc) { return null; }
    19                 public AnnotationVisitor visitArray (String name) { return null; }
     19                public AnnotationVisitor visitAnnotation (String name, String desc) { System.out.println("A: "+name+" - "+desc);return null; }
     20                public AnnotationVisitor visitArray (String name) { System.out.println("Arr: "+name); return null; }
    2021                public void visitEnd () {}
    2122                public void visitEnum (String name, String desc, String value) {}
     
    2627                public MethodFormatReader () {}
    2728
    28                 public AnnotationVisitor visitAnnotation (String desc, boolean visible) { return null; }
     29                public AnnotationVisitor visitAnnotation (String desc, boolean visible) { System.out.println("VA: "+desc+" "+visible); return new MethodFormatAnnotationReader(); }
    2930                public AnnotationVisitor visitAnnotationDefault () { return new MethodFormatAnnotationReader(); }
    3031                public void visitAttribute (Attribute attr) {}
  • to-imperative/trunk/java/refal/plus/Access.java

    r2652 r2689  
    55package refal.plus;
    66
    7 import org.refal.plus.*;
    87import java.math.BigInteger;
     8
     9import org.refal.plus.Expr;
     10import org.refal.plus.RefalException;
     11import org.refal.plus.RefalFormat;
     12import org.refal.plus.Result;
     13import org.refal.plus.Util;
     14import org.refal.plus.ValueOutOfBoundsException;
    915
    1016public final class Access
     
    1723    }
    1824
     25    @RefalFormat(value="$func? L s e = t;")
    1926    static public boolean L (Expr s_left, Expr e_exp, Result t_subexp)
    2027        throws RefalException
Note: See TracChangeset for help on using the changeset viewer.