Subversion Repositories DevTools

Rev

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

Rev 3621 Rev 3865
Line 63... Line 63...
63 
End Function
 63 
End Function
64 
 
 64 
 
65 
'-------------------------------------------------------------------------------------------------------------
 65 
'-------------------------------------------------------------------------------------------------------------
66 
'Returns TRUE if the specified version has a COTS extension
 66 
'Returns TRUE if the specified version has a COTS extension
67 
'Also allow TOOLS extension as some of the build System tools are really COTS packages
 67 
'Also allow TOOLS extension as some of the build System tools are really COTS packages
- 
 
 68 
'
- 
 
 69 
' Should be read from the database
68 
Function HasCotsExtension(aversion)
 70 
Function HasCotsExtension(aversion)
69 
   Dim re: Set re = New RegExp
 71 
   Dim re: Set re = New RegExp
70 
   re.Pattern = "\.(tool)|(cots)$"
 72 
   re.Pattern = "\.(tool)|(cots)$"
71 
   HasCotsExtension = re.Test(aversion)
 73 
   HasCotsExtension = re.Test(aversion)
72 
   Set re = Nothing
 74 
   Set re = Nothing