Ejemplo n.º 1
0
    public RRaw op(RRaw a, RRaw b, ASTNode ast) {
      int na = a.size();
      int nb = b.size();
      int[] dimensions = Arithmetic.resultDimensions(ast, a, b);
      Names names = Arithmetic.resultNames(ast, a, b);
      if (na == 0 || nb == 0) {
        return RRaw.EMPTY;
      }

      int n = (na > nb) ? na : nb;
      byte[] content = new byte[n];
      int ai = 0;
      int bi = 0;

      for (int i = 0; i < n; i++) {
        byte araw = a.getRaw(ai++);
        if (ai == na) {
          ai = 0;
        }
        byte braw = b.getRaw(bi++);
        if (bi == nb) {
          bi = 0;
        }
        content[i] = op(araw, braw);
      }

      if (ai != 0 || bi != 0) {
        RContext.warning(ast, RError.LENGTH_NOT_MULTI);
      }
      return RRaw.RRawFactory.getFor(content, dimensions, names);
    }
Ejemplo n.º 2
0
    public RLogical op(RLogical a, RLogical b, ASTNode ast) {
      int na = a.size();
      int nb = b.size();
      int[] dimensions = Arithmetic.resultDimensions(ast, a, b);
      Names names = Arithmetic.resultNames(ast, a, b);
      if (na == 0 || nb == 0) {
        return RLogical.EMPTY;
      }

      int n = (na > nb) ? na : nb;
      int[] content = new int[n];
      int ai = 0;
      int bi = 0;

      for (int i = 0; i < n; i++) {
        int alog = a.getLogical(ai++);
        if (ai == na) {
          ai = 0;
        }
        int blog = b.getLogical(bi++);
        if (bi == nb) {
          bi = 0;
        }
        content[i] = op(alog, blog);
      }

      if (ai != 0 || bi != 0) {
        RContext.warning(ast, RError.LENGTH_NOT_MULTI);
      }
      return RLogical.RLogicalFactory.getFor(content, dimensions, names);
    }