Rakefiles: distribute demos in the "toy" archive
...so people can have a look. Beware that these demos are
not maintained even by eXept and many, many of them are
actually broken or depend on some obscure packages that
are not maintained. Too bad.
See https://swing.fit.cvut.cz/projects/stx-jv/ticket/189
(grafted from 6899f0183a0d3b097cdb3afa7b1bce7b8e80f41d)
def build_platform_id()
return "#{ARCH}-#{win32? ? 'win32' : RbConfig::CONFIG['host_os']}"
end
# A helper function to download and unpack pre-built stc and librun
# for those who are not lucky enough to have an access to sources
def download_blob_matching(pattern, directory)
plat = nil
blob = nil
sha256 = nil
if win32? then
plat = 'Windows'
elsif linux?
plat = 'Linux'
else
error_unsupported_platform()
end
build = Jenkins::Build.new(%Q{https://swing.fit.cvut.cz/jenkins/job/stx_jv/lastStableBuild})
platform = build_platform_id()
build.artifacts.each do | artifact |
if (pattern =~ artifact.name) and (artifact.name.include? platform) then
if artifact.name.end_with? '.sha256' then
sha256 = artifact
else
blob = artifact
end
end
end
if not blob then
error "No artifact matching given pattern found"
end
puts "Downloading binary component #{blob.name}"
blob.download_to(directory)
if sha256 then
sha256.download_to(directory)
end
unzip directory / blob.name, remove: true
rm_f directory / sha256.name
end
project :'stx:jv-branch-core' do
# Core Smalltalk/X - does contain only standard libraries,
# and development tools. Does not contain any other 'features'
# like XML suite, Java support. Usable as a basis for standalone
# applications that needs some JV-branch features.
import :'stx:baseline'
# FORKED STC and librun
package "stx:stc", :repository => :'swing:private:hg', :branch => 'jv',
:checkout => (Proc.new do | pkg |
# Download pre-compiled binary if user has no access to source code
if Rake::Stx::Configuration::Repository::find(pkg.repository) then
checkout pkg.repository, 'stx/stc', :branch => pkg.branch, :revision => pkg.revision
else
download_blob_matching(/prebuilt-stc/, BUILD_DIR / 'stx')
end
end),
:update => (Proc.new do | pkg |
if (File.exists? BUILD_DIR / 'stx' / 'stc' / '.hg' / 'hgrc') then
update pkg.repository, 'stx/stc', :branch => pkg.branch, :revision => pkg.revision
else
warn "Not updating #{pkg.name} as no HG repository found in #{BUILD_DIR / 'stx' / 'stc'}"
end
end)
package "stx:librun", :repository => :'swing:private:hg', :branch => 'jv',
:checkout => (Proc.new do | pkg |
# Download pre-compiled binary if user has no access to source code
if Rake::Stx::Configuration::Repository::find(pkg.repository) then
checkout pkg.repository, 'stx/librun', :branch => pkg.branch, :revision => pkg.revision
else
download_blob_matching(/prebuilt-librun/, BUILD_DIR / 'stx')
end
end),
:update => (Proc.new do | pkg |
if (File.exists? BUILD_DIR / 'stx' / 'librun' / '.hg' / 'hgrc') then
update pkg.repository, 'stx/stc', :branch => pkg.branch, :revision => pkg.revision
else
warn "Not updating #{pkg.name} as no HG repository found in #{BUILD_DIR / 'stx' / 'librun'}"
end
end)
# FORKED libraries
# ======================================================================
package "stx:libbasic", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libbasic2", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libbasic3", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libcomp", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libtool", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libtool2",:repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libview", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libview2", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libwidg", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libwidg2", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:goodies/sunit", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:goodies/monticello", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:goodies/refactoryBrowser", :repository => :'bitbucket:janvrany', :branch => 'jv'
package "stx:libsvn", :repository => :'bitbucket:janvrany', :branch => 'jv'
# Some more development tools to build and preload
# ======================================================================
package "stx:goodies/xml/vw", :repository => :'exept:public'
package "stx:goodies/xml/stx", :repository => :'exept:public'
# SmallSense
package "stx:goodies/regex", :repository => :'exept:public'
package "stx:goodies/smallsense", :repository => :'bitbucket:janvrany'
package "stx:goodies/smallsense/refactoring_custom"
tasks do
# Build and install documentation for stx:libjava and stx:libscm/mercurial
task "install:pre" do
chdir BUILD_DIR / 'stx' / 'libjava' do
make "doc-install"
end
chdir BUILD_DIR / 'stx' / 'libscm' / 'mercurial' do
make "doc-install"
end
end
# Try execute run the VM if it starts up
task :'compile:post' do
if PROJECT == 'stx:jv-branch' then
chdir BUILD_DIR / 'stx' / 'projects' / 'smalltalk' do
if win32?
cmd = "smalltalk.bat --abortOnSEGV -I --quick --eval \"Stdout nextPutLine:'OKay, VM runs'. Smalltalk exit: 0\""
else
cmd = "./smalltalk --abortOnSEGV -I --quick --eval \"Stdout nextPutLine:'OKay, VM runs'. Smalltalk exit: 0\""
end
if not system cmd
raise Exception.new("Cannot run smalltalk!")
end
end
end
end
if win32_wine?
task :'stx:projects/smalltalk:pre' do
chdir (BUILD_DIR / 'stx' / 'projects' / 'smalltalk') do
make "buildDate.h"
end
end
end
# Hack for badly-named files in libtool
task :'stx:libtool:post' do
chdir (BUILD_DIR / 'stx' / 'libtool') do
# Windows does not support symlinks, copy the file
if win32?
if not File.exist? 'Tools_BrowserList.STH'
cp 'Tools__BrowserList.STH', 'Tools_BrowserList.STH'
end
if not File.exist? 'Tools_NavigatorModel.STH'
cp 'Tools__NavigatorModel.STH', 'Tools_NavigatorModel.STH'
end
if not File.exist? 'Tools_NavigationState.STH'
cp 'Tools__NavigationState.STH', 'Tools_NavigationState.STH'
end
else
if not File.exist? 'Tools_BrowserList.H'
ln_s 'Tools__BrowserList.H', 'Tools_BrowserList.H'
end
if not File.exist? 'Tools_NavigatorModel.H'
ln_s 'Tools__NavigatorModel.H', 'Tools_NavigatorModel.H'
end
if not File.exist? 'Tools_NavigationState.H'
ln_s 'Tools__NavigationState.H', 'Tools_NavigationState.H'
end
end
end
end
end
end
project :'stx:jv-branch' do
# Standard Smalltalk/X IDE with some nice libraries preloaded
import :'stx:jv-branch-core'
app_name "smalltalkx-jv-branch"
app_version "6.2.6_#{BUILD_ID}"
# Forked PetitParser
package "stx:goodies/petitparser", :repository => :'bitbucket:janvrany', :link => false
package "stx:goodies/petitparser/tests", :link => false
package "stx:goodies/petitparser/analyzer", :link => false
package "stx:goodies/petitparser/analyzer/tests", :link => false
# Monticello
package "stx:libcompat", :repository => :'exept:public'
package "stx:goodies/communication", :repository => :'exept:public'
# Java support
package "stx:libjava", :repository => :'bitbucket:janvrany'
package "stx:libjava/tools"
package "stx:libjava/experiments"
#package "stx:libjava/examples" :link => false
# Smalltalk/X IDE
application 'stx:projects/smalltalk', :repository => :'bitbucket:janvrany', :branch => 'jv'
package 'stx:libscm', :repository => :'bitbucket:janvrany'
package 'stx:libscm/common', :repository => :'bitbucket:janvrany'
package 'stx:libscm/mercurial', :repository => :'bitbucket:janvrany'
package 'stx:libscm/mercurial/monticello', :repository => :'bitbucket:janvrany'
package 'stx:goodies/ring', :repository => :'bitbucket:janvrany', :link => false
package 'stx:goodies/libcairo', :repository => :'bitbucket:janvrany', :link => false
package 'stx:goodies/cypress', :repository => :'bitbucket:janvrany'
package "stx:goodies/xmlsuite", :repository => :'bitbucket:janvrany'
package "stx:goodies/loggia", :repository => :'exept:public', :link => false
package 'stx:goodies/smaCC',:repository => :'bitbucket:janvrany'
package 'stx:goodies/regression',:repository => :'bitbucket:janvrany', :branch => 'jv', :link => false
package "stx:goodies/builder", :repository => :'bitbucket:janvrany',:branch => 'jv', :link => false
package "stx:goodies/builder/reports"
# Define a "default" test suite, i.e., a set of tests that are run when
# user does `rake test`.
package 'stx:libview/tests', :test => true;
package 'stx:libjava', :test => true;
package 'stx:libjava/tools', :test => true;
package 'stx:goodies/regression', :test => true;
package 'stx:libscm/mercurial', :test => true;
tasks do
# We need to checkout CharacterEncoderCodeGenerator from stx:goodies
# because RegressionTests::CharacterTests>>test01_CaseTesting needs that.
task 'checkout:post' => BUILD_DIR / 'stx' / 'goodies' / 'CharacterEncoderCodeGenerator.st'
file (BUILD_DIR / 'stx' / 'goodies' / 'CharacterEncoderCodeGenerator.st') do
checkout(:'exept:public', 'stx/goodies/CharacterEncoderCodeGenerator.st')
end
# Checkout & install demos. Too bad that demos are not in a package itself but
# rather a set of scaterred files here and there. So we have to checkout
# and install them manually
task 'checkout:post' => 'checkout:demos'
task 'checkout:demos' => [ BUILD_DIR / 'stx' / 'doc' / 'coding' ,
BUILD_DIR / 'stx' / 'goodies' / 'demos' ,
BUILD_DIR / 'stx' / 'clients' ]
file BUILD_DIR / 'stx' / 'doc' / 'coding' do
checkout(:'exept:public', 'stx/doc/coding')
end
file BUILD_DIR / 'stx' / 'goodies' / 'demos' do
checkout(:'exept:public', 'stx/goodies/demos')
end
file BUILD_DIR / 'stx' / 'clients' do
checkout(:'exept:public', 'stx/clients')
end
task 'dist:jv:post' => 'dist:jv:demos'
task 'dist:jv:demos' do
cp_rx BUILD_DIR / 'stx' / 'doc' / 'coding', $install_jv_dirs[:pkg_dir] / 'stx' / 'doc' do |fname|
# fname is full path!!!
/\.svn|CVS|\.cvsignore|tests/.match(fname).nil?
end
cp_rx BUILD_DIR / 'stx' / 'goodies' / 'demos', $install_jv_dirs[:pkg_dir] / 'stx' / 'goodies' do |fname|
# fname is full path!!!
/\.svn|CVS|\.cvsignore|tests/.match(fname).nil?
end
cp_rx BUILD_DIR / 'stx' / 'clients', $install_jv_dirs[:pkg_dir] / 'stx' do |fname|
# fname is full path!!!
/\.svn|CVS|\.cvsignore|tests/.match(fname).nil?
end
end
task :'install:main' => :'dist:jv-branch'
task :'dist:jv:pre' => :'stx:jv-branch:extractver'
if win32?
app_name = project.app_name || (raise Exception.new("No app_name property specified"))
app_version = project.app_version || (raise Exception.new("No app_version property specified"))
version = app_version.split('_').first
install_dir = ARTIFACTS_DIR / BUILD_NAME
bin_dir = install_dir / 'bin'
cairo_dlls = nil
if ARCH == 'i386'
cairo_dlls = [
'libcairo-2.dll' ,
'libfontconfig-1.dll' ,
'libfreetype-6.dll' ,
'liblzma-5.dll' ,
'libpixman-1-0.dll' ,
'libpng15-15.dll' ,
'libxml2-2.dll' ,
'zlib1.dll'
]
else
cairo_dlls = [
'fontconfig.dll' ,
'iconv.dll' ,
'libcairo-2.dll' ,
'libpng16.dll' ,
'libxml2.dll' ,
'pixman-1.dll' ,
'zlib1.dll'
]
end
task :'dist:jv:post' => [ :'stx:jv-branch:extractver' , :'dist:jv:variables' ]
cairo_dlls.each do | dll |
task :'dist:jv:post' => [ bin_dir / dll ]
file bin_dir / dll do
mkdir_p bin_dir
cp BUILD_DIR / 'stx' / 'goodies' / 'libcairo' / 'support' / 'win32' / (ARCH == 'i386' ? 'i586' : ARCH) / dll , bin_dir / dll
end
end
end
task :'dist:jv-branch' => [ :'dist:jv:all',
:'dist:jv:doc' ]
task :'install:main' => [:'stx:jv-branch:extractver']
task :'artifacts:main' => [:'stx:jv-branch:extractver']
task :'artifacts:post' => [:'stx:jv-branch:extractver'] do
# Just to be sure, refuse to create stc and librun archives
# if the directory contain sources. This is to prevent accidental
# leak of non-disclosed sources. Better safe than sorry!
if core_developer? || (File.exist? BUILD_DIR / 'stx' / 'stc' / '.hg') || (File.exist? BUILD_DIR / 'stx' / 'stc' / 'CVS') then
puts "WARNING: NOT CREATING stc archive since directory contains sources!!!"
else
# Be paranoid, do cleanup here. Should have been done, but who knows...
cleanup_stc()
zip BUILD_DIR / 'stx' / 'stc' , archive: ARTIFACTS_DIR / "#{project.app_name}-#{project.app_version}_#{build_platform_id()}_prebuilt-stc"
end
if core_developer? || (File.exist? BUILD_DIR / 'stx' / 'librun' / '.hg') || (File.exist? BUILD_DIR / 'stx' / 'librun' / 'CVS') then
puts "WARNING: NOT CREATING librun archive since directory contains sources!!!"
else
# Be paranoid, do cleanup here. Should have been done, but who knows...
cleanup_librun()
zip BUILD_DIR / 'stx' / 'librun' , archive: ARTIFACTS_DIR / "#{project.app_name}-#{project.app_version}_#{build_platform_id()}_prebuilt-librun"
end
end
end
end
task :'stx:jv-branch:extractver' => :'setup' do
ver = nil
if win32?
stx_exe = 'stx.com'
else
stx_exe = './stx'
end
chdir BUILD_DIR / 'stx' / 'projects' / 'smalltalk' do
ver = %x(#{stx_exe} --eval "Stdout nextPutAll: Smalltalk versionString")
if $?.exitstatus != 0
raise Exception.new("Failed extract version from stx")
end
end
ver = (ver.split(".")[0..2]).join(".")
project.app_version "#{ver}_#{BUILD_ID}"
# This is really ugly. We need to clean that up...
BUILD_NAME.replace "#{project.app_name}-#{project.app_version}_#{build_platform_id()}"
end
project :'stx:jv-branch:for-reports-only' do
import :'stx:jv-branch'
# Sigh, if we're about to run tests only, we don't want to
# run standard tests so we need to clean test flag.
package 'stx:libview/tests', :test => false;
package 'stx:libjava', :test => false;
package 'stx:libjava/tools', :test => false;
package 'stx:goodies/regression', :test => false;
package 'stx:libscm/mercurial', :test => false;
tasks do
task :'stx:projects/smalltalk:pre' do
chdir BUILD_DIR / 'stx' / 'projects' / 'smalltalk' do
if win32?
system "bmake clobber"
else
system "make clobber"
end
end
end
clear :'dist:install' => :'dist:jv-branch'
end
end