equal
deleted
inserted
replaced
8457 outFile := infile pathName , '_' , (splitIndex printString leftPaddedTo:3 with:$0). |
8457 outFile := infile pathName , '_' , (splitIndex printString leftPaddedTo:3 with:$0). |
8458 outStream := outFile asFilename writeStream. |
8458 outStream := outFile asFilename writeStream. |
8459 remainingLinesInThisOutfile := numberOfLines. |
8459 remainingLinesInThisOutfile := numberOfLines. |
8460 [(remainingLinesInThisOutfile > 0) and:[inStream atEnd not]] whileTrue:[ |
8460 [(remainingLinesInThisOutfile > 0) and:[inStream atEnd not]] whileTrue:[ |
8461 line := inStream nextLine. |
8461 line := inStream nextLine. |
8462 outStream nextPutLineline. |
8462 outStream nextPutLine:line. |
8463 remainingLinesInThisOutfile := remainingLinesInThisOutfile - 1. |
8463 remainingLinesInThisOutfile := remainingLinesInThisOutfile - 1. |
8464 ]. |
8464 ]. |
8465 outStream close. |
8465 outStream close. |
8466 splitIndex := splitIndex + 1. |
8466 splitIndex := splitIndex + 1. |
8467 ]. |
8467 ]. |