1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4    *                                                         *
 5    *********************************************************** */
 6 %;
 7 /* ******************************************************
 8    *                                                    *
 9    *                                                    *
10    * Copyright (c) 1972 by Massachusetts Institute of   *
11    * Technology and Honeywell Information Systems, Inc. *
12    *                                                    *
13    *                                                    *
14    ****************************************************** */
15 
16 create_identifier:
17           procedure returns(ptr);
18 /*        returns a ptr to the token_node whose string is created by the
19           concatenation of "cp." and a decimal integer. */
20 /*        Modified on:        11 August 1970 by P. Green for Version II */
21 /*        Modified on:         5 January 1971 by BLW for in-line conversion */
22 
23 dcl       substr builtin,
24           bindec$vs entry(fixed bin(15)) returns(char(12) varying),
25           pl1_stat_$compiler_created_index fixed bin(15) ext static;
26 dcl       create_token ext entry(char(*) aligned,bit(9) aligned) returns(ptr);
27 
28 %include token_types;
29           pl1_stat_$compiler_created_index = pl1_stat_$compiler_created_index+1;
30           return(create_token("cp."||bindec$vs(pl1_stat_$compiler_created_index),identifier));
31 end create_identifier;