login  home  contents  what's new  discussion  bug reports     help  links  subscribe  changes  refresh  edit

This is an example of using pretend to perform a type unsafe operation.

The follow commands are run using FriCAS

(1) -> )version
Your user access level is compiler and this command is therefore not available. See the )set userlevel command for more information.

)abbrev package CAST cast
cast(): exports == implementation where
exports == with
cast1: Integer -> Float
implementation == add
cast1(i:Integer):Float == j:Float := (i pretend Float)
   Compiling FriCAS source code from file 
      using old system compiler.
   CAST abbreviates package cast 
   initializing NRLIB CAST for cast 
   compiling into NRLIB CAST 
   compiling exported cast1 : Integer -> Float
      CAST;cast1;IF;1 is replaced by LETji 
Time: 0 SEC.
(time taken in buildFunctor: 0)
;;; *** |cast| REDEFINED
;;; *** |cast| REDEFINED Time: 0 SEC.
Cumulative Statistics for Constructor cast Time: 0 seconds
finalizing NRLIB CAST Processing cast for Browser database: --->-->cast(constructor): Not documented!!!! --->-->cast((cast1 ((Float) (Integer)))): Not documented!!!! --->-->cast(): Missing Description ; compiling file "/var/aw/var/LatexWiki/CAST.NRLIB/CAST.lsp" (written 21 FEB 2023 12:54:34 PM):
; /var/aw/var/LatexWiki/CAST.NRLIB/CAST.fasl written ; compilation finished in 0:00:00.017 ------------------------------------------------------------------------ cast is now explicitly exposed in frame initial cast will be automatically loaded when needed from /var/aw/var/LatexWiki/CAST.NRLIB/CAST

This command used to cause a "memory may be damaged" error::

>> System error: The value 1 is not of type CONS.

#include "axiom"
cast2(i: Integer): Float == {
      j:Float := (i pretend Float)
   Compiling FriCAS source code from file 
      using Aldor compiler and options 
-O -Fasy -Fao -Flsp -lfricas -Mno-ALDOR_W_WillObsolete -DFriCAS -Y $FRICAS/algebra -I $FRICAS/algebra
      Use the system command )set compiler args to change these 
   The )library system command was not called after compilation.

This command also used cause a "memory may be damaged" error::

There are no library operations named cast2 Use HyperDoc Browse or issue )what op cast2 to learn if there is any operation containing " cast2 " in its name.
Cannot find a definition or applicable library operation named cast2 with argument type(s) PositiveInteger
Perhaps you should use "@" to indicate the required return type, or "$" to specify which version of the function you need.

  Subject:   Be Bold !!
  ( 14 subscribers )  
Please rate this page: