all repos — min @ 888c0a0abe088aab1a8971607f7ff47d047c02c2

A small but practical concatenative programming language.

lib/min_io.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
 
import 
  os, 
  strutils
import 
  ../core/linedit,
  ../core/regex,
  ../core/parser, 
  ../core/value, 
  ../core/interpreter, 
  ../core/utils

# I/O 


proc io_module*(i: In) =
  i.define("io")
    
    .symbol("newline") do (i: In):
      echo ""
  
    .symbol("puts") do (i: In):
      let a = i.peek
      echo $$a
  
    .symbol("column-print") do (i: In):
      var n, q: MinValue
      i.reqIntAndQuotation n, q
      var c = 0
      for s in q.qVal:
        c.inc
        stdout.write $$s & spaces(max(0, 15 - ($$s).len))
        if c mod n.intVal == 0:
          echo ""
      echo ""
  
    .symbol("gets") do (i: In):
      var ed = initEditor()
      i.push ed.readLine().newVal

    .symbol("password") do (i: In):
      var ed = initEditor()
      i.push ed.password("Enter Password: ").newVal

    .symbol("ask") do (i: In):
      var s: MinValue
      var ed = initEditor()
      i.reqString s
      i.push ed.readLine(s.getString & ": ").newVal

    .symbol("confirm") do (i: In):
      var s: MinValue
      var ed = initEditor()
      i.reqString s
      proc confirm(): bool =
        let answer = ed.readLine(s.getString & " [yes/no]: ")
        if answer.match("^y(es)?$", "i"):
          return true
        elif answer.match("^no?$", "i"):
          return false
        else:
          stdout.write "Invalid answer. Please enter 'yes' or 'no': "
          return confirm()
      i.push confirm().newVal

    .symbol("choose") do (i: In):
      var q, s: MinValue
      var ed = initEditor()
      i.reqStringLikeAndQuotation s, q
      if q.qVal.len <= 0:
        raiseInvalid("No choices to display")
      stdout.writeLine(s.getString)
      proc choose(): int =
        var c = 0
        for item in q.qVal:
          if not item.isQuotation or not item.qVal.len == 2 or not item.qVal[0].isString or not item.qVal[1].isQuotation:
            raiseInvalid("Each item of the quotation must be a quotation containing a string and a quotation")
          c.inc
          echo "$1 - $2" % [$c, item.qVal[0].getString]
        let answer = ed.readLine("Enter your choice ($1 - $2): " % ["1", $c])
        var choice: int
        try:
          choice = answer.parseInt
        except:
          choice = 0
        if choice <= 0 or choice > c:
          echo "Invalid choice."
          return choose()
        else:
          return choice
      let choice = choose()
      i.unquote("<choose>", q.qVal[choice-1].qVal[1])

    .symbol("print") do (i: In):
      let a = i.peek
      a.print
  
    .symbol("fread") do (i: In):
      var a: MinValue
      i.reqString a
      i.push newVal(a.strVal.readFile)
  
    .symbol("fwrite") do (i: In):
      var a, b: MinValue
      i.reqTwoStrings a, b
      a.strVal.writeFile(b.strVal)
  
    .symbol("fappend") do (i: In):
      var a, b: MinValue
      i.reqTwoStrings a, b
      var f:File
      discard f.open(a.strVal, fmAppend)
      f.write(b.strVal)
      f.close()

    .finalize()