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

Timestamp:

06/06/08 12:41:29 (4 years ago)

Author:

alex

Message:

fixed convert line breaks bug

File:

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

trunk/lingosource/castlib1/svn_Utilities.ls

@@ -472 +472 @@
 on mExportAllScriptsToDiskWithFolder me, skipIcons, selectionOnly, convertLineBreaksToUnix, theFolder, chooseNewPath
   
+  
   theFolder = string(theFolder)
   if length(theFolder) < 1 then
@@ -528 +529 @@
   
   
-  
-  
   isMac = (the platform contains "mac") -- we need the differentiation because of the dreaded 31 char limit
   
@@ -572 +571 @@
         
         memtype = memref.type
+        
+        
+        convertLineBreaksToUnixT = 0
         
         -- if [#script].getPos(memtype) > 0 then
@@ -592 +594 @@
               ext = ".html"
               scrText = memref.html
-              convertLineBreaksToUnix = 0
+              convertLineBreaksToUnixT = 0
               scrtype = #text
               -----------------------
@@ -684 +686 @@
           
           if convertLineBreaksToUnix = 1 then
-            
-            if mCheckForXtra(me, "Pregex") = 1 then
-              
-              scrTextLi = [scrText]
-              pregex_replace(scrTextLi, "\x0D\x0A?", "g", "\x0A")
-              scrText = scrTextLi[1]
-              
-            else
-              
-              fndStr = numToChar(13) & numToChar(10)
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                delete char offs of scrText
+            if convertLineBreaksToUnixT <> 1 then
+              if mCheckForXtra(me, "Pregex") = 1 then
+                
+                scrTextLi = [scrText]
+                pregex_replace(scrTextLi, "\x0D\x0A?", "g", "\x0A")
+                scrText = scrTextLi[1]
+                
+              else
+                
+                fndStr = numToChar(13) & numToChar(10)
                 offs = offset(fndStr, scrText)
-              end repeat
-              
-              fndStr = numToChar(13)
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                put numToChar(10) into char offs of scrText
+                repeat while offs > 0
+                  delete char offs of scrText
+                  offs = offset(fndStr, scrText)
+                end repeat
+                
+                fndStr = numToChar(13)
                 offs = offset(fndStr, scrText)
-              end repeat
-              
+                repeat while offs > 0
+                  put numToChar(10) into char offs of scrText
+                  offs = offset(fndStr, scrText)
+                end repeat
+              end if 
             end if
           end if
           -----------------------------------------
-          
           
           if theDefaultName <> origname then
@@ -727 +728 @@
             noChanges = (mRemoveWhiteSpaces(me, scrText&"") = mRemoveWhiteSpaces(me, alterText&""))
             
+            
             if noChanges = 0 then
               
-              
               mSaveToTextFile me, scrText, thisFolder & theDefaultName & ext
-              
               
               bmexp = 0