insight needed on trans-* hacking

[Steve Kargl]

On Mon, Dec 09, 2024 at 06:39:19PM -0800, Steve Kargl wrote:
> 
> I've an almost complete implementation of F_C_STRING,
> but need a bit of insight on the inlining that I'm
> trying to implement.  In pseudo-code, F_C_STRING is
> 
> case 1.  f_c_string(string)               = trim(string) // c_null_char
> case 2.  f_c_string(string, asis=.false.) = trim(string) // c_null_char
> case 3.  f_c_string(string, asis=.true.)  = string       // c_null_char
> 

Here's where I'm stuck.

      if (asis)
	{
	  /* f_c_string(string, .true.) = string // c_null_char  */

	  len = fold_build2_loc (input_location, PLUS_EXPR, cnode,
				 fold_convert (cnode, lse.string_length),
				 fold_convert (cnode, rse.string_length));

	  var = gfc_conv_string_tmp (se, pchar_type_node, len);
	  tmp = build_call_expr_loc (input_location, gfor_fndecl_concat_string,
				     6, len, var, 
				     lse.string_length, lse.expr,
				     rse.string_length, rse.expr);

//  
//	  /* f_c_string(string, .false.) = trim(string) // c_null_char  */
//
//	  gfc_init_se (&tse, se);
//	  conv_trim (&tse, &lse);
//	  gfc_add_block_to_block (&se->pre, &tse.pre);
//
//	  len = fold_build2_loc (input_location, PLUS_EXPR, cnode,
//				 fold_convert (cnode, tse.string_length),
//				 fold_convert (cnode, rse.string_length));
//	  var = gfc_conv_string_tmp (se, pchar_type_node, len);
//	  tmp = build_call_expr_loc (input_location, gfor_fndecl_concat_string,
//				     6, len, var, 
//				     tse.string_length, tse.expr,
//				     rse.string_length, rse.expr);


	  gfc_add_expr_to_block (&se->pre, tmp);
	  se->expr = var;
	  se->string_length = len;
        }
      else

gfortran needs to select either uncommented code or the code,
based on the whether 'asis' is .true. or .false.  I've been
unable to suss out how to set up the conditional.  (It's been
too long since I hacked in the trans-* files.)

Any suggestions?

-- 
Steve