Subversion Repositories 1664

#include "cpu_1664.h"
#ifndef linux
#include <stdio.h>
#endif
 
void cpu_1664_asm_asm_comanda__inclui(struct cpu_1664 *cpu, n1 *cadena)
{
 struct lista *lista_parametre=cpu_1664_asm_lista_parametre__cadena(cadena);
 #ifdef linux
 sN fix_enflue=-1;
 #else
 FILE *fix_enflue=0;
 #endif
 
 nN i;
 for(i=0;((fix_enflue<=0)&&(i<(cpu->lista_inclui_curso->contador/sizeof(P))));i++)
 {
  struct lista *curso=lista_nova__lista(((struct lista **)(cpu->lista_inclui_curso->datos))[i]);
 
  if((curso->datos[curso->contador-1]!='/')&&(((struct lista **)(lista_parametre->datos))[0]->datos[0]!='/'))
  {
   lista_ajunta__dato(curso, '/');
  }
 
  lista_ajunta__lista(curso, ((struct lista **)(lista_parametre->datos))[0]);
  #ifdef linux
  fix_enflue=open(curso->datos, O_RDONLY);
  #else
  fix_enflue=fopen((char *)curso->datos, "r");
  #endif
  lista_libri(curso);
 }
 
 if(fix_enflue<=0)
 {
  // eror fix_enflue
  cadena__f((P)scrive_stdout, "\neror fix_enflue inclui %s\n",((struct lista **)(lista_parametre->datos))[0]->datos);
 }
 else
 {
  #ifdef linux
  nN grandia_fix_enflue=lseek(fix_enflue, 0, SEEK_END);
  lseek(fix_enflue, 0, SEEK_SET);
  #else
  fseek(fix_enflue, 0, SEEK_END);
  nN grandia_fix_enflue=ftell(fix_enflue);
  rewind(fix_enflue);
  #endif
 
  if(grandia_fix_enflue>0)
  {
   #ifdef linux
   n1 *mmap_fix_enflue=(n1 *)memoria_nova(grandia_fix_enflue);
   read(fix_enflue, mmap_fix_enflue, grandia_fix_enflue);
   //n1 *mmap_fix_enflue=mmap(0, grandia_fix_enflue, PROT_READ, MAP_SHARED, fix_enflue, 0);
   cpu_1664_asm_ajunta__cadena(cpu, mmap_fix_enflue, grandia_fix_enflue);
   //munmap(mmap_fix_enflue, grandia_fix_enflue);
   #else
   n1 *fix_m=(n1 *)memoria_nova(grandia_fix_enflue);
   grandia_fix_enflue=fread(fix_m, 1, grandia_fix_enflue, fix_enflue);
   cpu_1664_asm_ajunta__cadena(cpu, fix_m, grandia_fix_enflue);
   memoria_libri(fix_m);
   #endif
  }
 
  #ifdef linux
  close(fix_enflue);
  #else
  fclose(fix_enflue);
  #endif
 }
 
 lista_2_libri(lista_parametre);
}