File: softunpk.rexx
===================
classic REXX Parsing of file: softunpk.rexx with rex_pars.nrx vs 4.00
Copyright (c) Thomas Schneider, 2000-2002, all rights reserved.
function: main(parm)
label: info
function: info(say_line)
label: scratch
function: scratch(fileid)
label: open
function: open(fileid)
label: close
function: close(fileid)
label: DTS
label: abort
function: abort(message)
label: parsefid
function: parsefid(fn ft fp .)
function: parsefid(fp '(' fn ')')
function: parsefid(fp '.' ft)
label: fileid
function: fileid(fn,ft,fp)
label: lower
function: lower(string)
Reading declarations used: 0.110 seconds (37 items)
List of defined functions/subroutines:
======================================
1. Internal unknown Function DTS()
2. Internal unknown Function parsefid(fn ft fp .)
3. Builtin Any Function word(string,n)
4. Internal unknown Function fileid(fn,ft,fp)
5. Internal unknown Function open(fileid)
6. Builtin Text Function linein(file_id,line_number,count)
7. Internal unknown Function info(say_line)
8. Internal unknown Function scratch(fileid)
9. Builtin Number Function lines(file_id)
10. Builtin Number Routine lineout(file_id,string,line)
11. Internal unknown Function close(fileid)
12. Builtin Text Function stream(name,operation,stream_command)
13. Internal unknown Function abort(message)
14. Builtin Text Function date(option)
15. Builtin Text Function time(option)
16. Builtin Number Function lastpos(needle,haystack,i_start)
17. Builtin Text Function substr(string,n,length,pad)
18. Internal unknown Function lower(string)
19. Builtin Number Function length(string)
20. Builtin Text Function translate(string,tableo,tablei,pad)
no simple Labels used.
Saving declarations used: 0.234 seconds (327 items)
208 lines of file: softunpk.rexx parsed.
classic REXX Parsing used 1.49 seconds 0.007 sec. by line)
================================================================================
File: softunpk
==============
classic REXX Code analysis of file: softunpk with rex_type.nrx vs. 4.00
Copyright (c) Thomas Schneider, 2000-2002, all rights reserved.
Reading declarations used: 0.250 seconds (327 items)
Loading code used: 0.063 seconds (459 instructions,)
Initializing Item-Types due to used constant values
===================================================
Analysing Signal statements:
============================
no SIGNAL-statements (simple go-to statements) used.
Code analysis in logical order of execution:
============================================
analysing: main program ( lines 0-75 )
analysing: Function DTS ( lines 127-129 )
Internal Function DTS() returns Text
analysing: Function parsefid ( lines 141-173 )
Internal Function parsefid(fn ft fp .) returns Text
analysing: Function fileid ( lines 174-203 )
analysing: Function lower ( lines 204-207 )
Internal Function lower(string=Text) returns Text
Internal Function fileid(fn=Text,ft=Text,fp=Text) returns Text
analysing: Function open ( lines 99-115 )
Internal Function open(fileid=FileName) returns Number
analysing: Function info ( lines 76-85 )
Internal Routine info(say_line=Text) returns Nothing
analysing: Function scratch ( lines 86-98 )
analysing: Function abort ( lines 130-140 )
Internal Function abort(message=Text) returns Number
Internal Function scratch(fileid=FileName) returns Number
analysing: Function clo
File: softunpk
==============
Rexx to NetRexx translation of file: softunpk with rex_nrx.nrx vs. 4.00
Copyright (c) Thomas Schneider, 2000-2002, all rights reserved.
Reading declarations used: 0.266 seconds (327 items)
Loading code used: 0.062 seconds (459 instructions,)
Performing necessary renames to avoid Java/NetRexx conflicts
============================================================
Rename file used is: U:\Rexx2Nrx\Rexx2Nrx.renames
64 rename rules loaded from: U:\Rexx2Nrx\Rexx2Nrx.renames
Checking Stems & simple Variables for duplicate names:
======================================================
note, that in NetRexx simple Variables and subscripted
strings (stems in Rexx) must have different names!
no names changed due to name-conflicts
rename Local/Parameter variables when needed/wanted:
====================================================
note, that properties in NetRexx might NOT have the
same name as a Local name or Argument of a method !
Line 142: Global unknown Var 'processor' also used as: Local Text Var 'processor' in line 11
Line 142: Local Text Var 'processor' renamed to 'processor1'
Line 30: Global Text Var 'option' also used as: Param Text Var 'option' in line 19
Line 30: Param Text Var 'option' renamed to 'option1'
Line 144: Global Text Var 'fn' also used as: Param Text Var 'fn' in line 54
Line 144: Param Text Var 'fn' renamed to 'fn1'
Line 144: Global Text Var 'ft' also used as: Param Text Var 'ft' in line 54
Line 144: Param Text Var 'ft' renamed to 'ft1'
Line 144: Global Nothing Var 'fp' also used as: Param Text Var 'fp' in line 54
Line 144: Param Text Var 'fp' renamed to 'fp1'
Line 182: Global Text Var 'file' also used as: Local Text Var 'file' in line 57
Line 182: Local Text Var 'file' renamed to 'file1'
Line 45: Global Text Var 'line' also used as: Param Text Var 'line' in line 62
Line 45: Param Text Var 'line' renamed to 'line1'
rename Internal (local) Functions when needed:
==============================================
Line 87: Param FileName Var 'fileid' also used as Function in line: 24
Line 87: Internal Text Function 'fileid' renamed to: 'fileid_function'
Converting declarations from 'Rexx' to 'NetRexx':
=================================================
This step performs the following actions:
- replicate back-slashes (\) in quoted Literals
- replicate imbedded quotes in quoted Literals
- replace 'Rexx' by 'NetRexx' notation in Vars and Expressions
- replace special constants like .true and .false by NetRexx equivalents
Declaration Conversions used: 0.109 seconds.
Generating NetRexx module: 'softunpk.nrx'
=========================================
# 1 translating: info(say_line = Rexx) returns Nothing
# 2 translating: scratch(fileid = Rexx) returns int
# 3 translating: open(fileid = Rexx) returns int
# 4 translating: close(fileid = Rexx) returns Nothing
# 5 translating: DTS() returns Rexx
# 6 translating: abort(message = Rexx) returns int
# 7 translating: parsefid($arg=Rexx '') returns Rexx
# 8 translating: fileid_function(fn1 = Rexx,ft1 = Rexx,fp1 = Rexx) returns Rexx
# 9 translating: lower(string = Rexx) returns Rexx
Rexx to NetRexx translation used: 0.95 seconds (0.00599 sec/line)
Rexx2Nrx translation of: 'softunpk' completed (no warnings, no errors)