PureBasic Forums - English

Code: Select all

Structure bla
  a.l
  b.l
EndStructure

Procedure.bla juhu()
  Protected *p.bla
  *p = AllocateMemory(SizeOf(bla))
  *p\a = 1
  *p\b = 2
  ProcedureReturn *p
EndProcedure

Debug juhu()\a   ;Output: 1

Code: Select all

Interface Vector
  Add(*v)
  Mul(*v)
EndInterface

Procedure.Vector Vector_Add(*x, *v)
  ;some code
  ProcedureReturn *x
EndProcedure

Procedure.Vector Vector_Mul(*x, *v)
  ;some code
  ProcedureReturn *x
EndProcedure

*v1.Vector
*v2.Vector
*v3.Vector

*v1\Add(*v2)\Mul(*v3)

;instead of

*v1\Add(*v2)
*v1\Mul(*v3)

Code: Select all

Structure bla
  a.l
  b.l
EndStructure

Procedure.bla juhu()
  Protected p.bla 
  p\a = 1
  p\b = 2
  ProcedureReturn p
EndProcedure

Code: Select all

Test.bla = juhu()

Code: Select all

Procedure.bla juhu(x.bla)
  Protected p.bla
  p\a = x\a
  p\b = x\b
  ProcedureReturn p
EndProcedure

Code: Select all

// The Structure

struct AVS_Value {
  short type;  // 'a'rray, 'c'lip, 'b'ool, 'i'nt, 'f'loat, 's'tring, 'v'oid, or 'l'ong
  short array_size;
  union {
    void * clip
    char boolean;
    int integer;
    float floating_pt;
    const char * string;
    const AVS_Value * array;
  } d;
};




// The function accepting a structure variable as argument and also returning a structure (NOT a pointer to) as well.


AVS_Value avs_invoke(AVS_ScriptEnvironment * p, const char * name, AVS_Value args, const char * * arg_names)
{
	AVS_Value v = {0,0};
	p->error = 0;
	try {
		AVSValue v0 = p->env->Invoke(name, *(AVSValue *)&args, arg_names);
		new ((AVSValue *)&v) AVSValue(v0);
	} catch (IScriptEnvironment::NotFound) {
    p->error = "Function Not Found";
	} catch (AvisynthError err) {
		p->error = err.msg;
	}
  if (p->error)
    v = avs_new_value_error(p->error);
	return v;
}