Package erjang

Examples of erjang.ESmall

234
235
236
237
238
239
240
241
242
243
244
  }

  @BIF
  public static EInteger list_to_integer(EObject obj, EObject radix) {
    EString seq;
    ESmall rdx;
    if ((seq = obj.testString()) == null
        || ((rdx = radix.testSmall()) == null))
      throw ERT.badarg(obj, radix);

    // remove leading +
View Full Code Here
288
289
290
291
292
293
294
295
296
297
298
  }

  @BIF
  public static EInteger binary_to_integer(EObject obj, EObject radix) {
    EBinary bin;
    ESmall rdx;
    if ((bin = obj.testBinary()) == null || (rdx = radix.testSmall()) == null)
      throw ERT.badarg(obj, radix);

    // remove leading +
    int off = 0;
View Full Code Here
389
390
391
392
393
394
395
396
397
398
399
400
  }

  @BIF
  public static EString binary_to_list(EObject obj, EObject start, EObject stop) {
    EBinary bin = obj.testBinary();
    ESmall s = start.testSmall();
    ESmall e = stop.testSmall();
    if (bin == null || s==null || e==null)
      throw ERT.badarg(obj,start,stop);

    int idx0start = s.value-1;
    int len = e.value-s.value+1;
View Full Code Here
446
447
448
449
450
451
452
453
454
455
456
    EObject tail;
    ECons cons;
    for (tail=iol; (cons = tail.testNonEmptyList()) != null; tail = cons.tail()) {
      EObject hd = cons.head();

      ESmall sm;
      EBinary bi;
      ECons co;
      if ((sm = hd.testSmall()) != null) {
        if (sm.value < 0 || sm.value > 255)
          throw ERT.badarg(list);
View Full Code Here
418
419
420
421
422
423
424
425
426
427
428
  }
 

  @BIF static public EObject slot(EProc caller, EObject nameOrTid, EObject i) {
    ETable table = resolve(caller, nameOrTid, false);
    ESmall pos;
    if ((pos=i.testSmall())==null || table == null)
      throw ERT.badarg(nameOrTid, i);

    if (pos.value == 0) {
     
View Full Code Here
568
569
570
571
572
573
574
575
576
577
578
  }

  @BIF static public EObject select(EProc caller, EObject nameOrTid, EObject matchSpec, EObject limit) {

    ETable table = resolve(caller, nameOrTid, false);
    ESmall lim = limit.testSmall();
    if (table == null || lim == null || lim.value < 1) throw ERT.badarg(nameOrTid, matchSpec, limit);
   
    EMatchSpec spec;
    ESeq seq;
    if ((matchSpec instanceof EMatchSpec)) {
View Full Code Here
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
          return rec.elm(idx);
         
        } else if ((one=upd.testTuple()) != null) {
         
          if (one.arity() == 2) {
            ESmall eidx = one.elm(1).testSmall();
            incr = one.elm(2).testInteger();
            if (eidx == null || eidx.value > rec.arity() || incr == null) return null;
            int idx = eidx.value;
           
            rec = update(rec, idx, incr);
            if (rec == null) return null;
            map = map.assoc(get_key(rec), rec);
           
            set(map);
            return rec.elm(idx);

          } else if (one.arity() == 4){
           
            ESmall eidx = one.elm(1).testSmall();
            incr = one.elm(2).testInteger();
            EInteger threshold = one.elm(3).testInteger();
            EInteger setvalue = one.elm(4).testInteger();
            if (eidx == null || eidx.value > rec.arity() || incr == null
                || threshold == null || setvalue == null) return null;
View Full Code Here
585
586
587
588
589
590
591
592
593
594
595
        ETuple rep = null;
       
        for (ESeq next = upd ; !next.isNil() ; next = next.tail()) {
          ETuple2 update = ETuple2.cast(next.head());
          if (update == null) return null;
          ESmall idx1 = update.elem1.testSmall();
          if (idx1 == null
              || idx1.value < 1
              || idx1.value > rec.arity()
              || idx1.value == keypos1) return null;
         
View Full Code Here
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
  @BIF
  static ESmall iolist_size(EObject val) {

    EBinary bin;
    if ((bin=val.testBinary()) != null) {
      return new ESmall(bin.byteSize());
    }
   
    EString str;
    if ((str=val.testString()) != null) {
      return new ESmall(str.length());
    }
   
   
    ECons seq;
    if ((seq = val.testCons()) == null) {
      throw ERT.badarg(val);
    }
   
    ArrayList<ByteBuffer> al = new ArrayList<ByteBuffer>();
    seq.collectIOList(al);

    int size = 0;
    for (int i = 0; i < al.size(); i++) {
      size += al.get(i).remaining();
    }
   
    return new ESmall(size);
  }
View Full Code Here
562
563
564
565
566
567
568
569
570
  }
 
  @BIF
  static public ETuple setelement(EObject a1, EObject a2, EObject term) {
    ETuple t = a2.testTuple();
    ESmall i = a1.testSmall();
    if (t == null || i == null) throw ERT.badarg(a1,a2,term);
    return t.setelement(i.value, term);
  }
View Full Code Here
TOP

Related Classes of erjang.ESmall

  • erjang.beam.analysis.BeamTypeAnalysis$FV$LabeledBlock
  • erjang.beam.CompilerVisitor$ASMFunctionAdapter$ASMBlockVisitor
  • erjang.beam.repr.AnonFun
  • erjang.beam.repr.ExtFun
  • erjang.beam.repr.FunctionInfo
  • erjang.beam.repr.FunctionRepr
  • erjang.beam.repr.Insn
  • erjang.beam.repr.Insn$AAI
  • erjang.beam.repr.Insn$BSAppend
  • erjang.beam.repr.Insn$BSPrivateAppend
    • Copyright © 2018 www.massapicom. All rights reserved.
    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.