aboutsummaryrefslogtreecommitdiff
path: root/nx-X11/config/pswrap/pswsemantics.c
diff options
context:
space:
mode:
Diffstat (limited to 'nx-X11/config/pswrap/pswsemantics.c')
-rw-r--r--nx-X11/config/pswrap/pswsemantics.c551
1 files changed, 0 insertions, 551 deletions
diff --git a/nx-X11/config/pswrap/pswsemantics.c b/nx-X11/config/pswrap/pswsemantics.c
deleted file mode 100644
index caaff800e..000000000
--- a/nx-X11/config/pswrap/pswsemantics.c
+++ /dev/null
@@ -1,551 +0,0 @@
-/*
- * pswsemantics.c
- *
- * (c) Copyright 1988-1994 Adobe Systems Incorporated.
- * All rights reserved.
- *
- * Permission to use, copy, modify, distribute, and sublicense this software
- * and its documentation for any purpose and without fee is hereby granted,
- * provided that the above copyright notices appear in all copies and that
- * both those copyright notices and this permission notice appear in
- * supporting documentation and that the name of Adobe Systems Incorporated
- * not be used in advertising or publicity pertaining to distribution of the
- * software without specific, written prior permission. No trademark license
- * to use the Adobe trademarks is hereby granted. If the Adobe trademark
- * "Display PostScript"(tm) is used to describe this software, its
- * functionality or for any other purpose, such use shall be limited to a
- * statement that this software works in conjunction with the Display
- * PostScript system. Proper trademark attribution to reflect Adobe's
- * ownership of the trademark shall be given whenever any such reference to
- * the Display PostScript system is made.
- *
- * ADOBE MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE SOFTWARE FOR
- * ANY PURPOSE. IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
- * ADOBE DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
- * IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
- * NON- INFRINGEMENT OF THIRD PARTY RIGHTS. IN NO EVENT SHALL ADOBE BE LIABLE
- * TO YOU OR ANY OTHER PARTY FOR ANY SPECIAL, INDIRECT, OR CONSEQUENTIAL
- * DAMAGES OR ANY DAMAGES WHATSOEVER WHETHER IN AN ACTION OF CONTRACT,
- * NEGLIGENCE, STRICT LIABILITY OR ANY OTHER ACTION ARISING OUT OF OR IN
- * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ADOBE WILL NOT
- * PROVIDE ANY TRAINING OR OTHER SUPPORT FOR THE SOFTWARE.
- *
- * Adobe, PostScript, and Display PostScript are trademarks of Adobe Systems
- * Incorporated which may be registered in certain jurisdictions
- *
- * Author: Adobe Systems Incorporated
- */
-
-/***********/
-/* Imports */
-/***********/
-
-#include <stdlib.h>
-#include <stdio.h>
-
-#ifdef XENVIRONMENT
-#include <X11/Xos.h>
-#else
-#include <string.h>
-#endif
-
-#include "pswdict.h"
-#include "pswpriv.h"
-#include "pswsemantics.h"
-
-/***********************/
-/* Module-wide globals */
-/***********************/
-
-char *currentPSWName = NULL;
-int reportedPSWName = 0;
-
-static PSWDict currentDict = NULL;
-
-
-/*************************************************/
-/* Procedures called by the parser's annotations */
-/*************************************************/
-
-static boolean IsCharType(Type t)
-{
- return (t == T_CHAR || t == T_UCHAR);
-}
-
-static boolean IsNumStrType(Type t)
-{
- return (t == T_NUMSTR
- || t == T_FLOATNUMSTR
- || t == T_LONGNUMSTR
- || t == T_SHORTNUMSTR);
-}
-
-void PSWName(char *s)
-{
- currentPSWName = psw_malloc(strlen(s)+1);
- strcpy(currentPSWName, s);
- reportedPSWName = 0;
-}
-
- /* Generate the code for this wrap now */
-void FinalizePSWrapDef(Header hdr, Body body)
-{
- if (header && ! hdr->isStatic) EmitPrototype(hdr);
-
- printf("#line %d \"%s\"\n", ++outlineno, ofile);
- EmitBodyHeader(hdr);
-
- printf("{\n"); outlineno++;
- EmitBody(body, hdr);
- printf("}\n"); outlineno++;
- printf("#line %d \"%s\"\n", yylineno, ifile); outlineno++;
-
- /* release storage for this wrap */
- /* Omit if you have lots of memory and want pswrap lean and mean */
- if (bigFile) {
- register Arg arg, nextarg; register Item item, nextitem;
- for(arg = hdr->inArgs; arg; arg = nextarg) {
- nextarg = arg->next;
- for(item = arg->items; item; item = nextitem) {
- nextitem = item->next;
- if (item->subscripted) {
- if (!item->subscript->constant) free(item->subscript->name);
- free(item->subscript);
- if(item->scaled) {
- if (!item->scale->constant) free(item->scale->name);
- free(item->scale);
- }
- }
- free(item->name); free(item);
- }
- free(arg);
- }
- for(arg = hdr->outArgs; arg; arg = nextarg) {
- nextarg = arg->next;
- for(item = arg->items; item; item = nextitem) {
- nextitem = item->next;
- if (item->subscripted) {
- if (!item->subscript->constant) free(item->subscript->name);
- free(item->subscript);
- }
- free(item->name); free(item);
- }
- free(arg);
- }
- free(hdr->name); free(hdr);
- FreeBody(body);
- }
-
- DestroyPSWDict(currentDict);
- currentDict = NULL;
- currentPSWName = NULL;
- reportedPSWName = 0;
-}
-
- /* Complete construction of the Header tree and make some semantic checks */
-Header PSWHeader(boolean isStatic, Args inArgs, Args outArgs)
-{
- char *name = currentPSWName;
- register Arg arg, prevArg;
- register Item item, prevItem;
- int nextTag = 0;
-
- Header hdr = (Header)psw_calloc(sizeof(HeaderRec), 1);
- hdr->isStatic = isStatic;
- hdr->name = name;
-
- currentDict = CreatePSWDict(511);
-
- prevArg = NULL;
- for (arg = inArgs; arg; arg = arg->next) { /* foreach input arg */
- prevItem = NULL;
- for (item = arg->items; item; item = item->next) {
- if (IsCharType(arg->type)
- && !(item->starred || item->subscripted)) {
- ErrIntro(item->sourceLine);
- fprintf(stderr,
- "char input parameter %s must be starred or subscripted\n",
- item->name);
- /* remove item from list */
- if (prevItem) {prevItem->next = item->next;}
- else if (item == arg->items) {arg->items = item->next;};
- /* free(item); XXX? */
- continue;
- }
- if(item->scaled && !IsNumStrType(arg->type)) {
- ErrIntro(item->sourceLine);
- fprintf(stderr,"only numstring parameters may be scaled\n");
- }
- if (IsNumStrType(arg->type)
- && (item->starred || !item->subscripted)) {
- ErrIntro(item->sourceLine);
- fprintf(stderr,
- "numstring parameter %s may only be subscripted\n",
- item->name);
- /* remove item from list */
- if (prevItem) {prevItem->next = item->next;}
- else if (item == arg->items) {arg->items = item->next;};
- /* free(item); XXX? */
- continue;
- }
- if (arg->type != T_CONTEXT) {
- if (PSWDictLookup(currentDict, item->name) != -1) {
- ErrIntro(item->sourceLine);
- fprintf(stderr,"parameter %s reused\n", item->name);
- if (prevItem) {prevItem->next = item->next;}
- else if (item == arg->items) {arg->items = item->next;};
- /* free this ? */
- continue;
- }
- PSWDictEnter(currentDict, item->name, (PSWDictValue) item);
- item->isoutput = false;
- item->type = arg->type;
- prevItem = item;
- }
- }
- if (arg->items == NULL) {
- if (prevArg) { prevArg->next = arg->next;}
- else if (arg == inArgs) {inArgs = arg->next;}
- continue;
- }
- prevArg = arg;
- }
-
- prevArg = NULL;
- for (arg = outArgs; arg; arg = arg->next) { /* foreach output arg */
- prevItem = NULL;
- for (item = arg->items; item; item = item->next) {
- if (arg->type == T_USEROBJECT) {
- ErrIntro(item->sourceLine);
- fprintf(stderr,"output parameter %s can not be of type userobject\n",
- item->name);
- /* remove item from list */
- if (prevItem) {prevItem->next = item->next;}
- else if (item == arg->items) {arg->items = item->next;};
- /* free(item); XXX */
- continue;
- }
- if (arg->type == T_NUMSTR || arg->type == T_FLOATNUMSTR
- || arg->type == T_LONGNUMSTR || arg->type == T_SHORTNUMSTR) {
- ErrIntro(item->sourceLine);
- fprintf(stderr,"output parameter %s can not be of type numstring\n",
- item->name);
- /* remove item from list */
- if (prevItem) {prevItem->next = item->next;}
- else if (item == arg->items) {arg->items = item->next;};
- /* free(item); XXX */
- continue;
- }
- if (!(item->starred || item->subscripted)) {
- ErrIntro(item->sourceLine);
- fprintf(stderr,"output parameter %s must be starred or subscripted\n",
- item->name);
- /* remove item from list */
- if (prevItem) {prevItem->next = item->next;}
- else if (item == arg->items) {arg->items = item->next;};
- /* free(item); XXX */
- continue;
- }
- if (PSWDictLookup(currentDict, item->name) != -1) {
- ErrIntro(item->sourceLine);
- fprintf(stderr,"parameter %s reused\n", item->name);
- /* remove item from list */
- if (prevItem) {prevItem->next = item->next;}
- else if (item == arg->items) {arg->items = item->next;};
- /* free the storage? XXX */
- continue;
- }
- PSWDictEnter(currentDict, item->name, (PSWDictValue) item);
- item->isoutput = true;
- item->type = arg->type;
- item->tag = nextTag++;
- prevItem = item;
- } /* inside for loop */
- if (arg->items == NULL) {
- if (prevArg) {
- prevArg->next = arg->next;
- } else if (arg == outArgs) {
- outArgs = arg->next;
- }
- continue;
- }
- prevArg = arg;
- } /* outside for loop */
-
- /* now go looking for subscripts that name an input arg */
- for (arg = inArgs; arg; arg = arg->next) { /* foreach input arg */
- for (item = arg->items; item; item = item->next) {
- if (item->subscripted && !item->subscript->constant) {
- PSWDictValue v = PSWDictLookup(currentDict, item->subscript->name);
- if (v != -1) {
- Item subItem = (Item)v;
- if (subItem->isoutput) {
- ErrIntro(subItem->sourceLine);
- fprintf(stderr,"output parameter %s used as a subscript\n",
- subItem->name);
- continue;
- }
- if (subItem->type != T_INT) {
- ErrIntro(subItem->sourceLine);
- fprintf(stderr,
- "input parameter %s used as a subscript is not an int\n",
- subItem->name);
- continue;
- }
- }
- }
- }
- }
-
- for (arg = outArgs; arg; arg = arg->next) { /* foreach output arg */
- for (item = arg->items; item; item = item->next) {
- if (item->subscripted && !item->subscript->constant) {
- PSWDictValue v = PSWDictLookup(currentDict, item->subscript->name);
- if (v != -1) {
- Item subItem = (Item)v;
- if (subItem->isoutput) {
- ErrIntro(subItem->sourceLine);
- fprintf(stderr,"output parameter %s used as a subscript\n",
- subItem->name);
- continue;
- }
- if (subItem->type != T_INT) {
- ErrIntro(subItem->sourceLine);
- fprintf(stderr,
- "input parameter %s used as a subscript is not an int\n",
- subItem->name);
- continue;
- }
- }
- }
- }
- }
-
- hdr->inArgs = inArgs;
- hdr->outArgs = outArgs;
-
- return hdr;
-}
-
-Token PSWToken(Type type, char *val)
-{
- register Token token = (Token)psw_calloc(sizeof(TokenRec), 1);
-
- token->next = NULL;
- token->type = type;
- token->val = val;
- token->sourceLine = yylineno;
-
- switch (type) {
- case T_STRING:
- case T_NAME:
- case T_LITNAME: {
- Item dictVal = (Item) PSWDictLookup(currentDict, (char *)val);
- if ((PSWDictValue) dictVal != -1) {
- if ((type != T_NAME) && (dictVal->isoutput)) {
- ErrIntro(yylineno);
- fprintf(stderr,"output parameter %s used as %s\n",
- dictVal->name,
- (type == T_STRING) ? "string": "literal name");
- } else
- if ((type != T_NAME) && !IsCharType(dictVal->type)) {
- ErrIntro(yylineno);
- fprintf(stderr,"non-char input parameter %s used as %s\n",
- dictVal->name,
- (type == T_STRING) ? "string": "literal name");
- } else
- token->namedFormal = dictVal; /* ok, so assign a value */
- }
- break;
- }
- default:
- break;
- }
-
- return token;
-}
-
-Token PSWToken2(Type type, char *val, char *ind)
-{
- register Token token = (Token)psw_calloc(sizeof(TokenRec), 1);
- Item dictVal = (Item) PSWDictLookup(currentDict, val);
- Item dvi;
-
- token->next = NULL;
- token->type = type;
- token->val = val;
- token->sourceLine = yylineno;
-
- /* Assert(type == T_SUBSCRIPTED); */
- if (((PSWDictValue) dictVal == -1) || (dictVal->isoutput)) {
- ErrIntro(yylineno);
- fprintf(stderr,"%s not an input parameter\n", val);
- }
- else if (!dictVal->subscripted) {
- ErrIntro(yylineno);
- fprintf(stderr,"%s not an array\n", val);
- }
- else if (dictVal->type >= T_NUMSTR) {
- ErrIntro(yylineno);
- fprintf(stderr,"cannot subscript numstring %s\n", val);
- }
- else if (IsCharType(dictVal->type)) {
- ErrIntro(yylineno);
- fprintf(stderr,"%s not a scalar type\n", val);
- }
- else {
- dvi = (Item) PSWDictLookup(currentDict, (char *)ind);
- if (((PSWDictValue) dvi != -1)
- && ((dvi->isoutput) || IsCharType(dvi->type))) {
- ErrIntro(yylineno);
- fprintf(stderr,"%s wrong type\n",(char *) ind);
- }
- else {
- token->body.var = (char *) ind;
- token->namedFormal = dictVal; /* ok, so assign a value */
- return token;
- }
- }
-
- /* ERRORS fall through */
- free(token);
- return (PSWToken(T_NAME,val));
-}
-
-Arg PSWArg(Type type, Items items)
-{
- register Arg arg = (Arg)psw_calloc(sizeof(ArgRec), 1);
- arg->next = NULL;
- arg->type = type;
- arg->items = items;
- return arg;
-}
-
-Item PSWItem(char *name)
-{
- register Item item = (Item)psw_calloc(sizeof(ItemRec), 1);
- item->next = NULL;
- item->name = name;
- item->sourceLine = yylineno;
- return item;
-}
-
-Item PSWStarItem(char *name)
-{
- register Item item = (Item)psw_calloc(sizeof(ItemRec), 1);
- item->next = NULL;
- item->name = name;
- item->starred = true;
- item->sourceLine = yylineno;
- return item;
-}
-
-Item PSWSubscriptItem(char *name, Subscript subscript)
-{
- register Item item = (Item)psw_calloc(sizeof(ItemRec), 1);
- item->next = NULL;
- item->name = name;
- item->subscript = subscript;
- item->subscripted = true;
- item->sourceLine = yylineno;
- return item;
-}
-
-Item PSWScaleItem(char *name, Subscript subscript, char *nameval, int val)
-{
- Item item;
- Scale scale = (Scale)psw_calloc(sizeof(ScaleRec), 1);
- item = PSWSubscriptItem(name, subscript);
- item->scaled = true;
- if(nameval)
- scale->name = nameval;
- else {
- scale->constant = true;
- scale->val = val;
- }
- item->scale = scale;
- return(item);
-}
-
-Subscript PSWNameSubscript(char *name)
-{
- Subscript subscript = (Subscript)psw_calloc(sizeof(SubscriptRec), 1);
- subscript->name = name;
- return subscript;
-}
-
-Subscript PSWIntegerSubscript(int val)
-{
- Subscript subscript = (Subscript)psw_calloc(sizeof(SubscriptRec), 1);
- subscript->constant = true;
- subscript->val = val;
- return subscript;
-}
-
-Args ConsPSWArgs(Arg arg, Args args)
-{
- arg->next = args;
- return arg;
-}
-
-Tokens AppendPSWToken(Token token, Tokens tokens)
-{
- register Token t;
- static Token firstToken, lastToken; /* cache ptr to last */
-
- if ((token->type == T_NAME) && (token->namedFormal)) {
- if( token->namedFormal->isoutput) {
- Token oldtoken;
- char *pos = "printobject";
- char *ss = psw_malloc(strlen(pos) + 1);
- strcpy(ss, pos);
- free(token->val);
- oldtoken = token;
- token = PSWToken(T_INT, (char *) token->namedFormal->tag);
- free((char *)oldtoken);
- token->next = PSWToken(T_NAME, ss);
- } else
- if (token->namedFormal->type == T_USEROBJECT) {
- char *pos = "execuserobject";
- char *ss = psw_malloc(strlen(pos) + 1);
- strcpy(ss, pos);
- token->next = PSWToken(T_NAME, ss);
- }
- }
-
- if (tokens == NULL) {
- firstToken = lastToken = token;
- return token;
- }
-
- if (tokens != firstToken)
- firstToken = lastToken = tokens;
- for (t = lastToken; t->next; t = t->next);
- lastToken = t->next = token;
-
- return tokens;
-}
-
-Args AppendPSWArgs(Arg arg, Args args)
-{
- register Arg a;
- arg->next = NULL;
- if (args == NULL) return arg;
-
- for (a = args; a->next; a = a->next);
-
- a->next = arg;
- return args;
-}
-
-Items AppendPSWItems(Item item, Items items)
-{
- register Item t;
- item->next = NULL;
- if (items == NULL) return item;
-
- for (t = items; t->next; t = t->next);
-
- t->next = item;
- return items;
-}
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-14 12:36:39 +0000