Asscalc Commands

lines expr '\n' { print_tval_of( $2.value );/*fprintf( foutt, "%.12g", $2.value) */}

      |       lines TEXTINDEX STORE '(' expr ')' '\n'         { TextindexStore( $5.value ); }
      |       lines TEXTINDEX GET '(' expr ')' '\n'         { TextindexGet( $5.value ); }

      |       lines PRINTS STRING '\n'         { printf( "%s", $3.name ); }
      |       lines PRINTV expr '\n'         { printf( "%f", $3.value ); }

      |       lines COLORING_OFF '(' expr ',' expr ')' '\n'         { ColoringOff( $4.value, $6.value );  }

      |       lines BORDERLINE '(' expr ',' expr ')' '\n'         { PrintBorderline( $4.value, $6.value );  }

      |       lines KILLTHISLOOP '\n'    { KillThisLoop(); }
      |       lines LOWKILL '(' expr ',' expr ')' '\n'    { if( $4.value<$6.value ){printf( "lowkill yes %f<%f\n",$4.value,$6.value);return EXIT_SUCCESS;}else printf( "lowkill no %f>=%f\n",$4.value,$6.value); }
      |       lines IDENTIFIER '=' expr '\n'         { set_identifier( $2, $4.value ); }
      |       lines IDENTIFIER '[' expr ']' '=' expr '\n'         { set_identifier_arr( $2, $7.value, $4.value ); }
      |       lines FONTMATCHUSE STRING '\n'         { fontmatchuse( $3.name ); }
      |       lines SETFLAG STRING '\n'         { set_flag( $3.name ); }
      |       lines TIMEOF expr '\n'         { print_time_of( $3.value ); }
      |       lines POSOF expr '\n'         { print_pos_of( $3.value ); }
      |       lines HEXOF expr '\n'         { print_hex_of( $3.value ); }
      |       lines CHAROF expr '\n'         { print_char_of( $3.value ); }
      |       lines COLOROF expr '\n'         { print_color_of( $3.value ); }
      |       lines TVALOF expr '\n'         { print_tval_of( $3.value ); }
      |       lines INSERT IDENTIFIER '\n'         { print_identifier( $3.name ); }
      |       lines RANDOMINS STRING expr '\n'         { rand_ins( $3.name, $4.value ); }
      |       lines LOOPFILE STRING expr '\n'         { loop_file( $3.name, $4.value, 1 ); }
      |       lines LOOPFILE2 STRING '(' expr ',' expr ')' '\n'         { loop_file( $3.name, $5.value, $7.value ); }
      |       lines TEXTLOCK IDENTIFIER '\n'         { if( !textlock_identifier( $3.name ) )return EXIT_SUCCESS; }
      |       lines STYLELOCK IDENTIFIER '\n'         { if( !stylelock_identifier( $3.name ) )return EXIT_SUCCESS; }
      |       lines TEXTFIND IDENTIFIER '\n'         { if( !textfind_identifier( $3.name ) )return EXIT_SUCCESS; }
      |       lines '!' TEXTFIND IDENTIFIER '\n'         { if( textfind_identifier( $4.name ) )return EXIT_SUCCESS; }
      |       lines STRING '\n'         { fprintf( foutt, "%s", $2.name) }
      |       lines EXIT '\n'         { return EXIT_SUCCESS; }
      |       /* empty */
      |       error '\n'              { printf("\n error \n"); yyerrok; }