History
Modern Pascal was invented in 2000 by Ozz Nixon while also codeveloping DXJavaScript with Alexander Baronovski. Ozz was inspired by the Borland Kylix project in 1999, where he met with Borland's Pascal Team and shared his programming language "Modern Pascal". Ozz ported his commercial socket suite DXSock to Kylix then started developing Modern Pascal so he run pascal scripts on Microsoft Windows, Linux, and OS X. [1]
In 2002, version 1.1 was released. It could run most Turbo Pascal (DOS) syntax. It was the last version using Variants internally as variable and code instances. It introduced support for built-in RTL units, allowing extending the language grammar to support CRT/Display and TCP/IP Socket calls.
In 2005, version 1.2 was released. It was available for 64-bit platforms, with native 64-bit binaries and internal support for 64-bit numbers and memory addresses.
In 2007, version 1.3 was released. It added cross-platform support for dynamic libraries, .so, .dylib, .DLL. It was the first version able to develop graphical user interface (GUI) applications for native Windows, and Linux Qt. By supporting external libraries, the language was no longer limited to a command line or web server script engine role.
In 2008, version 1.4 was released. It had a fork internally called DECisioning LANguage (DECLAN) for use in the credit and financial industry. It also introduced TDataset compatibility with the Borland Delphi compiler along with the ability to connect to databases via built-in ODBC support. This allows leveraging almost all SQL database engines for command line and Web use.
In 2009, version 1.5 was released. It was a redesign of the parser phase Lexicon. It is the first version to begin including syntax from other popular languages like +=, -=, *-, /= from C and JavaScript. It was available as a native Apache Module for Windows, Linux, and OS X.
In 2010, version 1.6 was released. It incorporates more built-in RTL units: ciphers, compressions, hashs. It focused on migrating applications to web and needed built-in support for common ciphers, hashes, and compression algorithms used by representational state transfer (RESTful) applications.
In 2011, version 1.7 was released. It was a redesign of the Apache Module. From this release forward, Modern Pascal was no longer built into the Apache Module. Modern Pascal Celerity was introduced, inspired by the design of Adobe ColdFusion nTier back end to web servers. This means in a future release FastCGI, ISAPI, and even old CGI and NSAPI interfaces could be deployed. Version 1.7 also introduced an old Pascal 3.0 feature named Chaining in a slightly more modern style.
In 2013, version 1.8 was released. It introduced support for Delphi-like classes, smart records, unions, and self instantiation. It was the first version where Modern Pascal began to become a Pascal dialect.
In 2014, version 1.9 was built but not released. It was used to build DevelopIP, a large scale public website.
In 2015, version 2.0 was begun. It is a fork of lape. While prior versions were fast and efficient, they were not fast enough for some larger customers. Benchmarks then showed v2.0 can process over 100 million instructions a second, roughly 8 times faster than version 1.9, and far faster than alternative Pascal script engines. July 2015, version 2.0 entered its final private Beta cycle. The team ported code snippets and old applications to 2.0 and published the code on GitHub.
In 2017, version 2.0 was released. It includes native dBase III+, IV, V, VII, Clipper, and FoxPro support. During the 24 months of development, 3F has ported to GitHub, Source to 17 BBSes (including QuickBBS, TPBoard, Hermes), BinkP (Fidonet) Protocol, multiple Tossers, Adventure Game Studio (1984), Custom Micro Solutions, Inc. Accounting and Point of Sale Software, Web RIA Applications. 3F also introduced transparent support for Extended ASCII, ANSI, and UTF8 graphics.
In 2018-2019, Included native access to Premier SQL Middleware server. Extended the video and communications unit to translate CodePage 437 8bit characters to UTF8 characters. Added support for ASPELL and deployed Linux, Mac and Windows binaries on github.
Overview
Modern Pascal Command Line Interface allows creating and running DOS-like programs, using Pascal and decades of free source code, for a wide range of business classes, and command utilities.
Modern Pascal Celerity allows creating programs similar to stand-alone middleware or a backend engine. Combined with the Apache Module, Celerity can be used to create a wide range of web script programs.
Modern Pascal CodeRunner allows creating standalone networking tools, including web servers, email servers, and chat servers. CodeRunner manages Transmission Control Protocol (TCP) communications for code, even Transport Layer Security (TLS, formerly Secure Sockets Layer (SSL)). For development, simply focus on what happens after a connection is established.
Code sample
Here is a code sample for the game Loot: [2]
programGame.Loot.Example;usesMath;constMaxProbability=1000;typeLootType=(Bloodstone,Copper,Emeraldite,Gold,Heronite,Platinum,Shadownite,Silver,Soranite,Umbrarite,Cobalt,Iron,Nothing);Looter=ClassProbabilites:Array[0..12]ofLongint;Choose:privatefunction:LootTypeofobject;AsString:privatefunction(l:LootType):Stringofobject;End;functionLooter.Choose:LootType;varLoop,randomValue:Word;BeginrandomValue:=Random(MaxProbability-1);Loop:=0;WhileProbabilites[Loopmod13]<randomValuedoInc(Loop);Result:=LootType(Loopmod13);End;functionLooter.AsString(l:LootType):String;BeginCaselofBloodstone:Result:='Bloodstone';Copper:Result:='Copper';Emeraldite:Result:='Emeraldite';Gold:Result:='Gold';Heronite:Result:='Heronite';Platinum:Result:='Platinum';Shadownite:Result:='Shadownite';Silver:Result:='Silver';Soranite:Result:='Soranite';Umbrarite:Result:='Umbrarite';Cobalt:Result:='Cobalt';Iron:Result:='Iron';ElseResult:='';End;End;procedureLooter.Free;BeginEnd;// Must be listed after all other implementation //procedureLooter.Init;BeginRandomize;withSelfdobegin// used to link methods to instance!Probabilites[0]:=10;Probabilites[1]:=77;Probabilites[2]:=105;Probabilites[3]:=125;Probabilites[4]:=142;Probabilites[5]:=159;Probabilites[6]:=172;Probabilites[7]:=200;Probabilites[8]:=201;Probabilites[9]:=202;Probabilites[10]:=216;Probabilites[11]:=282;Probabilites[12]:=MaxProbability;// to avoid RTTI/VMT overhead:TMethod(@asstring):=[@Looter.AsString,@self];TMethod(@choose):=[@Looter.Choose,@self];TMethod(@free):=[@Looter.Free,@self];End;End;varloot:looter;n:longint;beginloot.init;forn:=0to99doWriteln(Loot.AsString(Loot.choose));// for n:=0 to 99 do Writeln(Loot.choose); {this used built-in macro to convert Enum to String}loot.free;end.OUTPUT
Shows a random list of loot that could be found while navigating a maze/map game.
Replaced the original code sample with something that is easier to read/follow.
