/[ascend]/trunk/base/generic/compiler/packages.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/packages.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 368 by johnpye, Tue Feb 21 02:38:13 2006 UTC revision 369 by johnpye, Fri Mar 10 09:14:29 2006 UTC
# Line 177  char *SearchArchiveLibraryPath(CONST cha Line 177  char *SearchArchiveLibraryPath(CONST cha
177          path_var[length++] = *(path++);          path_var[length++] = *(path++);
178        if (path_var[length-1]!='/')        if (path_var[length-1]!='/')
179          path_var[length++]='/';          path_var[length++]='/';
180    
181        /* copy file name into array */        /* copy file name into array */
182        for(t=name;*t!='\0';)        for(t=name;*t!='\0';){
183          path_var[length++] = *(t++);          path_var[length++] = *(t++);
184          }
185        path_var[length]='\0';        path_var[length]='\0';
186        /* ERROR_REPORTER_HERE(ASC_PROG_NOTE,"Searching for for '%s' in dir '%s'\n",name, path_var); */  
187          ERROR_REPORTER_HERE(ASC_PROG_NOTE,"Searching for for '%s' at '%s'\n",name, path_var);
188    
189        if ((f= fopen(path_var,"r"))!=NULL){        if ((f= fopen(path_var,"r"))!=NULL){
190          result = path_var;          result = path_var;
191          fclose(f);          fclose(f);
192          return result;          return result;
193        }        }
# Line 413  int CallBlackBox(struct Instance *inst, Line 417  int CallBlackBox(struct Instance *inst,
417    
418    int (*eval_func)(struct Slv_Interp *,    int (*eval_func)(struct Slv_Interp *,
419                     int,         // n_inputs                     int,         // n_inputs
420                     int,         // n_outputs                     int,         // n_outputs
421                     double *,    // inputs                     double *,    // inputs
422                     double * ,   // outputs                     double * ,   // outputs
423                     double * );  // jacobian                     double * );  // jacobian
424    
425    int (*deriv_func)(struct Slv_Interp *,    int (*deriv_func)(struct Slv_Interp *,
426                     int,         // n_inputs                     int,         // n_inputs
427                     int ,        // n_outputs                     int ,        // n_outputs
428                     double *,    // inputs                     double *,    // inputs
429                     double * ,   // outputs                     double * ,   // outputs
430                     double * );  // jacobian                     double * );  // jacobian
431  */  */
432    ExtBBoxInitFunc *init_func;    ExtBBoxInitFunc *init_func;
433    ExtBBoxFunc *eval_func;    ExtBBoxFunc *eval_func;

Legend:
Removed from v.368  
changed lines
  Added in v.369

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22