Renamed from .c

wb/lib/wb/src/wb_c_objbodydef.cpp

+/* 
+ * Proview   $Id: wb_c_objbodydef.cpp,v 1.1 2006-05-24 14:58:47 claes Exp $
+ * Copyright (C) 2005 SSAB Oxelsund AB.
+ *
+ * This program is free software; you can redistribute it and/or 
+ * modify it under the terms of the GNU General Public License as 
+ * published by the Free Software Foundation, either version 2 of 
+ * the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful 
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of 
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License 
+ * along with the program, if not, write to the Free Software 
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ **/
+
+/* wb_c_classdef.c -- work bench methods of the ClassDef class. */
+
+#include <string.h>
+#include "wb_pwrs.h"
+#include "wb_pwrs_msg.h"
+#include "wb_name.h"
+#include "wb_ldh.h"
+
+static pwr_tStatus AnteCreate (
+  ldh_tSesContext   Session,
+  pwr_tObjid	    Father,
+  pwr_tClassId	    Class
+) {
+  pwr_tCid cid;
+  pwr_tStatus sts;
+
+  if ( cdh_ObjidIsNull( Father))
+    return PWRS__POSOBJBODYDEF;
+
+  // Check that the father is of class ClassDef
+  sts = ldh_GetObjectClass( Session, Father, &cid);
+  if ( EVEN(sts) || cid != pwr_eClass_ClassDef)
+    return PWRS__POSOBJBODYDEF;
+  return PWRS__SUCCESS;
+}
+
+
+static pwr_tStatus AnteMove (
+  ldh_tSesContext   Session,
+  pwr_tObjid	    Object,
+  pwr_tObjid	    Father,
+  pwr_tObjid	    OldFather
+) {
+
+  // Check that that the father is the same
+  if ( !(Father.oix == OldFather.oix && Father.vid == OldFather.vid))
+    return PWRS__MOVEBODY;
+  return PWRS__SUCCESS;
+}
+
+static pwr_tStatus PostCreate (
+  ldh_tSesContext   Session,
+  pwr_tObjid	    Object,
+  pwr_tObjid	    Father,
+  pwr_tClassId	    Class
+) {
+  pwr_tStatus sts;
+  pwr_tObjName name, uname;
+  int size;
+
+  // Set class name in StructName
+  sts = ldh_ObjidToName( Session, Father, cdh_mName_object, name, sizeof(name), &size);
+  if ( EVEN(sts)) return sts;
+
+  strcpy( uname, wb_name::unatName( name));
+
+  sts = ldh_SetObjectPar( Session, Object, "SysBody", "StructName", uname, 
+			  sizeof(pwr_tPgmName));
+  if ( EVEN(sts)) return sts;
+  return PWRS__SUCCESS;
+}
+
+pwr_dExport pwr_BindMethods($ObjBodyDef) = {
+  pwr_BindMethod(AnteCreate),
+  pwr_BindMethod(AnteMove),
+  pwr_BindMethod(PostCreate),
+  pwr_NullMethod
+};
+
+
+
+
+