1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

type
   MSVC_AVS_Value = Int64;

   AVS_Value = record
     vtype: WideChar;
     array_size: Smallint;
     case Char of
       'c': (vclip: Pointer);
       'b': (vboolean: LongBool);
       'i': (vinteger: Integer);
       'f': (vfloating_pt: Single);
       's': (vstring: PChar);
       'a': (varray: PAVS_Value_array);
   end;


   ext_avs_invoke: function(env: PAVS_ScriptEnvironment; name: PAnsiChar; args: MSVC_AVS_Value; arg_names: PPAnsiChar): MSVC_AVS_Value; stdcall;
   ext_avs_release_value: procedure(v: MSVC_AVS_Value); stdcall;

   function avs_invoke(env: PAVS_ScriptEnvironment; name: PAnsiChar; args: AVS_Value; arg_names: PPAnsiChar = nil): AVS_Value;
   begin
     Result := AVS_Value(ext_avs_invoke(env, name, MSVC_AVS_Value(args), arg_names))
   end;

   procedure avs_release_value(v: AVS_Value);
   begin
     ext_avs_release_value(MSVC_AVS_Value(v));
   end;                    

1:
2:

  ext_avs_release_value(MSVC_AVS_Value(@v))  
  ext_avs_release_value(MSVC_AVS_Value(Pointer(v)^))                    

1:

   Result := AVS_Value(Pointer(ext_avs_invoke(env, name, MSVC_AVS_Value(@args), arg_names))^)                    

1:
2:
3:
4:
5:
6:
7:

function avs_invoke(env: PAVS_ScriptEnvironment; name: PAnsiChar; args: AVS_Value; arg_names: PPAnsiChar = nil): AVS_Value;
var
  MsvcArgs: MSVC_AVS_Value absolute args;
  AvsResult: Int64 absolute Result;
begin
  AvsResult := ext_avs_invoke(env, name, MsvcArgs, arg_names);
end;                    

1:
2:

  ext_avs_release_value: procedure(v: AVS_Value); stdcall;
  ext_avs_invoke: function(env: PAVS_ScriptEnvironment; name: PAnsiChar; args: AVS_Value; arg_names: PPAnsiChar): AVS_Value; stdcall;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

// AVS_Value is layed out identicly to AVSValue
typedef struct AVS_Value AVS_Value;
struct AVS_Value {
  short type;  // 'a'rray, 'c'lip, 'b'ool, 'i'nt, 'f'loat, 's'tring, 'v'oid, or 'l'ong
               // for some function e'rror
  short array_size;
  union {
    void * clip; // do not use directly, use avs_take_clip
    char boolean;
    int integer;
    float floating_pt;
    const char * string;
    const AVS_Value * array;
  } d;
};

// AVS_Value should be initilized with avs_void.
// Should also set to avs_void after the value is released
// with avs_copy_value.  Consider it the equalvent of setting
// a pointer to NULL
static const AVS_Value avs_void = {'v'};