1 /**************************************************************************
2 *
3 * Copyright 2008 Tungsten Graphics, Inc., Cedar Park, Texas.
4 * All Rights Reserved.
5 *
6 * Permission is hereby granted, free of charge, to any person obtaining a
7 * copy of this software and associated documentation files (the
8 * "Software"), to deal in the Software without restriction, including
9 * without limitation the rights to use, copy, modify, merge, publish,
10 * distribute, sub license, and/or sell copies of the Software, and to
11 * permit persons to whom the Software is furnished to do so, subject to
12 * the following conditions:
13 *
14 * The above copyright notice and this permission notice (including the
15 * next paragraph) shall be included in all copies or substantial portions
16 * of the Software.
17 *
18 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
19 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
21 * IN NO EVENT SHALL TUNGSTEN GRAPHICS AND/OR ITS SUPPLIERS BE LIABLE FOR
22 * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
23 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
24 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
25 *
26 **************************************************************************/
27
28 #include "util/u_debug.h"
29 #include "tgsi_iterate.h"
30
31 boolean
tgsi_iterate_shader(const struct tgsi_token * tokens,struct tgsi_iterate_context * ctx)32 tgsi_iterate_shader(
33 const struct tgsi_token *tokens,
34 struct tgsi_iterate_context *ctx )
35 {
36 struct tgsi_parse_context parse;
37
38 if (tgsi_parse_init( &parse, tokens ) != TGSI_PARSE_OK)
39 return FALSE;
40
41 ctx->processor = parse.FullHeader.Processor;
42
43 if (ctx->prolog)
44 if (!ctx->prolog( ctx ))
45 goto fail;
46
47 while (!tgsi_parse_end_of_tokens( &parse )) {
48 tgsi_parse_token( &parse );
49
50 switch (parse.FullToken.Token.Type) {
51 case TGSI_TOKEN_TYPE_INSTRUCTION:
52 if (ctx->iterate_instruction)
53 if (!ctx->iterate_instruction( ctx, &parse.FullToken.FullInstruction ))
54 goto fail;
55 break;
56
57 case TGSI_TOKEN_TYPE_DECLARATION:
58 if (ctx->iterate_declaration)
59 if (!ctx->iterate_declaration( ctx, &parse.FullToken.FullDeclaration ))
60 goto fail;
61 break;
62
63 case TGSI_TOKEN_TYPE_IMMEDIATE:
64 if (ctx->iterate_immediate)
65 if (!ctx->iterate_immediate( ctx, &parse.FullToken.FullImmediate ))
66 goto fail;
67 break;
68
69 case TGSI_TOKEN_TYPE_PROPERTY:
70 if (ctx->iterate_property)
71 if (!ctx->iterate_property( ctx, &parse.FullToken.FullProperty ))
72 goto fail;
73 break;
74
75 default:
76 assert( 0 );
77 }
78 }
79
80 if (ctx->epilog)
81 if (!ctx->epilog( ctx ))
82 goto fail;
83
84 tgsi_parse_free( &parse );
85 return TRUE;
86
87 fail:
88 tgsi_parse_free( &parse );
89 return FALSE;
90 }
91