/**************************************************************** * * * Copyright 2001 Sanchez Computer Associates, Inc. * * * * This source code contains the intellectual property * * of its copyright holder(s), and is made available * * under a license. If you do not know the terms of * * the license, please stop and do not read further. * * * ****************************************************************/ #include "mdef.h" #include "compiler.h" #include "toktyp.h" #include "advancewindow.h" GBLREF char window_token; int f_ascii(oprtype *a, opctype op) { triple *r; r = maketriple(op); if (!strexpr(&(r->operand[0]))) return FALSE; if (window_token != TK_COMMA) r->operand[1] = put_ilit(1); else { advancewindow(); if (!intexpr(&(r->operand[1]))) return FALSE; } ins_triple(r); *a = put_tref(r); return TRUE; }