Sobyk

Check-in [ce96bf75b0]
Login

Check-in [ce96bf75b0]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Pulling changes from core-8-6-10
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA3-256: ce96bf75b0f9ffc8d6a801a4e708141f034f82db3dc6ce258ce0492475170883
User & Date: hypnotoad 2024-03-20 16:12:56
Context
2024-03-20
16:12
Pulling changes from core-8-6-10 Leaf check-in: ce96bf75b0 user: hypnotoad tags: trunk
2021-10-29
10:33
Clocking into a specific version of clay check-in: a959034776 user: hypnotoad tags: core-8-6-10
2020-09-03
21:51
Pulling fixes from core-8-6-9 check-in: cabe7d22a6 user: hypnotoad tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to app/tclkit.tcl.
︙︙
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

my define set cleanup [list $name.c $name.h $name.vfs kitcrypt.c [my define get tclkit_bare]]



my add_project tcl {
  class subproject.core
  name tcl
  tag release
  static 1
  fossil_url http://fossil.etoyoc.com/fossil/tcl
}

my add_project tcllib {
  profile {
    release: e954c041404d45d93d7c8cb58a29192d43873ac9








|








33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

my define set cleanup [list $name.c $name.h $name.vfs kitcrypt.c [my define get tclkit_bare]]



my add_project tcl {
  class subproject.core
  name tcl
  tag core-8-6-10
  static 1
  fossil_url http://fossil.etoyoc.com/fossil/tcl
}

my add_project tcllib {
  profile {
    release: e954c041404d45d93d7c8cb58a29192d43873ac9
︙︙
79
80
81
82
83
84
85

86
87
88
89
90
91
92

  class subproject.binary
  install static
  pkg_name Thread
  initfunc Thread_Init
  fossil_url http://fossil.etoyoc.com/fossil/thread
}


my add_project tdbcsqlite3 {
  tag trunk
  fossil_url http://fossil.etoyoc.com/fossil/tdbcsqlite3
  class subproject.source
  install vfs
} {
  method install DEST {








>








79
80
81
82
83
84
85
86
87
88
89
90
91
92
93

  class subproject.binary
  install static
  pkg_name Thread
  initfunc Thread_Init
  fossil_url http://fossil.etoyoc.com/fossil/thread
}

noop {
my add_project tdbcsqlite3 {
  tag trunk
  fossil_url http://fossil.etoyoc.com/fossil/tdbcsqlite3
  class subproject.source
  install vfs
} {
  method install DEST {
︙︙
141
142
143
144
145
146
147

148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173

  tag trunk
  class subproject.binary
  install static
  initfunc Tdbcpostgres_Init
  fossil_url http://fossil.etoyoc.com/fossil/tdbcpostgres
  static_preload_files tdbcpostgres.tcl
}


my add_project tclsqlite {
  profile {
    release: 40ffdfb26af3e7443b2912e1039c06bf9ed75846
    devel:   practcl
  }
  uuid 12e72f481709032fb39525f78e0f219121948b6f
  class subproject.binary
  pkg_name sqlite3
  install static-autoload
  initfunc Sqlite3_Init
  fossil_url http://fossil.etoyoc.com/fossil/sqlite
}


my add_project clay {
  profile {
    devel:    trunk
  }
  fossil_url http://fossil.etoyoc.com/fossil/clay
  class subproject.practcl
  install vfs
  module_list all
}

my add_project udp {








>
















<
|
<








142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165

166

167
168
169
170
171
172
173

  tag trunk
  class subproject.binary
  install static
  initfunc Tdbcpostgres_Init
  fossil_url http://fossil.etoyoc.com/fossil/tdbcpostgres
  static_preload_files tdbcpostgres.tcl
}
}

my add_project tclsqlite {
  profile {
    release: 40ffdfb26af3e7443b2912e1039c06bf9ed75846
    devel:   practcl
  }
  uuid 12e72f481709032fb39525f78e0f219121948b6f
  class subproject.binary
  pkg_name sqlite3
  install static-autoload
  initfunc Sqlite3_Init
  fossil_url http://fossil.etoyoc.com/fossil/sqlite
}


my add_project clay {

  tag version-0-10

  fossil_url http://fossil.etoyoc.com/fossil/clay
  class subproject.practcl
  install vfs
  module_list all
}

my add_project udp {
︙︙
Changes to app/wishkit.tcl. 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

###
# This script implements a basic TclTkit with statically linked
# Tk, sqlite, threads, udp, and mmtk (which includes canvas3d and tkhtml)
###
my define set tk 1
my define set static_tk 1

puts "READING [info script] $::SRCDIR"


my add_project tk {
  class subproject.core
  name tk
  tag release
  install static-autoload
  pkg_name Tk
  initfunc Tk_Init
  fossil_url http://fossil.etoyoc.com/fossil/tk
}
my add [file join $::SRCDIR pkg twv make.tcl]
#my add [file join $::SRCDIR pkg tkwebview make.tcl]














|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

###
# This script implements a basic TclTkit with statically linked
# Tk, sqlite, threads, udp, and mmtk (which includes canvas3d and tkhtml)
###
my define set tk 1
my define set static_tk 1

puts "READING [info script] $::SRCDIR"


my add_project tk {
  class subproject.core
  name tk
  tag core-8-6-10
  install static-autoload
  pkg_name Tk
  initfunc Tk_Init
  fossil_url http://fossil.etoyoc.com/fossil/tk
}
my add [file join $::SRCDIR pkg twv make.tcl]
#my add [file join $::SRCDIR pkg tkwebview make.tcl]
︙︙
Changes to generic/tclZipfs.c.
︙︙
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337

                }
            }
            if (objs[0] == NULL) {
                objs[0] = TclPathPart(interp, TclGetObjNameOfExecutable(),
                                          TCL_PATH_DIRNAME);
            }
            if (objs[0] != NULL) {
                altPath = TclJoinPath(2, objs);
                if (altPath != NULL) {
                    Tcl_IncrRefCount(altPath);
                    if (Tcl_FSAccess(altPath, R_OK) == 0) {
                        path = altPath;
                    }
                }
            }








|








4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337

                }
            }
            if (objs[0] == NULL) {
                objs[0] = TclPathPart(interp, TclGetObjNameOfExecutable(),
                                          TCL_PATH_DIRNAME);
            }
            if (objs[0] != NULL) {
                altPath = TclJoinPath(2, objs, 0);
                if (altPath != NULL) {
                    Tcl_IncrRefCount(altPath);
                    if (Tcl_FSAccess(altPath, R_OK) == 0) {
                        path = altPath;
                    }
                }
            }
︙︙