File: fix-html

package info (click to toggle)
maxima 5.6-17
  • links: PTS
  • area: main
  • in suites: woody
  • size: 30,572 kB
  • ctags: 47,715
  • sloc: ansic: 154,079; lisp: 147,553; asm: 45,843; tcl: 16,744; sh: 11,057; makefile: 7,198; perl: 1,842; sed: 334; fortran: 24; awk: 5
file content (14 lines) | stat: -rwxr-xr-x 293 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/bin/sh
# comment \
exec tclsh "$0" "$@"

foreach v $argv {
  set f [open $v r]
  set all [read $f]
  close $f
  regsub -all "(\\(\[Cc]\[0-9\]+\\)) (\[^:]\[^;\$]+\[;\$])" $all "\\1 <eval program=maxima doinsert=0>\\2</eval>" ans
  set f [open $v w]
  puts -nonewline $f $ans
  close $f
}