.gitea/workflows/build.yml

@@ -3,10 +3,11 @@ run-name: ${{ gitea.actor }} build projman packages
 on: [push]
 
 jobs:
-  Projman-Build:
+  Explore-Gitea-Actions:
-    runs-on: tcl-tk-builder:docker://svk28/tcltk-build-debian:latest
+    runs-on: ubuntu-latest
     steps:
-      - name: Checkout repository
+    build:
-        uses: actions/checkout@v4
+      image: svk28/tcltk-build-debian:latest
-      - run: cd debian
+      commands:
-      - run: ./build-deb-projman.sh
+        - cd debian
+        - ./build-deb-projman.sh

lib/files.tcl

@@ -31,7 +31,6 @@ namespace eval FileOper {
 
         # lappend cmd $activeProject
         lappend cmd $fileFullPath
-        # puts $cmd
         catch $cmd pipe 
         # puts $pipe
         if [regexp -nocase -- {(\w+)/([\w\-_\.]+); charset=([[:alnum:]-]+)} $pipe m fType fExt fCharset] {
@@ -44,15 +43,12 @@ namespace eval FileOper {
                 }
             }
         }
-        # линуксовый file не всегда корректно определяет тип файла
-        # используем пакет из tcl
-        lassign [::fileutil::fileType $fileFullPath] fType fBinaryType fBinaryInterp
-        puts "File type is $fType, $fBinaryType, $fBinaryInterp"
-
         switch $fType {
-            "binary" {
+            "application" {
+                if {$fExt ne "json"} {
                     return false
                 }
+            }
             "text" {
                 return text
             }
@@ -397,7 +393,7 @@ namespace eval FileOper {
         if {[file exists $fileFullPath] == 0} {
             return false
         } else {
-            puts "$fileFullPath File type [::fileutil::magic::filetype $fileFullPath]"
+            # puts [::fileutil::magic::filetype $fileFullPath]
             set fileType [FileOper::GetFileMimeType $fileFullPath]
         }
         switch $fileType {

lib/lexers.tcl

@@ -20,7 +20,6 @@ dict set lexers GO commentMultilineSymbolEnd {*/}
 dict set lexers GO procFindString {func.*?PROCNAME}
 dict set lexers GO procRegexpCommand {regexp -nocase -all -- {\s*?func\s*?(\(\w+\s*?\**?\w+\)|)\s*?(\w+)\((.*?)\)\s+?([a-zA-Z0-9\{\}\[\]\(\)-_.]*?|)\s*?\{} $line match linkName procName params returns}
 dict set lexers GO varRegexpCommand {regexp -nocase -all -line -- {^\s*?var\s+([a-zA-Z0-9\-_$]+)\s+(.+?)(\s*$)} $line match varName varType lineEnd}
-
 #--------------------------------------------------
 # SHELL (Bash)
 dict set lexers SH commentSymbol {#}
@@ -44,7 +43,6 @@ dict set lexers RB tabSize 2
 dict set lexers RB procFindString {(def |class )\s*?PROCNAME}
 dict set lexers RB procRegexpCommand {regexp -nocase -all -- {^\s*?(def|class)\s([a-zA-Z0-9\-_:\?]+?)($|\s|\(.+?\))} $line match keyWord procName params}
 dict set lexers RB varRegexpCommand {regexp -nocase -all -line -- {^\s*?(\w+)\s*=\s*(.+)($)} $line match varName varValue lineEnd}
-
 #--------------------------------------------------
 # YAML (ansible)
 dict set lexers YML commentSymbol {#}
@@ -97,8 +95,6 @@ dict set lexers HTM tabSize 4
 dict set lexers HTM procFindString {<h[0-9]>(<.+>|)PROCNAME(</.+>|)</h[0-9]>}
 dict set lexers HTM procRegexpCommand {regexp -nocase -all -- {<h[0-9]>(<.+>|)(.+?)(</.+>|)</h[0-9]>} $line match v1 procName v2}
 
-#--------------------------------------------------
-# LUA
 dict set lexers LUA commentSymbol {--}
 dict set lexers LUA procFindString {function\s*?PROCNAME}
 dict set lexers LUA procRegexpCommand {regexp -nocase -all -- {^(local|)\s*?(function)\s([a-zA-Z0-9\-_:]+?)\s+\((.+?)\)} $line match v1 keyWord procName params}

projman.tcl

@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 17052024104440
+# Build: 30072023112719
 ######################################################
 
 # определим текущую версию, релиз и т.д.