HAL is IBM, Objective-C

HAL is IBM

#include<stdio.h>
#include<stdlib.h>
#include<string.h>

#define F1(type) typedef type (*type##F1)(type);
#define FOR PROFILE("\n_FOR_ ");for
#define FREE(memory) PROFILE("\n_FREE_ ");free(memory)
#define MAIN0(block) int main();
#define MAIN1(block) int main() block
#define NODE(type) typedef struct type##n{type value;struct type##n *next;} type##n;
#define POINTER(type) typedef type * type##p;
#define PROFILE(string) PROFILE1(string)
#define PROFILE0(string)
#define PROFILE1(string) printf(string)
#define RETURN(string,value) PROFILE("\n_RETURN_");PROFILE(string);PROFILE("_ ");return value
#define RETURN_MAIN(value) PROFILE("\n_RETURN_MAIN_ ");RETURN_MAIN1(value)
#define RETURN_MAIN0(value) return value
#define RETURN_MAIN1(value) if(value==0) return main();return value
#define TYPEDEF typedef char CH;typedef signed char SCH;typedef unsigned char UCH;typedef short SH;typedef unsigned short USH;typedef int IN;typedef unsigned int UIN;typedef long LO;typedef unsigned long ULO;typedef long long LL;typedef unsigned long long ULL;typedef float FL;typedef double DB;typedef long double LD;
#define WHILE PROFILE("\n_WHILE_ ");while

#define AddOne0(type) type type##AddOne(type value);
#define AddOne1(type) type type##AddOne(type value){PROFILE("\n_AddOne_ ");return value+1;}
#define AssertSmallLessThanOrEqualToLarge(small,large) PROFILE("\n_AssertSmallLessThanOrEqualToLarge_ ") small<=large
#define AssignVariableTheValue(variable,value) PROFILE("\n_AssignVariableTheValue_ ");variable=value
#define CopyString(string) CHpCopyString(string)
#define CopyString0 CHp CHpCopyString(CHp string);
#define CopyString1 CHp CHpCopyString(CHp string){CHp copy;ULL count;AssignVariableTheValue(count,strlen(string)+1);AssignVariableTheValue(copy,(CHp)malloc(count*sizeof(CH)));AssignVariableTheValue(count,0);WHILE(string[count]!=0){AssignVariableTheValue(copy[count],string[count]);IncrementVariable(count);}AssignVariableTheValue(copy[count],0);RETURN("CopyString",copy);}
#define ExampleForLoopWithTypeAndStartAndStopAndFormatString(type,start,stop,formatString) {type i;FOR(i=start;i<=stop;++i){PrintString("hello: ");PrintWithFormatStringAndValue(formatString,i);PrintString("\n");}RETURN_MAIN(0);}
#define ExampleListWithType(type){type##np list;AssignVariableTheValue(list,type##PushWithValueAndList(124,NULL));AssignVariableTheValue(list,type##PushWithValueAndList(123,list));PrintWithFormatStringAndValue("%d\n",list->value);PrintWithFormatStringAndValue("%d\n",list->next->value);RETURN_MAIN(0);}
#define ExampleString(string) {ULL i;CH c;CHp s;CHF1 function;AssignVariableTheValue(function,&CHAddOne);AssignVariableTheValue(s,CopyString(string));AssignVariableTheValue(s,CHMapFunctionOverArray(function,s));AssignVariableTheValue(i,0);WHILE((c=s[i++])!=0){PrintWithFormatStringAndValue("%c\n",c);}FREE(s);RETURN_MAIN(0);}
#define IncrementVariable(variable) PROFILE("\n_IncrementVariable_ ");++variable
#define MapFunctionOverArray0(type) type##p type##MapFunctionOverArray(type##F1 function,type##p array);
#define MapFunctionOverArray1(type) type##p type##MapFunctionOverArray(type##F1 function,type##p array){ULL i;AssignVariableTheValue(i,0);WHILE(array[i]!=0){AssignVariableTheValue(array[i],(*function)(array[i]));IncrementVariable(i);}RETURN("MapFunctionOverArray",array);}
#define PrintString(string) PROFILE("\n_PrintString_ ");printf(string)
#define PrintWithFormatStringAndValue(formatString,value) PROFILE("\n_PrintWithFormatStringAndValue_ ");printf(formatString,value)
#define PushWithValueAndList0(type) type##np type##PushWithValueAndList(type value,type##np list);
#define PushWithValueAndList1(type) type##np type##PushWithValueAndList(type value,type##np list){type##np temp;AssignVariableTheValue(temp,(type##np)malloc(sizeof(type##n)));AssignVariableTheValue(temp->value,value);AssignVariableTheValue(temp->next,list);RETURN("PushWithValueAndList",temp);}

TYPEDEF
POINTER(CH)
F1(CH)

MAIN0(ExampleString("HAL"))
CopyString0
AddOne0(CH)
MapFunctionOverArray0(CH)

MapFunctionOverArray1(CH)
AddOne1(CH)
CopyString1
MAIN1(ExampleString("HAL"))


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development