|
| 1 | +CREATE PROCEDURE T4SQL.CMD_BUILD_SCRIPTS |
| 2 | +( |
| 3 | + @inWorkitem_Table NVARCHAR(128), |
| 4 | + @inSearch_Conditions NVARCHAR(4000), |
| 5 | + @outGenerated_Scripts NVARCHAR(MAX) |
| 6 | +) |
| 7 | +AS |
| 8 | + SET NOCOUNT ON |
| 9 | + |
| 10 | + IF OBJECT_ID(@inWorkitem_Table, N'U') IS NULL |
| 11 | + BEGIN |
| 12 | + SET @outGenerated_Scripts = N'------ Invalid table name ''' + @inWorkitem_Table + N''' (@inWorkitem_Table) ------'; |
| 13 | + PRINT @outGenerated_Scripts; |
| 14 | + RETURN -1; |
| 15 | + END; |
| 16 | + |
| 17 | + CREATE TABLE #WORKITEMS (ROW_INDEX INT PRIMARY KEY, WORKITEM_NAME NVARCHAR(32)); |
| 18 | + |
| 19 | + DECLARE @tCnt INT, @tSQL NVARCHAR(2000); |
| 20 | + |
| 21 | + SET @tSQL = N'SELECT ROW_NUMBER() OVER (ORDER BY ISNULL(BUILD_ORDER, 999999999), WORKITEM_NAME) AS ROW_INDEX, WORKITEM_NAME FROM ' + @inWorkitem_Table; |
| 22 | + |
| 23 | + IF LEN(@inSearch_Conditions) > 1 |
| 24 | + SET @tSQL += N' WHERE ' + @inSearch_Conditions; |
| 25 | + |
| 26 | + SET @tSQL += N' ORDER BY ISNULL(BUILD_ORDER, 999999999), WORKITEM_NAME'; |
| 27 | + |
| 28 | + INSERT INTO #WORKITEMS (ROW_INDEX, WORKITEM_NAME) |
| 29 | + EXECUTE sp_executesql @tSQL; |
| 30 | + |
| 31 | + SET @tCnt = @@ROWCOUNT; |
| 32 | + |
| 33 | + IF @tCnt = 0 |
| 34 | + BEGIN |
| 35 | + SET @outGenerated_Scripts = N'------------------ None workitem to build ------------------'; |
| 36 | + PRINT @outGenerated_Scripts; |
| 37 | + RETURN 0; |
| 38 | + END; |
| 39 | + |
| 40 | + SET @tSQL = N'UPDATE ' + @inWorkitem_Table + N' SET START_BUILD = 1 WHERE START_BUILD = 0'; |
| 41 | + |
| 42 | + IF LEN(@inSearch_Conditions) > 1 |
| 43 | + SET @tSQL += N' AND (' + @inSearch_Conditions + N')'; |
| 44 | + |
| 45 | + EXECUTE sp_executesql @tSQL; -- Start building |
| 46 | + |
| 47 | + WAITFOR DELAY '00:00:06'; |
| 48 | + |
| 49 | + DECLARE @tI INT, @tAttempts INT, @tWorkitem_Name NVARCHAR(32), @tParmDef NVARCHAR(512); |
| 50 | + DECLARE @tStart_Build BIT, @tObject_Code NVARCHAR(MAX), @tCompiled_Error NVARCHAR(2000); |
| 51 | + |
| 52 | + SET @tSQL = N'SELECT @outStart_Build = START_BUILD, @outObject_Code = OBJECT_CODE, @outCompiled_Error = COMPILED_ERROR FROM ' |
| 53 | + + @inWorkitem_Table + N' WHERE WORKITEM_NAME = @inWorkitem_Name'; |
| 54 | + SET @tParmDef = N'@inWorkitem_Name NVARCHAR(32), @outStart_Build BIT OUTPUT, @outObject_Code NVARCHAR(MAX) OUTPUT, @outCompiled_Error NVARCHAR(2000) OUTPUT'; |
| 55 | + SET @outGenerated_Scripts = N''; |
| 56 | + SET @tI = 1; |
| 57 | + |
| 58 | + WHILE @tI <= @tCnt |
| 59 | + BEGIN |
| 60 | + SELECT @tWorkitem_Name = WORKITEM_NAME FROM #WORKITEMS WHERE ROW_INDEX = @tI; |
| 61 | + |
| 62 | + SET @outGenerated_Scripts += N' |
| 63 | +------------------ Build started workitem: ' + @tWorkitem_Name + N' ------------------ |
| 64 | +'; |
| 65 | + SET @tAttempts = 60; |
| 66 | + |
| 67 | + WHILE 1 = 1 |
| 68 | + BEGIN |
| 69 | + SET @tStart_Build = NULL; |
| 70 | + SET @tObject_Code = NULL; |
| 71 | + SET @tCompiled_Error = NULL; |
| 72 | + |
| 73 | + EXECUTE sp_executesql @tSQL, @tParmDef, |
| 74 | + @tWorkitem_Name, |
| 75 | + @tStart_Build OUTPUT, |
| 76 | + @tObject_Code OUTPUT, |
| 77 | + @tCompiled_Error OUTPUT; |
| 78 | + IF @tStart_Build = 1 |
| 79 | + BEGIN |
| 80 | + IF @tAttempts > 0 -- Retry |
| 81 | + BEGIN |
| 82 | + WAITFOR DELAY '00:00:03'; |
| 83 | + SET @tAttempts -= 1; |
| 84 | + END |
| 85 | + ELSE |
| 86 | + BREAK; |
| 87 | + END |
| 88 | + ELSE |
| 89 | + BREAK; |
| 90 | + END; |
| 91 | + |
| 92 | + IF @tStart_Build IS NULL |
| 93 | + BEGIN |
| 94 | + SET @outGenerated_Scripts += N' |
| 95 | +------------------ Error: The workitem has been deleted by others ------------------ |
| 96 | +'; |
| 97 | + CONTINUE; |
| 98 | + END |
| 99 | + ELSE IF @tStart_Build = 1 |
| 100 | + BEGIN |
| 101 | + SET @outGenerated_Scripts += N' |
| 102 | +------------------ Error: Template Engine is down ------------------ |
| 103 | +'; |
| 104 | + BREAK; |
| 105 | + END; |
| 106 | + |
| 107 | + IF @tCompiled_Error IS NULL OR @tCompiled_Error = N'' |
| 108 | + SET @outGenerated_Scripts += @tObject_Code; |
| 109 | + ELSE |
| 110 | + SET @outGenerated_Scripts += N'/* |
| 111 | +' + @tCompiled_Error + N' |
| 112 | +*/'; |
| 113 | + |
| 114 | + SET @outGenerated_Scripts += N' |
| 115 | +------------------ Build ended workitem: ' + @tWorkitem_Name + N' ------------------ |
| 116 | +'; |
| 117 | + SET @tI += 1; |
| 118 | + END; |
| 119 | + |
| 120 | + SET @outGenerated_Scripts += N' |
| 121 | +------------------ Build Total: ' + CAST(@tCnt AS NVARCHAR(8)) + N' Workitems ------------------'; |
| 122 | + |
| 123 | + EXEC T4SQL.CMD_PRINT_ALL_LINES @outGenerated_Scripts; |
| 124 | + |
| 125 | +---------------------------------------------------------------------------------------------------- |
| 126 | +-- |
| 127 | +-- Copyright 2013 Abel Cheng |
| 128 | +-- This source code is subject to terms and conditions of the Apache License, Version 2.0. |
| 129 | +-- See http://www.apache.org/licenses/LICENSE-2.0. |
| 130 | +-- All other rights reserved. |
| 131 | +-- You must not remove this notice, or any other, from this software. |
| 132 | +-- |
| 133 | +-- Original Author: Abel Cheng <[email protected]> |
| 134 | +-- Created Date: June 20, 2013, 11:41:44 PM |
| 135 | +-- Primary Host: http://t4sql.codeplex.com |
| 136 | +-- Change Log: |
| 137 | +-- Author Date Comment |
| 138 | +-- |
| 139 | +-- |
| 140 | +-- |
| 141 | +-- |
| 142 | +-- (Keep code clean) |
| 143 | +-- |
| 144 | +---------------------------------------------------------------------------------------------------- |
0 commit comments