home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / FREDV19A.LHA / FrexxEd / fpl / BufferInfo.FPL < prev    next >
Encoding:
Text File  |  1995-07-19  |  1.1 KB  |  28 lines
  1. export void BufferInfo()
  2. {
  3.   string info;
  4.  
  5.   info=joinstr("Name: ", ReadInfo("file_name"), "\n",
  6.                "Path: ", ReadInfo("file_path"), "\n",
  7.                "Time: ", GetDate(), "\n",
  8.                "Size:\n",
  9.                "          ", ltostr(ReadInfo("size")), " bytes\n",
  10.                "          ", ltostr(ReadInfo("lines")), " lines\n",
  11.                "Changes: ", ltostr(ReadInfo("changes")), "\n",
  12.                "Tabsize: ", ltostr(ReadInfo("tab_size")), "\n\n",
  13.                "Undo buffer:\n",
  14.                "          ", ltostr(ReadInfo("undo_lines")+1), " steps\n",
  15.                "          ", ltostr(ReadInfo("undo_memory")), " bytes\n",
  16.                "Fragment:\n",
  17.                "          ", ltostr(ReadInfo("fragmentation")), " holes\n",
  18.                "          ", ltostr(ReadInfo("fragmentation_size")), " bytes");
  19.   if (ReadInfo("block_exist")) {
  20.     info+="\nBlock: ";
  21.     if (ReadInfo("block_type")==2)
  22.       info+=sprintf("%ld x ", ReadInfo("block_end_x")-ReadInfo("block_begin_x"));
  23.     info+=ltostr(ReadInfo("block_end_y")-ReadInfo("block_begin_y")+1);
  24.     info+=" lines";
  25.   }
  26.   Request(info, "Buffer Information!", "So what!");
  27. }  
  28.