http2-push.cx

//-*-C-*-
/*******************************************************************************
*   ___   workplace
*  ¦OUX¦  C+
*  ¦/C+¦  server
*   ---   web server
*         HTTP/2 push
* ©overcq                on ‟Gentoo Linux 17.1” “x86_64”             2020‒10‒4 N
*******************************************************************************/
struct E_text_syntax_Z_body *E_http2_push_Z_syntax_html;
N entities_tag, entities_img, entities_link;
N entities_href, entities_src, entities_attr, entities_oth_attr;
enum E_http2_push_Z_tag
{ E_http2_push_Z_tag_S_oth
, E_http2_push_Z_tag_S_img
, E_http2_push_Z_tag_S_link
};
enum E_http2_push_Z_tag E_http2_push_S_tag;
B E_http2_push_S_attr;
Pc *E_http2_push_S_links;
N E_http2_push_S_links_n;
//==============================================================================
N
E_http2_push_I_parse_links( Pc req_path
, Pc authority
, Pc port
){  Pc req_path_end = E_text_Z_s0_R_search_last_c( req_path, '/' ) + 1;
    for_n( links_i, E_http2_push_S_links_n )
    {   Pc s = E_http2_push_S_links[ links_i ];
        if(( E_text_Z_s0_T_starts_case_s0( s, "https:/""/" ) && (( s += 8 ), yes ))
        || ( E_text_Z_s0_T_starts_s0( s, "/""/" ) && (( s += 2 ), yes ))
        )
        {   if( !E_text_Z_s0_T_starts_case_s0( s, authority ))
            {   if( !E_mem_Q_blk_I_remove( &E_http2_push_S_links, links_i, 1 ))
                    return ~0;
                E_http2_push_S_links_n--;
                links_i--;
                continue;
            }
            s += E_text_Z_s0_R_l(authority);
            if( *s != '/'
            || ( port
              && ( *s != ':'
                || !E_text_Z_s0_T_starts_s0( s + 1, port )
                || (( s += 1 + E_text_Z_s0_R_l(port) ), no )
                || *s != '/'
            )))
            {   if( !E_mem_Q_blk_I_remove( &E_http2_push_S_links, links_i, 1 ))
                    return ~0;
                E_http2_push_S_links_n--;
                links_i--;
                continue;
            }
            if( !E_mem_Q_blk_I_remove( &E_http2_push_S_links[ links_i ], 0, s - E_http2_push_S_links[ links_i ] ))
                return ~0;
            s = E_http2_push_S_links[ links_i ];
        }
        if( *s != '/' )
        {   Pc s_1 = E_mem_Q_blk_I_prepend( &E_http2_push_S_links[ links_i ], req_path_end - req_path );
            if( !s_1 )
                return ~0;
            E_text_Z_s_P_copy_s( E_http2_push_S_links[ links_i ], req_path, req_path_end );
            s = E_http2_push_S_links[ links_i ];
        }
        O{  Pc s_1 = E_text_Z_s0_R_search_c( s + 1, '/' );
            Pc s_2;
            for( s_2 = s; s_2 != s_1 - 1; s_2++ )
                if( *s_2 != '.' )
                    break;
            if( s_2 == s_1 - 1 )
            {   s_2 = E_text_Z_s_R_search_last_c( E_http2_push_S_links[ links_i ], s, '/' );
                if( s_1 - ( s + 1 ))
                {   for_n( i, s_1 - ( s + 1 ) - 1 )
                    {   if( s_2 == E_http2_push_S_links[ links_i ] )
                        {   if( !E_mem_Q_blk_I_remove( &E_http2_push_S_links, links_i, 1 ))
                                return ~0;
                            links_i--;
                            goto Cont;
                        }
                        s_2 = E_text_Z_s_R_search_last_c( E_http2_push_S_links[ links_i ], s_2 - 1, '/' );
                    }
                }
                N s_i = s - E_http2_push_S_links[ links_i ];
                N l = s - s_2;
                if( !E_mem_Q_blk_I_remove( &E_http2_push_S_links[ links_i ], s_2 - E_http2_push_S_links[ links_i ], l ))
                    return ~0;
                s = E_http2_push_S_links[ links_i ] + s_i;
                s -= l;
            }
            if( !*s_1 )
            {   s++;
                break;
            }
            s = s_1;
        }
Cont:   ;
    }
    return 0;
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
I
E_http2_push_Q_tmp_file_M( Pc *s
){  int fd;
    Pc s_ = M( J_s0_R_l( "/tmp/oux-web-srv-http2-push-XXXXXX" ) + 1 );
    if( !s_ )
        return ~0;
    E_text_Z_s_P_copy_s0_0( s_, "/tmp/oux-web-srv-http2-push-XXXXXX" );
    V1( fd = mkstemp( s_ ) )
    {   W( s_ );
        return ~0;
    }
    I file = E_mem_Q_file_M_fd(fd);
    if( !~file )
    {   VO0( close(fd) ){}
        V0( unlink( s_ ) ){}
        W( s_ );
        return ~0;
    }
    *s = s_;
    return file;
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
N
E_http2_push_I_entities_func_Z_html( struct E_text_syntax_Z_body *syntax
, struct E_text_syntax_Z_state *state
, N state_n
){  if( state[ state_n - 1 ].entities_i == entities_tag )
        E_http2_push_S_tag = E_http2_push_Z_tag_S_oth;
    else if( state[ state_n - 1 ].entities_i == entities_img )
        E_http2_push_S_tag = E_http2_push_Z_tag_S_img;
    else if( state[ state_n - 1 ].entities_i == entities_link )
        E_http2_push_S_tag = E_http2_push_Z_tag_S_link;
    else if( state[ state_n - 1 ].entities_i == entities_href
    && E_http2_push_S_tag == E_http2_push_Z_tag_S_link
    )
        E_http2_push_S_attr = yes;
    else if( state[ state_n - 1 ].entities_i == entities_src
    && E_http2_push_S_tag == E_http2_push_Z_tag_S_img
    )
        E_http2_push_S_attr = yes;
    else if( state[ state_n - 1 ].entities_i == entities_attr
    && E_http2_push_S_attr
    )
    {   if( *state[ state_n - 1 ].s
        && E_mem_Q_blk_I_append( &E_http2_push_S_links, 1 )
        )
        {   Pc s = state[ state_n - 1 ].s;
            Pc s_end = E_text_Z_s0_R_end(s);
            if( state[ state_n - 1 ].s[0] == '\''
            || state[ state_n - 1 ].s[0] == '\"'
            )
            {   s++;
                s_end--;
            }
            Pc s_1 = E_text_Z_s_R_search_c( s, s_end, '?' );
            if( s_1 != s_end )
                s_end = s_1;
            if( s != s_end
            && *( s_end - 1 ) != '/'
            && !E_text_Z_s_T_ends_s0( s, s_end, ".html" )
            && !E_text_Z_s_T_ends_s0( s, s_end, ".php" )
            )
            {   E_http2_push_S_links[ E_http2_push_S_links_n ] = M( s_end - s + 1 );
                if( E_http2_push_S_links[ E_http2_push_S_links_n ] )
                {   E_text_Z_s_P_copy_s_0( E_http2_push_S_links[ E_http2_push_S_links_n ], s, s_end );
                    E_http2_push_S_links_n++;
                }else
                    E_mem_Q_blk_I_remove( &E_http2_push_S_links, E_http2_push_S_links_n, 1 );
            }
        }
    }else if( state[ state_n - 1 ].entities_i == entities_oth_attr )
        E_http2_push_S_attr = no;
    return 0;
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
N
E_http2_push_M( void
){  I file = E_mem_Q_file_M( "html.syntax", yes, 0 );
    if( !~file )
        return ~0;
    if( !~E_text_syntax_M( file, &E_http2_push_Z_syntax_html ))
    {   E_mem_Q_file_W(file);
        return ~0;
    }
    E_mem_Q_file_W(file);
    entities_tag = E_text_syntax_R_entity_by_name( E_http2_push_Z_syntax_html, "inna nazwa znacznika" );
    entities_img = E_text_syntax_R_entity_by_name( E_http2_push_Z_syntax_html, "img" );
    entities_link = E_text_syntax_R_entity_by_name( E_http2_push_Z_syntax_html, "link" );
    entities_href = E_text_syntax_R_entity_by_name( E_http2_push_Z_syntax_html, "href" );
    entities_src = E_text_syntax_R_entity_by_name( E_http2_push_Z_syntax_html, "src" );
    entities_attr = E_text_syntax_R_entity_by_name( E_http2_push_Z_syntax_html, "wartość atrybutu" );
    entities_oth_attr = E_text_syntax_R_entity_by_name( E_http2_push_Z_syntax_html, "inna nazwa atrybutu" );
    if( !~entities_tag
    || !~entities_img
    || !~entities_link
    || !~entities_href
    || !~entities_src
    || !~entities_attr
    || !~entities_oth_attr
    )
        return ~0;
    return 0;
}
/******************************************************************************/