(*
*) MODULE xsearchx; IMPORT Out, CharClass, StdChannels, Files, TextRider; CONST longest = 10; (* number of decimal digits in the longest number *) (* 5 is good for 16 bits, 9 for 32 bits *) maxOrder = 4; (* the power of 1000 for the longest number *) (* 1 is good for 16 bits, 2 for 32 bits *) VAR stringVar : ARRAY 256 OF CHAR; rdr: TextRider.Reader; res : INTEGER; c : CHAR; (* ten in Modula-2 by J. Andrea, ported to Oberon by Ulf Dittmer *) (* 1999/9/16 Steven Gibson - modified *) (* this module will read lines from stdin and write to stdout *) (* converts a list of file links to s XSEARCH seach list *) (* one more step is needed - search and replace & with " *) (* I use glimpseindex to generate the list I use *) BEGIN c :="h"; stringVar :="123"; Out.String(" preparing to open file: "); Out.Ln; rdr := TextRider.ConnectReader(StdChannels.stdin); WHILE (rdr.Res() = Files.done) DO rdr.ReadLine(stringVar); Out.Ln; Out.String("a += 1"); Out.Ln; Out.String(" v1[a] = &"); Out.String(stringVar); Out.String("&"); Out.Ln; Out.String(" v2[a] = &"); Out.String(stringVar); Out.String("&"); Out.Ln; Out.String(" v3[a] = &"); Out.String(stringVar); Out.String("&"); Out.Ln; END; Out.Ln; END xsearchx. (*
For example, your files on harddisk or a CD-ROM can be indexed and searched like Yahoo
http://www.twicefun.com/just4fun
HWEB - a literate-programming tool Hweb supports literate programming---the art of writing programs as documents for human readers. Hweb is a set of tools and methods for using html documents with programming source code. Hweb is a very simple tool, with a great idea behind it. Interleave documentation with html and source code. Hweb comes with an HTML extracter called, htangle. Keywords: literate programming, WEB, hweb The program source embedded in this html document should compile with the oo2c Oberon compiler without any change to the text of this html file. Only the file name needs to be changed: from x.html to x.Mod Then compiling the program should work.
Go to top