home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
qsetup.zip
/
DM2TEST.IH
< prev
next >
Wrap
Text File
|
1994-04-03
|
17KB
|
577 lines
/*
* This file was generated by the SOM Compiler.
* FileName: DM2Test.ih.
* Generated using:
* SOM Precompiler spc: 1.22
* SOM Emitter emitih: 1.59
*/
/*
*
*
*
*
* DM2Test.CSC - DeskMan/2 setup test object.
*
* ┌─────────────────────────────────────────────────────────────────────┐
* │ DM2Test object - setup string manipulation methods. │
* │ Part of DeskMan/2. │
* │ │
* │ (C) Copyright 1993-1994 Development Technologies, Inc. │
* │ Portions Copyright 1993 Gregory Czaja │
* │ All rights reserved │
* │ DeskMan, DeskMan/2, DM2Setup, VUEMan, VUEMan/2 and DM2Image │
* │ are trademarks of Development Technologies, Inc. (DevTech), │
* │ a Pennsylvania Corporation │
* │ │
* │ version 1: initial release April 1994 │
* └─────────────────────────────────────────────────────────────────────┘
*/
#ifndef DM2Test_ih
#define DM2Test_ih
/*
* Passthru lines: File: "C.ih", "before"
*/
/* implementation defs for DM2Test */
#define INCL_WIN
#define INCL_DOS
#include <os2.h>
#define INCL_WPCLASS
#include <pmwp.h>
#include <DM2Setup.h> /* DM2Setup methods */
/* internal definitions */
#define DM2TEST_CLASSNAME "DM2Test"
#include "DM2Test.h"
/*
* Set the scope of methods functions
*/
#ifndef SOM_Scope
#ifdef __cplusplus
#define SOM_Scope extern "C"
#else
#define SOM_Scope extern
#endif
#endif
#ifndef SOM_CurrentClass
#define SOM_CurrentClass DM2TestCClassData.parentMtab
#endif
#define DM2Test_MaxNoMethods 1
/*
* Instance data
*/
typedef struct {
CHAR myData;
} DM2TestData;
/*
* Instance variable access macros
*/
#define _myData (somThis->myData)
/*
* Getdata macro
*/
#define DM2TestGetData(somSelf) \
((DM2TestData *) \
SOM_DataResolve(somSelf, DM2TestCClassData.instanceDataToken))
/*
* Trace/Debug macro
*/
#ifndef DM2TestMethodDebug
#define DM2TestMethodDebug(c,m) SOMMethodDebug(c,m)
#endif
/*
* Begin stuff that only goes in the primary file
*/
#ifdef DM2Test_Class_Source
/*
* Current class macros for Instance and Meta classes.
*/
#undef SOMMeta
#define SOMMeta M_DM2TestCClassData.parentMtab
#undef SOMInstance
#define SOMInstance DM2TestCClassData.parentMtab
#ifndef M_DM2Test_Class_Source
#define M_DM2Test_Class_Source
#endif /* M_DM2Test_Class_Source */
/*
* Generate the Apply Stubs.
*/
#pragma linkage(somAP_DeskMan2QuerySetup, system)
static APIRET SOMLINK somAP_DeskMan2QuerySetup(DM2Test *somSelf,
somId __id,
somId __desc,
va_list __ap)
{
WPObject *setupObject = va_arg(__ap, WPObject*);
__ap; __id; __desc; /* Referenced to prevent warning msg */
return (DM2Test_DeskMan2QuerySetup(somSelf,setupObject));
}
/*
* Overridden method: wpSetup
*/
#pragma linkage(DM2TestX_wpSetup, system)
SOM_Scope BOOL SOMLINK DM2TestX_wpSetup(DM2Test *somSelf,
PSZ pszSetupString);
#ifndef parent_wpSetup
static char *somMN_wpSetup = "wpSetup";
static somId somId_wpSetup = &somMN_wpSetup;
#define parent_wpSetup(somSelf,pszSetupString) \
((SOM_ParentResolveE(WPObject, SOM_CurrentClass, wpSetup)) \
(somSelf,pszSetupString))
#endif
#define DM2TestParent_wpSetup parent_wpSetup
/*
* Overridden method: wpModifyPopupMenu
*/
#pragma linkage(DM2TestX_wpModifyPopupMenu, system)
SOM_Scope BOOL SOMLINK DM2TestX_wpModifyPopupMenu(DM2Test *somSelf,
HWND hwndMenu,
HWND hwndCnr,
ULONG iPosition);
#ifndef parent_wpModifyPopupMenu
static char *somMN_wpModifyPopupMenu = "wpModifyPopupMenu";
static somId somId_wpModifyPopupMenu = &somMN_wpModifyPopupMenu;
#define parent_wpModifyPopupMenu(somSelf,hwndMenu,hwndCnr,iPosition) \
((SOM_ParentResolveE(WPObject, SOM_CurrentClass, wpModifyPopupMenu)) \
(somSelf,hwndMenu,hwndCnr,iPosition))
#endif
#define DM2TestParent_wpModifyPopupMenu parent_wpModifyPopupMenu
/*
* Overridden method: wpMenuItemSelected
*/
#pragma linkage(DM2TestX_wpMenuItemSelected, system)
SOM_Scope BOOL SOMLINK DM2TestX_wpMenuItemSelected(DM2Test *somSelf,
HWND hwndFrame,
ULONG ulMenuId);
#ifndef parent_wpMenuItemSelected
static char *somMN_wpMenuItemSelected = "wpMenuItemSelected";
static somId somId_wpMenuItemSelected = &somMN_wpMenuItemSelected;
#define parent_wpMenuItemSelected(somSelf,hwndFrame,ulMenuId) \
((SOM_ParentResolveE(WPObject, SOM_CurrentClass, wpMenuItemSelected)) \
(somSelf,hwndFrame,ulMenuId))
#endif
#define DM2TestParent_wpMenuItemSelected parent_wpMenuItemSelected
/*
* Overridden method: wpAddObjectWindowPage
*/
#pragma linkage(DM2TestX_wpAddObjectWindowPage, system)
SOM_Scope ULONG SOMLINK DM2TestX_wpAddObjectWindowPage(DM2Test *somSelf,
HWND hwndNotebook);
#ifndef parent_wpAddObjectWindowPage
static char *somMN_wpAddObjectWindowPage = "wpAddObjectWindowPage";
static somId somId_wpAddObjectWindowPage = &somMN_wpAddObjectWindowPage;
#define parent_wpAddObjectWindowPage(somSelf,hwndNotebook) \
((SOM_ParentResolveE(WPObject, SOM_CurrentClass, wpAddObjectWindowPage)) \
(somSelf,hwndNotebook))
#endif
#define DM2TestParent_wpAddObjectWindowPage parent_wpAddObjectWindowPage
/*
* Temporary class data structure used only in class creation
*/
static somClassDataStructure DM2TesttempClassData;
/*
* Initialize the class data structure
*/
struct DM2TestClassDataStructure DM2TestClassData = {(SOMAny *) NULL};
/*
* Define the C class data structure
*/
struct DM2TestCClassDataStructure DM2TestCClassData = {(somMethodTab *) NULL};
/*
* New Method: DeskMan2QuerySetup
*/
#pragma linkage(DM2TestX_DeskMan2QuerySetup, system)
SOM_Scope APIRET SOMLINK DM2TestX_DeskMan2QuerySetup(DM2Test *somSelf,
WPObject *setupObject);
static char *somMN_DeskMan2QuerySetup = "DeskMan2QuerySetup";
static somId somId_DeskMan2QuerySetup = &somMN_DeskMan2QuerySetup;
static char *somDS_DeskMan2QuerySetup = somMD_DM2Test_DeskMan2QuerySetup;
static somId somDI_DeskMan2QuerySetup = &somDS_DeskMan2QuerySetup;
#pragma linkage(somRD_DeskMan2QuerySetup, system)
static APIRET SOMLINK somRD_DeskMan2QuerySetup(DM2Test *somSelf,
WPObject *setupObject)
{
return ((APIRET) va_somDispatchL(somSelf, somId_DeskMan2QuerySetup,
_somGetMethodDescriptor(SOM_GetClass(somSelf),somId_DeskMan2QuerySetup),setupObject));
}
/*
* Routines to create the class object
*/
/*
* Declare the Static Methods table.
*/
static somStaticMethod_t DM2TestSM[] = {
{ &DM2TestClassData.DeskMan2QuerySetup,
&somId_DeskMan2QuerySetup,
&somDI_DeskMan2QuerySetup,
(somMethodProc *) DM2TestX_DeskMan2QuerySetup,
(somMethodProc *) somRD_DeskMan2QuerySetup,
(somMethodProc *) somAP_DeskMan2QuerySetup },
};
/*
* Declare the Override Methods table.
*/
static somOverrideMethod_t DM2TestOM[] = {
{ &somId_wpSetup,
(somMethodProc *) DM2TestX_wpSetup },
{ &somId_wpModifyPopupMenu,
(somMethodProc *) DM2TestX_wpModifyPopupMenu },
{ &somId_wpMenuItemSelected,
(somMethodProc *) DM2TestX_wpMenuItemSelected },
{ &somId_wpAddObjectWindowPage,
(somMethodProc *) DM2TestX_wpAddObjectWindowPage },
};
static void DM2TestsomInitializeClass ()
{
int i;
somStaticMethod_t *smp;
somOverrideMethod_t *omp;
/*
* Add the Static Methods.
*/
for (smp = DM2TestSM, i = 0; i < 1; smp++, i++)
*(smp->classData) =
_somAddStaticMethod (DM2TesttempClassData.classObject,
*(smp->methodId), *(smp->methodDescriptor),
smp->method, smp->redispatchStub,
smp->applyStub);
/*
* Override methods.
*/
for (omp = DM2TestOM, i = 0; i < 4; omp++, i++)
_somOverrideSMethod (DM2TesttempClassData.classObject,
*(omp->methodId), omp->method);
}
#pragma linkage(DM2TestsomCreateClass, system)
static void SOMLINK DM2TestsomCreateClass(SOMClass *pClsObj,
SOMClass *mClsObj)
{
DM2TesttempClassData.classObject = _somNew (mClsObj);
_somInitClass (DM2TesttempClassData.classObject,
"DM2Test",
pClsObj,
sizeof(DM2TestData),
DM2Test_MaxNoMethods,
DM2Test_MajorVersion,
DM2Test_MinorVersion);
DM2TestCClassData.instanceDataToken =
_somGetInstanceToken(DM2TesttempClassData.classObject);
DM2TestsomInitializeClass();
DM2TestCClassData.parentMtab =
_somGetPClsMtab(DM2TesttempClassData.classObject);
_somSetClassData(DM2TesttempClassData.classObject, (somClassDataStructure *)&DM2TestClassData);
_somClassReady(DM2TesttempClassData.classObject);
/* make newly created class object visible */
DM2TestClassData.classObject = DM2TesttempClassData.classObject;
}
DM2Test * SOMLINK DM2TestNewClass (integer4 scemajorVersion,
integer4 sceminorVersion)
{
SOMClass *pClsObj;
SOMClass *mClsObj;
/* Check the version numbers */
if (((scemajorVersion != 0) &&
(scemajorVersion != DM2Test_MajorVersion)) ||
((sceminorVersion != 0) &&
(sceminorVersion > DM2Test_MinorVersion))) {
somPrintf("DM2TestNewClass: Error, bad version numbers.\n");
SOM_Error(SOMERROR_BadVersion);
}
/* Don't do anything if class object is already created. */
if (DM2TestClassData.classObject != (SOMAny *) NULL)
return(DM2TestClassData.classObject);
/* Make sure the environment is initialized. */
if (SOMClassMgrObject == (SOMAny *) NULL) somEnvironmentNew();
if (SOMClassMgrObject == (SOMAny *) NULL)
SOM_Error(SOMERROR_CouldNotStartup);
/* Get the parent class object. */
WPAbstractNewClass(1,2); /* static reference */
pClsObj = _somFindClass(SOMClassMgrObject,
SOM_IdFromString("WPAbstract"), 1, 2);
if (pClsObj == (SOMClass *) NULL)
SOM_Error(SOMERROR_NoParentClass);
/* Explicit metaclass, so get it */
M_DM2TestNewClass(0,0); /* static reference */
mClsObj = _somFindClass(SOMClassMgrObject,
SOM_IdFromString("M_DM2Test"), 0, 0);
if (mClsObj == (SOMClass *) NULL)
SOM_Error(SOMERROR_NoMetaClass);
somConstructClass(DM2TestsomCreateClass, pClsObj, mClsObj,
&DM2TesttempClassData);
return (DM2TestClassData.classObject);
}
#endif /* DM2Test_Class_Source */
#endif /* DM2Test_ih */
/*
* This file was generated by the SOM Compiler.
* FileName: DM2Test.ih.
* Generated using:
* SOM Precompiler spc: 1.22
* SOM Emitter emitih: 1.59
*/
#ifndef DM2Test_mih
#define DM2Test_mih
/*
* Set the scope of methods functions
*/
#ifndef SOM_Scope
#ifdef __cplusplus
#define SOM_Scope extern "C"
#else
#define SOM_Scope extern
#endif
#endif
#ifndef SOM_CurrentClass
#define SOM_CurrentClass M_DM2TestCClassData.parentMtab
#endif
#define M_DM2Test_MaxNoMethods 0
/*
* Instance data
*/
typedef void M_DM2TestData;
/*
* Trace/Debug macro
*/
#ifndef M_DM2TestMethodDebug
#define M_DM2TestMethodDebug(c,m) SOMMethodDebug(c,m)
#endif
/*
* Begin stuff that only goes in the primary file
*/
#ifdef M_DM2Test_Class_Source
/*
* Current class macros for Instance and Meta classes.
*/
/*
* Generate the Apply Stubs.
*/
/*
* Overridden method: wpclsInitData
*/
#pragma linkage(DM2TestC_wpclsInitData, system)
SOM_Scope void SOMLINK DM2TestC_wpclsInitData(M_DM2Test *somSelf);
#ifndef parent_wpclsInitData
static char *somMN_wpclsInitData = "wpclsInitData";
static somId somId_wpclsInitData = &somMN_wpclsInitData;
#define parent_wpclsInitData(somSelf) \
((SOM_ParentResolveE(M_WPObject, SOM_CurrentClass, wpclsInitData)) \
(somSelf))
#endif
#define M_DM2TestParent_wpclsInitData parent_wpclsInitData
/*
* Overridden method: wpclsUnInitData
*/
#pragma linkage(DM2TestC_wpclsUnInitData, system)
SOM_Scope void SOMLINK DM2TestC_wpclsUnInitData(M_DM2Test *somSelf);
#ifndef parent_wpclsUnInitData
static char *somMN_wpclsUnInitData = "wpclsUnInitData";
static somId somId_wpclsUnInitData = &somMN_wpclsUnInitData;
#define parent_wpclsUnInitData(somSelf) \
((SOM_ParentResolveE(M_WPObject, SOM_CurrentClass, wpclsUnInitData)) \
(somSelf))
#endif
#define M_DM2TestParent_wpclsUnInitData parent_wpclsUnInitData
/*
* Overridden method: wpclsQueryIconData
*/
#pragma linkage(DM2TestC_wpclsQueryIconData, system)
SOM_Scope ULONG SOMLINK DM2TestC_wpclsQueryIconData(M_DM2Test *somSelf,
PICONINFO pIconInfo);
#ifndef parent_wpclsQueryIconData
static char *somMN_wpclsQueryIconData = "wpclsQueryIconData";
static somId somId_wpclsQueryIconData = &somMN_wpclsQueryIconData;
#define parent_wpclsQueryIconData(somSelf,pIconInfo) \
((SOM_ParentResolveE(M_WPObject, SOM_CurrentClass, wpclsQueryIconData)) \
(somSelf,pIconInfo))
#endif
#define M_DM2TestParent_wpclsQueryIconData parent_wpclsQueryIconData
/*
* Overridden method: wpclsQueryTitle
*/
#pragma linkage(DM2TestC_wpclsQueryTitle, system)
SOM_Scope PSZ SOMLINK DM2TestC_wpclsQueryTitle(M_DM2Test *somSelf);
#ifndef parent_wpclsQueryTitle
static char *somMN_wpclsQueryTitle = "wpclsQueryTitle";
static somId somId_wpclsQueryTitle = &somMN_wpclsQueryTitle;
#define parent_wpclsQueryTitle(somSelf) \
((SOM_ParentResolveE(M_WPObject, SOM_CurrentClass, wpclsQueryTitle)) \
(somSelf))
#endif
#define M_DM2TestParent_wpclsQueryTitle parent_wpclsQueryTitle
/*
* Temporary class data structure used only in class creation
*/
static somClassDataStructure M_DM2TesttempClassData;
/*
* Initialize the class data structure
*/
struct M_DM2TestClassDataStructure M_DM2TestClassData = {(SOMAny *) NULL};
/*
* Define the C class data structure
*/
struct M_DM2TestCClassDataStructure M_DM2TestCClassData = {(somMethodTab *) NULL};
/*
* Routines to create the class object
*/
/*
* Declare the Override Methods table.
*/
static somOverrideMethod_t M_DM2TestOM[] = {
{ &somId_wpclsInitData,
(somMethodProc *) DM2TestC_wpclsInitData },
{ &somId_wpclsUnInitData,
(somMethodProc *) DM2TestC_wpclsUnInitData },
{ &somId_wpclsQueryIconData,
(somMethodProc *) DM2TestC_wpclsQueryIconData },
{ &somId_wpclsQueryTitle,
(somMethodProc *) DM2TestC_wpclsQueryTitle },
};
static void M_DM2TestsomInitializeClass ()
{
int i;
somOverrideMethod_t *omp;
/*
* Override methods.
*/
for (omp = M_DM2TestOM, i = 0; i < 4; omp++, i++)
_somOverrideSMethod (M_DM2TesttempClassData.classObject,
*(omp->methodId), omp->method);
}
#pragma linkage(M_DM2TestsomCreateClass, system)
static void SOMLINK M_DM2TestsomCreateClass(SOMClass *pClsObj,
SOMClass *mClsObj)
{
M_DM2TesttempClassData.classObject = _somNew (mClsObj);
_somInitClass (M_DM2TesttempClassData.classObject,
"M_DM2Test",
pClsObj,
0,
M_DM2Test_MaxNoMethods,
M_DM2Test_MajorVersion,
M_DM2Test_MinorVersion);
M_DM2TestCClassData.instanceDataToken =
_somGetInstanceToken(M_DM2TesttempClassData.classObject);
M_DM2TestsomInitializeClass();
M_DM2TestCClassData.parentMtab =
_somGetPClsMtab(M_DM2TesttempClassData.classObject);
_somSetClassData(M_DM2TesttempClassData.classObject, (somClassDataStructure *)&M_DM2TestClassData);
_somClassReady(M_DM2TesttempClassData.classObject);
/* make newly created class object visible */
M_DM2TestClassData.classObject = M_DM2TesttempClassData.classObject;
}
M_DM2Test * SOMLINK M_DM2TestNewClass (integer4 scemajorVersion,
integer4 sceminorVersion)
{
SOMClass *pClsObj;
SOMClass *mClsObj;
/* Check the version numbers */
if (((scemajorVersion != 0) &&
(scemajorVersion != M_DM2Test_MajorVersion)) ||
((sceminorVersion != 0) &&
(sceminorVersion > M_DM2Test_MinorVersion))) {
somPrintf("M_DM2TestNewClass: Error, bad version numbers.\n");
SOM_Error(SOMERROR_BadVersion);
}
/* Don't do anything if class object is already created. */
if (M_DM2TestClassData.classObject != (SOMAny *) NULL)
return(M_DM2TestClassData.classObject);
/* Make sure the environment is initialized. */
if (SOMClassMgrObject == (SOMAny *) NULL) somEnvironmentNew();
if (SOMClassMgrObject == (SOMAny *) NULL)
SOM_Error(SOMERROR_CouldNotStartup);
/* Get the parent class object. */
M_WPAbstractNewClass(1,2); /* static reference */
pClsObj = _somFindClass(SOMClassMgrObject,
SOM_IdFromString("M_WPAbstract"), 1, 2);
if (pClsObj == (SOMClass *) NULL)
SOM_Error(SOMERROR_NoParentClass);
/* Use parent's metaclass */
mClsObj = SOM_GetClass(pClsObj);
somConstructClass(M_DM2TestsomCreateClass, pClsObj, mClsObj,
&M_DM2TesttempClassData);
return (M_DM2TestClassData.classObject);
}
#endif /* M_DM2Test_Class_Source */
#endif /* DM2Test_ih */