Guidance
指路人
g.yi.org
Upload / Forum Attachment / Reginald Rexx Programming Language Compiler User Forum Attachments and Pictures / 13096-test2.rex

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
/* */

rc = define_arrays()

RETURN 0
/************************************************************
 Define our arrays here. 20000 lines should be enough for
 any sourcecode. Can't imagine any sourcecode has more than
 500 sections (if it did, it would be unmaintainable)
************************************************************/ 
define_arrays:

SAY 'Defining arrays'
/*
sourcecode. = GLOBALS("sourcecode",20000)
if sourcecode. < 1 then
 	do
 		say 'Failure GLOBALS, sourcecode, 'sourcecode.
   	say getmsg()
   	return 1
 	end 

section. = GLOBALS("section",500)
if section. < 1 then
	do
		say 'Failure GLOBALS, section, 'section.
		say getmsg()
		return 1
	end 
*/

RETURN 0
FINALLY
/*
say 'DROPGLOBAL on sourcecode and section'
rc = DROPGLOBAL(sourcecode.)
say 'rc from drop source = 'rc
rc = DROPGLOBAL(section.)
say 'rc from drop section = 'rc
*/
SAY 'Running FINALLY code'
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-6-14  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2009-08-03 20:09:45