lib/min_str.nim
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 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 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 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 122 123 124 125 |
import tables, strutils, sequtils import ../core/parser, ../core/value, ../core/interpreter, ../core/utils, ../packages/nim-sgregex/sgregex proc str_module*(i: In) = let def = i.define() def.symbol("interpolate") do (i: In): let vals = i.expect("quot", "string") var q = vals[0] let s = vals[1] var strings = newSeq[string](0) for el in q.qVal: strings.add $$el let res = s.strVal % strings i.push res.newVal def.symbol("strip") do (i: In): let vals = i.expect("'sym") let s = vals[0] i.push s.getString.strip.newVal def.symbol("split") do (i: In): let vals = i.expect("string", "string") let sep = vals[0] let s = vals[1] var q = newSeq[MinValue](0) for e in s.strVal.split(sep.strVal): q.add e.newVal i.push q.newVal(i.scope) def.symbol("join") do (i: In): let vals = i.expect("'sym", "quot") let s = vals[0] let q = vals[1] i.push q.qVal.mapIt($$it).join(s.getString).newVal def.symbol("length") do (i: In): let vals = i.expect("'sym") let s = vals[0] i.push s.getString.len.newVal def.symbol("lowercase") do (i: In): let vals = i.expect("'sym") let s = vals[0] i.push s.getString.toLowerAscii.newVal def.symbol("uppercase") do (i: In): let vals = i.expect("'sym") let s = vals[0] i.push s.getString.toUpperAscii.newVal def.symbol("capitalize") do (i: In): let vals = i.expect("'sym") let s = vals[0] i.push s.getString.capitalizeAscii.newVal def.symbol("titleize") do (i: In): let vals = i.expect("'sym") let s = vals[0] i.push s.getString.split(" ").mapIt(it.capitalizeAscii).join(" ").newVal def.symbol("repeat") do (i: In): let vals = i.expect("int", "string") let n = vals[0] let s = vals[1] i.push s.getString.repeat(n.intVal).newVal def.symbol("indent") do (i: In): let vals = i.expect("int", "string") let n = vals[0] let s = vals[1] i.push s.getString.indent(n.intVal).newVal def.symbol("search") do (i: In): let vals = i.expect("string", "string") let reg = vals[0] let str = vals[1] var matches = str.strVal.search(reg.strVal) var res = newSeq[MinValue](matches.len) for i in 0..matches.len-1: res[i] = matches[i].newVal i.push res.newVal(i.scope) def.symbol("match") do (i: In): let vals = i.expect("string", "string") let reg = vals[0] let str = vals[1] if str.strVal.match(reg.strVal): i.push true.newVal else: i.push false.newVal def.symbol("replace") do (i: In): let vals = i.expect("string", "string", "string") let s_replace = vals[0] let reg = vals[1] let s_find = vals[2] i.push sgregex.replace(s_find.strVal, reg.strVal, s_replace.strVal).newVal def.symbol("regex") do (i: In): let vals = i.expect("string", "string") let reg = vals[0] let str = vals[1] let results = str.strVal =~ reg.strVal var res = newSeq[MinValue](0) for r in results: res.add(r.newVal) i.push res.newVal(i.scope) def.symbol("=~") do (i: In): i.push("regex".newSym) def.symbol("%") do (i: In): i.push("interpolate".newSym) def.finalize("str") |