Skip to content

Wannabe Pascal inspired interpreted / scripting language written in C using lex/flex and yacc/bison, or perhaps homemade lexer & parser, or C++ with AntLR4 grammar (!)

License

Notifications You must be signed in to change notification settings

CHiPs44/pascalscript

Repository files navigation

PascalScript - an interpreted Pascal dialect

Introduction

PascalScript should be a Turbo Pascal inspired interpreted language written in C (C17), with an handmade lexer and parser.

First try (see branch lex-yacc) was made trying to use lex and yacc (in fact flex and bison).

As of july 2024, another test/validation was made using AntLR4, which lacks C output, but can help to develop lexer, parser & AST structures.

The traditional hello.pas will be like:

Program HelloWorld;
Begin
  WriteLn('Hello, world!');
End.

And factorial.pas (see examples/60-Factorial.pas) should be like:

Program Factorial;

Function RecursiveFactorial(N: Integer): Integer;
Begin
  If N <= 1 Then
    Begin
      RecursiveFactorial := 1;
      (*WriteLn('RecursiveFactorial(', N, ') = ', RecursiveFactorial);*)
    End
  Else
    Begin
      RecursiveFactorial := N * RecursiveFactorial(N -1);
      (*WriteLn('RecursiveFactorial(', N, ') = ', RecursiveFactorial);*)
    End;
End;

Function IterativeFactorial(N: Integer): Integer;
Var 
  I, F: Integer;
Begin
  If N <= 1 Then
    Begin
        (*WriteLn('IterativeFactorial: I=', I, ', F=', F);*)
        F := 1;
    End
  Else
    Begin
      F := 1;
      For I := 2 To N Do
      Begin
        (*WriteLn('IterativeFactorial: I=', I, ', F=', F);*)
        F := F * I;
      End;
    End;
  IterativeFactorial := F;
End;

Var 
  N: Integer;
Begin
  Repeat
    Write('N=');
    ReadLn(N);
  Until N > 0;
  WriteLn('Recursive: ', N, '! = ', RecursiveFactorial(N));
  WriteLn('Iterative: ', N, '! = ', IterativeFactorial(N));
End.

At first, a simple CLI should be implemented (under GNU/Linux):

# source as standard input
pascalscript < hello.pas
# with UUOC (useless use of cat ;-))
cat hello.pas | pascalscript
# source file as argument
pascalscript hello.pas

All three will output:

Hello, world!

In the future, it should be embeddable in other projects, like Lua is for example.

Examples must be compilable with Free Pascal fpc, in default FPC mode (fpc -MFPC source.pas), so we have sort of an authoritative reference implementation.

Links to seemingly useful documentations

Pascal

Other sources about compilers and interpreters

lex / flex and yacc / bison stuff

French

English

Features

There will be many steps before we get a "final" product.

Step 1: integer only calculator, without any flow control

This will make the base for the lexer, the tokenizer and the interpreter itself.

Features are:

  • Integer constants
  • Integer variables
  • Arithmetical expressions
  • A single integer parameter procedure: WriteLn
  • Comments

Integer type will be the default of C int type.

Language elements are limited to:

  • Keywords: program const var integer begin end WriteLn
  • Symbols: = := : ; , { } (* *) //
  • Identifiers: [a-z|A-Z|_][a-z|A-Z|0-9|_]*
  • Integer constants: [0-9]* (positive)
  • Operators: + - * / div mod
program step1a;
const   foo = 1;
var     a: integer;
        b: integer;
        c: integer;
begin
        a := foo;
        b := 2;
        c := a + b;
        { line below should print 3 }
        WriteLn(c);
        { line below will throw an error "Undeclared identifier 'd' at line L, column C" and stop execution }
        d := a * b div c;
        { line below will throw an error "Constant 'foo' cannot be assigned at line L, column C" and stop execution }
        foo := 12;
end. { . is mandatory }

Remarks:

  • Comments will be paired, beginning with { means we go until }, no mix with (* and *), so they can be imbricated on one level
  • // one line comments came essentially for free when digging an already made set of rules for the lexical analyzer

Improvements to this first sight:

  • var a, b, c: integer; should be implemented
  • Write variant to output without a line break
  • const could be used for string literals instead of integers only
  • Write and WriteLn should accept a string constant as parameter
program step1b;
const   foo = 1;
        msg = 'Result is: ';
var     a, b, c: integer;
begin
        a := foo;
        b := 2;
        c := a + b;
        Write(msg);
        WriteLn(c);
end.

Step 2: Conditional

New keywords: if then else

New operators: < > <= >= <> and or not (= with a different meaning is already there for constants)

program step2;
const   MSG1 = 'C is greater than 3.';
        MSG2 = 'C is less than 3.';
var     a, b, c: integer;
begin
        a := 1;
        b := 2;
        c := a + b;
        if not(c <= 3) then { means c > 3 but we should illustrate not unary operator ;-) }
        begin
          WriteLn(MSG1);
          WriteLn(c);
        end { no ; }
        else
          WriteLn(MSG2);
end.

NB: no booleans mean false is zero, true is not zero.

Loops

New keywords: while do repeat until for to downto

program step3;
var     i: integer;
begin
        i := 1;
        while i < 5 do
        begin
          WriteLn(i);
          i := i + 1;
        end;
        i := 1;
        repeat
          WriteLn(i);
          i := i + 1;
        until i > 5;
        for i := 9 downto 0 do
        begin
          WriteLn(i);
        end;
end.

NB:

  • Implement break and continue?
  • for loops will be improved later with in keyword for arrays and sets

Procedures

This means we have input ("by value") and output ("by reference") parameters, local variables, and recursive calls.

program step4a;

var a: integer;

procedure sum(a: integer, b: integer, var c: integer);
var     sum: integer;
begin
        sum := a + b;
        c := sum;
end;

begin
  sum(12, 34, a);
  WriteLn(a);
end.

Functions

program step4b;

var a: integer;

(* The "de-facto" standard of recursive functions *)
function fact(n: integer): integer;
var f: integer;
begin
  if n <= 1 then
    f := 1
  else
    f := n * fact(n - 1);
  fact := f;
end;

begin
  a := fact(5);
  WriteLn(a);
end.

Base types

  • integer is 32 bits signed type
  • real is double, not float

Other features

Types

  • Unsigned and signed integers:
    • integer is 32 bits signed type, period.
    • 8 bits: Byte / Shortint
    • 16 bits: Word / Smallint
    • 32 bits: Longword / Longint
    • 64 bits: QWord / Int64
  • Ranges: Min .. Max
  • Enums: (One, Two, Three, Four)
  • Arrays: Array[1..10] Of Integer
  • Char (see below)
  • Strings (array of chars)
  • Sets: `` (256 values max?)
  • Records
  • Pointers (^, @, ...)

Case statement

This will wait until we have implemented range types.

        ...
        case x of
                1: a := 1;
                2: a := 2;
                3..5: a := 3;
        else
                a := 34;
        end;
        ...

Characters and strings

  • ASCII support only?
    • 128 to 255 is undefined behaviour
    • 1 byte per char
    • fixed length make string operations easy
    • maximum length: 255 (length is a byte, too)
  • ANSI / Codepage support?
    • 437 for US and 850 for Western EU first
    • 1 byte per char
    • fixed length make string operations easy
    • maximum length: 255 (length is a byte, too)
  • UTF-8 support?
    • all Unicode chars can be encoded
    • 1 byte per char for ASCII only text
    • variable length make string operations hard to implement
    • maximum length: 255 (length is a byte, too)
  • UTF-16 support?
    • many Unicode chars can be encoded
    • 2 bytes per char for ASCII only text
    • fixed length make string operations easy
    • maximum length: 65535 (length is a 16 bits word, too)
  • UTF-32 support?
    • all Unicode chars can be encoded
    • 4 bytes per char for ASCII only text
    • fixed length make string operations easy
    • maximum length: either4294967295 (length is a 32 bits word, too)

Standard libraries

I/O

  • Compatible:
    • Write / WriteLn for all base types, with variable number of arguments
  • File I/O with more POSIX like calls instead of standard Pascal?
    • fopen / fclose / fread / fwrite / lseek / ...
  • Format function with {} placeholders?
    • Format('A={}, B={}', a, b) with a=1 and b=2 should return A=1, B=2

Mathematical functions and constant(s)

  • sqrt pow or ^?
  • sin cos tan asin acos atan pi
  • ln log exp
  • ...

Units

This would make PascalScript much more usable and extensible.

Objects

Turbo Pascal 5.5 syntax should be enough.

Extensions

  • Variable length arrays?

Stack based VM or simpler runtime status?

Should we implement a stack based VM to execute code, and make the interpreter interact with this VM?

Or should we have a simpler "runtime status" like:

  • program: source code of the program to execute
  • symbol_table: hashtable with lower case key for the name, an integer as value, and necessary data
    • kind: constant, variable, procedure, function, ...
    • global / local scope
    • other value types (real, boolean, string, function, procedure, ...) should come at their own time
    • ...

Other notes

Tests in 32 bits mode and 3M of RAM

Tests (folder test) are now intended to compile as 32 bits executable so we're not too far of our RP2040 target.

To install a 32 bits capable GCC on our modern 64 bits machines, you need to install multilib version of it:

sudo apt install gcc-multilib g++-multilib

To compile a 32 bits executable, use -m32:

cd test/
gcc -m32 -std=c17 -Wall -I../include test_value.c

Programs "core dump" with 256K of RAM, I had to go up to 3M to make them running.

Extract of test/test_value.c:

#include <sys/resource.h>

int main(void)
{
    struct rlimit rl = {256 * 1024 * 12, 256 * 1024 * 12};
    setrlimit(RLIMIT_AS, &rl);

License

This project is licensed under GNU General Public License 3.0 or later, see file LICENSE.

Each file should contains this header:

/*
    This file is part of the PascalScript Pascal interpreter.
    SPDX-FileCopyrightText: 2024 Christophe "CHiPs" Petit <[email protected]>
    SPDX-License-Identifier: GPL-3.0-or-later
*/

About

Wannabe Pascal inspired interpreted / scripting language written in C using lex/flex and yacc/bison, or perhaps homemade lexer & parser, or C++ with AntLR4 grammar (!)

Topics

Resources

License

Stars

Watchers

Forks

Languages