texvc_cgi.ml

来自「php 开发的内容管理系统」· ML 代码 · 共 63 行

ML
63 行
字号 
open Netcgi;;open Netcgi_types;;open Netcgi_env;;open Netchannels;;let cgi = new Netcgi.std_activation ()let out = cgi # output # output_stringlet math = cgi # argument_value ~default:"" "math"let tmppath = "/home/taw/public_html/wiki/tmp/"let finalpath = "/home/taw/public_html/wiki/math/"let finalurl = "http://wroclaw.taw.pl.eu.org/~taw/wiki/math/";;let h_header = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\""^	     " \"http://www.w3.org/TR/REC-html40/strict.dtd\">\n"^	     "<html><head><title>texvc</title></head><body>"^	     "<form method=post action=\"http://wroclaw.taw.pl.eu.org/~taw/cgi-bin/newcodebase/math/texvc_cgi\">"^	     "<textarea name='math' rows=10 cols=80>"let h_middle = "</textarea><br /><input type=submit value=\"Preview\" name='preview'></form>"let h_footer = "</body></html>\n"let render tmppath finalpath tree =    let outtex = Texutil.mapjoin Texutil.print tree in    let md5 = Digest.to_hex (Digest.string outtex) in    begin	out "<h3>TeX</h3>";        out outtex; (* <, &  and > should be protected *)	(try out ("<h3>HTML</h3>" ^ (Texutil.html_render tree))         with _ -> out "<h3>HTML could not be rendered</h3>");	try  Render.render tmppath finalpath outtex md5;	    out ("<h3>Image:</h3><img src=\""^finalurl^md5^".png\">")	with Util.FileAlreadyExists -> out ("<h3>Image:</h3><img src=\""^finalurl^md5^".png\">")           | Failure s -> out ("<h3>Other failure: " ^ s ^ "</h3>")	   | Render.ExternalCommandFailure "latex" -> out "<h3>latex failed</h3>"	   | Render.ExternalCommandFailure "dvips" -> out "<h3>dvips failed</h3>"           | _ ->  out "<h3>Other failure</h3>"    end;;cgi#set_header ();;out h_header;;out math;;out h_middle;;exception LexerException of stringlet lexer_token_safe lexbuf =    try Lexer.token lexbuf    with Failure s -> raise (LexerException s);;if math = ""then ()else try	render tmppath finalpath (Parser.tex_expr lexer_token_safe (Lexing.from_string math))    with Parsing.Parse_error -> out "<h3>Parse error</h3>"       | LexerException s -> out "<h3>Lexing failure</h3>"       | Texutil.Illegal_tex_function s -> out ("<h3>Illegal TeX function: " ^ s ^ "</h3>")       | Failure s -> out ("<h3>Other failure: " ^ s ^ "</h3>")       | _ -> out "<h3>Other failure</h3>";;out h_footer

texvc_cgi.ml - 源码说明

本页面展示了「php 开发的内容管理系统」中的 texvc_cgi.ml 源码文件，采用 ML 编程语言编写，共 63 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与php相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?