flie writing in tcl

This commit is contained in:
rebane
2016-08-22 14:03:53 +03:00
parent c2812eb987
commit 6e4f8d7dbd
5 changed files with 93 additions and 52 deletions

View File

@@ -11,13 +11,13 @@ int main(){
while(1){
l = read(0, buffer, 24);
if(l < 1)break;
if(started)printf(",\n");
if(started)printf("\n");
started = 1;
printf("\t");
for(i = 0; i < l; i += 4){
value = ((uint32_t)buffer[i + 0] << 0) | ((uint32_t)buffer[i + 1] << 8) | ((uint32_t)buffer[i + 2] << 16) | ((uint32_t)buffer[i + 3] << 24);
if(i)printf(", ");
printf("%d, 0x%08X", index++, (unsigned int)value);
if(i)printf(" ");
printf("%d 0x%08X", index++, (unsigned int)value);
}
}
printf("\n");