GV

GeezerVison

The World Wide Web, restored to 800 pixels of glory.

Home|About|Gaming cabinet|Archives|How it works|Starter sites

On this site

  • Sign in
  • ActionsCI/CD and automation
  • CodespacesCloud development environments
  • All Features
  • Documentation
  • Training
  • Certifications
  • Build with Copilot
  • Customize Copilot
  • Integrations
  • Trending repos
  • GitHub Sponsors
  • Developer articles
  • Enterprises

This view

  • Original page
  • New address

GeezerVison is showing github.com — 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.

Expand file tree

/

descriptify_stack.livecodescript

Copy path
More file actions
More file actions

Latest commit

 

History

History
History
56 lines (43 loc) · 1.28 KB
/

descriptify_stack.livecodescript

Copy path

File metadata and controls

56 lines (43 loc) · 1.28 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#!
send "descriptifyStack" to me
on descriptifyStack
local tInputStack
local tLibURLStack
local tOutputStack
put $0 into tOutputStack
put $1 into tInputStack
local tInputStackName
try
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
end try
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
else
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
try
save stack tInputStack as tOutputStack
catch tError
write "Error: could not save updated environment stack:" && tError & return to stderr
quit 4
end try
quit 0
end descriptifyStack
on errorDialog tError
write "Error:" && tError to stderr
quit 10
end errorDialog
You are visitor 01402503 — GeezerVison does not store the pages you look up.
Best viewed with Netscape Navigator 4.7 or Internet Explorer 6 at 800×600. No cookies required.