56 |
$_ = $line; |
$_ = $line; |
57 |
# remove C++ code |
# remove C++ code |
58 |
s/\{\p{IsASCII}*\}//g; |
s/\{\p{IsASCII}*\}//g; |
59 |
s/\/\/\p{IsASCII}*$/\n/g; |
s/\/\/\p{IsASCII}*$/\r\n/g; |
60 |
s/\{//g; |
s/\{//g; |
61 |
s/\}//g; |
s/\}//g; |
62 |
# place XML tags |
# place XML tags |
63 |
s!^(\w+)\s*:\s*(\p{IsASCII}*)!<t>$1 =\n\t<list>\n\t\t<t>$2!; |
s!^(\w+)\s*:\s*(\p{IsASCII}*)!<t>$1 =\r\n\t<list>\r\n\t\t<t>$2!; |
64 |
s!^\s+\|\s*(\p{IsASCII}*)!\t\t</t>\n\t\t<t>/ $1!; |
s!^\s+\|\s*(\p{IsASCII}*)!\t\t</t>\r\n\t\t<t>/ $1!; |
65 |
s!^\s*;(\p{IsASCII}*)!\t\t</t>\n\t</list>\n</t>!; |
s!^\s*;(\p{IsASCII}*)!\t\t</t>\r\n\t</list>\r\n</t>!; |
66 |
#s/:/<list>/g; |
#s/:/<list>/g; |
67 |
# remove space(s) at the end of each line |
# remove space(s) at the end of each line |
68 |
s/\s+$/\n/g; |
s/\s+$/\r\n/g; |
69 |
$yacc_in[$i] = $_; |
$yacc_in[$i] = $_; |
70 |
$i++; |
$i++; |
71 |
} |
} |