$!-----------------------------------------------------------------'f$verify(0) $! ARCHER.COM $! $! Determine the system architecture and set global symbol WASD_ARCH_NAME $! to contain upper-cased equivalents. $! WASD_ARCH_NAME shows "AXP" instead of "Alpha", "IA64", and "X86_64". $! The corresponding [.OBJ_] object file directory is also $! created in the current directory if it does not already exist. $! $! Copyright (C) 2021-2026 Mark G.Daniel. $! $! Licensed under the Apache License, Version 2.0 (the "License"); $! you may not use this file except in compliance with the License. $! You may obtain a copy of the License at $! $! http://www.apache.org/licenses/LICENSE-2.0 $! $! Unless required by applicable law or agreed to in writing, software $! distributed under the License is distributed on an "AS IS" BASIS, $! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. $! See the License for the specific language governing permissions and $! limitations under the License. $! $! 26-DEC-2025 MGD remove XCC$ cross-compiler support $! 18-DEC-2020 MGD set symbol 'wasd_arch_name' and create object directory $! support IA64 XCC$ cross-compiler environment $!----------------------------------------------------------------------------- $ wasd_arch_name == f$edit(f$getsyi("arch_name"),"upcase") $ if wasd_arch_name .eqs. "VAX" $ then $ write sys$output "VAX no longer supported - it did have a 26 year run!" $ exit 44 $ endif $! $ wasd_arch_name == f$edit(wasd_arch_name,"upcase") $ if wasd_arch_name .eqs. "ALPHA" then wasd_arch_name == "AXP" $! $! (if an application has been specified then announce and check for directory) $ if P1 .nes. "" $ then $ write sys$output f$fao("!/Building !AS for !AS", P1, wasd_arch_name) $ object_dir == "[.obj_''wasd_arch_name']" $ wasd_obj_dir == "[.obj_''wasd_arch_name']" $ if f$search("obj_''wasd_arch_name'.dir") .eqs. "" $ then $ create /dir 'wasd_obj_dir' $ endif $ endif $!-----------------------------------------------------------------------------