delphiman68/bookpart_3

This project will accompany Part 3 of Writing an Interpreter in Object Pascal.

BookPart 3

Update (11/19/2021) To make things a little more interting I added very simple graphics module which can be used by the IDE. Also released a new binary with this functionality.

Update (11/6/2021): Added new binary release (3.0.2.0). Includes console, dll library and GUI app in binary form.

Update (11/6/2021): More updates to the book. Added array type, plus a lot of minor changes and bug fixes elsewhere. First version of the embeddable version of the interpreter in folder librhodus. This generates a dll which can be imported into another application. At the moment only four methods are exported from the dll, rhodus_initialise, rhodus_run, rhodus_terminate, and rhodus_getlastError. Example usage in RhodusIDE. The rhodus group project file will load all subprojects.

Update (10/14/2021): I uploaded the beginning of the book that will accompany the project. You'll find the text in the folder Book. I've not decided how to receive corrections etc, but we could use pull requests. At the moment I've just included the first draft of Chapter 1 and a corresponding pdf

Update (10/13/2021): Updated to 3.0.1.2. This includes the beginnings of array support. Also the repl was updated with new commands such as showtree and showcode. showtree lets you view the generated AST and showcode the byte code. The accompanying textbook has been started and the first chapter will be released sometime in the next few weeks. One big change is that after much thought and a number of attempts at designing array support I decided to switch from curley brackets to square brackets for lists. This matches python. Curely brackets will likely be reserved for maps/dictionaries. The same code below has been updated to reflect this change. Note that gif video still shows curely brackets. This will be updated shortly. There is a new binary release to accompany this version.

Update (10/2/2021): The 3.0.1.0 update represents a major rewrite of the AST/compiler and parts of the parser. It now supports a simple object model on strings and lists as well as revising the grammar to take care of the new module syntax. I will also split the parsing into two parts to make it easer to handle memory managements during compile errors. All samples and tests have been updated to the new object syntax.

This repo holds source code for part III of the book series on building an interpreter using Object Pascal (https://www.objectpascalinterpreter.com). the code is now fairly stable but I will continue to tidy up the code and possibly add one or two additional features.

The major outward change in this version includes library support, and a range of small builtin libraries such as math (these will be expanded). The biggest internal change is to separate code generation from syntax analysis in the form of an abstract syntax tree. User functions are also now first-class entities which can be passed around like any other variable. A lot of work has been done on ensure that garbage collection doesn't leak memory.

Basic Demo

Lists and Strings

Build

To build the code, load RhodusVersionThreeGroup.groupproj into your Delphi IDE and run.

The only dependency is FastMM4 for memory leak debugging but it can be left out by commenting out the line 35 in RhodusVersionThreeProject.dpr.

Examples

Example code:

// Quick sort algorithm, depends on recursion
function QSort (numbers, left, right)
  l_ptr = left
  r_ptr = right
  pivot = numbers[left]

  while (left < right) do

        while ((numbers[right] >= pivot) AND (left < right)) do
          right = right - 1
        end

        if (left != right) then
           numbers[left] = numbers[right]
           left = left + 1
        end

        while ((numbers[left] <= pivot) AND (left < right)) do
           left = left + 1
        end

        if (left != right) then
           numbers[right] = numbers[left]
           right = right - 1
        end
  end

  numbers[left] = pivot
  pivot = left
  left = l_ptr
  right = r_ptr

  if (left < pivot) Then
      QSort(numbers, left, pivot-1)
  end

  if (right > pivot) Then
     QSort(numbers, pivot+1, right)
  end 
end

// Driver code to test above   
numbers = [12, 7, 13, 5, 6]
QSort(numbers, 0, numbers.len () - 1) 
res = assertTrueEx (numbers == [5, 6, 7, 12, 13])
if res == "." then
   println("----PASS----")
else
   println("----FAIL----")
end

// Bigger example
numbers = random.randlist (100, 100)
size = numbers.len ()
QSort(numbers, 0, size-1)
println ("Larger example: ", numbers)

Passing functions as arguments:

// Add some user defined funtions
function sqr (x) return x*x; end
function cube (x) return x*x*x; end

function runtest (fcn, x)
   return fcn (x)
end

s = runtest (sqr, 5)
println (s)

s = runtest (cube, 5)
println (s)

Use of modules:

First define a new module called lib.rh:

a1 = 1.234
b1 = 5.678

function sqrt (x)
   return x^0.5
end;

function input (prompt)
   print (prompt + " ");
   return readString()
end

Importing and using the module:

import lib

println (lib.sqrt (25))
println (lib.a1)

Printing out all the colors:

    colors = [
      "Snow",           "FloralWhite",     "LavenderBlush", "OldLace",         "Ivory",                "CornSilk",       "Beige",          "AntiqueWhite",
      "Wheat",          "AliceBlue",       "GhostWhite",    "Lavender",        "Seashell",             "LightYellow",    "PapayaWhip",     "NavajoWhite",
      "Moccasin",       "Burlywood",       "Azure",         "Mintcream",       "Honeydew",             "Linen",          "LemonChiffon",   "BlanchedAlmond",
      "Bisque",         "PeachPuff",       "Tan",           "Yellow",          "DarkOrange",           "Red",            "DarkRed",        "Maroon",
      "IndianRed",      "Salmon",          "Coral",         "Gold",            "Tomato",               "Crimson",        "Brown",          "Chocolate",
      "SandyBrown",     "LightSalmon",     "LightCoral",    "Orange",          "OrangeRed",            "Firebrick",      "SaddleBrown",    "Sienna",
      "Peru",           "DarkSalmon",      "RosyBrown",     "PaleGoldenrod",   "LightGoldenrodYellow", "Olive",          "ForestGreen",    "GreenYellow",
      "Chartreuse",     "LightGreen",      "Aquamarine",    "SeaGreen",        "GoldenRod",            "Khaki",          "OliveDrab",      "Green",
      "YellowGreen",    "LawnGreen",       "PaleGreen",     "MediumAquamarine","MediumSeaGreen",       "DarkGoldenRod",  "DarkKhaki",      "DarkOliveGreen",
      "Darkgreen",      "LimeGreen",       "Lime",          "SpringGreen",     "MediumSpringGreen",    "DarkSeaGreen",   "LightSeaGreen",  "PaleTurquoise",
      "LightCyan",      "LightBlue",       "LightSkyBlue",  "CornFlowerBlue",  "DarkBlue",             "Indigo",         "MediumTurquoise","Turquoise",
      "Cyan",           "PowderBlue",      "SkyBlue",       "RoyalBlue",       "MediumBlue",           "MidnightBlue",   "DarkTurquoise",  "CadetBlue",
      "DarkCyan",       "Teal",            "DeepSkyBlue",   "DodgerBlue",      "Blue",                 "Navy",           "DarkViolet",     "DarkOrchid",
      "Magenta",        "DarkMagenta",     "MediumVioletRed", "PaleVioletRed", "BlueViolet",           "MediumOrchid",   "MediumPurple",   "Purple",
      "DeepPink",       "LightPink",       "Violet",        "Orchid",          "Plum",                 "Thistle",         "HotPink",       "Pink",
      "LightSteelBlue", "MediumSlateBlue", "LightSlateGray","White",           "Lightgrey",            "Gray",            "SteelBlue",     "SlateBlue",
      "SlateGray",      "WhiteSmoke",      "Silver",        "DimGray",         "MistyRose",            "DarkSlateBlue",   "DarkSlategray", "Gainsboro",
      "DarkGray",       "Black"]   

    l = colors.len ()
    for i = 1 to l do
        setColor (colors[i-1])
        print ("Color Test  ");
        if i mod 6 == 0 then
           println() 
        end
    end