lib/pnd_desktop.c

   1
   2 #include <stdio.h> /* for FILE etc */
   3 #include <string.h>
   4 #include <unistd.h> /* for unlink */
   5 #include <stdlib.h> /* for free */
   6
   7 #include "pnd_apps.h"
   8 #include "pnd_container.h"
   9 #include "pnd_pxml.h"
  10 #include "pnd_discovery.h"
  11 #include "pnd_pndfiles.h"
  12 #include "pnd_conf.h"
  13 #include "pnd_desktop.h"
  14 #include "pnd_logger.h"
  15
  16 unsigned char pnd_emit_dotdesktop ( char *targetpath, char *pndrun, pnd_disco_t *p ) {
  17   char filename [ FILENAME_MAX ];
  18   char buffer [ 1024 ];
  19   FILE *f;
  20
  21   // specification
  22   // http://standards.freedesktop.org/desktop-entry-spec
  23
  24   // validation
  25
  26   if ( ! p -> unique_id ) {
  27     pnd_log ( PND_LOG_DEFAULT, "Can't emit dotdesktop for %s, missing unique-id\n", targetpath );
  28     return ( 0 );
  29   }
  30
  31   if ( ! p -> exec ) {
  32     pnd_log ( PND_LOG_DEFAULT, "Can't emit dotdesktop for %s, missing exec\n", targetpath );
  33     return ( 0 );
  34   }
  35
  36   if ( ! targetpath ) {
  37     pnd_log ( PND_LOG_DEFAULT, "Can't emit dotdesktop for %s, missing target path\n", targetpath );
  38     return ( 0 );
  39   }
  40
  41   if ( ! pndrun ) {
  42     pnd_log ( PND_LOG_DEFAULT, "Can't emit dotdesktop for %s, missing pnd_run.sh\n", targetpath );
  43     return ( 0 );
  44   }
  45
  46   // set up
  47
  48   sprintf ( filename, "%s/%s#%u.desktop", targetpath, p -> unique_id, p -> subapp_number );
  49
  50   // emit
  51
  52   //printf ( "EMIT DOTDESKTOP '%s'\n", filename );
  53
  54   f = fopen ( filename, "w" );
  55
  56   if ( ! f ) {
  57     return ( 0 );
  58   }
  59
  60   fprintf ( f, "%s\n", PND_DOTDESKTOP_HEADER );
  61
  62   if ( p -> title_en ) {
  63     snprintf ( buffer, 1020, "Name=%s\n", p -> title_en );
  64     fprintf ( f, "%s", buffer );
  65   }
  66
  67   fprintf ( f, "Type=Application\n" );
  68   fprintf ( f, "Version=1.0\n" );
  69
  70   if ( p -> icon ) {
  71     snprintf ( buffer, 1020, "Icon=%s\n", p -> icon );
  72     fprintf ( f, "%s", buffer );
  73   }
  74
  75   if ( p -> unique_id ) {
  76     fprintf ( f, "X-Pandora-UID=%s\n", p -> unique_id );
  77   }
  78
  79 #if 1
  80   if ( p -> desc_en && p -> desc_en [ 0 ] ) {
  81     snprintf ( buffer, 1020, "Comment=%s\n", p -> desc_en ); // no [en] needed I suppose, yet
  82     fprintf ( f, "%s", buffer );
  83   }
  84 #endif
  85
  86 #if 0 // we let pnd_run.sh command line handle this instead of in .desktop
  87   if ( p -> startdir ) {
  88     snprintf ( buffer, 1020, "Path=%s\n", p -> startdir );
  89     fprintf ( f, "%s", buffer );
  90   } else {
  91     fprintf ( f, "Path=%s\n", PND_DEFAULT_WORKDIR );
  92   }
  93 #endif
  94
  95   if ( p -> exec ) {
  96     char *nohup;
  97
  98     if ( p -> option_no_x11 ) {
  99       nohup = "/usr/bin/nohup ";
 100     } else {
 101       nohup = "";
 102     }
 103
 104     // basics
 105     if ( p -> object_type == pnd_object_type_directory ) {
 106       snprintf ( buffer, 1020, "Exec=%s%s -p \"%s\" -e \"%s\" -b \"%s\"",
 107                  nohup, pndrun, p -> object_path, p -> exec,
 108                  p -> appdata_dirname ? p -> appdata_dirname : p -> unique_id );
 109     } else if ( p -> object_type == pnd_object_type_pnd ) {
 110       snprintf ( buffer, 1020, "Exec=%s%s -p \"%s/%s\" -e \"%s\" -b \"%s\"",
 111                  nohup, pndrun, p -> object_path, p -> object_filename, p -> exec,
 112                  p -> appdata_dirname ? p -> appdata_dirname : p -> unique_id );
 113     }
 114
 115     // start dir
 116     if ( p -> startdir ) {
 117       strncat ( buffer, " -s ", 1020 );
 118       strncat ( buffer, p -> startdir, 1020 );
 119     }
 120
 121     // args
 122     if ( p -> execargs ) {
 123       char argbuf [ 1024 ];
 124       snprintf ( argbuf, 1000, " -a \"%s\"", p -> execargs );
 125       strncat ( buffer, argbuf, 1020 );
 126     }
 127
 128     // clockspeed
 129     if ( p -> clockspeed && atoi ( p -> clockspeed ) != 0 ) {
 130       strncat ( buffer, " -c ", 1020 );
 131       strncat ( buffer, p -> clockspeed, 1020 );
 132     }
 133
 134     // exec options
 135     if ( pnd_pxml_get_x11 ( p -> option_no_x11 ) == pnd_pxml_x11_stop ) {
 136       strncat ( buffer, " -x ", 1020 );
 137     }
 138
 139     // newline
 140     strncat ( buffer, "\n", 1020 );
 141
 142     // emit
 143     fprintf ( f, "%s", buffer );
 144   }
 145
 146   // categories
 147   {
 148     char cats [ 512 ] = "";
 149     int n;
 150     pnd_conf_handle c;
 151     char *confpath;
 152
 153     // uuuuh, defaults?
 154     // "Application" used to be in the standard and is commonly supported still
 155     // Utility and Network should ensure the app is visible 'somewhere' :/
 156     char *defaults = PND_DOTDESKTOP_DEFAULT_CATEGORY;
 157
 158     // determine searchpath (for conf, not for apps)
 159     confpath = pnd_conf_query_searchpath();
 160
 161     // inhale the conf file
 162     c = pnd_conf_fetch_by_id ( pnd_conf_categories, confpath );
 163
 164     // if we can find a default category set, pull it in; otherwise assume
 165     // the hardcoded one
 166     if ( pnd_conf_get_as_char ( c, "default" ) ) {
 167       defaults = pnd_conf_get_as_char ( c, "default" );
 168     }
 169
 170     // ditch the confpath
 171     free ( confpath );
 172
 173     // attempt mapping
 174     if ( c ) {
 175
 176       n = pnd_map_dotdesktop_categories ( c, cats, 511, p );
 177
 178       if ( n ) {
 179         fprintf ( f, "Categories=%s\n", cats );
 180       } else {
 181         fprintf ( f, "Categories=%s\n", defaults );
 182       }
 183
 184     } else {
 185       fprintf ( f, "Categories=%s\n", defaults );
 186     }
 187
 188   }
 189
 190   fprintf ( f, "%s\n", PND_DOTDESKTOP_SOURCE ); // should we need to know 'who' created the file during trimming
 191
 192   fclose ( f );
 193
 194   return ( 1 );
 195 }
 196
 197 unsigned char pnd_emit_dotinfo ( char *targetpath, char *pndrun, pnd_disco_t *p ) {
 198   char filename [ FILENAME_MAX ];
 199   char buffer [ 1024 ];
 200   FILE *f;
 201   char *viewer, *searchpath;
 202   pnd_conf_handle desktoph;
 203
 204   // specification
 205   // http://standards.freedesktop.org/desktop-entry-spec
 206
 207   // validation
 208   //
 209
 210   // viewer
 211   searchpath = pnd_conf_query_searchpath();
 212
 213   desktoph = pnd_conf_fetch_by_id ( pnd_conf_desktop, searchpath );
 214
 215   if ( ! desktoph ) {
 216     return ( 0 );
 217   }
 218
 219   viewer = pnd_conf_get_as_char ( desktoph, "info.viewer" );
 220
 221   if ( ! viewer ) {
 222     return ( 0 ); // no way to view the file
 223   }
 224
 225   // etc
 226   if ( ! p -> unique_id ) {
 227     pnd_log ( PND_LOG_DEFAULT, "Can't emit dotdesktop for %s, missing unique-id\n", targetpath );
 228     return ( 0 );
 229   }
 230
 231   if ( ! p -> info_filename ) {
 232     pnd_log ( PND_LOG_DEFAULT, "Can't emit dotdesktop for %s, missing info_filename\n", targetpath );
 233     return ( 0 );
 234   }
 235
 236   if ( ! p -> info_name ) {
 237     pnd_log ( PND_LOG_DEFAULT, "Can't emit dotdesktop for %s, missing info_name\n", targetpath );
 238     return ( 0 );
 239   }
 240
 241   if ( ! targetpath ) {
 242     pnd_log ( PND_LOG_DEFAULT, "Can't emit dotdesktop for %s, missing target path\n", targetpath );
 243     return ( 0 );
 244   }
 245
 246   if ( ! pndrun ) {
 247     pnd_log ( PND_LOG_DEFAULT, "Can't emit dotdesktop for %s, missing pnd_run.sh\n", targetpath );
 248     return ( 0 );
 249   }
 250
 251   // set up
 252
 253   sprintf ( filename, "%s/%s#%uinfo.desktop", targetpath, p -> unique_id, p -> subapp_number );
 254
 255   // emit
 256
 257   f = fopen ( filename, "w" );
 258
 259   if ( ! f ) {
 260     return ( 0 );
 261   }
 262
 263   fprintf ( f, "%s\n", PND_DOTDESKTOP_HEADER );
 264
 265   if ( p -> info_name ) {
 266     snprintf ( buffer, 1020, "Name=%s\n", p -> info_name );
 267     fprintf ( f, "%s", buffer );
 268   }
 269
 270   fprintf ( f, "Type=Application\n" );
 271   fprintf ( f, "Version=1.0\n" );
 272
 273 #if 0
 274   if ( p -> icon ) {
 275     snprintf ( buffer, 1020, "Icon=%s\n", p -> icon );
 276     fprintf ( f, "%s", buffer );
 277   }
 278 #endif
 279
 280   if ( p -> unique_id ) {
 281     fprintf ( f, "X-Pandora-UID=%s\n", p -> unique_id );
 282   }
 283
 284   if ( p -> title_en && p -> title_en [ 0 ] ) {
 285     snprintf ( buffer, 1020, "Comment=Automatic menu info entry for %s\n", p -> title_en );
 286     fprintf ( f, "%s", buffer );
 287   }
 288
 289 #if 0 // we let pnd_run.sh command line handle this instead of in .desktop
 290   if ( p -> startdir ) {
 291     snprintf ( buffer, 1020, "Path=%s\n", p -> startdir );
 292     fprintf ( f, "%s", buffer );
 293   } else {
 294     fprintf ( f, "Path=%s\n", PND_DEFAULT_WORKDIR );
 295   }
 296 #endif
 297
 298   // exec line
 299   char args [ 1001 ];
 300   char *pargs = args;
 301   char *viewerargs = pnd_conf_get_as_char ( desktoph, "info.viewer_args" );
 302   if ( viewerargs && viewerargs [ 0 ] ) {
 303     snprintf ( pargs, 1001, "%s %s",
 304                pnd_conf_get_as_char ( desktoph, "info.viewer_args" ), p -> info_filename );
 305   } else {
 306     pargs = NULL;
 307     // WARNING: This might not be quite right; if no viewer-args, shouldn't we still append the info-filename? likewise,
 308     //          even if we do have view-args, shouldn't we check if filename is present?
 309   }
 310
 311   char pndfile [ 1024 ];
 312   if ( p -> object_type == pnd_object_type_directory ) {
 313     // for PXML-app-dir, pnd_run.sh doesn't want the PXML.xml.. it just wants the dir-name
 314     strncpy ( pndfile, p -> object_path, 1000 );
 315   } else if ( p -> object_type == pnd_object_type_pnd ) {
 316     // pnd_run.sh wants the full path and filename for the .pnd file
 317     snprintf ( pndfile, 1020, "%s/%s", p -> object_path, p -> object_filename );
 318   }
 319
 320   pnd_apps_exec_info_t info;
 321   info.viewer = viewer;
 322   info.args = pargs;
 323
 324   if ( ! pnd_apps_exec_disco ( pndrun, p, PND_EXEC_OPTION_NORUN | PND_EXEC_OPTION_INFO, &info ) ) {
 325     return ( 0 );
 326   }
 327
 328   fprintf ( f, "Exec=%s\n", pnd_apps_exec_runline() );
 329
 330   if ( pnd_conf_get_as_char ( desktoph, "info.category" ) ) {
 331     fprintf ( f, "Categories=%s\n", pnd_conf_get_as_char ( desktoph, "info.category" ) );
 332   } else {
 333     fprintf ( f, "Categories=Documentation\n" );
 334   }
 335
 336   fprintf ( f, "%s\n", PND_DOTDESKTOP_SOURCE ); // should we need to know 'who' created the file during trimming
 337
 338   fclose ( f );
 339
 340   return ( 1 );
 341 }
 342
 343 unsigned char pnd_emit_icon ( char *targetpath, pnd_disco_t *p ) {
 344   //#define BITLEN (8*1024)
 345 #define BITLEN (64*1024)
 346   char buffer [ FILENAME_MAX ]; // target filename
 347   char from [ FILENAME_MAX ];   // source filename
 348   unsigned char bits [ BITLEN ];
 349   unsigned int bitlen;
 350   FILE *pnd, *target;
 351
 352   // prelim .. if a pnd file, and no offset found, discovery code didn't locate icon.. so bail.
 353   if ( ( p -> object_type == pnd_object_type_pnd ) &&
 354        ( ! p -> pnd_icon_pos ) )
 355   {
 356     return ( 0 ); // discover code didn't find it, so FAIL
 357   }
 358
 359   // determine filename for target
 360   sprintf ( buffer, "%s/%s.png", targetpath, p -> unique_id /*, p -> subapp_number*/ ); // target
 361
 362   /* first.. open the source file, by type of application:
 363    * are we looking through a pnd file or a dir?
 364    */
 365   if ( p -> object_type == pnd_object_type_directory ) {
 366     sprintf ( from, "%s/%s", p -> object_path, p -> icon );
 367   } else if ( p -> object_type == pnd_object_type_pnd ) {
 368     sprintf ( from, "%s/%s", p -> object_path, p -> object_filename );
 369   }
 370
 371   pnd = fopen ( from, "rb" );
 372
 373   if ( ! pnd ) {
 374     pnd_log ( PND_LOG_DEFAULT, "    Emit icon, couldn't open source\n" );
 375     return ( 0 );
 376   }
 377
 378   unsigned int len;
 379
 380   target = fopen ( buffer, "wb" );
 381
 382   if ( ! target ) {
 383     fclose ( pnd );
 384     pnd_log ( PND_LOG_DEFAULT, "    Emit icon, couldn't open target\n" );
 385     return ( 0 );
 386   }
 387
 388   fseek ( pnd, 0, SEEK_END );
 389   len = ftell ( pnd );
 390   //fseek ( pnd, 0, SEEK_SET );
 391
 392   fseek ( pnd, p -> pnd_icon_pos, SEEK_SET );
 393
 394   len -= p -> pnd_icon_pos;
 395
 396   pnd_log ( PND_LOG_DEFAULT, "    Emit icon, length: %u\n", len );
 397
 398   while ( len ) {
 399
 400     if ( len > (BITLEN) ) {
 401       bitlen = (BITLEN);
 402     } else {
 403       bitlen = len;
 404     }
 405
 406     if ( fread ( bits, bitlen, 1, pnd ) != 1 ) {
 407       fclose ( pnd );
 408       fclose ( target );
 409       unlink ( buffer );
 410       pnd_log ( PND_LOG_DEFAULT, "    Emit icon, bad read\n" );
 411       return ( 0 );
 412     }
 413
 414 #if 0
 415     {
 416       unsigned int i = 0;
 417       char bigbuffer [ 200 * 1024 ] = "\0";
 418       char b [ 10 ];
 419       pnd_log ( PND_LOG_DEFAULT, "    Read hexdump\n" );
 420       while ( i < bitlen ) {
 421         sprintf ( b, "%x,", bits [ i ] );
 422         strcat ( bigbuffer, b );
 423         i++;
 424       }
 425       pnd_log ( PND_LOG_DEFAULT, bigbuffer );
 426     }
 427 #endif
 428
 429     if ( fwrite ( bits, bitlen, 1, target ) != 1 ) {
 430       fclose ( pnd );
 431       fclose ( target );
 432       unlink ( buffer );
 433       pnd_log ( PND_LOG_DEFAULT, "    Emit icon, bad write\n" );
 434       return ( 0 );
 435     }
 436
 437     len -= bitlen;
 438     //pnd_log ( PND_LOG_DEFAULT, "    Emit icon, next block, length: %u\n", len );
 439   } // while
 440
 441   fclose ( pnd );
 442   fclose ( target );
 443
 444   //pnd_log ( PND_LOG_DEFAULT, "    Emit icon, done.\n" );
 445
 446   return ( 1 );
 447 }
 448
 449 #if 1 // we switched direction to freedesktop standard categories
 450 // if no categories herein, return 0; otherwise, if some category-like-text, return 1
 451 int pnd_map_dotdesktop_categories ( pnd_conf_handle c, char *target_buffer, unsigned short int len, pnd_disco_t *d ) {
 452   char *t;
 453   char *match;
 454
 455   // clear target so we can easily append
 456   memset ( target_buffer, '\0', len );
 457
 458   // for each main-cat and sub-cat, including alternates, just append them all together
 459   // we'll try mapping them, since the categories file is there, but we'll default to
 460   // copying over; this lets the conf file do merging or renaming of cagtegories, which
 461   // could still be useful, but we can leave the conf file empty to effect a pure
 462   // trusted-PXML-copying
 463
 464   // it would be sort of cumbersome to copy all the freedesktop.org defined categories (as
 465   // there are hundreds), and would also mean new ones and peoples custom ones would
 466   // flop
 467
 468   /* attempt primary category chain
 469    */
 470   #define MAPCAT(field)                                     \
 471     if ( ( t = d -> field ) ) {                             \
 472       match = pnd_map_dotdesktop_category ( c, t );         \
 473       strncat ( target_buffer, match ? match : t, len );    \
 474       strncat ( target_buffer, ";", len );                  \
 475     }
 476
 477   MAPCAT(main_category);
 478   MAPCAT(main_category1);
 479   MAPCAT(main_category2);
 480   MAPCAT(alt_category);
 481   MAPCAT(alt_category1);
 482   MAPCAT(alt_category2);
 483
 484   if ( target_buffer [ 0 ] ) {
 485     return ( 1 ); // I guess its 'good'?
 486   }
 487
 488 #if 0
 489   if ( ( t = d -> main_category ) ) {
 490     match = pnd_map_dotdesktop_category ( c, t );
 491     strncat ( target_buffer, match ? match : t, len );
 492     strncat ( target_buffer, ";", len );
 493   }
 494 #endif
 495
 496   return ( 0 );
 497 }
 498 #endif
 499
 500 #if 0 // we switched direction
 501 //int pnd_map_dotdesktop_categories ( pnd_conf_handle c, char *target_buffer, unsigned short int len, pnd_pxml_handle h ) {
 502 int pnd_map_dotdesktop_categories ( pnd_conf_handle c, char *target_buffer, unsigned short int len, pnd_disco_t *d ) {
 503   unsigned short int n = 0; // no. matches
 504   char *t;
 505   char *match;
 506
 507   // clear target so we can easily append
 508   memset ( target_buffer, '\0', len );
 509
 510   /* attempt primary category chain
 511    */
 512   match = NULL;
 513
 514   if ( ( t = d -> main_category ) ) {
 515     match = pnd_map_dotdesktop_category ( c, t );
 516   }
 517
 518   if ( ( ! match ) &&
 519        ( t = d -> main_category1 ) )
 520   {
 521     match = pnd_map_dotdesktop_category ( c, t );
 522   }
 523
 524   if ( ( ! match ) &&
 525        ( t = d -> main_category2 ) )
 526   {
 527     match = pnd_map_dotdesktop_category ( c, t );
 528   }
 529
 530   if ( match ) {
 531     strncat ( target_buffer, match, len );
 532     len -= strlen ( target_buffer );
 533     n += 1;
 534   }
 535
 536   /* attempt secondary category chain
 537    */
 538   match = NULL;
 539
 540   if ( ( t = d -> alt_category ) ) {
 541     match = pnd_map_dotdesktop_category ( c, t );
 542   }
 543
 544   if ( ( ! match ) &&
 545        ( t = d -> alt_category1 ) )
 546   {
 547     match = pnd_map_dotdesktop_category ( c, t );
 548   }
 549
 550   if ( ( ! match ) &&
 551        ( t = d -> alt_category2 ) )
 552   {
 553     match = pnd_map_dotdesktop_category ( c, t );
 554   }
 555
 556   if ( match ) {
 557     if ( target_buffer [ 0 ] != '\0' && len > 0 ) {
 558       strcat ( target_buffer, ";" );
 559       len -= 1;
 560     }
 561     strncat ( target_buffer, match, len );
 562     len -= strlen ( target_buffer );
 563     n += 1;
 564   }
 565
 566 #if 0 // doh, originally I was using pxml-t till I realized I pre-boned myself on that one
 567   match = NULL;
 568
 569   if ( ( t = pnd_pxml_get_main_category ( h ) ) ) {
 570     match = pnd_map_dotdesktop_category ( c, t );
 571   }
 572
 573   if ( ( ! match ) &&
 574        ( t = pnd_pxml_get_subcategory1 ( h ) ) )
 575   {
 576     match = pnd_map_dotdesktop_category ( c, t );
 577   }
 578
 579   if ( ( ! match ) &&
 580        ( t = pnd_pxml_get_subcategory2 ( h ) ) )
 581   {
 582     match = pnd_map_dotdesktop_category ( c, t );
 583   }
 584
 585   if ( match ) {
 586     strncat ( target_buffer, match, len );
 587     len -= strlen ( target_buffer );
 588     n += 1;
 589   }
 590
 591   /* attempt secondary category chain
 592    */
 593   match = NULL;
 594
 595   if ( ( t = pnd_pxml_get_altcategory ( h ) ) ) {
 596     match = pnd_map_dotdesktop_category ( c, t );
 597   }
 598
 599   if ( ( ! match ) &&
 600        ( t = pnd_pxml_get_altsubcategory1 ( h ) ) )
 601   {
 602     match = pnd_map_dotdesktop_category ( c, t );
 603   }
 604
 605   if ( ( ! match ) &&
 606        ( t = pnd_pxml_get_altsubcategory2 ( h ) ) )
 607   {
 608     match = pnd_map_dotdesktop_category ( c, t );
 609   }
 610
 611   if ( match ) {
 612     if ( target_buffer [ 0 ] != '\0' && len > 0 ) {
 613       strcat ( target_buffer, ";" );
 614       len -= 1;
 615     }
 616     strncat ( target_buffer, match, len );
 617     len -= strlen ( target_buffer );
 618     n += 1;
 619   }
 620 #endif
 621
 622   if ( n && len ) {
 623     strcat ( target_buffer, ";" );
 624   }
 625
 626   return ( n );
 627 }
 628 #endif
 629
 630 // given category 'foo', look it up in the provided config map. return the char* reference, or NULL
 631 char *pnd_map_dotdesktop_category ( pnd_conf_handle c, char *single_category ) {
 632   char *key;
 633   char *ret;
 634
 635   key = malloc ( strlen ( single_category ) + 4 + 1 );
 636
 637   sprintf ( key, "map.%s", single_category );
 638
 639   ret = pnd_conf_get_as_char ( c, key );
 640
 641   free ( key );
 642
 643   return ( ret );
 644 }
 645
 646 unsigned char *pnd_emit_icon_to_buffer ( pnd_disco_t *p, unsigned int *r_buflen ) {
 647   // this is shamefully mostly a copy of emit_icon() above; really, need to refactor that to use this routine
 648   // with a fwrite at the end...
 649   char from [ FILENAME_MAX ];   // source filename
 650   char bits [ 8 * 1024 ];
 651   unsigned int bitlen;
 652   FILE *pnd = NULL;
 653   unsigned char *target = NULL, *targiter = NULL;
 654
 655   // prelim .. if a pnd file, and no offset found, discovery code didn't locate icon.. so bail.
 656   if ( ( p -> object_type == pnd_object_type_pnd ) &&
 657        ( ! p -> pnd_icon_pos ) )
 658   {
 659     return ( NULL ); // discover code didn't find it, so FAIL
 660   }
 661
 662   /* first.. open the source file, by type of application:
 663    * are we looking through a pnd file or a dir?
 664    */
 665   if ( p -> object_type == pnd_object_type_directory ) {
 666     sprintf ( from, "%s/%s", p -> object_path, p -> icon );
 667   } else if ( p -> object_type == pnd_object_type_pnd ) {
 668     sprintf ( from, "%s/%s", p -> object_path, p -> object_filename );
 669   }
 670
 671   pnd = fopen ( from, "r" );
 672
 673   if ( ! pnd ) {
 674     return ( NULL );
 675   }
 676
 677   // determine length of file, then adjust by icon position to find begin of icon
 678   unsigned int len;
 679
 680   fseek ( pnd, 0, SEEK_END );
 681   len = ftell ( pnd );
 682   //fseek ( pnd, 0, SEEK_SET );
 683
 684   fseek ( pnd, p -> pnd_icon_pos, SEEK_SET );
 685
 686   len -= p -> pnd_icon_pos;
 687
 688   // create target buffer
 689   target = malloc ( len );
 690
 691   if ( ! target ) {
 692     fclose ( pnd );
 693     return ( 0 );
 694   }
 695
 696   targiter = target;
 697
 698   if ( r_buflen ) {
 699     *r_buflen = len;
 700   }
 701
 702   // copy over icon to target
 703   while ( len ) {
 704
 705     if ( len > (8*1024) ) {
 706       bitlen = (8*1024);
 707     } else {
 708       bitlen = len;
 709     }
 710
 711     if ( fread ( bits, bitlen, 1, pnd ) != 1 ) {
 712       fclose ( pnd );
 713       free ( target );
 714       return ( NULL );
 715     }
 716
 717     memmove ( targiter, bits, bitlen );
 718     targiter += bitlen;
 719
 720     len -= bitlen;
 721   } // while
 722
 723   fclose ( pnd );
 724
 725   return ( target );
 726 }