X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=src%2Ftypes%2Flet_stmt.h;h=37ef1185dc0db909eedcb84102688d4ca1ddb2c9;hp=8415e49c80e3ec1abe5722e5999c5a8f6edacb28;hb=c9384515a81cb64d345b299908b2852f51bb8e6e;hpb=5359ad5c181e5772f350fe1cba060cbed3a05b91 diff --git a/src/types/let_stmt.h b/src/types/let_stmt.h index 8415e49..37ef118 100644 --- a/src/types/let_stmt.h +++ b/src/types/let_stmt.h @@ -1,27 +1,47 @@ -#ifndef _PSI_TYPES_LET_STMT_H -#define _PSI_TYPES_LET_STMT_H - -typedef struct let_stmt { - decl_var *var; - 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); -} +/******************************************************************************* + 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 + +struct psi_data; +struct psi_token; +struct psi_let_exp; +struct psi_call_frame; +struct psi_impl; + +struct psi_let_stmt { + struct psi_token *token; + struct psi_let_exp *exp; +}; + +struct psi_let_stmt *psi_let_stmt_init(struct psi_let_exp *exp); +void psi_let_stmt_free(struct psi_let_stmt **stmt_ptr); +void psi_let_stmt_dump(int fd, struct psi_let_stmt *stmt); + +void *psi_let_stmt_exec(struct psi_let_stmt *stmt, struct psi_call_frame *frame); +bool psi_let_stmts_validate(struct psi_data *data, struct psi_validate_scope *scope); #endif