Examples of erjang.ESeq.head()

erjang.ESeq.head()

      ESeq input = arg.testSeq();
      List<Byte> bytes = new ArrayList<Byte>();
      byte[] out;
      
      while (!input.isNil()) {
        Integer el = input.head().testSmall().intValue();
        bytes.add(el.byteValue());
        input = input.tail();
      }
      out = new byte[bytes.size() + 1];
      for (int i = 0; i < bytes.size(); ++i) {

View Full Code Here

      ESeq arg_seq) throws IllegalArgumentException {
    Object[] out = new Object[arg_types.length];


    ESeq as_iter = arg_seq;
    for (int i = 0; i < arg_types.length; i++) {
      out[i] = JavaObject.unbox(self, arg_types[i], as_iter.head());
      as_iter = as_iter.tail();
    }


    return out;
  }

View Full Code Here

        Class<?> componentType = type.getComponentType();
        Object arr = Array.newInstance(componentType, length);


        int index = 0;
        while (!seq.isNil()) {
          Object value = JavaObject.unbox(self, componentType, seq
              .head());
          Array.set(arr, index++, value);
          seq = seq.tail();
        }

View Full Code Here

        }
        
        int count = 0;
        for (; !vals.isNil(); vals = vals.tail()) {
          try {
            ETuple val = (ETuple) vals.head();
            key = val.elm(keypos1);
            IPersistentCollection coll = (IPersistentCollection) map.valAt(key);


            if (coll instanceof IPersistentSet) {
              IPersistentSet set = (IPersistentSet) coll;

View Full Code Here

    EInternalPID heir_pid = null;
    EObject heir_data = null;
    boolean is_named = false;


    for (; !opts.isNil(); opts = opts.tail()) {
      EObject option = opts.head();


      EAtom atom;
      ETuple2 t2;
      ETuple3 t3;
      if ((atom = option.testAtom()) != null) {

View Full Code Here


  @BIF static public ESmall select_count(EProc caller, EObject nameOrTid, EObject matchSpec) {
    ESeq res = select(caller, nameOrTid, matchSpec);
    int result = 0;
    while (!res.isNil()) {
      if (res.head() == ERT.TRUE)
        result += 1;
      res = res.tail();
    }
    return ERT.box(result);
  }

View Full Code Here

    }
    
    ESeq seq;
    if ((seq=opts.testSeq()) != null) {
      while (!seq.isNil()) {
        table.setopt(seq.head());
        seq = seq.tail();
      }
    } else {
      table.setopt(opts);
    }

View Full Code Here

  public static EObject binary_to_term(EObject arg, EObject opts) {
    EBinary bin; ESeq options;
    if ((bin=arg.testBinary()) == null || (options = opts.testSeq()) == null) throw ERT.badarg(arg);
    EInputStream in = bin.getInputStream();
    if (!options.isNil()) {
      if (options.head() == am_safe) {
        in.setSafe(true);
      }
    }
    try {
      EObject val = in.read_any();

View Full Code Here

      throw ERT.badarg(obj, spec);
    }
    
    while (!opts.isNil()) {
      
      EObject val = opts.head();
      ETuple2 tup;
      if (val == am_compressed) {
        compression = 6;
      } else if ((tup=ETuple2.cast(val)) != null) {
        if (tup.elem1 == am_compressed) {

View Full Code Here

      throws Pausable {
    ESeq rargs = args.reverse();
    int len = args.length();
    switch(len) {    
    case 11:
      proc.arg10 = rargs.head(); rargs = rargs.tail();
    case 10:
      proc.arg9 = rargs.head(); rargs = rargs.tail();
    case 9:
      proc.arg8 = rargs.head(); rargs = rargs.tail();
    case 8:

View Full Code Here

0 1 2 3

TOP

All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.