home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / utility / unittool / turbo5 / intrfc55 / intrfc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-25  |  3.3 KB  |  113 lines
  1. program intrfc;
  2. {  Prints out the information contained in a TPU file  }
  3.  
  4. uses
  5.   test1,nametype,util,globals,loader,head,blocks,namelist,code,
  6.         reloc,dump,params;
  7.  
  8. var
  9.   i,j,t:word;
  10.   result : word;
  11.   this_unit : obj_ptr;
  12.   tpu_size : longint;
  13.   main_list : list_ptr;
  14. begin
  15.   writeln('INTRFC version 1.2.  Written by D.J. Murdoch.');
  16.   writeln('Hit break when done.');
  17.  
  18.   parse_params;
  19.  
  20.   read_file('turbo.tpl',pointer(tpl_buffer),0,65535);
  21.   if tpl_buffer = nil then
  22.     read_file(uses_path+'turbo.tpl',pointer(tpl_buffer),0,65535);
  23.   if tpl_buffer <> nil then
  24.   begin
  25.     got_tpl := true;
  26.     tpl_size := last_file_size;
  27.   end
  28.   else
  29.   begin
  30.     got_tpl := false;
  31.     writeln('Warning:  TURBO.TPL not found.');
  32.   end;
  33.  
  34.   num_known := 0;
  35.   fillchar(unit_list,sizeof(unit_list),0);
  36.   add_unit(unitname);
  37.   if not unit_list[1]^.has_symbols then
  38.     syntax_exit('');
  39.  
  40.   buffer := unit_list[1]^.buffer;
  41.   header := normalize(buffer);
  42.  
  43.   {Make this unit refer to itself}
  44.   this_unit := add_offset(buffer,header^.ofs_this_unit);
  45.   unit_ptr(add_offset(this_unit,length(this_unit^.name)+4))^.target := 1;
  46.  
  47.   add_referenced_units;
  48.  
  49.   with header^ do
  50.     begin
  51.       code_ofs  := roundup(sym_size,16);
  52.       const_ofs := code_ofs + roundup(code_size,16);
  53.       reloc_ofs := const_ofs + roundup(const_size,16);
  54.       vmt_ofs   := reloc_ofs + roundup(reloc_size,16);
  55.       tpu_size := longint(roundup(sym_size,16))
  56.                  +longint(roundup(code_size,16))
  57.                  +longint(roundup(const_size,16))
  58.                  +longint(roundup(reloc_size,16))
  59.                  +longint(roundup(vmt_size,16));
  60.     end;
  61.  
  62.  
  63.   hash_table := add_offset(buffer,header^.ofs_hashtable);
  64.   if do_implementation in active_options then
  65.     hash_table := add_offset(buffer,header^.ofs_full_hash);
  66.  
  67.   {Build main object list}
  68.  
  69.   build_list(main_list,buffer,hash_table);
  70.   unit_list[1]^.obj_list := main_list;
  71.  
  72.   { Now print it }
  73.   in_function := false;
  74.   indentation := 0;
  75.   if do_header in active_options then
  76.     print_header;
  77.   if [do_name_list,do_implementation]*active_options <> [] then
  78.     print_name_list(main_list);
  79.   if do_entry_pts in active_options then
  80.     print_entries;
  81.   if do_code_blocks in active_options then
  82.     print_code_blocks;
  83.   if do_const_blocks in active_options then
  84.     print_const_blocks;
  85.   if do_var_blocks in active_options then
  86.     print_var_blocks;
  87.   if do_unit_blocks in active_options then
  88.     print_unit_blocks;
  89.   if do_code in active_options then
  90.   begin
  91.     read_file(unit_list[1]^.path,pointer(code_buf),code_ofs,header^.code_size);
  92.     print_dump(code_seg);
  93.     freemem(code_buf,header^.code_size);
  94.   end;
  95.   if do_const in active_options then
  96.   begin
  97.     read_file(unit_list[1]^.path,pointer(code_buf),const_ofs,header^.const_size);
  98.     print_dump(const_seg);
  99.     freemem(code_buf,header^.const_size);
  100.   end;
  101.   if do_reloc in active_options then
  102.   begin
  103.     read_file(unit_list[1]^.path,pointer(reloc_buf),reloc_ofs,header^.reloc_size);
  104.     print_reloc(code_seg);
  105.     freemem(reloc_buf,header^.reloc_size);
  106.   end;
  107.   if do_vmt in active_options then
  108.   begin
  109.     read_file(unit_list[1]^.path,pointer(reloc_buf),vmt_ofs,header^.vmt_size);
  110.     print_reloc(const_seg);
  111.     freemem(reloc_buf,header^.vmt_size);
  112.   end;
  113. end.