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

Timestamp:

12/15/08 13:00:15 (3 years ago)

Author:

alex

Message:

only copy dir and cst files now, when doing svn update movie binaries. added function to split path in order to not assume, that the first dot is the file extension seperator

File:

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

trunk/lingosource/castlib1/alexUtilities.ls

@@ -1 @@
--- Some of my Authoring Utility Handlers -- ©06 Alex da Franca -- alex@farbflash.de
------------------------------------------------------------------------------------
+-- alexUtilities
+-----------------------------------
+-- CREATED:
+-- 14.12.2008
+-- PROPERTIES:
+--!memberProperties: [#name: "alexUtilities", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/commonMovieScript.ls"]
+--
+-- DESCRIPTION:
+--               Some of my Authoring Utility Handlers -- c06 Alex da Franca -- alex@farbflash.de
+--
+-- REQUIRES:
+--               script "PseudoXMLPS" -> parse xml
+--               although it does not really REQUIRE shell xtra and buddyApi xtra
+--               still much of the functionality will gracefully fail, if those are not present
+--               In order to export images, the sharp image exporter is required
+--               if missing those functions fail gracefully
+--
+-- USAGE:
+--               This script is instantiated and used in the "tell the stage" block and one of the functions
+--               which are defined in script "OSCmenu_Utilities" and which was selected by the user
+--               will be executed in "stage scope". That means, that references are made form within the stage context
+--               e.g. member("foo") will refer to a member in one of the stages castlibs
+--               sprite(x) will refere to sprite(x) in the stages score and so on
+--
+--               Please see the descriptions of many of those handlers at: http://www.farbflash.org/trac/HandlerMenu/wiki/utilityHandlers
+--               (Although I started to comment each handler, I didn't reach far until now...)
+-----------------------------------
 
 property ancestor
@@ -14 +39 @@
 on new me
   ancestor = new(script "PseudoXMLPS") -- we need this script later
-  -- and as we may already be in the scope of the stage, we have it as ancestor
-  
+  -- and as we may already be in the scope of the stage, we use it as ancestor
+  -- because once in another scope, it will not be available as member
   return me
 end
@@ -24 +49 @@
 
 on Authoring_ExchangeScriptListColorsToRGBs me
+  -----------------------------------
+  --         ACTION: fix the score data which has #color instead of #rgb when authored with D10
+  --                 which fails with the older player (AUTHORING ONLY!)
+  --         INPUT: -
+  --         RETURNS: -
+  -----------------------------------
+  
   theLastFrame = the lastFrame
   theLastChannel = the lastChannel
@@ -62 +94 @@
 
 on mOpenContainingFolder me
+  -----------------------------------
+  --         ACTION: Open the folder, where the current movie is inside in the Finder/Explorer 
+  --         INPUT: -
+  --         RETURNS: -
+  -----------------------------------
+  
   if length(the moviepath) < 1 then
     alert "The movie must be saved first!"
@@ -78 +116 @@
 
 on mReadXML_2_List me, pfad
+  -----------------------------------
+  --         ACTION: Read xml text from file and parse into lingo list using pseudoXMLPS script 
+  --         INPUT: <pfad> ; string ; full pathname ; optional => default "" => show file selection dialog
+  --         RETURNS: lingo list or property list ; [:] in case of invalid xml file
+  -----------------------------------
+  
   theResult = [:]
   dertext = mGetTextFromFile(me, pfad)
@@ -91 +135 @@
 
 on mSaveList_2_XML me, theList, thePath
+  -----------------------------------
+  --         ACTION: Convert a lingo list or property list to xml and write xml string to file
+  --         INPUT:  <theList> ; #list or #proplist ; required
+  --                 <thePath> ; string ; full pathname ; optional => default "" => show file save dialog
+  --         RETURNS: string => full pathname of newly created file or "", if user cancelled process
+  -----------------------------------
+  
   if not(list(theList)) then
     global gRetVal
@@ -111 +162 @@
 
 on mGetTextFromFile me, pfad
+  -----------------------------------
+  --         ACTION: Read contents of textfile
+  --         INPUT:  <pfad> ; string ; full pathname ; optional => default "" => show file selection dialog
+  --         RETURNS: string => contents of textfile or "", if user cancelled process
+  -----------------------------------
+  
   retval = ""
   
@@ -141 +198 @@
 
 on mSaveToTextFile me, theText, pfad, theTitle, theDefaultName, startfolder
+  -----------------------------------
+  --         ACTION: Save text to textfile
+  --         INPUT:  <theText> ; string ; string to  save
+  --                 <pfad> ; string ; full pathname ; optional => default "" => show file save dialog
+  --                 <theTitle> ; string ; caption of the save dialog (if any => pfad == "")
+  --                 <theDefaultName> ; string ; default filename provided in the save dialog (if any => pfad == "")
+  --                 <startfolder> ; string ; startfolder of the save dialog (if any => pfad == "")
+  --         RETURNS: string => full pathname of newly created file or "", if user cancelled process
+  -----------------------------------
+  
+  
   retval = 0
   
@@ -215 +283 @@
 
 on mSaveTextToTempFile me, theText, pfad
+  -----------------------------------
+  --         ACTION: Write text out to a temporary file
+  --                 (helper for the bbdiff and svn handler)
+  --         INPUT:  <theText> ; string ; string to  save
+  --                 <pfad> ; string ; full pathname ; optional => default "tmpfile.txt" in temporary files folder
+  --         RETURNS: string => full pathname of newly created file or "", if user cancelled process
+  -----------------------------------
   
   pfad = string(pfad)
@@ -231 +306 @@
 
 on mAppendTextToFile me, theText, pfad
+  -----------------------------------
+  --         ACTION: Write text out to a temporary file
+  --                 (helper for the bbdiff and svn handler)
+  --         INPUT:  <theText> ; string ; string to append to file <pfad>
+  --                 <pfad> ; string ; full pathname ; optional => default "" => show file selection dialog
+  --         RETURNS: string => full pathname of newly created file or "", if user cancelled process
+  -----------------------------------
+  
   retval = 0
   
@@ -312 +395 @@
   
   if length(theType) < 1 then
-    if offset(".", theDefaultName) > 1 then
-      theType = theDefaultName.char[offset(".", theDefaultName) + 1 .. length(theDefaultName)]
+    splitpath = mSplitPath(me, theDefaultName)
+    --    if offset(".", theDefaultName) > 1 then
+    --      theType = theDefaultName.char[offset(".", theDefaultName) + 1 .. length(theDefaultName)]
+    --    end if
+    if length(splitpath[#extension]) > 0 then
+      theType = splitpath[#extension]
+      delete char 1 of theType
     end if
     forceType = 0
@@ -359 +447 @@
     len = length(pfad)
     if len < 1 then exit
-    basename = pfad
-    ext = ""
-    repeat with n = len down to 1
-      c = char n of pfad
-      if c = "." then exit repeat
-      put c before ext
-      if length(ext) > 4 then exit repeat
-    end repeat
-    if ["txt", "rtf", "htm", "html"].getPos(ext) > 0 then theType = ext
+    --    basename = pfad
+    --    ext = ""
+    --    repeat with n = len down to 1
+    --      c = char n of pfad
+    --      if c = "." then exit repeat
+    --      put c before ext
+    --      if length(ext) > 4 then exit repeat
+    --    end repeat
+    -- if ["txt", "rtf", "htm", "html"].getPos(ext) > 0 then theType = ext
+    splitpath = mSplitPath(me, pfad)
+    ext = splitpath[#extension]
+    if length(ext) > 0 then
+      if ".txt.rtf.htm.html" contains ext then
+        delete char 1 of ext
+        theType = ext
+      end if
+    end if
   end if
   
@@ -630 +726 @@
   if (not(mac) and (theType = "pct")) then theType = "bmp"
   
-  theDot = offset(".", thePath)
-  if theDot then thePath = thePath.char[1 .. (theDot - 1)]
+  --  theDot = offset(".", thePath)
+  --  if theDot then thePath = thePath.char[1 .. (theDot - 1)]
+  splitpath = mSplitPath(me, thePath)
+  thePath = splitpath[#basedir] & splitpath[#basename]
   
   if not(["jpg", "png", "bmp", "pct"].getPos(theType)) then exit
@@ -755 +853 @@
   if (not(mac) and (theType = "pct")) then theType = "bmp"
   
-  -- ensure the right file extension:
-  theDot = offset(".", thePath)
-  if theDot = 0 then thePath = thePath&"."&theType
+  -- -- ensure the right file extension:
+  
+  --  theDot = offset(".", thePath)
+  --  if theDot = 0 then thePath = thePath&"."&theType
+  
+  splitpath = mSplitPath(me, thePath)
+  if length(splitpath[#extension]) < 1 then splitpath[#extension] = "." & theType
+  thePath = splitpath[#basedir] & splitpath[#basename] & splitpath[#extension]
+  
   -- else thePath = thePath.char[1 .. theDot]&theType
   
@@ -2137 +2241 @@
           mp = the moviepath
           delim = the last char of mp
-          od = the itemdelimiter
-          the itemdelimiter = delim
-          fname = the last item of pfad
-          the itemdelimiter = od
-          len = fname.length
-          if fname.char[len - 3] = "." then
-            fnameW = fname.char[1 .. len - 4]
-            ext = fname.char[len - 2 .. len]
-          else if fname.char[len - 4] = "." then
-            fnameW = fname.char[1 .. len - 5]
-            ext = fname.char[len - 3 .. len]
-          else
-            fnameW = fname
-            ext = ""
-          end if
+          --          od = the itemdelimiter
+          --          the itemdelimiter = delim
+          --          fname = the last item of pfad
+          --          the itemdelimiter = od
+          --          len = fname.length
+          --          if fname.char[len - 3] = "." then
+          --            fnameW = fname.char[1 .. len - 4]
+          --            ext = fname.char[len - 2 .. len]
+          --          else if fname.char[len - 4] = "." then
+          --            fnameW = fname.char[1 .. len - 5]
+          --            ext = fname.char[len - 3 .. len]
+          --          else
+          --            fnameW = fname
+          --            ext = ""
+          --          end if
+          splitpath = mSplitPath(me, pfad)
+          fnameW = splitpath[#basename]
+          ext = splitpath[#extension]
+          fname = fnameW & ext
+          if length(ext) > 0 then delete char 1 of ext
           
           -- in case of field we always use the plain text:
@@ -2586 +2695 @@
 RETURN & "  -- CREATED:"&\
 RETURN & "  -- <currentDate>"&\
+RETURN & "  -- PROPERTIES:"&\
+RETURN & "  --!memberProperties: [#name: "&QUOTE&"<scriptname>"&QUOTE&", #scripttype: #<scripttype>, #scriptSyntax: #<scriptSyntax>, #comments: "&QUOTE&"<comments>"&QUOTE&"]"&\
 RETURN & "  --"&\
 RETURN & "  -- DESCRIPTION:"&\
@@ -2592 +2703 @@
 RETURN & "  -- REQUIRES:"&\
 RETURN & "  -- (Prerequisites)"&\
-RETURN & "  --"&\
+  RETURN & "  --"&\
 RETURN & "  -- USAGE:"&\
 RETURN & "  -- -"&\
@@ -2662 +2773 @@
       --------------------------------- for the current scriptname, which we only "know" here in this script
       if replacePlaceHolder = 1 then
-        placeholders = [["<currentDate>", the short date], ["<scriptname>", theMem.name]]
+        placeholders = [["<currentDate>", the short date], ["<scriptname>", theMem.name], ["<scripttype>", theMem.scripttype], ["<scriptSyntax>", theMem.scriptSyntax], ["<comments>", theMem.comments]]
         
         repeat with repl in placeholders
@@ -2901 +3012 @@
 end
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+-- the following handlers are mostly duplicates from the script "commonMovieScript",
+-- because we are running in the scope of the stage here, we can not use it directly
+-- and therefore this script shall be completely self contained.
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
@@ -3038 +3153 @@
   return memref.type
 end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+-- split a path into its three elements => base directory, basename and extension:
+
+on mSplitPath me, fname, delim -- delim optional: default = the systems pathdelimiter
+  
+  olddelim = the itemdelimiter
+  delim = string(delim)
+  if length(delim) < 1 then
+    delim =  the last char of the moviepath
+    if length(delim) < 1 then
+      
+      if the runmode contains "plug" then
+        delim = "/"
+      else
+        delim = the last char of the applicationpath
+      end if
+      
+      
+      if length(delim) < 1 then delim = "/"
+    end if
+  end if
+  the itemdelimiter = delim
+  dateiname = the last item of fname
+  delete the last item of fname
+  put delim after fname
+  the itemdelimiter = olddelim
+  
+  
+  len = length(dateiname)
+  ext = ""
+  until = max(1, len-8) -- let's pretend, that a file extension is not langer than 8 chars
+  
+  repeat with n = len down to until
+    this = dateiname.char[n]
+    put this before ext
+    delete char n of dateiname
+    if this = "." then exit repeat
+  end repeat
+  
+  if char 1 of ext <> "." then -- no extension
+    put ext after dateiname
+    ext = ""
+  end if
+  
+  return [#basedir:fname, #basename:dateiname, #extension:ext]
+  
+end