/*
 * Pointer transfer between s-functions
 *
 * File name: datatype_myclass.cpp
 * Author: Michal Kutil
 * Email: kutilm@fel.cvut.cz
 * Copyright (c) 2005
 *
 * $Id: datatype_myclass.cpp,v 1.1.1.1 2005/07/07 08:56:45 kutilm Exp $
 */

MyClass* var_myclass = new MyClass;  // new is necessary for ssSetDataTypeZero - Where is it cleaned?
double tmpdouble;

DTypeId data_type_id = ssRegisterDataType(S, "MyClass");
if(data_type_id == INVALID_DTYPE_ID) return;
if (!ssSetDataTypeSize(S, data_type_id, sizeof(tmpdouble))) return;
if (!ssSetDataTypeZero(S, data_type_id, var_myclass)) return;