зеркало из https://github.com/mozilla/gecko-dev.git
File Removed.
This commit is contained in:
jj%netscape.com
Родитель
b2951b5f50
Коммит
1576d14b51
|
|
@ -1,44 +0,0 @@
|
|||
#!perl
|
||||
|
||||
#
|
||||
# The contents of this file are subject to the Netscape Public
|
||||
# License Version 1.1 (the "License"); you may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of
|
||||
# the License at http://www.mozilla.org/NPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS
|
||||
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
# implied. See the License for the specific language governing
|
||||
# rights and limitations under the License.
|
||||
#
|
||||
# The Original Code is mozilla.org code.
|
||||
#
|
||||
# The Initial Developer of the Original Code is Netscape
|
||||
# Communications Corporation. Portions created by Netscape are
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s):
|
||||
#
|
||||
|
||||
use Moz;
|
||||
use BuildList;
|
||||
|
||||
$DEBUG = 0;
|
||||
|
||||
# One of them should be 1. This will come from a config file at some stage.
|
||||
# In the meanwhile, it should match mozilla/config/mac/MacConfig.h
|
||||
$MOZ_LITE = 0;
|
||||
$MOZ_MEDIUM = 1;
|
||||
$MOZ_DARK = 0;
|
||||
|
||||
Moz::OpenErrorLog(":::Mozilla.BuildLog");
|
||||
Moz::StopForErrors();
|
||||
|
||||
chdir("::::");
|
||||
|
||||
# Make and popuplate the dist directory
|
||||
DistMozilla();
|
||||
|
||||
# Now build the projects
|
||||
BuildMozilla();
|
||||
|
|
@ -1,48 +0,0 @@
|
|||
#!perl
|
||||
|
||||
#
|
||||
# The contents of this file are subject to the Netscape Public
|
||||
# License Version 1.1 (the "License"); you may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of
|
||||
# the License at http://www.mozilla.org/NPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS
|
||||
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
# implied. See the License for the specific language governing
|
||||
# rights and limitations under the License.
|
||||
#
|
||||
# The Original Code is mozilla.org code.
|
||||
#
|
||||
# The Initial Developer of the Original Code is Netscape
|
||||
# Communications Corporation. Portions created by Netscape are
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s):
|
||||
#
|
||||
|
||||
use Moz;
|
||||
use BuildList;
|
||||
|
||||
$DEBUG = 1;
|
||||
|
||||
# One of them should be 1. This will come from a config file at some stage.
|
||||
# In the meanwhile, it should match mozilla/config/mac/MacConfig.h
|
||||
$MOZ_LITE = 0;
|
||||
$MOZ_MEDIUM = 1;
|
||||
$MOZ_DARK = 0;
|
||||
|
||||
Moz::OpenErrorLog(":::Mozilla.BuildLog");
|
||||
Moz::StopForErrors();
|
||||
|
||||
chdir("::::");
|
||||
|
||||
# Make and popuplate the dist directory
|
||||
DistMozilla();
|
||||
|
||||
# Set the build number in about-all.html. Commented out for now
|
||||
# until ckid/mcvs resource problem is resolved.
|
||||
# SetBuildNumber();
|
||||
|
||||
# Now build the projects
|
||||
BuildMozilla();
|
||||
|
|
@ -1,55 +0,0 @@
|
|||
#!perl
|
||||
|
||||
#
|
||||
# The contents of this file are subject to the Netscape Public
|
||||
# License Version 1.1 (the "License"); you may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of
|
||||
# the License at http://www.mozilla.org/NPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS
|
||||
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
# implied. See the License for the specific language governing
|
||||
# rights and limitations under the License.
|
||||
#
|
||||
# The Original Code is mozilla.org code.
|
||||
#
|
||||
# The Initial Developer of the Original Code is Netscape
|
||||
# Communications Corporation. Portions created by Netscape are
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s):
|
||||
#
|
||||
|
||||
use Moz;
|
||||
use BuildList;
|
||||
|
||||
$DEBUG = 1;
|
||||
|
||||
# One of them should be 1. This will come from a config file at some stage.
|
||||
# In the meanwhile, it should match mozilla/config/mac/MacConfig.h
|
||||
$MOZ_LITE = 0;
|
||||
$MOZ_MEDIUM = 1;
|
||||
$MOZ_DARK = 0;
|
||||
|
||||
Moz::OpenErrorLog(":::Mozilla.BuildLog");
|
||||
Moz::StopForErrors();
|
||||
|
||||
chdir("::::");
|
||||
|
||||
SetBuildNumber();
|
||||
|
||||
SetTimeBomb(0, 30);
|
||||
|
||||
# Make and popuplate the dist directory
|
||||
DistMozilla();
|
||||
|
||||
Delay(10);
|
||||
|
||||
# Set the build number in about-all.html. Commented out for now
|
||||
# until ckid/mcvs resource problem is resolved.
|
||||
|
||||
# SetAgentString();
|
||||
|
||||
# Now build the projects
|
||||
BuildMozilla();
|
||||
|
|
@ -1,908 +0,0 @@
|
|||
global PPCPROJECTFAILED
|
||||
global CVSSESSIONFILE
|
||||
global CVSSESSIONNAME
|
||||
global BUILDLIST
|
||||
global BUILDNAME
|
||||
global FOLDERTIME
|
||||
global SOURCEPATH
|
||||
global CHECKOUTTIME
|
||||
global TINDERBOXTREE
|
||||
global MACHINEADMIN
|
||||
global CLOBBERBUILD
|
||||
global STARTUPDISK
|
||||
global BINARYPATH
|
||||
property CONFIGFILENAME : "Tinderbox Config"
|
||||
|
||||
-------------------------
|
||||
on CreateLogFile(logFilePath)
|
||||
-- creates a "build log" file
|
||||
-------------------------
|
||||
global logFileID
|
||||
set logFileID to 0
|
||||
try
|
||||
set logFileID to open for access file logFilePath with write permission
|
||||
--set the type of alias logFilePath to "CWIE"
|
||||
on error errMsg2 number errNum
|
||||
if (errNum is not -49) then
|
||||
-- nothing to do about such errors
|
||||
error errMsg2 & " error = " & errNum
|
||||
end if
|
||||
end try
|
||||
end CreateLogFile
|
||||
|
||||
-------------------------
|
||||
on CloseLogFile()
|
||||
-- close log file
|
||||
-------------------------
|
||||
global logFileID
|
||||
if logFileID is not 0 then close access logFileID
|
||||
end CloseLogFile
|
||||
|
||||
-------------------------
|
||||
on logMessage(m)
|
||||
-- logs a message to the log file
|
||||
-------------------------
|
||||
global logFileID
|
||||
try
|
||||
if logFileID is not 0 then write (m as string) & (ASCII character 13) to logFileID
|
||||
--display dialog m
|
||||
on error
|
||||
-- hmmm??
|
||||
end try
|
||||
end logMessage
|
||||
|
||||
-------------------------
|
||||
on trim(q)
|
||||
-- strip leading and trailing white space.
|
||||
-------------------------
|
||||
set realLast to length of q
|
||||
repeat
|
||||
if realLast is 0 then exit repeat
|
||||
set c to character realLast of q
|
||||
if c is not space and c is not tab then exit repeat
|
||||
set realLast to realLast - 1
|
||||
end repeat
|
||||
if (realLast is 0) then return ""
|
||||
set realFirst to 1
|
||||
repeat
|
||||
if realFirst > realLast then exit repeat
|
||||
set c to character realFirst of q
|
||||
if c is not space and c is not tab then exit repeat
|
||||
set realFirst to realFirst + 1
|
||||
end repeat
|
||||
if (realFirst > realLast) then return ""
|
||||
return text realFirst through realLast of q
|
||||
end trim
|
||||
|
||||
-------------------------
|
||||
on Token(aString, tokenRequested)
|
||||
-- Return the string up to the first space. Input must be trimmed.
|
||||
-------------------------
|
||||
set tokenFirst to 0 -- offset of first char of current token
|
||||
set tokenCount to 0 -- which token we are examining
|
||||
set tokenScan to 0 -- offset of next character being examined
|
||||
set stringLength to length of aString
|
||||
if (tokenRequested = 0) then return ""
|
||||
repeat
|
||||
set tokenFirst to tokenFirst + 1
|
||||
set tokenCount to tokenCount + 1
|
||||
-- check for inital whitespace
|
||||
repeat
|
||||
set c to character tokenFirst of aString
|
||||
if c is not space and c is not tab then exit repeat
|
||||
set tokenFirst to tokenFirst + 1
|
||||
end repeat
|
||||
-- check for inital quote
|
||||
set isQuotedString to false
|
||||
if c is "\"" then
|
||||
set isQuotedString to true
|
||||
set tokenFirst to tokenFirst + 1
|
||||
end if
|
||||
-- scan for the next white space or the end of string
|
||||
set tokenScan to tokenFirst - 1
|
||||
repeat
|
||||
set tokenScan to tokenScan + 1
|
||||
if tokenScan > stringLength then exit repeat
|
||||
set c to character tokenScan of aString
|
||||
if (isQuotedString) then
|
||||
if c is "\"" then exit repeat
|
||||
else
|
||||
if c is space or c is tab then exit repeat -- whitespace
|
||||
end if
|
||||
end repeat
|
||||
-- Got a token
|
||||
if (tokenCount = tokenRequested) then
|
||||
return trim(text tokenFirst through (tokenScan - 1) of aString)
|
||||
end if
|
||||
if (tokenScan > stringLength) then return ""
|
||||
set tokenFirst to tokenScan
|
||||
end repeat
|
||||
end Token
|
||||
|
||||
-------------------------
|
||||
on monthNumber(dateObj)
|
||||
-------------------------
|
||||
set monthList to {January, February, March, April, May, Â
|
||||
June, July, August, September, October, November, December}
|
||||
set m to month of dateObj
|
||||
repeat with i from 1 to number of items of monthList
|
||||
if m = item i of monthList then
|
||||
return i
|
||||
end if
|
||||
end repeat
|
||||
end monthNumber
|
||||
|
||||
-------------------------
|
||||
on ExtractTimeString(d)
|
||||
-- given a date object, extract hh.mm
|
||||
-------------------------
|
||||
set tstring to ""
|
||||
set t to (time of d as integer)
|
||||
set m to (t div 60 as integer)
|
||||
set h to m div 60
|
||||
set m to (m - h * 60)
|
||||
if (h < 10) then set tstring to tstring & "0"
|
||||
set tstring to tstring & h
|
||||
if (m < 10) then set tstring to tstring & "0"
|
||||
set tstring to tstring & m
|
||||
return tstring
|
||||
end ExtractTimeString
|
||||
|
||||
-------------------------
|
||||
on ExtractDateString(d)
|
||||
-- given a date object, extract yy/mm/dd
|
||||
-------------------------
|
||||
set dstring to (year of d) & "."
|
||||
set m to monthNumber(d)
|
||||
if (m < 10) then set dstring to dstring & "0"
|
||||
set dstring to dstring & m & "."
|
||||
set d to (day of d)
|
||||
if (d < 10) then set dstring to dstring & "0"
|
||||
set dstring to dstring & d
|
||||
return dstring
|
||||
end ExtractDateString
|
||||
|
||||
-------------------------
|
||||
on GetCVSTimeStamp(d)
|
||||
-- turns AppleScript date object into a text CVS type time stamp
|
||||
-- suitable for passing into MacCVS
|
||||
-------------------------
|
||||
set dstring to ""
|
||||
set m to monthNumber(d)
|
||||
if (m < 10) then set dstring to "0"
|
||||
set dstring to m & "/"
|
||||
set dayNum to (day of d)
|
||||
if (dayNum < 10) then set dstring to dstring & "0"
|
||||
set dstring to dstring & dayNum & "/"
|
||||
set theYear to ((year of d) as string)
|
||||
set dstring to dstring & {characters 3 thru 4 of theYear}
|
||||
|
||||
set tstring to ""
|
||||
set t to (time of d as integer)
|
||||
set m to (t div 60 as integer)
|
||||
set h to m div 60
|
||||
set m to (m - h * 60)
|
||||
if (h < 10) then set tstring to tstring & "0"
|
||||
set tstring to tstring & h & ":"
|
||||
if (m < 10) then set tstring to tstring & "0"
|
||||
set tstring to tstring & m & ":"
|
||||
set s to (t mod 60)
|
||||
if (s < 10) then set tstring to tstring & 0
|
||||
set tstring to tstring & s
|
||||
|
||||
set theresult to ((dstring & " " & tstring & " PST") as string)
|
||||
return theresult
|
||||
end GetCVSTimeStamp
|
||||
|
||||
-------------------------
|
||||
on GetTimeStamp()
|
||||
-- returns a numeric string given for a date object
|
||||
-------------------------
|
||||
set d to current date
|
||||
set dstring to ExtractDateString(d) & "." & ExtractTimeString(d)
|
||||
set dstring to dstring as string
|
||||
return dstring
|
||||
end GetTimeStamp
|
||||
|
||||
-------------------------
|
||||
-- given a full path, return the name of the last object
|
||||
on GetCVSSessionName(path)
|
||||
-- given a mac style path, return the string name of the
|
||||
-- last object in a path
|
||||
-------------------------
|
||||
set going to true
|
||||
set i to the length of path
|
||||
|
||||
repeat while going is true
|
||||
set theChar to character i of path
|
||||
if theChar is ":" then
|
||||
set going to false
|
||||
end if
|
||||
set i to i - 1
|
||||
end repeat
|
||||
set sessionName to (characters {i + 2} thru length of path)
|
||||
return sessionName as string
|
||||
end GetCVSSessionName
|
||||
|
||||
-------------------------
|
||||
on doOnePPCProject(projpath, targetName)
|
||||
-- process one PPC project, given path to project and the target
|
||||
-- if target is "" build frontmost target (the default)
|
||||
-------------------------
|
||||
global gDoAliases
|
||||
set noError to false
|
||||
with timeout of 3600 seconds (* one hour*)
|
||||
|
||||
try
|
||||
tell application "CodeWarrior IDE 3.2"
|
||||
open {projpath}
|
||||
end tell
|
||||
on error errMsg number errNum
|
||||
logMessage("Error : Can't open project " & projpath)
|
||||
set PPCPROJECTFAILED to true
|
||||
error
|
||||
end try
|
||||
|
||||
if targetName is not "" then
|
||||
tell application "CodeWarrior IDE 3.2"
|
||||
Set Current Target (targetName as string)
|
||||
end tell
|
||||
end if
|
||||
|
||||
try
|
||||
tell application "CodeWarrior IDE 3.2"
|
||||
set myErrors to Make Project
|
||||
end tell
|
||||
on error number errNum
|
||||
if errNum < 0 then
|
||||
set noError to true
|
||||
end if
|
||||
end try
|
||||
if noError is false then
|
||||
tell application "CodeWarrior IDE 3.2"
|
||||
set theProjectName to my GetProjectName(projpath)
|
||||
Save Error Window As {STARTUPDISK & ":" & FOLDERTIME & ":" & theProjectName & ".txt"}
|
||||
end tell
|
||||
set PPCPROJECTFAILED to true
|
||||
end if
|
||||
tell application "CodeWarrior IDE 3.2"
|
||||
Close Project
|
||||
end tell
|
||||
end timeout
|
||||
return (noError)
|
||||
end doOnePPCProject
|
||||
|
||||
|
||||
-------------------------
|
||||
on ReadLn(fileRefNum)
|
||||
-- strip empty lines and strip terminal comments
|
||||
-------------------------
|
||||
try
|
||||
repeat
|
||||
set q to read fileRefNum before return
|
||||
if q is not "" then
|
||||
set hashOffset to offset of "#" in q
|
||||
if (hashOffset is 0) then set hashOffset to offset of "//" in q
|
||||
if (hashOffset > 1) then
|
||||
set q to text 1 thru (hashOffset - 1) of q
|
||||
end if
|
||||
if hashOffset is not 1 and q is not "" then
|
||||
-- strip trailing white space.
|
||||
set q to trim(q)
|
||||
if q is not "" then return q
|
||||
end if
|
||||
end if
|
||||
end repeat
|
||||
on error errString number errNum
|
||||
if errNum is -39 then -- no more lines (eof)
|
||||
return ""
|
||||
end if
|
||||
ErrorMessage(errString)
|
||||
error errString
|
||||
return errString
|
||||
end try
|
||||
end ReadLn
|
||||
|
||||
on ProcessList(theListFile)
|
||||
try
|
||||
with timeout of 14400 seconds -- four hours
|
||||
tell application "MacPerl"
|
||||
Do Script {theListFile as alias}
|
||||
end tell
|
||||
end timeout
|
||||
on error
|
||||
end try
|
||||
|
||||
end ProcessList
|
||||
|
||||
(* Initialize script. Read Config file. Get source directory *)
|
||||
on Initialize()
|
||||
|
||||
try
|
||||
-- find the config file at the same level as this applescript
|
||||
-- if you're running this in script debugger, uncomment lines below
|
||||
set oldDelimiters to AppleScript's text item delimiters
|
||||
set myPath to (path to me) as text
|
||||
set AppleScript's text item delimiters to {":"}
|
||||
set pl to (every text item of myPath)
|
||||
set configPath to (items 1 thru ((count of pl) - 1) of pl) as string
|
||||
set configPath to configPath & ":" & CONFIGFILENAME
|
||||
set AppleScript's text item delimiters to oldDelimiters
|
||||
|
||||
set f to 0
|
||||
|
||||
-- DEBUG
|
||||
-- uncomment this for debugging
|
||||
-- set configPath to "Forge:Tinderbox:cm:client:mac:contbuild:Tinderbox Config"
|
||||
set f to open for access {configPath as alias}
|
||||
|
||||
set MACHINEADMIN to ReadLn(f)
|
||||
set TINDERBOXTREE to ReadLn(f)
|
||||
set BUILDNAME to ReadLn(f)
|
||||
|
||||
set clobberstring to ReadLn(f)
|
||||
if clobberstring is "Clobber" then
|
||||
set CLOBBERBUILD to true
|
||||
else
|
||||
set CLOBBERBUILD to false
|
||||
end if
|
||||
|
||||
set CVSSESSIONFILE to ReadLn(f)
|
||||
set BUILDLIST to ReadLn(f)
|
||||
set BINARYPATH to ReadLn(f)
|
||||
|
||||
if f is not 0 then
|
||||
close access f
|
||||
end if
|
||||
on error
|
||||
display dialog "Failed to read config file!"
|
||||
end try
|
||||
|
||||
set CHECKOUTTIME to GetCVSTimeStamp(current date)
|
||||
|
||||
set SOURCEPATH to getLocalCVSRoot(CVSSESSIONFILE)
|
||||
|
||||
tell application "Finder"
|
||||
set STARTUPDISK to name of startup disk
|
||||
end tell
|
||||
|
||||
createLogDirectory(STARTUPDISK & ":")
|
||||
CreateLogFile(STARTUPDISK & ":" & FOLDERTIME & ":" & "Tinderbox Script Log")
|
||||
|
||||
logMessage("Machine Administrator: " & MACHINEADMIN)
|
||||
logMessage("Building to Tinderbox Tree: " & TINDERBOXTREE)
|
||||
logMessage("Building: " & BUILDNAME)
|
||||
|
||||
if (CLOBBERBUILD) then
|
||||
logMessage("Building Clobber")
|
||||
else
|
||||
logMessage("Building Depend")
|
||||
end if
|
||||
logMessage("CVS Session file at: " & CVSSESSIONFILE)
|
||||
logMessage("BuildList at: " & BUILDLIST)
|
||||
logMessage("Binary file at: " & BINARYPATH)
|
||||
return true
|
||||
|
||||
end Initialize
|
||||
|
||||
-- given a full path, return the name of the last object
|
||||
on GetProjectName(path)
|
||||
set going to true
|
||||
set i to the length of path
|
||||
repeat while going is true
|
||||
set theChar to character i of path
|
||||
if theChar is ":" then
|
||||
set going to false
|
||||
end if
|
||||
set i to i - 1
|
||||
end repeat
|
||||
return (characters {i + 2} thru length of path)
|
||||
end GetProjectName
|
||||
|
||||
|
||||
on notifyHook(result)
|
||||
if result is true then
|
||||
tell application "Eudora Pro 3.1"
|
||||
activate
|
||||
set newMsg to make new message at end of mailbox "Out" of mail folder ""
|
||||
set field "Subject:" of newMsg to "Mac Continous Build FAILED"
|
||||
set body of newMsg to "
|
||||
The last Mac Continous Build Failed at: " & " " & {CHECKOUTTIME as text} & "
|
||||
Since you are on the hook, you might be responsible for the breakage.
|
||||
|
||||
Please check the logs at: http://warp/tinderbox/showbuilds.cgi?tree=" & TINDERBOXTREE & "
|
||||
|
||||
to see if you busted the build."
|
||||
set field "To:" of newMsg to "bonsai-hook"
|
||||
activate
|
||||
queue message newMsg
|
||||
connect with sending without checking
|
||||
end tell
|
||||
end if
|
||||
end notifyHook
|
||||
|
||||
on notifyTinderBoxStart()
|
||||
try
|
||||
tell application "Eudora Pro 3.1"
|
||||
activate
|
||||
set newMsg to make new message at end of mailbox "Out" of mail folder ""
|
||||
set body of newMsg to "
|
||||
|
||||
tinderbox: tree: " & TINDERBOXTREE & "
|
||||
tinderbox: builddate: " & CHECKOUTTIME & "
|
||||
tinderbox: status: building
|
||||
tinderbox: build: " & BUILDNAME & "
|
||||
tinderbox: errorparser: mac
|
||||
"
|
||||
set field "To:" of newMsg to "tinderbox-daemon@warp"
|
||||
activate
|
||||
queue message newMsg
|
||||
connect with sending without checking
|
||||
quit
|
||||
end tell
|
||||
on error
|
||||
CloseLogFile()
|
||||
display dialog "MAIL SERVER ERROR: CAN'T SEND COMPLETION E-MAIL. SCRIPT HALTED"
|
||||
error number -128
|
||||
end try
|
||||
|
||||
end notifyTinderBoxStart
|
||||
|
||||
on notifyTinderBox(result)
|
||||
try
|
||||
if result is true then
|
||||
|
||||
tell application "Finder"
|
||||
set thelist to (every file of folder (STARTUPDISK & ":" & FOLDERTIME & ":"))
|
||||
end tell
|
||||
|
||||
set numFiles to count of thelist
|
||||
set i to 1
|
||||
set aliasList to {}
|
||||
|
||||
repeat numFiles times
|
||||
set aliasList to aliasList & (item i of thelist as alias)
|
||||
set i to i + 1
|
||||
end repeat
|
||||
|
||||
tell application "Eudora Pro 3.1"
|
||||
activate
|
||||
set newMsg to make new message at end of mailbox "Out" of mail folder ""
|
||||
attach to newMsg documents aliasList
|
||||
set field "Subject:" of newMsg to "Mac Continous Build FAILED"
|
||||
set body of newMsg to "
|
||||
|
||||
tinderbox: tree: " & TINDERBOXTREE & "
|
||||
tinderbox: builddate: " & CHECKOUTTIME & "
|
||||
tinderbox: status: busted
|
||||
tinderbox: build: " & BUILDNAME & "
|
||||
tinderbox: errorparser: mac
|
||||
"
|
||||
set field "To:" of newMsg to "tinderbox-daemon@warp"
|
||||
activate
|
||||
queue message newMsg
|
||||
connect with sending without checking
|
||||
quit
|
||||
end tell
|
||||
end if
|
||||
|
||||
if result is false then
|
||||
|
||||
tell application "Finder"
|
||||
set thelist to (every file of folder (STARTUPDISK & ":" & FOLDERTIME & ":"))
|
||||
end tell
|
||||
|
||||
set numFiles to count of thelist
|
||||
set i to 1
|
||||
set aliasList to {}
|
||||
|
||||
repeat numFiles times
|
||||
set aliasList to aliasList & (item i of thelist as alias)
|
||||
set i to i + 1
|
||||
end repeat
|
||||
|
||||
tell application "Eudora Pro 3.1"
|
||||
activate
|
||||
set newMsg to make new message at end of mailbox "Out" of mail folder ""
|
||||
set field "Subject:" of newMsg to "Mac Continous Build SUCCEEDED"
|
||||
set body of newMsg to "
|
||||
|
||||
tinderbox: tree: " & TINDERBOXTREE & "
|
||||
tinderbox: builddate: " & CHECKOUTTIME & "
|
||||
tinderbox: status: success
|
||||
tinderbox: build: " & BUILDNAME & "
|
||||
tinderbox: errorparser: mac
|
||||
"
|
||||
set field "To:" of newMsg to "tinderbox-daemon@warp"
|
||||
activate
|
||||
queue message newMsg
|
||||
connect with sending without checking
|
||||
quit
|
||||
end tell
|
||||
end if
|
||||
on error
|
||||
CloseLogFile()
|
||||
display dialog "MAIL SERVER ERROR: CAN'T SEND COMPLETION E-MAIL. SCRIPT HALTED"
|
||||
error number -128
|
||||
end try
|
||||
|
||||
end notifyTinderBox
|
||||
|
||||
on PageAdmin(pageMesg)
|
||||
tell application "Eudora Pro 3.1"
|
||||
activate
|
||||
set newMsg to make new message at end of mailbox "Out" of mail folder ""
|
||||
set field "To:" of newMsg to MACHINEADMIN
|
||||
set field "Subject:" of newMsg to TINDERBOXTREE & " " & BUILDNAME & " Continous Build failed"
|
||||
if pageMesg is not "" then
|
||||
set body of newMsg to pageMesg
|
||||
end if
|
||||
activate
|
||||
queue message newMsg
|
||||
connect with sending without checking
|
||||
quit
|
||||
end tell
|
||||
end PageAdmin
|
||||
|
||||
-- remove all directories from the local root, removing the old tree
|
||||
on removeOldTree()
|
||||
|
||||
try
|
||||
tell application "Finder"
|
||||
open folder (SOURCEPATH as string)
|
||||
select every item of item of container window of folder (SOURCEPATH as string)
|
||||
delete selection
|
||||
close container window of folder (SOURCEPATH as string)
|
||||
empty trash
|
||||
end tell
|
||||
on error
|
||||
CloseLogFile()
|
||||
set PPCPROJECTFAILED to true
|
||||
logMessage("Error : Couldn't delete the old tree.")
|
||||
PageAdmin("Couldn't nuke old tree!")
|
||||
display dialog ("Couldn't nuke old tree! SCRIPT HALTED")
|
||||
error number -128
|
||||
end try
|
||||
|
||||
end removeOldTree
|
||||
|
||||
-- remove the 'dist' directory from the local root
|
||||
on removeOldDist() --¥
|
||||
|
||||
try
|
||||
tell application "Finder"
|
||||
set distPath to SOURCEPATH & ":mozilla:dist"
|
||||
open folder (distPath as string)
|
||||
select every item of item of container window of folder (distPath as string)
|
||||
delete selection
|
||||
close container window of folder (distPath as string)
|
||||
empty trash
|
||||
end tell
|
||||
on error
|
||||
CloseLogFile()
|
||||
set PPCPROJECTFAILED to true
|
||||
logMessage("Error : Couldn't delete the old 'dist' directory.")
|
||||
PageAdmin("Couldn't nuke old 'dist' directory!")
|
||||
display dialog ("Couldn't nuke old 'dist' directory! SCRIPT HALTED")
|
||||
error number -128
|
||||
end try
|
||||
|
||||
end removeOldDist
|
||||
|
||||
on checkoutModule(cvsmodule, cvsRevision)
|
||||
|
||||
try
|
||||
with timeout of 1800 seconds (* 30 minutes *)
|
||||
if cvsRevision is "" then
|
||||
tell application "MacCVS Pro 2.1b2r1 PPC"
|
||||
tell session CVSSESSIONNAME
|
||||
activate
|
||||
checkout module cvsmodule
|
||||
end tell
|
||||
end tell
|
||||
else
|
||||
tell application "MacCVS Pro 2.1b2r1 PPC"
|
||||
tell session CVSSESSIONNAME
|
||||
activate
|
||||
checkout module cvsmodule revision cvsRevision
|
||||
end tell
|
||||
end tell
|
||||
end if
|
||||
end timeout
|
||||
if cvsRevision is "" then
|
||||
logMessage("Check-out of " & cvsmodule & "successful!")
|
||||
else
|
||||
logMessage("Check-out of " & cvsmodule & "at revision: " & cvsRevision & " successful!")
|
||||
end if
|
||||
on error errMsg number errNum
|
||||
if cvsRevision is "" then
|
||||
set PPCPROJECTFAILED to true
|
||||
logMessage("Error : Can't check out module: " & cvsmodule & " revision: Tip")
|
||||
logMessage("Error : " & errMsg)
|
||||
error "Can't check out module"
|
||||
else
|
||||
set PPCPROJECTFAILED to true
|
||||
logMessage("Error : Can't check out module: " & cvsmodule & " revision: " & cvsRevision)
|
||||
logMessage("Error : " & errMsg)
|
||||
error "Can't check out module"
|
||||
end if
|
||||
end try
|
||||
|
||||
end checkoutModule
|
||||
|
||||
on checkOutTree(pathToCVSSession)
|
||||
|
||||
try
|
||||
set oldDelimiters to AppleScript's text item delimiters
|
||||
set myPath to (path to me) as text
|
||||
set AppleScript's text item delimiters to {":"}
|
||||
set pl to (every text item of myPath)
|
||||
set configPath to (items 1 thru ((count of pl) - 1) of pl) as string
|
||||
set configPath to configPath & ":" & CONFIGFILENAME
|
||||
set AppleScript's text item delimiters to oldDelimiters
|
||||
|
||||
set f to 0
|
||||
|
||||
-- set configPath to "Forge:Tinderbox:cm:client:mac:contbuild:Tinderbox Config"
|
||||
set f to open for access {configPath as alias}
|
||||
(* read past the cruft of the config file *)
|
||||
ReadLn(f)
|
||||
ReadLn(f)
|
||||
ReadLn(f)
|
||||
ReadLn(f)
|
||||
ReadLn(f)
|
||||
ReadLn(f)
|
||||
ReadLn(f)
|
||||
on error
|
||||
CloseLogFile()
|
||||
set PPCPROJECTFAILED to true
|
||||
logMessage("Couldn't check-out the tree: couldn't read modules" & return)
|
||||
logMessage(errMsg)
|
||||
PageAdmin("Couldn't check-out the tree: couldn't read modules")
|
||||
display dialog "Couldn't read modules from config file: SCRIPT HALTED"
|
||||
error number -128
|
||||
end try
|
||||
|
||||
-- open the session
|
||||
tell application "MacCVS Pro 2.1b2r1 PPC"
|
||||
activate
|
||||
open {pathToCVSSession as alias}
|
||||
end tell
|
||||
|
||||
try
|
||||
repeat
|
||||
set cvsmodule to ReadLn(f)
|
||||
if cvsmodule is "" then exit repeat
|
||||
if cvsmodule = "CVS Session" then
|
||||
switchCVSSession(f)
|
||||
else
|
||||
set revision to Token(cvsmodule, 2)
|
||||
set cvsmodule to Token(cvsmodule, 1)
|
||||
checkoutModule(cvsmodule, revision)
|
||||
end if
|
||||
end repeat
|
||||
logMessage("### Checked-out all required modules")
|
||||
on error
|
||||
--¥tell application "MacCVS Pro 2.1b2r1 PPC"
|
||||
--¥quit
|
||||
--¥end tell
|
||||
-- toss something up to run()
|
||||
error
|
||||
end try
|
||||
|
||||
--¥tell application "MacCVS Pro 2.1b2r1 PPC"
|
||||
--¥quit
|
||||
--¥end tell
|
||||
|
||||
end checkOutTree
|
||||
|
||||
on switchCVSSession(f)
|
||||
|
||||
tell application "MacCVS Pro 2.1b2r1 PPC"
|
||||
close session CVSSESSIONNAME
|
||||
end tell
|
||||
|
||||
set newSessionPath to ReadLn(f)
|
||||
set newSessionName to GetCVSSessionName(newSessionPath)
|
||||
|
||||
set CVSSESSIONNAME to newSessionName
|
||||
|
||||
tell application "MacCVS Pro 2.1b2r1 PPC"
|
||||
activate
|
||||
open {newSessionPath as alias}
|
||||
end tell
|
||||
|
||||
end switchCVSSession
|
||||
|
||||
on getLocalCVSRoot(pathToCVSSession)
|
||||
|
||||
set CVSSESSIONNAME to GetCVSSessionName(pathToCVSSession)
|
||||
try
|
||||
tell application "MacCVS Pro 2.1b2r1 PPC"
|
||||
open {pathToCVSSession as alias}
|
||||
tell session CVSSESSIONNAME
|
||||
set theLocalRoot to local root
|
||||
end tell
|
||||
--¥quit
|
||||
end tell
|
||||
set pathLength to {(get the length of (theLocalRoot as text)) as text}
|
||||
return (characters 1 thru {pathLength - 1} of (theLocalRoot as text))
|
||||
on error
|
||||
display dialog "Error : CVS Session path wrong, or doesn't have a local root. SCRIPT HALTED!"
|
||||
error number -128
|
||||
end try
|
||||
|
||||
end getLocalCVSRoot
|
||||
|
||||
on createLogDirectory(destFolder)
|
||||
|
||||
tell application "Finder"
|
||||
set FOLDERTIME to my GetTimeStamp()
|
||||
make new folder at folder (destFolder)
|
||||
set the name of the result to FOLDERTIME
|
||||
end tell
|
||||
|
||||
end createLogDirectory
|
||||
|
||||
on mozillaLives(filePath)
|
||||
|
||||
try
|
||||
tell application "Finder"
|
||||
set fileTest to file filePath
|
||||
set creatorType to get the creator type of fileTest
|
||||
set fileTest to application file filePath
|
||||
set partitionSize to get the partition size of fileTest
|
||||
if (creatorType is "????" and partitionSize > 0) then
|
||||
return false
|
||||
else
|
||||
return true
|
||||
end if
|
||||
end tell
|
||||
on error
|
||||
return true
|
||||
end try
|
||||
|
||||
end mozillaLives
|
||||
|
||||
on copyFile(srcPath, destFolder)
|
||||
|
||||
try
|
||||
tell application "Finder"
|
||||
copy file (srcPath as alias) to folder (destFolder as alias)
|
||||
-- set the name of the result to destName
|
||||
end tell
|
||||
on error msgErr
|
||||
logMessage("Error: Could not copy - " & srcPath & msgErr)
|
||||
end try
|
||||
|
||||
end copyFile
|
||||
|
||||
on getDriveName(path)
|
||||
|
||||
set going to true
|
||||
set i to 1
|
||||
|
||||
repeat while going is true
|
||||
set theChar to character i of path
|
||||
if theChar is ":" then
|
||||
set going to false
|
||||
end if
|
||||
set i to i + 1
|
||||
end repeat
|
||||
set driveName to (characters 1 thru {i - 1} of path)
|
||||
return driveName as string
|
||||
|
||||
end getDriveName
|
||||
|
||||
on trashItem(filePath)
|
||||
|
||||
try
|
||||
tell application "Finder"
|
||||
select item (filePath as string)
|
||||
delete selection
|
||||
empty trash
|
||||
end tell
|
||||
on error
|
||||
logMessage("Error : Couldn't delete the old binary.")
|
||||
PageAdmin("Couldn't nuke old binary!")
|
||||
display dialog "Couldn't nuke old binary: SCRIPT HALTED"
|
||||
error number -128
|
||||
end try
|
||||
|
||||
end trashItem
|
||||
|
||||
on run
|
||||
|
||||
-- if we are executing first time, skip time delay check
|
||||
set firstRun to true
|
||||
|
||||
--¥repeat
|
||||
|
||||
-- if we're cycling around, make sure we don't cycle faster than 10 minutes
|
||||
if firstRun is false then
|
||||
if endTime - startTime is less than 600 then
|
||||
repeat while endTime - startTime is less than 600
|
||||
set endTime to current date
|
||||
end repeat
|
||||
end if
|
||||
end if
|
||||
|
||||
set firstRun to false
|
||||
|
||||
set startTime to current date
|
||||
|
||||
-- 2 hour timeout
|
||||
with timeout of 7200 seconds
|
||||
|
||||
set PPCPROJECTFAILED to false
|
||||
|
||||
-- read config file and create log directories
|
||||
Initialize()
|
||||
|
||||
notifyTinderBoxStart()
|
||||
|
||||
if (CLOBBERBUILD) then
|
||||
removeOldTree()
|
||||
else
|
||||
removeOldDist() --¥
|
||||
end if
|
||||
|
||||
(*
|
||||
else
|
||||
trashItem("")
|
||||
end
|
||||
*)
|
||||
|
||||
try
|
||||
checkOutTree(CVSSESSIONFILE)
|
||||
on error
|
||||
PageAdmin("Can't check out tree!")
|
||||
end try
|
||||
|
||||
if PPCPROJECTFAILED is false then
|
||||
set SOURCEPATH to getLocalCVSRoot(CVSSESSIONFILE)
|
||||
set SOURCEPATH to SOURCEPATH as string
|
||||
|
||||
ProcessList(SOURCEPATH & BUILDLIST)
|
||||
|
||||
tell application "CodeWarrior IDE 3.2"
|
||||
quit
|
||||
end tell
|
||||
|
||||
tell application "MacCVS Pro 2.1b2r1 PPC"
|
||||
quit
|
||||
end tell
|
||||
|
||||
tell application "ToolServer"
|
||||
quit
|
||||
end tell
|
||||
|
||||
end if
|
||||
|
||||
-- set builddrive to getDriveName(SOURCEPATH)
|
||||
|
||||
copyFile(SOURCEPATH & ":Mozilla.BuildLog", STARTUPDISK & ":" & FOLDERTIME & ":")
|
||||
set PPCPROJECTFAILED to mozillaLives(SOURCEPATH & BINARYPATH)
|
||||
|
||||
CloseLogFile()
|
||||
|
||||
try
|
||||
notifyTinderBox(PPCPROJECTFAILED)
|
||||
on error
|
||||
PageAdmin("Couldn't send Tinderbox completion message!")
|
||||
end try
|
||||
|
||||
tell application "Finder"
|
||||
select folder FOLDERTIME of startup disk
|
||||
delete selection
|
||||
--¥empty trash
|
||||
restart --¥
|
||||
end tell
|
||||
|
||||
end timeout
|
||||
|
||||
set endTime to current date
|
||||
|
||||
--¥end repeat
|
||||
|
||||
end run
|
||||
|
|
@ -1,44 +0,0 @@
|
|||
#!perl
|
||||
|
||||
#
|
||||
# The contents of this file are subject to the Netscape Public
|
||||
# License Version 1.1 (the "License"); you may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of
|
||||
# the License at http://www.mozilla.org/NPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS
|
||||
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
# implied. See the License for the specific language governing
|
||||
# rights and limitations under the License.
|
||||
#
|
||||
# The Original Code is mozilla.org code.
|
||||
#
|
||||
# The Initial Developer of the Original Code is Netscape
|
||||
# Communications Corporation. Portions created by Netscape are
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s):
|
||||
#
|
||||
|
||||
use Moz;
|
||||
use BuildList;
|
||||
|
||||
$DEBUG = 1;
|
||||
|
||||
# One of them should be 1. This will come from a config file at some stage.
|
||||
# In the meanwhile, it should match mozilla/config/mac/MacConfig.h
|
||||
$MOZ_LITE = 0;
|
||||
$MOZ_MEDIUM = 1;
|
||||
$MOZ_DARK = 0;
|
||||
|
||||
Moz::OpenErrorLog("::::Mozilla.BuildLog");
|
||||
#Moz::StopForErrors();
|
||||
|
||||
chdir("::::");
|
||||
|
||||
# Make and popuplate the dist directory
|
||||
DistMozilla();
|
||||
|
||||
# Now build the projects
|
||||
BuildMozilla();
|
||||
|
|
@ -1,102 +0,0 @@
|
|||
#!perl
|
||||
|
||||
#
|
||||
# The contents of this file are subject to the Netscape Public
|
||||
# License Version 1.1 (the "License"); you may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of
|
||||
# the License at http://www.mozilla.org/NPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS
|
||||
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
# implied. See the License for the specific language governing
|
||||
# rights and limitations under the License.
|
||||
#
|
||||
# The Original Code is mozilla.org code.
|
||||
#
|
||||
# The Initial Developer of the Original Code is Netscape
|
||||
# Communications Corporation. Portions created by Netscape are
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s):
|
||||
#
|
||||
|
||||
#
|
||||
# nglayout build script (debug)
|
||||
#
|
||||
use NGLayoutBuildList;
|
||||
use Cwd;
|
||||
use Moz;
|
||||
|
||||
|
||||
# configuration variables
|
||||
|
||||
$DEBUG = 1;
|
||||
$ALIAS_SYM_FILES = 0;
|
||||
$CLOBBER_LIBS = 1;
|
||||
$MOZ_FULLCIRCLE = 0;
|
||||
$GC_LEAK_DETECTOR = 0; # turn on to use GC leak detection
|
||||
|
||||
# The following two options will delete all files, but leave the directory structure intact.
|
||||
$CLOBBER_DIST_ALL = 0; # turn on to clobber all files inside dist (headers, xsym and libs)
|
||||
$CLOBBER_DIST_LIBS = 0; # turn on to clobber the aliases to libraries and sym files in dist
|
||||
|
||||
$pull{all} = 0;
|
||||
$pull{lizard} = 0;
|
||||
$pull{xpcom} = 0;
|
||||
$pull{imglib} = 0;
|
||||
$pull{netlib} = 0;
|
||||
$pull{nglayout} = 0;
|
||||
$pull{mac} = 0;
|
||||
|
||||
$build{all} = 1; # turn off to do individual builds, or to do "most"
|
||||
$build{most} = 0; # turn off to do individual builds
|
||||
$build{dist} = 0;
|
||||
$build{dist_runtime} = 0; # implied by $build{dist}
|
||||
$build{idl} = 0;
|
||||
$build{resources} = 0;
|
||||
$build{stubs} = 0;
|
||||
$build{runtime} = 0;
|
||||
$build{common} = 0;
|
||||
$build{intl} = 0;
|
||||
$build{nglayout} = 0;
|
||||
$build{editor} = 0;
|
||||
$build{viewer} = 0;
|
||||
$build{xpapp} = 0;
|
||||
$build{mailnews} = 0;
|
||||
$build{apprunner} = 0;
|
||||
|
||||
|
||||
# script
|
||||
|
||||
$pull{all} = 1;
|
||||
$build{all} = 1;
|
||||
|
||||
if ($pull{all})
|
||||
{
|
||||
foreach $k (keys(%pull))
|
||||
{
|
||||
$pull{$k} = 1;
|
||||
}
|
||||
}
|
||||
if ($build{all})
|
||||
{
|
||||
foreach $k (keys(%build))
|
||||
{
|
||||
$build{$k} = 1;
|
||||
}
|
||||
}
|
||||
|
||||
# do the work
|
||||
|
||||
OpenErrorLog("::::Mozilla.BuildLog"); # Tinderbox requires that name
|
||||
|
||||
chdir("::::");
|
||||
|
||||
Checkout();
|
||||
|
||||
BuildDist();
|
||||
|
||||
BuildProjects();
|
||||
|
||||
print "Build complete\n";
|
||||
|
|
@ -1,99 +0,0 @@
|
|||
#!perl
|
||||
|
||||
#
|
||||
# The contents of this file are subject to the Netscape Public
|
||||
# License Version 1.1 (the "License"); you may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of
|
||||
# the License at http://www.mozilla.org/NPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS
|
||||
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
# implied. See the License for the specific language governing
|
||||
# rights and limitations under the License.
|
||||
#
|
||||
# The Original Code is mozilla.org code.
|
||||
#
|
||||
# The Initial Developer of the Original Code is Netscape
|
||||
# Communications Corporation. Portions created by Netscape are
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s):
|
||||
#
|
||||
|
||||
#
|
||||
# nglayout build script (debug)
|
||||
#
|
||||
use NGLayoutBuildList;
|
||||
use Cwd;
|
||||
use Moz;
|
||||
|
||||
|
||||
# configuration variables
|
||||
|
||||
$DEBUG = 0;
|
||||
$ALIAS_SYM_FILES = 0;
|
||||
$CLOBBER_LIBS = 1;
|
||||
$MOZ_FULLCIRCLE = 0;
|
||||
$GC_LEAK_DETECTOR = 0; # turn on to use GC leak detection
|
||||
|
||||
# The following two options will delete all files, but leave the directory structure intact.
|
||||
$CLOBBER_DIST_ALL = 0; # turn on to clobber all files inside dist (headers, xsym and libs)
|
||||
$CLOBBER_DIST_LIBS = 0; # turn on to clobber the aliases to libraries and sym files in dist
|
||||
|
||||
$pull{all} = 1;
|
||||
$pull{lizard} = 0;
|
||||
$pull{xpcom} = 0;
|
||||
$pull{imglib} = 0;
|
||||
$pull{netlib} = 0;
|
||||
$pull{nglayout} = 0;
|
||||
$pull{mac} = 0;
|
||||
|
||||
$build{all} = 1; # turn off to do individual builds, or to do "most"
|
||||
$build{most} = 0; # turn off to do individual builds
|
||||
$build{dist} = 0;
|
||||
$build{dist_runtime} = 0; # implied by $build{dist}
|
||||
$build{idl} = 0;
|
||||
$build{resources} = 0;
|
||||
$build{stubs} = 0;
|
||||
$build{runtime} = 0;
|
||||
$build{common} = 0;
|
||||
$build{intl} = 0;
|
||||
$build{nglayout} = 0;
|
||||
$build{editor} = 0;
|
||||
$build{viewer} = 0;
|
||||
$build{xpapp} = 0;
|
||||
$build{mailnews} = 0;
|
||||
$build{apprunner} = 0;
|
||||
|
||||
# script
|
||||
|
||||
|
||||
if ($pull{all})
|
||||
{
|
||||
foreach $k (keys(%pull))
|
||||
{
|
||||
$pull{$k} = 1;
|
||||
}
|
||||
}
|
||||
if ($build{all})
|
||||
{
|
||||
foreach $k (keys(%build))
|
||||
{
|
||||
$build{$k} = 1;
|
||||
}
|
||||
}
|
||||
|
||||
# do the work
|
||||
|
||||
OpenErrorLog("::::Mozilla.BuildLog"); # Tinderbox requires that name
|
||||
|
||||
chdir("::::");
|
||||
|
||||
Checkout();
|
||||
|
||||
BuildDist();
|
||||
|
||||
BuildProjects();
|
||||
|
||||
print "Build complete\n";
|
||||
Загрузка…
Ссылка в новой задаче