include/ntuple/qp_exe_literal.h

0001 /*
0002  *  qp_exe_literal.h  --
0003  *
0004  *  Original: 15-Jan-1995 16:26
0005  *
0006  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0007  *
0008  *  $Id$
0009  *
0010  *  $Log$
0011  *  Revision 1.4  1996/04/23 18:38:31  maartenb
0012  *  - Add RCS keywords
0013  *
0014  *
0015  */
0016
0017 {
0018     Int32   *ptr;
0019
0020     switch ( fc ) {
0021
0022     case FC_LIT_SCA_BOOL:
0023         NEW_FRAME( D_BOOL, 1, ptr );
0024         *ptr = *pc++;
0025         break;
0026
0027     case FC_LIT_SCA_UINT:
0028         NEW_FRAME( D_UINT, 1, ptr );
0029         *ptr = *pc++;
0030         break;
0031
0032     case FC_LIT_SCA_ULONG:
0033         NEW_FRAME( D_ULONG, 1, ptr );
0034         *ptr++ = *pc++;
0035         *ptr = *pc++;
0036         break;
0037
0038     case FC_LIT_SCA_INT:
0039         NEW_FRAME( D_INT, 1, ptr );
0040         *ptr = *pc++;
0041         break;
0042
0043     case FC_LIT_SCA_LONG:
0044         NEW_FRAME( D_LONG, 1, ptr );
0045         *ptr++ = *pc++;
0046         *ptr = *pc++;
0047         break;
0048
0049     case FC_LIT_SCA_FLOAT:
0050         NEW_FRAME( D_FLOAT, 1, ptr );
0051         *ptr = *pc++;
0052         break;
0053
0054     case FC_LIT_SCA_DOUBLE:
0055         NEW_FRAME( D_DOUBLE, 1, ptr );
0056         *ptr++ = *pc++;
0057         *ptr = *pc++;
0058         break;
0059
0060     case FC_LIT_SCA_STR:
0061         NEW_FRAME( D_STR, 1, ptr );
0062         (void) memcpy( ptr, pc, QP_STR_MAX );
0063         pc += 8;
0064         break;
0065
0066     default:
0067         sf_report( "qp_exe_literal.h: Unkown Fcode ( %d )\n", fc );
0068         *errp = R_INTERNAL_ERROR;
0069         running = FALSE;
0070         break;
0071     }
0072 }