/* * Sample Program for microVIEW-G(x) * <<< samp3.c >>> * 1995 @ advice Yokogawa Digital Computer Corp. */ /* * Include Files */ #include "../samp0.h" #include "../samp1.h" #include "../samp2.h" /* * Local Data */ /* * Country Data Processing Function */ char local_big[16][CHAR_SIZE] = {"JAPAN","AUSTRALIA","ITALIA","FRANCE","NEDERLAND", "UNITED KINGDOM","UNITED STATES OF AMERICA", "CHINA","KOREA","SPAIN","IRAN","EGYPT", "MEXICO","PORTUGAL","ROSSIYA","INDIA"}; char local_small[16][CHAR_SIZE] = {"tokyo","canberra","roma","paris","amsterdam", "london","washington", "pei ching","seoul","madrid","teheran","cairo", "mexico city","lisbon","moskva","new delhi"}; int Country( struct SAMP_DATA *data) { int i; struct SAMP_DATA *p; static int *j; /* ADD LOCAL POINTER */ p = data; for (i=0; i < SAMP_DATA_MAX; i++) { Counter(); p->id = i; STRcpy(p->big,local_big[i]); STRcpy(p->small,local_small[i]); p++; j = &i; /* ADD LOCAL POINTER USE */ } return(i); } /* * Fruits and Vegetables Data Processing Function */ char fv_data[][CHAR_SIZE] = { "lemon","banana","cucumber","kiwi", "cabbage","radish","burdock","carrot", "tomato","potato","melon","pumpkin", "pineapple","apple","tangerine","eggplant", "pepper","onion","peach","pear", "persimmon","strawberry","spinach","parsley", "celery","mushroom","turnip","garlic", "cherry","apricot","loquat","papaya" }; int Fr_and_Vg( struct SAMP_DATA *data ) { int i; short counter = 0; struct SAMP_DATA *p; p = data; Counter(); for (i=0; i < SAMP_DATA_MAX; i++) { p->id = counter++; STRcpy(p->big,fv_data[i]); STRcpy(p->small,fv_data[i+16]); p++; } return(counter); } /* * Classic Composeres */ char lname[][CHAR_SIZE] = { "Schubert","Beethoven","Bruckner","Mahler", "Liszt","Wagner","Mendelssohn","Mozart", "Chaikovskii","Dovrak","Bach","Vivaldi", "Strauss","Shostakovich","Berlioz","Brahms" }; char fname[][CHAR_SIZE] = { "Franz","Ludwing","Anton","Gustav", "Franz","Richard","Felix","Amadeus", "Pyotr","Antonin","Johann","Antonio", "Johann","Dimitrii","Hector","Johannes" }; int Compose( struct SAMP_DATA data[]) { int i; for (i=0; i < SAMP_DATA_MAX; i++) { Counter(); data[i].id = 0; STRcpy(data[i].big,fname[i]); STRcpy(data[i].small,lname[i]); } return(0); } /* * HARB */ static char harb[][CHAR_SIZE] = { "allspice", /*01 ピメント(オ〖ルスパイス) */ "amyris", /*02 アミリス */ "angelica", /*03 アンジェリカ */ "anise", /*04 アニス */ "aniseed", /*05 アニス */ "basil", /*06 バジル */ "bay", /*07 ロ〖レル(ベイリ〖ブス) */ "benzoin", /*08 奥漏贯 */ "bergamot", /*09 ベルガモット */ "birch", /*10 バ〖チ */ "cajuput", /*11 カユプテ */ "camphor", /*12 カンファ〖(纠蔷) */ "caraway", /*13 キャラウェイ */ "cardamon", /*14 カルダモン */ "cedarwood", /*15 シダ〖ウッド */ "celery", /*16 セロリ */ "chamomile", /*17 カモミ〖ル */ "cinnamon", /*18 シナモン */ "citronella", /*19 シトロネラ */ "clove", /*20 クロ〖ブ */ "coriander", /*21 コリアンダ〖 */ "cumin", /*22 クミン */ "cypress", /*23 サイプレス */ "dill", /*24 ディル */ "elemi", /*25 エレミ */ "eucalyptus", /*26 ユ〖カリ */ "fennel", /*27 フェンネル */ "fir", /*28 ファ〖 */ "frankincense", /*29 讫贯 */ "galbanum", /*30 ガルバナム */ "garlic", /*31 ガ〖リック */ "geranium", /*32 ゼラニウム */ "ginger", /*33 ジンジャ〖 */ "grapefruit", /*34 グレ〖プフル〖ツ */ "guaiacwood", /*35 グアヤックウッド */ "hyssop", /*36 ヒソップ */ "immortelle", /*37 イモ〖テル */ "jasmine", /*38 ジャスミン */ "juniper", /*39 ジュニパ〖 */ "laurel", /*40 ロ〖レル(ベイリ〖ブス) */ "lavendin", /*41 ラバンジン */ "lavender", /*42 ラベンダ〖 */ "lemon", /*43 レモン */ "lemongrass", /*44 レモングラス */ "lime", /*45 ライム */ "mandarin", /*46 マンダリン */ "marjoram", /*47 マ〖ジョラム */ "melissa", /*48 メリッサ */ "myrrh", /*49 俗挑(ミルラ) */ "myrtle", /*50 マ〖トル */ "neroli", /*51 ネロリ(オレンジ仓) */ "niaouri", /*52 ニアウリ */ "nutmeg", /*53 ナツメグ */ "orange", /*54 オレンジ */ "oregano", /*55 オレガノ */ "origanum", /*56 オリガナム */ "palmarosa", /*57 パルマロ〖ザ */ "parsley", /*58 パセリ */ "patchouli", /*59 パ〖チュリ〖 */ "peppermint", /*60 ペパ〖ミント */ "petitgrain", /*61 プチグレン */ "pimento", /*62 ピメント(オ〖ルスパイス) */ "pine", /*63 パイン */ "rose", /*64 ロ〖ズ */ "rosemary", /*65 ロ〖ズマリ〖 */ "rosewood", /*66 ロ〖ズウッド */ "sage", /*67 セ〖ジ */ "sandalwood", /*68 サンダルウッド */ "santolina", /*69 サントリナ */ "spearmint", /*70 スペアミント */ "tagetes", /*71 タジェティ〖ズ */ "tangerine", /*72 タンジェリン */ "tarragon", /*73 タラゴン(エストラゴン) */ "terebinth", /*74 テレビン */ "thyme", /*75 タイム */ "ti-tree", /*76 ティ〖トリ〖 */ "verbena", /*77 バ〖ベナ */ "vertivert", /*78 ベチバ〖 */ "violet", /*79 バイオレット */ "yarrow", /*80 ヤロウ */ "ylang-ylang" /*81 イランイラン */ }; #define HARB_MAX 81 void Harb ( struct SAMP_DATA data[], int *cnt ) { int i,j; if (*cnt < HARB_MAX) { i = *cnt; } else { i = 0; } for (j=0; j<SAMP_DATA_MAX; j++) { STRcpy( data[j].big, harb[i] ); ++i; if ( i >= HARB_MAX ) { i = 0; } } Counter(); *cnt = i; return; } /* * Data Generate << Flower >> */ int Dataput ( struct SAMP_DATA *data) { int cnt; cnt = SAMP_DATA_MAX; Datasettings( data, cnt ); return(cnt); } int Datasettings( struct SAMP_DATA data[], int n) { int i; int max, ret; max = Datasetup ( data, n ); if (max <= SAMP_DATA_MAX) { for (i=0; i<max; i++) { ret = CmpStr(data[i].comment,data[i].big); if (ret == 0) { break; } } return(0); } else { return(-1); } } /* * Flower data */ char flower_data[][128] = { /* 1 */ "rose ばら", /* 2 */ "tulip チュ〖リップ", /* 3 */ "buttercup きんぽうげ", /* 4 */ "lilac ライラック", /* 5 */ "snowdrop ゆきわりそう", /* 6 */ "aster アスタ〖", /* 7 */ "cosmos コスモス", /* 8 */ "crocus クロッカス", /* 9 */ "lily ユリ", /* 10 */ "daisy デイジ〖", /* 11 */ "pansy パンジ〖", /* 12 */ "orchid 亡", /* 13 */ "dandelion たんぽぽ", /* 14 */ "dahlia ダリア", /* 15 */ "daffodil ラッパ垮犁", /* 16 */ "gladiolus グラジオラス", /* 17 "primrose サクラソウ", */ /* 18 */ "poppy ポピ〖", /* 19 */ "iris アイリス", /* 20 */ "columbline おだまき", /* 21 */ "edelweiss エ〖デルワイス", /* 22 */ "violet すみれ", /* 23 */ "anemone アネモネ" }; #define FLOWER_MAX 23 int Datasetup(struct SAMP_DATA data[],int n) { int i; for (i=0; ; i++) { if (i < FLOWER_MAX && i < n) { data[i].comment = flower_data[i]; } else { break; } } return(i); } /* EOF */