/**
* @brief Do da hand shake f00.
*
* @param sock Socket
*
* @return Error status
*/
static int scrob_handshake(int sock)
{
char utm[96];
char utm_md5[160];
int n;
char buf[1024];
DEBUGF(("mpdscrob: Handshaking with (%s:%d)!\n",
scrob_host, scrob_port));
scrob_utime(utm, sizeof(utm));
strfcpy(utm_md5, scrob_pass, sizeof(utm_md5));
strfcat(utm_md5, utm, sizeof(utm_md5));
scrob_md5(utm_md5);
sendcrlf(sock,
"GET http://%s/"
"?hs=true&p=1.2&c=%s&v=%s&u=%s&t=%s&a=%s\n"
"Host: %s\r\n",
scrob_host,
SCROB_CLIENT,
SCROB_VERSION,
scrob_user,
utm,
utm_md5,
scrob_host);
n = recv(sock, buf, sizeof(buf), 0);
if (n <= 0) {
fprintf(stderr, "mpdscrob: Socket disconnected!\n");
return -1;
}
buf[n] = '\0';
return scrob_handshake_parse(buf);
}
static int ParseArgs( int argc, char **argv )
/*********************************************/
{
char *p;
int wcc_option;
int c;
int i;
list *new_item;
initialize_Flags();
DebugFlag = 1;
StackSize = NULL;
Conventions[0] = 'r';
Conventions[1] = '\0';
preprocess_only = 0;
cpp_want_lines = 1; /* NB: wcc and wcl default to 0 here */
cpp_keep_comments = 0;
cpp_encrypt_names = 0;
cpp_linewrap = NULL;
O_Name = NULL;
AltOptChar = '-'; /* Suppress '/' as option herald */
while( (c = GetOpt( &argc, argv,
#if 0
"b:Cc::D:Ef:g::"
"HI:i::k:L:l:M::m:"
"O::o:P::QSs::U:vW::wx:yz::",
#else
"b:CcD:Ef:g::"
"HI:i::k:L:l:M::m:"
"O::o:P::QSs::U:vW::wx::yz::",
#endif
EnglishHelp )) != -1 ) {
char *Word = "";
int found_mapping = FALSE;
for( i = 0; i < sizeof( mappings ) / sizeof( mappings[0] ); i++ ) {
option_mapping *m = mappings + i;
char *tail = strchr( m->LongName, ':' );
if( c != m->LongName[0] )
continue;
if( OptArg == NULL ) {
if( m->LongName[1] == '\0' ) {
strcat( CC_Opts, " -" );
strcat( CC_Opts, m->WatcomName );
found_mapping = TRUE;
break;
}
/* non-existant argument can't match other cases */
continue;
}
if( tail != NULL ) {
if( !strncmp( OptArg, m->LongName + 1,
tail - m->LongName - 1 ) ) {
strcat( CC_Opts, " -" );
strcat( CC_Opts, m->WatcomName );
strcat( CC_Opts, OptArg + ( tail - m->LongName - 1) );
found_mapping = TRUE;
break;
}
} else if( !strcmp( OptArg, m->LongName + 1 ) ) {
strcat( CC_Opts, " -" );
strcat( CC_Opts, m->WatcomName );
found_mapping = TRUE;
break;
}
}
if( found_mapping )
continue;
if( OptArg != NULL ) {
Word = MemAlloc( strlen( OptArg ) + 6 );
strcpy( Word, OptArg );
}
wcc_option = 1;
switch( c ) {
case 'f':
if( !strcmp( Word, "syntax-only" ) ) {
c = 'z';
strcpy( Word, "s" );
Flags.no_link = 1;
break;
}
if( !strncmp( Word, "cpp-wrap=", 9 ) ) {
MemFree( cpp_linewrap );
Word[7] = 'w';
cpp_linewrap = MemStrDup( Word + 7 );
wcc_option = 0;
break;
}
if( !strcmp( Word, "mangle-cpp" ) ) {
cpp_encrypt_names = 1;
wcc_option = 0;
break;
}
switch( Word[0] ) {
case 'd': /* name of linker directive file */
if( Word[1] == '=' || Word[1] == '#' ) {
MakeName( Word, ".lnk" ); /* add extension */
MemFree( Link_Name );
Link_Name = strfdup( Word + 2 );
} else {
MemFree( Link_Name );
Link_Name = MemStrDup( TEMPFILE );
}
wcc_option = 0;
break;
case 'm': /* name of map file */
Flags.map_wanted = TRUE;
if( Word[1] == '=' || Word[1] == '#' ) {
MemFree( Map_Name );
Map_Name = strfdup( Word + 2 );
}
wcc_option = 0;
break;
case 'o': /* name of object file */
/* parse off argument, so we get right filename
in linker command file */
p = &Word[1];
if( Word[1] == '=' || Word[1] == '#' ) {
++p;
}
MemFree( Obj_Name );
Obj_Name = strfdup( p ); /* 08-mar-90 */
break;
case 'r': /* name of error report file */
Flags.want_errfile = TRUE;
break;
}
/* avoid passing on unknown options */
wcc_option = 0;
break;
case 'k': /* stack size option */
if( Word[0] != '\0' ) {
MemFree( StackSize );
StackSize = MemStrDup( Word );
}
wcc_option = 0;
break;
/* compiler options that affect the linker */
case 'c': /* compile only */
Flags.no_link = TRUE;
wcc_option = 0;
break;
case 'x': /* change source language */
if( strcmp( Word, "c" ) == 0 ) {
Flags.force_c = TRUE;
} else if( strcmp( Word, "c++" ) == 0 ) {
Flags.force_c_plus = TRUE;
} else {
Flags.no_link = TRUE;
}
wcc_option = 0;
break;
case 'm':
if( ( !strncmp( "cmodel=", Word, 7 ) )
&& ( Word[8] == '\0' ) ) {
if( Word[7] == 't' ) { /* tiny model */
Word[0] = 's'; /* change to small */
Flags.tiny_model = TRUE;
} else {
Word[0] = Word[7];
}
Word[1] = '\0';
break;
}
if( !strncmp( "regparm=", Word, 8 ) ) {
if( !strcmp( Word + 8, "0" ) ) {
Conventions[0] = 's';
} else {
Conventions[0] = 'r';
}
wcc_option = 0;
break;
}
if( !strncmp( "tune=i", Word, 6 ) ) {
switch( Word[6] ) {
case '0':
case '1':
case '2':
CPU_Class = Word[6];
Conventions[0] = '\0';
break;
case '3':
case '4':
case '5':
case '6':
CPU_Class = Word[6];
break;
default:
/* Unknown CPU type --- disable generation of this
* option */
CPU_Class = '\0';
}
wcc_option = 0;
break;
}
wcc_option = 0; /* dont' pass on unknown options */
break;
case 'z': /* 12-jan-89 */
switch( tolower( Word[0] ) ) {
case 's':
Flags.no_link = TRUE;
break;
case 'q':
Flags.be_quiet = TRUE;
break;
case 'w':
Flags.windows = TRUE;
}
break;
case 'E':
preprocess_only = 1;
wcc_option = 0;
break;
case 'P':
cpp_want_lines = 0;
wcc_option = 0;
break;
case 'C':
cpp_keep_comments = 1;
wcc_option = 0;
break;
case 'o':
MemFree( O_Name );
O_Name = strfdup( OptArg );
wcc_option = 0;
break;
case 'g':
if( OptArg == NULL ) {
Word = "2";
} else if( !isdigit( OptArg[0] ) ) {
c = 'h';
if( strcmp( Word, "w" ) == 0 ) {
DebugFlag = 3;
} else if( strcmp( Word, "c" ) == 0 ) { /* 02-mar-91 */
Flags.do_cvpack = 1;
DebugFlag = 4;
} else if( strcmp( Word, "d" ) == 0 ) {
DebugFlag = 5;
}
break;
}
c = 'd';
parse_d:
if( DebugFlag == 0 ) { /* not set by -h yet */
if( strcmp( Word, "1" ) == 0 ) {
DebugFlag = 1;
} else if( strcmp( Word, "1+" ) == 0 ) { /* 02-mar-91 */
DebugFlag = 2;
} else if( strcmp( Word, "2" ) == 0 ) {
DebugFlag = 2;
} else if( strcmp( Word, "2i" ) == 0 ) {
DebugFlag = 2;
} else if( strcmp( Word, "2s" ) == 0 ) {
DebugFlag = 2;
} else if( strcmp( Word, "3" ) == 0 ) {
DebugFlag = 2;
} else if( strcmp( Word, "3i" ) == 0 ) {
DebugFlag = 2;
} else if( strcmp( Word, "3s" ) == 0 ) {
DebugFlag = 2;
}
}
break;
case 'S':
Flags.do_disas = TRUE;
Flags.no_link = TRUE;
if( DebugFlag == 0 ) {
c = 'd';
Word = "1";
goto parse_d;
}
wcc_option = 0;
break;
case 's':
if( OptArg != NULL ) {
/* leave -shared to mapping table */
wcc_option = 0;
break;
}
Flags.strip_all = 1;
DebugFlag = 0;
wcc_option = 0;
break;
case 'v':
Flags.be_quiet = 0;
wcc_option = 0;
break;
case 'W':
if( OptArg != NULL && strncmp( OptArg, "l,", 2 ) == 0 ) {
AddDirective( OptArg + 2 );
wcc_option = 0;
}
/* other cases handled by table */
break;
case 'I':
xlate_fname( Word );
break;
case 'b':
Flags.link_for_sys = TRUE;
MemFree( SystemName );
SystemName = MemStrDup( Word );
/* if Word found in specs.owc, add options from there: */
if( ConsultSpecsFile( Word ) ) {
/* all set */
wcc_option = 0;
} else {
/* not found --- default to bt=<system> */
strcpy( Word, "t=" );
strcat( Word, SystemName );
}
break;
case 'l':
new_item = MemAlloc( sizeof( list ) );
new_item->next = NULL;
p = MemAlloc( strlen( OptArg ) + 2 + 1 );
strcpy( p, OptArg );
strcat( p, ".a" );
new_item->item = strfdup( p );
MemFree( p );
ListAppend( &Libs_List, new_item );
wcc_option = 0;
break;
case 'L':
xlate_fname( Word );
fputs( "libpath ", Fp );
Fputnl( Word, Fp );
wcc_option = 0;
break;
case 'i': /* -include <file> --> -fi=<file> */
if( OptArg == NULL ) {
wcc_option = 0;
break;
}
if( !strcmp( OptArg, "nclude" ) ) {
c = 'f';
Word = MemReAlloc( Word, strlen( argv[OptInd] ) + 6 );
if( OptInd >= argc - 1 ) {
MemFree( cpp_linewrap );
PrintMsg( "Argument of -include missing\n", OptArg );
return( 1 );
}
strcpy( Word, "i=" );
strfcat( Word, argv[OptInd] );
argv[OptInd++][0] = '\0';
break;
}
/* avoid passing un unknown options */
wcc_option = 0;
break;
case 'M': /* autodepend information for Unix makes */
if( OptArg == NULL ) {
wcc_option = 0;
break;
}
c = 'a';
if( !strcmp( OptArg, "D" ) ||
!strcmp( OptArg, "MD" ) ) {
/* NB: only -MMD really matches OW's behaviour, but
* for now, let's accept -MD to mean the same */
/* translate to -adt=.o */
strcpy( Word, "dt=.o" );
} else if( !strcmp( OptArg, "F" ) ) {
Word = MemReAlloc( Word, strlen( argv[OptInd] ) + 6 );
if( OptInd >= argc - 1 ) {
MemFree( cpp_linewrap );
PrintMsg( "Argument of -MF missing\n", OptArg );
return( 1 );
}
strcpy( Word, "d=" );
strfcat( Word, argv[OptInd] );
argv[OptInd++][0] = '\0';
} else if( !strcmp( OptArg, "T") ) {
Word = MemReAlloc( Word, strlen( argv[OptInd] ) + 6 );
if( OptInd >= argc - 1 ) {
MemFree( cpp_linewrap );
PrintMsg( "Argument of -M%s missing\n", OptArg );
return( 1 );
}
strcpy( Word, "dt=" );
strcat( Word, argv[OptInd] );
argv[OptInd++][0] = '\0';
} else {
/* avoid passing on incompatible options */
wcc_option = 0;
}
break;
}
/* don't add linker-specific options */
/* to compiler command line: */
if( wcc_option ) {
addccopt( c, Word );
}
if( OptArg != NULL ) {
MemFree( Word );
Word = NULL;
}
}
if( preprocess_only ) {
Flags.no_link = TRUE;
if( O_Name == NULL ) {
MemFree( Obj_Name ); /* preprocess to stdout by default */
Obj_Name = NULL;
}
strcat( CC_Opts, " -p" );
if( cpp_encrypt_names )
strcat( CC_Opts, "e" );
if( cpp_want_lines )
strcat( CC_Opts, "l" );
if( cpp_keep_comments )
strcat( CC_Opts, "c" );
if( cpp_linewrap != NULL ) {
strcat( CC_Opts, cpp_linewrap );
}
}
if( CPU_Class )
addccopt( CPU_Class, Conventions );
if( Flags.be_quiet )
addccopt( 'z', "q" );
if( O_Name != NULL ) {
if( Flags.no_link && !Flags.do_disas ) {
MemFree( Obj_Name );
Obj_Name = O_Name;
} else {
strcpy( Exe_Name, O_Name );
Flags.keep_exename = 1;
MemFree( O_Name );
}
O_Name = NULL;
}
if( Obj_Name != NULL ) {
strcat( CC_Opts, " -fo=" );
strcat( CC_Opts, Obj_Name );
}
if( !Flags.want_errfile ) {
strcat( CC_Opts, " -fr" );
}
for( i = 1; i < argc ; i++ ) {
Word = argv[i];
if( Word == NULL || Word[0] == '\0' )
/* HBB 20060217: argument was used up */
continue;
new_item = MemAlloc( sizeof( list ) );
new_item->next = NULL;
new_item->item = strfdup( Word );
if( FileExtension( Word, ".lib" ) || FileExtension( Word, ".a" ) ) {
ListAppend( &Libs_List, new_item );
} else {
ListAppend( &Files_List, new_item );
}
}
MemFree( cpp_linewrap );
return( 0 );
}
char* _ex2 (char * dst, nodeType *p) {
int nops;
switch(p->type) {
case typeOpr:
switch(p->opr.oper) {
case SUM:
strfcat(dst,"%s", p->opr.op[0]->id.s);
break;
case '=':
nops = p->opr.nops;
/* check leftmost node */
_ex2(dst, p->opr.op[0]);
strfcat(dst, "%c", p->opr.oper);
/* check rightmost node */
if(nops > 1)
_ex2(dst, p->opr.op[nops-1]);
break;
case UMINUS:
if(p->opr.op[0]->type != typeCon) {
strfcat(dst, "(-1*(");
_ex2(dst,p->opr.op[0]);
strfcat(dst, "))");
} else {
strfcat(dst, "(-");
_ex2(dst,p->opr.op[0]);
strfcat(dst, ")");
}
break;
case '^':
strfcat(dst,"(pow(");
nops = p->opr.nops;
/* check leftmost node */
_ex2(dst, p->opr.op[0]);
strfcat(dst,",");
/* check rightmost node */
if(nops > 1)
_ex2(dst, p->opr.op[nops-1]);
strfcat(dst,"))");
break;
default: //binary operators
strfcat(dst,"(");
nops = p->opr.nops;
/* check leftmost node */
_ex2(dst, p->opr.op[0]);
strfcat(dst,"%c", p->opr.oper);
/* check rightmost node */
if(nops > 1)
_ex2(dst, p->opr.op[nops-1]);
strfcat(dst,")");
}
break;
case typeId:
strfcat(dst,"%s", p->id.s);
return dst;
break;
case typeCon:
strfcat(dst,"%g", p->con.value);
return dst;
break;
}
return dst;
}
/**
* @brief Send now playing to scrobbler.
*
* @param artist
* @param title
* @param album
* @param track
* @param ttime
*/
static void scrob_nowplay(int sock, const char *artist, const char *title,
const char *album, const char *track, const int ttime)
{
char snd[1024];
char sttime[32];
DEBUGF(("Sending now playing (%s - %s) to (%s)!\n",
artist, title, scrob_nowplayurl));
snprintf(sttime, sizeof(sttime), "%d", ttime);
/* Assemble request string. */
strfcpy(snd, "s=", sizeof(snd));
strfcat(snd, scrob_sessionid, sizeof(snd));
strfcat(snd, "&a=", sizeof(snd));
strfcat(snd, scrob_urlenc(artist), sizeof(snd));
strfcat(snd, "&t=", sizeof(snd));
strfcat(snd, scrob_urlenc(title), sizeof(snd));
strfcat(snd, "&b=", sizeof(snd));
strfcat(snd, scrob_urlenc(album), sizeof(snd));
strfcat(snd, "&l=", sizeof(snd));
strfcat(snd, sttime, sizeof(snd));
strfcat(snd, "&n=", sizeof(snd));
strfcat(snd, scrob_urlenc(track), sizeof(snd));
strfcat(snd, "&m=", sizeof(snd));
scrob_send_submission(sock, snd, scrob_nowplayurl);
}
/**
* @brief Submit track to scrobbler.
*
* @param artist
* @param title
* @param album
* @param track
* @param ttime
*/
static void scrob_submit(int sock, const char *artist, const char *title,
const char *album, const char *track, const int ttime)
{
char utm[96];
char snd[1024];
char sttime[32];
DEBUGF(("Submitting (%s - %s) to (%s)!\n",
artist, title, scrob_submiturl));
scrob_utime(utm, sizeof(utm));
snprintf(sttime, sizeof(sttime), "%d", ttime);
/* Assemble request string. */
strfcpy(snd, "s=", sizeof(snd));
strfcat(snd, scrob_sessionid, sizeof(snd));
strfcat(snd, "&a[0]=", sizeof(snd));
strfcat(snd, scrob_urlenc(artist), sizeof(snd));
strfcat(snd, "&t[0]=", sizeof(snd));
strfcat(snd, scrob_urlenc(title), sizeof(snd));
strfcat(snd, "&i[0]=", sizeof(snd));
strfcat(snd, utm, sizeof(snd));
strfcat(snd, "&o[0]=P&r[0]=&l[0]=", sizeof(snd));
strfcat(snd, sttime, sizeof(snd));
strfcat(snd, "&b[0]=", sizeof(snd));
strfcat(snd, scrob_urlenc(album), sizeof(snd));
strfcat(snd, "&n[0]=", sizeof(snd));
strfcat(snd, scrob_urlenc(track), sizeof(snd));
strfcat(snd, "&m[0]=", sizeof(snd));
scrob_send_submission(sock, snd, scrob_submiturl);
}
