livecode/util/descriptify_stack.livecodescript at develop · livecode/livecode

This repository was archived by the owner on Aug 31, 2021. It is now read-only.

56 lines (43 loc) · 1.28 KB

send "descriptifyStack" to me
on descriptifyStack
   local tInputStack
   local tLibURLStack
   local tOutputStack
   put $0 into tOutputStack
   put $1 into tInputStack
   local tInputStackName
      put the short name of stack tInputStack into tInputStackName
   catch tError
      write "Error: could not open source environment stack:" && tError & return to stderr
      quit 1
   local tArg, tStack, tName
   repeat with tArg = 2 to $#
      do "put $" & tArg && "into tStack" 
      if tStack is empty then
         next repeat
      end if
      if there is a stack tStack then
         put the short name of stack tStack into tName
         set the scriptOnly of stack tName to false
         set the mainstack of stack tName to tInputStackName
         write "Error: could not open stack file" && tStack & return to stderr
         quit 2
      end if
   end repeat
   set the stackFiles of stack tInputStackName to empty
      save stack tInputStack as tOutputStack
   catch tError
      write "Error: could not save updated environment stack:" && tError & return to stderr
      quit 4
end descriptifyStack
on errorDialog tError
   write "Error:" && tError to stderr
end errorDialog

Navigation Menu

Uh oh!

Uh oh!

FilesExpand file tree

descriptify_stack.livecodescript

Latest commit

History

descriptify_stack.livecodescript

File metadata and controls