static void
three_digits( char * buf, size_t buflen, const char * name, const uint8_t * digits )
{
tr_snprintf( buf, buflen, "%s %d.%d.%d", name,
charint( digits[0] ),
charint( digits[1] ),
charint( digits[2] ) );
}
void build_scenery( int matrix[][50], char filename[]) // this function will open the scenery.txt file and convert into a matrix
{
record = 0;
int i,j; // generic counters
char rec[5]; // the vector with the characters of record
FILE *scenery;
scenery = fopen(filename,"r");
if(scenery==NULL) {
zeroing(matrix);
}
else
{
for(i=0; i<25; i++)
{
for(j=0; j<=50; j++)
{
if(j==50) {
rec[0] = getc(scenery);
}
else
{
matrix[i][j] = charint(getc(scenery));
if(matrix[i][j]==1) {
portal1[0] = i;
portal1[1] = j;
}
else if(matrix[i][j]==2) {
portal2[0] = i;
portal2[1] = j;
}
}
}
}
}
for(i=0; i<5; i++) {
rec[i] = getc(scenery); // at this point, the function knows all characters of record
}
for(i=0; i<5; i++) {
record += (charint((int)rec[i]))*pow(10,4-i); // now, the function will convert the string into a integer
}
fclose(scenery);
}
void
tr_clientForId( char * buf, size_t buflen, const void * id_in )
{
const uint8_t * id = id_in;
*buf = '\0';
if( !id )
return;
/* Azureus-style */
if( id[0] == '-' && id[7] == '-' )
{
if( !memcmp( id+1, "UT", 2 ) )
{
tr_snprintf( buf, buflen, "\xc2\xb5Torrent %d.%d.%d%s",
strint(id+3,1), strint(id+4,1), strint(id+5,1), getMnemonicEnd(id[6]) );
}
if( !memcmp( id+1, "UM", 2 ) )
{
tr_snprintf( buf, buflen, "\xc2\xb5Torrent Mac %d.%d.%d%s",
strint(id+3,1), strint(id+4,1), strint(id+5,1), getMnemonicEnd(id[6]) );
}
else if( !memcmp( id+1, "TR", 2 ) )
{
if( !memcmp( id+3, "000", 3 ) ) /* very old client style: -TR0006- is 0.6 */
tr_snprintf( buf, buflen, "Transmission 0.%c", id[6] );
else if( !memcmp( id+3, "00", 2) ) /* previous client style: -TR0072- is 0.72 */
tr_snprintf( buf, buflen, "Transmission 0.%02d", strint(id+5,2) );
else /* current client style: -TR111Z- is 1.11+ */
tr_snprintf( buf, buflen, "Transmission %d.%02d%s", strint(id+3,1), strint(id+4,2),
id[6]=='Z' || id[6]=='X' ? "+" : "" );
}
else if( !memcmp( id+1, "AZ", 2 ) )
{
if( id[3] > '3' || ( id[3] == '3' && id[4] >= '1' ) ) /* Vuze starts at version 3.1.0.0 */
four_digits( buf, buflen, "Vuze", id+3 );
else
four_digits( buf, buflen, "Azureus", id+3 );
}
else if( !memcmp( id+1, "KT", 2 ) )
{
if( id[5] == 'D' )
tr_snprintf( buf, buflen, "KTorrent %d.%d Dev %d", charint(id[3]), charint(id[4]), charint(id[6]) );
else if( id[5] == 'R' )
tr_snprintf( buf, buflen, "KTorrent %d.%d RC %d", charint(id[3]), charint(id[4]), charint(id[6]) );
else
three_digits( buf, buflen, "KTorrent", id+3 );
}
else if( !memcmp( id+1, "AR", 2 ) ) four_digits( buf, buflen, "Ares", id+3 );
else if( !memcmp( id+1, "AT", 2 ) ) four_digits( buf, buflen, "Artemis", id+3 );
else if( !memcmp( id+1, "AV", 2 ) ) four_digits( buf, buflen, "Avicora", id+3 );
else if( !memcmp( id+1, "BG", 2 ) ) four_digits( buf, buflen, "BTGetit", id+3 );
else if( !memcmp( id+1, "BM", 2 ) ) four_digits( buf, buflen, "BitMagnet", id+3 );
else if( !memcmp( id+1, "BP", 2 ) ) four_digits( buf, buflen, "BitTorrent Pro (Azureus + Spyware)", id+3 );
else if( !memcmp( id+1, "BX", 2 ) ) four_digits( buf, buflen, "BittorrentX", id+3 );
else if( !memcmp( id+1, "bk", 2 ) ) four_digits( buf, buflen, "BitKitten (libtorrent)", id+3 );
else if( !memcmp( id+1, "BS", 2 ) ) four_digits( buf, buflen, "BTSlave", id+3 );
else if( !memcmp( id+1, "BW", 2 ) ) four_digits( buf, buflen, "BitWombat", id+3 );
else if( !memcmp( id+1, "BX", 2 ) ) four_digits( buf, buflen, "BittorrentX", id+3 );
else if( !memcmp( id+1, "EB", 2 ) ) four_digits( buf, buflen, "EBit", id+3 );
else if( !memcmp( id+1, "DE", 2 ) ) four_digits( buf, buflen, "Deluge", id+3 );
else if( !memcmp( id+1, "DP", 2 ) ) four_digits( buf, buflen, "Propogate Data Client", id+3 );
else if( !memcmp( id+1, "FC", 2 ) ) four_digits( buf, buflen, "FileCroc", id+3 );
else if( !memcmp( id+1, "FT", 2 ) ) four_digits( buf, buflen, "FoxTorrent/RedSwoosh", id+3 );
else if( !memcmp( id+1, "GR", 2 ) ) four_digits( buf, buflen, "GetRight", id+3 );
else if( !memcmp( id+1, "HN", 2 ) ) four_digits( buf, buflen, "Hydranode", id+3 );
else if( !memcmp( id+1, "LC", 2 ) ) four_digits( buf, buflen, "LeechCraft", id+3 );
else if( !memcmp( id+1, "LH", 2 ) ) four_digits( buf, buflen, "LH-ABC", id+3 );
else if( !memcmp( id+1, "NX", 2 ) ) four_digits( buf, buflen, "Net Transport", id+3 );
else if( !memcmp( id+1, "MO", 2 ) ) four_digits( buf, buflen, "MonoTorrent", id+3 );
else if( !memcmp( id+1, "MR", 2 ) ) four_digits( buf, buflen, "Miro", id+3 );
else if( !memcmp( id+1, "MT", 2 ) ) four_digits( buf, buflen, "Moonlight", id+3 );
else if( !memcmp( id+1, "OT", 2 ) ) four_digits( buf, buflen, "OmegaTorrent", id+3 );
else if( !memcmp( id+1, "PD", 2 ) ) four_digits( buf, buflen, "Pando", id+3 );
else if( !memcmp( id+1, "QD", 2 ) ) four_digits( buf, buflen, "QQDownload", id+3 );
else if( !memcmp( id+1, "RS", 2 ) ) four_digits( buf, buflen, "Rufus", id+3 );
else if( !memcmp( id+1, "RT", 2 ) ) four_digits( buf, buflen, "Retriever", id+3 );
else if( !memcmp( id+1, "SS", 2 ) ) four_digits( buf, buflen, "SwarmScope", id+3 );
else if( !memcmp( id+1, "SZ", 2 ) ) four_digits( buf, buflen, "Shareaza", id+3 );
else if( !memcmp( id+1, "S~", 2 ) ) four_digits( buf, buflen, "Shareaza", id+3 );
else if( !memcmp( id+1, "st", 2 ) ) four_digits( buf, buflen, "SharkTorrent", id+3 );
else if( !memcmp( id+1, "TN", 2 ) ) four_digits( buf, buflen, "Torrent .NET", id+3 );
else if( !memcmp( id+1, "TS", 2 ) ) four_digits( buf, buflen, "TorrentStorm", id+3 );
else if( !memcmp( id+1, "UL", 2 ) ) four_digits( buf, buflen, "uLeecher!", id+3 );
else if( !memcmp( id+1, "VG", 2 ) ) four_digits( buf, buflen, "Vagaa", id+3 );
else if( !memcmp( id+1, "WT", 2 ) ) four_digits( buf, buflen, "BitLet", id+3 );
else if( !memcmp( id+1, "WY", 2 ) ) four_digits( buf, buflen, "Wyzo", id+3 );
else if( !memcmp( id+1, "XL", 2 ) ) four_digits( buf, buflen, "Xunlei", id+3 );
else if( !memcmp( id+1, "XT", 2 ) ) four_digits( buf, buflen, "XanTorrent", id+3 );
else if( !memcmp( id+1, "ZT", 2 ) ) four_digits( buf, buflen, "Zip Torrent", id+3 );
else if( !memcmp( id+1, "AG", 2 ) ) three_digits( buf, buflen, "Ares", id+3 );
else if( !memcmp( id+1, "A~", 2 ) ) three_digits( buf, buflen, "Ares", id+3 );
else if( !memcmp( id+1, "ES", 2 ) ) three_digits( buf, buflen, "Electric Sheep", id+3 );
else if( !memcmp( id+1, "HL", 2 ) ) three_digits( buf, buflen, "Halite", id+3 );
else if( !memcmp( id+1, "LT", 2 ) ) three_digits( buf, buflen, "libtorrent (Rasterbar)", id+3 );
else if( !memcmp( id+1, "lt", 2 ) ) three_digits( buf, buflen, "libTorrent (Rakshasa)", id+3 );
else if( !memcmp( id+1, "MP", 2 ) ) three_digits( buf, buflen, "MooPolice", id+3 );
else if( !memcmp( id+1, "TT", 2 ) ) three_digits( buf, buflen, "TuoTu", id+3 );
else if( !memcmp( id+1, "qB", 2 ) ) three_digits( buf, buflen, "qBittorrent", id+3 );
else if( !memcmp( id+1, "AX", 2 ) ) two_major_two_minor( buf, buflen, "BitPump", id+3 );
else if( !memcmp( id+1, "BC", 2 ) ) two_major_two_minor( buf, buflen, "BitComet", id+3 );
else if( !memcmp( id+1, "CD", 2 ) ) two_major_two_minor( buf, buflen, "Enhanced CTorrent", id+3 );
else if( !memcmp( id+1, "LP", 2 ) ) two_major_two_minor( buf, buflen, "Lphant", id+3 );
else if( !memcmp( id+1, "BF", 2 ) ) no_version( buf, buflen, "BitFlu" );
else if( !memcmp( id+1, "LW", 2 ) ) no_version( buf, buflen, "LimeWire" );
else if( !memcmp( id+1, "BB", 2 ) )
{
tr_snprintf( buf, buflen, "BitBuddy %c.%c%c%c", id[3], id[4], id[5], id[6] );
}
else if( !memcmp( id+1, "BR", 2 ) )
{
tr_snprintf( buf, buflen, "BitRocket %c.%c (%c%c)", id[3], id[4], id[5], id[6] );
}
else if( !memcmp( id+1, "CT", 2 ) )
{
tr_snprintf( buf, buflen, "CTorrent %d.%d.%02d", charint(id[3]), charint(id[4]), strint(id+5,2) );
}
else if( !memcmp( id+1, "XX", 2 ) )
{
tr_snprintf( buf, buflen, "Xtorrent %d.%d (%d)", charint(id[3]), charint(id[4]), strint(id+5,2) );
}
else if( !memcmp( id+1, "BOW", 3 ) )
{
if( !memcmp( &id[4], "A0B", 3 ) ) tr_snprintf( buf, buflen, "Bits on Wheels 1.0.5" );
else if( !memcmp( &id[4], "A0C", 3 ) ) tr_snprintf( buf, buflen, "Bits on Wheels 1.0.6" );
else tr_snprintf( buf, buflen, "Bits on Wheels %c.%c.%c", id[4], id[5], id[5] );
}
if( *buf )
return;
}
/* Mainline */
if( isMainlineStyle( id ) )
{
if( *id=='M' ) mainline_style( buf, buflen, "BitTorrent", id );
if( *id=='Q' ) mainline_style( buf, buflen, "Queen Bee", id );
if( *buf ) return;
}
if( decodeBitCometClient( buf, buflen, id ) )
return;
if( decodeBitSpiritClient( buf, buflen, id ) )
return;
/* Clients with no version */
if( !memcmp( id, "AZ2500BT", 8 ) ) no_version( buf, buflen, "BitTyrant (Azureus Mod)" );
else if( !memcmp( id, "LIME", 4 ) ) no_version( buf, buflen, "Limewire" );
else if( !memcmp( id, "martini", 7 ) ) no_version( buf, buflen, "Martini Man" );
else if( !memcmp( id, "Pando", 5 ) ) no_version( buf, buflen, "Pando" );
else if( !memcmp( id, "a00---0", 7 ) ) no_version( buf, buflen, "Swarmy" );
else if( !memcmp( id, "a02---0", 7 ) ) no_version( buf, buflen, "Swarmy" );
else if( !memcmp( id, "-G3", 3 ) ) no_version( buf, buflen, "G3 Torrent" );
else if( !memcmp( id, "10-------", 9 ) ) no_version( buf, buflen, "JVtorrent" );
else if( !memcmp( id, "346-", 4 ) ) no_version( buf, buflen, "TorrentTopia" );
else if( !memcmp( id, "eX", 2 ) ) no_version( buf, buflen, "eXeem" );
else if( !memcmp( id, "-FG", 3 ) ) two_major_two_minor( buf, buflen, "FlashGet", id+3 );
/* Everything else */
else if( !memcmp( id, "S3", 2 ) && id[2] == '-' && id[4] == '-' && id[6] == '-' )
{
tr_snprintf( buf, buflen, "Amazon S3 %c.%c.%c", id[3], id[5], id[7] );
}
else if( !memcmp( id, "OP", 2 ) )
{
tr_snprintf( buf, buflen, "Opera (Build %c%c%c%c)", id[2], id[3], id[4], id[5] );
}
else if( !memcmp( id, "-ML", 3 ) )
{
tr_snprintf( buf, buflen, "MLDonkey %c%c%c%c%c", id[3], id[4], id[5], id[6], id[7] );
}
else if( !memcmp( id, "DNA", 3 ) )
{
tr_snprintf( buf, buflen, "BitTorrent DNA %d.%d.%d", strint(id+3,2),
strint(id+5,2),
strint(id+7,2) );
}
else if( !memcmp( id, "Plus", 4 ) )
{
tr_snprintf( buf, buflen, "Plus! v2 %c.%c%c", id[4], id[5], id[6] );
}
else if( !memcmp( id, "XBT", 3 ) )
{
tr_snprintf( buf, buflen, "XBT Client %c.%c.%c%s", id[3], id[4], id[5], getMnemonicEnd(id[6]) );
}
else if( !memcmp( id, "Mbrst", 5 ) )
{
tr_snprintf( buf, buflen, "burst! %c.%c.%c", id[5], id[7], id[9] );
}
else if( !memcmp( id, "btpd", 4 ) )
{
tr_snprintf( buf, buflen, "BT Protocol Daemon %c%c%c", id[5], id[6], id[7] );
}
else if( !memcmp( id, "BLZ", 3 ) )
{
tr_snprintf( buf, buflen, "Blizzard Downloader %d.%d", id[3]+1, id[4] );
}
else if( '\0' == id[0] && !memcmp( &id[1], "BS", 2 ) )
{
tr_snprintf( buf, buflen, "BitSpirit %u", ( id[1] == 0 ? 1 : id[1] ) );
}
else if( !memcmp( id, "QVOD", 4 ) )
{
four_digits( buf, buflen, "QVOD", id+4 );
}
else if( !memcmp( id, "-NE", 3 ) )
{
four_digits( buf, buflen, "BT Next Evolution", id+3 );
}
/* Shad0w-style */
{
int a, b, c;
if( strchr( "AOQRSTU", id[0] )
&& getShadowInt( id[1], &a )
&& getShadowInt( id[2], &b )
&& getShadowInt( id[3], &c ) )
{
const char * name = NULL;
switch( id[0] )
{
case 'A': name = "ABC"; break;
case 'O': name = "Osprey"; break;
case 'Q': name = "BTQueue"; break;
case 'R': name = "Tribler"; break;
case 'S': name = "Shad0w"; break;
case 'T': name = "BitTornado"; break;
case 'U': name = "UPnP NAT Bit Torrent"; break;
}
if( name )
{
tr_snprintf( buf, buflen, "%s %d.%d.%d", name, a, b, c );
return;
}
}
}
/* No match */
if( !*buf )
{
struct evbuffer * out = evbuffer_new( );
const char *in, *in_end;
for( in=(const char*)id, in_end=in+8; in!=in_end; ++in ) {
if( isprint( *in ) )
evbuffer_add_printf( out, "%c", *in );
else
evbuffer_add_printf( out, "%%%02X", (unsigned int)*in );
}
tr_strlcpy( buf, EVBUFFER_DATA( out ), buflen );
evbuffer_free( out );
}
}
partition_t parse_partition(FILE* datei,int all,int paras){
int i = 0; /* loop variable */
int j = 0; /* loop variable */
int c = 0; /* Read Character */
int current_pos = 0; /* Current Position for Start/End */
int temp = 0;/* loop variable */
int charset_flag = 0;/* Flag to check when charset starts */
int charpart_flag = 0;/* Flag to check when charpartition starts */
size_t current_set_len = 0; /* number of charsets currently read. */
size_t partition_counter = 0; /* number of charpartitionlines currently read */
size_t set_leng = SET_LENG; /* Maximum number of Charsets */
size_t part_leng = PART_LENG; /*Maximum number of Charpartitionlines */
int true_nexus = 0; /* Flag to check if file is a Nexusfile */
int set_start = 0;
int end_counter = 0;
partition_t ret; /* Returned struct */
int part_var_names_str_len[2];
int temp_summe; /* Current_pos + temp_sum = new starting point for partition */
char vname[100]; /* String for a name */
char first_number[100]; /* String for a name */
char second_number[100]; /* String for a name */
char step_number[100]; /* String for a name */
char **lookup; /*Array of Strings for Charsets */
char mod_name[100]; /* String for a name */
char mod_v_name[100];/* String for a name */
char pname[2000];/* String for a name */
char **ppart_name; /* Array of Strings for Charpartitions */
char **ppart_var_name; /* Array of Strings for Charpartitions */
char **ppart_model_name; /* Array of Strings for Charpartitions */
char **ppart_parameter_name; /* Array of Strings for Charpartitions */
int fn,sn,st; /* Calculation of length */
int name_right;
int more_numbone;
int more_mv_names[3];
int* ind;
int doto[2];
size_t* pset_fn;
size_t* pset_sn;
size_t* pset_st;
size_t* pset_leng;
size_t* ppart_fn;
size_t* ppart_sn;
char * str;
int str_len = STR_LEN;
int c_read = -1;
/* Allocate arrays */
str = (char*) malloc(sizeof(char)*str_len);
str = fgets(str,str_len,datei);
pset_fn = (size_t*) malloc(sizeof(size_t)*set_leng);
pset_sn = (size_t*) malloc(sizeof(size_t)*set_leng);
pset_st = (size_t*) malloc(sizeof(size_t)*set_leng);
pset_leng = (size_t*) malloc(sizeof(size_t)*set_leng);
ppart_fn = (size_t*) malloc(sizeof(size_t)*part_leng);
ppart_sn = (size_t*) malloc(sizeof(size_t)*part_leng);
ppart_name = (char **) malloc(sizeof(char*)*part_leng);
ppart_var_name = (char **) malloc(sizeof(char*)*part_leng);
ppart_model_name = (char **) malloc(sizeof(char*)*part_leng);
ppart_parameter_name = (char **) malloc(sizeof(char*)*part_leng);
lookup = (char **) malloc(sizeof(char*)*set_leng);
/* Here the fun begins */
while( (c=mygetc(str,str_len,datei,&c_read)) != EOF && true_nexus != 6){
while(isspace(c)) c = mygetc(str,str_len,datei,&c_read);
if (c<91 && c>64) c+= 32;
if(true_nexus == 0 && c=='#') true_nexus++;
else if(true_nexus == 1 && c=='n') true_nexus++;
else if(true_nexus == 2 && c=='e') true_nexus++;
else if(true_nexus == 3 && c=='x') true_nexus++;
else if(true_nexus == 4 && c=='u') true_nexus++;
else if(true_nexus == 5 && c=='s') {
true_nexus++;
break;
}
else true_nexus = 0;
}
if(true_nexus != 6) {
printf("No '#nexus' was found. Is this a nexus file?\n");
exit(EXIT_FAILURE);
}
else {
while( (c=mygetc(str,str_len,datei,&c_read)) != EOF){
if(set_start == 0 && c=='b') set_start++;
else if(set_start == 1 && c=='e') set_start++;
else if(set_start == 2 && c=='g') set_start++;
else if(set_start == 3 && c=='i') set_start++;
else if(set_start == 4 && c=='n') set_start++;
else if(set_start == 5 && c==' ') set_start++;
else if(set_start == 6 && c=='s') set_start++;
else if(set_start == 7 && c=='e') set_start++;
else if(set_start == 8 && c=='t') set_start++;
else if(set_start == 9 && c=='s') set_start++;
else if(set_start == 10 && c==';') {
set_start++;
break;
}
else set_start = 0;
}
}
if(set_start != 11) {
printf("No sets have been found\n");
exit(EXIT_FAILURE);
}
while( (c=mygetc(str,str_len,datei,&c_read)) != EOF){
if(charset_flag == 0 && c=='e' && end_counter==0) end_counter++;
else if(charset_flag == 0 && c=='n' && end_counter==1) end_counter++;
else if(charset_flag == 0 && c=='d' && end_counter==2) end_counter++;
else if(charset_flag == 0 && c==';' && end_counter==3) end_counter++;
else end_counter=0;
if(end_counter==4) break;
if(charset_flag == 0 && c=='c') charset_flag++;
else if(charset_flag == 1 && c=='h') charset_flag++;
else if(charset_flag == 2 && c=='a') charset_flag++;
else if(charset_flag == 3 && c=='r') charset_flag++;
else if(charset_flag == 4 && c=='s') charset_flag++;
else if(charset_flag == 5 && c=='e') charset_flag++;
else if(charset_flag == 6 && c=='t') charset_flag++;
else if(charset_flag == 7 && c==' ') charset_flag++;
else if(charset_flag == 8){
/* fseek(datei, -1L, SEEK_CUR); */
name_right = grepName(c,datei,vname,str,str_len,&c_read);
if( name_right == -1) exit(EXIT_FAILURE);
lookup[i]=(char *) malloc(sizeof(char)*name_right);
for(temp=0;vname[temp]!='\0';temp++){
lookup[i][temp]=vname[temp];
}
lookup[i][temp]='\0';
grepFirstNumber(doto,c,datei,first_number,str,str_len,&c_read);
fn = charint(first_number);
pset_fn[i]=charint(first_number);
more_numbone = grepSecondNumber(c,datei,first_number,str,str_len,&c_read);
pset_sn[i]=charint(first_number);
sn = charint(first_number);
grepSteps(doto,c,datei,first_number,str,str_len,&c_read);
st = charint(first_number);
pset_st[i]=charint(first_number);
pset_leng[i]=(sn-fn)/st+1;
i++;
current_set_len++;
/* Extend Array if needed */
if(current_set_len==set_leng){
set_leng=set_leng *2;
expand_set_table( set_leng, current_set_len, &lookup, &pset_leng, &pset_fn, &pset_sn, &pset_st);
}
while(more_numbone == 77 || doto[0] == 77){
/* fseek(datei, -1L, SEEK_CUR); */
grepFirstNumber(doto,c,datei,first_number,str,str_len,&c_read);
more_numbone = grepSecondNumber(c,datei,second_number,str,str_len,&c_read);
grepSteps(doto,c,datei,step_number,str,str_len,&c_read);
temp = 0;
lookup[i]=(char *) malloc(sizeof(char)*name_right);
for(temp=0;vname[temp]!='\0';temp++){
lookup[i][temp]=vname[temp];
}
lookup[i][temp]='\0';
pset_fn[i]=charint(first_number);
pset_sn[i]=charint(second_number);
pset_st[i]=charint(step_number);
pset_leng[i]=(pset_sn[i]-pset_fn[i])/pset_st[i]+1;
i++;
current_set_len++;
/* Extend Array if needed */
if(current_set_len==set_leng){
set_leng=set_leng *2;
expand_set_table( set_leng, current_set_len, &lookup, &pset_leng, &pset_fn, &pset_sn, &pset_st);
}
}
charset_flag = 0;
}
else
charset_flag = 0;
/* Looking for 'charpartition' */
if(charpart_flag == 0 && c=='c') charpart_flag++;
else if(charpart_flag == 1 && c=='h') charpart_flag++;
else if(charpart_flag == 2 && c=='a') charpart_flag++;
else if(charpart_flag == 3 && c=='r') charpart_flag++;
else if(charpart_flag == 4 && c=='p') charpart_flag++;
else if(charpart_flag == 5 && c=='a') charpart_flag++;
else if(charpart_flag == 6 && c=='r') charpart_flag++;
else if(charpart_flag == 7 && c=='t') charpart_flag++;
else if(charpart_flag == 8 && c=='i') charpart_flag++;
else if(charpart_flag == 9 && c=='t') charpart_flag++;
else if(charpart_flag == 10 && c=='i') charpart_flag++;
else if(charpart_flag == 11 && c=='o') charpart_flag++;
else if(charpart_flag == 12 && c=='n') charpart_flag++;
else if(charpart_flag == 13 && c==' '){
if(all!=1)current_pos =0;
temp = 0;
/* fseek(datei, -1L, SEEK_CUR); */
name_right = grepName(c,datei,vname,str,str_len,&c_read);
/* check if 'all' is set */
if(all==1){
vname[0] = 'a';
vname[1] = 'l';
vname[2] = 'l';
vname[3] = '\0';
name_right=4;
}
if( name_right == -1) exit(EXIT_FAILURE);
grepModName(c,datei,mod_name, pname,part_var_names_str_len,str,str_len,&c_read);
grepVName(c,datei,mod_v_name,more_mv_names,str,str_len,&c_read);
while (more_mv_names[0] != 0){
ppart_name[j]=(char*) malloc(sizeof(char)*name_right);
for(temp=0;vname[temp]!='\0';temp++)ppart_name[j][temp] = vname[temp];
ppart_name[j][temp]='\0';
ppart_model_name[j]=(char*) malloc(sizeof(char)*part_var_names_str_len[0]);
for(temp=0;mod_name[temp]!='\0';temp++)ppart_model_name[j][temp] = mod_name[temp];
ppart_model_name[j][temp]='\0';
ppart_parameter_name[j]=(char*) malloc(sizeof(char)*part_var_names_str_len[1]);
for(temp=0;pname[temp]!='\0';temp++) ppart_parameter_name[j][temp]= pname[temp];
ppart_parameter_name[j][temp]='\0';
if( more_mv_names[0] == -1 ) exit(EXIT_FAILURE);
else if( more_mv_names[0] == 66){
ppart_var_name[j]=(char*) malloc(sizeof(char)*more_mv_names[1]);
for(temp=0;mod_v_name[temp]!='\0';temp++) ppart_var_name[j][temp]=mod_v_name[temp];
ppart_var_name[j][temp]='\0';
/* fprintf(stderr,"COMPARE:\n......%s\n......%s\n",mod_v_name,lookup[0]); */
ind = find_set(mod_v_name,lookup,current_set_len);
temp_summe =0;
for(temp=1;temp<ind[0]+1;temp++)temp_summe+= pset_leng[ind[temp]];
free(ind);
ppart_fn[j]=current_pos+1;
current_pos += temp_summe;
ppart_sn[j]=current_pos;
partition_counter++;
j++;
/* Extend Array if needed */
if(j==part_leng){
part_leng = part_leng*2;
expand_part_table(&ppart_name,&ppart_var_name,&ppart_model_name,&ppart_parameter_name,partition_counter,part_leng,&ppart_fn,&ppart_sn);
}
grepVName(more_mv_names[2],datei,mod_v_name,more_mv_names,str,str_len,&c_read);
}
else if( more_mv_names[0] == 77) {
ppart_var_name[j]=(char*) malloc(sizeof(char)*more_mv_names[1]);
for(temp=0;mod_v_name[temp]!='\0';temp++) ppart_var_name[j][temp]=mod_v_name[temp];
ppart_var_name[j][temp]='\0';
/* fprintf(stderr,"COMPARE:\n......%s\n......%s\n",mod_v_name,lookup[0]); */
ind = find_set(mod_v_name,lookup,current_set_len);
temp_summe =0;
for(temp=1;temp<ind[0]+1;temp++)temp_summe+= pset_leng[ind[temp]];
free(ind);
ppart_fn[j]=current_pos+1;
current_pos += temp_summe;
ppart_sn[j]=current_pos;
j++;
partition_counter++;
/* Extend Array if needed */
if(j==part_leng){
part_leng = part_leng *2;
/* fprintf(stderr,"(%s:%d)\n",__FILE__,__LINE__); */
expand_part_table(&ppart_name,&ppart_var_name,&ppart_model_name,&ppart_parameter_name,partition_counter,part_leng,&ppart_fn,&ppart_sn);
}
grepModName(c,datei,mod_name, pname,part_var_names_str_len,str,str_len,&c_read);
grepVName(c,datei,mod_v_name,more_mv_names,str,str_len,&c_read);
}
}
/* Get new Memory and save char[] */
ppart_var_name[j]=(char*) malloc(sizeof(char)*more_mv_names[1]);
for(temp=0;mod_v_name[temp]!='\0';temp++) ppart_var_name[j][temp]=mod_v_name[temp];
ppart_var_name[j][temp]='\0';
ppart_name[j]=(char*) malloc(sizeof(char)*name_right);
for(temp=0;vname[temp]!='\0';temp++)ppart_name[j][temp] = vname[temp];
ppart_name[j][temp]='\0';
ppart_model_name[j]=(char*) malloc(sizeof(char)*part_var_names_str_len[0]);
for(temp=0;mod_name[temp]!='\0';temp++)ppart_model_name[j][temp] = mod_name[temp];
ppart_model_name[j][temp]='\0';
ppart_parameter_name[j]=(char*) malloc(sizeof(char)*part_var_names_str_len[1]);
for(temp=0;pname[temp]!='\0';temp++) ppart_parameter_name[j][temp]= pname[temp];
ppart_parameter_name[j][temp]='\0';
/* fprintf(stderr,"COMPARE:\n......%s\n......%s\n",mod_v_name,lookup[0]); */
ind = find_set(mod_v_name,lookup,current_set_len);
temp_summe =0;
for(temp=1;temp<ind[0]+1;temp++)temp_summe+= pset_leng[ind[temp]];
free(ind);
ppart_fn[j]=current_pos+1;
current_pos += temp_summe;
ppart_sn[j]= current_pos;
j++;
partition_counter++;
/* Extend Array if needed */
if(j==part_leng){
part_leng = part_leng *2;
/* fprintf(stderr,"(%s:%d)\n",__FILE__,__LINE__); */
expand_part_table(&ppart_name,&ppart_var_name,&ppart_model_name,&ppart_parameter_name,partition_counter,part_leng,&ppart_fn,&ppart_sn);
}
charpart_flag = 0;
}
else
charpart_flag = 0;
}
if(end_counter != 4) {
printf("No 'end;' for 'begin sets;' was found.\n");
exit(EXIT_FAILURE);
}
ret.start = ppart_fn;
ret.end = ppart_sn;
ret.model_names=ppart_model_name;
if(paras)
ret.parameter_names=ppart_parameter_name;
else{
ret.parameter_names=NULL;
for(i=0;i<partition_counter;i++)
free(ppart_parameter_name[i]);
free(ppart_parameter_name);
/* fprintf(stderr,"ERROR %s:%d\n",__FILE__,__LINE__); */
}
ret.partition_names=ppart_name;
ret.gene_names=ppart_var_name;
ret.part_len=partition_counter;
ret.max_part_len=part_leng;
for(i=0;i<current_set_len;i++){
printf("%s ",lookup[i]);
printf("%lu...%lu...%lu...%lu",pset_fn[i],pset_sn[i],pset_st[i],pset_leng[i]);
printf("\n");
}
for(i=0;i<current_set_len;i++)
free(lookup[i]);
free(lookup);
free(pset_fn);
free(pset_sn);
free(pset_st);
free(pset_leng);
return ret;
} /* parse_partition */
void select_stage( int matrix[][50]) // if wall mode is off
{
int k = 0, i,j,s=0;
char button;
char address[13] = "sceneryx.txt"; // the generic address to some scenery
BITMAP *buffer2 = create_bitmap(600,272);
BITMAP *mb = load_bitmap("Image/Miniblock.bmp",NULL);// load the miniblock
FILE *scenery; // pointer of file
while(s != 1)
{
clear_to_color(buffer2,0x6F6F6F);
rect(buffer2,173,71,425,198,0x000000);// boot the rectangle
rect(buffer2,172,70,426,199,0x000000);// boot the rectangle
rectfill(buffer2,174,72,424,197,0xFFFFFF);// boot the rectangle
address[7] = intchar(k);
scenery = fopen(address,"r");
if(scenery==NULL) {
zeroing(matrix);
}
else
{
for(i=0; i<25; i++)
{
for(j=0; j<=50; j++)
{
if(j==50) {
getc(scenery);
}
else matrix[i][j] = charint(getc(scenery));
}
}
fclose(scenery);
}
for(i=0; i<25; i++)
{
for(j=0; j<50; j++)
{
if(matrix[i][j]==8) {
blit(mb,buffer2,0,0,(177+j*5)-2,(75+i*5)-2,5,5);
}
}
}
blit(buffer2,screen,0,0,0,0,600,272);
outnumber(240,210,k);
textout_ex(screen,font,"Field ",185,210,0xFFFFFF,0x6F6F6F);
button = readkey();
rest(20);
if((button==enter)&&(scenery!=NULL)&&(k!=0)) {
clear_to_color(screen,0xFFFFFF);
build_scenery(matrix,address);
s = 1;
scenery_number = k;
}
else if((button==enter)&&(scenery==NULL)) {
build_scenery(matrix,"scenery_.txt");
s = 1;
scenery_number = 0;
}
else if((button==l)||(button==d)) {
if(k>0) {
k--;
}
}
else {
if(k<9) {
k++;
}
}
}
}
