home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / text / edit / FrexxEdA.lha / FrexxEd / fpl / SimpleIndent.FPL < prev    next >
Text File  |  1995-08-06  |  352b  |  19 lines
  1. export void Indent()
  2. {
  3.   int counter=0;
  4.   int column=ReadInfo("byte_position");
  5.   int chara;
  6.   string output="\n";
  7.  
  8.   while (counter<column) {
  9.     chara=GetChar(counter);
  10.     if (chara==' ' || chara=='\t')
  11.       output=joinstr(output, itoc(chara));
  12.     else
  13.       break;
  14.     counter++;
  15.   }
  16.   Output(output);
  17. }
  18. AssignKey("Indent();", "Shift 'Return'");
  19.