[LON-CAPA-cvs] cvs: modules /TexConvert/tthperl tthperl.c

albertel lon-capa-cvs@mail.lon-capa.org
Sat, 09 Nov 2002 22:01:19 -0000


albertel		Sat Nov  9 17:01:19 2002 EDT

  Modified files:              
    /modules/TexConvert/tthperl	tthperl.c 
  Log:
  - support the new -u option (specify wheter to be unicode in math output or use symbol font)
  
  
Index: modules/TexConvert/tthperl/tthperl.c
diff -u modules/TexConvert/tthperl/tthperl.c:1.4 modules/TexConvert/tthperl/tthperl.c:1.5
--- modules/TexConvert/tthperl/tthperl.c:1.4	Tue Jul 18 17:32:22 2000
+++ modules/TexConvert/tthperl/tthperl.c	Sat Nov  9 17:01:19 2002
@@ -65,6 +65,7 @@
 extern int tth_debug;
 extern int tth_istyle;
 extern int tth_mathitalic;
+extern int tth_unicode;
 
 int tthoptions(char* args)
 {
@@ -95,7 +96,9 @@
 	/*case 'r': raw=1;if(*(cur+2) != ' ') sscanf(cur+2,"%d",&raw);break;*/
       case 's': tth_splitfile=1;break; /*sf*/
       case 't': tth_inlinefrac=1;break;
-	/* case 'u': tth_mathitalic=0;break;old math handling,undocumented. */
+      case 'u': 
+	if(*(cur+2)!=' ') sscanf(cur+2,"%d",&tth_unicode); else tth_unicode=0;
+	break;
       case 'v': tth_verb=1; tth_debug=1;
 	if(*(cur+2)!=' ') sscanf(cur+2,"%d",&tth_debug);
         break;
@@ -124,6 +127,7 @@
 extern int ttm_debug;
 extern int ttm_istyle;
 extern int ttm_mathitalic;
+extern int ttm_unicode;
 
 int ttmoptions(char* args)
 {
@@ -154,7 +158,9 @@
 	/*case 'r': raw=1;if(*(cur+2)!=' ') sscanf(cur+2,"%d",&raw);break;*/
       case 's': ttm_splitfile=1;break; /*sf*/
       case 't': ttm_inlinefrac=1;break;
-	/* case 'u': ttm_mathitalic=0;break;old math handling,undocumented. */
+      case 'u': 
+	if(*(cur+2)!=' ') sscanf(cur+2,"%d",&ttm_unicode); else ttm_unicode=0;
+	break;
       case 'v': ttm_verb=1; ttm_debug=1;
 	if(*(cur+2)!=' ') sscanf(cur+2,"%d",&ttm_debug);
         break;