home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / as / source / c / option < prev    next >
Encoding:
Text File  |  1993-12-28  |  7.5 KB  |  312 lines
  1.  
  2. /*
  3.  * option.c
  4.  * Copyright © 1992 Niklas Röjemo
  5.  */
  6.  
  7. #include <ctype.h>
  8. #include "option.h"
  9. #include "error.h"
  10. #include "input.h"
  11.  
  12. extern int pedantic;
  13.  
  14. static WORD getCond(void)
  15. {
  16.   WORD cc;
  17.   switch(inputLook()) {
  18.     case 'a':case 'A':
  19.       switch(inputLookN(1)) {
  20.         case 'l':case 'L':  cc = AL; inputSkipN(2); break;
  21.         default:   cc = AL;
  22.       }
  23.       break;
  24.     case 'c':case 'C':
  25.       switch(inputLookN(1)) {
  26.         case 'c':case 'C': cc = CC; inputSkipN(2); break;
  27.         case 's':case 'S': cc = CS; inputSkipN(2); break;
  28.         default:  cc = AL;
  29.       }
  30.       break;
  31.     case 'e':case 'E':
  32.       switch(inputLookN(1)){
  33.         case 'q':case 'Q': cc = EQ; inputSkipN(2); break;
  34.         default:  cc = AL;
  35.       }
  36.       break;
  37.     case 'g':case 'G':
  38.       switch(inputLookN(1)) {
  39.         case 'e':case 'E': cc = GE; inputSkipN(2); break;
  40.         case 't':case 'T': cc = GT; inputSkipN(2); break;
  41.         default:  cc = AL;
  42.       }
  43.       break;
  44.     case 'h':case 'H':
  45.       switch(inputLookN(1)) {
  46.         case 'i':case 'I': cc = HI; inputSkipN(2); break;
  47.         case 's':case 'S': cc = HS; inputSkipN(2); break;
  48.         default:  cc = AL;
  49.       }
  50.       break;
  51.     case 'l':case 'L':
  52.       switch(inputLookN(1)) {
  53.         case 'e':case 'E': cc = LE; inputSkipN(2); break;
  54.         case 'o':case 'O': cc = LO; inputSkipN(2); break;
  55.         case 's':case 'S': cc = LS; inputSkipN(2); break;
  56.         case 't':case 'T': cc = LT; inputSkipN(2); break;
  57.         default:  cc = AL;
  58.       }
  59.       break;
  60.     case 'm':case 'M':
  61.       switch(inputLookN(1)) {
  62.         case 'i':case 'I': cc = MI; inputSkipN(2); break;
  63.         default:  cc = AL;
  64.       }
  65.       break;
  66.     case 'n':case 'N':
  67.       switch(inputLookN(1)) {
  68.         case 'e':case 'E': cc = NE; inputSkipN(2); break;
  69.         case 'v':case 'V': cc = NV; inputSkipN(2); break;
  70.         default:  cc = AL;
  71.       }
  72.       break;
  73.     case 'p':case 'P':
  74.       switch(inputLookN(1)) {
  75.         case 'l':case 'L': cc = PL; inputSkipN(2); break;
  76.         default:  cc = AL;
  77.       }
  78.       break;
  79.     case 'v':case 'V':
  80.       switch(inputLookN(1)) {
  81.         case 'c':case 'C': cc = VC; inputSkipN(2); break;
  82.         case 's':case 'S': cc = VS; inputSkipN(2); break;
  83.         default:  cc = AL;
  84.       }
  85.       break;
  86.     default: cc = AL;
  87.   }
  88.   return cc;
  89. } 
  90.  
  91. static WORD getDir(BOOL ldm)
  92. {
  93.   WORD dir;
  94.   switch(inputLook()) {
  95.     case 'd':case 'D':
  96.       switch(inputLookN(1)) {
  97.         case 'b':case 'B': dir = DB; inputSkipN(2); break;
  98.         case 'a':case 'A': dir = DA; inputSkipN(2); break;
  99.         default: goto illegal;
  100.       }
  101.       break;
  102.     case 'e':case 'E':
  103.       switch(inputLookN(1)) {
  104.         case 'd':case 'D': dir = (ldm?IB:DA); inputSkipN(2); break;
  105.         case 'a':case 'A': dir = (ldm?DB:IA); inputSkipN(2); break;
  106.         default: goto illegal;
  107.       }
  108.       break;
  109.     case 'f':case 'F':
  110.       switch(inputLookN(1)) {
  111.         case 'd':case 'D': dir = (ldm?IA:DB); inputSkipN(2); break;
  112.         case 'a':case 'A': dir = (ldm?DA:IB); inputSkipN(2); break;
  113.         default: goto illegal;
  114.       }
  115.       break;
  116.     case 'i':case 'I':    
  117.       switch(inputLookN(1)) {
  118.         case 'b':case 'B': dir = IB; inputSkipN(2); break;
  119.         case 'a':case 'A': dir = IA; inputSkipN(2); break;
  120.         default: goto illegal;
  121.       }
  122.       break;
  123.     default:
  124. illegal:
  125.       return optionError;
  126.   }
  127.   return dir;
  128. }
  129.  
  130. static WORD getPrec(int P)
  131. {
  132.   switch(inputGet()) {
  133.     case 's': case 'S': return P?PRECISION_MEM_SINGLE:PRECISION_SINGLE; 
  134.     case 'd': case 'D': return P?PRECISION_MEM_DOUBLE:PRECISION_DOUBLE; 
  135.     case 'e': case 'E': return P?PRECISION_MEM_EXTENDED:PRECISION_EXTENDED; 
  136.     case 'p': case 'P': return P?PRECISION_MEM_PACKED:optionError;
  137.   }
  138.   return optionError;
  139. }
  140.  
  141. static WORD getRound(void)
  142. {
  143.   switch(inputLook()) {
  144.     case 'p': case 'P': inputSkip(); return ROUND_PLUSINF; 
  145.     case 'm': case 'M': inputSkip(); return ROUND_MINUSINF; 
  146.     case 'z': case 'Z': inputSkip(); return ROUND_ZERO;
  147.   }
  148.   return ROUND_NEAREST;
  149. }
  150.  
  151. static WORD isOK(WORD option)
  152. {
  153.   if(inputLook && !isspace(inputGet()))
  154.     return optionError;
  155.   else
  156.     return option;
  157. }  
  158. WORD optionCond(void)
  159. {
  160.   return isOK(getCond());
  161. }
  162.  
  163. WORD optionCondS(void)
  164. {
  165.   WORD option = getCond();
  166.   if(inputLook() == 's' || inputLook() == 'S') {
  167.     option |= S_FLAG;
  168.     inputSkip();
  169.   }
  170.   return isOK(option);
  171. }
  172.   
  173. WORD optionCondSP(void)
  174. {
  175.   WORD option = getCond() | S_FLAG;
  176.   if(inputLook() == 's' || inputLook() == 'S') { 
  177.     inputSkip();
  178.     if(pedantic) error(ErrorInfo,TRUE,"S is implicit in test instructions.");
  179.   }
  180.   if(inputLook() == 'p' || inputLook() == 'P') {
  181.     option |= P_FLAG;
  182.     inputSkip();
  183.   }
  184.   return isOK(option);
  185. }
  186.  
  187. WORD optionCondB(void)
  188. {
  189.   WORD option = getCond();
  190.   if(inputLook() == 'b' || inputLook() == 'B') {
  191.     option |= B_FLAG;
  192.     inputSkip();
  193.   }
  194.   return isOK(option);
  195. }
  196.  
  197. WORD optionCondBT(void)
  198. {
  199.   WORD option = getCond();
  200.   if(inputLook() == 'b' || inputLook() == 'B') {
  201.     option |= B_FLAG;
  202.     inputSkip();
  203.   }
  204.   if(inputLook() == 't' || inputLook() == 'T') {
  205.     option |= T_FLAG;
  206.     inputSkip();
  207.   }
  208.   return isOK(option);
  209. }
  210.  
  211. WORD optionCondDirLdm(void)
  212. {
  213.   WORD option = getCond();
  214.   if(optionError == (option |= getDir(TRUE)))
  215.     return optionError;
  216.   return isOK(option);
  217. }
  218.  
  219. WORD optionCondDirStm(void)
  220. {
  221.   WORD option = getCond();
  222.   if(optionError == (option |= getDir(FALSE)))
  223.     return optionError;
  224.   return isOK(option);
  225. }
  226.  
  227. WORD optionCondPrecRound(void)
  228. {
  229.   WORD option = getCond();
  230.   if(optionError == (option |= getPrec(FALSE)))
  231.     return optionError;
  232.   return isOK(option | getRound());
  233. }
  234.  
  235. WORD optionCondOptPrecRound(void)
  236. {
  237.   WORD optionCC = getCond();
  238.   WORD optionPrec = getPrec(FALSE); 
  239.   if(optionError == optionPrec)
  240.     optionPrec = PRECISION_EXTENDED;
  241.   return isOK(optionCC | optionPrec | getRound());
  242. }
  243.  
  244. WORD optionCondPrec_P(void)
  245. {
  246.   WORD option = getCond();
  247.   if(optionError == (option |= getPrec(TRUE)))
  248.     return optionError;
  249.   return isOK(option);
  250. }
  251.  
  252. WORD optionCondL(void)
  253. {
  254.   WORD option = getCond();
  255.   if(inputLook() == 'l' || inputLook() == 'L') {
  256.     option |= L_FLAG;
  257.     inputSkip();
  258.   }
  259.   return isOK(option);
  260. }
  261.  
  262. /****** Trouble mnemonics **********/
  263.  
  264. WORD optionLinkCond(void)   /* 'b' is matched before call */
  265. {
  266.   if(inputLook() != 'l' && inputLook() != 'L') { /* Only b.CC possible  */
  267.     return isOK(getCond());
  268.   } else {
  269.     inputSkip();                                 /* bl.CC or b.l?  */
  270.     switch(inputLook()) {
  271.       case 'e':case 'E':                         /* b.le or bl.eq */
  272.           inputSkip();
  273.         switch(inputLook()) {
  274.           case 'q': case 'Q':                    /* Only bl.eq */
  275.             inputSkip(); 
  276.             return isOK(EQ|LINK_BIT);
  277.           default:                               /* Only b.le */
  278.             return isOK(LE);
  279.         }
  280.       case 'o':case 'O': /* Only b.lo possible */
  281.         inputSkip();
  282.         return isOK(LO);
  283.       case 's':case 'S': /* Only b.ls possible */
  284.         inputSkip();
  285.         return isOK(LS);
  286.       case 't':case 'T': /* Only b.lt possible */
  287.         inputSkip();
  288.         return isOK(LT);
  289.       default:  /* Only bl.CC possible */
  290.         return isOK(getCond() | LINK_BIT);
  291.     }
  292.   }
  293.   return optionError;
  294. }
  295.  
  296. WORD optionExceptionCond(void)
  297. { 
  298.   int c;
  299.   if(inputLook() != 'e' && inputLook() != 'E') { /* Only cmf.CC possible  */
  300.     return isOK(getCond());
  301.   } else {        /* cmf.eq or cmfe.CC */
  302.     inputSkip();
  303.     if((c=inputLook()) == 'q' || c == 'Q') {   /* Only cmf.eq */
  304.       inputSkip();
  305.       return isOK(EQ);
  306.     } else {                                   /* Only cmfe.CC */
  307.       return isOK(getCond()|EXEPTION_BIT);
  308.     }
  309.   }
  310.   return optionError;
  311. }
  312.