home *** CD-ROM | disk | FTP | other *** search
/ C Programming Starter Kit 2.0 / SamsPublishing-CProgrammingStarterKit-v2.0-Win31.iso / bc45 / expert.pak / AUTOREG.SNP < prev    next >
Text File  |  1997-07-23  |  5KB  |  135 lines
  1. <<[CPP]
  2. ##^BOF
  3. ##FALSE [[RegAndFact]]
  4. ##FALSE [[Template]]
  5. ##--BEGIN-- ? "BEGIN_REGISTRATION(ApplicationReg)" [[RegThere]]
  6. ##      --BEGIN-- RegThere == FALSE
  7. ##          --BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  8. ##              :"//{{[[ClassName]] Implementation}}" [[ClassMarker]]
  9. ##              :\\ClassMarker [[LookUp]]
  10. ##              :QUERY_FILE_CPP [[FileName]]
  11. ##              :^BOF
  12. ##              :? LookUp [[Search]]
  13. ##              :Search == FALSE
  14. ##                  :%\\"Unable to add application registration to [[FileName]].  "
  15. ##*
  16. ##              :^BOL
  17. ##          --END-- QUERY_CLASS_NAME [[ClassName]]
  18. DEFINE_APP_DICTIONARY(AppDictionary);
  19. ##@QUERY_APPL_OLE == VALUE_NOOLE
  20. static TPointer<TRegistrar> Registrar;
  21. ##@QUERY_APPL_OLE != VALUE_NOOLE
  22. static TPointer<TOcRegistrar> Registrar;
  23.  
  24. REGISTRATION_FORMAT_BUFFER(100)
  25.  
  26. BEGIN_REGISTRATION(ApplicationReg)
  27. ##          --BEGIN-- @QUERY_OLE_GUID [[GUID]]
  28. ##              :GUID != ""
  29.     REGDATA(clsid, "{[[GUID]]}")
  30. ##              :GUID == ""
  31.     REGDATA(clsid, "{544C5355-4547-4C4C-5248-4C4C75636173}")
  32. ##          --END-- @QUERY_OLE_GUID [[GUID]]
  33. ##          --BEGIN-- @QUERY_PRJ_NAME [[AppTitle]]
  34.     REGDATA(progid, "[[AppTitle]].Application.1")
  35.     REGDATA(appname, "[[AppTitle]] Server")
  36.     REGDATA(description, "[[AppTitle]] Server Application")
  37.     REGDATA(cmdline, "/Automation")
  38. //    REGDATA(debugger, "TDW")
  39. ##          --END-- @QUERY_PRJ_NAME [[AppTitle]]
  40. END_REGISTRATION
  41.  
  42. ##      --END-- RegThere == FALSE
  43. ##      --BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  44. ##          :^BOF
  45. ##          :? "TApplication("
  46. ##              :^EOS
  47. ##              :YPos() [[CurrYLine]]
  48. ##              :XPos() [[CurrXCol]]
  49. ##              :? ","
  50. ##                  :YPos() != CurrYLine
  51. ##                      :^@CurrYLine, CurrXCol
  52. ##                      :? ")"
  53. ##                          :YPos() == CurrYLine
  54. ##                              :^BOS
  55. ##                              :XPos() [[X1Pos]]
  56. ##                              :^@CurrYLine, CurrXCol
  57. ##                              :^DROP
  58. ##                              :^@CurrYLine, (X1Pos - 1)
  59. ##                              :^RAISE
  60. ##                              :InsertText("::ApplicationReg[\"appname\"], ::Module, &::AppDictionary")
  61. ##*
  62. ##          :^BOF
  63. ##          :? " TOcRegistrar(" RegAndFact
  64. ##          RegAndFact == FALSE
  65. ##              :^BOF
  66. ##              :? " TRegistrar(" RegAndFact
  67. ##          FALSE [[AppFound]]
  68. ##          FALSE [[appFound]]
  69. ##          --BEGIN-- RegAndFact == FALSE
  70. ##              :^BOF
  71. ##              :? " OwlMain"
  72. ##                  :? \\"[[ClassName]] "
  73. ##                      :^BOL
  74. ##                      :^DELL
  75. ##                      --BEGIN-- @QUERY_APPL_OLE == VALUE_NOOLE
  76.         ::Registrar = new TRegistrar(::ApplicationReg, TAutoFactory<[[ClassName]]>(), TApplication::GetCmdLine(), _hInstance);
  77.         if (::Registrar->IsOptionSet(amAnyRegOption))
  78.             return 0;
  79.  
  80. ##                      --END-- @QUERY_APPL_OLE == VALUE_NOOLE
  81. ##                      --BEGIN-- @QUERY_APPL_OLE != VALUE_NOOLE
  82.         ::Registrar = new TOcRegistrar(::ApplicationReg, TOleDocViewAutoFactory<[[ClassName]]>(), TApplication::GetCmdLine(), ::DocTemplateStaticHead);
  83.         if (::Registrar->IsOptionSet(amAnyRegOption))
  84.             return 0;
  85.  
  86. ##                      --END-- @QUERY_APPL_OLE != VALUE_NOOLE
  87. ##                      :? \\"App.Run(" AppFound
  88. ##                      :AppFound == FALSE
  89. ##                          :? \\"app.Run(" appFound
  90. ##*
  91. ##                      :((AppFound == TRUE) || (appFound == TRUE))
  92. ##                          :^BOS
  93. ##                          :YPos() [[CurrYPos]]
  94. ##                          :XPos() [[CurrXPos]]
  95. ##                          :^@CurrYPos, CurrXPos
  96. ##                          :^DROP
  97. ##                          :^@CurrYPos, (CurrXPos + 3)
  98. ##                          :^RAISE
  99. ##                          :InsertText("::Registrar->")
  100. ##*
  101. ##          --END-- RegAndFact == FALSE
  102. ##          --BEGIN-- RegAndFact == TRUE
  103. ##              :YPos() [[CurrYLine]]
  104. ##              :? ","
  105. ##                  :YPos() == CurrYLine
  106. ##                      :^EOS
  107. ##                      :XPos() [[X1Pos]]
  108. ##                      :? ","
  109. ##                          :YPos() == CurrYLine
  110. ##                              :^BOS
  111. ##                              :XPos() [[X2Pos]]
  112. ##                              :^@CurrYLine, X1Pos
  113. ##                              :^DROP
  114. ##                              :^@CurrYLine, (X2Pos - 1)
  115. ##                              :^RAISE
  116. ##                              --BEGIN-- TRUE
  117. ##                                  :@QUERY_APPL_OLE == VALUE_NOOLE
  118. ##                                      :InsertText(\\" TAutoFactory<[[ClassName]]>()")
  119. ##*
  120. ##                                  :@QUERY_APPL_OLE != VALUE_NOOLE
  121. ##                                      :InsertText(\\" TOleDocViewAutoFactory<[[ClassName]]>()")
  122. ##*
  123. ##                              --END-- TRUE
  124. ##*
  125. ##              :^BOF
  126. ##              :? "REGDATA(cmdline, \""
  127. ##              :^EOS
  128. ##              :? "/Automation" == FALSE
  129. ##                  :InsertText("/Automation")
  130. ##*
  131. ##          --END-- RegAndFact == TRUE
  132. ##      --END-- QUERY_CLASS_NAME [[ClassName]]
  133. ##--END-- ? "BEGIN_REGISTRATION(ApplicationReg)" [[RegThere]]
  134. >>[CPP]
  135.