Changeset 228 for trunk/lingosource/castlib1/svn_Utilities.ls

Timestamp:

03/20/09 18:08:22 (3 years ago)

Author:

alex

Message:

added handler to export only scripttext with metadata for the member and added new handler to svn quicklinks to update all castlibs

File:

• trunk/lingosource/castlib1/svn_Utilities.ls (modified) (3 diffs)

trunk/lingosource/castlib1/svn_Utilities.ls

@@ -1393 +1393 @@
   
   if ilk(infolist) <> #proplist then
-    infolistPath = thePath & "memberInfo.xml"
-    infolist = mReadXML_2_List(me, infolistPath)
-    if ilk(infolist) <> #proplist then infolist = [:]
-    
-    infolist = infolist.getaprop(symbol(fname))
-    if ilk(infolist) <> #proplist then infolist = [:]
+    
+    offs = offset("--!memberProperties:", scrtext)
+    
+    if offs > 0 then
+      infolist = scrtext.char[offs + 20 .. length(scrtext)]
+      offs = offset("]", infolist)
+      if offs > 0 then
+        infolist = value(infolist.char[1 .. offs])
+      end if
+    end if
+    
+    if ilk(infolist) <> #proplist then
+      infolistPath = thePath & "memberInfo.xml"
+      infolist = mReadXML_2_List(me, infolistPath)
+      if ilk(infolist) <> #proplist then infolist = [:]
+      
+      infolist = infolist.getaprop(symbol(fname))
+      if ilk(infolist) <> #proplist then infolist = [:]
+    end if
+    
   end if
   
@@ -2549 +2563 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
+on mSVN_Update_AllCastlibs_and_source me, chooseNewPath, onlyUpdate_SVN_WorkingFolder, selectionList, revisionNumber, dontShowAlert
+  mSVN_Update_Working_Copy_ScriptText me, revisionNumber, void, #all, 1
+  mSVN_Update_SelectedCastlib me, chooseNewPath, onlyUpdate_SVN_WorkingFolder, #all, revisionNumber, dontShowAlert
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
 on mSVN_Update_SelectedCastlib_and_source me, chooseNewPath, onlyUpdate_SVN_WorkingFolder, selectionList, revisionNumber, dontShowAlert
   mSVN_Update_Working_Copy_ScriptText me, revisionNumber, void, selectionList, 1
@@ -2560 +2581 @@
   castlibList = 0
   
-  selectionList = string(selectionList)
-  if length(selectionList) > 0 then
-    
-    offs = offset("'", selectionList)
-    repeat while offs > 0
-      put QUOTE into char offs of selectionList
+  if symbolP(selectionList) then
+    -- #all
+    clnum = the number of castlibs
+    castlibList = []
+    repeat with n = 1 to clnum
+      castlibList.add(n)
+    end repeat
+    
+  else
+    
+    selectionList = string(selectionList)
+    if length(selectionList) > 0 then
+      
       offs = offset("'", selectionList)
-    end repeat
-    
-    if char 1 of selectionList <> "[" then put "[" before selectionList
-    if the last char of selectionList <> "]" then put "]" after selectionList
-    
-    selectionList = value(selectionList)
-    if listP(selectionList) then
-      clnum = the number of castlibs + 1
-      castlibList = []
-      selectionListCnt = count(selectionList)
-      repeat with n = 1 to selectionListCnt
-        
-        cl = castlib(selectionList[n])
-        if ilk(cl) = #castlib then
-          int = cl.number
-          if castlibList.getPos(int) < 1 then
-            castlibList.add(int)
-          end if
-        else
-          int = integer(selectionList[n])
-          if integerP(int) then
-            if clnum > int then
-              if castlibList.getPos(int) < 1 then castlibList.add(int)
+      repeat while offs > 0
+        put QUOTE into char offs of selectionList
+        offs = offset("'", selectionList)
+      end repeat
+      
+      if char 1 of selectionList <> "[" then put "[" before selectionList
+      if the last char of selectionList <> "]" then put "]" after selectionList
+      
+      selectionList = value(selectionList)
+      if listP(selectionList) then
+        clnum = the number of castlibs + 1
+        castlibList = []
+        selectionListCnt = count(selectionList)
+        repeat with n = 1 to selectionListCnt
+          
+          cl = castlib(selectionList[n])
+          if ilk(cl) = #castlib then
+            int = cl.number
+            if castlibList.getPos(int) < 1 then
+              castlibList.add(int)
+            end if
+          else
+            int = integer(selectionList[n])
+            if integerP(int) then
+              if clnum > int then
+                if castlibList.getPos(int) < 1 then castlibList.add(int)
+              end if
             end if
           end if
-        end if
-      end repeat
+        end repeat
+      end if
     end if
   end if