Changeset 93

Timestamp:

12/09/07 15:55:41 (4 years ago)

Author:

alex

Message:

various fixes in beta

Files:

• branches/beta/HandlerMenu_OSC.dcr (modified) (previous)
• branches/beta/HandlerMenu_OSC.dir (modified) (previous)
• branches/beta/castlib1/OSCmenu_Utilities.ls (modified) (1 diff)
• branches/beta/castlib1/alexUtilities.ls (modified) (3 diffs)
• trunk/HandlerMenu_OSC.dcr (modified) (previous)
• trunk/HandlerMenu_OSC.dir (modified) (previous)
• trunk/lingosource/castlib1/alexUtilities.ls (modified) (7 diffs)
• trunk/lingosource/castlib1/bbedit_Utilities.ls (modified) (2 diffs)
• trunk/lingosource/castlib1/svn_Utilities.ls (modified) (3 diffs)

branches/beta/castlib1/OSCmenu_Utilities.ls

@@ -362 +362 @@
     
     subli.add("Convert path from HFS to UNIX")
-    pLookUpCommandList.setaprop("Convert path from HFS to UNIX", ["mConvertHFS2Unix me", "alexUtilities"])
+    pLookUpCommandList.setaprop("Convert path from HFS to UNIX", ["mConvertHFS2Unix me, string_HFSPath", "alexUtilities"])
     subli.add("Convert path from UNIX to HFS")
-    pLookUpCommandList.setaprop("Convert path from UNIX to HFS", ["mConvertUnix2HFS me", "alexUtilities"])
+    pLookUpCommandList.setaprop("Convert path from UNIX to HFS", ["mConvertUnix2HFS me, string_UnixPath", "alexUtilities"])
     
   end if

branches/beta/castlib1/alexUtilities.ls

@@ -876 +876 @@
 
 on mDeleteMembersByName me, praefix
+  
+  searchParams = mProcessSearchString(me, praefix)
+  searchString = searchParams.getaprop(#searchString)
+  
   repeat with n = 1 to the number of castlibs
     repeat with z = 1 to the number of members of castlib n
-      if member(z, n).name starts praefix then
-        member(z, n).erase()
-      end if
+      
+      case searchParams.getaprop(#searchMode) of
+          
+        #startsWith:
+          if member(z, n).name starts searchString then
+            member(z, n).erase()
+          end if
+          
+        #endsWith:
+          theName = member(z, n).name
+          len = length(theName)
+          startchar = len - length(searchString) + 1
+          if theName.char[startchar .. len] = searchString then
+            member(z, n).erase()
+          end if
+          
+        #equals:
+          if member(z, n).name = searchString then
+            member(z, n).erase()
+          end if
+          
+        otherwise:
+          if member(z, n).name contains searchString then
+            member(z, n).erase()
+          end if
+          
+      end case
+      
     end repeat
   end repeat
 end
 
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mProcessSearchString me, srchString
+  
+  searchmode = #contains
+  
+  if char 1 of srchString = "^" then
+    if the last char of srchString <> "$" then
+      searchmode = #startsWith
+    else
+      searchmode = #equals
+      delete the last char of srchString
+    end if
+    delete char 1 of srchString
+  else
+    if the last char of srchString = "$" then
+      searchmode = #endsWith
+      delete the last char of srchString
+    end if
+  end if
+  
+  return [#searchString:srchString, #searchMode:searchmode]
+end
 
 
@@ -1008 +1060 @@
 
 on mSelectInScore me, startfr, endfr
+  
+  
+  ------------------------------
+  -- this allows to enter anything other than an integer or an integer < 1 in order to search all frames
+  if not(voidP(startfr)) then
+    startfr = integer(startfr)
+    if voidP(startfr) then
+      startfr = 1
+      endfr = 0
+    end if
+    if startfr < 1 then
+      startfr = 1
+      endfr = 0
+    end if
+  end if
+  ------------------------------
   
   cl = the activecastlib
@@ -1514 +1582 @@
   
   created = 0
+  
+  if mCheckForXtra(me, "BudAPI") then
+    theResult = baMsgBox("Create new index ?", "New index", "Yesno", "Question", 1)
+    if theResult = "Yes" then
+      theResult = baPrompt("Enter new title", "Enter new title", "New index", 0, -2, -2)
+      if length(theResult) then
+        tell helpwindow to mCreateIndexMember theResult
+      end if
+    end if
+  end if
   
   repeat with n = 1 to anz

trunk/lingosource/castlib1/alexUtilities.ls

@@ -210 +210 @@
 end
 
-
-
-
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 -- xxxxxxxxxxxxxxxxxx Write text out to a file
@@ -219 +216 @@
 on mSaveTextToTempFile me, theText, pfad
   
-  if ilk(pfad) <> #string then return 0
-  if length(pfad) < 1 then return 0
+  if ilk(pfad) <> #string then
+    pfad = mConvertUnix2HFS("/tmp/tmpfile.txt")
+  end if
+  if length(pfad) < 1 then
+    pfad = mConvertUnix2HFS("/tmp/tmpfile.txt")
+  end if
   
   return mSaveToTextFile(me, theText, pfad)
@@ -406 +407 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
-on mGetFolderPathFromUser me
+on mGetFolderPathFromUser me, startFolder, theTitle, flags, instruction, offsx, offsy
   retval = ""
   
@@ -419 +420 @@
     end if
     
-    retval = baGetFolder( "", "Select a folder", 3, "", 50, 50 )
+    startFolder = string(startFolder)
+    instruction = string(instruction)
+    flags = integer(flags)
+    if ilk(flags) <> #integer then flags = 0
+    theTitle = string(theTitle)
+    
+    offsx = integer(offsx)
+    if ilk(offsx) <> #integer then offsx = -1
+    
+    offsy = integer(offsy)
+    if ilk(offsy) <> #integer then offsy = -1
+    
+    retval = baGetFolder(startFolder, theTitle, flags, instruction, offsx, offsy )
     
     if resetUNames = 1 then baReturnUnixNames(1)
@@ -2355 +2368 @@
   if not(the platform contains "mac") then return fname
   
+  if fname starts "/" then return fname -- huh? must already be an absolute unix path
+  
   offs = offset(":", fname)
   repeat while offs
@@ -2371 +2386 @@
   if not(the platform contains "mac") then return fname
   
+  if fname starts "/Volumes/" then
+    olddelim = the itemdelimiter
+    the itemdelimiter = "/"
+    delete item 1 to 3 of fname
+    the itemdelimiter = olddelim
+    put "/" before fname
+  end if
+  
+  if not(fname starts "/") then return fname -- huh? doesn't seem to be an absolute unix path 
+  
   offs = offset("/", fname)
   repeat while offs
@@ -2376 +2401 @@
     offs = offset("/", fname)
   end repeat
+  
   osDir = getOsDirectory()
   olddelim = the itemdelimiter

trunk/lingosource/castlib1/bbedit_Utilities.ls

@@ -510 +510 @@
     
     -------- now write the results of the BBEdit diff back into the script members
-    memref1.scripttext = mGetTextFromTempFile(me, tempSrcHFSPath)
+    memref1.scripttext = mGetTextFromFile(me, tempSrcHFSPath)
     
     if ilk(memref2) = #member then
-      memref2.scripttext = mGetTextFromTempFile(me, tempSrcHFSPath2)
+      memref2.scripttext = mGetTextFromFile(me, tempSrcHFSPath2)
     end if
     
@@ -545 +545 @@
 end
 
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- xxxxxxxxxxxxxxxxxx Read text from file
---------------------- helper for the above bbdiff handler
-
-on mGetTextFromTempFile me, pfad
-  retval = ""
-  
-  if the runmode contains "Plugin" then return retval
-  
-  fio = new(xtra "fileio")
-  
-  if not objectP(fio) then return retval
-  if (voidP(pfad) or (pfad = "")) then return retval
-  
-  if ilk(pfad) = #string then
-    if pfad.length > 0 then
-      fio.openFile(pfad, 1)
-      if fio.status() = 0 then
-        retval = fio.readFile()
-        fio.closeFile()
-      end if
-    end if
-  end if
-  fio = void
-  
-  return retval
-  
-end
 
 

trunk/lingosource/castlib1/svn_Utilities.ls

@@ -138 +138 @@
           
           if count(theResult) > 0 then
-            put "No differences found for member: " & memref.name && "(" & memref & ")"
-            
+            if theResult[1] contains "no such file or directory" then
+              put theResult[1]
+            else
+              put "No differences found for member: " & memref.name && "(" & memref & ")"
+            end if
           else
             
             -------- now write the results of the BBEdit diff back into the script members
-            scrText = mGetTextFromTempFile(me, tempSrcHFSPath)
+            scrText = mGetTextFromFile(me, tempSrcHFSPath)
             
             
@@ -2963 +2966 @@
   
   if chooseNewPath = 1 then
-    workingFolder = baGetFolder(the moviepath, "Please select a working copy for SVN update", 3, "Select working copy", -2, -2)
+    workingFolder = mGetFolderPathFromUser(me, the moviepath, "Please select a working copy for SVN update", 3, "Select working copy", -2, -2)
   end if
   
@@ -2973 +2976 @@
     alert selectMsg
     
-    workingFolder = baGetFolder(the moviepath, "Please select a working copy for SVN update", 3, "Select working copy", -2, -2)
+    workingFolder = mGetFolderPathFromUser(me, the moviepath, "Please select a working copy for SVN update", 3, "Select working copy", -2, -2)
   end if