[1806] | 1 | %token INTEGER NREF PREF FIRST LAST NEXT PREV FREF LREF CUR NEW ALL AREF |
---|
[69] | 2 | %left '+' '-' |
---|
| 3 | %{ |
---|
| 4 | #include <ctype.h> |
---|
[1634] | 5 | #include <discuss/discuss.h> |
---|
[122] | 6 | #include "globals.h" |
---|
[69] | 7 | |
---|
| 8 | static trn_info *trnexpr_curtrn; |
---|
| 9 | static mtg_info *trnexpr_curmtg; |
---|
| 10 | static int trnexpr_low, trnexpr_high; |
---|
[1806] | 11 | static int trnexpr_aref; |
---|
[69] | 12 | static char *cp; |
---|
| 13 | static int trnexpr_err; |
---|
| 14 | %} |
---|
| 15 | |
---|
| 16 | %% |
---|
| 17 | range : trn_no |
---|
| 18 | { trnexpr_low = $1; |
---|
[78] | 19 | trnexpr_high = $1; |
---|
[69] | 20 | } |
---|
[235] | 21 | | trn_no sep trn_no |
---|
[69] | 22 | { trnexpr_low = $1; |
---|
| 23 | trnexpr_high = $3; |
---|
| 24 | } |
---|
[122] | 25 | | NEW |
---|
| 26 | { trnexpr_low = dsc_public.highest_seen+1; |
---|
| 27 | trnexpr_high = trnexpr_curmtg->last; |
---|
| 28 | } |
---|
| 29 | | ALL |
---|
| 30 | { trnexpr_low = trnexpr_curmtg->first; |
---|
| 31 | trnexpr_high = trnexpr_curmtg->last; |
---|
| 32 | } |
---|
[1806] | 33 | | AREF |
---|
| 34 | { trnexpr_low = trnexpr_curtrn->current; |
---|
| 35 | trnexpr_high = trnexpr_curtrn->current; |
---|
| 36 | trnexpr_aref = 1; |
---|
| 37 | } |
---|
| 38 | |
---|
[122] | 39 | ; |
---|
[235] | 40 | sep : ':' |
---|
| 41 | | ',' |
---|
| 42 | ; |
---|
[69] | 43 | |
---|
| 44 | trn_no : INTEGER |
---|
| 45 | | NREF |
---|
| 46 | | PREF |
---|
| 47 | | FIRST |
---|
| 48 | | LAST |
---|
| 49 | | NEXT |
---|
| 50 | | PREV |
---|
[78] | 51 | | FREF |
---|
[69] | 52 | | LREF |
---|
| 53 | | CUR |
---|
| 54 | | expr |
---|
| 55 | ; |
---|
| 56 | |
---|
| 57 | expr : trn_no '-' trn_no |
---|
| 58 | { $$ = $1 - $3; } |
---|
| 59 | | trn_no '+' trn_no |
---|
| 60 | { $$ = $1 + $3; } |
---|
| 61 | ; |
---|
| 62 | %% |
---|
| 63 | |
---|
[1927] | 64 | /* |
---|
| 65 | * |
---|
| 66 | * Copyright (C) 1989 by the Massachusetts Institute of Technology |
---|
| 67 | * Developed by the MIT Student Information Processing Board (SIPB). |
---|
| 68 | * For copying information, see the file mit-copyright.h in this release. |
---|
| 69 | * |
---|
| 70 | */ |
---|
| 71 | |
---|
[22821] | 72 | yyerror(msg) |
---|
[93] | 73 | char *msg; |
---|
[69] | 74 | { |
---|
[93] | 75 | #ifdef lint |
---|
| 76 | msg = msg; |
---|
[12459] | 77 | #endif /* lint */ |
---|
[93] | 78 | trnexpr_err = DISC_INVALID_TRN_SPECS; |
---|
[69] | 79 | } |
---|
| 80 | |
---|
[102] | 81 | /* |
---|
| 82 | * |
---|
| 83 | * see if second string is beginning of first string, except for case |
---|
| 84 | * differences.. |
---|
| 85 | * |
---|
| 86 | */ |
---|
| 87 | |
---|
| 88 | #define to_lower(c) (((c)<'_')?((c)+'a'-'A'):(c)) |
---|
| 89 | static match(s1, s2) |
---|
| 90 | register char *s1, *s2; |
---|
| 91 | { |
---|
| 92 | while (*s2) { |
---|
| 93 | if (to_lower(*s1) != *s2) |
---|
| 94 | return(0); |
---|
| 95 | s1++; s2++; |
---|
| 96 | } |
---|
| 97 | return(1); |
---|
| 98 | } |
---|
| 99 | |
---|
[22821] | 100 | yylex() |
---|
[102] | 101 | { |
---|
[69] | 102 | if (!*cp) return -1; |
---|
| 103 | if(isdigit(*cp)) { |
---|
| 104 | yylval=0; |
---|
| 105 | do { |
---|
| 106 | yylval = *(cp++) - '0' + yylval*10; |
---|
| 107 | } while (*cp && isdigit(*cp)); |
---|
| 108 | return( INTEGER ); |
---|
| 109 | } else if (*cp=='.') { |
---|
| 110 | cp++; |
---|
| 111 | yylval=trnexpr_curtrn->current; |
---|
| 112 | return(CUR); |
---|
| 113 | } else if (*cp==':' || *cp=='+' || *cp=='-') { |
---|
| 114 | return(*cp++); |
---|
[122] | 115 | } else if (match(cp, "current")) { |
---|
| 116 | cp += 7; |
---|
| 117 | yylval=trnexpr_curtrn->current; |
---|
| 118 | return(CUR); |
---|
| 119 | } else if (match(cp, "new")) { |
---|
| 120 | cp += 3; |
---|
| 121 | return(NEW); |
---|
| 122 | } else if (match(cp, "all")) { |
---|
| 123 | cp += 3; |
---|
| 124 | return(ALL); |
---|
[1806] | 125 | } else if (match(cp, "aref")) { |
---|
| 126 | cp += 4; |
---|
| 127 | return(AREF); |
---|
[102] | 128 | } else if (match(cp, "next")) { |
---|
[69] | 129 | cp += 4; |
---|
| 130 | yylval=trnexpr_curtrn->next; |
---|
| 131 | return(NEXT); |
---|
[23803] | 132 | } else if (match(cp, "n")) { |
---|
| 133 | cp += 1; |
---|
| 134 | yylval=trnexpr_curtrn->next; |
---|
| 135 | return(NEXT); |
---|
[102] | 136 | } else if (match(cp, "prev")) { |
---|
[69] | 137 | cp += 4; |
---|
| 138 | yylval=trnexpr_curtrn->prev; |
---|
| 139 | return(PREV); |
---|
[23803] | 140 | } else if (match(cp, "back")) { |
---|
| 141 | cp += 4; |
---|
| 142 | yylval=trnexpr_curtrn->prev; |
---|
| 143 | return(PREV); |
---|
| 144 | } else if (match(cp, "b")) { |
---|
| 145 | cp += 1; |
---|
| 146 | yylval=trnexpr_curtrn->prev; |
---|
| 147 | return(PREV); |
---|
[102] | 148 | } else if (match(cp, "nref")) { |
---|
[69] | 149 | cp += 4; |
---|
| 150 | yylval=trnexpr_curtrn->nref; |
---|
| 151 | return(NREF); |
---|
[102] | 152 | } else if (match(cp, "pref")) { |
---|
[69] | 153 | cp += 4; |
---|
| 154 | yylval=trnexpr_curtrn->pref; |
---|
| 155 | return(PREF); |
---|
[102] | 156 | } else if (match(cp, "first")) { |
---|
[69] | 157 | cp += 5; |
---|
| 158 | yylval=trnexpr_curmtg->first; |
---|
| 159 | return(FIRST); |
---|
[102] | 160 | } else if (match(cp, "last")) { |
---|
[69] | 161 | cp += 4; |
---|
| 162 | yylval=trnexpr_curmtg->last; |
---|
| 163 | return(LAST); |
---|
[102] | 164 | } else if (match(cp, "fref")) { |
---|
[78] | 165 | cp += 4; |
---|
| 166 | yylval=trnexpr_curtrn->fref; |
---|
| 167 | return(FREF); |
---|
[102] | 168 | } else if (match(cp, "lref")) { |
---|
[78] | 169 | cp += 4; |
---|
| 170 | yylval=trnexpr_curtrn->lref; |
---|
| 171 | return(LREF); |
---|
[102] | 172 | } else if (*cp=='n' || *cp=='N') { |
---|
[69] | 173 | cp++; |
---|
| 174 | yylval=trnexpr_curtrn->next; |
---|
| 175 | return(NEXT); |
---|
[102] | 176 | } else if (*cp=='p' || *cp=='P') { |
---|
[69] | 177 | cp++; |
---|
| 178 | yylval=trnexpr_curtrn->prev; |
---|
| 179 | return(PREV); |
---|
[102] | 180 | } else if (*cp=='l' || *cp=='L') { |
---|
[69] | 181 | cp++; |
---|
| 182 | yylval=trnexpr_curmtg->last; |
---|
| 183 | return(LAST); |
---|
[102] | 184 | } else if (*cp=='f' || *cp == 'F') { |
---|
[69] | 185 | cp++; |
---|
| 186 | yylval=trnexpr_curmtg->first; |
---|
| 187 | return(FIRST); |
---|
| 188 | } else return (*cp++); |
---|
| 189 | } |
---|
| 190 | |
---|
[1806] | 191 | int trnexpr_parse(mtg, trn, string, lorange, highrange, flags) |
---|
[69] | 192 | mtg_info *mtg; |
---|
| 193 | trn_info *trn; |
---|
| 194 | char *string; |
---|
[1806] | 195 | int *lorange, *highrange, *flags; |
---|
[69] | 196 | { |
---|
| 197 | cp = string; |
---|
| 198 | trnexpr_curmtg = mtg; |
---|
| 199 | trnexpr_curtrn = trn; |
---|
[1806] | 200 | trnexpr_aref = 0; |
---|
[69] | 201 | trnexpr_err = 0; |
---|
[93] | 202 | (void) yyparse(); |
---|
[78] | 203 | if(lorange) |
---|
| 204 | *lorange = trnexpr_low; |
---|
| 205 | if(highrange) |
---|
| 206 | *highrange = trnexpr_high; |
---|
[1806] | 207 | if(flags) |
---|
| 208 | *flags = (trnexpr_aref) ? flag_AREF : 0; |
---|
[69] | 209 | return(trnexpr_err); |
---|
| 210 | } |
---|
| 211 | |
---|
| 212 | #ifdef notdef |
---|
[78] | 213 | mtg_info mtg = { 0, "/tmp/foo", "bar", "quux", 1, 30, 22, 23, 1 }; |
---|
| 214 | trn_info trn = { 0, 7, 6, 8, 5, 9, 2, 17, 3, 42, 7, 48, "Qux", "me" }; |
---|
[69] | 215 | main(argc, argv) |
---|
| 216 | int argc; |
---|
| 217 | char **argv; |
---|
| 218 | { |
---|
| 219 | int low, high; |
---|
| 220 | argv++; argc--; |
---|
| 221 | while(argc--) { |
---|
| 222 | low = -1; high = -1; |
---|
[78] | 223 | trnexpr_parse(&mtg, &trn, *argv, &low, &high); |
---|
[69] | 224 | printf("%s: %d:%d\n", *argv, low, high); |
---|
| 225 | if(trnexpr_err) { |
---|
| 226 | printf("Error %d\n", trnexpr_err); |
---|
| 227 | trnexpr_err=0; |
---|
| 228 | } |
---|
| 229 | argv++; |
---|
| 230 | } |
---|
| 231 | } |
---|
[12459] | 232 | #endif /* notdef */ |
---|