From 5c605d6907b56caa16ef76963c3a294440b81fa7 Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Fri, 18 Nov 2022 13:22:29 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B0=20=D0=BF=D1=80=D0=BE=D0=B2=D0=B5=D1=80=D0=BA=D0=B0?=
 =?UTF-8?q?=20=D0=BF=D0=B0=D1=80=D0=B0=D0=BC=D0=B5=D1=82=D1=80=D0=BE=D0=B2?=
 =?UTF-8?q?=20=D0=B2=D1=8B=D0=B7=D0=BE=D0=B2=D0=B0=20=D1=84=D0=B0=D0=B9?=
 =?UTF-8?q?=D0=BB=20=D0=B8=D0=BB=D0=B8=20=D0=BF=D1=80=D0=BE=D1=81=D1=82?=
 =?UTF-8?q?=D0=BE=20=D1=81=D1=82=D1=80=D0=BE=D0=BA=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 tkregexp.tcl | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/tkregexp.tcl b/tkregexp.tcl
index 44c5c6f..12b9779 100755
--- a/tkregexp.tcl
+++ b/tkregexp.tcl
@@ -1084,14 +1084,16 @@ if {$argc > 1} {
         puts "Usage: $argv0 <sampleFile>"
 } elseif {$argc == 1} {
         set filename [lindex $argv 0]
-        set file [open $filename]
-        set data [read $file [file size $filename]]
-        close $file
-
-        # memorize location
-        set regexp::data(v:dir) [file dirname $filename]
-        set regexp::data(v:file) [file tail $filename]
-
+        if [file exists $filename] {
+            set file [open $filename]
+            set data [read $file [file size $filename]]
+            close $file
+            # memorize location
+            set regexp::data(v:dir) [file dirname $filename]
+            set regexp::data(v:file) [file tail $filename]
+        } else {
+            set data [lindex $argv 0]
+        }
         regexp::sample:set $data
         unset data
 }
@@ -1366,4 +1368,3 @@ proc make-regexp::make-regexp {words} {
 
 
 
-