X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=src%2Ftypes%2Flet_stmt.h;h=3b6ab3c5137c2641f413282642a897f26cd0f9bd;hp=8415e49c80e3ec1abe5722e5999c5a8f6edacb28;hb=a107dfcca2dfd0fc5a2779a8d679f778cb8f3290;hpb=5359ad5c181e5772f350fe1cba060cbed3a05b91 diff --git a/src/types/let_stmt.h b/src/types/let_stmt.h index 8415e49..3b6ab3c 100644 --- a/src/types/let_stmt.h +++ b/src/types/let_stmt.h @@ -1,27 +1,46 @@ -#ifndef _PSI_TYPES_LET_STMT_H -#define _PSI_TYPES_LET_STMT_H +/******************************************************************************* + Copyright (c) 2016, Michael Wallner . + All rights reserved. + + Redistribution and use in source and binary forms, with or without + modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. + * Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + + THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" + AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE + DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE + FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR + SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER + CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, + OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE + OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*******************************************************************************/ + +#ifndef PSI_TYPES_LET_STMT_H +#define PSI_TYPES_LET_STMT_H + +#include "decl_var.h" +#include "let_val.h" typedef struct let_stmt { - decl_var *var; + struct psi_token *token; let_val *val; } let_stmt; -static inline let_stmt *init_let_stmt(decl_var *var, let_val *val) { - let_stmt *let = calloc(1, sizeof(*let)); - let->var = var; - let->val = val; - return let; -} - -static inline void free_let_stmt(let_stmt *stmt) { - if (stmt->val) { - if (stmt->val->kind == PSI_LET_TMP && stmt->var->arg) { - free_decl_arg(stmt->var->arg); - } - free_let_val(stmt->val); - } - free_decl_var(stmt->var); - free(stmt); -} +let_stmt *init_let_stmt(let_val *val); +void free_let_stmt(let_stmt *stmt); +void dump_let_stmt(int fd, let_stmt *let); + +struct psi_data; +struct impl; + +int validate_let_stmts(struct psi_data *data, struct impl *impl); #endif