Changeset 228 for trunk/lingosource/castlib1/alexUtilities.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/alexUtilities.ls (modified) (1 diff)

trunk/lingosource/castlib1/alexUtilities.ls

@@ -2432 +2432 @@
 end
 
-
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mExportScripttext me, skipIcons, convertLineBreaksToUnix, theFolder
+  
+  
+  theFolder = string(theFolder)
+  if length(theFolder) < 1 then theFolder = mGetFolderPathFromUser(me)
+  if length(theFolder) < 1 then exit
+  
+  if the last char of theFolder <> the last char of the moviepath then put the last char of the moviepath after theFolder
+  
+  
+  cl = the activecastlib
+  sel = the selection of castlib cl
+  firstCastNum = cl
+  lastCastNum = cl
+  
+  
+  DirectImageInstance = 0
+  if skipIcons <> 1 then
+    if mCheckForXtra(me, "SharpExport") = 1 then
+      SharpExportInst = new(xtra "SharpExport")
+    else
+      skipIcons = 1
+    end if
+  end if
+  
+  
+  isMac = (the platform contains "mac") -- we need the differentiation because of the dreaded 31 char limit
+  
+  -----------------------
+  resetUNames = 0
+  if isMac then
+    if baSysFolder("prefs") starts "/" then
+      baReturnUnixNames(0)
+      resetUNames = 1
+    end if
+  end if
+  -----------------------
+  
+  doit = 0
+  versionNum = mGetFloatVersionNumber(me, the productversion)
+  
+  repeat with m = firstCastNum to lastCastNum
+    
+    listOfAllFiles = []
+    
+    thisFolder = theFolder
+    
+    doit = 0
+    
+    sel = the selection of castlib m
+    
+    repeat with sub in sel
+      repeat with n = sub[1] to sub[2]   
+        
+        memref = member(n, m)
+        memtype = memref.type
+        
+        convertLineBreaksToUnixT = 0
+        
+        if [#script, #field, #text].getPos(memtype) > 0 then
+          
+          case memtype of
+              
+              -----------------------
+            #script:
+              ext = ".ls"
+              scrText = memref.scripttext
+              scrtype = memref.scripttype
+              
+              ------------------------------ meta data
+              infolist = [:]
+              infolist[#name] = memref.name
+              infolist[#scripttype] = memref.scripttype
+              if versionNum >= 10 then infolist[#scriptSyntax] = memref.scriptSyntax
+              comm = memref.comments
+              offs = offset(RETURN, comm)
+              repeat while offs
+                put QUOTE & " & RETURN & " & QUOTE into char offs of comm
+              end repeat
+              infolist[#comments] = comm
+              
+              offs2 = 0
+              export_meta_data = scrText&""
+              offs = offset("--!memberProperties:", export_meta_data)
+              if offs > 0 then
+                delete char 1 to offs of export_meta_data
+                offs2 = offset("]", export_meta_data)
+              end if
+              
+              if offs2 > 0 then
+                put "--!memberProperties:" && infolist into char offs to offs + offs2 of scrText
+              else
+                put "--!memberProperties:" && infolist & RETURN before scrText
+              end if
+              
+              ------------------------------
+              
+              -----------------------
+            #field:
+              ext = ".txt"
+              scrText = memref.text
+              scrtype = #field
+              -----------------------
+            #text:
+              ext = ".html"
+              scrText = memref.html
+              convertLineBreaksToUnixT = 0
+              scrtype = #text
+              -----------------------
+            otherwise:
+              ext = ".txt"
+              scrText = memref.text
+              scrtype = #field
+          end case
+          
+          memname = memref.name
+          
+          theDefaultName = memname
+          
+          doit = 1
+          
+          if length(theDefaultName) < 1 then
+            theDefaultName =  "member" & n & "_" & m
+            memref.name = theDefaultName
+            put "renamed member" && memref && "to member(" & QUOTE & theDefaultName & QUOTE & ") as member without names are not supported"
+          end if
+          
+          theDefaultName = mStripFunnyCharsFromFileName(me, theDefaultName)
+          
+          origname = theDefaultName&""
+          if length(theDefaultName) > 25 and isMac then
+            
+            ms = string(the milliseconds)
+            mlen = length(ms)
+            ms = char mlen - 6 to mlen of ms
+            
+            theDefaultName = char 1 to 18 of theDefaultName
+            theDefaultName = theDefaultName & ms -- trim filenames as the mac version of fileio wants to deal with 31 chars
+            
+          end if
+          
+          
+          
+          ------------------------------------------ trac subversion support works better with unix linebreaks...
+          if voidP(convertLineBreaksToUnix) then convertLineBreaksToUnix = 1
+          if convertLineBreaksToUnix = "" then convertLineBreaksToUnix = 1
+          
+          if convertLineBreaksToUnix = 1 then
+            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)
+                repeat while offs > 0
+                  delete char offs of scrText
+                  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
+                  offs = offset(fndStr, scrText)
+                end repeat
+              end if 
+            end if
+          end if
+          -----------------------------------------
+          
+          if theDefaultName <> origname then
+            alterText = ""
+            snam = baShortFileName(thisFolder & origname & ext)
+            if length(snam) > 0 then
+              alterText = mGetTextFromFile(me, snam)
+            else
+              alterText = mGetTextFromFile(me, thisFolder & origname & ext)
+            end if
+          else
+            alterText = mGetTextFromFile(me, thisFolder & theDefaultName & ext)
+          end if
+          
+          listOfAllFiles.add(mLowerCase(me, origname))
+          
+          if alterText <> scrText then
+            
+            --------------------- compare without whitespaces:
+            noChanges = (mRemoveWhiteSpaces(me, scrText&"") = mRemoveWhiteSpaces(me, alterText&""))
+            
+            
+            if noChanges = 0 then
+              
+              mSaveToTextFile me, scrText, thisFolder & theDefaultName & ext
+              
+              bmexp = 0
+              if skipIcons <> 1 then
+                
+                thumbmember = new(#bitmap)
+                thumbmember.picture = memref.thumbnail
+                
+                if thumbmember.width > 0 then
+                  bmexp = 1
+                  if baFileExists(thisFolder & theDefaultName & ".png") then baDeleteFile(thisFolder & theDefaultName & ".png")
+                  
+                  if objectP(DirectImageInstance) then
+                    
+                    DirectImageInstance.imageLoadFromMember(thumbmember)
+                    DirectImageInstance.imageSaveToFile(thisFolder & theDefaultName & ".png", 100, 1,1)
+                    
+                  else if objectP(SharpExportInst) then
+                    mExportBM me, thumbmember, thisFolder & theDefaultName & ".png", "png", 100, SharpExportInst
+                    
+                  end if
+                end if
+                
+                thumbmember.erase()
+                
+              end if
+              
+              
+              if theDefaultName <> origname then
+                
+                snam = baShortFileName(thisFolder & origname & ext)
+                if length(snam) > 0 then baDeleteFile(snam)
+                erg = baRenameFile(thisFolder & theDefaultName & ext, thisFolder & origname & ext)
+                if erg <> 1 then put "Couldn't rename file " & thisFolder & theDefaultName & ext & " to " & thisFolder & origname & ext
+                if bmexp = 1 then
+                  snam = baShortFileName(thisFolder & origname & ".png")
+                  if length(snam) > 0 then baDeleteFile(snam)
+                  erg = baRenameFile(thisFolder & theDefaultName & ".png", thisFolder & origname & ".png")
+                  if erg <> 1 then put "Couldn't rename file " & thisFolder & theDefaultName & ".png to " & thisFolder & origname & ".png"
+                end if
+                
+              end if
+              
+              if origname <> memname then
+                put "Renamed member" && memref && "to" && origname & ". Scriptmember names must not be emoty or contain illegal characters (SPACE, /, :, \, &)"
+              end if
+              
+            end if
+          end if
+          
+        end if
+      end repeat
+    end repeat
+    
+  end repeat
+  
+  if resetUNames = 1 then baReturnUnixNames(1)
+  
+  DirectImageInstance = 0
+  SharpExportInst = 0
+  
+end
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx