home *** CD-ROM | disk | FTP | other *** search
- //
- // COMPONENT_NAME: somx
- //
- // ORIGINS: 27
- //
- //
- // 10H9767, 10H9769 (C) COPYRIGHT International Business Machines Corp. 1992,1994
- // All Rights Reserved
- // Licensed Materials - Property of IBM
- // US Government Users Restricted Rights - Use, duplication or
- // disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
- //
- /* %Z% %I% %W% %G% %U% [%H% %T%] */
- /*
- * This file was generated by the SOM Compiler and Emitter Framework.
- * Generated using:
- * SOM Emitter emitxtm: 2.37
- */
-
-
-
- #ifndef SOM_Module_dbdog_Source
- #define SOM_Module_dbdog_Source
- #endif
- #define dBigDog_Class_Source
-
- #include <stdio.h>
- #include <string.h>
- #include <windows.h>
- #include "dbdog.xih"
- #if (_WIN32)
- #include "nlsutil.h"
- #include "animal.h"
- #endif
-
- /* WIN16PORT */
- #ifdef _WIN16
- #include <stdlib.h>
- #define sprintf wsprintf
- #endif
-
-
- SOM_Scope void SOMLINK somDefaultInit(dBigDog *somSelf, somInitCtrl* ctrl)
- {
- dBigDogData *somThis; /* set in BeginInitializer */
- somInitCtrl globalCtrl;
- somBooleanVector myMask;
- dBigDogMethodDebug("dBigDog","somDefaultInit");
- dBigDog_BeginInitializer_somDefaultInit;
-
- dBigDog_Init_dDog_somDefaultInit(somSelf,ctrl);
- somSelf->_set_noise(somGetGlobalEnvironment(), "WOOF, WOOF");
- }
-
-
- SOM_Scope string SOMLINK display(dBigDog *somSelf, Environment *ev)
- {
- string mybuff, bp;
-
- dBigDogData *somThis = dBigDogGetData(somSelf);
- dBigDogMethodDebug("dBigDog","display");
-
- mybuff = parent_display(somSelf, ev);
- bp = mybuff;
- bp += strlen(mybuff);
- /* wsprintf does not support floats */
- #ifdef _WIN16
- {
- char buf[20];
- sprintf(bp, "I weigh %s pounds.\n", gcvt(somThis->BDweight,10,buf));
- }
- #else
- sprintf(bp, NlsMsgGet(IWeighFloatId), somThis->BDweight);
- #endif
- return mybuff;
- }
-
-