From 78c5fde1bccba0ebddd5ba4ec94621e3d38a5a9b Mon Sep 17 00:00:00 2001 From: "D. Bohdan" Date: Thu, 9 May 2024 15:09:58 +0000 Subject: [PATCH] refactor: use more readable Tcl version reqs --- tinyfts-dev.tcl | 5 +++-- tools/dir2json | 7 ++++--- tools/import | 5 +++-- tools/titlecat | 5 +++-- tools/wrap | 5 +++-- vendor/wapp/wapp.tcl | 4 ++-- 6 files changed, 18 insertions(+), 13 deletions(-) diff --git a/tinyfts-dev.tcl b/tinyfts-dev.tcl index f9e942a..ecbe9b8 100644 --- a/tinyfts-dev.tcl +++ b/tinyfts-dev.tcl @@ -1,7 +1,8 @@ #! /usr/bin/env tclsh # tinyfts: a very small standalone full-text search HTTP server. # ============================================================================== -# Copyright (c) 2019-2022 D. Bohdan and contributors listed in AUTHORS +# Copyright (c) 2019-2022, 2024 D. Bohdan +# and contributors listed in AUTHORS # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to deal @@ -22,7 +23,7 @@ # THE SOFTWARE. # ============================================================================== -package require Tcl 8.6-10 +package require Tcl 8.6 9 package require sqlite3 3.9 diff --git a/tools/dir2json b/tools/dir2json index 16287f0..9c55711 100755 --- a/tools/dir2json +++ b/tools/dir2json @@ -3,7 +3,8 @@ # file(1) to determine what is a text file. It attempts to extract text from # HTML using tDOM. # ============================================================================== -# Copyright (c) 2022 D. Bohdan and contributors listed in AUTHORS +# Copyright (c) 2022, 2024 D. Bohdan +# and contributors listed in AUTHORS # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to deal @@ -24,7 +25,7 @@ # THE SOFTWARE. # ============================================================================== -package require Tcl 8.6-10 +package require Tcl 8.6 9 package require fileutil 1 package require json::write 1 package require tdom @@ -116,4 +117,4 @@ if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { exit 0 } main {*}$argv -} \ No newline at end of file +} diff --git a/tools/import b/tools/import index 549f7b4..b1c01d8 100755 --- a/tools/import +++ b/tools/import @@ -1,7 +1,8 @@ #! /usr/bin/env tclsh # A tool to import data into a tinyfts database. # ============================================================================== -# Copyright (c) 2019, 2021-2023 D. Bohdan and contributors listed in AUTHORS +# Copyright (c) 2019, 2021-2024 D. Bohdan +# and contributors listed in AUTHORS # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to deal @@ -22,7 +23,7 @@ # THE SOFTWARE. # ============================================================================== -package require Tcl 8.6-10 +package require Tcl 8.6 9 package require fileutil 1 package require http 2 package require json 1 diff --git a/tools/titlecat b/tools/titlecat index 602bfca..553e8ab 100755 --- a/tools/titlecat +++ b/tools/titlecat @@ -1,7 +1,8 @@ #! /usr/bin/env tclsh # Concatenate files with a comment containing the filename before each. # ============================================================================== -# Copyright (c) 2019, 2021-2022 D. Bohdan and contributors listed in AUTHORS +# Copyright (c) 2019, 2021-2022, 2024 D. Bohdan +# and contributors listed in AUTHORS # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to deal @@ -22,7 +23,7 @@ # THE SOFTWARE. # ============================================================================== -package require Tcl 8.6-10 +package require Tcl 8.6 9 package require fileutil 1 diff --git a/tools/wrap b/tools/wrap index 337910f..2f7019c 100755 --- a/tools/wrap +++ b/tools/wrap @@ -1,7 +1,8 @@ #! /usr/bin/env tclsh # Store any data in Tcl source code. # ============================================================================== -# Copyright (c) 2019, 2021-2022 D. Bohdan and contributors listed in AUTHORS +# Copyright (c) 2019, 2021-2022, 2024 D. Bohdan +# and contributors listed in AUTHORS # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to deal @@ -22,7 +23,7 @@ # THE SOFTWARE. # ============================================================================== -package require Tcl 8.6-10 +package require Tcl 8.6 9 package require fileutil 1 namespace eval wrap {} diff --git a/vendor/wapp/wapp.tcl b/vendor/wapp/wapp.tcl index d3f808f..370b0c7 100644 --- a/vendor/wapp/wapp.tcl +++ b/vendor/wapp/wapp.tcl @@ -1,5 +1,5 @@ # Copyright (c) 2017 D. Richard Hipp -# +# # This program is free software; you can redistribute it and/or # modify it under the terms of the Simplified BSD License (also # known as the "2-Clause License" or "FreeBSD License".) @@ -16,7 +16,7 @@ # # (2) Indentifiers intended for internal use only begin with "wappInt" # -package require Tcl 8.6-10 +package require Tcl 8.6 9 # Add text to the end of the HTTP reply. No interpretation or transformation # of the text is performs. The argument should be enclosed within {...}