Package erjang

Examples of erjang.ESmall

584
585
586
587
588
589
590
591
592
593
594
    return a2.setelement(index.value, term);
  }

  @BIF(type = Type.GUARD, name = "element")
  static public EObject element$g(EObject idx, EObject tup) {
    ESmall i = idx.testSmall();
    ETuple t = tup.testTuple();
    if (i == null || t == null) {
      return null;
    }
    if (i.value > t.arity())
View Full Code Here
597
598
599
600
601
602
603
604
605
606
607
608
609
    return t.elm(i.value);
  }

  @BIF
  static public EObject element(EObject idx, EObject tup) {
    ESmall i = idx.testSmall();
    ETuple t = tup.testTuple();
    if (i == null || t == null || i.value < 1 || i.value > t.arity()) {
      throw ERT.badarg(idx, tup);
    }

    return t.elm(i.asInt());
  }
View Full Code Here
631
632
633
634
635
636
637
  @BIF
  static public EObject element(int idx, ETuple tup) {
    if (tup.arity() >= idx) {
      return tup.elm(idx);
    }
    throw ERT.badarg(new ESmall(idx), tup);
  }
View Full Code Here
649
650
651
652
653
654
655
  static public EObject element(int idx, EObject obj) {
    ETuple tup;
    if ((tup = obj.testTuple()) != null && tup.arity() >= idx) {
      return tup.elm(idx);
    }
    throw ERT.badarg(new ESmall(idx), obj);
  }
View Full Code Here
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
    return ERT.guard(a1 == a2);
  }

  @BIF(name = "=:=", type = Type.GUARD)
  public static final EAtom eqxp(EObject a1, ESmall s2) {
    ESmall s1;
    if ((s1 = a1.testSmall()) != null) {
      return ERT.guard(s1.value == s2.value);
    }

    return ERT.guard(s2.equalsExactly(a1));
View Full Code Here
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
    @BIF(type=Type.GUARD, name="is_record")
            public static EAtom is_record$g(EObject term, EObject tag, EObject size) {
                EAtom atag = tag.testAtom();
                ETuple tup = term.testTuple();
                ESmall siz = size.testSmall();
                boolean ok = ( (atag != null) && (tup != null) && (siz != null)
                                && (tup.arity() == siz.value)
                                && (tup.elm(1) == atag) );
                if (ok) return ERT.TRUE;
                else return null;
View Full Code Here
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
   
  }
 
  @BIF
  public static ETuple make_tuple(EObject arity, EObject initial) {
    ESmall sm = arity.testSmall();
    if (sm == null || sm.value < 0) throw ERT.badarg(arity, initial);
    ETuple et = ETuple.make(sm.value);
    for (int i = 1; i <= sm.value; i++) {
      et.set(i, initial);
    }
View Full Code Here
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
  {
    ETuple2 dt;
    if ((dt=ETuple2.cast(a1)) != null) {
      ETuple3 date;
      ETuple3 time;
      ESmall year;
      ESmall month;
      ESmall day;
      ESmall hour;
      ESmall minute;
      ESmall sec;
      if (   (date=ETuple3.cast( dt.elem1 )) != null
        && (year = date.elem1.testSmall()) != null
        && (month = date.elem2.testSmall()) != null
        && (day = date.elem3.testSmall()) != null
       
View Full Code Here
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
  {
    ETuple2 dt;
    if ((dt=ETuple2.cast(a1)) != null) {
      ETuple3 date;
      ETuple3 time;
      ESmall year;
      ESmall month;
      ESmall day;
      ESmall hour;
      ESmall minute;
      ESmall sec;
      if (   (date=ETuple3.cast( dt.elem1 )) != null
        && (year = date.elem1.testSmall()) != null
        && (month = date.elem2.testSmall()) != null
        && (day = date.elem3.testSmall()) != null
       
View Full Code Here
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
  {
    ETuple2 dt;
    if ((dt=ETuple2.cast(a1)) != null) {
      ETuple3 date;
      ETuple3 time;
      ESmall year;
      ESmall month;
      ESmall day;
      ESmall hour;
      ESmall minute;
      ESmall sec;
      if (   (date=ETuple3.cast( dt.elem1 )) != null
        && (year = date.elem1.testSmall()) != null
        && (month = date.elem2.testSmall()) != null
        && (day = date.elem3.testSmall()) != null
       
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.