2010-09-20 16:37:07 +04:00
/*
* Samba Unix / Linux SMB client library
*
* Copyright ( C ) Gregor Beck 2010
*
* This program is free software ; you can redistribute it and / or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation ; either version 3 of the License , or
* ( at your option ) any later version .
*
* This program is distributed in the hope that it will be useful ,
* but WITHOUT ANY WARRANTY ; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE . See the
* GNU General Public License for more details .
*
* You should have received a copy of the GNU General Public License
* along with this program . If not , see < http : //www.gnu.org/licenses/>.
*/
/**
* @ file srprs . c
* @ author Gregor Beck < gb @ sernet . de >
* @ date Aug 2010
* @ brief A simple recursive parser .
*/
2018-04-25 12:53:00 +03:00
# include "replace.h"
# include "system/locale.h"
2010-09-20 16:37:07 +04:00
# include "srprs.h"
# include "cbuf.h"
2018-04-25 12:53:00 +03:00
# include <assert.h>
2010-09-20 16:37:07 +04:00
bool srprs_skipws ( const char * * ptr ) {
while ( isspace ( * * ptr ) )
+ + ( * ptr ) ;
return true ;
}
bool srprs_char ( const char * * ptr , char c ) {
if ( * * ptr = = c ) {
+ + ( * ptr ) ;
return true ;
}
return false ;
}
2018-05-04 23:28:43 +03:00
bool srprs_str ( const char * * ptr , const char * str , ssize_t len )
2010-09-20 16:37:07 +04:00
{
if ( len = = - 1 )
len = strlen ( str ) ;
if ( memcmp ( * ptr , str , len ) = = 0 ) {
* ptr + = len ;
return true ;
}
return false ;
}
bool srprs_charset ( const char * * ptr , const char * set , cbuf * oss )
{
const char * p = strchr ( set , * * ptr ) ;
if ( p ! = NULL & & * p ! = ' \0 ' ) {
cbuf_putc ( oss , * * ptr ) ;
+ + ( * ptr ) ;
return true ;
}
return false ;
}
bool srprs_charsetinv ( const char * * ptr , const char * set , cbuf * oss )
{
if ( ( * * ptr ! = ' \0 ' ) & & ( strchr ( set , * * ptr ) = = NULL ) ) {
cbuf_putc ( oss , * * ptr ) ;
+ + ( * ptr ) ;
return true ;
}
return false ;
}
bool srprs_quoted_string ( const char * * ptr , cbuf * str , bool * cont )
{
const char * pos = * ptr ;
const size_t spos = cbuf_getpos ( str ) ;
if ( cont = = NULL | | * cont = = false ) {
if ( ! srprs_char ( & pos , ' \" ' ) )
goto fail ;
}
while ( true ) {
while ( srprs_charsetinv ( & pos , " \\ \" " , str ) )
;
switch ( * pos ) {
case ' \0 ' :
if ( cont = = NULL ) {
goto fail ;
} else {
* ptr = pos ;
* cont = true ;
return true ;
}
case ' \" ' :
* ptr = pos + 1 ;
if ( cont ! = NULL ) {
* cont = false ;
}
return true ;
case ' \\ ' :
pos + + ;
if ( ! srprs_charset ( & pos , " \\ \" " , str ) )
goto fail ;
break ;
default :
assert ( false ) ;
}
}
fail :
cbuf_setpos ( str , spos ) ;
return false ;
}
bool srprs_hex ( const char * * ptr , size_t len , unsigned * u )
{
2014-11-13 10:50:35 +03:00
const char * str = * ptr ;
const char * pos = * ptr ;
2010-09-20 16:37:07 +04:00
int ret ;
2018-04-25 13:05:37 +03:00
size_t i ;
2014-11-13 10:50:35 +03:00
char buf [ 8 + 1 ] = { } ;
2010-09-20 16:37:07 +04:00
2014-11-13 10:50:35 +03:00
assert ( ( len > = 1 ) & & ( len < = 8 ) ) ;
2010-09-20 16:37:07 +04:00
for ( i = 0 ; i < len ; i + + ) {
if ( ! srprs_charset ( & pos , " 0123456789abcdefABCDEF " , NULL ) ) {
break ;
}
2014-11-13 10:50:35 +03:00
buf [ i ] = str [ i ] ;
2010-09-20 16:37:07 +04:00
}
2014-11-13 10:50:35 +03:00
ret = sscanf ( buf , " %8x " , u ) ;
2010-09-20 16:37:07 +04:00
if ( ret ! = 1 ) {
return false ;
}
* ptr = pos ;
return true ;
}
bool srprs_nl ( const char * * ptr , cbuf * nl )
{
static const char CRLF [ ] = " \r \n " ;
if ( srprs_str ( ptr , CRLF , sizeof ( CRLF ) - 1 ) ) {
cbuf_puts ( nl , CRLF , sizeof ( CRLF ) - 1 ) ;
return true ;
}
return srprs_charset ( ptr , " \n \r " , nl ) ;
}
bool srprs_eos ( const char * * ptr )
{
return ( * * ptr = = ' \0 ' ) ;
}
bool srprs_eol ( const char * * ptr , cbuf * nl )
{
return srprs_eos ( ptr ) | | srprs_nl ( ptr , nl ) ;
}
bool srprs_line ( const char * * ptr , cbuf * str )
{
while ( srprs_charsetinv ( ptr , " \n \r " , str ) )
;
return true ;
}
2011-03-17 12:22:25 +03:00
bool srprs_quoted ( const char * * ptr , cbuf * str )
{
const char * pos = * ptr ;
const size_t spos = cbuf_getpos ( str ) ;
if ( ! srprs_char ( & pos , ' " ' ) ) {
goto fail ;
}
while ( true ) {
while ( srprs_charsetinv ( & pos , " \\ \" " , str ) )
;
switch ( * pos ) {
case ' \0 ' :
goto fail ;
case ' " ' :
* ptr = pos + 1 ;
return true ;
case ' \\ ' :
pos + + ;
if ( ! srprs_charset ( & pos , " \\ \" " , str ) ) {
unsigned u ;
if ( ! srprs_hex ( & pos , 2 , & u ) ) {
goto fail ;
}
cbuf_putc ( str , u ) ;
}
break ;
default :
assert ( false ) ;
}
}
fail :
cbuf_setpos ( str , spos ) ;
return false ;
}