home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / tolkit45.zip / os2tk45 / som / include / scconst.idl < prev    next >
Text File  |  1999-02-22  |  3KB  |  84 lines
  1. //
  2. //   COMPONENT_NAME: some
  3. //
  4. //   ORIGINS: 27
  5. //
  6. //
  7. //    25H7912  (C)  COPYRIGHT International Business Machines Corp. 1992,1994,1996 
  8. //   All Rights Reserved
  9. //   Licensed Materials - Property of IBM
  10. //   US Government Users Restricted Rights - Use, duplication or
  11. //   disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
  12. //
  13. //#  @(#) somc/scconst.idl 2.8 12/26/95 16:20:46 [7/30/96 14:45:57]
  14.  
  15.  
  16. #ifndef scconst_idl
  17. #define scconst_idl
  18.  
  19. #include <scentry.idl>
  20.  
  21. interface SOMTConstEntryC : SOMTEntryC
  22. {
  23.   readonly attribute SOMTEntryC somtConstTypeObj;
  24.   // A pointer to an object representing 
  25.   // the type of the const.
  26.  
  27.   readonly attribute string somtConstType;
  28.   // The type of the constant's value.
  29.  
  30.   readonly attribute string somtConstStringVal;
  31.   // The string value of the constant (unevaluated).
  32.  
  33.   readonly attribute unsigned long somtConstNumVal;
  34.   // The number value of the constant.
  35.   // This attribute is not valid if the value cannot
  36.   // be stored in an unsigned long (string, float, double, negative).
  37.   // The somtConstIsNegative attribute can be used to determine
  38.   // if the value is negative.  The somtConstType attribute can
  39.   // be used to determine whether the value is a float or double.
  40.  
  41.   readonly attribute long somtConstNumNegVal;
  42.   // The number value of the constant, if negative.
  43.  
  44.   readonly attribute boolean somtConstIsNegative;
  45.   // Whether the constant's value is a negative integer and
  46.   // must be obtained using somtConstNumNegVal rather than somtConstNumVal.
  47.  
  48.   readonly attribute string somtConstVal;
  49.   // The string value of the constant (evaluated).
  50.   // The "get" method for this attribute returns a string whose
  51.   // ownership is transferred to the caller.
  52.  
  53. #ifdef __SOMIDL__
  54.   implementation {
  55.     releaseorder: _get_somtConstStringVal, _get_somtConstNumVal, 
  56.                   _get_somtConstType, _get_somtConstTypeObj, 
  57.                   _get_somtConstVal, _get_somtConstNumNegVal,
  58.             _get_somtConstIsNegative;
  59.  
  60.     //# Class Modifiers
  61.     majorversion = 2;
  62.     minorversion = 1;
  63.     filestem = scconst;
  64.     callstyle = oidl;
  65.   
  66.     //# Method Modifiers
  67.     somDumpSelfInt: override;
  68.     somtSetSymbolsOnEntry: override;
  69.   
  70.     //# Attribute Modifiers
  71.     somtConstStringVal: nodata;
  72.     somtConstNumVal: nodata;
  73.     somtConstVal: nodata;
  74.     somtConstNumNegVal: nodata;
  75.     somtConstType: nodata;
  76.     somtConstTypeObj: nodata;
  77.     somtConstIsNegative: nodata;
  78.   };
  79. #endif /* __SOMIDL__ */
  80. };
  81.  
  82.  
  83. #endif  /* scconst*/
  84.