search

ActiveState / tdk

Tcl Dev Kit (TDK)
BSD 3-Clause "New" or "Revised" License
69 stars 36 forks source link

"tdk_license" string in tcl files #2

Open QuLk opened 6 years ago

QuLk commented 6 years ago

I do a search for tdk_license under the tdk root folder. Found 21 occurrence(s) in 8 file(s). I think those related lines should be removed or commented out from the tcl files.

Searching for: tdk_license

app\comp\lib\app-comp\comp_startup.tcl(104): set userinfo  [compiler::tdk_license user-name]
app\comp\lib\app-comp\comp_startup.tcl(105): set useremail [compiler::tdk_license user-email]
app\comp\lib\app-comp\comp_startup.tcl(109): set licinfo "| [compiler::tdk_license type] license for $userinfo."
app\comp\lib\app-comp\comp_startup.tcl(122): set expire [compiler::tdk_license expiration-date]
app\comp\lib\app-comp\procomp.tcl(378): set userinfo [compiler::tdk_license user-name]
app\comp\lib\app-comp\procomp.tcl(379): set useremail [compiler::tdk_license user-email]
app\comp\lib\app-comp\procomp.tcl(385): log "# [compiler::tdk_license type] license for $userinfo."
app\comp\lib\app-comp\procomp.tcl(386): set e [compiler::tdk_license expiration-date]
app\comp\lib\app-comp\procomp.tcl(388): log "# Expires: [compiler::tdk_license expiration-date]."
app\comp\lib\app-comp\procomp.tcl(831): set expiry [compiler::tdk_license expiration-date]
app\comp\lib\app-comp\procomp.tcl(841): set user [compiler::tdk_license user-name]
app\comp\lib\app-comp\procomp.tcl(842): set mail [compiler::tdk_license user-email]
app\comp\lib\comp-ui\compiler.tcl(390): set userinfo [compiler::tdk_license user-name]
app\comp\lib\comp-ui\compiler.tcl(391): set useremail [compiler::tdk_license user-email]
app\comp\lib\comp-ui\compiler.tcl(395): set licinfo "| [compiler::tdk_license type] license for $userinfo."
app\comp\lib\comp-ui\compiler.tcl(413): set expire [compiler::tdk_license expiration-date]
app\tape\lib\app-tape\tape_pot.tcl(20): compiler::tdk_license user-name
app\tape\lib\app-tape\tape_state.tcl(19): compiler::tdk_license user-name
app\tclsvc\tclsvc.tcl(64): if {[catch {package require compiler; compiler::tdk_license user-name} err]} {
lib\tclcompiler\cmpWPkg.c(72): { "tdk_license",     TdkLicenseObjCmd, 1 },
lib\tclparser\tclParser.c(113): Tcl_CreateObjCommand(interp, "tdk_license", TdkLicenseObjCmd, NULL, NULL);
ColdfireMC commented 2 years ago

I think is better to convert it into a pull request

cyangy commented 1 year ago

I do a search for tdk_license under the tdk root folder. Found 21 occurrence(s) in 8 file(s). I think those related lines should be removed or commented out from the tcl files.

Searching for: tdk_license

app\comp\lib\app-comp\comp_startup.tcl(104): set userinfo  [compiler::tdk_license user-name]
app\comp\lib\app-comp\comp_startup.tcl(105): set useremail [compiler::tdk_license user-email]
app\comp\lib\app-comp\comp_startup.tcl(109): set licinfo "| [compiler::tdk_license type] license for $userinfo."
app\comp\lib\app-comp\comp_startup.tcl(122): set expire [compiler::tdk_license expiration-date]
app\comp\lib\app-comp\procomp.tcl(378): set userinfo [compiler::tdk_license user-name]
app\comp\lib\app-comp\procomp.tcl(379): set useremail [compiler::tdk_license user-email]
app\comp\lib\app-comp\procomp.tcl(385): log "# [compiler::tdk_license type] license for $userinfo."
app\comp\lib\app-comp\procomp.tcl(386): set e [compiler::tdk_license expiration-date]
app\comp\lib\app-comp\procomp.tcl(388): log "# Expires: [compiler::tdk_license expiration-date]."
app\comp\lib\app-comp\procomp.tcl(831): set expiry [compiler::tdk_license expiration-date]
app\comp\lib\app-comp\procomp.tcl(841): set user [compiler::tdk_license user-name]
app\comp\lib\app-comp\procomp.tcl(842): set mail [compiler::tdk_license user-email]
app\comp\lib\comp-ui\compiler.tcl(390): set userinfo [compiler::tdk_license user-name]
app\comp\lib\comp-ui\compiler.tcl(391): set useremail [compiler::tdk_license user-email]
app\comp\lib\comp-ui\compiler.tcl(395): set licinfo "| [compiler::tdk_license type] license for $userinfo."
app\comp\lib\comp-ui\compiler.tcl(413): set expire [compiler::tdk_license expiration-date]
app\tape\lib\app-tape\tape_pot.tcl(20): compiler::tdk_license user-name
app\tape\lib\app-tape\tape_state.tcl(19): compiler::tdk_license user-name
app\tclsvc\tclsvc.tcl(64): if {[catch {package require compiler; compiler::tdk_license user-name} err]} {
lib\tclcompiler\cmpWPkg.c(72): { "tdk_license",     TdkLicenseObjCmd, 1 },
lib\tclparser\tclParser.c(113): Tcl_CreateObjCommand(interp, "tdk_license", TdkLicenseObjCmd, NULL, NULL);

I'd like to just bypass it, instead of comment it. See this