123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200 |
- #include <stdlib.h>
- #include <stdio.h>
- #include <string.h>
- #include <assert.h>
- #include <faux/str.h>
- #include <faux/list.h>
- #include <faux/error.h>
- #include <klish/kview.h>
- #include <klish/kscheme.h>
- bool_t kview_nested_from_iview(kview_t *kview, iview_t *iview,
- faux_error_t *error_stack)
- {
- if (!kview || !iview) {
- if (error_stack)
- faux_error_add(error_stack,
- kview_strerror(KVIEW_ERROR_INTERNAL));
- return BOOL_FALSE;
- }
- // COMMAND list
- if (iview->commands) {
- icommand_t **p_icommand = NULL;
- for (p_icommand = *iview->commands; *p_icommand; p_icommand++) {
- kcommand_t *kcommand = NULL;
- icommand_t *icommand = *p_icommand;
- printf("command %s\n", icommand->name);
- // kcommand = kcommand_from_icommand(icommand, error_stack);
- // if (!kcommand)
- // continue;
- kcommand = kcommand;
- }
- }
- return BOOL_TRUE;
- }
- kview_t *kview_from_iview(iview_t *iview, faux_error_t *error_stack)
- {
- kview_t *kview = NULL;
- kview_error_e kview_error = KVIEW_ERROR_OK;
- ssize_t error_stack_len = 0;
- kview = kview_new(iview, &kview_error);
- if (!kview) {
- if (error_stack) {
- char *msg = NULL;
- msg = faux_str_sprintf("VIEW \"%s\": %s",
- iview->name ? iview->name : "(null)",
- kview_strerror(kview_error));
- faux_error_add(error_stack, msg);
- faux_str_free(msg);
- }
- return NULL;
- }
- printf("view %s\n", kview_name(kview));
- // Parse nested elements
- if (error_stack)
- error_stack_len = faux_error_len(error_stack);
- kview_nested_from_iview(kview, iview, error_stack);
- if (error_stack && (faux_error_len(error_stack) > error_stack_len)) {
- char *msg = NULL;
- msg = faux_str_sprintf("VIEW \"%s\": Illegal nested elements",
- kview_name(kview));
- faux_error_add(error_stack, msg);
- faux_str_free(msg);
- }
- return kview;
- }
- bool_t kptype_nested_from_iptype(kptype_t *kptype, iptype_t *iptype,
- faux_error_t *error_stack)
- {
- if (!kptype || !iptype) {
- if (error_stack)
- faux_error_add(error_stack,
- kptype_strerror(KPTYPE_ERROR_INTERNAL));
- return BOOL_FALSE;
- }
- // ACTION list
- if (iptype->actions) {
- iaction_t **p_iaction = NULL;
- for (p_iaction = *iptype->actions; *p_iaction; p_iaction++) {
- kaction_t *kaction = NULL;
- iaction_t *iaction = *p_iaction;
- iaction = iaction;
- printf("action\n");
- // kaction = kaction_from_iaction(iaction, error_stack);
- // if (!kaction)
- // continue;
- kaction = kaction;
- }
- }
- return BOOL_TRUE;
- }
- kptype_t *kptype_from_iptype(iptype_t *iptype, faux_error_t *error_stack)
- {
- kptype_t *kptype = NULL;
- kptype_error_e kptype_error = KPTYPE_ERROR_OK;
- ssize_t error_stack_len = 0;
- kptype = kptype_new(iptype, &kptype_error);
- if (!kptype) {
- if (error_stack) {
- char *msg = NULL;
- msg = faux_str_sprintf("PTYPE \"%s\": %s",
- iptype->name ? iptype->name : "(null)",
- kptype_strerror(kptype_error));
- faux_error_add(error_stack, msg);
- faux_str_free(msg);
- }
- return NULL;
- }
- printf("ptype %s\n", kptype_name(kptype));
- // Parse nested elements
- if (error_stack)
- error_stack_len = faux_error_len(error_stack);
- kptype_nested_from_iptype(kptype, iptype, error_stack);
- if (error_stack && (faux_error_len(error_stack) > error_stack_len)) {
- char *msg = NULL;
- msg = faux_str_sprintf("PTYPE \"%s\": Illegal nested elements",
- kptype_name(kptype));
- faux_error_add(error_stack, msg);
- faux_str_free(msg);
- }
- return kptype;
- }
- bool_t kscheme_nested_from_ischeme(kscheme_t *kscheme, ischeme_t *ischeme,
- faux_error_t *error_stack)
- {
- if (!kscheme || !ischeme) {
- if (error_stack)
- faux_error_add(error_stack,
- kscheme_strerror(KSCHEME_ERROR_INTERNAL));
- return BOOL_FALSE;
- }
- // PTYPE list
- if (ischeme->ptypes) {
- iptype_t **p_iptype = NULL;
- for (p_iptype = *ischeme->ptypes; *p_iptype; p_iptype++) {
- kptype_t *kptype = NULL;
- iptype_t *iptype = *p_iptype;
- kptype = kptype_from_iptype(iptype, error_stack);
- if (!kptype)
- continue;
- kscheme_add_ptype(kscheme, kptype);
- }
- }
- // VIEW list
- if (ischeme->views) {
- iview_t **p_iview = NULL;
- for (p_iview = *ischeme->views; *p_iview; p_iview++) {
- kview_t *kview = NULL;
- iview_t *iview = *p_iview;
- kview = kview_from_iview(iview, error_stack);
- if (!kview)
- continue;
- kscheme_add_view(kscheme, kview);
- }
- }
- return BOOL_TRUE;
- }
- kscheme_t *kscheme_from_ischeme(ischeme_t *ischeme, faux_error_t *error_stack)
- {
- kscheme_t *kscheme = NULL;
- kscheme_error_e kscheme_error = KSCHEME_ERROR_OK;
- kscheme = kscheme_new(&kscheme_error);
- if (!kscheme) {
- if (error_stack)
- faux_error_add(error_stack,
- kscheme_strerror(kscheme_error));
- return NULL;
- }
- kscheme_nested_from_ischeme(kscheme, ischeme, error_stack);
- return kscheme;
- }
|