( Chain-Q | 2006. 05. 24., sze – 13:05 )

nesztek ppc es m68k support, mert unatkoztam! :)

program g3;
uses faszom,forkoljunkgyerekek;
var gd,gm: integer;

{$ifdef cpupowerpc}
// to be optimized!!!11
function byteswap(x: longint); inline;
type barray = array[0..3] of byte;
var tmpb: byte;
begin
tmpb:=barray(x)[0];
barray(x)[0]:=barray(x)[3];
barray(x)[3]:=tmpb;
tmpb:=barray(x)[1];
barray(x)[1]:=barray(x)[2];
barray(x)[2]:=tmpb;
byteswap:=x;
end;
{$elseif cpum68k}
function byteswap(x: longint); assembler;
asm
move.l (sp)+,d0
ror.w #8,d0
swap d0
ror.w #8,d0
end;
{$elseif i386}
// no byteswap needed
function byteswap(x: longint); inline;
begin
byteswap:=x;
end.
{$endif}

begin
write('ForkPlayer G3 dev-CVS-060512-19:00-3.4.6 (C) 2006 ForkPlayer Team!');
{$ifdef cpui386}
// AMD sucks and must die!!!11
writeln('- compiled with intel optimizations!');
{$elseif cpupowerpc}
writeln('- compiled with powerpc optimizations!');
{$elseif cpum68k}
writeln('- compiled with m68k optimizations!');
{$else}
writeln('- compiled with optimizations!');
{$endif}

{$ifdef linux}
gd:=installuserdriver ('xbgi',nil);
{$elseif amiga}
gd:=installuserdriver ('agabgi',nil);
{$elseif morphos}
gd:=installuserdriver ('cybercrapxbgi',nil);
{$else}
gd:=installuserdriver ('svga256',nil);
{$endif}
gm:=0;
initgraph (gd,gm,'\bgi');

if GraphResult<>grok then
playVideo;
else
writeln('Sorry, unfortunately your architecture is not supported yet!');
CloseGraph;
end.