Changeset 245 for trunk/lingosource/castlib2/FileIOFunktionen.ls

Timestamp:

03/21/10 11:39:48 (2 years ago)

Author:

alex

Message:

cleanup

File:

• trunk/lingosource/castlib2/FileIOFunktionen.ls (modified) (4 diffs)

trunk/lingosource/castlib2/FileIOFunktionen.ls

@@ -1 @@
--- FileIO Handlers -- c03 Alex da Franca -- alex@farbflash.de
----------------------------------------------------------------------
+-- FileIOFunktionen
+-----------------------------------
+-- CREATED:
+-- c03 Alex da Franca -- alex@farbflash.de
+-- PROPERTIES:
+--!memberProperties: [#name: "FileIOFunktionen", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/FileIOFunktionen.ls"]
+--
+-- DESCRIPTION: FileIO Handlers
+-- -
+--
+-- REQUIRES:
+-- (Prerequisites)
+--
+-- USAGE:
+-- -
+--
+-- EXAMPLE:
+-- -
+-----------------------------------
+
+on _____________________PROPERTY_DECLARATION me
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+property ancestor
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+on ___________________STANDARD_EVENTS me
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on new me
+  Script_Root_Object = member("Script_Root_Object")
+  if ilk(Script_Root_Object) = #member then
+    if Script_Root_Object.type = #script then
+      ancestor = new(script "Script_Root_Object")
+      mSetScriptName me, "FileIOFunktionen"
+    end if
+  end if
+  return me
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+on ___________________PUBLIC_EVENTS me
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
 
@@ -98 +141 @@
   else
     paramList.setaprop(#theTextResult, mGetTextFromFile(me, paramList.getaprop(#theURL), paramList[#isByteArray], paramList[#charset]))
-    call(paramList.getaprop(#handler), [paramList.getaprop(#target)], paramList)
+    theResult = xscr().mDoDelayedCallback(paramList)
+    if theResult <> 1 then call(paramList.getaprop(#handler), [paramList.getaprop(#target)], paramList)
   end if
 end
@@ -321 +365 @@
 
 on mGetFilePathFromUser me, startDir, defaultName, filetypes, prompt
+  -----------------------------------
+  -- CREATED: -
+  -- ACTION: Asks the user for a path to a file and returns the filepath
+  -- INPUT: <startDir> ; string ; the directory to start the file selection dialog (only if buddyApi xtra is installed)
+  --        <defaultName> ; string ; pre-entered filename (only if buddyApi xtra is installed)
+  --        <filetypes> ; string ; filetype filter (only if buddyApi xtra is installed)
+  --        <prompt> ; string ; Caption of the dialog (only if buddyApi xtra is installed)
+  -- RETURNS: string ; absolute pathname delimited by the pathdelimiter of the current platform (widnows: "\", mac: ":") or "", if user canceled the process
+  -- EXAMPLE: relPath = xscr(#FileIOFunktionen).mGetFilePathFromUser(the moviepath, "soundRadius.xml", ".xml", "Please select soundradius scriptsettings")
+  -----------------------------------
+  
   retval = ""
   
@@ -361 +416 @@
   
   return retval
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetMovieRelativePathFromUser me, startDir, defaultName, filetypes, prompt
+  -----------------------------------
+  -- CREATED: 14.12.2009
+  -- ACTION: Asks the user for a path to a file
+  --         Takes care, that the file starts with the moviepath => is WITHIN the moviepath,
+  --         otherwise it calls itself until either the user selects a relative file or cancels the process.
+  --         Converts path delimiters to "/" => normalize the pathdelimiter for both platforms
+  -- INPUT: <startDir> ; string ; the directory to start the file selection dialog (only if buddyApi xtra is installed)
+  --        <defaultName> ; string ; pre-entered filename (only if buddyApi xtra is installed)
+  --        <filetypes> ; string ; filetype filter (only if buddyApi xtra is installed)
+  --                               SPECIAL VALUE: can be "folder", which would not return a path to a folder,
+  --                               but rather a path to a folder
+  --        <prompt> ; string ; Caption of the dialog (only if buddyApi xtra is installed)
+  -- RETURNS: string ; relative pathname delimited by "/" or "", if user canceled the process
+  -- EXAMPLE: relPath = xscr(#FileIOFunktionen).mGetMovieRelativePathFromUser(the moviepath, "soundRadius.xml", ".xml", "Please select soundradius scriptsettings")
+  -----------------------------------
+  
+  if filetypes = "folder" then
+    searchItem = "folder"
+    thePath = mGetFolderPathFromUser(me)
+  else
+    searchItem = "file"
+    thePath = mGetFilePathFromUser(me, startDir, defaultName, filetypes, prompt)
+  end if
+  if length(thePath) > 0 then
+    if offset(the moviepath, thePath) <> 1 then
+      alert "This " & searchItem & " is NOT within the moviepath. Please choose a " & searchItem & ", which is inside the current movie's path!"
+      return mGetMovieRelativePathFromUser(me, startDir, defaultName, filetypes, prompt)
+    end if
+    delete char 1 to length(the moviepath) of thePath
+    delim = the last char of the moviepath
+    if delim <> "/" then
+      offs = offset(delim, thePath)
+      repeat while offs > 0
+        put "/" into char offs of thePath
+        offs = offset(delim, thePath)
+      end repeat
+    end if
+    if filetypes = "folder" then
+      if the last char of thePath <> "/" then put "/" after thePath
+      end if
+    end if
+    return thePath
 end