seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-24 17:04:19 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

135
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/test/stream7.c Normal file
View File

@@ -0,0 +1,135 @@
/*****************************************************************************/
/* */
/* Test Program for Sscanf and scanf. */
/* 8-17-82. FMB. */
/* Modified by B.Fitler */
/* */
/*****************************************************************************/
#include <stdio.h>
#define G "This is a string...with dots & spaces. \0!"
#define F "5691a24This is a buffer string. z37"
#define H "$$$...........$$$$\0"
#define BUFFMAX 100
#define E "-1234567890"
#define E1 "%3hd%*2d%2hd%*2d%2hd"
main()
{
WORD wd1,wd2,wd3; /* For hex,octal,etc. */
BYTE ch1,ch2,ch3,; /* For char's */
LONG dec1,dec2,dec3,dec4; /* For decimals */
WORD ni1,ni2; /* Item counts */
BYTE buff1[BUFFMAX],buff2[BUFFMAX]; /* String buffers */
printf("\n\t\tBegin Test # 7 for Sscanf and scanf.\n\n");
/************************/
/* Begin Program */
/* Test one string */
/************************/
ni1 = sscanf(G,"%[^!]",buff1);
if (ni1 != 1)
printf("\nSscanf returned bad item count.\n");
if (strcmp(G,buff1) != NULL)
printf("\nSscanf failed on whole string transfer.\n");
ni1 = sscanf(H,"%s",buff2);
if (ni1 != 1)
{
printf("\nSscanf returned bad item count.\n");
printf("Nitems was %d .\n",ni1);
}
/************************/
/* Print out both. */
/* They should match. */
/************************/
printf("Testing echo to screen.........................\n");
puts(buff1);
puts(buff2);
/************************/
/* Try multiple arg's */
/************************/
ni2 = sscanf(F,"%4D%3x%[^.]. %c%ho",&dec1,&wd1,buff1,&ch1,&wd2);
if (ni2 != 5)
{
printf("\nSscanf returned bad item count.\n");
printf("Nitems was %d.\n",ni2);
}
if (dec1 != 5691)
printf("\n6-digit decimal not transferred correctly.\n");
if (wd1 != 0xa24)
printf("\n3-digit hex not done correctly.\n");
if (ch1 != 'z')
printf("\nSingle char not assigned correctly.\n");
if (wd2 != 037)
printf("\n2-digit octal not assigned correctly.\n");
/***********************/
/* Print string */
/***********************/
puts(buff1);
printf("\n");
/***********************/
/* Unix examples. */
/***********************/
printf("Waiting for one decimal # (2 digits) and one string.\n");
ni2 = scanf("%d %s",&wd3,buff2);
if (ni2 != 2)
printf("\nScanf returned bad item count.\n");
printf("%d %s",wd3,buff2);
printf("\nWaiting for a decimal # (3 digits) and a name.\n");
ni2 = scanf("%2d%*d%s",&wd2,buff2);
if (ni2 != 2)
{
printf("\nScanf returned bad item count.\n");
printf("Item count was %d.\n",ni2);
}
printf("Decimal should be 2 of 3 digits :%2d and the name %s.\n",
wd2,buff2);
/**************************/
/* More sscanf stuff. */
/**************************/
#define E2 "%3ld%*2d%2ld%*2d%2ld"
ni1 = sscanf(E,E2,&dec1,&dec2,&dec3);
printf("Sscanf:\tscanned\t///%s///\tusing\t%s\n\t\tfound (%d)\t%ld %ld %ld\n",
E,E2,ni1,dec1,dec2,dec3);
#define E3 "%3D%*2D%2D%*2D%2D"
ni1 = sscanf(E,E3,&dec1,&dec2,&dec3);
printf("Sscanf:\tscanned\t///%s///\tusing\t%s\n\t\tfound (%d)\t%ld %ld %ld",
E,E3,ni1,dec1,dec2,dec3);
#define E4 "%3d%*2d%2d%*2d%2d"
ni1 = sscanf(E,E4,&dec1,&dec2,&dec3);
printf("\nSscanf:\tscanned\t///%s///\tusing\t%s\n\t\tfound (%d)\t%d %d %d\n",
E,E4,ni1,dec1,dec2,dec3);
printf("\n\n\t\t\tEnd Test # 7\n");
/***********************/
/* End for now. */
/***********************/
}