Package erjang

Examples of erjang.ESeq

2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
  @BIF
  static public EObject match_spec_test(EObject term, EObject matchSpec, EObject how)
  {
    EMatchSpec spec;
    ESeq seq;
    if ((matchSpec instanceof EMatchSpec)) {
      spec = (EMatchSpec) matchSpec;
    } else if ((seq=matchSpec.testSeq()) != null) {
      try {
        spec = EMatchSpec.compile(seq);
View Full Code Here
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
  }

  @BIF
  public static ESeq map(EProc proc, EObject f, EObject s) throws Pausable {
    EFun fun = f.testFunction2(1);
    ESeq seq = s.testSeq();
    if (fun == null || seq == null) throw ERT.badarg(f, s);
   
    EObject[] arg = new EObject[1];
   
    ESeq rev = ERT.NIL;
    for (; !seq.isNil(); seq = seq.tail()) {
      arg[0] = seq.head();
      EObject val = fun.invoke(proc, arg);
      rev = rev.cons( val );
    }

    return reverse(rev, ERT.NIL);
  }
View Full Code Here
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
    }
   
    if ((sm_e.value+1) < sm_s.value)
      throw ERT.badarg(start, end);
   
    ESeq l = ERT.NIL;
    int val = sm_e.value;
    int first = sm_s.value;
   
    while (val >= first) {
      l = l.cons(val);
      val -= 1;
    }
   
    return l;
  }
View Full Code Here
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
  static ESeq seq_big(EInteger start, EInteger end)
  {
    if ((end.inc()).is_lt(start))
      throw ERT.badarg(start, end);
   
    ESeq l = ERT.NIL;
    EInteger val = end;
    EInteger first = start;
   
    while (val.is_ge(first)) {
      l = l.cons(val);
      val = val.dec();
    }
   
    return l;
   
View Full Code Here
295
296
297
298
299
300
301
302
303
304
305
    }
    return array;
  }

  public static ESeq xregsSeq(EObject[] reg, int arity) {
    ESeq res = ERT.NIL;
    for (int i=arity-1; i>=0; i--) {
      res = res.cons(reg[i]);
    }
    return res;
  }
View Full Code Here
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
*/
public class ErlList {

  @BIF(name="--")
  public static ECons listDiff(EObject a1, EObject a2) {
    ESeq l1, l2;
    if ((l1 = a1.testSeq()) == null ||
      (l2 = a2.testSeq()) == null)
      throw ERT.badarg(a1,a2);

    if (l1.isNil()) return l1;

    // Step 1: Copy l1 to a temporary place.
    final EObject[] tmp = l1.toArray();

    // Step 2: Delete elements occurring l2 (but only once)
    int tmp_start = 0;
    for (ESeq cur = l2; !cur.isNil(); cur=cur.tail()) {
      EObject elm = cur.head();
View Full Code Here
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
  public static final EAtom am_mapfoldl = EAtom.intern("mapfoldl");
 
  @BIF
  public static EObject keymember(EObject key, EObject nth_arg, EObject list_arg) {
    ESmall nth = nth_arg.testSmall();
    ESeq list = list_arg.testSeq();
   
    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);
        if (val.equals(key)) { return ERT.TRUE; }
      }
     
      list = list.tail();
    }

    return ERT.FALSE;
  }
View Full Code Here
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
  }
 
  @BIF
  public static EObject keyfind(EObject key, EObject nth_arg, EObject list_arg) {
    ESmall nth = nth_arg.testSmall();
    ESeq list = list_arg.testSeq();
   
    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);
        if (val.equals(key)) { return tup; }
      }
     
      list = list.tail();
    }

    return ERT.FALSE;
  }
View Full Code Here
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
  }
 
  @BIF
  public static EObject keysearch(EObject k, EObject n, EObject list) {
    ESmall idx = n.testSmall();
    ESeq src = list.testSeq();
   
    if (k==null||idx==null||src==null||idx.value<1)
      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)) {
            return new ETuple2(ERT.am_value, tup);
          }
        }
      }
     
      src = src.tail();
    }
   
    return ERT.FALSE;
  }
View Full Code Here
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
  // reimplement this to be iterative, not recursive...
  @BIF
  public static ETuple2 mapfoldl(EProc proc, EObject fun0, EObject acc, EObject list0) throws Pausable {
    EFun fun = fun0.testFunction2(2);
    ESeq list = list0.testSeq();
   
    if (fun == null || list == null) {
      ERT.func_info(am_lists, am_mapfoldl, 3);
    }
   
    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);
     
      ETuple2 out = ETuple2.cast(pair0);
     
      if (out == null) {
        throw new ErlangError(am_badmatch, pair0);
      }
     
      map.add(out.elem1);
      acc = out.elem2;
     
      list = list.tail();
    }
   
    ESeq res = ERT.NIL;
    for (int i = map.size()-1; i >= 0; i--) {
      res = res.cons(map.get(i));
    }
   
    return new ETuple2(res, acc);
  }
View Full Code Here
TOP

Related Classes of erjang.ESeq

  • erjang.beam.interpreter.AbstractInterpreter
  • erjang.beam.repr.Operands
  • erjang.driver.Drivers
  • erjang.driver.EDriverTask
  • erjang.driver.EExecDriverTask
  • erjang.m.erlang.ErlBif
  • erjang.m.erlang.ErlConvert
  • erjang.m.erlang.ErlDist
  • erjang.m.erlang.ErlFun
  • erjang.m.erlang.ErlList
    • 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.