katra/src/rte.browser.coffee

BASIC language interpreter in CoffeeScript

#+--------------------------------------------------------------------+
#| rte.browser.coffee
#+--------------------------------------------------------------------+
#| Copyright DarkOverlordOfData (c) 2013
#+--------------------------------------------------------------------+
#|
#| This file is a part of Katra
#|
#| Katra is free software; you can copy, modify, and distribute
#| it under the terms of the MIT License
#|
#+--------------------------------------------------------------------+
#
# Rte Concerns - browser
#
MODE_REPL       = 0     # Console REPL mode
MODE_RUN        = 1     # Console RUN mode

_ctrlCodes =
# C-r
  82: -> @reset()


_fix = ($text) ->
  $text.replace(/\ /g, "&nbsp;").replace(/\n/g, "<br />")

#
# Implements the same syntax as ajax
#
_get = ($name, $next) ->
  if localStorage[$name]?
    $next localStorage[$name]
  else
    $next ''

_set_title = ($filename) ->

    $name = $filename.split('/').pop()

    if /\[.*\]$/.test document.title
      document.title.replace(/\[(.*)\]$/, $name)
    else
      document.title += " - [#{$name}]"


window.rte = rte =

  #
  # wrapper for jquery.console
  #
  Console: class Console

    mode: MODE_REPL
    element: ''
    console: null
    buffer: null
    vars: null
    #
    # jquery.console config:
    #
    animateScroll: true
    autofocus: true
    promptLabel: ''
    promptAlt: '?'
    promptHistory: true
    welcomeMessage: ''

    #
    # initialize a console
    #
    # @param  [String]  element DOM root element
    # @param  [String]  prompt  string to print
    # @return none
    #
    constructor: (@element = '.console', @prompt = '> ') ->

      @promptLabel = @prompt
      @clear()

    #
    # callback to validate the input
    #
    # @param  [String]  line  the line that was entered
    # @return true if input is valid
    #
    commandValidate: ($line) ->
      if $line is "" then false else true

    #
    # input from console
    #
    # @param  [String]  prompt  text to print
    # @param  [Array] vars  list of variables to input
    # @return true to trigger wait for io
    #
    input: ($prompt, $vars) ->
      @print $prompt if $prompt?
      @buffer = []
      @vars = $vars
      true

    #
    # pause the input listener?
    #
    # @param  [Boolean]  set  value to set pause
    # @return [Void]
    #
    pause: ($set) ->
      return

    reset: () ->
      @console.sync()

    setPrompt: ($prompt) ->
      @console.setPrompt $prompt

    debug: ($text) ->
      $text = if $text? then String($text) else ''
      @console.inner.append _fix("#{$text}\n")

    #
    # hilite output
    #
    # @param  [String]  text  text to print
    # @return none
    #
    hilite: ($text) ->

      $text = if $text? then String($text) else ''
      @console.inner.append _fix("#{$text}\n")

    #
    # print to console
    #
    # @param  [String]  text  text to print
    # @return none
    #
    print: ($text) ->
      $text = if $text? then String($text) else ''
      @console.inner.append _fix($text)

    #
    # print with newline to console
    #
    # @param  [String]  text  text to print
    # @return none
    #
    println: ($text) ->
      $text = if $text? then String($text) else ''
      @console.inner.append _fix("#{$text}\n")

    #
    # create a new console, erasing the previuos
    #
    # @return none
    #
    clear: ->
      $(@element).html ''
      @console = $(@element).console(@)

      @console.inner.offset({top: 0, left: 0});
      @console.inner.width($(document).width()-12);
      @console.inner.height($(document).height()-12);
      #@console.sync()



  FileSystem: class FileSystem

    $root = '/'

    setRoot: ($path) ->
      $root = $path

    #
    # read from file
    #
    # @param  [Integer] version version of basic
    # @param  [String]  filename
    # @param  [Function]  next  callback
    # @return [Void]
    #
    readFile: ($filename, $next) ->

      if localStorage[$filename]?
        _get $filename, ($data) ->
          _set_title $filename
          $next null, String($data);

      else
        $.get $root+$filename+'.bas', ($data) ->
          _set_title $filename
          $next null, String($data);


    #
    # write to file
    #
    # @param  [String]  filename
    # @param  [String]  data
    # @param  [Function]  next  callback
    # @return [Void]
    #
    writeFile: ($filename, $data, $next) ->
      localStorage[$filename] = $data
      $next null

    #
    # delete file
    #
    # @param  [String]  filename
    # @param  [Function]  next  callback
    # @return [Void]
    #
    deleteFile: ($filename, $next) ->
      delete localStorage[$filename]
      $next null

    #
    # read dir
    #
    # @param  [Integer]  dir  CATALOG | GROUP | LIBRARY
    # @param  [Function]  next  callback
    # @return [Void]
    #
    readDir: ($dir, $next) ->

      $next ($name+'.bas' for $name, $path of _data[$dir]).concat(
        if $dir is 'CATALOG'
          ($name.split('/').pop()+'.bas' for $name, $value of localStorage)
        else
          [])



_data =
  ATARI:
    SRTRK   : 'bas/atari/SRTRK.bas'
    WUMPUS  : 'bas/atari/WUMPUS.bas'
  GWBASIC:
    eliza   : 'bas/gwbasic/eliza.bas'
    romulan : 'bas/gwbasic/romulan.bas'
  GROUP:
    TREK0   : 'bas/hp2k/group/TREK0.bas'
    TREK1   : 'bas/hp2k/group/TREK1.bas'
    TREK2   : 'bas/hp2k/group/TREK2.bas'
    TREK3   : 'bas/hp2k/group/TREK3.bas'
    TREK4   : 'bas/hp2k/group/TREK4.bas'
    TREK73  : 'bas/hp2k/group/TREK73.bas'
  LIBRARY:
    TRADER  : 'bas/hp2k/system/TRADER.bas'
    TRADES  : 'bas/hp2k/system/TRADES.bas'
  TEST:
    data    : 'bas/hp2k/test/data.bas'
    def     : 'bas/hp2k/test/def.bas'
    dim     : 'bas/hp2k/test/dim.bas'
    for     : 'bas/hp2k/test/for.bas'
    gosub   : 'bas/hp2k/test/gosub.bas'
    if      : 'bas/hp2k/test/if.bas'
    input   : 'bas/hp2k/test/input.bas'
    let     : 'bas/hp2k/test/let.bas'
    numbers : 'bas/hp2k/test/numbers.bas'
    print   : 'bas/hp2k/test/print.bas'
    test    : 'bas/hp2k/test/test.bas'
    unary   : 'bas/hp2k/test/unary.bas'
  CATALOG:
    OREGON  : 'bas/hp2k/OREGON.bas'
    STRTR1  : 'bas/hp2k/STRTR1.bas'
    STTR1   : 'bas/hp2k/STTR1.bas'