Changeset 851

Timestamp:

Feb 18, 2014, 3:43:13 PM (11 years ago)

Author:

Silvan Scherrer

Message:

Samba Server 3.6: more exceptq work Ticket #236

File:

• trunk/server/source3/build.cmd (modified) (7 diffs)

trunk/server/source3/build.cmd

@@ -25 +25 @@
                                          don't check for env anymore, use sh only */
 /* version 1.0.1 from 13.01.2014 Silvan (always brand when svn rev changes */
+/* version 1.0.2 from 18.02.2014 Silvan (create xqs files for exceptq */
                                          
 /* load the sysfuncs if not already loaded */
@@ -33 +34 @@
 
 /* init the version string (don't forget to change) */
-version      = "1.0.1"
-version_date = "13.01.2014"
+version      = "1.0.2"
+version_date = "18.02.2014"
 
 '@echo off'
@@ -176 +177 @@
 
 if make = "CLEAN" then do
+    call XQSPart "del" 
     address cmd "make clean"
 end
@@ -181 +183 @@
 if make <> "" then do
     address cmd 'make -j 'jobs' 2>&1 | tee 'logFile
+    call XQSPart "crt"
 end
 
 if pos("ZIP", cmdline) > 0 then do
-    say 'Creating "samba-'translate(verstring,'-',' ')'.zip"'
-    ok = SysFileDelete('samba-'translate(verstring,'-',' ')'.zip')
+
+    zipName = "samba-"translate(verstring, '-',' ')
+    say 'Creating "'zipName'.zip"'
+    ok = SysFileDelete(zipName'.zip')
+    ok = SysFileDelete(zipName'_xqs.zip')
+
     'cd .\bin'
     'md .\samba'
@@ -194 +201 @@
     'copy ..\..\..\codepages\*.dat .\codepage\*'
     'cd ..'
-    'zip -rpo9 samba-'translate(verstring,'-',' ')'.zip .\samba\*.exe .\samba\*.dll .\samba\codepage\*.dat'
+    'zip -rpo9 'zipName'.zip .\samba\*.exe .\samba\*.dll .\samba\codepage\*.dat'
     'cd .\samba'
     'move * .. >NUL'
@@ -201 +208 @@
     'cd ..'
     'rd .\samba'
+    'zip -rpo9 'zipName'_xqs.zip *.xqs'
     'cd ..'
     say 'Created ZIP package'
@@ -378 +386 @@
 
     return
+
+/**
+ * delete or create the xqs files
+ */
+XQSPart: procedure
+    parse arg what
+
+    binDir = 'bin'
+    what = translate(what)
+
+    if what = 'DEL' then do
+       say "Delete all xqs files in " || binDir
+       ending = '*.xqs'
+    end
+
+    if what = 'CRT' then do
+       say "Create xqs files for all map files in " || binDir
+       ending = '*.map'
+    end
+
+    ok = SysFileTree(binDir || '\' || ending,files.,"FO")
+    do i = 1 to files.0
+
+       if what = 'DEL' then do
+          ok = SysFileDelete(files.i)
+       end
+       if what = 'CRT' then do
+          address cmd "mapxqs -o " || substr(files.i, 1, length(files.i)-3) || "xqs " || files.i
+       end
+
+    end
+
+    return