Code-a-holic: October 2007

Tuesday, October 23, 2007

[Protium] Splitting

Here's a short script for splitting a file. The file in this case is the perl language data file from the PLEAC website. pleac_perl.data contains sections marked with "# ^^PLEAC^^_" followed by a number. The section applies until the next section is marked. The script splits each section out of pleac_perl.data into pleac_perl_number.p. I'm working through these files and re-expressing the intent of the perl code in Protium.

<@ DEFAREFLE>pleac</@>
<@ DEFFLELIT>pleac|C:\Documents and Settings\All Users\Documents\Projects\PLEAC\pleac_perl.data</@>
<@ ITEENUFLELIT>pleac|
<@ LETVARELTFLE>aLine|...</@>
<@ TSTRXPVARLIT>aLine|# \^\^PLEAC\^\^_(\d+\.\d+)</@>
<@ IFF><@ LETVARKEY>number|__Reg1</@>
<@ ACTSNKLIT>__Off</@>
<@ ACTSNKEMMLIT>pleac_perl_&number;.p</@>
</@>
<@ SAYVAR>aLine</@>
</@>

The code may be described as follows:

Define a work area, or alias, for the data file, calling it 'pleac'.
Open the text file within that work area, using define-file-lit.
Start a loop which iterates through an enumeration of the lines of data in the work area.
Let a variable contain the data in the current line of the work area.
Test whether the regular expression works for the current line.
If it does work, let a variable contain the number found, ...
... turn off any output redirection, ...
... and redirect output to the file 'pleac_perl_' + the number found (in the same directory as the script).
End of the if.
Output the contents of the line.
End of the iteration.