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

Timestamp:

02/21/08 07:51:08 (4 years ago)

Author:

alex

Message:

added functions for lingodoc snippets and fixed issues with external script editors on mac

File:

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

trunk/lingosource/castlib1/alexUtilities.ls

@@ -2532 +2532 @@
 
 
+on snipTitle me
+  str = "-----------------------------------\
+  -- CREATED: <currentDate>\
+  -- ACTION: Description\
+  -- INPUT: -\
+  -- RETURNS: -\
+  -- CALLER: -\
+  -- DEBUG: -\
+  -- TODO: -\
+-----------------------------------"
+  pasteFieldContent str, 1
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on snipAbstract me
+  str = "-- <Scriptname>\
+-----------------------------------\
+-- CREATED:\
+-- <currentDate>\
+--\
+-- DESCRIPTION:\
+-- -\
+--\
+-- REQUIRES:\
+-- (Prerequisites)\
+--\
+-- USAGE:\
+-- -\
+--\
+-- PARAMS:\
+-- -\
+--\
+-- RETURNS:\
+-- -\
+--\
+-- WARNINGS:\
+-- -\
+--\
+-- TODO:\
+-- -\
+-----------------------------------"
+  pasteFieldContent str, 1
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on pasteFieldContent whichFieldname, replacePlaceHolder
+  m = member(whichFieldname)
+  if ilk(m) <> #member then exit
+  if [#field, #text].getPos(m.type) > 0 then mPasteItem m.text, replacePlaceHolder
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
 on pasteDate me
   
@@ -2551 +2606 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
-on mPasteItem me, theText
-  
-  pastefield = new(#field)
-  pastefield.text = theText
-  
-  oldclipboard = new(#field)
-  oldclipboard.pasteClipBoardInto()
-  
-  pastefield.copyToClipBoard()
+on mPasteItem me, theText, replacePlaceHolder
   
   
@@ -2580 +2627 @@
   end if
   
+  
+    if ilk(theMem) = #member then
+    if theMem.type = #script then
+      
+      --------------------------------- we paste the placeholder only here in this script, because there is a placeholder
+      --------------------------------- for the current scriptname, which we only "know" here in this script
+      if replacePlaceHolder = 1 then
+        placeholders = [["<currentDate>", the short date], ["<scriptname>", theMem.name]]
+        
+          repeat with repl in placeholders
+            if repl[1] <> repl[2] then
+            offs = offset(repl[1], theText)
+            repeat while offs > 0
+              put repl[2] into char offs to offs + length(repl[1]) - 1 of theText
+              offs = offset(repl[1], theText)
+            end repeat
+            end if
+          end repeat
+        
+      end if
+      ---------------------------------
+      
+    end if
+  end if
+  
+  pastefield = new(#field)
+  pastefield.text = theText
+  
+  oldclipboard = new(#field)
+  oldclipboard.pasteClipBoardInto()
+  
+  pastefield.copyToClipBoard()
+  
+  
   if ilk(theMem) = #member then
     if theMem.type = #script then