Return to salary.py CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / pepy

Annotation of 43BSDReno/contrib/isode-beta/pepy/salary.py, revision 1.1.1.1

1.1       root        1: SalaryDefs DEFINITIONS ::=
                      2: 
                      3: %{
                      4: #include <stdio.h>
                      5: 
                      6: #define PEPYPARM struct salary_record *
                      7: 
                      8: 
                      9: static char *myname = "salary";
                     10: 
                     11: static struct salary_record {
                     12:     char   *name;
                     13:     int     salary;
                     14: }                           salary;
                     15: 
                     16: 
                     17: void   adios ();
                     18: 
                     19: /*  */
                     20: 
                     21: /* ARGSUSED */
                     22: 
                     23: main (argc, argv, envp)
                     24: int     argc;
                     25: char  **argv,
                     26:       **envp;
                     27: {
                     28:     PE     pe;
                     29: 
                     30:     myname = argv[0];
                     31: 
                     32:     if (argc != 3)
                     33:        adios (NULLCP, "usage: %s name salary", myname);
                     34:     salary.name = argv[1];
                     35:     salary.salary = atoi (argv[2]);
                     36: 
                     37:     if (build_SalaryDefs_Salary (&pe, 1, NULL, NULLCP, &salary) == NOTOK)
                     38:        adios (NULLCP, "encoder fails");
                     39: 
                     40:     salary.name = NULL;
                     41:     salary.salary = 0;
                     42: 
                     43:     if (unbuild_SalaryDefs_Salary (pe, 1, NULLIP, NULLVP, &salary) == NOTOK)
                     44:        adios (NULLCP, "decoder fails");
                     45: 
                     46:     exit (0);                  /* NOTREACHED */
                     47: }
                     48: %}
                     49: 
                     50: BEGIN
                     51: 
                     52: SECTIONS build unbuild none
                     53: 
                     54: Salary ::=
                     55:        SEQUENCE {
                     56:            name
                     57:                PrintableString [[s parm -> name]]
                     58:                %{ printf("name %s ", parm -> name); %},
                     59: 
                     60:            salary
                     61:                TheSalary [[i parm -> salary ]]
                     62:                %{ printf("salary %d\n", parm -> salary); %}
                     63:        }
                     64: 
                     65: TheSalary ::=
                     66:        INTEGER
                     67: 
                     68: END
                     69: 
                     70: %{
                     71: 
                     72: /*    ERRORS */
                     73: 
                     74: #include <varargs.h>
                     75: 
                     76: 
                     77: #ifndef        lint
                     78: void   _advise ();
                     79: 
                     80: 
                     81: static void  adios (va_alist)
                     82: va_dcl
                     83: {
                     84:     va_list ap;
                     85: 
                     86:     va_start (ap);
                     87: 
                     88:     _advise (ap);
                     89: 
                     90:     va_end (ap);
                     91: 
                     92:     _exit (1);
                     93: }
                     94: #else
                     95: /* VARARGS */
                     96: 
                     97: static void  adios (what, fmt)
                     98: char   *what,
                     99:        *fmt;
                    100: {
                    101:     adios (what, fmt);
                    102: }
                    103: #endif
                    104: 
                    105: 
                    106: #ifndef        lint
                    107: static void  advise (va_alist)
                    108: va_dcl
                    109: {
                    110:     va_list ap;
                    111: 
                    112:     va_start (ap);
                    113: 
                    114:     _advise (ap);
                    115: 
                    116:     va_end (ap);
                    117: }
                    118: 
                    119: 
                    120: static void  _advise (ap)
                    121: va_list        ap;
                    122: {
                    123:     char    buffer[BUFSIZ];
                    124: 
                    125:     asprintf (buffer, ap);
                    126: 
                    127:     (void) fflush (stdout);
                    128: 
                    129:     fprintf (stderr, "%s: ", myname);
                    130:     (void) fputs (buffer, stderr);
                    131:     (void) fputc ('\n', stderr);
                    132: 
                    133:     (void) fflush (stderr);
                    134: }
                    135: #else
                    136: /* VARARGS */
                    137: 
                    138: static void  advise (what, fmt)
                    139: char   *what,
                    140:        *fmt;
                    141: {
                    142:     advise (what, fmt);
                    143: }
                    144: #endif
                    145: 
                    146: %}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.