ischeme.c 586 B

123456789101112131415161718192021222324252627282930
  1. #include <stdlib.h>
  2. #include <stdio.h>
  3. #include <string.h>
  4. #include <assert.h>
  5. #include <faux/str.h>
  6. #include <faux/list.h>
  7. #include <klish/kview.h>
  8. #include <klish/kscheme.h>
  9. kscheme_t *kscheme_from_ischeme(kscheme_t *kscheme, ischeme_t *ischeme, faux_list_t *error_stack)
  10. {
  11. // iview_t *iview = NULL;
  12. kview_t *kview = NULL;
  13. if (!kscheme)
  14. return NULL;
  15. if (ischeme->views) {
  16. iview_t **piview = NULL;
  17. for (piview = *ischeme->views; *piview; piview++) {
  18. printf("view %p %s\n", *piview, (*piview)->name);
  19. }
  20. kview = kview;
  21. }
  22. error_stack = error_stack;
  23. return NULL;
  24. }