\doxysection{real.\+c}
\hypertarget{real_8c_source}{}\label{real_8c_source}\index{workspace/post-\/scarcity/src/arith/real.c@{workspace/post-\/scarcity/src/arith/real.c}}
\mbox{\hyperlink{real_8c}{Go to the documentation of this file.}}
\begin{DoxyCode}{0}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00001}00001\ \textcolor{comment}{/*}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00002}00002\ \textcolor{comment}{\ *\ real.c}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00003}00003\ \textcolor{comment}{\ *}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00004}00004\ \textcolor{comment}{\ *\ functions\ for\ real\ number\ cells.}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00005}00005\ \textcolor{comment}{\ *}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00006}00006\ \textcolor{comment}{\ *\ (c)\ 2017\ Simon\ Brooke\ <simon@journeyman.cc>}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00007}00007\ \textcolor{comment}{\ *\ Licensed\ under\ GPL\ version\ 2.0,\ or,\ at\ your\ option,\ any\ later\ version.}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00008}00008\ \textcolor{comment}{\ */}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00009}00009\ }
\DoxyCodeLine{\Hypertarget{real_8c_source_l00010}00010\ \textcolor{preprocessor}{\#include\ "{}\mbox{\hyperlink{conspage_8h}{memory/conspage.h}}"{}}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00011}00011\ \textcolor{preprocessor}{\#include\ "{}\mbox{\hyperlink{consspaceobject_8h}{memory/consspaceobject.h}}"{}}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00012}00012\ \textcolor{preprocessor}{\#include\ "{}\mbox{\hyperlink{debug_8h}{debug.h}}"{}}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00013}00013\ \textcolor{preprocessor}{\#include\ "{}\mbox{\hyperlink{read_8h}{io/read.h}}"{}}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00014}00014\ \textcolor{comment}{}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00015}00015\ \textcolor{comment}{/**}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00016}00016\ \textcolor{comment}{\ *\ Allocate\ a\ real\ number\ cell\ representing\ this\ value\ and\ return\ a\ cons}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00017}00017\ \textcolor{comment}{\ *\ pointer\ to\ it.}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00018}00018\ \textcolor{comment}{\ *\ @param\ value\ the\ value\ to\ wrap;}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00019}00019\ \textcolor{comment}{\ *\ @return\ a\ real\ number\ cell\ wrapping\ this\ value.}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00020}00020\ \textcolor{comment}{\ */}}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00021}\mbox{\hyperlink{real_8c_a1c3412f747f8c3572b991272df881a1c}{00021}}\ \textcolor{keyword}{struct\ }\mbox{\hyperlink{consspaceobject_8h_structcons__pointer}{cons\_pointer}}\ \mbox{\hyperlink{real_8c_a1c3412f747f8c3572b991272df881a1c}{make\_real}}(\ long\ double\ value\ )\ \{}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00022}00022\ \ \ \ \ \textcolor{keyword}{struct\ }\mbox{\hyperlink{consspaceobject_8h_structcons__pointer}{cons\_pointer}}\ result\ =\ \mbox{\hyperlink{conspage_8c_a04ba7c874b05e9789d0aca9ee6b106a7}{allocate\_cell}}(\ \mbox{\hyperlink{consspaceobject_8h_a964051b1bf348dbf06440df0a37bcde4}{REALTV}}\ );}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00023}00023\ \ \ \ \ \textcolor{keyword}{struct\ }\mbox{\hyperlink{consspaceobject_8h_structcons__space__object}{cons\_space\_object}}\ *cell\ =\ \&\mbox{\hyperlink{consspaceobject_8h_af31e1da9438d7ae4410864ecc901b131}{pointer2cell}}(\ result\ );}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00024}00024\ \ \ \ \ cell-\/>\mbox{\hyperlink{consspaceobject_8h_a259b3afe36776f8ba8498fdf95904f25}{payload}}.real.value\ =\ value;}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00025}00025\ }
\DoxyCodeLine{\Hypertarget{real_8c_source_l00026}00026\ \ \ \ \ \mbox{\hyperlink{debug_8c_aa0ffa929ddbce890ce4f81264a211233}{debug\_dump\_object}}(\ result,\ \mbox{\hyperlink{debug_8h_a31067039d5f8f06bec3f2f94af168ed5}{DEBUG\_ARITH}}\ );}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00027}00027\ }
\DoxyCodeLine{\Hypertarget{real_8c_source_l00028}00028\ \ \ \ \ \textcolor{keywordflow}{return}\ result;}
\DoxyCodeLine{\Hypertarget{real_8c_source_l00029}00029\ \}}

\end{DoxyCode}
