Changeset 186 for trunk

Timestamp:

09/17/08 20:50:38 (3 years ago)

Author:

alex

Message:

incorporated changes to library scripts

Location:

trunk/lingosource

Files:

• castlib1/subversion_version_field.txt (modified) (1 diff)
• castlib2/FileIOFunktionen.ls (modified) (3 diffs)
• castlib2/GetSetPrefs.ls (modified) (1 diff)
• castlib2/PseudoXMLPS.ls (modified) (2 diffs)
• castlib2/aleXtrasMovieScript.ls (modified) (8 diffs)
• castlib2/commonMovieScript.ls (modified) (8 diffs)

trunk/lingosource/castlib1/subversion_version_field.txt

@@ -1 @@
-r186
+r188

trunk/lingosource/castlib2/FileIOFunktionen.ls

@@ -1 @@
--- FileIO Handlers -- ©03 Alex da Franca -- alex@farbflash.de
+-- FileIO Handlers -- c03 Alex da Franca -- alex@farbflash.de
 ---------------------------------------------------------------------
 
@@ -460 +460 @@
       this = getnthfilenameinfolder(folderpath, n)
     end repeat
+  end if
+  
+  return retval
+  
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetFileAndFolderList me, folderpath
+  if the runmode contains "plugin" then return []
+  
+  if length(string(folderpath)) < 1 then folderpath = mGetFolderPathFromUser(me)
+  if length(folderpath) < 1 then return []
+  
+  if xscr().mCheckForXtra("BudAPI") then -- if buddy is present...
+    --  -- budApi version:
+    retval = baFolderList(folderpath)
+    filelist = baFileList(folderpath, "*.*")
+    repeat with f in filelist
+      retval.add(f)
+    end repeat
+    
+  else if xscr().mCheckForXtra("FileXtra4") then -- if not buddy then try filextra
+    --  -- filextra4 version:
+    fx = (xtra "filextra4").new()
+    if objectP(fx) then
+      retval = fx.fx_FolderToList(folderpath)
+    end if
+    fx = 0
+    
+  else
+    
+    retval = []
+    n = 1
+    this = getnthfilenameinfolder(folderpath, n)
+    repeat while length(this) > 0
+      retval.add(this)
+      n = n + 1
+      this = getnthfilenameinfolder(folderpath, n)
+    end repeat
+    
   end if
   
@@ -614 +656 @@
 
 on interface me
-  str = "FileIO Scripts  by alex da franca ©2003 -- alex@farbflash.de -- all rigths reserved"
+  str = "FileIO Scripts  by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved"
   
   put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str

trunk/lingosource/castlib2/GetSetPrefs.ls

@@ -12 +12 @@
 
 on interface me
-  str = "Handle preferences  by alex da franca ©2003 -- alex@farbflash.de -- all rigths reserved"
+  str = "Handle preferences  by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved"
   
   put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str

trunk/lingosource/castlib2/PseudoXMLPS.ls

@@ -5 +5 @@
 --
 -- DESCRIPTION:
--- Pseudo XML by Alex da Franca ©2003
+--              Pseudo XML by Alex da Franca c2003
 -- Convert a lingo list to a XML like string and back
 
@@ -77 +77 @@
 
 on interface me
-  str = "Pseudo XML Script  by alex da franca ©2003 -- alex@farbflash.de -- all rigths reserved"
+  str = "Pseudo XML Script  by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved"
   put RETURN & "version 1" after str
   

trunk/lingosource/castlib2/aleXtrasMovieScript.ls

@@ -1 @@
--- LDM Xtras Moviescript -- ©05 Alex da Franca -- alex@farbflash.de
+-- aleXtrasMovieScript
 ---------------------------------------------------------------------
 -- CREATED:
 --              2005
 --
+-- PROPERTIES:
+--!memberProperties: [#name: "aleXtrasMovieScript", #scripttype: #movie, #scriptSyntax: #lingo, #comments:"~/Documents/Scripts/lingo/aleXtrasMovieScript.ls"]
+--
 -- DESCRIPTION:
+--             -- LDM Xtras Moviescript -- c05 Alex da Franca -- alex@farbflash.de
 -- store instances of scripts and bitmaps in a 'global' list (-> property pAleXtras)
 -- and provide access to them for all scripts
 --
 -- REQUIRES:
---              NONE
+--            script "commonmoviescript"
 --
 -- USAGE:
--- put it in one of your castlib, DON'T RENAME MEMBER !!
+--            put it in one of your castlib, DON'T RENAME THIS MEMBER !!
+--            use xscr(<name of script as symbol>) to get a reference to the script from
+--            every script of the movie. It will return an instance of the script
+--
+-- PARAMS:
+-- -
+--
+-- RETURNS:
+-- -
+--
+-- WARNINGS:
+-- -
 --
 -- TODO:
@@ -24 +39 @@
   alextras = (script "aleXtrasMovieScript").pAleXtras
   if not(objectP(alextras)) then
-    alextras = new(script "commonMovieScript")
+    
+    cms = member("commonMovieScript")
+    if ilk(cms) <> #member then
+      alert "Script commonMovieScript missing, can't proceed"
+      halt
+    end if
+    if cms.type <> #script then
+      alert "Script commonMovieScript missing, can't proceed"
+      halt
+    end if
+    alextras = rawnew(cms.script)
     if ilk(alextras) <> #instance then
-      alert "HandlerMenu: Script" & QUOTE & "commonMovieScript" & QUOTE && "is missing. This movie can't proceed!"
+      alert "Script" & QUOTE & "commonMovieScript" & QUOTE && "is missing. This movie can't proceed!"
       halt
     end if
@@ -79 +104 @@
   if ilk(inst) <> #instance then
     if the runmode contains "aut" then
-      put "HandlerMenu: Script" && QUOTE & scrName & QUOTE && "is missing! This may cause unwanted behavior"
+      put "Script" && QUOTE & scrName & QUOTE && "is missing! This may cause unwanted behavior"
     end if
       inst = []
@@ -200 +225 @@
 on mLoadScriptsFromLDM whichSprite
   
-  cms = xscr()
-  globs = cms.mGetGlobalList()
-  includes = globs[#gParentScriptInstances]
-  if not(objectP(includes)) then
     includes = [:]
-    globs[#gParentScriptInstances] = includes
-  end if
   
   tell sprite(whichSprite)
@@ -216 +235 @@
         if length(mem.name) > 0 then
           if mem.type = #script then
-            includes.setaProp(mem.name, mem.script)
+            includes.setaProp(symbol(mem.name), rawNew(mem.script))
           end if
         end if
@@ -222 +241 @@
     end repeat
   end tell
+  
+  cms = includes.getaprop(#commonMovieScript)
+  if not(objectP(cms)) then
+    cms = member("commonMovieScript")
+    if ilk(cms) <> #member then
+      alert "Script commonMovieScript missing, can't proceed"
+      halt
+    end if
+    if cms.type <> #script then
+      alert "Script commonMovieScript missing, can't proceed"
+      halt
+    end if
+    cms = rawnew(cms.script)
+  end if
+  
+  (script "aleXtrasMovieScript").pAleXtras = cms
+  
+  globs = cms.mGetGlobalList()
+  incl = globs[#gParentScriptInstances]
+  if not(objectP(incl)) then
+    incl = [:]
+    globs[#gParentScriptInstances] = incl
+  end if
+  
+  repeat with n = count(incl) down to 1
+    includes.setaprop(incl.getPropAt(n), incl[n])
+  end repeat
+  includes.deleteOne(#commonMovieScript)
+    globs[#gParentScriptInstances] = includes
   
   exit
@@ -287 +335 @@
       memref = member(m, cl)
       if memref.type = #script then
-        put "Membername:" && memref.name & TAB & "(" & line 1 of memref.comments & ")" & Return after str
+        put "Membername:" && memref.name & TAB & "("&memref.comments&")" & Return after str
       end if
     end repeat
@@ -335 +383 @@
       if memref.type = #script then
         memname = memref.name
-        comm = line 1 of memref.comments
+        comm = memref.comments
         if comm.length then
           

trunk/lingosource/castlib2/commonMovieScript.ls

@@ -1 +1 @@
 -- commonMovieScript
--- was anderes
 -----------------------------------
 -- CREATED:
@@ -6 +5 @@
 --
 -- DESCRIPTION:      
---              Shared Global Handlers ©03 Alex da Franca -- alex@farbflash.de
+--              Shared Global Handlers c03 Alex da Franca -- alex@farbflash.de
 --              -------------------------------------------------------------------
---              these handlers are shared between all of my scripts Alex da Franca ©2003 alex@farbflash.de
+--              these handlers are shared between all of my scripts Alex da Franca c2003 alex@farbflash.de
 --              for private use of my scripts -> poor documentation -> use at own risk ;-)
 
@@ -1203 +1202 @@
 on mGetInstance me, instName, useRawNew
   
+  if ilk(instName) = #string then instName = symbol(instName)
+  
   theGlobs = mGetGlobalList(me)
   gParentScriptInstances = theGlobs.getaprop(#gParentScriptInstances)
@@ -1214 +1215 @@
   if ilk(saveScr) = #instance then return saveScr
   
-  if mGetMemType(me, member(instName)) = #script then
-    if useRawNew = 1 then saveScr = rawnew(script instName)
-    else saveScr = new(script instName)
+  if mGetMemType(me, member(string(instName))) = #script then
+    if useRawNew = 1 then saveScr = rawnew(script string(instName))
+    else saveScr = new(script string(instName))
     gParentScriptInstances.setaprop(instName, saveScr)
     return saveScr
@@ -1223 +1224 @@
   if saveScr = -1 then return 0
   gParentScriptInstances.setaprop(instName, -1)
-  inst = mGetXScript(symbol(instName))
+  inst = mGetXScript(instName)
   if not(listP(inst)) then
     if ilk(inst) = #instance then inst = inst.script
@@ -1255 +1256 @@
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- xxxxxxxxxxxxxxxxxx reload a stored script instance:
-
-on mReloadInstance me, instName
+-- xxxxxxxxxxxxxxxxxx delete a stored script instance:
+
+on mDeleteInstance me, instName, dontCallDestroyHandler
   theGlobs = mGetGlobalList(me)
   gParentScriptInstances = theGlobs.getaprop(#gParentScriptInstances)
-  
   if ilk(gParentScriptInstances) <> #proplist then exit
-  
+  if dontCallDestroyHandler <> 1 then
+    saveScr = gParentScriptInstances.getaprop(instName)
+    if ilk(saveScr) = #instance then call(#mDestroy, [saveScr])
+  end if
   gParentScriptInstances.deleteprop(instName)
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+-- xxxxxxxxxxxxxxxxxx reload a stored script instance:
+
+on mReloadInstance me, instName, useRawNew, dontCallDestroyHandler
+  mDeleteInstance me, instName, dontCallDestroyHandler
+  return mGetInstance(me, instName, useRawNew)
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+-- xxxxxxxxxxxxxxxxxx replace a stored script instance:
+
+on mReplaceInstance me, instName, scriptInstance, dontCallDestroyHandler
+  if not(objectP(scriptInstance)) then exit
+  theGlobs = mGetGlobalList(me)
+  gParentScriptInstances = theGlobs.getaprop(#gParentScriptInstances)
+  if ilk(gParentScriptInstances) <> #proplist then exit
+  if dontCallDestroyHandler <> 1 then
+    saveScr = gParentScriptInstances.getaprop(instName)
+    if ilk(saveScr) = #instance then call(#mDestroy, [saveScr])
+  end if
+  gParentScriptInstances.setaprop(instName, scriptInstance)
 end
 
@@ -1860 +1887 @@
 end
 
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+-- the naming convention used throughout all my movies for names, filename etc.:
+-- Names must be only alphanumeric chars and the underscore and should not start with a number
+-- As a rule of thumb: every string which can be made into a symbol is valid.
+
+on mValidateName me, str
+  if ilk(str) <> #string then return 0
+  if length(str) < 1 then return 0
+  if "0123456789" contains char 1 of str then return 0
+  return string(symbol(str)) = str
+end
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
@@ -1957 +1995 @@
 end
 
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mFormatdate me, theFormat, theDate
+  theFormat = string(theFormat)
+  if length(theFormat) < 1 then theFormat = "yyyy/mm/dd"
+  if ilk(theDate) <> #date then theDate = the systemdate
+  
+  offs = offset("y", theFormat)
+  if offs > 0 then
+    ende = offs+1
+    repeat while char ende of theFormat = "y"
+      if ende > length(theFormat) then exit repeat
+      ende = ende+1
+    end repeat
+    len = ende - offs
+    if len < 3 then theYear = char 3 to 4 of string(theDate.year)
+    else theYear = string(theDate.year)
+    put theYear into char offs to offs + len -1 of theFormat
+  end if
+  
+  theFormat = mReplaceCharWithNumber(me, theFormat, "m", theDate.month)
+  
+  theFormat = mReplaceCharWithNumber(me, theFormat, "d", theDate.day)
+  
+  return theFormat
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mReplaceCharWithNumber me, theString, theChar, theNumber
+  offs = offset(theChar, theString)
+  if offs > 0 then
+    ende = offs+1
+    repeat while char ende of theString = theChar
+      if ende > length(theString) then exit repeat
+      ende = ende+1
+    end repeat
+    len = ende - offs
+    theNumber = string(theNumber)
+    repeat while length(theNumber) < len
+      put "0" before theNumber
+    end repeat
+    put theNumber into char offs to offs + len -1 of theString
+  end if
+  return theString
+end
+
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx