Subversion Repositories DevTools

Rev

Rev 6184 | Rev 7029 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6184 Rev 7022
Line 35... Line 35...
35 
' control on an html form
 35 
' control on an html form
36 
'--------------------------------------------------------------------------------------------
 36 
'--------------------------------------------------------------------------------------------
37 
Sub GetDaemonInstructionOperationNameArray(nArray)
 37 
Sub GetDaemonInstructionOperationNameArray(nArray)
38 
   ' append new op-codes to this list when they are invented
 38 
   ' append new op-codes to this list when they are invented
39 
   nArray = array(OP_CODE_0_STR, _
 39 
   nArray = array(OP_CODE_0_STR, _
- 
 
 40 
                  OP_CODE_1_STR, _
40 
                  OP_CODE_1_STR)
 41 
                  OP_CODE_2_STR)
41 
End Sub
 42 
End Sub
42 
 
 43 
 
43 
'--------------------------------------------------------------------------------------------
 44 
'--------------------------------------------------------------------------------------------
44 
' Convert a Daemon Instruction operation code into a meaningful string
 45 
' Convert a Daemon Instruction operation code into a meaningful string
45 
' NOTE: could replace this with a global scripting dicitonary, but the code would be no clearer
 46 
' NOTE: could replace this with a global scripting dicitonary, but the code would be no clearer
Line 51... Line 52...
51 
      DaemonInstructionOperationName = OP_CODE_0_STR
 52 
      DaemonInstructionOperationName = OP_CODE_0_STR
52 
 
 53 
 
53 
   Case OP_CODE_1_TEST_BUILD_PACKAGE
 54 
   Case OP_CODE_1_TEST_BUILD_PACKAGE
54 
      DaemonInstructionOperationName = OP_CODE_1_STR
 55 
      DaemonInstructionOperationName = OP_CODE_1_STR
55 
 
 56 
 
- 
 
 57 
   Case OP_CODE_2_FUTURE_BUILD
- 
 
 58 
      DaemonInstructionOperationName = OP_CODE_2_STR
- 
 
 59 
 
56 
   Case Else
 60 
   Case Else
57 
      DaemonInstructionOperationName = "Undefined (" & nOpCode & ")"
 61 
      DaemonInstructionOperationName = "Undefined (" & nOpCode & ")"
58 
   End Select
 62 
   End Select
59 
End Function
 63 
End Function
60 
 
 64 
 
Line 69... Line 73...
69 
      DaemonInstructionOperationValue = OP_CODE_0_RIPPLE_BUILD_PACKAGE
 73 
      DaemonInstructionOperationValue = OP_CODE_0_RIPPLE_BUILD_PACKAGE
70 
 
 74 
 
71 
   Case OP_CODE_1_STR
 75 
   Case OP_CODE_1_STR
72 
      DaemonInstructionOperationValue = OP_CODE_1_TEST_BUILD_PACKAGE
 76 
      DaemonInstructionOperationValue = OP_CODE_1_TEST_BUILD_PACKAGE
73 
 
 77 
 
- 
 
 78 
   Case OP_CODE_2_STR
- 
 
 79 
      DaemonInstructionOperationValue = OP_CODE_2_FUTURE_BUILD
- 
 
 80 
 
74 
   Case Else
 81 
   Case Else
75 
      DaemonInstructionOperationValue = ""
 82 
      DaemonInstructionOperationValue = ""
76 
   End Select
 83 
   End Select
77 
End Function
 84 
End Function
78 
 
 85 
 
Line 86... Line 93...
86 
      DaemonInstructionNeedsPV_ID = True
 93 
      DaemonInstructionNeedsPV_ID = True
87 
 
 94 
 
88 
   Case OP_CODE_1_TEST_BUILD_PACKAGE
 95 
   Case OP_CODE_1_TEST_BUILD_PACKAGE
89 
      DaemonInstructionNeedsPV_ID = True
 96 
      DaemonInstructionNeedsPV_ID = True
90 
 
 97 
 
- 
 
 98 
   Case OP_CODE_2_FUTURE_BUILD
- 
 
 99 
      DaemonInstructionNeedsPV_ID = True
- 
 
 100 
 
91 
   Case Else
 101 
   Case Else
92 
      DaemonInstructionNeedsPV_ID = False
 102 
      DaemonInstructionNeedsPV_ID = False
93 
   End Select
 103 
   End Select
94 
End Function
 104 
End Function
95 
 
 105