www.FiveTechSoft.com
by hmpaquito » Fri Sep 20, 2013 6:56 pm
by Antonio Linares » Fri Sep 20, 2013 8:00 pm
by Antonio Linares » Fri Sep 20, 2013 8:33 pm
by Antonio Linares » Fri Sep 20, 2013 8:40 pm
by Antonio Linares » Fri Sep 20, 2013 10:48 pm
function Main()
? "Hello world"
return nil<head>
</head>
<body>
<style>
.scrollable
{
overflow:auto;
}
</style>
<div class="scrollable" id="scrollable" height="480">
<canvas id="canvas" width="640" height="480" style="background-color:0"/>
</div>
<script type="text/javascript">
var context = document.getElementById( "canvas" ).getContext( "2d" );
var pcode = [ 36,3,0,176,1,0,106,12,72,101,108,108,111,32,
119,111,114,108,100,0,20,1,36,5,0,100,110,7 ];
var symbols = [ "MAIN", "QOUT" ];
// pcode tokens
var HB_P_ENDPROC = 7;
var HB_P_DOSHORT = 20;
var HB_P_LINE = 36;
var HB_P_PUSHNIL = 100;
var HB_P_PUSHSTRSHORT = 106;
var HB_P_RETVALUE = 110;
var HB_P_PUSHFUNCSYM = 176;
function hb_vmExecute( pcode, symbols )
{
var nPos = 0;
while( pcode[ nPos ] != HB_P_ENDPROC )
{
switch( pcode[ nPos ] )
{
case HB_P_LINE:
qout( "line: " + pcode[ ++nPos ] );
nPos += 2;
break;
case HB_P_DOSHORT:
qout( "Do short: " + pcode[ ++nPos ] + " parameter" );
nPos += 1;
break;
case HB_P_PUSHNIL:
qout( "Push nil" );
nPos++;
break;
case HB_P_PUSHSTRSHORT:
qout( "Push String short: " + pcode[ ++nPos ] + " bytes" );
for( n = 1; n < pcode[ nPos ]; n++ )
qout( String.fromCharCode( pcode[ nPos + n ] ) );
nPos += n;
break;
case HB_P_RETVALUE:
qout( "return the pushed value" );
nPos++;
break;
case HB_P_PUSHFUNCSYM:
qout( "Push Function symbol: " + symbols[ pcode[ ++nPos ] ] );
nPos += 2;
break;
default:
qout( pcode[ nPos ] );
nPos++;
break;
}
}
qout( "EndProc" );
}
function qout( cText )
{
if( context.row == null )
{
context.row = 30;
context.col = 10;
}
else
context.row += 20;
context.fillStyle = "green";
context.font = "bold 16px Arial";
context.fillText( cText, context.col, context.row );
}
hb_vmExecute( pcode, symbols );
</script>
</body>
by Antonio Linares » Fri Sep 20, 2013 10:50 pm
by carlos vargas » Sat Sep 21, 2013 2:50 am
by hmpaquito » Sat Sep 21, 2013 9:23 am
by Enrico Maria Giordano » Sat Sep 21, 2013 9:36 am
by George » Sat Sep 21, 2013 12:19 pm
by Antonio Linares » Sat Sep 21, 2013 7:37 pm
by cnavarro » Wed Sep 25, 2013 1:00 pm
Antonio Linares wrote:Ahora solo falta alguien/es que tengan tiempo, ganas y paciencia de seguir
Recordar que mi primer ejemplito de construcción de un compilador compatible con Clipper hacia practicamente lo mismo que este y fijaros ahora el compilador que usamos
La semilla es tan importante como la tierra, el agua, el sol y el cariño...
by Antonio Linares » Wed Sep 25, 2013 7:14 pm
by cnavarro » Wed Sep 25, 2013 7:29 pm
Return to Off Topic / Otros temas
Users browsing this forum: No registered users and 8 guests