vim-55/src/farsi.c

44     int tempc;
104 		tempc = _HE;
112 			tempc = _HE_;
121 			tempc = _HE_;
126 		return tempc;
343     int	tempc;
357 	    if (F_is_TyC_TyD((tempc = gchar_cursor())))
359 		pchar_cursor(toF_TyB(tempc));
361 		AppendCharToRedobuff(tempc);
389     int	tempc, curc;
394 		tempc = BE;
397 		tempc = PE;
400 		tempc = TE;
403 		tempc = SE;
406 		tempc = JIM;
409 		tempc = CHE;
412 		tempc = HE_J;
415 		tempc = XE;
418 		tempc = SIN;
421 		tempc = SHIN;
424 		tempc = SAD;
427 		tempc = ZAD;
430 		tempc = FE;
433 		tempc = GHAF;
437 		tempc = KAF;
440 		tempc = GAF;
443 		tempc = AYN;
446 		tempc = AYN_;
449 		tempc = GHAYN;
452 		tempc = GHAYN_;
455 		tempc = LAM;
458 		tempc = MIM;
461 		tempc = NOON;
465 		tempc = F_HE;
474 			    tempc = (curc == _YE ? YE_ :
477 			    tempc = (curc == _YE ? YE :
487 				tempc = (curc == _YE ? YE_ :
490 				tempc = (curc == _YE ? YE :
495 			    tempc = (curc == _YE ? YE :
500 		tempc = 0;
503     if (tempc)
504 	put_and_redo(tempc);
514     int	tempc;
519 		tempc = ALEF_;
522 		tempc = ALEF_U_H_;
525 		tempc = _AYN_;
528 		tempc = AYN_;
531 		tempc = _GHAYN_;
534 		tempc = GHAYN_;
537 		tempc = _HE_;
540 		tempc = YE_;
543 		tempc = IE_;
546 		tempc = TEE_;
549 		tempc = YEE_;
552 		tempc = 0;
555     if (tempc)
556 	put_and_redo(tempc);
565     int	tempc;
567     tempc = gchar_cursor();
573 	if ((tempc == F_HE) && (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)))
575 	    tempc = _HE_;
579 	    put_and_redo(tempc);
586     if ((tempc = toF_Xor_X_(tempc)) != 0)
587 	put_and_redo(tempc);
596     int	tempc;
613 		tempc = ALEF_;
616 		tempc = ALEF_U_H_;
619 		tempc = _AYN_;
622 		tempc = AYN_;
625 		tempc = _GHAYN_;
628 		tempc = GHAYN_;
631 		tempc = _HE_;
634 		tempc = YE_;
637 		tempc = IE_;
640 		tempc = TEE_;
643 		tempc = YEE_;
646 		tempc = 0;
649     if (tempc)
650 	put_and_redo(tempc);
665     int	tempc;
682 		tempc = ALEF;
685 		tempc = ALEF_U_H;
688 		tempc = _AYN;
691 		tempc = AYN;
694 		tempc = _GHAYN;
697 		tempc = GHAYN;
700 		tempc = _HE;
703 		tempc = YE;
706 		tempc = IE;
709 		tempc = TEE;
712 		tempc = YEE;
715 		tempc = 0;
718     if (tempc)
719 	put_and_redo(tempc);
734     int tempc, c;
741 	tempc = gchar_cursor();
743 	if ((c = toF_Xor_X_(tempc)) != 0)
760     int		tempc;
847     tempc = 0;
988 	    switch ((tempc = gchar_cursor()))
1014 			put_curr_and_l_to_X(toF_TyA(tempc));
1032 			    tempc = AYN_;
1034 			    tempc = AYN;
1041 			put_curr_and_l_to_X(tempc);
1060 			    tempc = GHAYN_;
1062 			    tempc = GHAYN;
1069 			put_curr_and_l_to_X(tempc);
1077 				put_curr_and_l_to_X((tempc == _YE ? YE :
1078 					    (tempc == _IE ? IE : YEE)));
1088 				tempc = (tempc == _YE ? YE_ :
1089 				    (tempc == _IE ? IE_ : YEE_));
1091 				tempc = (tempc == _YE ? YE :
1092 				    (tempc == _IE ? IE : YEE));
1099 			put_curr_and_l_to_X(tempc);
1106 		tempc = 0;
1165 		tempc = _SHIN;
1168 		tempc = WAW_H;
1171 		tempc = ZAL;
1174 		tempc = ZE;
1177 		tempc = JE;
1180 		tempc = _YE;
1183 		tempc = _YEE;
1186 		tempc = _SE;
1189 		tempc = _BE;
1192 		tempc = _LAM;
1216 		    tempc = ALEF_U_H;
1221 			tempc = ALEF_U_H_;
1225 			tempc = ALEF_U_H;
1230 	    return tempc;
1255 		    tempc = LA;
1261 			tempc = ALEF_;
1265 			tempc = ALEF;
1271 	    return tempc;
1275 		if (!p_ri && !F_is_TyE(tempc))
1289 		    tempc = _HE_;
1291 		    tempc = _HE;
1297 		tempc = _TE;
1316 		    tempc = TEE_;
1320 			tempc = TEE;
1325 	    return tempc;
1327 		tempc = _NOON;
1330 		tempc = _MIM;
1333 		tempc = _PE;
1337 		tempc = DAL;
1340 		tempc = _XE;
1343 		tempc = _HE_J;
1346 		tempc = _ZAD;
1349 		tempc = _GHAF;
1352 		tempc = _SIN;
1355 		tempc = _IE;
1358 		tempc = _FE;
1363 		    if (!p_ri && !F_is_TyE(tempc))
1377 		    tempc = _AYN_;
1379 		    tempc = _AYN;
1386 		tempc = RE;
1389 		tempc = _SAD;
1393 		tempc = _TA;
1398 		if (!p_ri && !F_is_TyE(tempc))
1412 		tempc = _GHAYN_;
1414 		tempc = _GHAYN;
1421 		tempc = _ZA;
1424 		tempc = _KAF_H;
1427 		tempc = _KAF;
1430 		tempc = _GAF;
1433 		tempc = WAW;
1436 		tempc = _JIM;
1439 		tempc = _CHE;
1443     if ((F_isalpha(tempc) || F_isdigit(tempc)))
1447 	    if (!p_ri && !F_is_TyE(tempc))
1458 	    if (F_is_TyE(tempc))
1467     if (tempc)
1468 	return tempc;
1992     int	    tempc;
2053 	       switch ((tempc = cmd_gchar(AT_CURSOR)))
2078 			cmd_pchar(toF_TyA(tempc), AT_CURSOR);