void ADVKATA (void)
{
//algoritma
Ignore_Blank();
if (!EOP()) {
SalinKata();
} else {
EndKata = true;
}
}
void STARTKATA(void)
{
/* Kamus Lokal */
// Algoritma
START();
Ignore_Blank();
if (EOP() || CC == BLANK ) {
EndKata = true;
} else {
SalinKata();
}
}
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 ADVKATA (void) {
/* I.S. : EndKata = false; CC adalah karakter sesudah karakter terakhir dari kata
yang sudah diakuisisi
F.S. : Jika CC = MARK, maka EndKata = true atau EndKata = false,
CKata adalah kata terakhir yang sudah diakuisisi;
CC karakter pertama sesudah karakter terakhir kata */
/* Kamus */
/* Algoritma */
Ignore_Blank();
if (EOP()) {
EndKata=true;
} else {
SalinKata();
}
}
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 STARTKATA (void) {
/* 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 */
/* Kamus */
/* Algoritma */
START();
Ignore_Blank();
if (EOP()) {
EndKata=true;
} else {
EndKata=false;
SalinKata();
}
}
void ADVKATA()
/* I.S. : CC adalah karakter sesudah karakter terakhir dari kata yang sudah diakuisisi
F.S. : CKata adalah kata terakhir yang sudah diakuisisi,
CC karakter pertama sesudah karakter terakhir kata
Jika CC = MARK, EndKata = true.
Proses : Akuisisi kata menggunakan procedure SalinKata */
{ /* Kamus Lokal */
/* Algoritma */
IgnoreBlank();
if (CC == MARK)
{
EndKata = true;
}
else /* CC != MARK */
{
SalinKata();
}
}
void STARTKATA()
/* 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 */
{ /* Kamus Lokal */
/* Algoritma */
START();
IgnoreBlank();
if (CC == MARK)
{
EndKata = true;
}
else /* CC != MARK */
{
EndKata = false;
SalinKata();
}
}
