Parameters in Rey

[Thomas.Schneider.Wien]

This is just another attempt to *send*sned you a Code SNIPPET by
attached mail:

PARAMS.nrx -- the Rey Parameters

Bruce, NO matter why I should use the interface you sned me, when
*nobody is intersted* !!

I will (very quietly) listen where this code-snippet appears (as an
ATTACHED File)

... and when it does NOT appear, I will simply STOP sending you *Code
Snippet's*
...... when you don't like them (my Snippets)
..........  Why shold I do ???
................ Then you are wasting my time, ONLY ! :-(

Thomas Schneider.
-------------- next part --------------
/**********************************************************************/
/* Params: commonly used PP 'Parameters' (used In all PreProcessors)  */
/*     (c) Th. Schneider, 1998 - 2004, all rights reserved            */
/**********************************************************************/
/* 15.02.2005: expand given Filelist with ReyFile.Filelist            */
/* 10.10.2005: possible SUPPORTED extentsions added                   */
/* 20.08.2008: NetRexx version, various Parameters added for DB-13    */
/* 19.07.2009: user_action_list, public_class_list added              */
/* 23.07.2009: current_scope now in Params for global reference       */  
/**********************************************************************/

package Rey.RT

import Rey.RT.

class Params public

properties public static
   
   line_limit = int 0 -- the LIMIT of SOURCE-lines allowed (LICENSE restriction)
                      -- 0 = NO restriction
                     
   current_scope = Rexx ''
   current_level = int 0
   
   /* the Code-module does no obtain the Parse locations from here */
   pp_parse_loc1=int 0 -- starting parse location of current statement
   pp_parse_loc2=int 0 -- ending parse location of current statetement
   pp_pass = int -1 -- undefined pass
       
   /* 19.07.2009: user_action_list, public_class_list added */
   is_main = boolean 0
   main_module = Rexx ''
   uses_list = Rexx ''
   user_action_list= Rexx ''
   public_class_list=Rexx ''
   
   db123_version = Rexx '15.00'
   date_time_stamp= ReyFile.DTS()  
   
   gen_decl_file=Rexx '' /* the current gen_decl_file */
   gen_code_file=Rexx '' /* the current gen_code_file */
   
   /****************************************************************/
   /* this is the DATE-Time stamp at the START of DB123            */
   /* Note: hence all generated files get the SAME date-time-stamp */
   /****************************************************************/  
   current_directory= ReyFile.getDirectory()
   user = ReyUser.userid()
   cdf_file=rexx '' -- name of COMPILED Data Dictionary file
   source_module = Rexx '' /* the current SOURCE module */
   source_file = Rexx '' /* the current source file (full file-name) */
   source_lines = int 0 /* the TOTAL number of source lines (IncludIng all Includes)*/  
   source_language=Rexx '' /* we don't yet know it !!*/
   source_dialect = '' /* dialect not yet known/undefined */
   source_dialect_version = '' /* and detto the version of the used dialect */  
   
   status= Rexx Null  /* the current SOURCE File status */
   host_language = Rexx ''  /* the HOST language (COBOL or PL/I) for the SQL Generator */
   target_language=Rexx ''  /* unknown, depends on pp_steps performed */
 
 /* ... Declare Global strings                                      */
   source_shell='Cmd' /* Windows shell is default */
   pp_processor = Rexx 'Java'  /* the current processor */
   pp_program = Rexx '' /* the actual prepocessor program used */
   pp_host = Rexx '' /* may be MVS or CMS In version 6 */
   pp_debug = boolean 0 /* new unique PP debugger switch added (formerly debug only) */

   
   pp_author = Rexx '[hidden email]' /* the author of the various PP'S*/                    
   pp_module = Rexx '' /* this is the CURRENT modules name (case sensitive) */
   pp_decl_version = int 7  /* the current, most recent version of the decl file image */      
   
   pp_fn = Rexx ''  /* the currents Preprocessor step file name */
   pp_ft = Rexx ''  /* the current Preprocessors step file type */
   pp_fm = Rexx ''  /* the current Preprocessors step file mode (CMS only)*/
   pp_fp = Rexx ''  /* the current Preprocessors File PATH (superceedes File Mode)*/
   
   pp_file_parms= Rexx '' /* the File Parameters, as given in the command line */    
   pp_file_list= Rexx '' /* actually an INDEXED String (STEM) */
   pp_options_list=Rexx  '' /* actually a WORD_list */
   
   pp_step = Rexx '' /* the current Prepocessor STEP (i.e. PARSE, ANALYSE, etc*/
   pp_step_time1 = Rexx '' /* startIng step time (rexx-time) */
   pp_step_time2 = Rexx '' /* endIng step time */
   pp_version = Rexx '' /* the actual Preprocessor release version */
   pp_dlm = Rexx '' /* date and Time last modified */
   pp_state =Rexx 'unknown'
   
   /* pp_State: The preprocessors State: unknown, Parsed, Analysed, Converted'*/                                                            
?
   pp_current_address= Rexx 'SysCmd' /* default REXX address_name (SHELL!!) */
   pp_current_shell=Rexx 'unknown' /* but the current shell is still UNKNOWN !! */
 
   
 
 /***************************************************************************/
 /* general WORD-Lists needed for pp_Decl etc ...                           */
 /* as they are usIng the various ReyWords functions, they must be declared */
 /* as REXX                                                                 */
 /***************************************************************************/
   pp_import_list = Rexx '' /* current import list */
   pp_Package_name = Rexx '' /* current package name */
   pp_uses_list= Rexx ''  /* current uses-list */                                  
   pp_expose_list = Rexx '' /* the most recent expose list */
   pp_action_list = Rexx '' /* user defined action list (release 5.00) */
   pp_requires_list = Rexx '' /* the list of OBJECT-REXX Requirements used ...*/
   pp_externals  = Rexx '' /* the list of External Functions used (classic Rexx) */
   pp_publics_list = Rexx '' /* list of defined public CLASSES In this source file*/
   /* note that Java does only allow 1 public calss, so we must split files maybe*/
   
   /*******************************************/
   /* various flags used by the pre-processor */
   /*******************************************/
   pp_is_procedure= boolean 0
   pp_is_argument = boolean 0
   pp_procedure_name = Rexx '' /* the current procedures name */
   pp_decimal_point = Rexx '.' /* default decimal point */
   pp_user_id    = ReyUser.userid() /* the current user ID */

   /* special Parameters for COBOL Programs (Identification Division) */
   program_name = Rexx ''
   program_type = Rexx '' /* batch or online */
   has_SQL = boolean 0    /* 1 if program has SQL statements */
   install_name   = Rexx '' -- the installations Name
   program_id     = Rexx ''
   cobol_security = Rexx ''
   cobol_remarks  = Rexx '' /* actually a STEM */
   date_written   = Rexx ''
   date_compiled  = Rexx ''
   author_name    = Rexx ''
   source_computer= Rexx ''
   object_computer= Rexx ''
 
method init private static
   return  
method init_params() public static
   init()
   return

method init_cobol_parameters() public static
   install_name=''
   program_id  =''
   cobol_security=''
   cobol_remarks=''; cobol_remarks[0]=0
   Counters.n_remarks=0
   date_written = ''
   date_compiled=''
   author_name=''
   source_computer=''
   object_computer = ''
   return
         
method inform_author public static
   ReyMsg.info('Please inform Author:' pp_author)
   return /* try always to continue */  
   
 
method get_processor public static
   parse source pp_processor .
   return pp_processor
   
method set_pp_parameters(parameters) public static
  if ReyMsg.opt_verbose>3 then ReyMsg.info('Params.set_pp_parameters:' parameters)
  /* CMS style: options In parenthesis */
  if parameters.pos(' (') > 0 then do
     parse parameters file_parms ' (' options_list ')' .
  end
  else do  /* Java style: options with prefix - */
     file_parms=''
     options_list=''

     nw_params=parameters.words()
     loop iw_params=1 to nw_params
       par1=parameters.word(iw_params)
       if par1.substr(1,1)='-' then do
          opt1=par1.substr(2)
          options_list=options_list' 'opt1
       end
       else do
         fil1=par1
         file_parms=file_parms' 'fil1
       end
     end
  end /* new style */
 
  options_list=options_list.strip()

  /********************************************************/
  /* Note that file_list, as returned from ReyFile, is an */
  /* Indexed String (STEM) now                            */
  /********************************************************/
  file_list=ReyFile.FileList(file_parms.strip())
   
  pp_options_list=options_list /* save in global vars */
  pp_file_parms=file_parms
  pp_file_list=file_list /* save In global vars */
 
  /* Options.opt_debug=1 ** test */
  if Options.opt_debug then do
     ReyMsg.info('debug Params: options list is:' options_list)
     ReyMsg.info('      Params: file_list=' file_list)
  end
 
  return
method get_pp_file_parms() public static returns Rexx
  return pp_file_parms -- returns the ORIGINAL File Parameters of PP    
method get_pp_file_list() public static returns Rexx
  return pp_file_list -- returns a STEM of multiple file-names (0 contains count)
method get_pp_options_list() public static returns Rexx
  return pp_options_list -- returns the original OPTIONS List

[Thomas.Schneider.Wien]

Mike,

I'm *NOT spamming anybody of you....

I'm simply *frustrated*.   (as you might be working for NetRexx within
BIG Brother ??)

I'm now working for more that 40 Years on my software ....


Nevertheless,
  CAVEAT CANEM:   (In Deutsch KUSCH ! For Me, of course, NOT for your!)

I will, starting immediately,
     ... and instantly, never  POST there on the REXXLA  Group any un-needed
*or* un-wanted details of the project I'm currently finishing:

The Project (my Project) is:

Rey ::== Rexx for Java.

Wish you all the best for your future ..

Thomas.

... and you there at REXXLA, do please NOT suggest anymore I should publish
something (Bruce, are you listening still??)

======================================================

Mike Cowlishaw schrieb:

>  
>  
>> This is just another attempt to *send*sned you a Code SNIPPET
>> by attached mail:
>>
>> PARAMS.nrx -- the Rey Parameters
>>
>> Bruce, NO matter why I should use the interface you sned me,
>> when *nobody is intersted* !!
>>
>> I will (very quietly) listen where this code-snippet appears
>> (as an ATTACHED File)
>>
>> ... and when it does NOT appear, I will simply STOP sending you *Code
>> Snippet's*
>> ...... when you don't like them (my Snippets) ..........  Why
>> shold I do ???
>> ................ Then you are wasting my time, ONLY ! :-(
>>    
>
> Tom -- you are wasting hundreds of people's time with these posts, adverts,
> and attachments you are sending to both the RexxLA and the NetRexx lists.
> If you want to have a private conversation with someone, use e-mail.
>
> Please stop spamming the rest of us.
>
> Thanks -- Mike
>
>
> _______________________________________________
> rexxla-members mailing list -- mailto:[hidden email]
> http://rice.safedataisp.net/mailman/listinfo/rexxla-members
>
>