Source file: /~heha/messtech/[Download]pasmex.zip/EXAMPLE.PAS

library example; {$N+,E-} {MATLAB setzt ohnehin Koprozessor voraus}
{$G+,A+,S-}
uses pasmex,winprocs,wintypes;
procedure mexFunction(nlhs:Integer; var plhs:TMatArr;
  nrhs:Integer; const prhs:TMatArr); export;
 var
  vsrec: record
   resc: Integer;
   resn: PChar;
   argc: Integer;
   argn: PChar;
  end;
 begin
  asm int 3 end;	{Debug-Halt}
  MessageBox(hWndMATLABCmd,'Hallo Welt','Hi',MB_OK);
  IncHPL(Pointer(vsrec.resn),$10000);	{Test ASM}
  vsrec.resc:=nlhs;
  vsrec.resn:=mxGetName(plhs[0]);
  vsrec.argc:=nrhs;
  vsrec.argn:=mxGetName(prhs[0]);
  mexVPrintf('Hallo Welt!'#10+
    'Ergebnisse: %d, Name erstes: %s;'#10+
    'Parameter: %d, Name erster: %s',vsrec,sizeof(vsrec));
 end;

exports
 set_entry_point index 2,
 mexFunction 	 index 3,
 mexAtExitFcn	 index 4;

begin
end.

Detected encoding: ASCII (7 bit)2