← Back to branch summary

~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to interfaces/xmaxima/Tkmaxima/Myhtml.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2006-10-18 14:52:42 UTC
  • mto: (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20061018145242-vzyrm5hmxr8kiosf
Import upstream version 5.10.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
interfaces/xmaxima/Tkmaxima/Myhtml.tcl
1
1
# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
2
2
#
3
 
#       $Id: Myhtml.tcl,v 1.10 2002/09/19 21:42:20 mikeclarkson Exp $
 
3
#       $Id: Myhtml.tcl,v 1.12.2.3 2006/09/05 12:39:48 villate Exp $
4
4
#
5
5
###### Myhtml.tcl ######
6
6
############################################################
224
224
    set font $xHMfonts($fonttag)
225
225
    set s [split $fonttag :]
226
226
    if {[llength $s] < "2"} {
227
 
        error "Internal font error: $fonttag '$xHMfonts($fonttag)'"
 
227
        error [concat [mc "Internal font error:"] "$fonttag '$xHMfonts($fonttag)'"]
228
228
    }
229
229
    set fam [lindex $s 1]
230
230
    #puts "fam=$fam,fonttag=$fonttag,s=$s"
236
236
    set si [expr {($si < 1 ? 1 : ($si > 8 ? 8 : $si))}]
237
237
    set elt [lindex $s 1]
238
238
    if {![info exists maxima_default($fam)]} {
239
 
        error "Internal font error: '$fam'"
 
239
        error [concat [mc "Internal font error:"] "'$fam'"]
240
240
    }
241
241
    set family $maxima_default($fam)
242
242
    set weight [lindex $s 2]
379
379
 
380
380
#defTag p -before "\n\n" -sbody {}
381
381
#defTag p -before "\n\n" -sbody {}
382
 
defTag p -body { xHMassureNewlines 1 } -sbody {}
 
382
defTag p -before "\n" -body { xHMassureNewlines 1 } -sbody { xHMassureNewlines 1 }
383
383
defTag blockquote -before "\n\n" -after "\n"
384
384
defTag pre -alter {family fixed Cnowrap nowrap} -before "\n" /pre "\n"
385
385
defTag samp -alter {family fixed}
414
414
    }
415
415
 
416
416
 
417
 
proc notyet { args }    {puts "not yet $args" }
 
417
proc notyet { args }    {puts [concat [mc "not yet"] "$args"] }
418
418
defTag isindex -body xHMdo_isindex -sbody {}
419
419
defTag meta -body list -sbody list
420
420
defTag form  -before "\n" -after "\n"  -body {
750
750
    if { "$w" != "" } {
751
751
        #catch { puts "class=[winfo class $w]" }
752
752
        if { [catch {   $win window create $wvar(W_insert) -window $w -align bottom -padx 1 -pady 1 } ] } {
753
 
            puts "$w bad window ?"
 
753
            puts [concat "$w" [mc "bad window"] "?"]
754
754
        }
755
755
        
756
756
        ### todo handle focus of forms.. with tabbing.
900
900
}
901
901
 
902
902
defTag th -body list
903
 
defTag td -body list
904
 
defTag tr -body list
 
903
defTag td -body list -after "\t\t\t\t"
 
904
defTag tr -body list -after "\n"
905
905
 
906
906
 
907
907
 
1083
1083
}
1084
1084
 
1085
1085
xHMsetDefaultPreferences
1086
 
catch { source ~/netmath.ini }
 
1086
catch { source ~/.xmaximarc }
1087
1087
 
1088
1088
proc dputs {x}  { puts $x ; flush stdout}
1089
1089
proc xHMinit_state { win args } {
1122
1122
 
1123
1123
   # eval [set xHMtag($tag)]
1124
1124
    if { [info exists xHMtag($tag)] } {
1125
 
        # if { [catch { eval [set xHMtag($tag)] }] } { puts "error evaling tag:$tag" }
 
1125
        # if { [catch { eval [set xHMtag($tag)] }] } { puts [concat [mc "error evaling tag:"] "$tag"] }
1126
1126
        eval [set xHMtag($tag)]
1127
1127
    } else {
1128
1128
        if { [string match "!--*" $tag] } { list} else {
1245
1245
            if { $i >= 0  }  {
1246
1246
                set ranges [$win tag ranges $tag]
1247
1247
                eval $win tag add currenthref $ranges
1248
 
                textShowHelp $win currenthref @$x,$y "Click to follow link to $reference"
 
1248
                textShowHelp $win currenthref @$x,$y [concat [mc "Click to follow link to"] "$reference"]
1249
1249
 
1250
1250
                $win tag bind $tag <Leave> "deleteHelp $win ;$win tag remove currenthref $ranges"
1251
1251
                $win tag  config currenthref -foreground [xHMwget $win option,atagforeground $HMOption(currenthrefforeground)] }
1275
1275
proc xHMdo_isindex {} {
1276
1276
    uplevel 1 {
1277
1277
        set paramList [xHMsplitParams $params]
1278
 
        xHMextract_param $paramList prompt " Enter search keywords: "
 
1278
        xHMextract_param $paramList prompt [mc " Enter search keywords: "]
1279
1279
        xHMtextInsert $win $prompt
1280
1280
        set w $win.entry[incr wvar(counter)]
1281
1281
        entry $w
1361
1361
    if { [scan  $s %x d] } {
1362
1362
        format %c $d
1363
1363
    } else {
1364
 
        error "cant decode hex $s"
 
1364
        error [concat [mc "cant decode hex"] "$s"]
1365
1365
    }
1366
1366
}
1367
1367
 
1395
1395
    #dputs "beginning parse"
1396
1396
 
1397
1397
     global meee ; set meee $html;
1398
 
        regsub -all \} <$firstTag>\n$html\n</$firstTag> {\&cb;} html
1399
 
        #dputs "beginning parse1"
1400
 
        regsub -all \{ $html {\&ob;} html
1401
 
        # prevent getting \} \{ or \\n in a braces expression.
1402
 
        regsub -all "\\\\(\[\n<>])" $html "\\&#92;\\1" html
1403
 
        #regsub -all "<(/?)(\[^ \t\n\r>]+)\[ \t\n\r\]*(\[^>]*)>" $html \
1404
 
                "\}\n$cmd {\\2} {\\1} {\\3} \{" html
1405
 
        regsub -all "<(\[^ \t\n\r>]+)\[ \t\n\r\]*(\[^>]*)>" $html \
1406
 
                "\}\n$cmd {\\1}  {\\2} \{" html
1407
 
        # puts "<html=$html>"
1408
 
        #dputs "beginning end splitparse1"
1409
 
 
1410
 
        #dputs "list {$html}"
1411
 
        eval "list {$html}"
 
1398
     regsub -all {(['\"])\./\.\.} $html {\1..} html 
 
1399
     regsub -- "^.*<!DOCTYPE\[^>\]*>" $html {} html
 
1400
     regsub -all -- "--(\[ \t\n\]*)>" $html "\001\\1\002" html
 
1401
     regsub -all -- "<--(\[^\001\]*)\001(\[^\002\]*)\002" $html \
 
1402
         {\&lt;--\1--\2\&gt;} html
 
1403
     regsub -all -- "<!--\[^\001\]*\001(\[^\002\]*)\002"  $html {} html
 
1404
 
 
1405
     regsub -all \} <$firstTag>\n$html\n</$firstTag> {\&cb;} html
 
1406
     #dputs "beginning parse1"
 
1407
     regsub -all \{ $html {\&ob;} html
 
1408
     # prevent getting \} \{ or \\n in a braces expression.
 
1409
     regsub -all "\\\\(\[\n<>])" $html "\\&#92;\\1" html
 
1410
     #regsub -all "<(/?)(\[^ \t\n\r>]+)\[ \t\n\r\]*(\[^>]*)>" $html \
 
1411
         "\}\n$cmd {\\2} {\\1} {\\3} \{" html
 
1412
     regsub -all "<(\[^ \t\n\r>]+)\[ \t\n\r\]*(\[^>]*)>" $html \
 
1413
         "\}\n$cmd {\\1}  {\\2} \{" html
 
1414
     # puts "<html=$html>"
 
1415
     #dputs "beginning end splitparse1"
 
1416
 
 
1417
     #dputs "list {$html}"
 
1418
     eval "list {$html}"
1412
1419
 
1413
1420
}
1414
1421