/** * HREF * (c) 2006 Freeware by scriptol.com * Convert a list of URL in a text file to a web page with regular links. * Requires the Scriptol Interpreter or Compiler. */ include "libphp.sol" array software array html boolean VERBOSE = false ` GET EXTENSION - Get extension of a filename or path text getExtension(text path) int pos for pos in path.length() - 1 .. 0 step -1 if path[pos] = "." break /for if pos > 0 return path[pos ..] return "" ` CHANGE EXTENSION - Replace current extension by given on ` on filename or full path text changeExtension(text path, text newext) int l = path.length() if l = 0 return newext for int x in l - 1 .. 0 step -1 if path[x] = "." path = path[ -- x] break /if /for if newext.length() > 0 if newext[0] <> "." let newext = "." + newext /if return path + newext int main(int argc, array argv) text filename = argv[1] text extension = ".html" text name = "" int pos int dot int blank int tab text soft text href print "HREF - Freeware by www.scriptol.com" print "Processing", filename if argc < 2 print "Usage:" print " href textfile" exit(0) /if software.load(filename) html.push("\n") html.push("\n") html.push("\n") // add a title further html.push("\n") html.push("\n") html.push("\n\n\n") if getExtension(filename) = ".html" extension = ".htm" /if filename = changeExtension(filename, extension) html.store(filename) print filename, "created..." return 0 main($argc, $argv)