forked from REXNJAZZZ2103/Kolab-GameDev-2017
/
mesinkata.c
92 lines (82 loc) · 1.71 KB
/
mesinkata.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
#include "mesinkata.h"
#include "mesinkar.h"
#include <stdio.h>
boolean EndKata;
Kata CKata;
void IgnoreBlank(boolean bacafile)
{
while((CC==NEWLINE||CC==BLANK)&&CC!=MARK){
if(bacafile)
ADVFILE();
else
ADVCLI();
}
}
void STARTKATA(boolean bacafile)
/* I.S. : CC sembarang
F.S. : EndKata = true, dan CC = MARK;
atau EndKata = false, CKata adalah kata yang sudah diakuisisi,
CC karakter pertama sesudah karakter terakhir kata */
{
if(bacafile)
STARTFILE();
else
STARTCLI();
IgnoreBlank(bacafile);
EndKata = CC==MARK;
if(!EndKata)
SalinKata(bacafile);
}
void ADVKATA(boolean bacafile)
/* I.S. : CC adalah karakter pertama kata yang akan diakuisisi
F.S. : CKata adalah kata terakhir yang sudah diakuisisi,
CC adalah karakter pertama dari kata berikutnya, mungkin MARK
Jika CC = MARK, EndKata = true.
Proses : Akuisisi kata menggunakan procedure SalinKata */
{
IgnoreBlank(bacafile);
EndKata = CC==MARK;
if(!EndKata){
SalinKata(bacafile);
}
}
void SalinKata(boolean bacafile)
{
int i;
for(i=1;i<=NKMax && (CC!=MARK&&CC!=BLANK);i++){
CKata.TabKata[i]=CC;
if(bacafile)
ADVFILE();
else
ADVCLI();
}
CKata.Length = i-1;
}
boolean IsSama(Kata K1, Kata K2){
int i;
for(i = 1;i<=K1.Length&&i<=K2.Length;i++){
if(K1.TabKata[i] != K2.TabKata[i])
return false;
}
return K1.Length == K2.Length;
}
boolean IsBilangan(Kata K){
int i;
for(i=1;i<=K.Length;i++){
if(K.TabKata[i]<'0' || K.TabKata[i]>'9')
return false;
}
return K.Length>0;
}
int KatatoBilangan(Kata K){
int n=0,i;
for(i=1;i<=K.Length;i++){
n=n*10+K.TabKata[i]-'0';
}
return n;
}
void PrintKata(Kata K){
int i;
for(i=1;i<=K.Length;i++)
printf("%c",K.TabKata[i]);
}