tondrej

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;

tondrej

type	min (dec)	max (dec)	min (hex)	max (hex)	size	C type
Shortint	-128	127	80	7F	1	signed char
Byte	0	255	00	FF	1	unsigned char
Smallint	-32768	32767	8000	7FFF	2	signed short
Word	0	65535	0000	FFFF	2	unsigned short
Integer	-2147483648	2147483647	80000000	7FFFFFFF	4	signed long
Cardinal	0	4294967295	00000000	FFFFFFFF	4	unsigned long
Int64	-9223372036

tondrej

#!/bin/bash
# http://errietta.me/blog/luks-clonezilla/

cryptsetup luksOpen /dev/sda5 crypt
modprobe dm-mod
vgchange -ay

tar -jxvf sda1.img.tar.bz2
partclone.ext4 -r -s ./sda1.img -o /dev/sda1
rm sda1.img

tondrej

#!/bin/bash
# http://errietta.me/blog/luks-clonezilla/

cryptsetup luksOpen /dev/sda5 crypt
modprobe dm-mod
vgchange -ay

partclone.ext4 -c -s /dev/sda1 -o ./sda1.img
tar -jcvf sda1.img.tar.bz2 sda1.img && rm sda1.img

tondrej

type
  TRectangle = class(TNativeObject)
    class procedure InitializeInstance(AInstance: JsValueRef; Args: PJsValueRef; ArgCount: Word); override;
    class function InitializePrototype(AConstructor: JsValueRef): JsValueRef; override;
  end;

class procedure TRectangle.InitializeInstance(AInstance: JsValueRef; Args: PJsValueRef; ArgCount: Word);
var
  ArgsArray: PJsValueRefArray absolute Args;
  ShapeCtr: JsValueRef;

tondrej

procedure TNativeClassTestCase.TestInheritance;
// - Shape (x, y) => Object
//   - Circle (x, y, r) => Shape (x, y)
//   - Rectangle (x, y, w, h) => Shape (x, y)
//     - Square (x, y, w) => Rectangle (x, y, w, w)
  Runtime: TChakraCoreRuntime;
  Context: TChakraCoreContext;
  ShapeObj, CircleObj, RectangleObj, SquareObj: JsValueRef;
begin
  Runtime := nil;

tondrej

function Square(x, y, w) {
  Rectangle.call(this, x, y, w, w);
}

Square.prototype = Object.create(Rectangle.prototype);
Square.prototype.constructor = Square;

tondrej

function Circle(x, y, r) {
  Shape.call(this, x, y);
  this.r = r;
}

Circle.prototype = Object.create(Shape.prototype);
Circle.prototype.constructor = Circle;

tondrej

function Shape(x, y) {
  this.x = x;
  this.y = y;
}

Shape.prototype.move = function(x, y) {
  this.x += x;
  this.y += y;
};

tondrej

<?xml version="1.0" encoding="UTF-8"?>
<CONFIG Version="3" Count="4">
  <Tool1>
    <Title Value="Explore to Source Directory"/>
    <Filename Value="caja"/>
    <CmdLineParams Value="$Path($EdFile())"/>
    <HideWindow Value="False"/>
  </Tool1>
  <Tool2>
    <Title Value="Explore to Target Directory"/>