@live-codes/pascal-wasm 0.1.0

package/assets/rtl/rtlconsts.pas

@@ -0,0 +1,97 @@
+{
+    This file is part of the Pas2JS run time library.
+    Copyright (c) 2017 by Mattias Gaertner
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
+unit RTLConsts;
+{$ENDIF}
+
+interface
+
+Resourcestring
+  SArgumentMissing              = 'Missing argument in format "%s"';
+  SInvalidFormat                = 'Invalid format specifier : "%s"';
+  SInvalidArgIndex              = 'Invalid argument index in format: "%s"';
+  SListCapacityError            = 'List capacity (%s) exceeded.';
+  SListCountError               = 'List count (%s) out of bounds.';
+  SMapKeyError                  = 'Key not found : %s';
+  SListIndexError               = 'List index (%s) out of bounds';
+  SSortedListError              = 'Operation not allowed on sorted list';
+  SDuplicateString              = 'String list does not allow duplicates';
+  SDuplicateItem                = 'ThreadList does not allow duplicates';
+  SErrFindNeedsSortedList       = 'Cannot use find on unsorted list';
+
+  SInvalidName                  = 'Invalid component name: "%s"';
+  SInvalidBoolean               = '"%s" is not a valid boolean.';
+  SDuplicateName                = 'Duplicate component name: "%s"';
+
+  SErrInvalidDate               = 'Invalid date: "%s"';
+  SErrInvalidTimeFormat         = 'Invalid time format: "%s"';
+  SInvalidDateFormat            = 'Invalid date format: "%s"';
+
+  SCantReadPropertyS            = 'Cannot read property "%s"';
+  SCantWritePropertyS           = 'Cannot write property "%s"';
+  SErrPropertyNotFound          = 'Unknown property: "%s"';
+  SIndexedPropertyNeedsParams   = 'Indexed property "%s" needs parameters';
+  SErrInvalidTypecast           = 'Invalid class typecast';
+
+  SErrInvalidInteger            = 'Invalid integer value: "%s"';
+  SErrInvalidFloat              = 'Invalid floating-point value: "%s"';
+  SInvalidDateTime              = 'Invalid date-time value: %s';
+  SInvalidCurrency              = 'Invalid currency value: %s';
+  SErrInvalidDayOfWeek          = '%d is not a valid day of the week';
+  SErrInvalidTimeStamp          = 'Invalid date/timestamp : "%s"';
+  SErrInvalidDateWeek           = '%d %d %d is not a valid dateweek';
+  SErrInvalidDayOfYear          = 'Year %d does not have a day number %d';
+  SErrInvalidDateMonthWeek      = 'Year %d, month %d, Week %d and day %d is not a valid date.';
+  SErrInvalidDayOfWeekInMonth   = 'Year %d Month %d NDow %d DOW %d is not a valid date';
+  SInvalidJulianDate            = '%f Julian cannot be represented as a DateTime';
+  SErrInvalidHourMinuteSecMsec  = '%d:%d:%d.%d is not a valid time specification';
+
+  SInvalidGUID                  = '"%s" is not a valid GUID value';
+
+  SEmptyStreamIllegalReader       = 'Illegal Nil stream for TReader constructor';
+  SInvalidPropertyValue           = 'Invalid value for property';
+  SInvalidImage                   = 'Invalid stream format';
+  SUnknownProperty                = 'Unknown property: "%s"';
+  SUnknownPropertyType            = 'Unknown property type %s';
+  SAncestorNotFound               = 'Ancestor class for "%s" not found.';
+  SUnsupportedPropertyVariantType = 'Unsupported property variant type %d';
+  SPropertyException              = 'Error reading %s%s%s: %s';
+  SInvalidPropertyPath            = 'Invalid property path';
+  SReadOnlyProperty               = 'Property is read-only';
+  SClassNotFound                  = 'Class "%s" not found';
+
+  SEmptyStreamIllegalWriter       = 'Illegal Nil stream for TWriter constructor';
+  SErrInvalidPropertyType         = 'Invalid property type from streamed property: %d';
+  SParserExpected                 = 'Wrong token type: %s expected';
+  SParserInvalidFloat             = 'Invalid floating point number: %s';
+  SParserInvalidInteger           = 'Invalid integer number: %s';
+  SParserUnterminatedString       = 'Unterminated string';
+  SParserWrongTokenType           = 'Wrong token type: %s expected but %s found';
+  SParserWrongTokenSymbol         = 'Wrong token symbol: %s expected but %s found';
+  SParserLocInfo                  = ' (at %d,%d, stream offset %.8x)';
+  SParserUnterminatedBinValue     = 'Unterminated byte value';
+  SParserInvalidProperty          = 'Invalid property';
+  SRangeError                     = 'Range error';
+
+  SParamIsNegative                = 'Parameter "%s" cannot be negative.';
+
+  SErrNoStreaming                 = 'Failed to initialize component class "%s": No streaming method available.';
+  SResNotFound                    = 'Resource %s not found';
+  SErrResourceStreamNoWrite       = 'Cannot write to resource stream';
+  SErrResourceNotBase64           = 'Resource %s is not base64 encoded';
+  SErrUnknownResourceEncoding     = 'Unknown encoding for resource: "%s"';
+
+implementation
+
+end.
+

package/assets/rtl/simplelinkedlist.pas

@@ -0,0 +1,152 @@
+{
+    This file is part of the Pas2JS run time library.
+    Copyright (c) 2022 by Michael Van Canneyt
+    
+    Simple Linked List implementation.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{$IFNDEF FPC_DOTTEDUNITS}
+unit simplelinkedlist;
+{$ENDIF}
+
+{$mode objfpc}
+
+interface
+
+Type
+  TLinkedListItem = Class
+  Public
+    Next : TLinkedListItem;
+  end;
+  TLinkedListItemClass = Class of TLinkedListItem;
+
+  { TLinkedListVisitor }
+
+  TLinkedListVisitor = Class
+    Function Visit(Item : TLinkedListItem) : Boolean; virtual; abstract;
+  end;
+  { TLinkedList }
+
+  TLinkedList = Class
+  private
+    FItemClass: TLinkedListItemClass;
+    FRoot: TLinkedListItem;
+    function GetCount: Integer;
+  Public
+    Constructor Create(AnItemClass : TLinkedListItemClass); virtual;
+    Destructor Destroy; override;
+    Procedure Clear;
+    Function Add : TLinkedListItem;
+    Procedure ForEach(Visitor: TLinkedListVisitor);
+    Procedure RemoveItem(Item : TLinkedListItem; FreeItem : Boolean = False);
+    Property Root : TLinkedListItem Read FRoot;
+    Property ItemClass : TLinkedListItemClass Read FItemClass;
+    Property Count : Integer Read GetCount;
+  end;
+
+implementation
+
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils;
+{$ELSE}
+uses sysutils;
+{$ENDIF}
+
+{ TLinkedList }
+
+function TLinkedList.GetCount: Integer;
+
+Var
+  I : TLinkedListItem;
+
+begin
+  I:=FRoot;
+  Result:=0;
+  While I<>Nil do
+    begin
+    I:=I.Next;
+    Inc(Result);
+    end;
+end;
+
+constructor TLinkedList.Create(AnItemClass: TLinkedListItemClass);
+begin
+  FItemClass:=AnItemClass;
+end;
+
+destructor TLinkedList.Destroy;
+begin
+  Clear;
+  inherited Destroy;
+end;
+
+procedure TLinkedList.Clear;
+
+Var
+   I : TLinkedListItem;
+
+begin
+  // Can't use visitor, because it'd kill the next pointer...
+  I:=FRoot;
+  While I<>Nil do
+    begin
+    FRoot:=I;
+    I:=I.Next;
+    FRoot.Next:=Nil;
+    FreeAndNil(FRoot);
+    end;
+end;
+
+function TLinkedList.Add: TLinkedListItem;
+begin
+  Result:=FItemClass.Create;
+  Result.Next:=FRoot;
+  FRoot:=Result;
+end;
+
+procedure TLinkedList.ForEach(Visitor : TLinkedListVisitor);
+
+Var
+  I : TLinkedListItem;
+
+begin
+  I:=FRoot;
+  While (I<>Nil) and Visitor.Visit(I) do
+    I:=I.Next;
+end;
+
+procedure TLinkedList.RemoveItem(Item: TLinkedListItem; FreeItem : Boolean = False);
+
+Var
+  I : TLinkedListItem;
+
+begin
+  If (Item<>Nil) and (FRoot<>Nil) then
+    begin
+    If (Item=FRoot) then
+      FRoot:=Item.Next
+    else
+      begin
+      I:=FRoot;
+      While (I.Next<>Nil) and (I.Next<>Item) do
+        I:=I.Next;
+      If (I.Next=Item) then
+        I.Next:=Item.Next;
+      end;
+    If FreeItem Then
+      Item.Free;
+    end;
+end;
+
+
+
+end.
+