Package erjang

Examples of erjang.ESeq.head()

51
52
53
54
55
56
57
58
59
60
61
   
    if (key == null || nth == null | list == null)
        throw ERT.badarg(key, nth_arg, list_arg);

    while (!list.isNil()) {
      EObject elm = list.head();
      ETuple tup = elm.testTuple();

      // test that it is a tuple of the right size
      if (tup != null && tup.arity() >= nth.value) {       
        EObject val = tup.elm(nth.value);
View Full Code Here
75
76
77
78
79
80
81
82
83
84
85
   
    if (key == null || nth == null | list == null)
        throw ERT.badarg(key, nth_arg, list_arg);

    while (!list.isNil()) {
      EObject elm = list.head();
      ETuple tup = elm.testTuple();

      // test that it is a tuple of the right size
      if (tup != null && tup.arity() >= nth.value) {       
        EObject val = tup.elm(nth.value);
View Full Code Here
101
102
103
104
105
106
107
108
109
110
111
      throw ERT.badarg(k, n, list);
   
    int index = idx.value;

    while (!src.isNil()) {
      EObject elm = src.head();
     
      ETuple tup;
      if ((tup = elm.testTuple()) != null) {
        if (tup.arity() >= index) {
          if (tup.elm(index).equals(k)) {
View Full Code Here
133
134
135
136
137
138
139
140
141
142
143
    ArrayList<EObject> map = new ArrayList<>();
    while (!list.isNil()) {
     
      EObject pair0;
     
      proc.arg0 = list.head();
      proc.arg1 = acc;
      proc.tail = fun;     
      do {
        pair0 = proc.tail.go(proc);
      } while (pair0 == EProc.TAIL_MARKER);
View Full Code Here
185
186
187
188
189
190
191
192
193
194
195
  public static EAtom member(EObject e, EObject l) {
    ESeq list = l.testSeq();
    if (list == null) throw ERT.badarg(e, l);

    while (!list.isNil()) {
      if (e.equals(list.head())) return ERT.TRUE;
      list = list.tail();
    }

    return ERT.FALSE;
  }
View Full Code Here
TOP
Copyright © 2018 www.massapi.com. 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.