TempleOSTS_140317.ISO

Kernel/Define1a.CPP

@@ -0,0 +1,145 @@
+CHashDefineStr *DefineLoad(U8 *name,U8 *st)
+{
+  CHashDefineStr *temph=CAlloc(sizeof(CHashDefineStr));
+  temph->type=HTT_DEFINE_STR;
+  temph->str=StrNew(name);
+  temph->data=StrNew(st);
+  temph->cnt=-1;
+  temph->src_link=MPrint("AD:0x%X",Caller);
+  HashAdd(temph,Fs->hash_table);
+  return temph;
+}
+
+CHashDefineStr *DefineLstLoad(U8 *name,U8 *st)
+{ //Not especially efficient but handy.
+  I64 cnt=0;
+  U8 *ptr,**lst;
+  CHashDefineStr *temph=CAlloc(sizeof(CHashDefineStr));
+  temph->type=HTT_DEFINE_STR;
+  temph->str=StrNew(name);
+  temph->src_link=MPrint("AD:0x%X",Caller);
+  ptr=st;
+  while (*ptr) {
+    if (*ptr!='@')
+      cnt++;
+    while (*ptr++);
+  }
+  temph->data=MAlloc(ptr+1-st);
+  MemCpy(temph->data,st,ptr+1-st);
+  temph->cnt=cnt;
+
+  lst=temph->sub_lst=MAlloc(cnt*sizeof(U8 *));
+  ptr=st;
+  while (*ptr) {
+    if (*ptr!='@')
+      *lst++=ptr;
+    while (*ptr++);
+  }
+
+  HashAdd(temph,Fs->hash_table);
+  return temph;
+}
+
+U0 UndefinedDefine(U8 *name)
+{
+  ST_ERR_ST "Undefined Define: '%s'.\n",name;
+  throw('UndefDef');
+}
+
+U8 *Define(U8 *name)
+{
+  CHashDefineStr *temph;
+  if (temph=HashFind(name,Fs->hash_table,HTT_DEFINE_STR))
+    return temph->data;
+  else if (name)
+    UndefinedDefine(name);
+  else
+    return NULL;
+}
+
+U8 *DefineSub(I64 sub,U8 *name)
+{
+  CHashDefineStr *temph;
+  if (temph=HashFind(name,Fs->hash_table,HTT_DEFINE_STR)) {
+    if (0<=sub<temph->cnt)
+      return temph->sub_lst[sub];
+    else
+      return NULL;
+  } else if (name)
+    UndefinedDefine(name);
+  else
+    return NULL;
+}
+
+I64 DefineCnt(U8 *name)
+{
+  CHashDefineStr *temph;
+  if (temph=HashFind(name,Fs->hash_table,HTT_DEFINE_STR))
+    return temph->cnt;
+  else if (name)
+    UndefinedDefine(name);
+  else
+    return -1;
+}
+
+I64 DefineMatch(U8 *needle,U8 *haystack_lst_name,I64 flags=0)
+{
+  return LstMatch(needle,Define(haystack_lst_name),flags);
+}
+
+U0 DefinePrint(U8 *name,U8 *src,...)
+{
+  U8 *buf=SPrintJoin(NULL,src,argc,argv);
+  DefineLoad(name,buf);
+  Free(buf);
+}
+
+U0 SysDefinesLoad()
+{
+  DefineLstLoad("ST_OFF_ON","Off\0On\0");
+  DefineLstLoad("ST_HTT_TYPES","ExportSysSym\0ImportSysSym\0DefineStr\0GlbVar\0Class\0"
+		"IntType\0Funct\0Word\0DictWord\0KeyWord\0AsmKeyWord\0OpCode\0Reg\0"
+		"File\0Module\0HelpFile\0Frame Ptr\0"
+		" \0 \0 \0 \0 \0 \0"
+		"Private\0Public\0Export\0Import\0Imm\0Goto\0Res\0Unres\0Local\0");
+  DefineLstLoad("ST_DAYS_OF_WEEK","Sunday\0Monday\0Tuesday\0Wednesday\0"
+		"Thursday\0Friday\0Saturday\0");
+  DefineLstLoad("ST_MONTHS","January\0February\0March\0April\0May\0"
+		"June\0July\0August\0September\0October\0November\0December\0");
+  DefineLstLoad("ST_FILE_ATTRS","R\0H\0S\0V\0D\0A\0 \0 \0X\0Y\0T\0Z\0C\0F\0");
+  DefineLstLoad("ST_FILE_UTIL_FLAGS","r\0d\0i\0a\0c\0R\0p\0m\0x\0s\0"
+		"D\0F\0T\0S\0A\0J\0G\0Z\0O\0P\0f\0l\0lb\0la\0");
+  DefineLstLoad("ST_BLKDEV_TYPES","NULL\0RAM\0ATA\0ATAPI\0");
+  DefineLstLoad("ST_PRT_TYPES","NULL\0REDSEA\0FAT32\0ISO9660\0ISO13490\0ISO13346\0NTFS\0UNKNOWN\0");
+  DefineLstLoad("ST_COLORS","BLACK\0BLUE\0GREEN\0CYAN\0"
+	"RED\0PURPLE\0BROWN\0LTGRAY\0DKGRAY\0LTBLUE\0LTGREEN\0"
+	"LTCYAN\0LTRED\0LTPURPLE\0YELLOW\0WHITE\0");
+  DefineLstLoad("ST_INT_NAMES",
+	"Divide Error\0SingleStep\0NMI\0Breakpoint\0Overflow\0BOUND Range Exceeded\0Invalid Opcode\0No Math Coprocessor\0"
+	"Double Fault\0Coprocessor Segment Fault\0Invalid TASK\0Segment Not Present\0Stk Segment Fault\0General Protection\0Page Fault\0 \0"
+	"Math Fault\0Alignment Check\0Machine Check\0SIMD Exception\0 \0 \0 \0 \0"
+	" \0 \0 \0 \0 \0 \0 \0 \0"
+	" \0 \0 \0 \0 \0 \0 \0 \0"
+	" \0 \0 \0 \0 \0 \0 \0 \0"
+	"MP Crash\0Wake\0Dbg\0");
+}
+
+U8 *Color2Text(U8 *buf,CColorROPU32 c)
+{
+  if (0<=c.c0.color<16)
+    StrCpy(buf,DefineSub(c.c0.color,"ST_COLORS"));
+  else if (c.c0.color==COLOR_TRANSPARENT)
+    StrCpy(buf,"TRANSPARENT");
+  else
+    StrCpy(buf,"INVALID");
+  if (c&ROPF_DITHER) {
+    CatPrint(buf,"/");
+    if (0<=c.c1.color<16)
+      CatPrint(buf,DefineSub(c.c1.color,"ST_COLORS"));
+    else if (c.c1.color==COLOR_TRANSPARENT)
+      CatPrint(buf,"TRANSPARENT");
+    else
+      CatPrint(buf,"INVALID");
+  }
+  return buf;
+}