Graphical bits moved into files to save jar size
[jalview.git] / src / com / stevesoft / pat / parsePerl.java
1 //\r
2 // This software is now distributed according to\r
3 // the Lesser Gnu Public License.  Please see\r
4 // http://www.gnu.org/copyleft/lesser.txt for\r
5 // the details.\r
6 //    -- Happy Computing!\r
7 //\r
8 package com.stevesoft.pat;\r
9 \r
10 /** This class provides a method for parsing the "s/.../.../" constructs\r
11 of Regex.perlCode.\r
12 @see Regex#perlCode\r
13 */\r
14 class parsePerl {\r
15     final static char close(char c) {\r
16         // This switch statement does not behave\r
17         // properly when compiled with jdk1.1.5\r
18         // and the -O flag.\r
19         /*\r
20         switch(c) {\r
21         case '[':\r
22           return ']';\r
23         case '(':\r
24           return ')';\r
25         case '{':\r
26           return '}';\r
27         }\r
28         return c;*/\r
29         if(c == '<')\r
30             return '>';\r
31         if(c == '[')\r
32             return ']';\r
33         if(c == '(')\r
34             return ')';\r
35         if(c == '{')\r
36             return '}';\r
37         return c;\r
38     }\r
39 \r
40     final public static String codify(String s,boolean keepbs) {\r
41         return codify(s,0,s.length(),keepbs);\r
42     }\r
43     final public static String codify(String s,int i0,int iN,boolean keepbs) {\r
44         StringBuffer sb = new StringBuffer();\r
45         boolean ucmode = false, lcmode = false, litmode = false;\r
46         boolean uc1 = false, lc1 = false;\r
47         boolean modified = false;\r
48         for(int i=i0;i<iN;i++) {\r
49             char c = s.charAt(i);\r
50             boolean mf = true, app=true;\r
51             if(c=='\\') {\r
52                 app=false;\r
53                 i++;\r
54                 if(i<s.length()) {\r
55                     char c2 = s.charAt(i);\r
56                     switch(c2) {\r
57                     case 'Q':\r
58                         litmode = true;\r
59                         break;\r
60                     case 'U':\r
61                         ucmode = true;\r
62                         break;\r
63                     case 'L':\r
64                         lcmode = true;\r
65                         break;\r
66                     case 'u':\r
67                         uc1 = true;\r
68                         break;\r
69                     case 'l':\r
70                         lc1 = true;\r
71                         break;\r
72                     case 'E':\r
73                         uc1=lc1=ucmode=lcmode=litmode=false;\r
74                         break;\r
75                     default:\r
76                         if(keepbs)\r
77                             sb.append('\\');\r
78                         c=c2;\r
79                         if(keepbs) mf = false;\r
80                         app = true;\r
81                         break;\r
82                     }\r
83                     modified |= mf;\r
84                 }\r
85             }\r
86             if(app) {\r
87                 if(lc1) {\r
88                     c=lc(c);\r
89                     lc1=false;\r
90                 } else if(uc1) {\r
91                     c=uc(c);\r
92                     uc1=false;\r
93                 } else if(ucmode) {\r
94                     c=uc(c);\r
95                 } else if(lcmode) {\r
96                     c=lc(c);\r
97                 }\r
98                 if(litmode && needbs(c))\r
99                     sb.append('\\');\r
100                 sb.append(c);\r
101             }\r
102         }\r
103         return modified ? sb.toString() : s;\r
104     }\r
105     final static char uc(char c) {\r
106         return CaseMgr.toUpperCase(c);\r
107     }\r
108     final static char lc(char c) {\r
109         return CaseMgr.toLowerCase(c);\r
110     }\r
111     final static boolean needbs(char c) {\r
112         if(c >= 'a' && c <= 'z')\r
113             return false;\r
114         if(c >= 'A' && c <= 'Z')\r
115             return false;\r
116         if(c >= '0' && c <= '9')\r
117             return false;\r
118         if(c == '_')\r
119             return false;\r
120         return true;\r
121     }\r
122     final static Regex parse(String s) {\r
123         boolean igncase = false, optim = false, gFlag = false;\r
124         boolean sFlag = false, mFlag = false, xFlag = false;\r
125 \r
126         StringBuffer s1 = new StringBuffer();\r
127         StringBuffer s2 = new StringBuffer();\r
128         int i=0,count=0;\r
129         char mode,delim='/',cdelim='/';\r
130         if(s.length() >= 3 && s.charAt(0)=='s') {\r
131             mode = 's';\r
132             delim = s.charAt(1);\r
133             cdelim = close(delim);\r
134             i=2;\r
135         } else if(s.length() >= 2 && s.charAt(0)=='m') {\r
136             mode = 'm';\r
137             delim = s.charAt(1);\r
138             cdelim = close(delim);\r
139             i=2;\r
140         } else if(s.length() >= 1 && s.charAt(0)=='/') {\r
141             mode = 'm';\r
142             i=1;\r
143         } else {\r
144             try {\r
145                 RegSyntaxError.endItAll(\r
146                     "Regex.perlCode should be of the "+\r
147                     "form s/// or m// or //");\r
148             } catch(RegSyntax rs) {}\r
149             return null;\r
150         }\r
151         for(;i<s.length();i++) {\r
152             if(s.charAt(i)=='\\') {\r
153                 s1.append('\\');\r
154                 i++;\r
155             } else if(s.charAt(i)==cdelim && count==0) {\r
156                 i++;\r
157                 break;\r
158             } else if(s.charAt(i)==delim && cdelim != delim) {\r
159                 count++;\r
160             } else if(s.charAt(i)==cdelim && cdelim != delim) {\r
161                 count--;\r
162             }\r
163             s1.append(s.charAt(i));\r
164         }\r
165         if(mode=='s' && cdelim != delim) {\r
166             while(i<s.length() && Prop.isWhite(s.charAt(i)) )\r
167                 i++;\r
168             if(i>=s.length()) {\r
169                 try {\r
170                     RegSyntaxError.endItAll(""+mode+delim+" needs "+cdelim);\r
171                 } catch(RegSyntax rs) {}\r
172                 return null;\r
173             }\r
174             cdelim = close(delim = s.charAt(i));\r
175             i++;\r
176         }\r
177         count=0;\r
178         if(mode=='s') {\r
179             for(;i<s.length();i++) {\r
180                 if(s.charAt(i)=='\\') {\r
181                     s2.append('\\');\r
182                     i++;\r
183                 } else if(s.charAt(i)==cdelim && count==0) {\r
184                     i++;\r
185                     break;\r
186                 } else if(s.charAt(i)==delim && cdelim != delim) {\r
187                     count++;\r
188                 } else if(s.charAt(i)==cdelim && cdelim != delim) {\r
189                     count--;\r
190                 }\r
191                 s2.append(s.charAt(i));\r
192             }\r
193         }\r
194         for(;i<s.length();i++) {\r
195             char c = s.charAt(i);\r
196             switch(c) {\r
197             case 'x':\r
198                 xFlag = true;\r
199                 break;\r
200             case 'i':\r
201                 igncase = true;\r
202                 break;\r
203             case 'o':\r
204                 optim = true;\r
205                 break;\r
206             case 's':\r
207                 sFlag = true;\r
208                 break;\r
209             case 'm':\r
210                 mFlag = true;\r
211                 break;\r
212             case 'g':\r
213                 gFlag = true;\r
214                 break;\r
215             default:\r
216                 // syntax error!\r
217                 try {\r
218                     RegSyntaxError.endItAll("Illegal flag to pattern: "+c);\r
219                 } catch(RegSyntax rs) {}\r
220                 return null;\r
221             }\r
222         }\r
223         Regex r = new Regex();\r
224         try {\r
225             String pat=s1.toString(),reprul=s2.toString();\r
226             if(xFlag) {\r
227               pat = strip(pat);\r
228               reprul = strip(reprul);\r
229             }\r
230             r.compile(pat);\r
231             r.ignoreCase |= igncase;\r
232             r.gFlag |= gFlag;\r
233             r.sFlag |= sFlag;\r
234             r.mFlag |= mFlag;\r
235             if(optim) r.optimize();\r
236             if(delim=='\'')\r
237               r.setReplaceRule(new StringRule(reprul));\r
238             else\r
239               r.setReplaceRule(ReplaceRule.perlCode(reprul));\r
240         } catch(RegSyntax rs) {\r
241             r = null;\r
242         }\r
243         return r;\r
244     }\r
245     static String strip(String s) {\r
246       StringBuffer sb = new StringBuffer();\r
247       for(int i=0;i<s.length();i++) {\r
248         char c = s.charAt(i);\r
249         if(Prop.isWhite(c)) {\r
250           ;\r
251         } else if(c == '#') {\r
252           i++;\r
253           while(i<s.length()) {\r
254             if(s.charAt(i) == '\n')\r
255               break;\r
256             i++;\r
257           }\r
258         } else if(c == '\\') {\r
259           sb.append(c);\r
260           sb.append(s.charAt(++i));\r
261         } else\r
262           sb.append(c);\r
263       }\r
264       return sb.toString();\r
265     }\r
266 }\r