Akira13641’s gists

Akira13641 / FreePascalConstGenerics.pas

Created September 11, 2020 17:59

A simple example of the kind of stuff you can do with constant generic parameters in the trunk version of Free Pascal

	program FreePascalConstGenerics;

	// Using the Delphi-compatible syntax mode lets us leave out the
	// `generic` and `specialize` keywords when defining our generic types.

	{$mode Delphi}{$H+}{$J-}

	type ICalc<const L: PtrInt; const R: PtrInt> = record
	const
	Add = L + R;

Akira13641 / LolNoadJayEssInput.pas

Last active October 22, 2019 03:50

Paskal to Teh Skropt example (the JabbaSkript file is the standalone single-file-output version, hence the size)

	program LolNoadJayEss;

	{$mode Delphi}

	uses SysUtils, JS, NodeJS, NodeJSApp, NodeJSFS;

	type
	TMyApplication = class(TNodeJSApplication)
	procedure DoRun; override;
	end;

Akira13641 / ObjectivelyNicer.pas

Last active October 13, 2019 18:59

The Pascal version of Borland Swat included as a Delphi 7 example program

	unit Main;

	interface

	uses
	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
	ExtCtrls, Menus, StdCtrls;

	const
	crMaletUp : integer = 5;

Akira13641 / BestTheyCouldDo.h

Last active November 27, 2022 10:14

The C++ version of "Borland Swat", a simple 2D whack-a-mole game (with bugs, not moles, hence "Swat") included as a C++ Builder 6 example program

	//----------------------------------------------------------------------------
	//Borland C++Builder
	//Copyright (c) 1987, 1998-2002 Borland International Inc. All Rights Reserved.
	//----------------------------------------------------------------------------
	//---------------------------------------------------------------------------
	#include <vcl.h>
	#pragma hdrstop

	#include <stdlib.h>

Akira13641 / ExampleDelphi.pas

Created July 10, 2019 01:42

Delphi / FPC parameter passing comparison

	program ExampleDelphi;

	{$VARPROPSETTER ON}

	type
	TRecord = record
	private
	FBool: Boolean;
	function GetBoolOut(out Index: NativeUInt): Boolean;
	function GetBoolVar(var Index: NativeUInt): Boolean;

Akira13641 / NumberToWords.pas

Last active June 29, 2019 17:27

Upload of the trusty old NumberToWords unit

	unit NumberToWords;

	{$mode ObjFPC}{$H+}{$J-}
	{$ImplicitExceptions Off}

	{-----------------------------------------------------------------------------
	Unit Name: NumberToWords
	Author: Dave Keighan
	Date: 29-Jan-2006
	Purpose: Provide Number To Words functionality.

Akira13641 / ManagedObject.pas

Last active November 4, 2024 03:16

Simple smart pointers in modern Object Pascal (as Free Pascal implements it)

	// This unit uses record types in conjunction with record "management operators" to implement
	// (pretty basic) smart pointers specifically for class types.

	unit ManagedObject;

	// ↓↓↓ this just enables Free Pascal's Delphi-syntax compatibility mode
	{$mode Delphi}{$H+}
	{$Assertions On}

	interface

Akira13641 / comparemonth.ts

Last active April 2, 2019 18:29

This seems more reasonable

	enum Month { Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec }

	enum Order { LT, EQ, GT }

	function compareMonth(m1: Month, m2: Month): Order {
	switch ([m1, m2]) {
	case [Month.Jan, Month.Jan]: {
	return Order.EQ;
	}
	case [Month.Jan, undefined]: {

Akira13641 / Expected.pas

Last active July 1, 2019 23:31

Made this for fun based on a C++ proposal I read about a while ago.

	unit Expected;

	// The "mode Delphi" directive below turns on Free Pascal's Delphi-syntax compatibility mode,
	// needed here to declare and write the generics in the style I have.

	{$mode Delphi}{$H+}{$J-}
	{$ImplicitExceptions Off}
	{$Assertions On}

	interface

Akira13641 / FrameBuffer.pas

Last active February 16, 2019 16:09

Framebuffer.zig conversion

	unit FrameBuffer;

	{$mode ObjFPC}{$H+}{$J-}
	{$asmmode GAS}
	{$modeswitch AdvancedRecords}
	{$modeswitch AutoDeref}
	{$coperators On}

	interface