Changeset 148 for trunk/lingosource/castlib1/alexUtilities.ls

Timestamp:

02/18/08 05:09:49 (4 years ago)

Author:

alex

Message:

enabled most of the bbedit function also for windows using user definad apps as relacements

File:

• trunk/lingosource/castlib1/alexUtilities.ls (modified) (2 diffs)

trunk/lingosource/castlib1/alexUtilities.ls

@@ -2427 +2427 @@
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+------------------- subversion support works better with unix linebreaks...
+
+on mConvertLineBreaksToUnix me, st
+  
+  if mCheckForXtra(me, "Pregex") = 1 then
+    scrTextLi = [st]
+    pregex_replace(scrTextLi, "\x0D\x0A?", "g", "\x0A")
+    return scrTextLi[1]
+  else
+    fndStr = numToChar(13) & numToChar(10)
+    offs = offset(fndStr, st)
+    repeat while offs > 0
+      delete char offs of st
+      offs = offset(fndStr, st)
+    end repeat
+    
+    fndStr = numToChar(13)
+    offs = offset(fndStr, st)
+    repeat while offs > 0
+      put numToChar(10) into char offs of st
+      offs = offset(fndStr, st)
+    end repeat
+    
+  end if
+  
+  return st
+  
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+----------- always convert to mac linebreaks for scripts as director internally uses mac linebreaks
+
+on mConvertLineBreaksToMac me, scrText
+  
+  if mCheckForXtra(me, "Pregex") = 1 then
+    
+    scrTextLi = [scrText]
+    pregex_replace(scrTextLi, "\x0D?\x0A", "g", "\x0D")
+    return scrTextLi[1]
+    
+  else
+    
+    -- first convert windows to mac
+    fndStr = numToChar(13) & numToChar(10)
+    offs = offset(fndStr, scrText)
+    repeat while offs > 0
+      put numToChar(13) into char offs to offs+1 of scrText
+      offs = offset(fndStr, scrText)
+    end repeat
+    
+    -- now convert unix to mac
+    fndStr = numToChar(10)
+    offs = offset(fndStr, scrText)
+    repeat while offs > 0
+      put numToChar(13) into char offs of scrText
+      offs = offset(fndStr, scrText)
+    end repeat
+    
+  end if
+  -----------------------------------------
+  
+  return scrText
+  
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetTempFilePath me, theName
+  
+  if mCheckForXtra(me, "BudAPI") then
+    if the platform contains "mac" then
+      
+      resetUNames = 0
+      if baSysFolder("prefs") starts "/" then
+        baReturnUnixNames(0)
+        resetUNames = 1
+      end if
+      tempSrcHFSPath = basysfolder("temp") & theName
+      if resetUNames = 1 then baReturnUnixNames(1)
+      return tempSrcHFSPath
+      
+    else
+      tmpfolder = baSysFolder("temp")
+      return tmpfolder & theName
+    end if
+    
+  else
+    if the platform contains "mac" then
+      
+      tempSrcPath = "/tmp/" & theName
+      
+      return mConvertUnix2Hfs(me, tempSrcPath)
+      
+    else
+      tmpfolder = "C:\WINDOWS\TEMP\"
+      return tmpfolder & theName
+    end if
+    
+  end if
+  
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 on _______________GLOSSARY_ITEMS me
 end
@@ -2591 +2694 @@
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+on _______________EXTERNAL_PATHS me
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetExternalScriptEditor me, externalEditors
+  
+  if mCheckForXtra(me, "budapi") <> 1 then
+    alert "You need the buddyApi xtra for this operation"
+    exit
+  end if
+  
+  savePrefs = 0
+  if ilk(externalEditors) <> #proplist then
+    externalEditors = value(getPref("handlerMenu_externalEditors.txt"))
+    if ilk(externalEditors) <> #proplist then externalEditors = [:]
+    savePrefs = 1
+  end if
+  
+  if the shiftdown then
+    externalScripteditor = ""
+    savePrefs = 1
+  else
+    externalScripteditor = string(externalEditors.getaprop(#externalScripteditor))
+    if baFileExists(externalScripteditor) <> 1 then externalScripteditor = ""
+  end if
+  
+  if length(externalScripteditor) < 1 then
+    
+    alert "Please select an external script editor."
+    externalScripteditor = mGetFilePathFromUser(me)
+    if length(externalScripteditor) < 1 then return ""
+    
+  end if
+  
+  if baFileExists(externalScripteditor) <> 1 then
+    alert "The path to the external script editor seems to have changed. Please try again in order to search the path."
+    externalScripteditor = ""
+  end if
+  
+  externalEditors.setaprop(#externalScripteditor, externalScripteditor)
+  
+  if savePrefs = 1 then setPref("handlerMenu_externalEditors.txt", string(externalEditors))
+  
+  return externalScripteditor
+  
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetSVNDiffBinaryPath me, workingCopies
+  
+  if (mCheckForXtra(me, "budapi") + (mCheckForXtra(me, "Shell") + mCheckForXtra(me, "ff_shell"))) < 2 then
+    alert "You need the shell xtra and the buddyApi xtra in order to proceed"
+    return ""
+  end if
+  
+  savePrefs = 0
+  if ilk(workingCopies) <> #proplist then
+    workingCopies = value(getPref("svn_workingCopies_paths.txt"))
+    if ilk(workingCopies) <> #proplist then workingCopies = [:]
+    savePrefs = 1
+  end if
+  
+  
+  svnBinary = string(workingCopies.getaprop(#svnDiffBinary))
+  
+  
+  if baFileExists(svnBinary) <> 1 then svnBinary = ""
+  
+  
+  if length(svnBinary) < 1 then
+    
+    alert "There is not yet an application specified to handle file diffs. Please select the applivcation you want to use, e.g. TortoiseMerge in your Tortoise folder, if you are using Tortoise."
+    svnBinary = mGetFilePathFromUser(me)
+    if length(svnBinary) < 1 then return ""
+    
+  end if
+  
+  if baFileExists(svnBinary) <> 1 then
+    alert "The path to the svn diff binary seems to have changed. Please try again in order to search the path."
+    svnBinary = ""
+  end if
+  
+  
+  
+  workingCopies.setaprop(#svnDiffBinary, svnBinary)
+  
+  if savePrefs = 1 then setPref("svn_workingCopies_paths.txt", string(workingCopies))
+  
+  return svnBinary
+  
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 on _______________HELPER_HANDLER me
 end
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx