samples/Module/Sample_mxp.vbs

   1 Option Explicit \r
   2 Dim mxp : If IsEmpty(mxp) Then WScript.Echo "This file is Module Mixer Package File version 3" :WScript.Quit 1\r
   3 \r
   4 If mxp.StartModule("Sample") Then\r
   5 \r
   6 Const        Sample_H = "Sample.h"\r
   7 mxp.AddFile  Sample_H,  "Sample.h", "CHead_Type"\r
   8 Const        Sample_C = "Sample.c"\r
   9 mxp.AddFile  Sample_C,  "Sample.c", "C_Type"\r
  10 \r
  11 \r
  12 Dim Sample : Set Sample = mxp.AddNewSymbol("Sample")\r
  13 Function Sample_setDepend\r
  14   Sample.UsesSection  Sample_H, "Start of C Symbol"\r
  15   Sample.UsesSection  Sample_H, "[Sample]"\r
  16   Sample.UsesSection  Sample_H, "End of C Symbol"\r
  17   Sample.UsesSection  Sample_C, "(Sample)"\r
  18   Sample.UsesSection  Sample_C, "[Sample_init_const]"\r
  19   Sample.UsesSection  Sample_C, "[Sample_init]"\r
  20   Sample.UsesSection  Sample_C, "[Sample_finish]"\r
  21 End Function : Set Sample.SetDepend = GetRef( "Sample_setDepend" )\r
  22 \r
  23 \r
  24 End If\r
  25  \r