Example #1
0
int installed_p(struct install_options* param) {
  int ret;
  char *i,*impl;

  impl=q(param->impl);
  //TBD for util.
  i=s_cat(configdir(),q("impls"),q(SLASH),q(param->arch),q(SLASH),q(param->os),q(SLASH),
          q(impl),q(param->version?SLASH:""),q(param->version?param->version:""),q(SLASH),NULL);
  ret=directory_exist_p(i);
  cond_printf(1,"directory_exist_p(%s)=%d\n",i,ret);
  s(i),s(impl);
  return ret;
}
Example #2
0
char* lispdir(void) {
  char *w=which(argv_orig[0]);
  char *ros_bin=pathname_directory(truename(w));
  char* ros_bin_lisp=cat(ros_bin,"lisp",SLASH,NULL);
  char* lisp_path=NULL;
  s(ros_bin),s(w);
  if(directory_exist_p(ros_bin_lisp)) {
    lisp_path=ros_bin_lisp;
  }else {
    s(ros_bin_lisp);
#if defined(WIN_LISP_PATH)
    if(lisp_path==NULL)
      lisp_path=q(WIN_LISP_PATH);
#endif
    if(lisp_path==NULL)
      lisp_path=q(LISP_PATH);
    lisp_path=append_trail_slash(lisp_path);
  }
  return lisp_path;
}