I am working with hundreds small files (graphical source files around 800 lines)
and this function is main one which is missing for me and I need to work with
Perl in this case.
Please try to implement this function.
See small example of source files (Ovation graphics language – made by Emerson
/ Westinghouse)
IF ((L:lo1_id DS = on7) AND (L:lo1_id AP < L:a_priority))
SET_VARIABLE L:a_priority L:lo1_id AP
COLOR FG black BG grey70 ER ivory4 OL 0 BLINK FG OFF BG OFF
GCODE 1 L:lo1_id
ENDIF
*****************************************************
RECTANGLE 0 0 530 400 1 outline outline
PROCESS_PT 30 27 4 0 RIGHT OFF HORZ VECTOR_OVER 100 345 1 L:analog_id AV
*Quality color definitions - background depends on alarm state, foreground on
state FAIL POOR BAD TIMEOUT
TEXT 420 27 " " { ((L:analog_id 1W = ON8) AND (L:analog_id 1W = OFF9)) "F"
((L:analog_id 1W = OFF8) AND (L:analog_id 1W = ON9)) "P" ((L:analog_id 1W =
ON8) AND
(L:analog_id 1W = ON9)) "B" (L:analog_id 1W = HDWRFAIL) "T" } HORZ
VECTOR_OVER 100 345 1
--
<http://forum.pspad.com/read.php?2,49866,58503>
PSPad freeware editor http://www.pspad.com
