Lines Matching refs:locate

52 $  name = f$extract(0,f$locate("=",line),line)
53 $  start = f$locate("'",line)+1
56 $  if (f$locate("#",name).eqs.f$length(name)).and. -
123 $ if f$locate("PERL_VERSION",line).ne.f$length(line)
129 $ if f$locate("PERL_SUBVERSION",line).ne.f$length(line)
177 $ if f$locate("=",line).ne.f$length(line)   !then may be an assigment
179 $     name = f$edit( f$extract(0,f$locate("=",line),line), "COLLAPSE")
187 $             start = f$locate("=",line)+1
241    ((f$locate("#define",line).eq.0).or.(f$locate("#undef",line).eq.0)) 
255 $             if (f$locate("#undef",line).eq.0)
260 $                 start = f$locate("/*",line)
263 $                     if f$locate("*/",line).ne.f$length(line) !comment stopped
264 $                       then stop = f$locate("*/",line)+2
265 $                       else stop = f$locate("*/",line)
272 $                 start = f$locate(key,line)+f$length(key)