nimrepl.nim

#
#
#              Nimrod REPL
#        (c) Copyright 2012 Dominik Picheta
#
#    See the file "copying.txt", included in this
#    distribution, for details about the copyright.
#

import glib2, gtk2, gdk2, os, osproc, dialogs, strutils

when defined(tinyc):
  const runCmd = "run"
else:
  const runCmd = "c -r"

var nimExe = findExe("nimrod")
if nimExe.len == 0: nimExe = "../bin" / addFileExt("nimrod", os.exeExt)

proc execCode(code: string): string =
  var f: TFile
  if open(f, "temp.nim", fmWrite):
    f.write(code)
    f.close()
    result = osproc.execProcess(
      "$# $# --verbosity:0 --hint[Conf]:off temp.nim" % [nimExe, runCmd],
      {poStdErrToStdOut})
  else:
    result = "cannot open file 'temp.nim'"

var shiftPressed = False
var w: gtk2.PWindow
var InputTextBuffer: PTextBuffer
var OutputTextBuffer: PTextBuffer

proc destroy(widget: PWidget, data: pgpointer){.cdecl.} = 
  main_quit()

proc FileOpenClicked(menuitem: PMenuItem, userdata: pgpointer) {.cdecl.} =
  var path = ChooseFileToOpen(w)
  if path != "":
    var file = readFile(path)
    if file != nil:
      set_text(InputTextBuffer, file, len(file).gint)
    else:
      error(w, "Unable to read from file")

proc FileSaveClicked(menuitem: PMenuItem, userdata: pgpointer) {.cdecl.} =
  var path = ChooseFileToSave(w)
  
  if path == "": return
  var startIter: TTextIter
  var endIter: TTextIter
  get_start_iter(InputTextBuffer, addr(startIter))
  get_end_iter(InputTextBuffer, addr(endIter))
  var InputText = get_text(InputTextBuffer, addr(startIter), 
                           addr(endIter), False)
  var f: TFile
  if open(f, path, fmWrite):
    f.write(InputText)
    f.close()
  else:
    error(w, "Unable to write to file")

proc inputKeyPressed(widget: PWidget, event: PEventKey, 
                     userdata: pgpointer): bool {.cdecl.} =
  if ($keyval_name(event.keyval)).tolower() == "shift_l":
    # SHIFT is pressed
    shiftPressed = True
  
proc setError(msg: string) = 
  outputTextBuffer.setText(msg, msg.len.gint)
  
proc inputKeyReleased(widget: PWidget, event: PEventKey, 
                      userdata: pgpointer): bool {.cdecl.} =
  #echo(keyval_name(event.keyval))
  if ($keyval_name(event.keyval)).tolower() == "shift_l":
    # SHIFT is released
    shiftPressed = False
    
  if ($keyval_name(event.keyval)).tolower() == "return":
    #echo($keyval_name(event.keyval), "Shift_L")
    # Enter pressed
    if shiftPressed == False:
      var startIter: TTextIter
      var endIter: TTextIter
      get_start_iter(InputTextBuffer, addr(startIter))
      get_end_iter(InputTextBuffer, addr(endIter))
      var InputText = get_text(InputTextBuffer, addr(startIter), 
                               addr(endIter), False)

      try:
        var r = execCode($InputText)
        set_text(OutputTextBuffer, r, len(r).gint)
      except EIO:
        setError("Error: Could not open file temp.nim")


proc initControls() =
  w = window_new(gtk2.WINDOW_TOPLEVEL)
  set_default_size(w, 500, 600)
  set_title(w, "Nimrod REPL")
  discard signal_connect(w, "destroy", SIGNAL_FUNC(nimrepl.destroy), nil)
  
  # MainBox (vbox)
  var MainBox = vbox_new(False, 0)
  add(w, MainBox)
  
  # TopMenu (MenuBar)
  var TopMenu = menu_bar_new()
  show(TopMenu)
  
  var FileMenu = menu_new()
  var OpenMenuItem = menu_item_new("Open")
  append(FileMenu, OpenMenuItem)
  show(OpenMenuItem)
  discard signal_connect(OpenMenuItem, "activate", 
                          SIGNAL_FUNC(FileOpenClicked), nil)
  var SaveMenuItem = menu_item_new("Save...")
  append(FileMenu, SaveMenuItem)
  show(SaveMenuItem)
  discard signal_connect(SaveMenuItem, "activate", 
                          SIGNAL_FUNC(FileSaveClicked), nil)
  var FileMenuItem = menu_item_new("File")

  
  set_submenu(FileMenuItem, FileMenu)
  show(FileMenuItem)
  append(TopMenu, FileMenuItem)
  
  pack_start(MainBox, TopMenu, False, False, 0)

  # VPaned - Seperates the InputTextView and the OutputTextView
  var paned = vpaned_new()
  set_position(paned, 450)
  pack_start(MainBox, paned, True, True, 0)
  show(paned)

  # Init the TextBuffers
  InputTextBuffer = text_buffer_new(nil)
  OutputTextBuffer = text_buffer_new(nil)

  # InputTextView (TextView)
  var InputScrolledWindow = scrolled_window_new(nil, nil)
  set_policy(InputScrolledWindow, POLICY_AUTOMATIC, POLICY_AUTOMATIC)
  var InputTextView = text_view_new(InputTextBuffer)
  add_with_viewport(InputScrolledWindow, InputTextView)
  add1(paned, InputScrolledWindow)
  show(InputScrolledWindow)
  show(InputTextView)
  
  discard signal_connect(InputTextView, "key-release-event", 
                          SIGNAL_FUNC(inputKeyReleased), nil)
  discard signal_connect(InputTextView, "key-press-event", 
                          SIGNAL_FUNC(inputKeyPressed), nil)
  
  # OutputTextView (TextView)
  var OutputScrolledWindow = scrolled_window_new(nil, nil)
  set_policy(OutputScrolledWindow, POLICY_AUTOMATIC, POLICY_AUTOMATIC)
  var OutputTextView = text_view_new(OutputTextBuffer)
  add_with_viewport(OutputScrolledWindow, OutputTextView)
  add2(paned, OutputScrolledWindow)
  show(OutputScrolledWindow)
  show(OutputTextView)
  
  show(w)
  show(MainBox)
  
nimrod_init()
initControls()
main()