Mercurial > hg > CbC > old > examples
view dumparg.c @ 7:db61a5375f9b draft
fix Makefile for cbclang
author | one |
---|---|
date | Wed, 07 Jun 2017 14:50:11 +0900 |
parents | e59ebf6fe2b0 |
children |
line wrap: on
line source
extern int printf(char*,...); code opt1(char* p, int i, int argc, char** argv, (*exit0)(int), void* env) { if(*p=='\0'){ printf("\n"); goto opt0(i, argc, argv, exit0, env); } else{ printf("%c", *p); p++; goto opt1(p, i, argc, argv, exit0, env); } } code opt0(int i, int argc, char** argv, (*exit0)(int), void* env) { char* p; if(i<argc){ p=argv[i]; i++; goto opt1(p, i, argc, argv, exit0, env); } goto exit0(0), env; } int main() { char* arg[3]={"program","--file","ahoaho"}; goto opt0(1, 3, arg, return, environment); return 0; }