src/config/lxrgmr-code/token/envar.c

   1
   2 #include "stdio.h"
   3 #include "unistd.h"
   4 #include "memory.h"
   5
   6 void env_param_cnt (char *pbuff, int size)
   7 {
   8 }
   9
  10 void env_param_list (char *pbuff, int size)
  11 {
  12 }
  13
  14 void env_param_strlist (char *pbuff, int size)
  15 {
  16 }
  17
  18 void env_param (char *pbuff, int size, int id)
  19 {
  20 }
  21
  22 void env_last_retval (char *pbuff, int size)
  23 {
  24 }
  25
  26 void env_ppid (char *pbuff, int size)
  27 {
  28         sprintf(pbuff, "%d", getppid());
  29 }
  30
  31 void env_pid (char *pbuff, int size)
  32 {
  33         sprintf(pbuff, "%d", getpid());
  34 }
  35
  36 void env_var (char *pbuff, int size, char *pname)
  37 {
  38 }
  39
  40 typedef struct __tag_ENVAR {
  41         int                     i;
  42 } ENVAR, *PENVAR;
  43
  44 void env_var_adv (char *pbuff, int size, ENVAR *pstEnvar)
  45 {
  46 }
  47
  48 void env_subscript (char *pbuff, int size, char *pname, int len)
  49 {
  50 }
  51
  52 void env_expr (char *pbuff, int size, char *pname, int len)
  53 {
  54 }
  55
  56 void env_expanssion (char *pbuff, int size, char *pname, int len)
  57 {
  58 }
  59
  60 /*
  61  * set '$' flag.
  62  */
  63 int on_dollar_proc (int evt, int token, register const char *str, register unsigned int len, SRC_FILE_DESC *psrcfile)
  64 {
  65 #define BUFF_SIZE                       1024
  66         char buff[BUFF_SIZE];
  67         char name[BUFF_SIZE];
  68
  69         char c;
  70         printf("################################################ DOLLAR\n");
  71
  72         c = str[1];
  73         if (c == 0)
  74                 c = read_getc(psrcfile);
  75
  76         if (c == ' ' || c == '\t' || c == '\n' || c == '\r')
  77         {
  78                 read_ungetc(c, psrcfile);
  79                 str_buff[str_idx]=str[0];
  80                 str_idx++;
  81                 str_buff[str_idx]=0;
  82                 str_idx++;
  83                 return T_WORD;
  84         }
  85
  86         /*
  87          * T_GT, <()
  88          * & T_LT, >()
  89          */
  90         if (token == T_GT || token == T_LT || token == T_DOLLAR)
  91         {
  92                 if (c != '(')
  93         {
  94                         read_ungetc(c, psrcfile);
  95                         str_buff[str_idx]=str[0];
  96                         str_idx++;
  97                         str_buff[str_idx]=0;
  98                         str_idx++;
  99                         return T_WORD;
 100         }
 101
 102                 psrcfile->pstCurrTokenState->state_token_str = ")";
 103                 psrcfile->pstCurrTokenState->paired_token = T_RBRACKET1;
 104                 psrcfile->pstCurrTokenState->pfnPairTokenProc = on_func_code_blk;
 105                 STATE_SWITCH(psrcfile, STATE_CODEBLOCK);
 106                 return T_SKIP;
 107         }
 108
 109     if (c == '{')
 110     {
 111                 mask_char = '\\';
 112                 pfx_char = 0;
 113                 pair_begin = 0;
 114                 pair_end = 0;
 115                 endstr[0] = '}';
 116                 endstr[1] = 0;
 117                 endstr_len = 1;
 118
 119                 str_buff[0] = '$';
 120                 str_buff[1] = '{';
 121                 endstr[2] = 0;
 122                 str_idx = 2;
 123         readuntil(psrcfile);
 124                 return T_ENVAR;
 125     }
 126     else if ((c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || c == '_')
 127     {
 128                 c = read_token_str(psrcfile);
 129         env_var(buff, BUFF_SIZE, name);
 130     }
 131     else if ((c >= '0' && c >= '9'))
 132     {
 133         env_var(buff, BUFF_SIZE, name);
 134     }
 135     else if (c == '[')
 136     {
 137                 psrcfile->pstCurrTokenState->state_token_str = "]";
 138                 psrcfile->pstCurrTokenState->paired_token = T_RBRACKET2;
 139
 140                 psrcfile->pstCurrTokenState->pfnPairTokenProc = on_func_code_blk;
 141
 142         STATE_SWITCH(psrcfile, STATE_EXPR);
 143                 // XXX: on_expr_entry();
 144                 return T_SKIP;
 145     }
 146     else if (c == '\'')
 147     {
 148                 mask_char = 0;
 149                 pfx_char = 0;
 150                 pair_begin = 0;
 151                 pair_end = 0;
 152                 endstr[0] = '\'';
 153                 endstr[1] = 0;
 154                 endstr_len = 1;
 155
 156                 str_buff[0] = '\'';
 157                 str_buff[1] = 0;
 158                 str_idx = 1;
 159         readuntil(psrcfile);
 160         translate_char(str_buff, str_idx);
 161         str_buff[0] = '\'';
 162                 str_idx++;
 163                 str_buff[1] = 0;
 164                 return T_WORD_QUOTE;
 165     }
 166     else if (c == '?')
 167     {
 168         env_last_retval(buff, BUFF_SIZE);
 169     }
 170     else if (c == '!')
 171     {
 172         env_pid(buff, BUFF_SIZE);
 173                 return T_WORD;
 174     }
 175     else if (c == '$')
 176     {
 177         env_ppid(buff, BUFF_SIZE);
 178                 return T_WORD;
 179     }
 180     else if (c == '#')
 181     {
 182         env_param_cnt(buff, BUFF_SIZE);
 183                 return T_WORD;
 184     }
 185     else if (c == '@')
 186     {
 187         env_param_list(buff, BUFF_SIZE);
 188                 return T_WORD;
 189     }
 190     else if (c == '*')
 191     {
 192         env_param_strlist(buff, BUFF_SIZE);
 193                 return T_WORD;
 194     }
 195     else
 196     {
 197         //printf("char '%c' followed after $ does not a valid combination.\n", c);
 198                 read_ungetc(c, psrcfile);
 199                 str_buff[str_idx]=str[0];
 200                 str_idx++;
 201                 str_buff[str_idx]=0;
 202                 str_idx++;
 203                 return T_WORD;
 204     }
 205
 206         //STATE_SWITCH(psrcfile, STATE_DOLLAR);
 207         //SET_STATE_FLAG(psrcfile->pstCurrTokenState, TF_DOLLAR);
 208
 209         return T_SKIP;
 210 }
 211
 212
 213
 214