[QuantLibAddin-cvs] QuantLibAddin/gensrc/stubs stub.excel.xladdin, 1.1, 1.2

[Eric E. <eri...@us...>]

Update of /cvsroot/quantlibaddin/QuantLibAddin/gensrc/stubs
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv12940/gensrc/stubs

Modified Files:
	stub.excel.xladdin 
Log Message:
cleaner implementation for ohPack/ohParseFields

Index: stub.excel.xladdin
===================================================================
RCS file: /cvsroot/quantlibaddin/QuantLibAddin/gensrc/stubs/stub.excel.xladdin,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** stub.excel.xladdin	2 Oct 2006 15:39:47 -0000	1.1
--- stub.excel.xladdin	3 Oct 2006 09:32:49 -0000	1.2
***************
*** 75,108 ****
  #ifdef XLL_STATIC
          registerFunctions(xDll);
!         
!         Excel(xlfRegister, 0, 11, &xDll,
!             TempStrNoSize("\x06""ohPack"),           // function code name
!             TempStrNoSize("\x03""RP#"),              // parameter codes
!             TempStrNoSize("\x06""ohPack"),           // function display name
!             TempStrNoSize("\x10""inputRange"),       // comma-delimited list of parameter names
!             TempStrNoSize("\x01""1"),                // function type (1 = worksheet function)
!             TempStrNoSize("\x0D""ObjectHandler"),    // function category
!             TempStrNoSize("\x00"""),                 // shortcut text (command macros only)
!             TempStrNoSize("\x00"""),                 // path to help file
!             TempStrNoSize("\x3D""trim #ERR/empty values from bottom/right edges of input range"), // function description
!             TempStrNoSize("\x1D""range of cells to be packed  ")); // description of parameter 1
! 
!         Excel(xlfRegister, 0, 14, &xDll,
!             TempStrNoSize("\x0C""ohParseField"),     // function code name
!             TempStrNoSize("\x06""RCNCP#"),           // parameter codes
!             TempStrNoSize("\x0C""ohParseField"),     // function display name
!             TempStrNoSize("\x19""line,index,type,delimiter"),  // comma-delimited list of parameter names
!             TempStrNoSize("\x01""1"),                // function type (1 = worksheet function)
!             TempStrNoSize("\x0D""ObjectHandler"),    // function category
!             TempStrNoSize("\x00"""),                 // shortcut text (command macros only)
!             TempStrNoSize("\x00"""),                 // path to help file
!             TempStrNoSize("\x41""Extract the ith number from a whitespace-delimited list of fields"), // function description
!             TempStrNoSize("\x11""text to be parsed"), // description of parameter 1
!             TempStrNoSize("\x20""index (1-based) of desired field"), // description of parameter 2
!             TempStrNoSize("\x21""required datatype (string/number)"), // description of parameter 3
!             TempStrNoSize("\x29""field delimiter (default is whitespace)  ")); // description of parameter 3
!         
  #endif
  
  %(registerFunctions)s        Excel(xlFree, 0, 1, &xDll);
  
--- 75,82 ----
  #ifdef XLL_STATIC
          registerFunctions(xDll);
!         registerOhManual(xDll);
  #endif
  
+         registerQlManual(xDll);
  %(registerFunctions)s        Excel(xlFree, 0, 1, &xDll);
  
***************
*** 126,170 ****
  
  #ifdef XLL_STATIC
- 		XLOPER xlRegID;
- 		
          unregisterFunctions(xDll);
! 
!         Excel(xlfRegister, 0, 11, &xDll,
!             TempStrNoSize("\x06""ohPack"),           // function code name
!             TempStrNoSize("\x03""RP#"),              // parameter codes
!             TempStrNoSize("\x06""ohPack"),           // function display name
!             TempStrNoSize("\x10""inputRange"),       // comma-delimited list of parameter names
!             TempStrNoSize("\x01""0"),                // function type (0 = hidden function)
!             TempStrNoSize("\x0D""ObjectHandler"),    // function category
!             TempStrNoSize("\x00"""),                 // shortcut text (command macros only)
!             TempStrNoSize("\x00"""),                 // path to help file
!             TempStrNoSize("\x3D""trim #ERR/empty values from bottom/right edges of input range"), // function description
!             TempStrNoSize("\x1D""range of cells to be packed  ")); // description of parameter 1
! 
!         Excel4(xlfRegisterId, &xlRegID, 2, &xDll,
!             TempStrNoSize("\x06""ohPack"));          // function code name
! 
!         Excel4(xlfUnregister, 0, 1, &xlRegID);
! 
!         Excel(xlfRegister, 0, 14, &xDll,
!             TempStrNoSize("\x0C""ohParseField"),     // function code name
!             TempStrNoSize("\x06""RCNCP#"),           // parameter codes
!             TempStrNoSize("\x0C""ohParseField"),     // function display name
!             TempStrNoSize("\x19""line,index,type,delimiter"),  // comma-delimited list of parameter names
!             TempStrNoSize("\x01""0"),                // function type (0 = hidden function)
!             TempStrNoSize("\x0D""ObjectHandler"),    // function category
!             TempStrNoSize("\x00"""),                 // shortcut text (command macros only)
!             TempStrNoSize("\x00"""),                 // path to help file
!             TempStrNoSize("\x41""Extract the ith number from a whitespace-delimited list of fields"), // function description
!             TempStrNoSize("\x11""text to be parsed"), // description of parameter 1
!             TempStrNoSize("\x20""index (1-based) of desired field"), // description of parameter 2
!             TempStrNoSize("\x21""required datatype (string/number)"), // description of parameter 3
!             TempStrNoSize("\x29""field delimiter (default is whitespace)  ")); // description of parameter 3
! 
!         Excel4(xlfRegisterId, &xlRegID, 2, &xDll,
!             TempStrNoSize("\x0C""ohParseField"));    // function code name       
!         
  #endif
  
  %(unregisterFunctions)s        Excel(xlFree, 0, 1, &xDll);
  
--- 100,108 ----
  
  #ifdef XLL_STATIC
          unregisterFunctions(xDll);
!         unregisterOhManual(xDll);
  #endif
  
+         unregisterQlManual(xDll);
  %(unregisterFunctions)s        Excel(xlFree, 0, 1, &xDll);
  
***************
*** 176,178 ****
  }
  
- 
--- 114,115 ----