to end] ; define and run the extract-articles function defined above ; links: [ [ 1 "http://reboltutorial.com/blog/create-dsl/" {[Hot!] Create your own Domain Specific Language [DSL] in 15 minutes [part 1]} ][ 2 "http://reboltutorial.com/blog/dzone-protocol/" {[Hot!] How to create a dzone:// protocol (like http://) or an Asynchronous Protocol Handler} ][ 3 {http://reboltutorial.com/blog/try-the-easy-yuml-domain-specific-language-online-without-downloading-rebol/} {[HOT!] Try the Easy yUML Domain Specific Language Online without downloading Rebol!} ][ 4 {http://reboltutorial.com/blog/rebol-twitter-update/} {[Hot] How to tweet from Rebol in One line (using Twitter API)!} ][ 5 {http://reboltutorial.com/blog/map-reduce-functions-in-rebol-towards-massive-parallel-functional-programming-part-i/} {[Hot] Map Reduce Functions in Rebol: towards Massive Parallel Functional Programming (part I)} ] ... (There are many more! When written 99 articles were listed) ] >>search links "functional" --> returns list of articles where "functional" is found --------------------------- --> Here a single link is returned == [5 http://reboltutorial.com/blog/map-reduce-functions-in-rebol-towards-massive-parallel-functional-programming-part-i/ {[Hot] Ma... } >> >>search/verbose links "functional" true --> verbose mode adds some details about found lines ---------------------------------------- "functional was found 1 fois." It is on line : 5 in the article : [Hot] Map Reduce Functions in Rebol: towards Massive Parallel Functional Programming (part I) The refering link is : http://reboltutorial.com/blog/why-carl-sassenrath-one-of-30-most-influential-people-in-programming/ == [5 http://reboltutorial.com/blog/map-reduce-functions-in-rebol-towards-massive-parallel-functional-programming-part-i/ {[Hot] Ma... } >> >>search/verbose links "language" true --> returns list of articles where "language" is found -------------------------------------- --> Here many links (7) are displayed (since I used the full 99 articles indexd available at this moment) "language was found 7 time(s)." It is on line : 1 in the article : [Hot!] Create your own Domain Specific Language [DSL] in 15 minutes [part 1] The refering link is : http://reboltutorial.com/blog/why-carl-sassenrath-one-of-30-most-influential-people-in-programming/ on line : 3 in the article : [HOT!] Try the Easy yUML Domain Specific Language Online without downloading Rebol! The refering link is : http://reboltutorial.com/blog/why-carl-sassenrath-one-of-30-most-influential-people-in-programming/ on line : 25 in the article : Creating an OOP Class-Based Language with an Homoiconic / Prototype-Based OOP Language The refering link is : http://reboltutorial.com/blog/why-carl-sassenrath-one-of-30-most-influential-people-in-programming/ on line : 53 in the article : How to create an XML Document with the Easy ML Domain Specific Language (Youtube Video at the end) The refering link is : http://reboltutorial.com/blog/why-carl-sassenrath-one-of-30-most-influential-people-in-programming/ on line : 76 in the article : Rebol and the Grand Unification Theory of Programming Languages The refering link is : http://reboltutorial.com/blog/why-carl-sassenrath-one-of-30-most-influential-people-in-programming/ on line : 82 in the article : Rebol is a Prototype-Based OOP Language The refering link is : http://reboltutorial.com/blog/why-carl-sassenrath-one-of-30-most-influential-people-in-programming/ on line : 88 in the article : Rebol's Reflection based on its Language Homoiconicity Property (Code-Data duality property) The refering link is : http://reboltutorial.com/blog/why-carl-sassenrath-one-of-30-most-influential-people-in-programming/ == [1 http://reboltutorial.com/blog/create-dsl/ {[Hot!] Create your own Domain Specific Language [DSL] in 15 minutes [part 1]} 3 ht...] >> >> length? found-lines --> where are stored the lines found with their numbers, description and links == 21 >> } 'links-list [word!] search-word [string!] /verbose verbose? [logic!] ][ if not verbose [ set 'verbose? false ] links-list: get links-list found-lines: copy [] trouve: false c-trouve: 0 foreach [line] links-list [ ;probe "-----------" line-num: first line ;probe line-num lien: to-url second line ;probe lien desc: third line ;probe desc if find desc search-word [ c-trouve: c-trouve + 1 if not trouve [ trouve: true ] append found-lines reduce [line-num lien desc] ] ] either not trouve [ probe rejoin [search-word " was not found in " links-list] return none ][ if verbose? = true [ probe rejoin [search-word " was found " c-trouve " time(s)."] prin ["It is "] foreach [line link descr] found-lines [ print rejoin [ "on line : " line newline "in the article : " descr newline "The refering link is : " lien newline ] ] ] return found-lines ] ] ; ; ===================================== TESTS ============================================== ; extract-articles print newline probe "search for knowledge without verbose mode" probe " - no output displayed only a value is returned for further processing" print newline result1: search links "knowledge" print newline probe "search for knowledge with verbose mode" probe "everything is displayed" print newline result2: search/verbose links "knowledge" true print newline probe "search for language without verbose mode" probe " - no output displayed only a value is returned for further processing" print newline result3: search links "language" print newline probe "search for language with verbose mode" probe "everything is displayed" print newline result4: search/verbose links "language" true print newline probe "display the stored result following a search for the word (language)" probe " - verbose mode doesn't affect the stored return result" print newline foreach item result3 [print item] halt ; browse search links "knowledge" ; In the original version only the first occurence of the searched word was returned ; and then I could directly browse from the hyperlink found in the articles ; For the next step - the returned list of links could be put in a list to be selected by the user ; which then would choose the one link of interest to him for browsing. ; I will have to do it soon for my first small project using REBOL and GLayout from Maxim ; ===================================== OTHER STUFF From which I started this project ============================================== ; Extract from Carl (extracted from script %word-browser.r) ; search-words: func [text /local words tmp got] [ unselect-lists words: clear [] foreach [word def] ref [ if find tmp: form word text [ if tmp = text [got: word] append words word ] ] filter-words/list none words got ] { Extrait de REbTut qui a servi d'idée et de base de travail content: read http://reboltutorial.com/articles/ raw-list: parse/all content {" #" " : , ' / . #"{" #"}" - ; ~} parse-begin: