steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Clean up a few lines of resolv.conf parser

db4
Doug Coleman 2010-10-06 10:27:06 -05:00
parent f7af445625
commit 1e6ea11ba2
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/resolv-conf/resolv-conf.factor
View File

@ -30,17 +30,18 @@ CONSTRUCTOR: resolv.conf ( -- resolv.conf )
: trim-blanks ( string -- string' ) [ blank? ] trim ; : trim-blanks ( string -- string' ) [ blank? ] trim ;
: parse-nameserver ( resolv.conf string -- resolv.conf ) : split-line ( resolv.conf string -- resolv.conf seq resolv.conf )
trim-blanks " " split trim-blanks " " split
[ trim-blanks ] map harvest over nameserver>> push-all ; [ trim-blanks ] map harvest over ;
: parse-nameserver ( resolv.conf string -- resolv.conf )
split-line nameserver>> push-all ;
: parse-domain ( resolv.conf string -- resolv.conf ) : parse-domain ( resolv.conf string -- resolv.conf )
trim-blanks " " split split-line domain>> push-all ;
[ trim-blanks ] map harvest over domain>> push-all ;
: parse-search ( resolv.conf string -- resolv.conf ) : parse-search ( resolv.conf string -- resolv.conf )
trim-blanks " " split split-line search>> push-all ;
[ trim-blanks ] map harvest over search>> push-all ;
: parse-sortlist ( resolv.conf string -- resolv.conf ) : parse-sortlist ( resolv.conf string -- resolv.conf )
trim-blanks " " split trim-blanks " " split