source: diffs/smtube_1.8_GA.diff@ 159

diff -Naur E:\trees\smtube\trunk\..\vendor\current/build_os2.cmd E:\trees\smtube\trunk/build_os2.cmd
--- E:\trees\smtube\trunk\..\vendor\current/build_os2.cmd       1970-01-01 01:00:00.000000000 +0100
+++ E:\trees\smtube\trunk/build_os2.cmd 2013-11-28 12:54:50.000000000 +0100
@@ -0,0 +1,288 @@
+/* SMTube Build Script */
+/* root done by Herwig Bauernfeind, enhanced by Silvan Scherrer */
+
+/* version history */
+/* version 0.1.0 from 23.05.2013 Silvan (first edition) */
+/* version 0.1.1 from 05.06.2013 Silvan renamed readme files (happy birthday Justin) */
+/* version 0.2.0 from 28.11.2013 Silvan added branding, added diff */
+
+/* init the version string (don't forget to change) */
+version = "0.2.0"
+version_date = "28.11.2013"
+'@echo off'
+
+parse arg command option
+parse source . . scriptFile
+
+/* init the required vars */
+qRC = 0
+mRC = 0
+buildDir    = strip(directory(),'T','\') /* Make sure we have no trailing backslash */
+sourceDir = FixDir(filespec('D', scriptFile) || filespec('P', scriptFile))
+os2Dir     = sourceDir || '\os2'
+srcDir     = sourceDir || '\src'
+vendorDir  = sourceDir || '\..\vendor\current'
+diffDir    = sourceDir || '\..\'
+installDir = buildDir || '\install'
+installDirT= installDir || '\translations'
+qErrorFile = buildDir||'\qmake.err'
+qOutFile   = buildDir||'\qmake.out'
+mErrorFile = buildDir||'\make.err'
+mOutFile   = buildDir||'\make.out'
+
+/* get the SMTube version */
+SMTube_version = '0.0.0'
+SMTube_build = ''
+call version
+internal_build = translate(SMTube_version, '_', '.')
+
+title = "SMTube for eCS (OS/2) build script v" || version || " from " || version_date
+say title
+say
+say "Build directory :" buildDir
+say "Source directory:" sourceDir
+say
+say "SMTube version  :" SMTube_version
+say "       build    :" SMTube_build 
+say
+
+/* translate command to all upercase */
+command = translate(command)
+
+if command = "" then signal help
+
+if command = "INSTALL" then do
+    if option \== "" then do
+       SMTube_build = option
+    end
+    select
+       when SMTube_build \== "" then do
+         zipFile = installDir || '\SMTube-' || internal_build || '-' || SMTube_build || '.zip'
+       end
+       otherwise do
+         signal help
+       end
+    end 
+end
+
+/* now we translate also the options */
+option = translate(option)
+
+if sourceDir \== buildDir then do
+    say "Shadow build in progress ..."
+    say
+end
+
+say "Executing command: "command option
+
+select
+    when command = "MAKE" & option = "CLEAN" then do
+
+        say "cleaning the tree"
+        call make 'distclean'
+
+        say "please execute this script again with 'make' to build SMTube"
+
+    end
+    when command = "MAKE" then do
+
+        say "building svn_revision"
+       ok = SysMkDir(buildDir||'\src')
+        address cmd 'sh ' sourceDir||'\get_svn_revision.sh ' sourceDir ' "eCS(OS/2) build"'
+
+        say "creating SMTube makefile"
+        call qmake
+
+        if qRC = 0 then do
+            say "building SMTube"
+           if option = "" then do
+               call make
+           end
+           else do
+               call make 'debug'
+           end
+        end
+
+    end
+
+    when command = "INSTALL" then do
+
+/* first delete everything */
+       call deleteall
+
+/* create the installDir,and the translation subdir */
+       ok = SysMkDir(installDir)
+       ok = SysMkDir(installDirT)
+
+/* copy the exe */
+       ok = SysCopyObject(buildDir||'\src\smtube.exe',installDir)
+
+/* copy the readme */
+       rm.0 = 3
+       rm.1 = 'smtube_en.txt'
+       rm.2 = 'smtube_de.txt'
+       rm.3 = 'smtube_fr.txt'
+       do i = 1 to rm.0
+       cmdtorun = 'sed "s;_VERSION_;' || SMTube_version || ';g" ' || os2Dir || '\' || rm.i || ' | sed "s;_BUILD_;' || SMTube_build || ';g" >' || installDir || '\' || rm.i
+        address cmd cmdtorun
+       end
+
+/* create the qm files from ts files */
+       ok = SysFileTree(srcDir||'\translations\*.ts', rm.,'FO')
+        do i = 1 to rm.0
+           fileName = filespec('N',rm.i)
+           fileName = left(fileName,lastpos('.', fileName)-1) || '.qm'
+            cmdtorun = 'lrelease ' || rm.i || ' -qm ' || installDir || '\translations\' || fileName
+           address cmd cmdtorun
+        end
+
+/* zip all dynamic stuff */
+       ok = directory(installDir)
+       cmdtorun = 'zip -r ' || zipFile || ' * -x *.zip'
+       address cmd cmdtorun
+        ok = directory(buildDir)
+
+/* zip all icons */
+       ok = directory(os2Dir)
+       cmdtorun = 'zip ' || zipFile || ' *.ico'
+       address cmd cmdtorun
+       ok = directory(buildDir)
+
+    end
+
+    when command = "UNINSTALL" then do
+
+       call deleteall
+       
+    end
+
+    when command = "DIFF" then do
+
+       address cmd 'diff -Naur ' || vendorDir || ' ' || sourceDir || ' > ' || diffDir || 'smtube_' || SMTube_version || '_' || SMTube_build || '.diff'
+       
+    end
+
+    otherwise do
+        say 'Unknown parameter "'command'" - aborting...'
+        exit 1
+    end
+end
+
+/* cleanup the mess */
+error:
+
+if qRC = 0 & mRC = 0 then do
+    ok = SysFileDelete(mOutFile)
+    ok = SysFileDelete(mErrorFile)
+    ok = SysFileDelete(qOutFile)
+    ok = SysFileDelete(qErrorFile)
+end
+else do
+    if mRC <> 0 then do
+        say "Alarm! Make errors occured! Look at "mOutFile" and "mErrorFile
+    end
+    if qRC <> 0 then do
+        say "Alarm! qMake errors occured! Look at "qOutFile" and "qErrorFile
+    end
+end
+
+exit 0
+
+qmake:
+    address cmd 'qmake ' sourceDir ' "APPLICATION_VERSION='SMTube_version'" 2>'qErrorFile' 1>'qOutFile
+    qRC = RC
+    if qRC <> 0 then do
+        call beep 880, 20
+        say "Alarm! qmake RC="RC
+    end
+return
+
+make:
+    makeparm = arg(1)
+    address cmd 'make 'makeparm' 2>'mErrorFile' 1>'mOutFile
+    mRC = RC
+    if mRC <> 0 then do
+        call beep 880, 20
+        say "Alarm! make RC="RC
+    end
+return
+
+
+deleteall: /* delete installDir (including subdirs) except zip files */
+
+    say "Delete all files except *zip in " installDir
+    ok = SysFileTree(installDir||'\*', rm.,'FOS')
+    do i = 1 to rm.0
+       if translate(right(rm.i, 3)) \== 'ZIP' then do
+          ok = SysFileDelete(rm.i)
+       end
+    end
+
+    say "Delete zip file " zipFile