Package com.trifork.clj_ds

Examples of com.trifork.clj_ds.ISeq

537
538
539
540
541
542
543
544
545
546
547
      return new EList(h, this);
    }

    @Override
    public ESeq tail() {
      ISeq c2 = coll.next();
      if (c2 == null) {
        if (map_seq == null || map_seq == map_seq.empty()) return ERT.NIL;
       
        return new ELSeq(map_seq);
      } else {
View Full Code Here
196
197
198
199
200
201
202
203
204
205
    IPersistentMap map = deref();
   
    if (map.count() == 0) {
      return Native.am_$end_of_table;
    } else {
      ISeq entseq = map.seq();
      IMapEntry<EObject, EObject> ent = (IMapEntry<EObject, EObject>) entseq.first();
      return (EObject) ent.getKey();
    }
  }
View Full Code Here
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
 
    public EObject select() {
      int count = 0;
      ESeq vals = ERT.NIL;
     
      ISeq map_seq = map_ent;
      ISeq coll_seq = coll_ent;
      while ((seq_has_more(map_seq) || seq_has_more(coll_seq)) && (limit < 0 || count < limit)) {
       
        if (!seq_has_more(coll_seq)) {
          IMapEntry ent = (IMapEntry) map_seq.first();
          IPersistentCollection coll = (IPersistentCollection) ent.getValue();
          coll_seq = coll.seq();
          map_seq = map_seq.next();
        }
       
        assert seq_has_more(coll_seq);
       
        ETuple candidate = (ETuple) coll_seq.first();
        coll_seq = coll_seq.next();
       
        EObject res;
        if ((res = matcher.match(candidate)) != null) {
          count += 1;
          vals = vals.cons(res);
View Full Code Here
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
 
    public EObject select() {
      int count = 0;
      ESeq vals = ERT.NIL;
     
      ISeq map_seq = this.ent;
      while (seq_has_more(map_seq) && (limit < 0 || count < limit)) {
       
        IMapEntry mape = (IMapEntry) map_seq.first();
        map_seq = map_seq.next();
       
        ETuple candidate = (ETuple) mape.getValue();
        EObject res;
        if ((res = matcher.match(candidate)) != null) {
          count += 1;
View Full Code Here
100
101
102
103
104
105
106
107
108
109
      return elem_count_pair.getKey();
    }

    @Override
    public ISeq more() {
      ISeq next = next();
      if (next == null)
        return PersistentList.EMPTY;
      return next;
    }
View Full Code Here
111
112
113
114
115
116
117
118
119
120
121
    @Override
    public ISeq next() {
      IMapEntry elem_count_pair = (IMapEntry) pairs.first();
      int count = (Integer) elem_count_pair.getValue();
      if (count == pos + 1) {
        ISeq succ = pairs.next();
        if (succ == null) {
          return null;
        } else {
          return new ElemSeq(succ, 0, total-1);
        }
View Full Code Here
123
124
125
126
127
128
129
130
 
  @Override
  public ESeq slot() {
    IPersistentMap map = deref();
    if (map.count() == 0) return ERT.NIL;
    ISeq seq = map.seq();
    return new ELSeq(seq);
  }
View Full Code Here
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
    IPersistentMap map = deref();
   
    if (map.count() == 0) {
      return Native.am_$end_of_table;
    } else {
      ISeq entseq;
      try {
        entseq = ((Reversible)map).rseq();
      } catch (Exception e) {
        throw new InternalError("cannot reverse");
      }
      if (entseq == null) return Native.am_$end_of_table;
      IMapEntry ent = (IMapEntry) entseq.first();
      if (ent == null) return Native.am_$end_of_table;
      return (EObject) ent.getKey();
    }
  }
View Full Code Here
198
199
200
201
202
203
204
205
206
207
208
209
    IPersistentMap map = deref();
   
    if (map.count() == 0) {
      return Native.am_$end_of_table;
    } else {
      ISeq entseq = map.seq();
      if (entseq == null) return Native.am_$end_of_table;
      IMapEntry ent = (IMapEntry) entseq.first();
      if (ent == null) return Native.am_$end_of_table;
      return (EObject) ent.getKey();
    }
  }
View Full Code Here
142
143
144
145
146
147
148
149
150
      return new EList(h, this);
    }

    @Override
    public ESeq tail() {
      ISeq next = seq.next();
      if (next == null) return ERT.NIL;
      return new ELSeq(next);
    }
View Full Code Here
TOP

Related Classes of com.trifork.clj_ds.ISeq

  • erjang.m.ets.ETableBag
  • erjang.m.ets.ETableBag$EBagCont
  • erjang.m.ets.ETableBag$ELSeq
  • erjang.m.ets.ETableSet
  • erjang.m.ets.ETableSet$ELSeq
  • erjang.m.ets.ETableSet$ESetCont
  • erjang.m.ets.PersistentBag$ElemSeq
    • 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.