home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / unix / vim-6.2.tar.bz2 / vim-6.2.tar / vim62 / src / arabic.c next >
Encoding:
C/C++ Source or Header  |  2003-05-08  |  20.5 KB  |  1,169 lines
  1. /* vi:set ts=8 sts=4 sw=4:
  2.  *
  3.  * VIM - Vi IMproved    by Bram Moolenaar
  4.  *
  5.  * Do ":help uganda"  in Vim to read copying and usage conditions.
  6.  * Do ":help credits" in Vim to see a list of people who contributed.
  7.  * See README.txt for an overview of the Vim source code.
  8.  */
  9.  
  10. /*
  11.  * arabic.c: functions for Arabic language
  12.  *
  13.  * Included by main.c, when FEAT_ARABIC & FEAT_GUI is defined.
  14.  *
  15.  * --
  16.  *
  17.  * Author: Nadim Shaikli & Isam Bayazidi
  18.  *
  19.  */
  20.  
  21. static int  A_is_a __ARGS((int cur_c));
  22. static int  A_is_s __ARGS((int cur_c));
  23. static int  A_is_f __ARGS((int cur_c));
  24. static int  chg_c_a2s __ARGS((int cur_c));
  25. static int  chg_c_a2i __ARGS((int cur_c));
  26. static int  chg_c_a2m __ARGS((int cur_c));
  27. static int  chg_c_a2f __ARGS((int cur_c));
  28. static int  chg_c_i2m __ARGS((int cur_c));
  29. static int  chg_c_f2m __ARGS((int cur_c));
  30. static int  chg_c_laa2i __ARGS((int hid_c));
  31. static int  chg_c_laa2f __ARGS((int hid_c));
  32. static int  half_shape __ARGS((int c));
  33. static int  A_firstc_laa __ARGS((int c1, int c));
  34. static int  A_is_harakat __ARGS((int c));
  35. static int  A_is_iso __ARGS((int c));
  36. static int  A_is_formb __ARGS((int c));
  37. static int  A_is_ok __ARGS((int c));
  38. static int  A_is_valid __ARGS((int c));
  39. static int  A_is_special __ARGS((int c));
  40.  
  41.  
  42. /*
  43.  * Returns True if c is an ISO-8859-6 shaped ARABIC letter (user entered)
  44.  */
  45.     static int
  46. A_is_a(cur_c)
  47.     int cur_c;
  48. {
  49.     switch (cur_c)
  50.     {
  51.     case a_HAMZA:
  52.     case a_ALEF_MADDA:
  53.     case a_ALEF_HAMZA_ABOVE:
  54.     case a_WAW_HAMZA:
  55.     case a_ALEF_HAMZA_BELOW:
  56.     case a_YEH_HAMZA:
  57.     case a_ALEF:
  58.     case a_BEH:
  59.     case a_TEH_MARBUTA:
  60.     case a_TEH:
  61.     case a_THEH:
  62.     case a_JEEM:
  63.     case a_HAH:
  64.     case a_KHAH:
  65.     case a_DAL:
  66.     case a_THAL:
  67.     case a_REH:
  68.     case a_ZAIN:
  69.     case a_SEEN:
  70.     case a_SHEEN:
  71.     case a_SAD:
  72.     case a_DAD:
  73.     case a_TAH:
  74.     case a_ZAH:
  75.     case a_AIN:
  76.     case a_GHAIN:
  77.     case a_TATWEEL:
  78.     case a_FEH:
  79.     case a_QAF:
  80.     case a_KAF:
  81.     case a_LAM:
  82.     case a_MEEM:
  83.     case a_NOON:
  84.     case a_HEH:
  85.     case a_WAW:
  86.     case a_ALEF_MAKSURA:
  87.     case a_YEH:
  88.         return TRUE;
  89.     }
  90.  
  91.     return FALSE;
  92. }
  93.  
  94.  
  95. /*
  96.  * Returns True if c is an Isolated Form-B ARABIC letter
  97.  */
  98.     static int
  99. A_is_s(cur_c)
  100.     int cur_c;
  101. {
  102.     switch (cur_c)
  103.     {
  104.     case a_s_HAMZA:
  105.     case a_s_ALEF_MADDA:
  106.     case a_s_ALEF_HAMZA_ABOVE:
  107.     case a_s_WAW_HAMZA:
  108.     case a_s_ALEF_HAMZA_BELOW:
  109.     case a_s_YEH_HAMZA:
  110.     case a_s_ALEF:
  111.     case a_s_BEH:
  112.     case a_s_TEH_MARBUTA:
  113.     case a_s_TEH:
  114.     case a_s_THEH:
  115.     case a_s_JEEM:
  116.     case a_s_HAH:
  117.     case a_s_KHAH:
  118.     case a_s_DAL:
  119.     case a_s_THAL:
  120.     case a_s_REH:
  121.     case a_s_ZAIN:
  122.     case a_s_SEEN:
  123.     case a_s_SHEEN:
  124.     case a_s_SAD:
  125.     case a_s_DAD:
  126.     case a_s_TAH:
  127.     case a_s_ZAH:
  128.     case a_s_AIN:
  129.     case a_s_GHAIN:
  130.     case a_s_FEH:
  131.     case a_s_QAF:
  132.     case a_s_KAF:
  133.     case a_s_LAM:
  134.     case a_s_MEEM:
  135.     case a_s_NOON:
  136.     case a_s_HEH:
  137.     case a_s_WAW:
  138.     case a_s_ALEF_MAKSURA:
  139.     case a_s_YEH:
  140.         return TRUE;
  141.     }
  142.  
  143.     return FALSE;
  144. }
  145.  
  146.  
  147. /*
  148.  * Returns True if c is a Final shape of an ARABIC letter
  149.  */
  150.     static int
  151. A_is_f(cur_c)
  152.     int cur_c;
  153. {
  154.     switch (cur_c)
  155.     {
  156.     case a_f_ALEF_MADDA:
  157.     case a_f_ALEF_HAMZA_ABOVE:
  158.     case a_f_WAW_HAMZA:
  159.     case a_f_ALEF_HAMZA_BELOW:
  160.     case a_f_YEH_HAMZA:
  161.     case a_f_ALEF:
  162.     case a_f_BEH:
  163.     case a_f_TEH_MARBUTA:
  164.     case a_f_TEH:
  165.     case a_f_THEH:
  166.     case a_f_JEEM:
  167.     case a_f_HAH:
  168.     case a_f_KHAH:
  169.     case a_f_DAL:
  170.     case a_f_THAL:
  171.     case a_f_REH:
  172.     case a_f_ZAIN:
  173.     case a_f_SEEN:
  174.     case a_f_SHEEN:
  175.     case a_f_SAD:
  176.     case a_f_DAD:
  177.     case a_f_TAH:
  178.     case a_f_ZAH:
  179.     case a_f_AIN:
  180.     case a_f_GHAIN:
  181.     case a_f_FEH:
  182.     case a_f_QAF:
  183.     case a_f_KAF:
  184.     case a_f_LAM:
  185.     case a_f_MEEM:
  186.     case a_f_NOON:
  187.     case a_f_HEH:
  188.     case a_f_WAW:
  189.     case a_f_ALEF_MAKSURA:
  190.     case a_f_YEH:
  191.     case a_f_LAM_ALEF_MADDA_ABOVE:
  192.     case a_f_LAM_ALEF_HAMZA_ABOVE:
  193.     case a_f_LAM_ALEF_HAMZA_BELOW:
  194.     case a_f_LAM_ALEF:
  195.         return TRUE;
  196.     }
  197.     return FALSE;
  198. }
  199.  
  200.  
  201. /*
  202.  * Change shape - from ISO-8859-6/Isolated to Form-B Isolated
  203.  */
  204.     static int
  205. chg_c_a2s(cur_c)
  206.     int cur_c;
  207. {
  208.     int tempc;
  209.  
  210.     switch (cur_c)
  211.     {
  212.     case a_HAMZA:
  213.         tempc = a_s_HAMZA;
  214.         break;
  215.     case a_ALEF_MADDA:
  216.         tempc = a_s_ALEF_MADDA;
  217.         break;
  218.     case a_ALEF_HAMZA_ABOVE:
  219.         tempc = a_s_ALEF_HAMZA_ABOVE;
  220.         break;
  221.     case a_WAW_HAMZA:
  222.         tempc = a_s_WAW_HAMZA;
  223.         break;
  224.     case a_ALEF_HAMZA_BELOW:
  225.         tempc = a_s_ALEF_HAMZA_BELOW;
  226.         break;
  227.     case a_YEH_HAMZA:
  228.         tempc = a_s_YEH_HAMZA;
  229.         break;
  230.     case a_ALEF:
  231.         tempc = a_s_ALEF;
  232.         break;
  233.     case a_TEH_MARBUTA:
  234.         tempc = a_s_TEH_MARBUTA;
  235.         break;
  236.     case a_DAL:
  237.         tempc = a_s_DAL;
  238.         break;
  239.     case a_THAL:
  240.         tempc = a_s_THAL;
  241.         break;
  242.     case a_REH:
  243.         tempc = a_s_REH;
  244.         break;
  245.     case a_ZAIN:
  246.         tempc = a_s_ZAIN;
  247.         break;
  248.     case a_TATWEEL:            /* exceptions */
  249.         tempc = cur_c;
  250.         break;
  251.     case a_WAW:
  252.         tempc = a_s_WAW;
  253.         break;
  254.     case a_ALEF_MAKSURA:
  255.         tempc = a_s_ALEF_MAKSURA;
  256.         break;
  257.     case a_BEH:
  258.         tempc = a_s_BEH;
  259.         break;
  260.     case a_TEH:
  261.         tempc = a_s_TEH;
  262.         break;
  263.     case a_THEH:
  264.         tempc = a_s_THEH;
  265.         break;
  266.     case a_JEEM:
  267.         tempc = a_s_JEEM;
  268.         break;
  269.     case a_HAH:
  270.         tempc = a_s_HAH;
  271.         break;
  272.     case a_KHAH:
  273.         tempc = a_s_KHAH;
  274.         break;
  275.     case a_SEEN:
  276.         tempc = a_s_SEEN;
  277.         break;
  278.     case a_SHEEN:
  279.         tempc = a_s_SHEEN;
  280.         break;
  281.     case a_SAD:
  282.         tempc = a_s_SAD;
  283.         break;
  284.     case a_DAD:
  285.         tempc = a_s_DAD;
  286.         break;
  287.     case a_TAH:
  288.         tempc = a_s_TAH;
  289.         break;
  290.     case a_ZAH:
  291.         tempc = a_s_ZAH;
  292.         break;
  293.     case a_AIN:
  294.         tempc = a_s_AIN;
  295.         break;
  296.     case a_GHAIN:
  297.         tempc = a_s_GHAIN;
  298.         break;
  299.     case a_FEH:
  300.         tempc = a_s_FEH;
  301.         break;
  302.     case a_QAF:
  303.         tempc = a_s_QAF;
  304.         break;
  305.     case a_KAF:
  306.         tempc = a_s_KAF;
  307.         break;
  308.     case a_LAM:
  309.         tempc = a_s_LAM;
  310.         break;
  311.     case a_MEEM:
  312.         tempc = a_s_MEEM;
  313.         break;
  314.     case a_NOON:
  315.         tempc = a_s_NOON;
  316.         break;
  317.     case a_HEH:
  318.         tempc = a_s_HEH;
  319.         break;
  320.     case a_YEH:
  321.         tempc = a_s_YEH;
  322.         break;
  323.     default:
  324.         tempc = 0;
  325.     }
  326.  
  327.     return tempc;
  328. }
  329.  
  330.  
  331. /*
  332.  * Change shape - from ISO-8859-6/Isolated to Initial
  333.  */
  334.     static int
  335. chg_c_a2i(cur_c)
  336.     int cur_c;
  337. {
  338.     int tempc;
  339.  
  340.     switch (cur_c)
  341.     {
  342.     case a_YEH_HAMZA:
  343.         tempc = a_i_YEH_HAMZA;
  344.         break;
  345.     case a_HAMZA:            /* exceptions */
  346.         tempc = a_s_HAMZA;
  347.         break;
  348.     case a_ALEF_MADDA:        /* exceptions */
  349.         tempc = a_s_ALEF_MADDA;
  350.         break;
  351.     case a_ALEF_HAMZA_ABOVE:    /* exceptions */
  352.         tempc = a_s_ALEF_HAMZA_ABOVE;
  353.         break;
  354.     case a_WAW_HAMZA:        /* exceptions */
  355.         tempc = a_s_WAW_HAMZA;
  356.         break;
  357.     case a_ALEF_HAMZA_BELOW:    /* exceptions */
  358.         tempc = a_s_ALEF_HAMZA_BELOW;
  359.         break;
  360.     case a_ALEF:            /* exceptions */
  361.         tempc = a_s_ALEF;
  362.         break;
  363.     case a_TEH_MARBUTA:        /* exceptions */
  364.         tempc = a_s_TEH_MARBUTA;
  365.         break;
  366.     case a_DAL:            /* exceptions */
  367.         tempc = a_s_DAL;
  368.         break;
  369.     case a_THAL:            /* exceptions */
  370.         tempc = a_s_THAL;
  371.         break;
  372.     case a_REH:            /* exceptions */
  373.         tempc = a_s_REH;
  374.         break;
  375.     case a_ZAIN:            /* exceptions */
  376.         tempc = a_s_ZAIN;
  377.         break;
  378.     case a_TATWEEL:            /* exceptions */
  379.         tempc = cur_c;
  380.         break;
  381.     case a_WAW:            /* exceptions */
  382.         tempc = a_s_WAW;
  383.         break;
  384.     case a_ALEF_MAKSURA:        /* exceptions */
  385.         tempc = a_s_ALEF_MAKSURA;
  386.         break;
  387.     case a_BEH:
  388.         tempc = a_i_BEH;
  389.         break;
  390.     case a_TEH:
  391.         tempc = a_i_TEH;
  392.         break;
  393.     case a_THEH:
  394.         tempc = a_i_THEH;
  395.         break;
  396.     case a_JEEM:
  397.         tempc = a_i_JEEM;
  398.         break;
  399.     case a_HAH:
  400.         tempc = a_i_HAH;
  401.         break;
  402.     case a_KHAH:
  403.         tempc = a_i_KHAH;
  404.         break;
  405.     case a_SEEN:
  406.         tempc = a_i_SEEN;
  407.         break;
  408.     case a_SHEEN:
  409.         tempc = a_i_SHEEN;
  410.         break;
  411.     case a_SAD:
  412.         tempc = a_i_SAD;
  413.         break;
  414.     case a_DAD:
  415.         tempc = a_i_DAD;
  416.         break;
  417.     case a_TAH:
  418.         tempc = a_i_TAH;
  419.         break;
  420.     case a_ZAH:
  421.         tempc = a_i_ZAH;
  422.         break;
  423.     case a_AIN:
  424.         tempc = a_i_AIN;
  425.         break;
  426.     case a_GHAIN:
  427.         tempc = a_i_GHAIN;
  428.         break;
  429.     case a_FEH:
  430.         tempc = a_i_FEH;
  431.         break;
  432.     case a_QAF:
  433.         tempc = a_i_QAF;
  434.         break;
  435.     case a_KAF:
  436.         tempc = a_i_KAF;
  437.         break;
  438.     case a_LAM:
  439.         tempc = a_i_LAM;
  440.         break;
  441.     case a_MEEM:
  442.         tempc = a_i_MEEM;
  443.         break;
  444.     case a_NOON:
  445.         tempc = a_i_NOON;
  446.         break;
  447.     case a_HEH:
  448.         tempc = a_i_HEH;
  449.         break;
  450.     case a_YEH:
  451.         tempc = a_i_YEH;
  452.         break;
  453.     default:
  454.         tempc = 0;
  455.     }
  456.  
  457.     return tempc;
  458. }
  459.  
  460.  
  461. /*
  462.  * Change shape - from ISO-8859-6/Isolated to Medial
  463.  */
  464.     static int
  465. chg_c_a2m(cur_c)
  466.     int cur_c;
  467. {
  468.     int tempc;
  469.  
  470.     switch (cur_c)
  471.     {
  472.     case a_HAMZA:            /* exception */
  473.         tempc = a_s_HAMZA;
  474.         break;
  475.     case a_ALEF_MADDA:        /* exception */
  476.         tempc = a_f_ALEF_MADDA;
  477.         break;
  478.     case a_ALEF_HAMZA_ABOVE:    /* exception */
  479.         tempc = a_f_ALEF_HAMZA_ABOVE;
  480.         break;
  481.     case a_WAW_HAMZA:        /* exception */
  482.         tempc = a_f_WAW_HAMZA;
  483.         break;
  484.     case a_ALEF_HAMZA_BELOW:    /* exception */
  485.         tempc = a_f_ALEF_HAMZA_BELOW;
  486.         break;
  487.     case a_YEH_HAMZA:
  488.         tempc = a_m_YEH_HAMZA;
  489.         break;
  490.     case a_ALEF:            /* exception */
  491.         tempc = a_f_ALEF;
  492.         break;
  493.     case a_BEH:
  494.         tempc = a_m_BEH;
  495.         break;
  496.     case a_TEH_MARBUTA:        /* exception */
  497.         tempc = a_f_TEH_MARBUTA;
  498.         break;
  499.     case a_TEH:
  500.         tempc = a_m_TEH;
  501.         break;
  502.     case a_THEH:
  503.         tempc = a_m_THEH;
  504.         break;
  505.     case a_JEEM:
  506.         tempc = a_m_JEEM;
  507.         break;
  508.     case a_HAH:
  509.         tempc = a_m_HAH;
  510.         break;
  511.     case a_KHAH:
  512.         tempc = a_m_KHAH;
  513.         break;
  514.     case a_DAL:            /* exception */
  515.         tempc = a_f_DAL;
  516.         break;
  517.     case a_THAL:            /* exception */
  518.         tempc = a_f_THAL;
  519.         break;
  520.     case a_REH:            /* exception */
  521.         tempc = a_f_REH;
  522.         break;
  523.     case a_ZAIN:            /* exception */
  524.         tempc = a_f_ZAIN;
  525.         break;
  526.     case a_SEEN:
  527.         tempc = a_m_SEEN;
  528.         break;
  529.     case a_SHEEN:
  530.         tempc = a_m_SHEEN;
  531.         break;
  532.     case a_SAD:
  533.         tempc = a_m_SAD;
  534.         break;
  535.     case a_DAD:
  536.         tempc = a_m_DAD;
  537.         break;
  538.     case a_TAH:
  539.         tempc = a_m_TAH;
  540.         break;
  541.     case a_ZAH:
  542.         tempc = a_m_ZAH;
  543.         break;
  544.     case a_AIN:
  545.         tempc = a_m_AIN;
  546.         break;
  547.     case a_GHAIN:
  548.         tempc = a_m_GHAIN;
  549.         break;
  550.     case a_TATWEEL:            /* exception */
  551.         tempc = cur_c;
  552.         break;
  553.     case a_FEH:
  554.         tempc = a_m_FEH;
  555.         break;
  556.     case a_QAF:
  557.         tempc = a_m_QAF;
  558.         break;
  559.     case a_KAF:
  560.         tempc = a_m_KAF;
  561.         break;
  562.     case a_LAM:
  563.         tempc = a_m_LAM;
  564.         break;
  565.     case a_MEEM:
  566.         tempc = a_m_MEEM;
  567.         break;
  568.     case a_NOON:
  569.         tempc = a_m_NOON;
  570.         break;
  571.     case a_HEH:
  572.         tempc = a_m_HEH;
  573.         break;
  574.     case a_WAW:            /* exception */
  575.         tempc = a_f_WAW;
  576.         break;
  577.     case a_ALEF_MAKSURA:        /* exception */
  578.         tempc = a_f_ALEF_MAKSURA;
  579.         break;
  580.     case a_YEH:
  581.         tempc = a_m_YEH;
  582.         break;
  583.     default:
  584.         tempc = 0;
  585.     }
  586.  
  587.     return tempc;
  588. }
  589.  
  590.  
  591. /*
  592.  * Change shape - from ISO-8859-6/Isolated to final
  593.  */
  594.     static int
  595. chg_c_a2f(cur_c)
  596.     int cur_c;
  597. {
  598.     int tempc;
  599.  
  600.     /* NOTE: these encodings need to be accounted for
  601.  
  602.     a_f_ALEF_MADDA;
  603.     a_f_ALEF_HAMZA_ABOVE;
  604.     a_f_ALEF_HAMZA_BELOW;
  605.     a_f_LAM_ALEF_MADDA_ABOVE;
  606.     a_f_LAM_ALEF_HAMZA_ABOVE;
  607.     a_f_LAM_ALEF_HAMZA_BELOW;
  608.     */
  609.  
  610.     switch (cur_c)
  611.     {
  612.     case a_HAMZA:            /* exception */
  613.         tempc = a_s_HAMZA;
  614.         break;
  615.     case a_ALEF_MADDA:
  616.         tempc = a_f_ALEF_MADDA;
  617.         break;
  618.     case a_ALEF_HAMZA_ABOVE:
  619.         tempc = a_f_ALEF_HAMZA_ABOVE;
  620.         break;
  621.     case a_WAW_HAMZA:
  622.         tempc = a_f_WAW_HAMZA;
  623.         break;
  624.     case a_ALEF_HAMZA_BELOW:
  625.         tempc = a_f_ALEF_HAMZA_BELOW;
  626.         break;
  627.     case a_YEH_HAMZA:
  628.         tempc = a_f_YEH_HAMZA;
  629.         break;
  630.     case a_ALEF:
  631.         tempc = a_f_ALEF;
  632.         break;
  633.     case a_BEH:
  634.         tempc = a_f_BEH;
  635.         break;
  636.     case a_TEH_MARBUTA:
  637.         tempc = a_f_TEH_MARBUTA;
  638.         break;
  639.     case a_TEH:
  640.         tempc = a_f_TEH;
  641.         break;
  642.     case a_THEH:
  643.         tempc = a_f_THEH;
  644.         break;
  645.     case a_JEEM:
  646.         tempc = a_f_JEEM;
  647.         break;
  648.     case a_HAH:
  649.         tempc = a_f_HAH;
  650.         break;
  651.     case a_KHAH:
  652.         tempc = a_f_KHAH;
  653.         break;
  654.     case a_DAL:
  655.         tempc = a_f_DAL;
  656.         break;
  657.     case a_THAL:
  658.         tempc = a_f_THAL;
  659.         break;
  660.     case a_REH:
  661.         tempc = a_f_REH;
  662.         break;
  663.     case a_ZAIN:
  664.         tempc = a_f_ZAIN;
  665.         break;
  666.     case a_SEEN:
  667.         tempc = a_f_SEEN;
  668.         break;
  669.     case a_SHEEN:
  670.         tempc = a_f_SHEEN;
  671.         break;
  672.     case a_SAD:
  673.         tempc = a_f_SAD;
  674.         break;
  675.     case a_DAD:
  676.         tempc = a_f_DAD;
  677.         break;
  678.     case a_TAH:
  679.         tempc = a_f_TAH;
  680.         break;
  681.     case a_ZAH:
  682.         tempc = a_f_ZAH;
  683.         break;
  684.     case a_AIN:
  685.         tempc = a_f_AIN;
  686.         break;
  687.     case a_GHAIN:
  688.         tempc = a_f_GHAIN;
  689.         break;
  690.     case a_TATWEEL:            /* exception */
  691.         tempc = cur_c;
  692.         break;
  693.     case a_FEH:
  694.         tempc = a_f_FEH;
  695.         break;
  696.     case a_QAF:
  697.         tempc = a_f_QAF;
  698.         break;
  699.     case a_KAF:
  700.         tempc = a_f_KAF;
  701.         break;
  702.     case a_LAM:
  703.         tempc = a_f_LAM;
  704.         break;
  705.     case a_MEEM:
  706.         tempc = a_f_MEEM;
  707.         break;
  708.     case a_NOON:
  709.         tempc = a_f_NOON;
  710.         break;
  711.     case a_HEH:
  712.         tempc = a_f_HEH;
  713.         break;
  714.     case a_WAW:
  715.         tempc = a_f_WAW;
  716.         break;
  717.     case a_ALEF_MAKSURA:
  718.         tempc = a_f_ALEF_MAKSURA;
  719.         break;
  720.     case a_YEH:
  721.         tempc = a_f_YEH;
  722.         break;
  723.     default:
  724.         tempc = 0;
  725.     }
  726.  
  727.     return tempc;
  728. }
  729.  
  730.  
  731. /*
  732.  * Change shape - from Initial to Medial
  733.  */
  734.     static int
  735. chg_c_i2m(cur_c)
  736.     int cur_c;
  737. {
  738.     int tempc;
  739.  
  740.     switch (cur_c)
  741.     {
  742.     case a_i_YEH_HAMZA:
  743.         tempc = a_m_YEH_HAMZA;
  744.         break;
  745.     case a_i_BEH:
  746.         tempc = a_m_BEH;
  747.         break;
  748.     case a_i_TEH:
  749.         tempc = a_m_TEH;
  750.         break;
  751.     case a_i_THEH:
  752.         tempc = a_m_THEH;
  753.         break;
  754.     case a_i_JEEM:
  755.         tempc = a_m_JEEM;
  756.         break;
  757.     case a_i_HAH:
  758.         tempc = a_m_HAH;
  759.         break;
  760.     case a_i_KHAH:
  761.         tempc = a_m_KHAH;
  762.         break;
  763.     case a_i_SEEN:
  764.         tempc = a_m_SEEN;
  765.         break;
  766.     case a_i_SHEEN:
  767.         tempc = a_m_SHEEN;
  768.         break;
  769.     case a_i_SAD:
  770.         tempc = a_m_SAD;
  771.         break;
  772.     case a_i_DAD:
  773.         tempc = a_m_DAD;
  774.         break;
  775.     case a_i_TAH:
  776.         tempc = a_m_TAH;
  777.         break;
  778.     case a_i_ZAH:
  779.         tempc = a_m_ZAH;
  780.         break;
  781.     case a_i_AIN:
  782.         tempc = a_m_AIN;
  783.         break;
  784.     case a_i_GHAIN:
  785.         tempc = a_m_GHAIN;
  786.         break;
  787.     case a_i_FEH:
  788.         tempc = a_m_FEH;
  789.         break;
  790.     case a_i_QAF:
  791.         tempc = a_m_QAF;
  792.         break;
  793.     case a_i_KAF:
  794.         tempc = a_m_KAF;
  795.         break;
  796.     case a_i_LAM:
  797.         tempc = a_m_LAM;
  798.         break;
  799.     case a_i_MEEM:
  800.         tempc = a_m_MEEM;
  801.         break;
  802.     case a_i_NOON:
  803.         tempc = a_m_NOON;
  804.         break;
  805.     case a_i_HEH:
  806.         tempc = a_m_HEH;
  807.         break;
  808.     case a_i_YEH:
  809.         tempc = a_m_YEH;
  810.         break;
  811.     default:
  812.         tempc = 0;
  813.     }
  814.  
  815.     return tempc;
  816. }
  817.  
  818.  
  819. /*
  820.  * Change shape - from Final to Medial
  821.  */
  822.     static int
  823. chg_c_f2m(cur_c)
  824.     int cur_c;
  825. {
  826.     int tempc;
  827.  
  828.     switch (cur_c)
  829.     {
  830.     /* NOTE: these encodings are multi-positional, no ?
  831.        case a_f_ALEF_MADDA:
  832.        case a_f_ALEF_HAMZA_ABOVE:
  833.        case a_f_ALEF_HAMZA_BELOW:
  834.        */
  835.     case a_f_YEH_HAMZA:
  836.         tempc = a_m_YEH_HAMZA;
  837.         break;
  838.     case a_f_WAW_HAMZA:        /* exceptions */
  839.     case a_f_ALEF:
  840.     case a_f_TEH_MARBUTA:
  841.     case a_f_DAL:
  842.     case a_f_THAL:
  843.     case a_f_REH:
  844.     case a_f_ZAIN:
  845.     case a_f_WAW:
  846.     case a_f_ALEF_MAKSURA:
  847.         tempc = cur_c;
  848.         break;
  849.     case a_f_BEH:
  850.         tempc = a_m_BEH;
  851.         break;
  852.     case a_f_TEH:
  853.         tempc = a_m_TEH;
  854.         break;
  855.     case a_f_THEH:
  856.         tempc = a_m_THEH;
  857.         break;
  858.     case a_f_JEEM:
  859.         tempc = a_m_JEEM;
  860.         break;
  861.     case a_f_HAH:
  862.         tempc = a_m_HAH;
  863.         break;
  864.     case a_f_KHAH:
  865.         tempc = a_m_KHAH;
  866.         break;
  867.     case a_f_SEEN:
  868.         tempc = a_m_SEEN;
  869.         break;
  870.     case a_f_SHEEN:
  871.         tempc = a_m_SHEEN;
  872.         break;
  873.     case a_f_SAD:
  874.         tempc = a_m_SAD;
  875.         break;
  876.     case a_f_DAD:
  877.         tempc = a_m_DAD;
  878.         break;
  879.     case a_f_TAH:
  880.         tempc = a_m_TAH;
  881.         break;
  882.     case a_f_ZAH:
  883.         tempc = a_m_ZAH;
  884.         break;
  885.     case a_f_AIN:
  886.         tempc = a_m_AIN;
  887.         break;
  888.     case a_f_GHAIN:
  889.         tempc = a_m_GHAIN;
  890.         break;
  891.     case a_f_FEH:
  892.         tempc = a_m_FEH;
  893.         break;
  894.     case a_f_QAF:
  895.         tempc = a_m_QAF;
  896.         break;
  897.     case a_f_KAF:
  898.         tempc = a_m_KAF;
  899.         break;
  900.     case a_f_LAM:
  901.         tempc = a_m_LAM;
  902.         break;
  903.     case a_f_MEEM:
  904.         tempc = a_m_MEEM;
  905.         break;
  906.     case a_f_NOON:
  907.         tempc = a_m_NOON;
  908.         break;
  909.     case a_f_HEH:
  910.         tempc = a_m_HEH;
  911.         break;
  912.     case a_f_YEH:
  913.         tempc = a_m_YEH;
  914.         break;
  915.         /* NOTE: these encodings are multi-positional, no ?
  916.         case a_f_LAM_ALEF_MADDA_ABOVE:
  917.         case a_f_LAM_ALEF_HAMZA_ABOVE:
  918.         case a_f_LAM_ALEF_HAMZA_BELOW:
  919.         case a_f_LAM_ALEF:
  920.         */
  921.     default:
  922.         tempc = 0;
  923.     }
  924.  
  925.     return tempc;
  926. }
  927.  
  928.  
  929. /*
  930.  * Change shape - from Combination (2 char) to an Isolated
  931.  */
  932.     static int
  933. chg_c_laa2i(hid_c)
  934.     int hid_c;
  935. {
  936.     int tempc;
  937.  
  938.     switch (hid_c)
  939.     {
  940.     case a_ALEF_MADDA:
  941.         tempc = a_s_LAM_ALEF_MADDA_ABOVE;
  942.         break;
  943.     case a_ALEF_HAMZA_ABOVE:
  944.         tempc = a_s_LAM_ALEF_HAMZA_ABOVE;
  945.         break;
  946.     case a_ALEF_HAMZA_BELOW:
  947.         tempc = a_s_LAM_ALEF_HAMZA_BELOW;
  948.         break;
  949.     case a_ALEF:
  950.         tempc = a_s_LAM_ALEF;
  951.         break;
  952.     default:
  953.         tempc = 0;
  954.     }
  955.  
  956.     return tempc;
  957. }
  958.  
  959.  
  960. /*
  961.  * Change shape - from Combination-Isolated to Final
  962.  */
  963.     static int
  964. chg_c_laa2f(hid_c)
  965.     int hid_c;
  966. {
  967.     int tempc;
  968.  
  969.     switch (hid_c)
  970.     {
  971.     case a_ALEF_MADDA:
  972.         tempc = a_f_LAM_ALEF_MADDA_ABOVE;
  973.         break;
  974.     case a_ALEF_HAMZA_ABOVE:
  975.         tempc = a_f_LAM_ALEF_HAMZA_ABOVE;
  976.         break;
  977.     case a_ALEF_HAMZA_BELOW:
  978.         tempc = a_f_LAM_ALEF_HAMZA_BELOW;
  979.         break;
  980.     case a_ALEF:
  981.         tempc = a_f_LAM_ALEF;
  982.         break;
  983.     default:
  984.         tempc = 0;
  985.     }
  986.  
  987.     return tempc;
  988. }
  989.  
  990. /*
  991.  * Do "half-shaping" on character "c".  Return zero if no shaping.
  992.  */
  993.     static int
  994. half_shape(c)
  995.     int        c;
  996. {
  997.     if (A_is_a(c))
  998.     return chg_c_a2i(c);
  999.     if (A_is_valid(c) && A_is_f(c))
  1000.     return chg_c_f2m(c);
  1001.     return 0;
  1002. }
  1003.  
  1004. /*
  1005.  * Do Arabic shaping on character "c".  Returns the shaped character.
  1006.  * out:    "ccp" points to the first byte of the character to be shaped.
  1007.  * in/out: "c1p" points to the first composing char for "c".
  1008.  * in:     "prev_c"  is the previous character (not shaped)
  1009.  * in:     "prev_c1" is the first composing char for the previous char
  1010.  *             (not shaped)
  1011.  * in:     "next_c"  is the next character (not shaped).
  1012.  */
  1013.     int
  1014. arabic_shape(c, ccp, c1p, prev_c, prev_c1, next_c)
  1015.     int        c;
  1016.     int        *ccp;
  1017.     int        *c1p;
  1018.     int        prev_c;
  1019.     int        prev_c1;
  1020.     int        next_c;
  1021. {
  1022.     int        curr_c;
  1023.     int        shape_c;
  1024.     int        curr_laa;
  1025.     int        prev_laa;
  1026.  
  1027.     /* Deal only with Arabic character, pass back all others */
  1028.     if (!A_is_ok(c))
  1029.     return c;
  1030.  
  1031.     /* half-shape current and previous character */
  1032.     shape_c = half_shape(prev_c);
  1033.  
  1034.     /* Save away current character */
  1035.     curr_c = c;
  1036.  
  1037.     curr_laa = A_firstc_laa(c, *c1p);
  1038.     prev_laa = A_firstc_laa(prev_c, prev_c1);
  1039.  
  1040.     if (curr_laa)
  1041.     {
  1042.     if (A_is_valid(prev_c) && !A_is_f(shape_c)
  1043.                      && !A_is_s(shape_c) && !prev_laa)
  1044.         curr_c = chg_c_laa2f(curr_laa);
  1045.     else
  1046.         curr_c = chg_c_laa2i(curr_laa);
  1047.  
  1048.     /* Remove the composing character */
  1049.     *c1p = 0;
  1050.     }
  1051.     else if (!A_is_valid(prev_c) && A_is_valid(next_c))
  1052.     curr_c = chg_c_a2i(c);
  1053.     else if (!shape_c || A_is_f(shape_c) || A_is_s(shape_c) || prev_laa)
  1054.     curr_c = A_is_valid(next_c) ? chg_c_a2i(c) : chg_c_a2s(c);
  1055.     else if (A_is_valid(next_c))
  1056.     curr_c = A_is_iso(c) ? chg_c_a2m(c) : chg_c_i2m(c);
  1057.     else if (A_is_valid(prev_c))
  1058.     curr_c = chg_c_a2f(c);
  1059.     else
  1060.     curr_c = chg_c_a2s(c);
  1061.  
  1062.     /* Sanity check -- curr_c should, in the future, never be 0.
  1063.      * We should, in the future, insert a fatal error here. */
  1064.     if (curr_c == NUL)
  1065.     curr_c = c;
  1066.  
  1067.     if (curr_c != c && ccp != NULL)
  1068.     {
  1069.     char_u buf[MB_MAXBYTES];
  1070.  
  1071.     /* Update the first byte of the character. */
  1072.     (*mb_char2bytes)(curr_c, buf);
  1073.     *ccp = buf[0];
  1074.     }
  1075.  
  1076.     /* Return the shaped character */
  1077.     return curr_c;
  1078. }
  1079.  
  1080.  
  1081. /*
  1082.  * A_firstc_laa returns first character of LAA combination if it exists
  1083.  */
  1084.     static int
  1085. A_firstc_laa(c, c1)
  1086.     int c;    /* base character */
  1087.     int c1;    /* first composing character */
  1088. {
  1089.     if (c1 != NUL && c == a_LAM && !A_is_harakat(c1))
  1090.     return c1;
  1091.     return 0;
  1092. }
  1093.  
  1094.  
  1095. /*
  1096.  * A_is_harakat returns TRUE if 'c' is an Arabic Harakat character
  1097.  *        (harakat/tanween)
  1098.  */
  1099.     static int
  1100. A_is_harakat(c)
  1101.     int c;
  1102. {
  1103.     return (c >= a_FATHATAN && c <= a_SUKUN);
  1104. }
  1105.  
  1106.  
  1107. /*
  1108.  * A_is_iso returns TRUE if 'c' is an Arabic ISO-8859-6 character
  1109.  *        (alphabet/number/punctuation)
  1110.  */
  1111.     static int
  1112. A_is_iso(c)
  1113.     int c;
  1114. {
  1115.     return ((c >= a_HAMZA && c <= a_GHAIN)
  1116.         || (c >= a_TATWEEL && c <= a_HAMZA_BELOW)
  1117.         || c == a_MINI_ALEF);
  1118. }
  1119.  
  1120.  
  1121. /*
  1122.  * A_is_formb returns TRUE if 'c' is an Arabic 10646-1 FormB character
  1123.  *        (alphabet/number/punctuation)
  1124.  */
  1125.     static int
  1126. A_is_formb(c)
  1127.     int c;
  1128. {
  1129.     return ((c >= a_s_FATHATAN && c <= a_s_DAMMATAN)
  1130.         || c == a_s_KASRATAN
  1131.         || (c >= a_s_FATHA && c <= a_f_LAM_ALEF)
  1132.         || c == a_BYTE_ORDER_MARK);
  1133. }
  1134.  
  1135.  
  1136. /*
  1137.  * A_is_ok returns TRUE if 'c' is an Arabic 10646 (8859-6 or Form-B)
  1138.  */
  1139.     static int
  1140. A_is_ok(c)
  1141.     int c;
  1142. {
  1143.     return (A_is_iso(c) || A_is_formb(c));
  1144. }
  1145.  
  1146.  
  1147. /*
  1148.  * A_is_valid returns TRUE if 'c' is an Arabic 10646 (8859-6 or Form-B)
  1149.  *        with some exceptions/exclusions
  1150.  */
  1151.     static int
  1152. A_is_valid(c)
  1153.     int c;
  1154. {
  1155.     return (A_is_ok(c) && !A_is_special(c));
  1156. }
  1157.  
  1158.  
  1159. /*
  1160.  * A_is_special returns TRUE if 'c' is not a special Arabic character.
  1161.  *        Specials don't adhere to most of the rules.
  1162.  */
  1163.     static int
  1164. A_is_special(c)
  1165.     int c;
  1166. {
  1167.     return (c == a_HAMZA || c == a_s_HAMZA);
  1168. }
  1169.