Function function_execute_write_file

src/engine/function.cpp:4004–4143

Result is either the filename or contents depending on: 1. If the RESPONSE_FILE_SUB == f or not set (it's filename) 2. If the RESPONSE_FILE_SUB == c (it's contents) 3. If the RESPONSE_FILE_SUB == a (depends on the length of contents) Note, returns a *copy* of the filename or contents.

// 3. If the RESPONSE_FILE_SUB == a (depends on the length of contents)
// Note, returns a *copy* of the filename or contents.
LIST * function_execute_write_file(
    JAM_FUNCTION * function, FRAME * frame, STACK * s,
    VAR_EXPANDED filename, LIST * contents )
{
    LIST * filename_or_contents_result = nullptr;

    char response_file_sub_c = 'f';
    if ( filename.opt_file && filename.opt_content )
    {
        LIST * response_file_sub = function_get_named_variable(
            function, frame, constant_RESPONSE_FILE_SUB );
        if ( response_file_sub && list_front( response_file_sub ) )
            response_file_sub_c =  object_str( list_front( response_file_sub ) )[0];
        list_free( response_file_sub );
        const char * contents_str = object_str( list_front( contents ) );
        if ( response_file_sub_c == 'a' )
        {
            if ( int32_t( strlen( contents_str ) + 256 ) > shell_maxline() )
                response_file_sub_c = 'f';
            else
                response_file_sub_c = 'c';
        }
    }
    else if ( filename.opt_file )
        response_file_sub_c = 'f';
    else if ( filename.opt_content )
        response_file_sub_c = 'c';
    if ( response_file_sub_c == 'c' )
    {
        filename_or_contents_result = list_copy( contents );
    }
    else
    {
        char const * out = object_str( list_front( filename.inner ) );
        OBJECT * tmp_filename = nullptr;
        FILE * out_file = nullptr;
        bool out_debug = DEBUG_EXEC != 0;

        /* For stdout/stderr we will create a temp file and generate a
        * command that outputs the content as needed.
        */
        if ( ( strcmp( "STDOUT", out ) == 0 ) ||
            ( strcmp( "STDERR", out ) == 0 ) )
        {
            int32_t err_redir = strcmp( "STDERR", out ) == 0;
            string result[ 1 ];

            tmp_filename = path_tmpfile();

            /* Construct os-specific cat command. */
            {
                const char * command = "cat";
                const char * quote = "\"";
                const char * redirect = "1>&2";

                #ifdef OS_NT
                command = "type";
                quote = "\"";