feat: update site title to Object Pascal and updated examples

Author: ikelaiah

hugo.toml

@@ -1,6 +1,6 @@
 baseURL = 'https://pascal-lang.org/'
 languageCode = 'en-us'
-title = 'Pascal - Readable, Reliable Programming'
+title = 'Object Pascal - Readable, Reliable Programming'
 
 # Disable theme to use custom templates
 # theme = 'ananke'
@@ -13,7 +13,7 @@ title = 'Pascal - Readable, Reliable Programming'
     codeFences = true
 
 [params]
-  description = 'Pascal programming language - readable, reliable, and educational'
+  description = 'Object Pascal programming language - readable, reliable, and educational'
   author = 'Object Pascal Community'
 
 [menu]

layouts/_default/baseof.html

@@ -22,7 +22,7 @@
 
     {{ partial "footer.html" . }}
 
-    <!-- Theme toggle script -->
+    <!-- Theme toggle and code selector scripts -->
     <script>
         // Theme toggle functionality
         const themeToggle = document.getElementById('theme-toggle');
@@ -40,6 +40,29 @@
                 // CSS variables automatically handle syntax highlighting theme switching!
             });
         }
+        
+        // Code example selector functionality
+        document.addEventListener('DOMContentLoaded', function() {
+            const codeTabs = document.querySelectorAll('.code-tab');
+            const codeExamples = document.querySelectorAll('.code-example');
+            
+            codeTabs.forEach(tab => {
+                tab.addEventListener('click', () => {
+                    const exampleId = tab.getAttribute('data-example');
+                    
+                    // Remove active class from all tabs and examples
+                    codeTabs.forEach(t => t.classList.remove('active'));
+                    codeExamples.forEach(e => e.classList.remove('active'));
+                    
+                    // Add active class to clicked tab and corresponding example
+                    tab.classList.add('active');
+                    const targetExample = document.getElementById('example-' + exampleId);
+                    if (targetExample) {
+                        targetExample.classList.add('active');
+                    }
+                });
+            });
+        });
     </script>
 </body>
 </html>

layouts/index.html

@@ -4,7 +4,7 @@
     <div class="container">
         <div class="hero-content">
             <div class="hero-text">
-                <h1>Pascal</h1>
+                <h1>Object Pascal</h1>
                 <p class="hero-subtitle">Build readable, fast and reliable software.</p>
                 <div class="hero-actions">
                     <a href="{{ "/learn/" | relURL }}" class="hero-cta primary">Get Started</a>
@@ -13,28 +13,272 @@ <h1>Pascal</h1>
                 <p class="version-info">Latest: Free Pascal 3.2.2 • Lazarus 4.2</p>
             </div>
             <div class="hero-code">
-                {{ $heroCode := `program webserver;
-{$mode objfpc}{$H+}
- 
+                <div class="code-selector">
+                    <button class="code-tab active" data-example="webserver">Web Server</button>
+                    <button class="code-tab" data-example="sorting">Data Processing</button>
+                    <button class="code-tab" data-example="json">JSON API</button>
+                    <button class="code-tab" data-example="filestream">File Processing</button>
+                    <button class="code-tab" data-example="sqlite">SQLite DB</button>
+                    <button class="code-tab" data-example="csv">CSV Parser</button>
+                    <button class="code-tab" data-example="concurrent">Concurrency</button>
+                </div>
+                
+                <div class="code-examples">
+                    <div class="code-example active" id="example-webserver">
+                        {{ $webserverCode := `program webserver;
+
+{$mode objfpc}{$H+}{$J-}
+
 uses
-  {$ifdef UNIX}
-  cthreads, cmem,
-  {$endif} 
-  fphttpapp, httpdefs, httproute;
- 
+  Classes, fphttpapp, httpdefs, httproute;
+
 procedure route1(aReq: TRequest; aResp: TResponse);
 begin
-  aResp.Content:='<html><body><h1>Hello Pascal!</h1></body></html>';
+  aResp.Content := '<h1>Hello Pascal!</h1>';
 end;
- 
+
 begin
   HTTPRouter.RegisterRoute('/', @route1);
   Application.Port := 1999;
   Application.Threaded := true;
   Application.Initialize;
+
+  WriteLn('Your site is ready at: http://localhost:1999');
+  WriteLn('Hit Ctrl + C to quit');
+
   Application.Run;
 end.` }}
-                {{ highlight $heroCode "objectpascal" "linenos=false" }}
+                        {{ highlight $webserverCode "objectpascal" "linenos=false" }}
+                    </div>
+                    
+                    <div class="code-example" id="example-sorting">
+                        {{ $sortingCode := `program datasort;
+
+{$mode objfpc}{$H+}{$J-}
+
+uses
+  SysUtils, Classes, Generics.Collections;
+ 
+type
+  TListInt = specialize TList<integer>;
+ 
+var
+  Numbers: TListInt;
+  Num: integer;
+ 
+begin
+  Numbers := TListInt.Create();
+  try
+    Numbers.AddRange([1, 45, 78, 99, 32, 47]);
+    Numbers.Sort;
+ 
+    for Num in Numbers do
+      WriteLn(Num);
+  finally
+    Numbers.Free;
+  end;
+end.` }}
+                        {{ highlight $sortingCode "objectpascal" "linenos=false" }}
+                    </div>
+                    
+                    <div class="code-example" id="example-json">
+                        {{ $jsonCode := `program jsonapi;
+
+{$mode objfpc}{$H+}{$J-}
+
+uses
+  fpjson, jsonparser;
+
+var
+  JSON: TJSONObject;
+begin
+  JSON := GetJSON('{"name":"Alice","age":30}') as TJSONObject;
+  try
+    WriteLn(JSON.Get('name', ''), ' is ', JSON.Get('age', 0), ' years old');
+  finally
+    JSON.Free;
+  end;
+end.` }}
+                        {{ highlight $jsonCode "objectpascal" "linenos=false" }}
+                    </div>
+                    
+                    <div class="code-example" id="example-filestream">
+                        {{ $filestreamCode := `program fileprocess;
+
+{$mode objfpc}{$H+}{$J-}
+ 
+ uses
+   Classes, SysUtils, streamex;
+ 
+ var
+   FileStream: TFileStream;
+   Reader: TStreamReader;
+   Line: string;
+   LineNum: integer;
+ 
+ begin
+   FileStream := TFileStream.Create('data.txt', fmOpenRead);
+   try
+     Reader := TStreamReader.Create(FileStream);
+     try
+       LineNum := 1;
+       while not Reader.EOF do
+       begin
+         Line := Reader.ReadLine;
+         WriteLn('Line ', LineNum, ': ', Line);
+         Inc(LineNum);
+       end;
+     finally
+       Reader.Free;
+     end;
+   finally
+     FileStream.Free;
+   end;
+ end.` }}
+                        {{ highlight $filestreamCode "objectpascal" "linenos=false" }}
+                    </div>
+                    
+                    <div class="code-example" id="example-sqlite">
+                        {{ $sqliteCode := `program sqlite;
+
+{$mode objfpc}{$H+}
+
+uses
+  SysUtils, sqldb, sqlite3conn;
+
+var
+  Conn: TSQLite3Connection;
+  Query: TSQLQuery;
+  Trans: TSQLTransaction;
+
+begin
+  Conn := TSQLite3Connection.Create(nil);
+  Trans := TSQLTransaction.Create(nil);
+  Query := TSQLQuery.Create(nil);
+  try
+    Conn.DatabaseName := 'users.db';
+    Conn.Transaction := Trans;
+    Trans.Database := Conn;
+    Query.Database := Conn;
+    Query.Transaction := Trans;
+    
+    Conn.Open;
+
+    // Simple query
+    Query.SQL.Text := 'SELECT name, age FROM users WHERE age > 25';
+    Query.Open;
+
+    while not Query.EOF do
+    begin
+      WriteLn(Query.FieldByName('name').AsString, ' is ',
+              Query.FieldByName('age').AsInteger, ' years old');
+      Query.Next;
+    end;
+  finally
+    Query.Free;
+    Trans.Free;
+    Conn.Free;
+  end;
+end.` }}
+                        {{ highlight $sqliteCode "objectpascal" "linenos=false" }}
+                    </div>
+                    
+                    <div class="code-example" id="example-csv">
+                        {{ $csvCode := `program csvparser;
+
+{$mode objfpc}{$H+}{$J-}
+
+uses
+  SysUtils, csvdocument;
+
+var
+  CSV: TCSVDocument;
+  Row, Col: Integer;
+
+begin
+  CSV := TCSVDocument.Create;
+  try
+    CSV.LoadFromFile('data.csv');
+
+    WriteLn('CSV has ', CSV.RowCount, ' rows and ', CSV.ColCount[0], ' columns');
+    WriteLn;
+
+    for Row := 0 to CSV.RowCount - 1 do
+    begin
+      Write('Row ', Row + 1, ': ');
+      for Col := 0 to CSV.ColCount[0] - 1 do
+      begin
+        Write(CSV.Cells[Col, Row]);
+        if Col < CSV.ColCount[0] - 1 then Write(' | ');
+      end;
+      WriteLn;
+    end;
+  finally
+    CSV.Free;
+  end;
+end.` }}
+                        {{ highlight $csvCode "objectpascal" "linenos=false" }}
+                    </div>
+                    
+                    <div class="code-example" id="example-concurrent">
+                        {{ $concurrentCode := `program concurrent;
+
+{$mode objfpc}{$H+}{$J-}
+
+uses
+  {$IFDEF UNIX}
+  cthreads, cmem
+  {$ENDIF}
+  SysUtils, Classes, SyncObjs;
+
+type
+  TWorkerThread = class(TThread)
+  private
+    FTaskID: Integer;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(TaskID: Integer);
+  end;
+
+constructor TWorkerThread.Create(TaskID: Integer);
+begin
+  FTaskID := TaskID;
+  inherited Create(False);
+end;
+
+procedure TWorkerThread.Execute;
+begin
+  WriteLn('Task ', FTaskID, ' starting...');
+  Sleep(1000 + Random(2000)); // Simulate work
+  WriteLn('Task ', FTaskID, ' completed!');
+end;
+
+var
+  Threads: array[1..4] of TWorkerThread;
+  i: Integer;
+
+begin
+  Randomize;
+
+  // Start concurrent tasks
+  for i := 1 to 4 do
+    Threads[i] := TWorkerThread.Create(i);
+
+  // Wait for completion
+  for i := 1 to 4 do
+  begin
+    Threads[i].WaitFor;
+    Threads[i].Free;
+  end;
+
+  WriteLn('All tasks completed!');
+end.
+
+` }}
+                        {{ highlight $concurrentCode "objectpascal" "linenos=false" }}
+                    </div>
+                </div>
             </div>
         </div>
     </div>